X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fwww_shellcommands.pm;h=b3bfdfeff929f9dda1a9b738ff88c8c2183e978c;hb=7c5c428f8f102c672dd18ff0c02aaee82f5753d4;hp=e5b95dc1f7881c5284998d77cdd9bc374e7aff3d;hpb=22abdc37d4ec5699b62d295dc7ec1e41a8daf23b;p=freeside.git

diff --git a/FS/FS/part_export/www_shellcommands.pm b/FS/FS/part_export/www_shellcommands.pm
index e5b95dc1f..b3bfdfeff 100644
--- a/FS/FS/part_export/www_shellcommands.pm
+++ b/FS/FS/part_export/www_shellcommands.pm
@@ -30,9 +30,12 @@ sub _export_command {
   }
   my $domain_record = $svc_www->domain_record; # or die ?
   my $zone = $domain_record->reczone; # or die ?
-  unless ( $zone =~ /\.$/ ) {
+  if ( $zone =~ /\.$/ ) {
+    $zone =~ s/\.$//;
+  } else {
     my $svc_domain = $domain_record->svc_domain; # or die ?
     $zone .= '.'. $svc_domain->domain;
+    $zone =~ s/^\@\.//;
   }
 
   my $svc_acct = $svc_www->svc_acct; # or die ?