nhyatt/putty-source
1
0
Fork 0
mirror of https://git.tartarus.org/simon/putty.git synced 2025-03-22 06:38:37 -05:00
Code Issues Projects Releases Wiki Activity

logparse.pl: option to pass through Event Log entries.

Browse Source 
This makes it more feasible to use logparse.pl as an output filter on
a PuTTY SSH log file and discard the original file.

In particular, ever since commit b4fde270c, I've been finding it
useful when testing new code to direct my SSH logs to a named pipe and
have another terminal window give a real-time dump of them by running
'while cat $named_pipe; do :; done'. Now I can replace the 'cat' in
that shell command with 'logparse.pl -ve' and still get the Event Log
messages as well as the unpacked contents of all the packets.
This commit is contained in:
Simon Tatham 2018-04-09 12:57:52 +01:00
parent ec29d35403
commit 44dc516810
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
contrib/logparse.pl
View File

@ -7,12 +7,14 @@ use FileHandle;
my $dumpchannels = 0; my $dumpchannels = 0;
my $dumpdata = 0; my $dumpdata = 0;
my $pass_through_events = 0;
my $verbose_all; my $verbose_all;
my %verbose_packet; my %verbose_packet;
GetOptions("dump-channels|c" => \$dumpchannels, GetOptions("dump-channels|c" => \$dumpchannels,
"dump-data|d" => \$dumpdata, "dump-data|d" => \$dumpdata,
"verbose|v" => \$verbose_all, "verbose|v" => \$verbose_all,
"full|f=s" => sub { $verbose_packet{$_[1]} = 1; }, "full|f=s" => sub { $verbose_packet{$_[1]} = 1; },
"events|e" => \$pass_through_events,
"help" => sub { &usage(\*STDOUT, 0); }) "help" => sub { &usage(\*STDOUT, 0); })
or &usage(\*STDERR, 1); or &usage(\*STDERR, 1);
@ -988,6 +990,9 @@ while (<>) {
$data = []; $data = [];
$recording = 1; $recording = 1;
} }
if ($pass_through_events && m/^Event Log: ([^\n]*)$/) {
printf "event: $1\n";
}
} }
if ($dumpchannels) { if ($dumpchannels) {