diff options
| author | 2012-08-19 03:18:31 +0000 | |
|---|---|---|
| committer | 2012-08-19 03:18:31 +0000 | |
| commit | 5a2a23c2f57c35e53d295a6dc9e69cd9c1487661 (patch) | |
| tree | fdbd0e8449d24b0afb81d1711c927a42365b5caa /modules/command.pl | |
| parent | 00388b3da10335fd4c315e71000dfe1e2b27f473 (diff) | |
utilize debug printer, and import Data::Dumper so that I don't have to do that all the time when using ;ev
Diffstat (limited to 'modules/command.pl')
| -rw-r--r-- | modules/command.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/modules/command.pl b/modules/command.pl index ded53a5..3acaedd 100644 --- a/modules/command.pl +++ b/modules/command.pl @@ -1,8 +1,10 @@ package ASM::Commander; + use warnings; use strict; use IO::All; use POSIX qw(strftime); +use Data::Dumper; sub new { @@ -33,7 +35,7 @@ sub command next unless (grep {$_ eq $command->{flag}} split('', $::users->{person}->{$acct}->{flags})); #make sure the requester has the needed flags } if ($cmd=~/$command->{cmd}/) { - print strftime("%F %T ", gmtime) . "$event->{from} told me: $cmd \n"; + ASM::Util->dprint("$event->{from} told me: $cmd", "commander"); eval $command->{content}; warn $@ if $@; last; |
