summaryrefslogtreecommitdiffstats
path: root/modules
diff options
context:
space:
mode:
authorLibravatarWilliam Heimbigner <william.heimbigner@gmail.com>2012-08-19 03:18:31 +0000
committerLibravatarWilliam Heimbigner <william.heimbigner@gmail.com>2012-08-19 03:18:31 +0000
commit5a2a23c2f57c35e53d295a6dc9e69cd9c1487661 (patch)
treefdbd0e8449d24b0afb81d1711c927a42365b5caa /modules
parent00388b3da10335fd4c315e71000dfe1e2b27f473 (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')
-rw-r--r--modules/command.pl4
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;