eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
    if 0;

# ---------------------------------------------
use XML::Parser;
my $file = shift;

my $parser = new XML::Parser( Style=>'Subs', 
                              Pkg=>'SubHandlers', 
                              ErrorContext => 2 );

$parser->setHandlers(Char  => \&char_handler);
$parser->parsefile($file);

# ---------------------------------------------
sub char_handler
{
    my ($p, $data) = @_;
    print $data;
}

# ---------------------------------------------
package SubHandlers;

sub machine_usage {
  print "<title>Machine Usage</title>\n";
  print "<BODY BGCOLOR=\"#ffffff\"",
        " LINK=\"#0000ff\" ALINK=\"#ff0000\" TEXT=\"#000000\">\n";
}

sub machine_usage_ {
  print "</BODY>\n";
}

sub machine {
  print "\n<hr>\n";
  print "<table>\n";
  print "<tr>";
}

sub  machine_ {
  print "\n</tr>\n";
  print "</table>";
}

sub code {
  print 
      "\n<td>\n",
      "<img width=\"300\" height=\"250\" ",
      "src=\"http://www.sdsc.edu/~marciano/XML/Images/";
}

sub code_ {
  print ".jpg\">\n";
  print "<br>";
}

sub type {
}

sub type_ {
  print "\n<br>";
}

sub load {
}

sub load_ {
  print "\n<br>";
}

sub summary {
  print "<b>SUMMARY:</b>\n";
  print "<br>\n";
  print "<table>";
}

sub summary_ {
  print "</table>\n";
}

sub queues {
  my $expat = shift; my $element = shift;

  # Read the attributes
  while (@_) {
    my $att = shift;
    my $val = shift;
    $attr{$att} = $val;
  }
  my $value = $attr{'count'};

  print "Number of queues: <b>$value</b>";
}

sub queues_ {
}

sub queue {
  my $expat = shift; my $element = shift;

  # Read the attributes
  while (@_) {
    my $att = shift;
    my $val = shift;
    $attr{$att} = $val;
  }
  my $value = $attr{'name'};

  print "\n<td>\n";
  print "<table>\n";

  print "<th><u>$value:</u></th>";
}

sub queue_ {
   print "</table>\n";
   print "</td>";
}

sub usage {
  my $expat = shift; my $element = shift;

  # Read the attributes
  while (@_) {
    my $att = shift;
    my $val = shift;
    $attr{$att} = $val;
  }

  my $type  = $attr{'type'};
  my $value = $attr{'value'};

  my $rowbreak = 0;

  print "<tr>";
  print "<td><b>$type</b></td>";
  print "<td>$value</td>";
  print "</tr>";
}

sub usage_ {
}

# ---------------------------------------------