From: ISHIKAWA Mutsumi Date: Wed, 17 Oct 2012 18:28:48 +0000 (+0900) Subject: update command regrx X-Git-Url: http://git.osdn.net/view?p=mubot4fb%2Fmubot4fb.git;a=commitdiff_plain;h=b2d0fbff65986327ee43053a917afd41ba8ff106 update command regrx --- diff --git a/mubot4fb.pl b/mubot4fb.pl index 610eff2..000acc3 100755 --- a/mubot4fb.pl +++ b/mubot4fb.pl @@ -252,11 +252,11 @@ sub said { if ($args->{body} =~ /$mu_re/) { $resp_msg = $me->_add($args) unless ($1 eq 'deb'); - } elsif ($args->{body} =~ /^ふみくん (.+)/) { + } elsif ($args->{body} =~ /^ふみくん\s+(.+)\s*$/) { my $cmd = $1; if ($cmd eq 'いまのなし') { $resp_msg = $me->_delete_prev($args); - } elsif ($cmd =~ /削除 ([0-9]+)$/) { + } elsif ($cmd =~ /削除\s+(?:$me->{cfg}->{fb_page_url}posts\/)?([0-9]+)$/) { $resp_msg = $me->_delete_post_id($args, $1); } elsif ($cmd =~ /\?$/) { $resp_msg = $me->_search_start($args);