#!/usr/bin/perl -w

use warnings;
use CGI qw(:standard *table);

# Location of screen/field description file
$screenflddescpath = "descriptions.txt";

open SCREENFLDDESC, $screenflddescpath
    or die "cannot find screen description file: $!";

while (<SCREENFLDDESC>) {
    chomp;
    ($key, $desc) = split /,/;
    $screenflddesc{$key} = $desc;
}

close SCREENFLDDESC;

# Location of index file we will write results to
$indexfile = ">screenindex.html";
open INDEX, $indexfile or die "cannot open index for writing: $!";

# Location of master GUI file
# $guipath = "Master.gui";
$guipath = "Master.gui.test";

open GUIFILE, $guipath or die "cannot find Master.gui: $!";

# Start our index file
print INDEX start_html("GUI Map Index"), "\n";
print INDEX h1("GUI Map Index"), "\n";
print INDEX "Click on a screen name below to go to its description page",
    br, "\n";
print INDEX hr, "\n";

# Flag to let us know if we're inside a description block
$desc = 0;

# Current file name
$currfile = "";

while (<GUIFILE>) {
    chomp;

    # print "Line: $_\n";

    # Outside description block with no ".": Screen name
    # (or quoted name without following ".")
    # (Regex was originally /^([^.]+):$/)

    if ($desc != 0 and /^(\w+):$/) { # this is where the warning is printed
        print "Screen name: $1\n";
        # etc...