X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=Documentation%2Ftxt2pre;h=acc6ca94bb484a42ee57f5d43aaead53f81d8600;hb=f76f265a851944b5dedcc3be5f3b5224b6ebda89;hp=f84f9c0685ece45da6dcdc555ce343cc43ce7e08;hpb=6a414a4087a59ad8c62cbef30984632ea31ced23;p=public-inbox.git diff --git a/Documentation/txt2pre b/Documentation/txt2pre index f84f9c06..acc6ca94 100755 --- a/Documentation/txt2pre +++ b/Documentation/txt2pre @@ -1,5 +1,5 @@ #!/usr/bin/env perl -# Copyright (C) 2014, Eric Wong and all contributors +# Copyright (C) 2014-2015 all contributors # License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt) # # Stupid script to make HTML from preformatted, utf-8 text versions, @@ -17,7 +17,7 @@ my ($title) = ($str =~ /\A([^\n]+)/); # temporarily swap > for escape so our s!! to add href works. # there's probably a way to do this with only a single s!! ... $str =~ s!>!\e!g; -$str =~ s!\b(https?://[\w+\+\&\?\.\%\;/-]+)!$1!g; +$str =~ s!\b((ftp|https?)://[\w+\+\&\?\.\%\;/#-]+)!$1!g; $str =~ s!\e!>!g; # swap escapes back to > print '',