diff options
author | ivan <ivan> | 2009-10-28 19:04:53 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-10-28 19:04:53 +0000 |
commit | f274814c7cde3681578ca594a2b00475370e4c92 (patch) | |
tree | 2981a7fca22e5e0fb3c05693445cac232fe90a83 /FS/FS/svc_www.pm | |
parent | 2cb70470a8e5c3287146008e4ce2c4eb9f242373 (diff) |
fix problems using inventory for UID (and other fields controlled by check in svc_acct and also svc_www, svc_domain and svc_forward), RT#6366
Diffstat (limited to 'FS/FS/svc_www.pm')
-rw-r--r-- | FS/FS/svc_www.pm | 62 |
1 files changed, 18 insertions, 44 deletions
diff --git a/FS/FS/svc_www.pm b/FS/FS/svc_www.pm index 53225bb..7e02d81 100644 --- a/FS/FS/svc_www.pm +++ b/FS/FS/svc_www.pm @@ -113,57 +113,31 @@ If I<depend_jobnum> is set (to a scalar jobnum or an array reference of jobnums), all provisioning jobs will have a dependancy on the supplied jobnum(s) (they will not run until the specific job(s) complete(s)). - =cut -sub insert { +sub preinsert_hook { my $self = shift; - my $error = $self->check; - return $error if $error; - - local $SIG{HUP} = 'IGNORE'; - local $SIG{INT} = 'IGNORE'; - local $SIG{QUIT} = 'IGNORE'; - local $SIG{TERM} = 'IGNORE'; - local $SIG{TSTP} = 'IGNORE'; - local $SIG{PIPE} = 'IGNORE'; - - my $oldAutoCommit = $FS::UID::AutoCommit; - local $FS::UID::AutoCommit = 0; - my $dbh = dbh; - - #if ( $self->recnum =~ /^([\w\-]+|\@)\.(([\w\.\-]+\.)+\w+)$/ ) { - if ( $self->recnum =~ /^([\w\-]+|\@)\.(\d+)$/ ) { - my( $reczone, $domain_svcnum ) = ( $1, $2 ); - unless ( $apacheip ) { - $dbh->rollback if $oldAutoCommit; - return "Configuration option apacheip not set; can't autocreate A record"; - #"for $reczone". $svc_domain->domain; - } - my $domain_record = new FS::domain_record { - 'svcnum' => $domain_svcnum, - 'reczone' => $reczone, - 'recaf' => 'IN', - 'rectype' => 'A', - 'recdata' => $apacheip, - }; - $error = $domain_record->insert; - if ( $error ) { - $dbh->rollback if $oldAutoCommit; - return $error; - } - $self->recnum($domain_record->recnum); - } + #return '' unless $self->recnum =~ /^([\w\-]+|\@)\.(([\w\.\-]+\.)+\w+)$/; + return '' unless $self->recnum =~ /^([\w\-]+|\@)\.(\d+)$/; - $error = $self->SUPER::insert(@_); - if ( $error ) { - $dbh->rollback if $oldAutoCommit; - return $error; + my( $reczone, $domain_svcnum ) = ( $1, $2 ); + unless ( $apacheip ) { + return "Configuration option apacheip not set; can't autocreate A record"; + #"for $reczone". $svc_domain->domain; } + my $domain_record = new FS::domain_record { + 'svcnum' => $domain_svcnum, + 'reczone' => $reczone, + 'recaf' => 'IN', + 'rectype' => 'A', + 'recdata' => $apacheip, + }; + my $error = $domain_record->insert; + return $error if $error; - $dbh->commit or die $dbh->errstr if $oldAutoCommit; - ''; + $self->recnum($domain_record->recnum); + return ''; } =item delete |