[Netpass-devel] NetPass/bin quarantine_host.pl,1.3,1.4

[Matt <mt...@us...>]

Update of /cvsroot/netpass/NetPass/bin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8811

Modified Files:
	quarantine_host.pl 
Log Message:


Index: quarantine_host.pl
===================================================================
RCS file: /cvsroot/netpass/NetPass/bin/quarantine_host.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- quarantine_host.pl	20 Apr 2005 04:24:19 -0000	1.3
+++ quarantine_host.pl	13 Jul 2005 15:36:04 -0000	1.4
@@ -57,15 +57,18 @@
 
 my $id		= ();
 my $type	= ();
+my $time 	= ();
 
 if ($opts{'t'} =~ /\,/ || $opts{'i'} =~ /\,/) {
 	@$id 	= split(',', $opts{'i'});
 	@$type	= split(',', $opts{'t'});
+	$time   = [map(time(), @$type)];
 	die "Number of types doesnt correspond with the number of ids"
 		if ($#$id != $#$type);
 } else {
 	$id 	= $opts{'i'};
 	$type	= $opts{'t'};
+	$time	= time();
 }
 
 my $soap = createSoapConnection($opts{'s'});
@@ -76,6 +79,7 @@
 				    -secret	=> $secret,
 				    -ip		=> $ip,
 				    -type	=> $type,
+				    -time	=> $time,
 				    -id		=> $id)->result};
 die "Unable to quarantine $ip" unless defined $res;