#!/usr/bin/perl -w

use strict;
use File::Basename;

my $rcs = '$Id: formatav.pl,v 1.6 2000/10/20 03:06:30 gilles Exp $ ' ; # ';

my $myself = $0;
my $date = scalar(localtime());

my %formats = (
	       html  => 'HTML',
	       htm   => 'HTM',
	       ps    => 'PostScript',
	       pdf   => 'PDF',
	       sgml  => 'SGML',
	       txt   => 'ASCII',
	       tex   => 'TeX',
	       lyx   => 'LyX',
	       info  => 'Info',
	      );


usage(), exit unless @ARGV;

my $file = basename(shift(@ARGV), '.sgml');


print <<EOF;
<!-- generated with $0 $file -->
<!-- Date    : $date -->
EOF

foreach my $format (keys(%formats)) {
	print <<EOF;
	<htmlurl 
	  url="../$format/${file}.${format}"
	    name="$formats{$format}">
EOF
}

print <<EOF;
	<htmlurl 
	  url="../man/${file}.1"
	    name="man">
EOF
print <<EOF;
<!-- End of  $0 $file -->
EOF

sub usage {
	print <<EOF;
  usage    : $0 file with or without ".sgml" extention
  examples : $0 ./sgml/Model.en
        or : $0 ./sgml/Model.en.sgml # same result
EOF
}