Removed web directory.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1927 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 0 insertions, 32 deletions

diff --git a/web/mkdemos.pl b/web/mkdemos.pl
deleted file mode 100755
index 5009bd965..000000000
--- a/web/mkdemos.pl
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl -w
-# first argument is input filename - a demo template.
-# second argument is output filename.
-
-my $infile=$ARGV[0];
-my $outfile=$ARGV[1];
-
-open( IN, "< $infile" );
-open( OUT, "> $outfile" );
-
-while (<IN>) {
-
-    my $line = $_;
-    my $firstchar = substr ($line,0,1);
-    if ( $firstchar eq '@' ) {
-        my $command = substr ($line,4);
-        my $commandExec = $command;
-        $commandExec =~ s/[#].*$//g;  # strip off comments
-        $commandExec =~ s/@@//g;   # strip off hotlink markers
-        print STDERR "$commandExec";
-        system "$commandExec";
-        $line = $command;
-        $line =~ s/@@([^@]*)@@/<a href="$1">$1<\/a>/g;
-        $line =~ s/^(.*)$/    <pre><code>$1<\/code><\/pre>/g;        
-        if ( $line =~ /(example\d+\.html)<\/a><\/code>/m ) {
-            $line .= "\n    (View [`$1` as a web page]($1).)\n";
-        }
-    }
-    print OUT $line;
-
-}
-