#!/usr/bin/perl -w use Getopt::Long; my $myself = $0; my $date = scalar(localtime()); my $defaultLanguage="en"; my @languages = qw(en de nl fr es da no se pt ca it ro); my $rcs = '$Id: makerules.pl,v 1.29 2001/05/15 00:49:11 gilles Exp $ ' ; # '; my($buttons, $notidy); my $SEPARATOR = "."; # it use to be "-" GetOptions( "buttons" => \$buttons, "notidy" => \$notidy, ); my $imageButtons = (defined($buttons)) ? "--imagebuttons" : ''; print < \$\@ EOF print < ../\$\@ ;\\ rm -f tmp.html tmp.sgml EOF } print <