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,
|
