summaryrefslogtreecommitdiff
path: root/www/txt2html.pl
diff options
context:
space:
mode:
Diffstat (limited to 'www/txt2html.pl')
-rwxr-xr-xwww/txt2html.pl28
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
5sub fixline {
6 # change blank lines to &nbsp
7 $_ =~ s/^\s*$/\ \n/g;
8
9 $_ =~ s/\</&lt;/g;
10 $_ =~ s/\>/&gt;/g;
11
12 $_ =~ s/(http:\/\/([a-zA-Z0-9_.\#\/-\?\&]*)[^\) .\n])/\<a href=\"$1\"\>$1\<\/a\>/g;
13
14 $_ =~ s/(\\|\/)$/$1&nbsp;/g; # clobber backslash on end of line
15}
16
17while(<STDIN>) {
18 fixline($_);
19 push @p, "$_";
20}
21
22print "<pre>\n";
23print @p;
24print "</pre>\n";
25
26
27
28