projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
forgot %> when converting from CGI, works now,
[freeside.git]
/
bin
/
shell.export
diff --git
a/bin/shell.export
b/bin/shell.export
index
064d56e
..
146a0fd
100755
(executable)
--- a/
bin/shell.export
+++ b/
bin/shell.export
@@
-8,6
+8,8
@@
use Net::SSH qw(ssh);
use FS::UID qw(adminsuidsetup datasrc);
use FS::Record qw(qsearch qsearchs);
use FS::part_export;
use FS::UID qw(adminsuidsetup datasrc);
use FS::Record qw(qsearch qsearchs);
use FS::part_export;
+use FS::cust_svc;
+use FS::svc_acct;
my @saltset = ( 'a'..'z' , 'A'..'Z' , '0'..'9' , '.' , '/' );
my @saltset = ( 'a'..'z' , 'A'..'Z' , '0'..'9' , '.' , '/' );
@@
-26,6
+28,9
@@
my $rsync = File::Rsync->new({
});
foreach my $export ( @sysv_exports ) {
});
foreach my $export ( @sysv_exports ) {
+}
+
+foreach my $export ( @bsd_exports ) {
my $machine = $export->machine;
my $prefix = "$spooldir/$machine";
mkdir $prefix, 0700 unless -d $prefix;
my $machine = $export->machine;
my $prefix = "$spooldir/$machine";
mkdir $prefix, 0700 unless -d $prefix;
@@
-49,6
+54,8
@@
foreach my $export ( @sysv_exports ) {
grep { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) }
$export->export_svc;
grep { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) }
$export->export_svc;
+ next unless @svc_acct;
+
foreach my $svc_acct ( sort { $a->uid <=> $b->uid } @svc_acct ) {
my $password = $svc_acct->_password;
foreach my $svc_acct ( sort { $a->uid <=> $b->uid } @svc_acct ) {
my $password = $svc_acct->_password;