[Netpass-devel] NetPass/lib/NetPass API.pm,1.27,1.28

[jeff m. <jef...@us...>]

Update of /cvsroot/netpass/NetPass/lib/NetPass
In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv11506/lib/NetPass

Modified Files:
	API.pm 
Log Message:
api changes, quar-by-mac

Index: API.pm
===================================================================
RCS file: /cvsroot/netpass/NetPass/lib/NetPass/API.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- API.pm	7 Jul 2006 13:31:37 -0000	1.27
+++ API.pm	15 Dec 2006 19:25:46 -0000	1.28
@@ -362,7 +362,7 @@
 	return $np->db->addSnortRuleEntry(@$args);
 }
 
-=head2 my $results = quarantineIP(-secret => $secret, -ip => $ip, -id => $id, -type => $type, -time => $time, -aqo => [0 | 1])
+=head2 my $results = quarantineByIP(-secret => $secret, -ip => $ip, -id => $id, -type => $type, -time => $time, -aqo => [0 | 1])
 
 Arguments to this function include a secret key, IP address to be
 quarantined, an ID associated to either a Nessus or Snort ID,
@@ -480,6 +480,7 @@
 	return ("nothing") if $mode eq "not_really"; 
 
 	foreach my $npid (($arrays) ? @$id : $id) {
+		 last if($aqo); # don't log a result if we've got aqo
 		my $rv = $np->db->addResult (
 				      		-mac	=> $mac,
 				      		-id	=> $npid,
@@ -659,6 +660,7 @@
 
 	unless($nr){
 		foreach my $npid (($arrays) ? @$id : $id) {
+		 llast if($aqo); # don't log a result if we've got aqo
 			my $rv = $np->db->addResult (
 					      		-mac	=> $mac,
 					      		-id	=> $npid,