|
|
@@ -78,7 +78,7 @@ $ua->max_redirects(5);
|
|
|
|
|
|
##########################
|
|
|
|
|
|
-#=cut
|
|
|
+=cut
|
|
|
hook before_dispatch => sub
|
|
|
{
|
|
|
my $c = shift;
|
|
|
@@ -90,7 +90,7 @@ hook after_dispatch => sub
|
|
|
my $c = shift;
|
|
|
say $c->res->to_string;
|
|
|
};
|
|
|
-#=cut
|
|
|
+=cut
|
|
|
|
|
|
###############################################
|
|
|
|
|
|
@@ -216,7 +216,7 @@ sub do_command
|
|
|
|
|
|
local($Data::Dumper::Terse) = 1;
|
|
|
|
|
|
- my ($c,@args) = split(/ /,$cmd);
|
|
|
+ my ($c,@args) = split(/\s+/,$cmd);
|
|
|
$c =~ s|^/||;
|
|
|
$c =~ s/\@MolDjinnBot$//;
|
|
|
|