#!/usr/local/bin/perl
#   25-jun-99  palm@kiwin.com

require "ctime.pl";

$filename="NG-000.txt";
$meet = "NG";

open( OUT, ">00_doc_list.html" ) || die "Can't open file: html out\n";
open( ONTIME, "ontime_doc.txt" ) || die "Can't open file: ontime_doc.txt\n";

printf OUT "<HTML>\n";
printf OUT "<HEAD><TITLE>SG15/Q4 Aug 99 Doc List</title></head>\n";
printf OUT "<BODY bgcolor=white>\n";
printf OUT "<IMG SRC=itu.jpg ALIGN=RIGHT>\n";
printf OUT "<H1>SG15/Q4 Aug 99 (Nuremberg) Document List</H1><P><HR><P>\n";

printf OUT "<table border=1 cellpadding=5>\n<tr>\n";
printf OUT "<td width=33%%><a href=\"http://ties.itu.ch/ties-cgi/palm/docreq.shtml\" align=left border=0><img src=req.gif border=0 alt= ></a>\n";
printf OUT "<a href=\"http://ties.itu.ch/ties-cgi/palm/docreq.shtml\" align=right >Contribution Number Assignment</a>\n";
printf OUT "<td width=33%%><a href=\"http://ties.itu.ch/ties-cgi/palm/file-upload.shtml\" align=left border=0><img src=upload.gif border=0 alt= ></a>\n";
printf OUT "<a href=\"http://ties.itu.ch/ties-cgi/palm/file-upload.shtml\" align=right >Contribution File Upload</a>\n";
printf OUT "<td width=33%%><a href=\"00_local_info.html\" align=left border=0><img src=info.gif border=0></a>\n";
printf OUT "<a href=\"00_local_info.html\">Meeting & Local Info</a>\n";
printf OUT "</tr>\n<tr>\n";
printf OUT "<td><A href=http://www.itu.int/listarchive/tsg15q4/>Q4/15 Email archive</a>\n";
printf OUT "<td><a href=\"../00_SG15Q4_home_page.html\">Q4/15 home page</a>\n";
printf OUT "<td><a href=http://ties.itu.int/u/tsg15/sg15/sg15_index.htm>SG15 home page</a>\n";
printf OUT "</tr>\n<tr>\n";
printf OUT "<td><a href=\".\">Directory raw list</a>\n";
printf OUT "<td>Page contact:<br><a href=\"mailto: palm\@itu.ch\">Steve Palm (palm\@itu.ch)</a> <P> \n";
printf OUT "<td>Page generation:<br> %s JST<P>\n", &ctime(time);
printf OUT "</tr>\n</table>\n";

#printf OUT "<P><HR width = 50%%><P>\n";


printf OUT "<center>\n";

printf OUT "<p>Quick Jump to Agenda areas:<br>\n";
printf OUT "<Table>\n";

printf OUT "<tr><TD><A href=#shdsl>G.<font color=darkred>shdsl</font></a>\n";
printf OUT "    <TD><A href=#vdsl>G.<font color=magenta>vdsl</font></a>  \n";
printf OUT "    <TD><A href=#pnt>G.<font color=lightgreen>pnt</font></a> \n";
printf OUT "    <TD><A href=#admin>Admin</a> </tr> \n";

printf OUT "<tr><TD><A href=#hs.bis>G.<font color=gray>hs</font>.bis</a> \n";
printf OUT "    <TD><A href=#lite.bis>G.<font color=red>lite</font>.bis</a>\n";
printf OUT "    <TD><A href=#dmt.bis>G.<font color=orange>dmt</font>.bis</a>\n";
printf OUT "    <TD><A href=#gen>G.<font color=orange>gen</font> (all G.xdsls)</a> </tr>\n";

printf OUT "<tr><TD><A href=#test.bis>G.<font color=purple>test</font>.bis</a>\n";
printf OUT "    <TD><A href=#ploam.bis>G.<font color=green>ploam</font>.bis</a>\n";
printf OUT "    <TD><A href=#ipr>IPR</a>\n";
printf OUT "    <TD><A href=#ref.bis>G.ref.bis</a> </tr>\n";

printf OUT "</table>\n";
printf OUT "<P>\n";

printf OUT "</center>\n";

printf OUT "<Table border=1>\n";
printf OUT "<TR><TH>Num.<TH>Source<TH>Area<TH>Title<TH>Filename</TR>\n";

#printf OUT "<TR><TD>-<TD>Rapporteur Question 4/15<TD>Admin<TD>Aug 99 Document List<TD>\n";
#printf OUT "<A href=\"99-08-NG-doc-list.doc\">99-08-NG-doc-list.doc</a></TR>\n ";

#printf OUT "<TR><TD>-<TD>Steve Palm<TD>Admin<TD>Aug 99 Informal Document List<TD>\n";
#printf OUT "<A href=\"99-08-NG-doc-list.txt\">99-08-NG-doc-list.txt</a></TR>\n ";

#printf OUT "<TR><TD>-<TD>Rapporteur Question 4/15<TD>Admin<TD>Aug 99 Roster List<TD>\n";
#printf OUT "<A href=\"Roster-Aug99.doc\">Roster-Aug99.doc</a></TR>\n ";


#Read the list of ontime file uploads
@ontime = <ONTIME>;
#while (<ONTIME>) {
#  %ontime[$_] = 1;
#}
close( ONTIME );




$numdocs = 0;

open( TC_FILE, $filename ) || die "Can't open file: $filename\n";

#Read the doc list
while (<TC_FILE>) {

  $numdocs += 1;
  
  # Truncate the 8th bits
  tr/\200-\377/\000-\177/;

  # substitute color for some keywords
  s#G.hs#<font color=gray>G.hs</font>#gi;   
  s#G.994.1#<font color=gray>G.994.1</font>#gi;   
  s#G.lite#<font color=red>G.lite</font>#gi;   
  s#G.992.2#<font color=red>G.992.2</font>#gi;   
  s#G.gen#<font color=orange>G.gen</font>#gi;   
  s#G.dmt#<font color=orange>G.dmt</font>#gi;   
  s#G.992.1#<font color=orange>G.992.1</font>#gi;   
  s#G.test#<font color=purple>G.test</font>#gi;   
  s#G.996.1#<font color=purple>G.996.1</font>#gi;   
  s#G.ploam#<font color=green>G.ploam</font>#gi;   
  s#G.997.1#<font color=green>G.997.1</font>#gi;   
  s#G.vdsl#<font color=magenta>G.vdsl</font>#gi;   
  s#G.shdsl#<font color=darkred>G.shdsl</font>#gi;   
  s#G.pnt#<font color=lightgreen>G.pnt</font>#gi;   
  s#Withdrawn#<B><i>Withdrawn</i></B>#gi;   

  chop;
  ($num, $source, $title, $fname, $ituname) = split('\#');

  printf "X%sXXXX%sX \n", $num, $source;

  printf OUT "<TR>\n";
#  printf OUT "<TD>%03u\n", $num;
  printf OUT "<TD>%s\n", $num;
  printf OUT "<TD>%s\n", $source;
  
  #parse for the subject area in the Title
  ($area, $title2) = split(':',$title);
  printf OUT "<TD>%s\n", $area;
  printf OUT "<TD>%s", $title2;

  printf OUT "<TD>";
  printf OUT "<font color=orange>*</font> " if  grep (/$num/, @ontime); # Gold star
  printf OUT "Withdrawn" if ($title =~ /withdrawn/i) ;

  #check if various doc formats and revisions exist
  &exist_sub;

  printf OUT "</TR>\n\n";

} # while

printf OUT "</Table>\n";
close( TC_FILE );

printf OUT "Total Number of Documents = $numdocs<p>\n";


#Now make the Agenda...

open( TC_FILE, $filename ) || die "Can't open file 2nd time\n";

while (<TC_FILE>) {

  # Truncate the 8th bits
  tr/\200-\377/\000-\177/;

  chop;
  ($num, $source, $title, $fname, $ituname) = split('\#');

  #printf "X%sXXXX%sX \n", $num, $source;
  #parse for the subject area in the Title
  ($area, $title2) = split(':',$title);
  printf "Area: %s\n", $area;
  
  if ( $area eq 'Admin'  && !($title =~ /withdrawn/i) )  { $admin_string .= sprintf( "%s, ", $num );  }   
  if ( $area eq 'IPR'    && !($title =~ /withdrawn/i) )  { $ipr_string   .= sprintf( "%s, ", $num );  }   
  if ( $area eq 'G.shdsl'&& !($title =~ /withdrawn/i) )  { $shdsl_string .= sprintf( "%s, ", $num );  } 
  if ( $area eq 'G.vdsl' && !($title =~ /withdrawn/i) )  { $vdsl_string  .= sprintf( "%s, ", $num );  }
  if ( $area eq 'G.pnt'  && !($title =~ /withdrawn/i) )  { $pnt_string   .= sprintf( "%s, ", $num );  }

  if ( $area eq 'G.gen.bis'  && !($title =~ /withdrawn/i) )  { $gen_bis_string   .= sprintf( "%s, ", $num );  }
  if ( $area eq 'G.lite.bis' && !($title =~ /withdrawn/i) )  { $lite_bis_string  .= sprintf( "%s, ", $num );  }
  if ( $area eq 'G.ploam.bis'&& !($title =~ /withdrawn/i) )  { $ploam_bis_string .= sprintf( "%s, ", $num );  }
  if ( $area eq 'G.test.bis' && !($title =~ /withdrawn/i) )  { $test_bis_string  .= sprintf( "%s, ", $num );  }
  if ( $area eq 'G.dmt.bis'  && !($title =~ /withdrawn/i) )  { $dmt_bis_string   .= sprintf( "%s, ", $num );  }
  if ( $area eq 'G.hs.bis'   && !($title =~ /withdrawn/i) )  { $hs_bis_string    .= sprintf( "%s, ", $num );  }
  if ( $area eq 'G.ref.bis'  && !($title =~ /withdrawn/i) )  { $ref_bis_string   .= sprintf( "%s, ", $num );  }

  if ( $area eq 'G.gen'  && !($title =~ /withdrawn/i) )  { $gen_string   .= sprintf( "%s, ", $num );  }
  if ( $area eq 'G.lite' && !($title =~ /withdrawn/i) )  { $lite_string  .= sprintf( "%s, ", $num );  }
  if ( $area eq 'G.ploam'&& !($title =~ /withdrawn/i) )  { $ploam_string .= sprintf( "%s, ", $num );  }
  if ( $area eq 'G.test' && !($title =~ /withdrawn/i) )  { $test_string  .= sprintf( "%s, ", $num );  }
  if ( $area eq 'G.hdsl' && !($title =~ /withdrawn/i) )  { $hdsl_string  .= sprintf( "%s, ", $num );  } 
  if ( $area eq 'G.dmt'  && !($title =~ /withdrawn/i) )  { $dmt_string   .= sprintf( "%s, ", $num );  }
  if ( $area eq 'G.hs'   && !($title =~ /withdrawn/i) )  { $hs_string    .= sprintf( "%s, ", $num );  }
  if ( $area eq 'G.ref'  && !($title =~ /withdrawn/i) )  { $ref_string   .= sprintf( "%s, ", $num );  }

  if ( $area eq 'Other'  && !($title =~ /withdrawn/i) )  { $other_string .= sprintf( "%s, ", $num );  }

} # while


printf OUT "<HR width=50%%><P>\n";

printf OUT "<H2>Brief Agenda:</h2>\n";

printf OUT "<Table border=1>\n";
printf OUT "<TR><TH>Area<TH><TH>Contribution Numbers</TR>\n";

printf OUT "<TR><TD>Admin<TD><A href=#admin>details</a><TD>%s</tr>\n", $admin_string;
printf OUT "<TR><TD>IPR<TD><A href=#ipr>details</a><TD>%s</tr>\n", $ipr_string;

printf OUT "<TR><TD><font color=darkred>G.shdsl</font><TD><A href=#shdsl>details</a><TD>%s</tr>\n", $shdsl_string;
printf OUT "<TR><TD><font color=magenta>G.vdsl</font><TD><A href=#vdsl>details</a><TD>%s</tr>\n", $vdsl_string;
printf OUT "<TR><TD><font color=lightgreen>G.pnt</font><TD><A href=#pnt>details</a><TD>%s</tr>\n", $pnt_string;

printf OUT "<TR><TD><font color=red>G.lite.bis</font><TD><A href=#lite.bis>details</a><TD>%s</tr>\n", $lite_bis_string;
printf OUT "<TR><TD>G.ploam.bis<TD><A href=#ploam.bis>details</a><TD>%s</tr>\n",  $ploam_bis_string;
printf OUT "<TR><TD><font color=purple>G.test.bis</font><TD><A href=#test.bis>details</a><TD>%s</tr>\n",  $test_bis_string;
printf OUT "<TR><TD><font color=orange>G.dmt.bis</font><TD><A href=#dmt.bis>details</a><TD>%s</tr>\n", $dmt_bis_string;
printf OUT "<TR><TD><font color=gray>G.hs.bis</font><TD><A href=#hs.bis>details</a><TD>%s</tr>\n",  $hs_bis_string;
printf OUT "<TR><TD>G.ref.bis<TD><A href=#ref.bis>details</a><TD>%s</tr>\n", $ref_bis_string;
printf OUT "<TR><TD><font color=orange>G.gen</font> (all G.xdsl)<TD><A href=#gen>details</a><TD>%s</tr>\n", $gen_string;

#printf OUT "<TR><TD><font color=red>G.lite</font><TD>G.992.2<TD><A href=#lite>details</a><TD>%s</tr>\n", $lite_string;
#printf OUT "<TR><TD><font color=green>G.ploam</font><TD>G.997.1<TD><A href=#ploam>details</a><TD>%s</tr>\n",  $ploam_string;
#printf OUT "<TR><TD><font color=purple>G.test</font><TD>G.996.1<TD><A href=#test>details</a><TD>%s</tr>\n",  $test_string;
#printf OUT "<TR><TD>G.hdsl<TD>G.991.1<TD><A href=#hdsl>details</a><TD>%s</tr>\n", $hdsl_string;
#printf OUT "<TR><TD><font color=orange>G.dmt</font><TD>G.992.1<TD><A href=#dmt>details</a><TD>%s</tr>\n", $dmt_string;
#printf OUT "<TR><TD><font color=gray>G.hs</font><TD>G.994.1<TD><A href=#hs>details</a><TD>%s</tr>\n",  $hs_string;
#printf OUT "<TR><TD>G.ref<TD>G.995.1<TD><A href=#ref>details</a><TD>%s</tr>\n", $ref_string;
#printf OUT "<TR><TD><font color=orange>G.gen</font> (<font color=orange>G.dmt</font> & <font color=red>G.lite</font>)<TD>.<TD><A href=#gen>details</a><TD>%s</tr>\n", $gen_string;

#printf OUT "<TR><TD>Other<TD><A href=#other>details</a><TD>%s</tr>\n", $other_string;
printf OUT "</Table>\n<P>\n";

close( TC_FILE );


# Do each area
#  this really should be read once and sorted in memory... but for now
#  we read the file once for each area

######Area: Admin
printf OUT "<H2><A name=admin>Admin</h2>\n";
$area_name = "Admin";
&area_sub;

######Area: Liaison Statements
#printf OUT "<H2><A name=ls>Liaison Statements</h2>\n";
#$area_name = "LS";
#&area_sub_ls;

######Area: IPR
printf OUT "<H2><A name=ip>IPR</h2>\n";
$area_name = "IPR";
&area_sub;

######Area: G.lite.bis
printf OUT "<H2><A name=lite.bis><font color=red>G.lite.bis</font></h2>\n";
$area_name = "G.lite.bis";
&area_sub;

######Area: G.ploam.bis
printf OUT "<H2><A name=ploam.bis><font color=green>G.ploam.bis</font></h2>\n";
$area_name = "G.ploam.bis";
&area_sub;

######Area: G.test.bis
printf OUT "<H2><A name=test.bis><font color=purple>G.test.bis</font></h2>\n";
$area_name = "G.test.bis";
&area_sub;

######Area: G.dmt.bis
printf OUT "<H2><A name=dmt.bis><A name=dmt.bis><font color=orange>G.dmt.bis</font></h2>\n";
$area_name = "G.dmt.bis";
&area_sub;

######Area: G.hs.bis
printf OUT "<H2><A name=hs.bis><font color=gray>G.hs.bis</font></h2>\n";
$area_name = "G.hs.bis";
&area_sub;

######Area: G.ref.bis
printf OUT "<H2><A name=ref.bis>G.ref.bis</h2>\n";
$area_name = "G.ref.bis";
&area_sub;

######Area: G.shdsl
printf OUT "<H2><A name=shdsl><font color=darkred>G.shdsl</font></h2>\n";
$area_name = "G.shdsl";
&area_sub;

######Area: G.vdsl
printf OUT "<H2><A name=vdsl><font color=magenta>G.vdsl</font></h2>\n";
$area_name = "G.vdsl";
&area_sub;

######Area: G.pnt
printf OUT "<H2><A name=pnt><font color=green>G.pnt</font></h2>\n";
$area_name = "G.pnt";
&area_sub;

######Area: general
printf OUT "<H2><A name=gen><font color=orange>G.gen</font> (all G.xdsl)</h2>\n";
$area_name = "G.gen";
&area_sub;

######Area: G.other
#printf OUT "<H2><A name=other>Other</h2>\n";
#$area_name = "Other";
#&area_sub;


# Trailer

printf OUT "<HR width=50%><P>\n";

printf OUT "<P>\n";
printf OUT "This page is automatically generated by a <A href=http://www.perl.com>PERL</A> \n";
printf OUT "<A href=\"doc_list_html.pl\">script</a>.<BR> ";
printf OUT "Filenames should be of the form: NG-xxx.rtf, NG-xxxR1.rtf, NG-xxx.pdf, NG-xxx.zip, NG-xxxR1.zip \n";
printf OUT "with strict regards for case.\n";
printf OUT "<BR>RTF and DOC files over a few hundred k bytes should be ZIPped\n";

printf OUT "</body></html>\n";

exit;



sub area_sub {
  open( TC_FILE, $filename ) || die "Can't open file: $filename 2nd time\n";

  printf OUT "<Table border=1>\n";
#  printf OUT "<Table border=1 width=780>\n";
  printf OUT "<TR><TH width=5%%>Num.<TH width=20%%>Source<TH width=8%%>Area<TH width=47%%>Title<TH width=20%%>Filename</TR>\n";
#  printf OUT "<TR><TH>Num.<TH>Source<TH>Area<TH>Title<TH>Filename</TR>\n";

  while (<TC_FILE>) {

    # Truncate the 8th bits
    tr/\200-\377/\000-\177/;

    chop;
    ($num, $source, $title, $fname, $ituname) = split('\#');

    printf "X%sXXXX%sX \n", $num, $source;
    #parse for the subject area in the Title
    ($area, $title2) = split(':',$title);

    if ( $area eq $area_name && !($title =~ /withdrawn/i)  )     { 

       printf OUT "<TR>\n";
#       printf OUT "<TD>%03u\n", $num;
       printf OUT "<TD>%s\n", $num;
       printf OUT "<TD>%s\n", $source;
       printf OUT "<TD>%s\n", $area;
       printf OUT "<TD>%s", $title2;

       printf OUT "<TD>";
#       printf OUT "<font color=orange>*</font> " if  %ontime[$num]; # Gold star
       printf OUT "<font color=orange>*</font> " if  grep (/$num/, @ontime); # Gold star
       printf OUT "Withdrawn" if ($title =~ /withdrawn/i) ;

       #check if various doc formats and revisions exist
       &exist_sub;

       printf OUT "</TR>\n\n";

    }  # if

  } # while

  printf OUT "</table><P>\n";

  close( TC_FILE );

}




sub exist_sub {


  printf OUT "<A href=\"%s-%s.txt\">%s-%s.txt</a> ",     $meet, $num, $meet, $num if -e sprintf "%s-%s.txt", $meet, $num;
  printf OUT "<A href=\"%s-%s.zip\">%s-%s.zip</a> ",     $meet, $num, $meet, $num if -e sprintf "%s-%s.zip", $meet, $num;
  printf OUT "<A href=\"%s-%s.rtf\">%s-%s.rtf</a> ",     $meet, $num, $meet, $num if -e sprintf "%s-%s.rtf", $meet, $num;
  printf OUT "<A href=\"%s-%s.pdf\">%s-%s.pdf</a> ",     $meet, $num, $meet, $num if -e sprintf "%s-%s.pdf", $meet, $num;
  printf OUT "<A href=\"%s-%s.doc\">%s-%s.doc</a> ",     $meet, $num, $meet, $num if -e sprintf "%s-%s.doc", $meet, $num;

  printf OUT "<A href=\"%s-%sR1.zip\">%s-%sR1.zip</a> ", $meet, $num, $meet, $num if -e sprintf "%s-%sR1.zip", $meet, $num;
  printf OUT "<A href=\"%s-%sR1.rtf\">%s-%sR1.rtf</a> ", $meet, $num, $meet, $num if -e sprintf "%s-%sR1.rtf", $meet, $num;
  printf OUT "<A href=\"%s-%sR1.pdf\">%s-%sR1.pdf</a> ", $meet, $num, $meet, $num if -e sprintf "%s-%sR1.pdf", $meet, $num;
  printf OUT "<A href=\"%s-%sR1.doc\">%s-%sR1.doc</a> ", $meet, $num, $meet, $num if -e sprintf "%s-%sR1.doc", $meet, $num;

  printf OUT "<A href=\"%s-%sR2.zip\">%s-%sR2.zip</a> ", $meet, $num, $meet, $num if -e sprintf "%s-%sR2.zip", $meet, $num;
  printf OUT "<A href=\"%s-%sR2.rtf\">%s-%sR2.rtf</a> ", $meet, $num, $meet, $num if -e sprintf "%s-%sR2.rtf", $meet, $num;
  printf OUT "<A href=\"%s-%sR2.pdf\">%s-%sR2.pdf</a> ", $meet, $num, $meet, $num if -e sprintf "%s-%sR2.pdf", $meet, $num;
  printf OUT "<A href=\"%s-%sR2.doc\">%s-%sR2.doc</a> ", $meet, $num, $meet, $num if -e sprintf "%s-%sR2.doc", $meet, $num;

  printf OUT "<A href=\"%s-%sR3.zip\">%s-%sR3.zip</a> ", $meet, $num, $meet, $num if -e sprintf "%s-%sR3.zip", $meet, $num;
  printf OUT "<A href=\"%s-%sR3.rtf\">%s-%sR3.rtf</a> ", $meet, $num, $meet, $num if -e sprintf "%s-%sR3.rtf", $meet, $num;
  printf OUT "<A href=\"%s-%sR3.pdf\">%s-%sR3.pdf</a> ", $meet, $num, $meet, $num if -e sprintf "%s-%sR3.pdf", $meet, $num;
  printf OUT "<A href=\"%s-%sR3.doc\">%s-%sR3.doc</a> ", $meet, $num, $meet, $num if -e sprintf "%s-%sR3.doc", $meet, $num;

  printf OUT "<A href=\"%s-%sR4.zip\">%s-%sR4.zip</a> ", $meet, $num, $meet, $num if -e sprintf "%s-%sR4.zip", $meet, $num;
  printf OUT "<A href=\"%s-%sR4.rtf\">%s-%sR4.rtf</a> ", $meet, $num, $meet, $num if -e sprintf "%s-%sR4.rtf", $meet, $num;
  printf OUT "<A href=\"%s-%sR4.pdf\">%s-%sR4.pdf</a> ", $meet, $num, $meet, $num if -e sprintf "%s-%sR4.pdf", $meet, $num;
  printf OUT "<A href=\"%s-%sR4.doc\">%s-%sR4.doc</a> ", $meet, $num, $meet, $num if -e sprintf "%s-%sR4.doc", $meet, $num;

  printf OUT "<A href=\"%s-%sR5.zip\">%s-%sR5.zip</a> ", $meet, $num, $meet, $num if -e sprintf "%s-%sR5.zip", $meet, $num;
  printf OUT "<A href=\"%s-%sR5.rtf\">%s-%sR5.rtf</a> ", $meet, $num, $meet, $num if -e sprintf "%s-%sR5.rtf", $meet, $num;
  printf OUT "<A href=\"%s-%sR5.pdf\">%s-%sR5.pdf</a> ", $meet, $num, $meet, $num if -e sprintf "%s-%sR5.pdf", $meet, $num;
  printf OUT "<A href=\"%s-%sR5.doc\">%s-%sR5.doc</a> ", $meet, $num, $meet, $num if -e sprintf "%s-%sR5.doc", $meet, $num;

  printf OUT "<br><A href=\"%s-%s-nc.doc\">%s-%s-(no change bars).doc</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%s-nc.doc", $meet, $num;
  printf OUT "<br><A href=\"%s-%s-nc.rtf\">%s-%s-(no change bars).rtf</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%s-nc.rtf", $meet, $num;
  printf OUT "<br><A href=\"%s-%s-nc.pdf\">%s-%s-(no change bars).pdf</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%s-nc.pdf", $meet, $num;
  printf OUT "<br><A href=\"%s-%s-nc.zip\">%s-%s-(no change bars).zip</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%s-nc.zip", $meet, $num;

  printf OUT "<br><A href=\"%s-%sR1-nc.doc\">%s-%sR1-(no change bars).doc</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%sR1-nc.doc", $meet, $num;
  printf OUT "<br><A href=\"%s-%sR1-nc.rtf\">%s-%sR1-(no change bars).rtf</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%sR1-nc.rtf", $meet, $num;
  printf OUT "<br><A href=\"%s-%sR1-nc.pdf\">%s-%sR1-(no change bars).pdf</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%sR1-nc.pdf", $meet, $num;
  printf OUT "<br><A href=\"%s-%sR1-nc.zip\">%s-%sR1-(no change bars).zip</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%sR1-nc.zip", $meet, $num;

  printf OUT "<br><A href=\"%s-%sR2-nc.doc\">%s-%sR2-(no change bars).doc</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%sR2-nc.doc", $meet, $num;
  printf OUT "<br><A href=\"%s-%sR2-nc.rtf\">%s-%sR2-(no change bars).rtf</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%sR2-nc.rtf", $meet, $num;
  printf OUT "<br><A href=\"%s-%sR2-nc.pdf\">%s-%sR2-(no change bars).pdf</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%sR2-nc.pdf", $meet, $num;
  printf OUT "<br><A href=\"%s-%sR2-nc.zip\">%s-%sR2-(no change bars).zip</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%sR2-nc.zip", $meet, $num;

  printf OUT "<br><A href=\"%s-%sR3-nc.doc\">%s-%sR3-(no change bars).doc</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%sR3-nc.doc", $meet, $num;
  printf OUT "<br><A href=\"%s-%sR3-nc.rtf\">%s-%sR3-(no change bars).rtf</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%sR3-nc.rtf", $meet, $num;
  printf OUT "<br><A href=\"%s-%sR3-nc.pdf\">%s-%sR3-(no change bars).pdf</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%sR3-nc.pdf", $meet, $num;
  printf OUT "<br><A href=\"%s-%sR3-nc.zip\">%s-%sR3-(no change bars).zip</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%sR3-nc.zip", $meet, $num;

  printf OUT "<br><A href=\"%s-%sR4-nc.doc\">%s-%sR4-(no change bars).doc</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%sR4-nc.doc", $meet, $num;
  printf OUT "<br><A href=\"%s-%sR4-nc.rtf\">%s-%sR4-(no change bars).rtf</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%sR4-nc.rtf", $meet, $num;
  printf OUT "<br><A href=\"%s-%sR4-nc.pdf\">%s-%sR4-(no change bars).pdf</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%sR4-nc.pdf", $meet, $num;
  printf OUT "<br><A href=\"%s-%sR4-nc.zip\">%s-%sR4-(no change bars).zip</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%sR4-nc.zip", $meet, $num;

  printf OUT "<br><A href=\"%s-%sR5-nc.doc\">%s-%sR5-(no change bars).doc</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%sR5-nc.doc", $meet, $num;
  printf OUT "<br><A href=\"%s-%sR5-nc.rtf\">%s-%sR5-(no change bars).rtf</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%sR5-nc.rtf", $meet, $num;
  printf OUT "<br><A href=\"%s-%sR5-nc.pdf\">%s-%sR5-(no change bars).pdf</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%sR5-nc.pdf", $meet, $num;
  printf OUT "<br><A href=\"%s-%sR5-nc.zip\">%s-%sR5-(no change bars).zip</a> <Br>", $meet, $num, $meet, $num if -e sprintf "%s-%sR5-nc.zip", $meet, $num;

#  printf OUT "<A href=\"%s-%s-addendum.rtf\">%s-%s-addendum.rtf</a> <br>", $meet, $num, $meet, $num if -e sprintf "%s-%s-addendum.rtf", $meet, $num;


}

