#!/bin/bash

DIR=/tmp

if [ -z $DBI_DSN ]; then
	echo Warning: DBI_DSN not set for scripts/dbi.schema.pl.
fi

perl -Ilib scripts/Heawood.pl           png > $DIR/Heawood.log
perl -Ilib scripts/anonymous.pl         png > $DIR/anonymous.log
perl -Ilib scripts/circo.pl             png > $DIR/circo.log
perl -Ilib scripts/cluster.pl           png > $DIR/cluster.log
perl -Ilib scripts/dbi.schema.pl        png > $DIR/dbi.schema.log
perl -Ilib scripts/dependency.pl        png > $DIR/dependency.log
perl -Ilib scripts/html.labels.1.pl     png > $DIR/html.labels.1.log
perl -Ilib scripts/html.labels.2.pl     png > $DIR/html.labels.2.log
perl -Ilib scripts/jointed.edges.pl     png > $DIR/jointed.edges.log
perl -Ilib scripts/macro.1.pl           png > $DIR/macro.1.log
perl -Ilib scripts/macro.2.pl           png > $DIR/macro.2.log
perl -Ilib scripts/macro.3.pl           png > $DIR/macro.3.log
perl -Ilib scripts/macro.4.pl           png > $DIR/macro.4.log
perl -Ilib scripts/macro.5.pl           png > $DIR/macro.5.log
perl -Ilib scripts/parse.data.pl        png > $DIR/parse.data.log
perl -Ilib scripts/parse.html.pl        png > $DIR/parse.html.log
perl -Ilib scripts/parse.isa.pl         png > $DIR/parse.isa.log
perl -Ilib scripts/parse.recdescent.pl  png > $DIR/parse.recdescent.log
perl -Ilib scripts/parse.regexp.pl      png > $DIR/parse.regexp.log
perl -Ilib scripts/parse.stt.pl         png > $DIR/parse.stt.log
perl -Ilib scripts/parse.xml.bare.pl    png > $DIR/parse.xml.bare.log
perl -Ilib scripts/parse.xml.pp.pl      png > $DIR/parse.xml.pp.log
perl -Ilib scripts/parse.yacc.pl        png > $DIR/parse.yacc.log
perl -Ilib scripts/parse.yapp.pl        png > $DIR/parse.yapp.log
perl -Ilib scripts/plaintext.pl         png > $DIR/plaintext.log
perl -Ilib scripts/quote.pl             png > $DIR/quote.log
perl -Ilib scripts/rank.sub.graph.1.pl  png > $DIR/rank.sub.graph.1.log
perl -Ilib scripts/rank.sub.graph.2.pl  png > $DIR/rank.sub.graph.2.log
perl -Ilib scripts/rank.sub.graph.3.pl  png > $DIR/rank.sub.graph.3.log
perl -Ilib scripts/rank.sub.graph.4.pl  png > $DIR/rank.sub.graph.4.log
perl -Ilib scripts/record.1.pl          png > $DIR/record.1.log
perl -Ilib scripts/record.2.pl          png > $DIR/record.2.log
perl -Ilib scripts/record.3.pl          png > $DIR/record.3.log
perl -Ilib scripts/record.4.pl          png > $DIR/record.4.log
perl -Ilib scripts/sub.graph.pl         png > $DIR/sub.graph.log
perl -Ilib scripts/sub.graph.frames.pl  png > $DIR/sub.graph.frames.log
perl -Ilib scripts/sub.sub.graph.pl     png > $DIR/sub.sub.graph.log
perl -Ilib scripts/trivial.pl           png > $DIR/trivial.log
perl -Ilib scripts/unnamed.sub.graph.pl png > $DIR/unnamed.sub.graph.log
perl -Ilib scripts/utf8.1.pl            png > $DIR/utf8.1.log
perl -Ilib scripts/utf8.2.pl            png > $DIR/utf8.2.log

perl -Ilib scripts/generate.demo.pl png

# $DR is my web server's doc root.

PM=Perl-modules/html/graphviz2

cp html/* $DR/$PM
cp html/* ~/savage.net.au/$PM

echo Check the version number in the demo index