diff --git a/tools/readjson.pl b/tools/readjson.pl index 3ea35ea1848bab10dfab056b16a9893a77cb6684..a0f0831993b6d39cba12128822122b1ea62d06f7 100755 --- a/tools/readjson.pl +++ b/tools/readjson.pl @@ -37,6 +37,6 @@ sub on_start { print "$json\n"; # TODO: handle $content->{'msg'} - $kernel->post('IKC', 'post', 'poe://PlayBot/fbrecv/fbmsg', [ $content->{'author'}, $content->{'link'} ]); + $kernel->post('IKC', 'post', 'poe://PlayBot/fbrecv/fbmsg', [ $content->{'author'}, $content->{'msg'} ]); $kernel->post('IKC', 'shutdown'); } diff --git a/tools/readmail.pl b/tools/readmail.pl index 8273cb1951aa4988a08e177c58e6cbd703df7144..88a87cf2c8b2ccaa0ad57a4c4ca9a93908864d28 100755 --- a/tools/readmail.pl +++ b/tools/readmail.pl @@ -31,16 +31,15 @@ sub get_content { open (my $fh, "<", $file); $content{'msg'} = ''; - $content{'link'} = ''; while (<$fh>) { if (/^(.*) posted in NightIIEs/) { $content{'author'} = $1; } elsif (/^https:\/\/l.facebook.com\/l\/.*\/(.*)/) { - $content{'link'} .= ' '.$uri->decode($1); + $content{'msg'} .= ' '.$uri->decode($1); } elsif (/#/) { chomp; - $content{'msg'} .= $_; + $content{'msg'} .= ' '.$_; } }