Parent Directory | Revision Log | Patch
revision 66 by dpavlin, Fri Jul 4 23:28:17 2003 UTC | revision 72 by dpavlin, Sat Jul 5 22:03:21 2003 UTC | |
---|---|---|
# | Line 12 sub back2html { | Line 12 sub back2html { |
12 | $out .= "<tr><td>"; | $out .= "<tr><td>"; |
13 | my @items = split(/#-#/,$line); | my @items = split(/#-#/,$line); |
14 | if ($items[1] =~ m#(http://[\S]+)\s*.*?#i) { | if ($items[1] =~ m#(http://[\S]+)\s*.*?#i) { |
my $url = $1; | ||
15 | # chop URLS longer than 60 characters | # chop URLS longer than 60 characters |
16 | my $url = substr($1,0,60); | my $url = substr($1,0,60); |
17 | $url .= "..." if (length($1) > 60); | $url .= "..." if (length($1) > 60); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |