summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--FS/bin/freeside-queued9
-rw-r--r--init.d/freeside-init1
2 files changed, 10 insertions, 0 deletions
diff --git a/FS/bin/freeside-queued b/FS/bin/freeside-queued
index 2188dd404..22fd7bb5e 100644
--- a/FS/bin/freeside-queued
+++ b/FS/bin/freeside-queued
@@ -157,6 +157,8 @@ while (1) {
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+)::/
@@ -191,6 +193,13 @@ while (1) {
$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
}
diff --git a/init.d/freeside-init b/init.d/freeside-init
index c9bcebe37..4e58b32df 100644
--- a/init.d/freeside-init
+++ b/init.d/freeside-init
@@ -18,6 +18,7 @@ case "$1" in
start)
# Start daemons.
echo -n "Starting freeside-queued: "
+ #perl -MDBIx::Profile /usr/local/bin/freeside-queued $QUEUED_USER
freeside-queued $QUEUED_USER
echo "done."