[freeside-commits] freeside/FS/bin freeside-queued,1.41,1.42

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/bin
In directory wavetail.420.am:/tmp/cvs-serv12337/FS/bin

Modified Files:
	freeside-queued 
Log Message:
add support for db profiling, RT#5662

Index: freeside-queued
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/bin/freeside-queued,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -d -r1.41 -r1.42
--- freeside-queued	26 Apr 2009 23:19:13 -0000	1.41
+++ freeside-queued	24 Jun 2009 18:36:32 -0000	1.42
@@ -157,6 +157,8 @@
 
       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 @@
         $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
     }