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' , '.' , '/' );
});
foreach my $export ( @sysv_exports ) {
+}
+
+foreach my $export ( @bsd_exports ) {
my $machine = $export->machine;
my $prefix = "$spooldir/$machine";
- mkdir $prefix unless -d $prefix;
+ mkdir $prefix, 0700 unless -d $prefix;
#LOCKING!!!