chop URLS longer than 60 characters

git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@66 13eb9ef6-21d5-0310-b721-a9d68796d827

diff --git a/back2html.pm b/back2html.pm
index 73ea7e9..a5c654a 100644 (file)
--- a/back2html.pm
+++ b/back2html.pm
@@ -11,7 +11,13 @@ sub back2html {
        foreach $line (split(/###/,$html)) {
                $out .= "<tr><td>";
                my @items = split(/#-#/,$line);
-               $items[1] =~ s#(.*)\b(http://[\w\./]+)(\b?.*)#$1<a href=\"$2\">$2</a>$3#g;
+               if ($items[1] =~ m#(http://[\S]+)\s*.*?#i) {
+                       my $url = $1;
+                       # chop URLS longer than 60 characters
+                       my $url = substr($1,0,60);
+                       $url .= "..." if (length($1) > 60);
+                       $items[1] =~ s#(.*)\b(http://[\S]+)(\b?.*)#$1<a href=\"$2\">$url</a>$3#g;
+               }
                $out .= join("</td><td>",@items);
                $out .= "</td></tr>\n";
        }