1 files changed, 34 insertions, 0 deletions
diff --git a/web/html2x.pl b/web/html2x.pl
new file mode 100755
index 000000000..98c23dccc
--- /dev/null
+++ b/web/html2x.pl
@@ -0,0 +1,34 @@
+#!/usr/bin/env perl
+use CGI qw/:standard/;
+use CGI::Carp 'fatalsToBrowser';
+
+$CGI::POST_MAX=1024 * 100;  # max 100K posts
+$CGI::DISABLE_UPLOADS = 1;  # no uploads
+      
+if (param('url') && param('format')) {
+    $options = '--standalone --reference-links';	
+    $url = param('url');
+    $format = param('format') || 'markdown';
+    if ($format =~ '^markdown$') {
+      $options .= ' --strict';
+    }
+    if ($format =~ '^markdown\+$') {
+      $format = 'markdown';
+    }
+    $output = `wget -O- $url | tidy -asxhtml -utf8 | pandoc -r html -w $format $options`;
+    if ($format =~ "rtf") { 
+      $type = "application/rtf" 
+    } else { 
+      $type = "text/plain"
+    }; 
+	print header(-charset=>"utf8",-type=>"$type"),
+	      $output;
+} else {
+    print start_html(-title=>"html2x"),
+          h1("Usage"),
+          p("You have tried to call html2x.pl without the proper parameters."),
+          p("Please use <a href=\"/pandoc/html2x.html\">this form</a>."),
+          end_html();
+}
+
+