diff options
Diffstat (limited to 'web/mkdemos.pl')
-rwxr-xr-x | web/mkdemos.pl | 27 |
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; + +} |