forksuidsetup($user);
+ dbh->{'private_profile'} = {} if UNIVERSAL::can(dbh, 'sprintProfile');
+
#auto-use classes...
if ( $ljob->job =~ /(FS::(part_export|cust_main)::\w+)::/
|| $ljob->job =~ /(FS::\w+)::/
$ljob->delete;
}
+ if ( UNIVERSAL::can(dbh, 'sprintProfile') ) {
+ open(PROFILE,">%%%FREESIDE_LOG%%%/queueprofile.$$.".time)
+ or die "can't open profile file: $!";
+ print PROFILE dbh->sprintProfile();
+ close PROFILE or die "can't close profile file: $!";
+ }
+
exit;
#end-of-kid
}
start)
# Start daemons.
echo -n "Starting freeside-queued: "
+ #perl -MDBIx::Profile /usr/local/bin/freeside-queued $QUEUED_USER
freeside-queued $QUEUED_USER
echo "done."