#! /usr/bin/perl
#  $Id:$ 
# ------------------------------------------------------------------------
#   Convert list of HEP members from table to bulleted list for
#  browsers that can't handle tables properly.  
# 
#  Author : G.J.Crone
# 
#  $Log:$
#
# ------------------------------------------------------------------------
$input_file = $ARGV[0] ;

if ($#ARGV eq 1)
{
    $output_file = $ARGV[1] ;
}

# OK now try and open the input file.
open (INPUT, $input_file) or die "Error opening $input_file" ;

# Now try and work out the name of the output file
if ("$output_file" eq "")
{
    $OUTPUT = ">$input_file" ;
    if ($OUTPUT =~ m/.html$/)
    {
        $OUTPUT =~ s//.notable/ ;
    }
    else
    {
        $OUTPUT = "$OUTPUT.html" ;
    }
}
else
{
    $OUTPUT = ">$output_file" ;
}

open (OUTPUT) or die "Error opening $OUTPUT" ;

$in_table = 0 ;
$cell = 0 ;

while (<INPUT>)
{
    chomp ($_) ;

    if (m/<TAB/i)
    {
        $in_table = 1 ;
        $cell = 0 ;
        s/<TAB.*>/<UL>/i ;
    }


    if (m^</TAB^i)
    {
        $in_table = 0 ;
        s^</TAB.*>^</UL>^i ;
    }

    if (m^<TH^i)
    {
        s^<TH.*/TH>^^ig ;
    }

    if (($cell != 0) && (m^<TR>^i))
    {
        $cell = 0 ;
    }

    s=<TR>==i ;
    s=</TR>==ig ;
    s=</*TH.*>==ig ;

    if ($in_table && m^<H[1-6]^)
    {
        s^<H^</UL>\n<H^i ;
    }

    if ($in_table && m^</H[1-6]^)
    {
        s^(</H[1-6]>)^$1\n<UL>^i ;
    }

    until (!m=<TD[^>]*>=i)
    {
        if ($cell == 0)
        {
            s^<TD>^<LI><STRONG>^i ;
            s^</TD>^</STRONG>^i ;
        }
        elsif ($cell == 2)
        {
            s=<TD[^>]*>=<EM>=i ;
            s=</TD>=</EM>=i ;
        }
        else
        {
            s^<TD>^^i ;
            s^</TD>^^i ;
        }
        $cell++ ;
    }

    if (!m/^[ \t]*$/)
    {
        print OUTPUT "$_\n" ;
    }
}
close (INPUT);
close (OUTPUT);