Next Making Programs Faster 86

Turnaround

        use CGI::XMLPost;
        my $xmlpost = CGI::XMLPost->new();
        my $xml = $xmlpost->data();
        my $cl = $ENV{CONTENT_LENGTH};
        if ( read( STDIN, $self->{_data}, $cl) == $cl )
        {
           return $self;
        }
        my $xml;
        my $cl = $ENV{CONTENT_LENGTH};
        unless ( read( STDIN, $xml, $cl) == $cl )
        {
          print "Status: 404 Not Found\n";
          ...
          print XMLLOG "bad post\n";
          exit; 
        }

Next Copyright © 2003 M. J. Dominus