[SimBot-commits] CVS: simbot/plugins tinyurl.pl,1.7,1.8

[Pete P. <fou...@us...>]

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);