Update of /cvsroot/netpass/NetPass/lib/NetPass
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32671
Modified Files:
API.pm
Log Message:
Index: API.pm
===================================================================
RCS file: /cvsroot/netpass/NetPass/lib/NetPass/API.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- API.pm 14 Jul 2005 15:35:18 -0000 1.22
+++ API.pm 14 Jul 2005 15:46:25 -0000 1.23
@@ -226,8 +226,8 @@
=head2 $rv = getRegisterInfo(-secret => secret -mac => mac, -macs => [], -ip => ip, -ips => [])
-This routine is basically a NetPass::API wrapper to DB::getRegisterInfo, for information
-regarding arguments see DB::getRegisterInfo.
+This routine is basically a NetPass::API wrapper to NetPass::DB::getRegisterInfo,
+for information regarding arguments see DB::getRegisterInfo.
=cut
@@ -242,6 +242,23 @@
return $np->db->getRegisterInfo(@$args);
}
+=head2 $rv = addSnortRuleEntry(-secret => $secret -rule => $rule -user => $user -desc => $desc)
+
+This routine is basically a NetPass::API wrapper to NetPass::DB::addSnortRuleEntry,
+for information regarding arguments see NetPass::DB::addSnortRuleEntry.
+
+=cut
+
+sub addSnortRuleEntry {
+ my $self = shift;
+ my $np = $::np;
+
+ my($secret, $args) = $self->$get_secret_from_args(@_);
+ return undef if $secret eq "";
+ return undef unless ($self->$check_soap_auth($secret));
+
+ return $np->db->addSnortRuleEntry(@$args);
+}
=head2 my $results = quarantineByIP(-secret => $secret, -ip => $ip, -id => $id, -type => $type, -time => $time)
|
