#!/opt/internet/bin/perl `mv .order order.b`; open (OUTFILE, "/dev/null"); `[ -f .env ] && mv .env env.b`; open (ENVFILE, ">.env"); `> .order`; open (INFILE, "< $ARGV[0]"); while () { if ( (/^.caption/ ) || (/^.capsize/ ) || (/^.topframesz/ ) ){ print ENVFILE $_; next;} if (/(^.BP)\s*(..*)/ ){ close OUTFILE; `[ -f $2.htm ] && rm $2.htm`; #`[ -f $2 ] && mv $2 $2.b`; `echo $2 >> .order`; open (OUTFILE,">> $2"); next;} { print OUTFILE $_ ; } } close OUTFILE; close ENVFILE; `dirslide $ARGV[1] ; rm env.o`; `cleandir`; `chh *`;