WebTitle adopted

tadzik · May 23, 2010 · 4ece89e · 4ece89e
1 parent 8b1b536
commit 4ece89e
Showing 1 changed file with 17 additions and 8 deletions.
diff --git a/a8bot/Plugin/WebTitle.pm b/a8bot/Plugin/WebTitle.pm
@@ -1,17 +1,26 @@
-package WebTitle;
+package a8bot::Plugin::WebTitle;
+use Moose;
 use LWP::Simple qw /get $ua/;
+use Sys::SigAction qw /timeout_call/;
+with 'a8bot::Plugin';
 
-sub init {
+sub BUILD {
-	return { publicmsg => \&pubmsg };
+	my $self = shift;
+	$self->passive_cb(sub { pubmsg(@_) });
 }
 
 sub pubmsg {
-	my ($bot, $data) = @_;
+	my (%data) = @_;
-	if ($data->{msg} =~ /(http:\/\/[^ ]+)/) {
+	if ($data{msg} =~ /(http:\/\/[^ ]+)/) {
 		$ua->max_size(1024);
-		my $site = get($1);
+		our $site;
-		my ($title) = $site =~ /<title>([^<]+)<\/title>/;
+		if (timeout_call(8, sub {$site = get($1)})){
-		return "[ $title ]" if $title;
+			return undef;
+		} else {
+			my ($title) = $site =~ /<title>([^<]+)<\/title>/i;
+			$title =~ s/\n/ /g;
+			return "[ $title ]" if $title;
+		}
 	}
 	return undef;
 }