From 7c5c428f8f102c672dd18ff0c02aaee82f5753d4 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 29 Mar 2003 02:35:49 +0000
Subject: [PATCH] trim leading @. off zones
---
FS/FS/part_export/www_shellcommands.pm | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
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 ?
--
2.20.1