Turnaround

• The first thing the program does is recover an XML file from the CGI request:

     my $xmlpost = CGI::XMLPost->new();
     my $xml = $xmlpost->data();

• It saves the XML (actually a SOAP request) to two files:

     open(OUT,">$outfile");
     print OUT $xml;
     close(OUT);

     open(OUT,">>$dailyfile");
     print OUT $outfile,":",$xml,"\n";
     close(OUT);

• Then it reads the XML back in:

     my $xs1 = XML::Simple->new();
     my $doc;
     eval { $doc=$xs1->XMLin($outfile, forcearray => ['Change']); };

• If all goes well to this point, it returns a success code back to Ford

• After printing the success or failure code, the program opens a database connection

• It extracts information from the SOAP request and adds it to the database

Next

Copyright © 2003 M. J. Dominus