--- nfo/perl/scripts/twingle/twingle.pl	2003/02/26 22:51:00	1.1
+++ nfo/perl/scripts/twingle/twingle.pl	2003/02/26 23:20:46	1.2
@@ -1,9 +1,12 @@
 #!/usr/bin/perl
 
 ## ----------------------------------------------------------------------
-##  $Id: twingle.pl,v 1.1 2003/02/26 22:51:00 joko Exp $
+##  $Id: twingle.pl,v 1.2 2003/02/26 23:20:46 joko Exp $
 ## ----------------------------------------------------------------------
 ##  $Log: twingle.pl,v $
+##  Revision 1.2  2003/02/26 23:20:46  joko
+##  - url-anchors disabled for now
+##
 ##  Revision 1.1  2003/02/26 22:51:00  joko
 ##  + initial commit
 ##
@@ -82,8 +85,12 @@
     # FIXME: allow "\s" inside urls! (guess it's unallowed by html-standard, but just do it!)
     my $p_urlchars = '[\w|\.|\/|\-|~|%|\?|&|=|:]';
     #my $p_url_querychars = '[]';
-    my $p_url = "$no_quote(http[s]??:\/\/$p_urlchars+)::??(.+?)??";
-    $payload =~ s/$p_url/$1<a href="$2#$3" target="_blank">$2<\/a>/g;
+    
+    #my $p_url = "$no_quote(http[s]??:\/\/$p_urlchars+)::??(.+?)??";
+    #$payload =~ s/$p_url/$1<a href="$2#$3" target="_blank">$2<\/a>/g;
+
+    my $p_url = "$no_quote(http[s]??:\/\/$p_urlchars+)";
+    $payload =~ s/$p_url/$1<a href="$2" target="_blank">$2<\/a>/g;
     
     #$payload =~ s/(\w+::\w+)+/<font color="orange"><b>$1<\/b><\/font>/g;
     #$payload =~ s/(\w+::\w+)+/<font color="orange"><b><a href="$search_nfo_base$1" target="_blank">$1<\/a><\/b><\/font>/g;