1 files changed, 27 insertions, 0 deletions
diff --git a/web/mkdemos.pl b/web/mkdemos.pl
new file mode 100755
index 000000000..02e5da2f6
--- /dev/null
+++ b/web/mkdemos.pl
@@ -0,0 +1,27 @@
+#!/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);
+        print STDERR "$command";
+        system "$command";
+        $line = $command;
+        $line =~ s/-/\-/;
+        $line =~ s/ ([A-Za-z0-9_:\/]+(\.|\/)[a-zA-Z0-9.\/]*|README|S5DEMO)/ <a href="$1">$1<\/a>/g;
+        $line =~ s/-/\\-/g;
+        $line =~ s/^(.*)$/    <code>$1<\/code>/g;        
+    }
+    print OUT $line;
+
+}