diff options
| -rw-r--r-- | FS/FS/part_export/domain_shellcommands.pm | 4 | ||||
| -rw-r--r-- | FS/FS/part_export/shellcommands.pm | 4 | ||||
| -rw-r--r-- | FS/FS/part_export/www_shellcommands.pm | 4 |
3 files changed, 9 insertions, 3 deletions
diff --git a/FS/FS/part_export/domain_shellcommands.pm b/FS/FS/part_export/domain_shellcommands.pm index d2f55e5ad..5b3cd5d79 100644 --- a/FS/FS/part_export/domain_shellcommands.pm +++ b/FS/FS/part_export/domain_shellcommands.pm @@ -23,6 +23,7 @@ sub _export_command { my $command = $self->option($action); #set variable for the command + no strict 'vars'; { no strict 'refs'; ${$_} = $svc_domain->getfield($_) foreach $svc_domain->fields; @@ -53,6 +54,7 @@ sub _export_replace { my $command = $self->option('usermod'); #set variable for the command + no strict 'vars'; { no strict 'refs'; ${"old_$_"} = $old->getfield($_) foreach $old->fields; @@ -100,7 +102,7 @@ sub shellcommands_queue { } sub ssh_cmd { #subroutine, not method - use Net::SSH '0.06'; + use Net::SSH '0.07'; &Net::SSH::ssh_cmd( { @_ } ); } diff --git a/FS/FS/part_export/shellcommands.pm b/FS/FS/part_export/shellcommands.pm index e4005761b..869544da5 100644 --- a/FS/FS/part_export/shellcommands.pm +++ b/FS/FS/part_export/shellcommands.pm @@ -24,6 +24,7 @@ sub _export_command { my ( $self, $action, $svc_acct) = (shift, shift, shift); my $command = $self->option($action); my $stdin = $self->option($action."_stdin"); + no strict 'vars'; { no strict 'refs'; ${$_} = $svc_acct->getfield($_) foreach $svc_acct->fields; @@ -44,6 +45,7 @@ sub _export_replace { my($self, $new, $old ) = (shift, shift, shift); my $command = $self->option('usermod'); my $stdin = $self->option('usermod_stdin'); + no strict 'vars'; { no strict 'refs'; ${"old_$_"} = $old->getfield($_) foreach $old->fields; @@ -72,7 +74,7 @@ sub shellcommands_queue { } sub ssh_cmd { #subroutine, not method - use Net::SSH '0.06'; + use Net::SSH '0.07'; &Net::SSH::ssh_cmd( { @_ } ); } diff --git a/FS/FS/part_export/www_shellcommands.pm b/FS/FS/part_export/www_shellcommands.pm index 84c162761..e5b95dc1f 100644 --- a/FS/FS/part_export/www_shellcommands.pm +++ b/FS/FS/part_export/www_shellcommands.pm @@ -23,6 +23,7 @@ sub _export_command { my $command = $self->option($action); #set variable for the command + no strict 'vars'; { no strict 'refs'; ${$_} = $svc_www->getfield($_) foreach $svc_www->fields; @@ -52,6 +53,7 @@ sub _export_replace { my $command = $self->option('usermod'); #set variable for the command + no strict 'vars'; { no strict 'refs'; ${"old_$_"} = $old->getfield($_) foreach $old->fields; @@ -99,7 +101,7 @@ sub shellcommands_queue { } sub ssh_cmd { #subroutine, not method - use Net::SSH '0.06'; + use Net::SSH '0.07'; &Net::SSH::ssh_cmd( { @_ } ); } |