#!/usr/bin/perl
#
# Modify or create home node entry for a user

$db_name = "clx_db";
$psql ="psql -d $db_name -qtc";

if ($#ARGV < 2) {
	print "Usage: set/home_node <call> <node>\n";
	exit 1;
}

$us_call = $ARGV[1];
$hn_call = $ARGV[2];
$hn_ssid = 0;

if (index($hn_call,'-') >= 0) {
	($hn_call,$hn_ssid) = split(/-/,$hn_call);
}

$qry = "SELECT count(*) FROM us_uhn WHERE us_call='$us_call'";
$cmd = sprintf("%s \"%s\"",$psql,$qry);
$result = `$cmd`;
if ( $result > 0 ) {
	print "Updating home node of $us_call to $hn_call-$hn_ssid\n";
	$qry = "UPDATE us_uhn SET nhn_cnt = -1, hn_call='$hn_call', 
		hn_ssid='$hn_ssid' WHERE us_call = '$us_call'";
} else {
	print "Creating home node entry for $us_call with $hn_call-$hn_ssid\n";
	$qry = "INSERT INTO us_uhn (us_call,hn_call,hn_ssid,nhn_cnt) VALUES 
		('$us_call','$hn_call','$hn_ssid','-1')";
}

$cmd = sprintf("%s \"%s\"",$psql,$qry);
system($cmd);
