diff options
Diffstat (limited to 'web')
-rwxr-xr-x | web/html2x.pl | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/web/html2x.pl b/web/html2x.pl deleted file mode 100755 index 86f71196e..000000000 --- a/web/html2x.pl +++ /dev/null @@ -1,40 +0,0 @@ -#!/usr/bin/env perl -use strict; -use CGI qw/:standard/; -use CGI::Carp 'fatalsToBrowser'; - -$CGI::POST_MAX=1024 * 100; # max 100K posts -$CGI::DISABLE_UPLOADS = 1; # no uploads - -param('url') && param('format') or die "Missing url and/or format parameters.\n"; - -my $options = '-r html --standalone --reference-links'; -my $url = param('url'); -my $format = param('format') || 'markdown'; -if ($format =~ /^markdown$/) { - $options .= ' --strict'; -} -if ($format =~ /^markdown\+$/) { - $format = 'markdown'; -} - -# Validate URL and format -unless ($url =~ /^(https?:\/\/)?[\w#_-]+(\.[\w#_-]+)+(:\d+)?[\w\/#=:?_.-]*$/) { - die "Illegal URL: $url\n" ; -} -unless ($format =~ /^markdown\+?|rst|latex|context|rtf|man|docbook$/) { - die "Illegal format: $format\n"; -} - -# Note - pass through head to truncate file to 100K if greater. -# This should prevent certain kinds of DoS attacks. -my $output = `wget -O- $url | head -c100000 | tidy -asxhtml -utf8 | pandoc -w $format $options`; -if ($output =~ /^\s*$/) { - print start_html, - h1("No output"), - p("Either $url could not be retrieved, or its HTML was too malformed to parse."), - end_html; - exit 0; -} -print header(-charset=>"utf8",-type=>"text/plain"), - $output; |