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

Work in progress v3: Working interactive mode, initial documentation.

Browse Source 
With this most of the interactive mode should be working.

pt_diskstats.pm has the documentation and can be used for testing,
which should be in the next commit.

This commit also includes the revamped command line options.
This commit is contained in:
Brian Fraser
2011-12-15 20:26:55 -03:00
parent 0fd09e8f6e
commit 7b12dbec64
7 changed files with 850 additions and 207 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
lib/DiskstatsGroupByAll.pm
View File

@@ -38,7 +38,9 @@ sub group_by {
sub group_by_all {
my ($self, %args) = @_;
$self->clear_state();
if ( !$args{clear_state} ) {
$self->clear_state();
}
if (!$self->interactive) {
$self->parse_from(
@@ -49,24 +51,42 @@ sub group_by_all {
},
map( { ($_ => $args{$_}) } qw(filehandle filename data) ),
);
$self->clear_state();
}
else {
my $orig = tell $args{filehandle};
$self->parse_from(
sample_callback => sub {
$self->print_deltas(
header_cb => sub { CORE::state $x = 0; my $self = shift; $self->print_header(@_) unless $x++; },
header_cb => sub {
my $self = shift;
if ( $self->{_print_header} ) {
my $meth = $args{header_cb} || "print_header";
$self->$meth(@_);
}
$self->{_print_header} = undef;
},
rest_cb => $args{rest_cb},
);
#map { ( $_ => $args{$_} ) } qw( header_cb rest_cb ),
},
map( { ($_ => $args{$_}) } qw(filehandle filename data) ),
);
if (!$self->previous_ts) {
seek $args{filehandle}, $orig, 0;
}
$self->clear_state();
return;
}
$self->clear_state();
}
sub clear_state {
my $self = shift;
if (!$self->interactive()) {
$self->SUPER::clear_state(@_);
}
else {
my $orig_print_header = $self->{_print_header};
$self->SUPER::clear_state(@_);
$self->{_print_header} = $orig_print_header;
}
}