21 |
my $url = shift || die "mkurl needs url as argument"; |
my $url = shift || die "mkurl needs url as argument"; |
22 |
# chop URLS longer than ... characters |
# chop URLS longer than ... characters |
23 |
my $txturl = substr($1,0,40); |
my $txturl = substr($1,0,40); |
24 |
$txturl .= "..." if (length($1) > 40); |
my $title = ''; |
25 |
return "<a href=\"$url\">$txturl</a>"; |
if (length($1) > 40) { |
26 |
|
$txturl .= "..."; |
27 |
|
$title = " title=\"$url\""; |
28 |
|
} |
29 |
|
return "<a href=\"$url\"$title>$txturl</a>"; |
30 |
} |
} |
31 |
$items[1] =~ s#(http://[\S]+)#mkurl($1)#gie; |
$items[1] =~ s#(http://[\S]+)#mkurl($1)#gie; |
32 |
$out .= join("</td><td>",@items); |
$out .= join("</td><td>",@items); |
37 |
$out =~ s,<b>,<b>,gi; |
$out =~ s,<b>,<b>,gi; |
38 |
$out =~ s,</b>,</b>,gi; |
$out =~ s,</b>,</b>,gi; |
39 |
# put <a href=xxx>yyyy</a> back into html |
# put <a href=xxx>yyyy</a> back into html |
40 |
sub mkurl_param($$$$) { |
sub mkurl_param($$$$$) { |
41 |
my ($a_href,$url,$text,$a_end) = @_; |
my ($a_href,$url,$text,$a_end, $url_params) = @_; |
42 |
if ($url_params) { |
if ($url_params) { |
43 |
if ($url =~ m#\?#) { |
if ($url =~ m#\?#) { |
44 |
$url .= "&".$url_params; |
$url .= "&".$url_params; |
48 |
} |
} |
49 |
return '<'.$a_href.'"'.$url.'">'.$text.'<'.$a_end.'>'; |
return '<'.$a_href.'"'.$url.'">'.$text.'<'.$a_end.'>'; |
50 |
} |
} |
51 |
$out =~ s#<(a\s+href=)['"]*(.+?)['"]*>(.+?)<(/a)>#mkurl_param($1,$2,$3,$4)#gsie; |
$out =~ s#<(a\s+href=)['"]*(.+?)['"]*>(.+?)<(/a)>#mkurl_param($1,$2,$3,$4,$url_params)#gsie; |
52 |
return $out; |
return $out; |
53 |
} |
} |
54 |
|
|