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

removing this, going to replace with factoid

Browse source
This commit is contained in:
Ryan Voots 2012-04-20 13:42:35 -04:00
parent af3c1a96aa
commit 0ae495157c
1 changed files with 0 additions and 33 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
plugins/tfw.pm
View file

@ -1,33 +0,0 @@
use strict;
use HTML::TreeBuilder;
use LWP::Simple qw/get/;
sub {
my( $said ) = @_;
my $location = $said->{body};
my $resp = get( "http://thefuckingweather.com/?zipcode=$location" );
my $tree = HTML::TreeBuilder->new_from_content( $resp );
my $body = $tree->look_down( _tag => 'body' );
my @elements = $body->content_list;
my $location = $elements[0];
my $weather = ($elements[1]->content_list)[0];
my $remark = $tree->look_down( id => 'remark' );
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/\?\!/?! /g;
my $remarktext = $remark->as_text;
$remarktext =~ s/\n/ /g;
print $location->as_text;
print " ";
print $weathertext;
print " ";
print '(', $remarktext, ')';
}