+
+ #this whole thing should be turned into a callback or config to turn on
+ if ( $svc_x eq 'svc_acct' && $svc->username =~ /\@/ ) {
+ my($username, $domain) = split(/\@/, $svc->username);
+ my $svc_domain = qsearchs('svc_domain', { 'domain' => $domain } )
+ || new FS::svc_domain { 'svcpart' => 1,
+ 'domain' => $domain, };
+ unless ( $svc_domain->svcnum ) {
+ my $error = $svc_domain->insert;
+ return "error auto-inserting domain: $error" if $error;
+ }
+ $svc->username($username);
+ $svc->domsvc($svc_domain->svcnum);
+ }
+
+ my $error = $svc->insert;
+ return "error inserting service: $error" if $error;