GitHub
/
pbot
mirror of https://github.com/pragma-/pbot.git
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

Print IRC debug messages to STDERR

This commit is contained in:
Pragmatic Software 2015-02-15 20:19:51 -08:00
parent ec13cf14bc
commit 1ffe857ba5
2 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
PBot/IRC/Connection.pm
View File

@ -499,12 +499,12 @@ sub handler {
croak "Not enough arguments to handler()"; croak "Not enough arguments to handler()";
} }
print "Trying to handle event '$ev'.\n" if $self->{_debug}; print STDERR "Trying to handle event '$ev'.\n" if $self->{_debug};
if($self->{_debug}) { if($self->{_debug}) {
use Data::Dumper; use Data::Dumper;
print "ev: ", Dumper($ev), "\nevent: ", Dumper($event), "\n"; print STDERR "ev: ", Dumper($ev), "\nevent: ", Dumper($event), "\n";
} }
my $handler = undef; my $handler = undef;
@ -531,7 +531,7 @@ sub handler {
confess "Bad parameter passed to handler(): rp=$rp"; confess "Bad parameter passed to handler(): rp=$rp";
} }
print "Handler for '$ev' called.\n" if $self->{_debug}; print STDERR "Handler for '$ev' called.\n" if $self->{_debug};
return 1; return 1;
} }
@ -895,7 +895,7 @@ sub parse {
$line =~ s/[\012\015]+$//; $line =~ s/[\012\015]+$//;
next unless $line; next unless $line;
print "<<< $line\n" if $self->{_debug}; print STDERR "<<< $line\n" if $self->{_debug};
# Like the RFC says: "respond as quickly as possible..." # Like the RFC says: "respond as quickly as possible..."
if ($line =~ /^PING/) { if ($line =~ /^PING/) {
@ -935,7 +935,7 @@ sub parse {
# ($from, $line) = split ":", $line, 2; # ($from, $line) = split ":", $line, 2;
($from, $line) = $line =~ /^(?:|)(\S+\s+[^:]+):?(.*)/; ($from, $line) = $line =~ /^(?:|)(\S+\s+[^:]+):?(.*)/;
print "from: [$from], line: [$line]\n" if $self->{_debug}; print STDERR "from: [$from], line: [$line]\n" if $self->{_debug};
($from, $type, @stuff) = split /\s+/, $from; ($from, $type, @stuff) = split /\s+/, $from;
$type = lc $type; $type = lc $type;
@ -1309,6 +1309,7 @@ sub schedule {
croak 'Second argument to schedule() isn\'t a coderef'; croak 'Second argument to schedule() isn\'t a coderef';
} }
print STDERR "Scheduling event with time [$time]\n";
$time += time; $time += time;
$self->parent->enqueue_scheduled_event($time, $coderef, $self, @_); $self->parent->enqueue_scheduled_event($time, $coderef, $self, @_);
} }
@ -1325,6 +1326,7 @@ sub schedule_output_event {
croak 'Second argument to schedule() isn\'t a coderef'; croak 'Second argument to schedule() isn\'t a coderef';
} }
print STDERR "Scheduling output event with time [$time]\n";
$time += time; $time += time;
$self->parent->enqueue_output_event($time, $coderef, $self, @_); $self->parent->enqueue_output_event($time, $coderef, $self, @_);
} }
@ -1400,9 +1402,11 @@ sub sl {
### DEBUG DEBUG DEBUG ### DEBUG DEBUG DEBUG
if ($self->{_debug}) { if ($self->{_debug}) {
print "S-> $seconds $line\n"; print STDERR "S-> $seconds $line\n";
} }
print STDERR "S-> $seconds $line\n";
$self->schedule_output_event($seconds, \&sl_real, $line); $self->schedule_output_event($seconds, \&sl_real, $line);
} }
@ -1420,7 +1424,7 @@ sub sl_real {
### DEBUG DEBUG DEBUG ### DEBUG DEBUG DEBUG
if ($self->{_debug}) { if ($self->{_debug}) {
print ">>> $line\n"; print STDERR ">>> $line\n";
} }
return unless defined $self->socket; return unless defined $self->socket;

8
PBot/IRC/Event.pm
View File

@ -95,11 +95,11 @@ sub args {
sub dump { sub dump {
my ($self, $arg, $counter) = (shift, undef, 0); # heh heh! my ($self, $arg, $counter) = (shift, undef, 0); # heh heh!
printf "TYPE: %-30s FORMAT: %-30s\n", $self->type, $self->format; printf STDERR "TYPE: %-30s FORMAT: %-30s\n", $self->type, $self->format;
print "FROM: ", $self->from, "\n"; print STDERR "FROM: ", $self->from, "\n";
print "TO: ", join(", ", @{$self->to}), "\n"; print STDERR "TO: ", join(", ", @{$self->to}), "\n";
foreach $arg ($self->args) { foreach $arg ($self->args) {
print "Arg ", $counter++, ": ", $arg, "\n"; print STDERR "Arg ", $counter++, ": ", $arg, "\n";
} }
} }