freeside/FS/FS svc_acct.pm,1.178,1.179

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv30957

Modified Files:
	svc_acct.pm 
Log Message:
fix shellcommands export encrypting "magic" shadow values * NP *LK*

Index: svc_acct.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/svc_acct.pm,v
retrieving revision 1.178
retrieving revision 1.179
diff -u -d -r1.178 -r1.179
--- svc_acct.pm	19 May 2005 09:49:46 -0000	1.178
+++ svc_acct.pm	19 May 2005 10:26:54 -0000	1.179
@@ -1319,10 +1319,12 @@
 
 sub crypt_password {
   my $self = shift;
-  #false laziness w/shellcommands.pm
   #eventually should check a "password-encoding" field
   if ( length($self->_password) == 13
-       || $self->_password =~ /^\$(1|2a?)\$/ ) {
+       || $self->_password =~ /^\$(1|2a?)\$/
+       || $self->_password =~ /^(\*|NP|\*LK\*)$/
+     )
+  {
     $self->_password;
   } else {
     my $encryption = scalar(@_) ? shift : 'crypt';