/[cvs]/nfo/perl/scripts/twingle/twingle.pl
ViewVC logotype

Diff of /nfo/perl/scripts/twingle/twingle.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by joko, Wed Feb 26 22:51:00 2003 UTC revision 1.2 by joko, Wed Feb 26 23:20:46 2003 UTC
# Line 4  Line 4 
4  ##  $Id$  ##  $Id$
5  ## ----------------------------------------------------------------------  ## ----------------------------------------------------------------------
6  ##  $Log$  ##  $Log$
7    ##  Revision 1.2  2003/02/26 23:20:46  joko
8    ##  - url-anchors disabled for now
9    ##
10  ##  Revision 1.1  2003/02/26 22:51:00  joko  ##  Revision 1.1  2003/02/26 22:51:00  joko
11  ##  + initial commit  ##  + initial commit
12  ##  ##
# Line 82  sub twingle_to { Line 85  sub twingle_to {
85      # FIXME: allow "\s" inside urls! (guess it's unallowed by html-standard, but just do it!)      # FIXME: allow "\s" inside urls! (guess it's unallowed by html-standard, but just do it!)
86      my $p_urlchars = '[\w|\.|\/|\-|~|%|\?|&|=|:]';      my $p_urlchars = '[\w|\.|\/|\-|~|%|\?|&|=|:]';
87      #my $p_url_querychars = '[]';      #my $p_url_querychars = '[]';
88      my $p_url = "$no_quote(http[s]??:\/\/$p_urlchars+)::??(.+?)??";      
89      $payload =~ s/$p_url/$1<a href="$2#$3" target="_blank">$2<\/a>/g;      #my $p_url = "$no_quote(http[s]??:\/\/$p_urlchars+)::??(.+?)??";
90        #$payload =~ s/$p_url/$1<a href="$2#$3" target="_blank">$2<\/a>/g;
91    
92        my $p_url = "$no_quote(http[s]??:\/\/$p_urlchars+)";
93        $payload =~ s/$p_url/$1<a href="$2" target="_blank">$2<\/a>/g;
94            
95      #$payload =~ s/(\w+::\w+)+/<font color="orange"><b>$1<\/b><\/font>/g;      #$payload =~ s/(\w+::\w+)+/<font color="orange"><b>$1<\/b><\/font>/g;
96      #$payload =~ s/(\w+::\w+)+/<font color="orange"><b><a href="$search_nfo_base$1" target="_blank">$1<\/a><\/b><\/font>/g;      #$payload =~ s/(\w+::\w+)+/<font color="orange"><b><a href="$search_nfo_base$1" target="_blank">$1<\/a><\/b><\/font>/g;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed