From 289e35fa98f95021ccda7830146c6c9742302f70 Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 3 Aug 2005 02:23:22 +0000 Subject: [PATCH] don't try to run blank commands for non-svc_acct shellcommand exports too --- FS/FS/part_export/domain_shellcommands.pm | 1 + FS/FS/part_export/forward_shellcommands.pm | 1 + FS/FS/part_export/www_shellcommands.pm | 1 + 3 files changed, 3 insertions(+) diff --git a/FS/FS/part_export/domain_shellcommands.pm b/FS/FS/part_export/domain_shellcommands.pm index 0ba561711..d15f41a84 100644 --- a/FS/FS/part_export/domain_shellcommands.pm +++ b/FS/FS/part_export/domain_shellcommands.pm @@ -70,6 +70,7 @@ sub _export_delete { sub _export_command { my ( $self, $action, $svc_domain) = (shift, shift, shift); my $command = $self->option($action); + return '' if $command =~ /^\s*$/; #set variable for the command no strict 'vars'; diff --git a/FS/FS/part_export/forward_shellcommands.pm b/FS/FS/part_export/forward_shellcommands.pm index fe304350c..fd1b7efc2 100644 --- a/FS/FS/part_export/forward_shellcommands.pm +++ b/FS/FS/part_export/forward_shellcommands.pm @@ -68,6 +68,7 @@ sub _export_delete { sub _export_command { my ( $self, $action, $svc_forward ) = (shift, shift, shift); my $command = $self->option($action); + return '' if $command =~ /^\s*$/; #set variable for the command no strict 'vars'; diff --git a/FS/FS/part_export/www_shellcommands.pm b/FS/FS/part_export/www_shellcommands.pm index 0e50d607c..9d3564e12 100644 --- a/FS/FS/part_export/www_shellcommands.pm +++ b/FS/FS/part_export/www_shellcommands.pm @@ -80,6 +80,7 @@ sub _export_delete { sub _export_command { my ( $self, $action, $svc_www) = (shift, shift, shift); my $command = $self->option($action); + return '' if $command =~ /^\s*$/; #set variable for the command no strict 'vars'; -- 2.11.0