From 70d0d44dff39cb9235cbbec1918c4ea95f0dc4c4 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 24 Jun 2009 18:36:32 +0000
Subject: [PATCH 1/1] add support for db profiling, RT#5662

---
 FS/bin/freeside-queued | 9 +++++++++
 init.d/freeside-init   | 1 +
 2 files changed, 10 insertions(+)

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."
 
-- 
2.11.0