projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
force username to lowercase
[freeside.git]
/
site_perl
/
svc_acct_sm.pm
diff --git
a/site_perl/svc_acct_sm.pm
b/site_perl/svc_acct_sm.pm
index
75e7b02
..
c757ab0
100644
(file)
--- a/
site_perl/svc_acct_sm.pm
+++ b/
site_perl/svc_acct_sm.pm
@@
-7,6
+7,8
@@
use FS::svc_Common;
use FS::cust_svc;
use FS::SSH qw(ssh);
use FS::Conf;
use FS::cust_svc;
use FS::SSH qw(ssh);
use FS::Conf;
+use FS::svc_acct;
+use FS::svc_domain;
@ISA = qw( FS::svc_Common );
@ISA = qw( FS::svc_Common );
@@
-103,6
+105,7
@@
sub insert {
local $SIG{QUIT} = 'IGNORE';
local $SIG{TERM} = 'IGNORE';
local $SIG{TSTP} = 'IGNORE';
local $SIG{QUIT} = 'IGNORE';
local $SIG{TERM} = 'IGNORE';
local $SIG{TSTP} = 'IGNORE';
+ local $SIG{PIPE} = 'IGNORE';
$error=$self->check;
return $error if $error;
$error=$self->check;
return $error if $error;
@@
-157,7
+160,7
@@
sub replace {
return "Domain username (domuser) in use for this domain (domsvc)"
if ( $old->domuser ne $new->domuser
return "Domain username (domuser) in use for this domain (domsvc)"
if ( $old->domuser ne $new->domuser
- || $old->domsvc
ne
$new->domsvc
+ || $old->domsvc
!=
$new->domsvc
) && qsearchs('svc_acct_sm',{
'domuser'=> $new->domuser,
'domsvc' => $new->domsvc,
) && qsearchs('svc_acct_sm',{
'domuser'=> $new->domuser,
'domsvc' => $new->domsvc,
@@
-229,7
+232,7
@@
sub check {
=head1 VERSION
=head1 VERSION
-$Id: svc_acct_sm.pm,v 1.
4 1998-12-30 00:30:46
ivan Exp $
+$Id: svc_acct_sm.pm,v 1.
7 1999-04-07 14:40:15
ivan Exp $
=head1 BUGS
=head1 BUGS