[Netpass-devel] NetPass/lib/NetPass API.pm,1.16,1.17

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

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

Modified Files:
	API.pm 
Log Message:


Index: API.pm
===================================================================
RCS file: /cvsroot/netpass/NetPass/lib/NetPass/API.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- API.pm	7 May 2005 04:31:16 -0000	1.16
+++ API.pm	2 Jun 2005 20:37:42 -0000	1.17
@@ -219,10 +219,20 @@
 			_log("ERROR", "database failure");
 			return undef;	
 		}
-		if ($rv ne "duplicate result" && $rv != 0) {
+		if ($rv ne "duplicate result" && $rv ne 0) {
 			_log("ERROR", "Unknown Error");
 			return undef;
 		}
+
+		my $rv2 = $np->db->updateResult (
+						   -mac	   => $mac,
+						   -status => "QUAR",
+						);
+
+		if ($rv2 ne 1) {
+			_log("ERROR", "Unable to quarantine $mac");
+			return undef;
+		}
 	}
 	return ("quarantined");
 }