#!/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 "\n"; printf OUT "SG15/Q4 Aug 99 Doc List\n"; printf OUT "\n"; printf OUT "\n"; printf OUT "

SG15/Q4 Aug 99 (Nuremberg) Document List

\n"; printf OUT "\n\n"; printf OUT "\n\n"; printf OUT "\n\n"; printf OUT "\n
\n"; printf OUT "Contribution Number Assignment\n"; printf OUT "\n"; printf OUT "Contribution File Upload\n"; printf OUT "\n"; printf OUT "Meeting & Local Info\n"; printf OUT "
Q4/15 Email archive\n"; printf OUT "Q4/15 home page\n"; printf OUT "SG15 home page\n"; printf OUT "
Directory raw list\n"; printf OUT "Page contact:
Steve Palm (palm\@itu.ch)

\n"; printf OUT "

Page generation:
%s JST

\n", &ctime(time); printf OUT "

\n"; #printf OUT "

\n"; printf OUT "

\n"; printf OUT "

Quick Jump to Agenda areas:
\n"; printf OUT "\n"; printf OUT " \n"; printf OUT "\n"; printf OUT "\n"; printf OUT "
G.shdsl\n"; printf OUT " G.vdsl \n"; printf OUT " G.pnt \n"; printf OUT " Admin
G.hs.bis \n"; printf OUT " G.lite.bis\n"; printf OUT " G.dmt.bis\n"; printf OUT " G.gen (all G.xdsls)
G.test.bis\n"; printf OUT " G.ploam.bis\n"; printf OUT " IPR\n"; printf OUT " G.ref.bis
\n"; printf OUT "

\n"; printf OUT "

\n"; printf OUT "\n"; printf OUT "\n"; #printf OUT "\n "; #printf OUT "\n "; #printf OUT "\n "; #Read the list of ontime file uploads @ontime = ; #while () { # %ontime[$_] = 1; #} close( ONTIME ); $numdocs = 0; open( TC_FILE, $filename ) || die "Can't open file: $filename\n"; #Read the doc list while () { $numdocs += 1; # Truncate the 8th bits tr/\200-\377/\000-\177/; # substitute color for some keywords s#G.hs#G.hs#gi; s#G.994.1#G.994.1#gi; s#G.lite#G.lite#gi; s#G.992.2#G.992.2#gi; s#G.gen#G.gen#gi; s#G.dmt#G.dmt#gi; s#G.992.1#G.992.1#gi; s#G.test#G.test#gi; s#G.996.1#G.996.1#gi; s#G.ploam#G.ploam#gi; s#G.997.1#G.997.1#gi; s#G.vdsl#G.vdsl#gi; s#G.shdsl#G.shdsl#gi; s#G.pnt#G.pnt#gi; s#Withdrawn#Withdrawn#gi; chop; ($num, $source, $title, $fname, $ituname) = split('\#'); printf "X%sXXXX%sX \n", $num, $source; printf OUT "\n"; # printf OUT "\n\n"; } # while printf OUT "
Num.SourceAreaTitleFilename
-Rapporteur Question 4/15AdminAug 99 Document List\n"; #printf OUT "99-08-NG-doc-list.doc
-Steve PalmAdminAug 99 Informal Document List\n"; #printf OUT "99-08-NG-doc-list.txt
-Rapporteur Question 4/15AdminAug 99 Roster List\n"; #printf OUT "Roster-Aug99.doc
%03u\n", $num; printf OUT "%s\n", $num; printf OUT "%s\n", $source; #parse for the subject area in the Title ($area, $title2) = split(':',$title); printf OUT "%s\n", $area; printf OUT "%s", $title2; printf OUT ""; printf OUT "* " 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 "
\n"; close( TC_FILE ); printf OUT "Total Number of Documents = $numdocs

\n"; #Now make the Agenda... open( TC_FILE, $filename ) || die "Can't open file 2nd time\n"; while () { # 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 "

\n"; printf OUT "

Brief Agenda:

\n"; printf OUT "\n"; printf OUT "\n"; printf OUT "\n", $admin_string; printf OUT "\n", $ipr_string; printf OUT "\n", $shdsl_string; printf OUT "\n", $vdsl_string; printf OUT "\n", $pnt_string; printf OUT "\n", $lite_bis_string; printf OUT "\n", $ploam_bis_string; printf OUT "\n", $test_bis_string; printf OUT "\n", $dmt_bis_string; printf OUT "\n", $hs_bis_string; printf OUT "\n", $ref_bis_string; printf OUT "\n", $gen_string; #printf OUT "\n", $lite_string; #printf OUT "\n", $ploam_string; #printf OUT "\n", $test_string; #printf OUT "\n", $hdsl_string; #printf OUT "\n", $dmt_string; #printf OUT "\n", $hs_string; #printf OUT "\n", $ref_string; #printf OUT "\n", $gen_string; #printf OUT "\n", $other_string; printf OUT "
AreaContribution Numbers
Admindetails%s
IPRdetails%s
G.shdsldetails%s
G.vdsldetails%s
G.pntdetails%s
G.lite.bisdetails%s
G.ploam.bisdetails%s
G.test.bisdetails%s
G.dmt.bisdetails%s
G.hs.bisdetails%s
G.ref.bisdetails%s
G.gen (all G.xdsl)details%s
G.liteG.992.2details%s
G.ploamG.997.1details%s
G.testG.996.1details%s
G.hdslG.991.1details%s
G.dmtG.992.1details%s
G.hsG.994.1details%s
G.refG.995.1details%s
G.gen (G.dmt & G.lite).details%s
Otherdetails%s
\n

\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 "

Admin

\n"; $area_name = "Admin"; &area_sub; ######Area: Liaison Statements #printf OUT "

Liaison Statements

\n"; #$area_name = "LS"; #&area_sub_ls; ######Area: IPR printf OUT "

IPR

\n"; $area_name = "IPR"; &area_sub; ######Area: G.lite.bis printf OUT "

G.lite.bis

\n"; $area_name = "G.lite.bis"; &area_sub; ######Area: G.ploam.bis printf OUT "

G.ploam.bis

\n"; $area_name = "G.ploam.bis"; &area_sub; ######Area: G.test.bis printf OUT "

G.test.bis

\n"; $area_name = "G.test.bis"; &area_sub; ######Area: G.dmt.bis printf OUT "

G.dmt.bis

\n"; $area_name = "G.dmt.bis"; &area_sub; ######Area: G.hs.bis printf OUT "

G.hs.bis

\n"; $area_name = "G.hs.bis"; &area_sub; ######Area: G.ref.bis printf OUT "

G.ref.bis

\n"; $area_name = "G.ref.bis"; &area_sub; ######Area: G.shdsl printf OUT "

G.shdsl

\n"; $area_name = "G.shdsl"; &area_sub; ######Area: G.vdsl printf OUT "

G.vdsl

\n"; $area_name = "G.vdsl"; &area_sub; ######Area: G.pnt printf OUT "

G.pnt

\n"; $area_name = "G.pnt"; &area_sub; ######Area: general printf OUT "

G.gen (all G.xdsl)

\n"; $area_name = "G.gen"; &area_sub; ######Area: G.other #printf OUT "

Other

\n"; #$area_name = "Other"; #&area_sub; # Trailer printf OUT "

\n"; printf OUT "

\n"; printf OUT "This page is automatically generated by a PERL \n"; printf OUT "script.
"; 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 "
RTF and DOC files over a few hundred k bytes should be ZIPped\n"; printf OUT "\n"; exit; sub area_sub { open( TC_FILE, $filename ) || die "Can't open file: $filename 2nd time\n"; printf OUT "\n"; # printf OUT "
\n"; printf OUT "\n"; # printf OUT "\n"; while () { # 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 "\n"; # printf OUT "\n\n"; } # if } # while printf OUT "
Num.SourceAreaTitleFilename
Num.SourceAreaTitleFilename
%03u\n", $num; printf OUT "%s\n", $num; printf OUT "%s\n", $source; printf OUT "%s\n", $area; printf OUT "%s", $title2; printf OUT ""; # printf OUT "* " if %ontime[$num]; # Gold star printf OUT "* " 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 "

\n"; close( TC_FILE ); } sub exist_sub { printf OUT "%s-%s.txt ", $meet, $num, $meet, $num if -e sprintf "%s-%s.txt", $meet, $num; printf OUT "%s-%s.zip ", $meet, $num, $meet, $num if -e sprintf "%s-%s.zip", $meet, $num; printf OUT "%s-%s.rtf ", $meet, $num, $meet, $num if -e sprintf "%s-%s.rtf", $meet, $num; printf OUT "%s-%s.pdf ", $meet, $num, $meet, $num if -e sprintf "%s-%s.pdf", $meet, $num; printf OUT "%s-%s.doc ", $meet, $num, $meet, $num if -e sprintf "%s-%s.doc", $meet, $num; printf OUT "%s-%sR1.zip ", $meet, $num, $meet, $num if -e sprintf "%s-%sR1.zip", $meet, $num; printf OUT "%s-%sR1.rtf ", $meet, $num, $meet, $num if -e sprintf "%s-%sR1.rtf", $meet, $num; printf OUT "%s-%sR1.pdf ", $meet, $num, $meet, $num if -e sprintf "%s-%sR1.pdf", $meet, $num; printf OUT "%s-%sR1.doc ", $meet, $num, $meet, $num if -e sprintf "%s-%sR1.doc", $meet, $num; printf OUT "%s-%sR2.zip ", $meet, $num, $meet, $num if -e sprintf "%s-%sR2.zip", $meet, $num; printf OUT "%s-%sR2.rtf ", $meet, $num, $meet, $num if -e sprintf "%s-%sR2.rtf", $meet, $num; printf OUT "%s-%sR2.pdf ", $meet, $num, $meet, $num if -e sprintf "%s-%sR2.pdf", $meet, $num; printf OUT "%s-%sR2.doc ", $meet, $num, $meet, $num if -e sprintf "%s-%sR2.doc", $meet, $num; printf OUT "%s-%sR3.zip ", $meet, $num, $meet, $num if -e sprintf "%s-%sR3.zip", $meet, $num; printf OUT "%s-%sR3.rtf ", $meet, $num, $meet, $num if -e sprintf "%s-%sR3.rtf", $meet, $num; printf OUT "%s-%sR3.pdf ", $meet, $num, $meet, $num if -e sprintf "%s-%sR3.pdf", $meet, $num; printf OUT "%s-%sR3.doc ", $meet, $num, $meet, $num if -e sprintf "%s-%sR3.doc", $meet, $num; printf OUT "%s-%sR4.zip ", $meet, $num, $meet, $num if -e sprintf "%s-%sR4.zip", $meet, $num; printf OUT "%s-%sR4.rtf ", $meet, $num, $meet, $num if -e sprintf "%s-%sR4.rtf", $meet, $num; printf OUT "%s-%sR4.pdf ", $meet, $num, $meet, $num if -e sprintf "%s-%sR4.pdf", $meet, $num; printf OUT "%s-%sR4.doc ", $meet, $num, $meet, $num if -e sprintf "%s-%sR4.doc", $meet, $num; printf OUT "%s-%sR5.zip ", $meet, $num, $meet, $num if -e sprintf "%s-%sR5.zip", $meet, $num; printf OUT "%s-%sR5.rtf ", $meet, $num, $meet, $num if -e sprintf "%s-%sR5.rtf", $meet, $num; printf OUT "%s-%sR5.pdf ", $meet, $num, $meet, $num if -e sprintf "%s-%sR5.pdf", $meet, $num; printf OUT "%s-%sR5.doc ", $meet, $num, $meet, $num if -e sprintf "%s-%sR5.doc", $meet, $num; printf OUT "
%s-%s-(no change bars).doc
", $meet, $num, $meet, $num if -e sprintf "%s-%s-nc.doc", $meet, $num; printf OUT "
%s-%s-(no change bars).rtf
", $meet, $num, $meet, $num if -e sprintf "%s-%s-nc.rtf", $meet, $num; printf OUT "
%s-%s-(no change bars).pdf
", $meet, $num, $meet, $num if -e sprintf "%s-%s-nc.pdf", $meet, $num; printf OUT "
%s-%s-(no change bars).zip
", $meet, $num, $meet, $num if -e sprintf "%s-%s-nc.zip", $meet, $num; printf OUT "
%s-%sR1-(no change bars).doc
", $meet, $num, $meet, $num if -e sprintf "%s-%sR1-nc.doc", $meet, $num; printf OUT "
%s-%sR1-(no change bars).rtf
", $meet, $num, $meet, $num if -e sprintf "%s-%sR1-nc.rtf", $meet, $num; printf OUT "
%s-%sR1-(no change bars).pdf
", $meet, $num, $meet, $num if -e sprintf "%s-%sR1-nc.pdf", $meet, $num; printf OUT "
%s-%sR1-(no change bars).zip
", $meet, $num, $meet, $num if -e sprintf "%s-%sR1-nc.zip", $meet, $num; printf OUT "
%s-%sR2-(no change bars).doc
", $meet, $num, $meet, $num if -e sprintf "%s-%sR2-nc.doc", $meet, $num; printf OUT "
%s-%sR2-(no change bars).rtf
", $meet, $num, $meet, $num if -e sprintf "%s-%sR2-nc.rtf", $meet, $num; printf OUT "
%s-%sR2-(no change bars).pdf
", $meet, $num, $meet, $num if -e sprintf "%s-%sR2-nc.pdf", $meet, $num; printf OUT "
%s-%sR2-(no change bars).zip
", $meet, $num, $meet, $num if -e sprintf "%s-%sR2-nc.zip", $meet, $num; printf OUT "
%s-%sR3-(no change bars).doc
", $meet, $num, $meet, $num if -e sprintf "%s-%sR3-nc.doc", $meet, $num; printf OUT "
%s-%sR3-(no change bars).rtf
", $meet, $num, $meet, $num if -e sprintf "%s-%sR3-nc.rtf", $meet, $num; printf OUT "
%s-%sR3-(no change bars).pdf
", $meet, $num, $meet, $num if -e sprintf "%s-%sR3-nc.pdf", $meet, $num; printf OUT "
%s-%sR3-(no change bars).zip
", $meet, $num, $meet, $num if -e sprintf "%s-%sR3-nc.zip", $meet, $num; printf OUT "
%s-%sR4-(no change bars).doc
", $meet, $num, $meet, $num if -e sprintf "%s-%sR4-nc.doc", $meet, $num; printf OUT "
%s-%sR4-(no change bars).rtf
", $meet, $num, $meet, $num if -e sprintf "%s-%sR4-nc.rtf", $meet, $num; printf OUT "
%s-%sR4-(no change bars).pdf
", $meet, $num, $meet, $num if -e sprintf "%s-%sR4-nc.pdf", $meet, $num; printf OUT "
%s-%sR4-(no change bars).zip
", $meet, $num, $meet, $num if -e sprintf "%s-%sR4-nc.zip", $meet, $num; printf OUT "
%s-%sR5-(no change bars).doc
", $meet, $num, $meet, $num if -e sprintf "%s-%sR5-nc.doc", $meet, $num; printf OUT "
%s-%sR5-(no change bars).rtf
", $meet, $num, $meet, $num if -e sprintf "%s-%sR5-nc.rtf", $meet, $num; printf OUT "
%s-%sR5-(no change bars).pdf
", $meet, $num, $meet, $num if -e sprintf "%s-%sR5-nc.pdf", $meet, $num; printf OUT "
%s-%sR5-(no change bars).zip
", $meet, $num, $meet, $num if -e sprintf "%s-%sR5-nc.zip", $meet, $num; # printf OUT "%s-%s-addendum.rtf
", $meet, $num, $meet, $num if -e sprintf "%s-%s-addendum.rtf", $meet, $num; }