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.08 for non-blocking STDERR read
[freeside.git]
/
FS
/
FS
/
part_export
/
shellcommands.pm
diff --git
a/FS/FS/part_export/shellcommands.pm
b/FS/FS/part_export/shellcommands.pm
index
edc9440
..
db2e7aa
100644
(file)
--- a/
FS/FS/part_export/shellcommands.pm
+++ b/
FS/FS/part_export/shellcommands.pm
@@
-40,6
+40,13
@@
sub _export_command {
{
no strict 'refs';
${$_} = $svc_acct->getfield($_) foreach $svc_acct->fields;
{
no strict 'refs';
${$_} = $svc_acct->getfield($_) foreach $svc_acct->fields;
+
+ my $count = 1;
+ foreach my $acct_snarf ( $svc_acct->acct_snarf ) {
+ ${"snarf_$_$count"} = shell_quote( $acct_snarf->get($_) )
+ foreach qw( machine username _password );
+ $count++;
+ }
}
my $cust_pkg = $svc_acct->cust_svc->cust_pkg;
}
my $cust_pkg = $svc_acct->cust_svc->cust_pkg;
@@
-90,6
+97,12
@@
sub _export_replace {
if ( $old_domain ne $new_domain ) {
$error ||= "can't change domain";
}
if ( $old_domain ne $new_domain ) {
$error ||= "can't change domain";
}
+ if ( $old_uid != $new_uid ) {
+ $error ||= "can't change uid";
+ }
+ if ( $old_dir ne $new_dir ) {
+ $error ||= "can't change dir";
+ }
return $error. ' ('. $self->exporttype. ' to '. $self->machine. ')'
if $error;
}
return $error. ' ('. $self->exporttype. ' to '. $self->machine. ')'
if $error;
}
@@
-112,7
+125,7
@@
sub shellcommands_queue {
}
sub ssh_cmd { #subroutine, not method
}
sub ssh_cmd { #subroutine, not method
- use Net::SSH '0.0
7
';
+ use Net::SSH '0.0
8
';
&Net::SSH::ssh_cmd( { @_ } );
}
&Net::SSH::ssh_cmd( { @_ } );
}