diff options
| author |   William Heimbigner <william.heimbigner@gmail.com> | 2011-04-26 17:42:42 +0000 |
|---|---|---|
| committer | William Heimbigner <william.heimbigner@gmail.com> | 2011-04-26 17:42:42 +0000 |
| commit | aa421a2d56c5bdfb467eddaba478e5aef04bbce4 (patch) | |
| tree | 19227ab5338617627d11f71815bb4a939d203531 /modules/command.pl | |
| parent | 19aa221058512854b805994803e91214cd094b40 (diff) | |
Lots of added stuff. Don't know whatall.
Diffstat (limited to 'modules/command.pl')
| -rw-r--r-- | modules/command.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/modules/command.pl b/modules/command.pl index 07ef31e..889a3de 100644 --- a/modules/command.pl +++ b/modules/command.pl @@ -2,6 +2,7 @@ package ASM::Commander; use warnings; use strict; use IO::All; +use POSIX qw(strftime); sub new { @@ -41,7 +42,7 @@ sub command } } if ($cmd=~/$command->{cmd}/) { - print "$event->{from} told me: $cmd \n"; + print strftime("%F %T ", gmtime) . "$event->{from} told me: $cmd \n"; eval $command->{content}; warn $@ if $@; last; |