percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-27 16:12:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

Hack pt-query-digest to write events to a file each time it runs.

Browse Source
This commit is contained in:
Daniel Nichter
2013-05-04 14:38:37 -07:00
parent fb70205a15
commit 4bfb634c15
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
bin/pt-query-digest
View File

@@ -13504,7 +13504,12 @@ sub main {
} }
} # sample } # sample
if ( $o->get('output') =~ /slowlog/i ) { # XXX
# if ( $o->get('output') =~ /slowlog/i ) {
my $utc_ts = ts(time, 1);
$utc_ts =~ s/:/_/g;
my $events_file = "/tmp/slow.log-$utc_ts";
open my $events_fh, '>', $events_file or die "Cannot open $events_file: $OS_ERROR";
my $w = new SlowLogWriter(); my $w = new SlowLogWriter();
$pipeline->add( $pipeline->add(
name => '--output slowlog', name => '--output slowlog',
@@ -13512,11 +13517,11 @@ sub main {
my ( $args ) = @_; my ( $args ) = @_;
my $event = $args->{event}; my $event = $args->{event};
PTDEBUG && _d('callback: --output slowlog'); PTDEBUG && _d('callback: --output slowlog');
$w->write(*STDOUT, $event); $w->write($events_fh, $event);
return $args; return $args;
}, },
); );
} # print # } # print
# Finally, add aggregator obj for each groupby attrib to the callbacks. # Finally, add aggregator obj for each groupby attrib to the callbacks.
# These aggregating objs should be the last pipeline processes. # These aggregating objs should be the last pipeline processes.