projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
80fad8c
)
don't error trying to suspend accounts with '*' password
author
ivan
<ivan>
Thu, 20 Dec 2001 02:09:52 +0000
(
02:09
+0000)
committer
ivan
<ivan>
Thu, 20 Dec 2001 02:09:52 +0000
(
02:09
+0000)
FS/FS/svc_acct.pm
patch
|
blob
|
history
diff --git
a/FS/FS/svc_acct.pm
b/FS/FS/svc_acct.pm
index
ba8f32f
..
49a55e9
100644
(file)
--- 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;
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);
$hash{_password} = '*SUSPENDED* '.$hash{_password};
my $new = new FS::svc_acct ( \%hash );
$new->replace($self);
@@
-964,7
+966,7
@@
sub ssh {
=head1 VERSION
=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
=head1 BUGS