projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d8e19d7
)
add support for db profiling, RT#5662
author
ivan
<ivan>
Wed, 24 Jun 2009 18:36:32 +0000
(18:36 +0000)
committer
ivan
<ivan>
Wed, 24 Jun 2009 18:36:32 +0000
(18:36 +0000)
FS/bin/freeside-queued
patch
|
blob
|
history
init.d/freeside-init
patch
|
blob
|
history
diff --git
a/FS/bin/freeside-queued
b/FS/bin/freeside-queued
index
2188dd4
..
22fd7bb
100644
(file)
--- a/
FS/bin/freeside-queued
+++ b/
FS/bin/freeside-queued
@@
-157,6
+157,8
@@
while (1) {
forksuidsetup($user);
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+)::/
#auto-use classes...
if ( $ljob->job =~ /(FS::(part_export|cust_main)::\w+)::/
|| $ljob->job =~ /(FS::\w+)::/
@@
-191,6
+193,13
@@
while (1) {
$ljob->delete;
}
$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
}
exit;
#end-of-kid
}
diff --git
a/init.d/freeside-init
b/init.d/freeside-init
index
c9bcebe
..
4e58b32
100644
(file)
--- 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: "
start)
# Start daemons.
echo -n "Starting freeside-queued: "
+ #perl -MDBIx::Profile /usr/local/bin/freeside-queued $QUEUED_USER
freeside-queued $QUEUED_USER
echo "done."
freeside-queued $QUEUED_USER
echo "done."