fix fb page url

add new command

diff --git a/mubot4fb.pl b/mubot4fb.pl
index 5fb33f4..e7f1840 100755 (executable)
--- a/mubot4fb.pl
+++ b/mubot4fb.pl
@@ -59,7 +59,7 @@ sub publish {
 sub post_uri {
        my ($me, $post_id) = @_;
 
-       return $me->{cfg}->{fb_page_url} . 'posts/' . $post_id;
+       return $me->{cfg}->{fb_page_url} . '/posts/' . $post_id;
 }
 
 sub remove {
@@ -353,12 +353,16 @@ sub said {
                my $cmd = $1;
                if ($cmd eq 'いまのなし') {
                        $resp_msg = $me->_remove_prev($args);
-               } elsif ($cmd =~ /削除\s+(?:$me->{cfg}->{fb_page_url}posts\/)?([0-9]+)$/) {
+               } elsif ($cmd =~ /削除\s+(?:$me->{cfg}->{fb_page_url}\/posts\/)?([0-9]+)$/) {
                        $resp_msg = $me->_remove($args, $1);
                } elsif ($cmd =~ /\?$/) {
                        $resp_msg = $me->_search_start($args);
                } elsif ($cmd =~ /つぎ/) {
                        $resp_msg = $me->_search_next($args);
+               } elsif ($cmd =~ /どこ/) {
+                       $resp_msg = $args->{who}.': ここ ' . $me->{cfg}->{fb_page_url};
+               } else {
+                       $resp_msg = $args->{who}.': ん? (' . strftime('%Y-%m-%d %H:%M:%S', localtime) . ')';
                }
        }