--- 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$2<\/a>/g;
+
+ #my $p_url = "$no_quote(http[s]??:\/\/$p_urlchars+)::??(.+?)??";
+ #$payload =~ s/$p_url/$1$2<\/a>/g;
+
+ my $p_url = "$no_quote(http[s]??:\/\/$p_urlchars+)";
+ $payload =~ s/$p_url/$1$2<\/a>/g;
#$payload =~ s/(\w+::\w+)+/$1<\/b><\/font>/g;
#$payload =~ s/(\w+::\w+)+/$1<\/a><\/b><\/font>/g;