update command regrx

diff --git a/mubot4fb.pl b/mubot4fb.pl
index 610eff2..000acc3 100755 (executable)
--- 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);