Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-08 00:15:42 -04:00
Code Issues Releases Wiki Activity

fixed tfw

Browse source
This commit is contained in:
Ryan Voots 2010-12-07 13:18:14 -05:00
parent 57ed5ce046
commit 94d9a06ee9
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
plugins/tfw.pm
View file

@ -20,9 +20,10 @@ sub {
my $remark = $tree->look_down( id => 'remark' ); my $remark = $tree->look_down( id => 'remark' );
my $weathertext = $weather->as_text; my $weathertext = $weather->as_text;
$weathertext =~ s/\n/ /g; #filter them so when it goes ITS FUCKING NICE\nAND THUNDERING it'll display properly $weathertext =~ s/\n/ /g; #filter them so when it goes ITS FUCKING NICE\nAND THUNDERING it'll display properly
my $remarktext = $remark->as_text; $weathertext =~ s/\?\!/?! /g;
$remarktext =~ s/\n/ /g; my $remarktext = $remark->as_text;
$remarktext =~ s/\n/ /g;
print $location->as_text; print $location->as_text;
print " "; print " ";