[freeside-commits] freeside/FS/FS/part_export domain_shellcommands.pm, 1.9, 1.10 forward_shellcommands.pm, 1.6, 1.7 www_shellcommands.pm, 1.15, 1.16

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail:/tmp/cvs-serv32041

Modified Files:
	domain_shellcommands.pm forward_shellcommands.pm 
	www_shellcommands.pm 
Log Message:
don't try to run blank commands for non-svc_acct shellcommand exports too

Index: www_shellcommands.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/www_shellcommands.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- www_shellcommands.pm	17 Jun 2004 12:32:41 -0000	1.15
+++ www_shellcommands.pm	3 Aug 2005 02:23:22 -0000	1.16
@@ -80,6 +80,7 @@
 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';

Index: forward_shellcommands.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/forward_shellcommands.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- forward_shellcommands.pm	25 Mar 2004 08:55:09 -0000	1.6
+++ forward_shellcommands.pm	3 Aug 2005 02:23:22 -0000	1.7
@@ -68,6 +68,7 @@
 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';

Index: domain_shellcommands.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/domain_shellcommands.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- domain_shellcommands.pm	25 Mar 2004 11:00:07 -0000	1.9
+++ domain_shellcommands.pm	3 Aug 2005 02:23:22 -0000	1.10
@@ -70,6 +70,7 @@
 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';