don't try to run blank commands for non-svc_acct shellcommand exports too
authorivan <ivan>
Wed, 3 Aug 2005 02:23:22 +0000 (02:23 +0000)
committerivan <ivan>
Wed, 3 Aug 2005 02:23:22 +0000 (02:23 +0000)
FS/FS/part_export/domain_shellcommands.pm
FS/FS/part_export/forward_shellcommands.pm
FS/FS/part_export/www_shellcommands.pm

index 0ba5617..d15f41a 100644 (file)
@@ -70,6 +70,7 @@ sub _export_delete {
 sub _export_command {
   my ( $self, $action, $svc_domain) = (shift, shift, shift);
   my $command = $self->option($action);
 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';
 
   #set variable for the command
   no strict 'vars';
index fe30435..fd1b7ef 100644 (file)
@@ -68,6 +68,7 @@ sub _export_delete {
 sub _export_command {
   my ( $self, $action, $svc_forward ) = (shift, shift, shift);
   my $command = $self->option($action);
 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';
 
   #set variable for the command
   no strict 'vars';
index 0e50d60..9d3564e 100644 (file)
@@ -80,6 +80,7 @@ sub _export_delete {
 sub _export_command {
   my ( $self, $action, $svc_www) = (shift, shift, shift);
   my $command = $self->option($action);
 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';
 
   #set variable for the command
   no strict 'vars';