[Netpass-devel] NetPass/lib/NetPass DB.pm,1.49,1.50

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

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

Modified Files:
	DB.pm 
Log Message:


Index: DB.pm
===================================================================
RCS file: /cvsroot/netpass/NetPass/lib/NetPass/DB.pm,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -d -r1.49 -r1.50
--- DB.pm	3 Aug 2005 02:44:39 -0000	1.49
+++ DB.pm	3 Aug 2005 17:49:55 -0000	1.50
@@ -1015,32 +1015,32 @@
     return "invalid params\n".Carp::longmess(Class::ParmList->error) if (!defined($parms));
     my ($rule, $user, $desc) = $parms->get('-rule', '-user', '-desc');
 
-    if ($rule =~ /sid\:(\d+)\;/) {
+    if ($rule =~ /sid\:\s*(\d+)\;/) {
 	$data->{sid} = $1;
     } else {
 	return "undefined sid";
     }
 
-    if ($rule =~ /msg\:\"([\w-]+)\s+([^";]+)\"\;/) {
+    if ($rule =~ /msg\:\s*\"([\w-]+)\s+([^";]+)\"\;/) {
 	$data->{category} = $1;
 	$data->{name}     = $2;
     } else {
 	return "unknown msg";
     }
 
-    if ($rule =~ /rev\:(\d+)\;/) {
+    if ($rule =~ /rev\:\s*(\d+)\;/) {
 	$data->{rev} = $1;
     } else {
 	return "unknown rev";	
     }
 
-    if ($rule =~ /classtype\:([^;]+)\;/) {
+    if ($rule =~ /classtype\:\s*([^;]+)\;/) {
 	$data->{classtype} = $1;
     } else {
 	return "unknown classtype";
     }
 
-    if ($rule =~ /reference\:([^;]+)\;/) {
+    if ($rule =~ /reference\:\s*([^;]+)\;/) {
 	$data->{reference} = $1;
     }