projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
- depend on Net::SSH 0.07, for OpenSSH -T fix
[freeside.git]
/
FS
/
FS
/
part_export
/
domain_shellcommands.pm
diff --git
a/FS/FS/part_export/domain_shellcommands.pm
b/FS/FS/part_export/domain_shellcommands.pm
index
d2f55e5
..
5b3cd5d
100644
(file)
--- 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
my $command = $self->option($action);
#set variable for the command
+ no strict 'vars';
{
no strict 'refs';
${$_} = $svc_domain->getfield($_) foreach $svc_domain->fields;
{
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
my $command = $self->option('usermod');
#set variable for the command
+ no strict 'vars';
{
no strict 'refs';
${"old_$_"} = $old->getfield($_) foreach $old->fields;
{
no strict 'refs';
${"old_$_"} = $old->getfield($_) foreach $old->fields;
@@
-100,7
+102,7
@@
sub shellcommands_queue {
}
sub ssh_cmd { #subroutine, not method
}
sub ssh_cmd { #subroutine, not method
- use Net::SSH '0.0
6
';
+ use Net::SSH '0.0
7
';
&Net::SSH::ssh_cmd( { @_ } );
}
&Net::SSH::ssh_cmd( { @_ } );
}