CVS Update: winpatch

[Dan Brosemer <odin@cleannorth.org>]

Log Message:
-----------
Do not hardcode hosts

Modified Files:
--------------
    winpatch:
        markinstalled.pl
        winpatch.pl

Revision Data
-------------
Index: markinstalled.pl
===================================================================
RCS file: /cvs/winpatch/markinstalled.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -Lmarkinstalled.pl -Lmarkinstalled.pl -u -r1.2 -r1.3
--- markinstalled.pl
+++ markinstalled.pl
@@ -56,7 +56,7 @@
 			{
 				print "Marking patch #$i->{patchid} as installed.\n";
 
-				my $url = 'https://ripburger.cleannorth.org/rpc.pl?call=patch_installed;display_mode=json;machine='.$machine.';key='.$key.';patchid='.$i->{patchid}.';exitstatus=0';
+				my $url = 'https://'.$host.'/rpc.pl?call=patch_installed;display_mode=json;machine='.$machine.';key='.$key.';patchid='.$i->{patchid}.';exitstatus=0';
 				my $response = get($url);
 				my $obj = $json->jsonToObj($response);
 				if ($obj->{result} == 1)
Index: winpatch.pl
===================================================================
RCS file: /cvs/winpatch/winpatch.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -Lwinpatch.pl -Lwinpatch.pl -u -r1.1.1.1 -r1.2
--- winpatch.pl
+++ winpatch.pl
@@ -158,7 +158,7 @@
 		$ret = $? >> 8;
 		print LOG "Exit status: $ret\n";
 		print LOG "Updating server...\n";
-		my $url = 'https://ripburger.cleannorth.org/rpc.pl?call=patch_installed;display_mode=json;machine='.$machine.';key='.$key.';patchid='.$patchobj->{patchid}.';exitstatus='.$ret;
+		my $url = 'https://'.$host.'/rpc.pl?call=patch_installed;display_mode=json;machine='.$machine.';key='.$key.';patchid='.$patchobj->{patchid}.';exitstatus='.$ret;
 		
 		my $response = get($url);
 		my $obj = $json->jsonToObj($response);