diff options
| author | ivan <ivan> | 2001-12-20 02:09:52 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-12-20 02:09:52 +0000 |
| commit | 363349b93ce19e66749126bd14eed75710e57479 (patch) | |
| tree | 72435d5d03ce3b87fdc3a2a2b799280056262fcb | |
| parent | 80fad8cc255a422c562e0b4f040bfce91f074adc (diff) | |
don't error trying to suspend accounts with '*' password
| -rw-r--r-- | FS/FS/svc_acct.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index ba8f32fdd..49a55e9cf 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -635,7 +635,9 @@ Called by the suspend method of FS::cust_pkg (see L<FS::cust_pkg>). sub suspend { my $self = shift; my %hash = $self->hash; - unless ( $hash{_password} =~ /^\*SUSPENDED\* / ) { + unless ( $hash{_password} =~ /^\*SUSPENDED\* / + || $hash{_password} eq '*' + ) { $hash{_password} = '*SUSPENDED* '.$hash{_password}; my $new = new FS::svc_acct ( \%hash ); $new->replace($self); @@ -964,7 +966,7 @@ sub ssh { =head1 VERSION -$Id: svc_acct.pm,v 1.59 2001-12-20 02:07:04 ivan Exp $ +$Id: svc_acct.pm,v 1.60 2001-12-20 02:09:52 ivan Exp $ =head1 BUGS |