#!/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.35 2002/01/11 08:07:44 gilles Exp $ ' ; # '; my($buttons, $notidy); my $SEPARATOR = "."; # it use to be "-" GetOptions( "buttons" => \$buttons, "notidy" => \$notidy, "incd:s" => \$incd, ); my $imageButtons = (defined($buttons)) ? "--imagebuttons" : ''; $incd = (defined($incd)) ? $incd : './include'; print < \$\@ EOF print < ../\$\@ ;\\ rm -f tmp.html tmp.sgml EOF } print <