[SimBot-commits] CVS: simbot/plugins tinyurl.pl,1.7,1.8
Status: Abandoned
Brought to you by:
kstange
|
From: Pete P. <fou...@us...> - 2005-07-18 00:23:41
|
Update of /cvsroot/simbot/simbot/plugins In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26795/plugins Modified Files: tinyurl.pl Log Message: added shorterlink.com, shorterlink.co.uk, babyurl.com, biglink.com Index: tinyurl.pl =================================================================== RCS file: /cvsroot/simbot/simbot/plugins/tinyurl.pl,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -p -r1.7 -r1.8 --- tinyurl.pl 18 Jul 2005 00:03:41 -0000 1.7 +++ tinyurl.pl 18 Jul 2005 00:23:23 -0000 1.8 @@ -77,6 +77,8 @@ EOT qr%(http://([\S]+\.)?url123\.com/[\S]+)%, qr%(http://[\S+]\.v3\.net)%, qr%(http://heh\.pl/[\S]+)%, + qr%(http://shorterlink\.(com|co\.uk)/[\S]+)%, + qr%(http://(biglink|babyurl)\.com/[\S]+)%, ); # makeashorterlink.com aka masl.to doesn't work as it doesn't use # http redirects. Doesn't matter, as it warns you where you're about to @@ -131,7 +133,7 @@ sub handle_chat { # not a HTTP redirect, maybe a META? if($response->content =~ m{<meta http-equiv="refresh" content="(.*?)"}) { $to_url = $1; - $to_url =~ s/^\d+\;//g; + $to_url =~ s/^\d+\s*\;//g; $to_url =~ s/^URL=//g; $db_insert_query->execute($url, $to_url); |