[Netpass-devel] NetPass/lib/NetPass API.pm,1.22,1.23

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

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)