use XML::Parser;

$filterXSDFilename = 'data/ppp-sbg-types.xsd';
if(open(FILTER_XSD_FILE, $filterXSDFilename))
{
  print "Content-type: text/html\n\n";

  @xsdFileContentsArray = <FILTER_XSD_FILE>;
  print "The array is: " . @xsdFileContentsArray;
  print "File Length in lines: " . $xsdFileContentsArray;
  $xsdFileContentsAsScalar = concatenateXSDFileContents(@xsdFileConten
+tsArray);

  my $parser = new XML::Parser(Handlers
      => {    Start => \&handleStartTag,
            End => \&handleEndTag,
            Char => \&handleCharacterStrings,
            Default => \&handleDefault,});
  $parser->parse($xsdFileContentsArray);

  print ("A RetrieveEventHistoryRequest has been generated.<P><P>");
}
else
{
  print "Content-type: text/html\n\n";

  print ("A RetrieveEventHistoryRequest has not been generated.<P><P>"
+);

  print ("<HR><P><P>");

  print ("There was an error loading the following xsd file: " . $filt
+erXSDFilename . "<BR>");
}

#Params are an array of the lines of the xsd file.
sub concatenateXSDFileContents (@)
{
  @lines = @_;
  $lineSize = @lines;
  print $lineSize;
  print "<BR>\n";
  $index = 0;
  $returnString = "";
  while($index < $lineSize)
  {
    $returnString .= $lines[$index];
    $index++;
  }
  return $returnString;
}

sub handleStartTag($$%)
{
  my ($expat, $element, %attributeList) = @_;
  print "StartTag - Element Name: $element";
}

sub handleEndTag()
{
}

sub handleCharacterStrings()
{
}

sub handleDefault()
{
}
[download]