#!/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.36 2002/04/12 18:54:17 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 <