diff options
Diffstat (limited to 'www/txt2html.pl')
-rwxr-xr-x | www/txt2html.pl | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/www/txt2html.pl b/www/txt2html.pl deleted file mode 100755 index 5a532cdead..0000000000 --- a/www/txt2html.pl +++ /dev/null | |||
@@ -1,28 +0,0 @@ | |||
1 | #!/usr/bin/perl | ||
2 | |||
3 | # this is really a faq2html and should only be used for this purpose | ||
4 | |||
5 | sub fixline { | ||
6 | # change blank lines to   | ||
7 | $_ =~ s/^\s*$/\ \n/g; | ||
8 | |||
9 | $_ =~ s/\</</g; | ||
10 | $_ =~ s/\>/>/g; | ||
11 | |||
12 | $_ =~ s/(http:\/\/([a-zA-Z0-9_.\#\/-\?\&]*)[^\) .\n])/\<a href=\"$1\"\>$1\<\/a\>/g; | ||
13 | |||
14 | $_ =~ s/(\\|\/)$/$1 /g; # clobber backslash on end of line | ||
15 | } | ||
16 | |||
17 | while(<STDIN>) { | ||
18 | fixline($_); | ||
19 | push @p, "$_"; | ||
20 | } | ||
21 | |||
22 | print "<pre>\n"; | ||
23 | print @p; | ||
24 | print "</pre>\n"; | ||
25 | |||
26 | |||
27 | |||
28 | |||