#!/usr/local/bin/perl
# -*- perl -*-
#
# dclhidx2html 
# based on jvulcanize : japanese enhancement of VULCANIZE
#
# Sloppy job of mostly converting LaTeX documents to HTML
#
# Modified Version by numaguti@nies.go.jp (94/02/04)
# Modified Version by numaguti@nies.go.jp (95/08/28); dennou version
#
$lang = "Japanese";

# chop($maildomain = `domainname`); 
# $maildomain =~ s/[^\.]*.(.*)/$1/;
# $maildomain= "nies.go.jp";
chop($maildomain = `hostname`);
$address = $ENV{'MAILADDRESS'};
if ($address eq "") { $address = $ENV{'USER'} . '@' . $maildomain; }
#$myname= "www-admin";
$myname  = $ENV{'MYNAME'};
#$www_home= 'http://www.gfdl.gov/~a1n/';
$www_home= $ENV{'WWW_HOME'};

eval "\$$1=\$2" while $ARGV[0] =~ /^(\w+)=(.*)/ && shift;

$chapicon = "\/icons\/ball.xbm" unless defined($chapicon);
$backicon = "\/icons\/back.xbm" unless defined($backicon);
if (defined($refdir)) {
   $chapicon = "$refdir/$chapicon" unless ($chapicon =~ /^\//);
   $backicon = "$refdir/$backicon" unless ($backicon =~ /^\//);
}
if (defined($xbmrefdir)) {
   $chapicon = "$xbmrefdir/$chapicon" unless ($chapicon =~ /^\//);
   $backicon = "$xbmrefdir/$backicon" unless ($backicon =~ /^\//);
}

print  "<title>Index for $title</title>\n",
          "<!--  Generated by dclhidx2html >\n",
          "<H1><img src=\"$chapicon\">\n",
          "Index for $title</H1>\n\n" ;

print "<UL>\n";
while (<>) {
      if(s/\\jvul_label\{([^}]*)\}\{([^}]*)\}\{([^\n]*)\}\n//) {
           $label=$1; $text=$3; $file=$2;
           $file = "$refdir/$file" if defined($refdir);
           if($text =~ /^\[/) { $text=""; }
           $text =~ s/\\//g;
           print "<LI><a href=\"$file#$label\">$label<\/a>: $text\n";
      }
}

print "</UL>\n";


if ($backto ne "") { 
        $backto = "<P><HR>\n<h2><a href=\"$backto\">" .
	          "<img src=\"$backicon\"> Back to Main</a></h2>\n";
	print $backto;
}                   

if ($author ne "") { $signature = "$author : $date<P>\n"; }
chop($modified = "Last Modified: " . `date`); 


print      "<P><HR>$signature",
           "<ADDRESS><a href=\"$www_home\">\n",
           "$myname &lt;$address&gt;</a></ADDRESS>\n",
	   "<!-- hhmts start -->\n",
           "$modified<p>\n",
	   "<!-- hhmts end -->\n";

__END__

