#!/usr/bin/perl -w use strict; my @list = undef; my @fields = undef; my @sort = undef; my @sorted = undef; my $line = undef; my $prefix = undef; my $suffix = undef; my $count = 0; my $id = 0; #open (INFILE, "ethereal-G-index.html") or die "Error: can't open output file: $!\n"; open (TMP, ">ethereal-G-foo.html") or die "Error: can't open temp file: $!\n"; # The protocol field tables look like: # # .pn (protocol name) | .pl (protocol long name) (spans 2 columns) # ---------------------+ -------------------------------------------------- # # .pd (protocol field) | .pt (datatype) .ps (short field description) # (spans 2 rows) | .pe (extended field description) (spans 2 columns) # # This layout is reflected in the CSS style defined below. print OUTFILE << "EOS"; Ethereal protocols and protocol fields

Select a protocol

EOS while () { # &, < and > have special meanings in html s/\&/\&/g; s//\>/g; # general preparations/bookkeeping chomp; $count += 1; if (/^P/) { # Protocol entry $id += 1; @list = split ("\t"); $list[0] = "$id"; print OUTFILE <<"EOS"; $list[2] EOS if ($count > 1) { @sorted = sort @sort; print TMP @sorted; print TMP <<"EOS";

Back to protocol list

EOS $count = 0; @sort = undef; } print TMP <<"EOS";

$list[2] - $list[1]

EOS } else { # Protocol field entry s/^F/$id/; @list = split ("\t"); if ($#list == 4) { push (@list, " "); } @fields = split ("[.]", $list[2]); $suffix = pop (@fields); $prefix = join (".", @fields); $line = <<"EOS"; EOS push (@sort, $line); } } my $date=`date`; chomp $date; @sorted = sort @sort; print TMP @sorted; print TMP <<"EOS";
$list[2] $list[1]
$prefix.$suffix [$list[3]] $list[1]
$list[5]

Back to protocol list

This list has been generated on $date.

EOS close (TMP); open (TMP, "\n\n

Protocol and field name description

\n\n"; while () { print OUTFILE $_; } close (TMP); close (OUTFILE);