Loading ...
Sorry, an error occurred while loading the content.

Calling for help in testing .NET bug

Expand Messages
  • Byrne Reese
    I have recently submitted a patch to SOAP::Lite that fixes a bug with how SOAP::Lite servers deal with .NET clients that transmit the HTTP Expect: 100
    Message 1 of 1 , Nov 1, 2005
    • 0 Attachment
      I have recently submitted a patch to SOAP::Lite that fixes a bug with
      how SOAP::Lite servers deal with .NET clients that transmit the HTTP
      "Expect: 100 Continue" header.

      The following patch, when applied to a server, should fix the problem.
      The machine that had .NET installed is no more, and I was wondering if I
      could recruit someone in the community to help me test this fix.

      Any volunteers?! Please, someone, help. :)

      Byrne Reese
      Lead Developer, SOAP::Lite

      Here is the diff:

      7c7
      < # $Id: HTTP.pm,v 1.15 2005/03/30 08:58:34 byrnereese Exp $
      ---
      > # $Id: HTTP.pm,v 1.16 2005/10/19 00:43:23 byrnereese Exp $
      311a312,318
      >
      > # TODO - Handle the Expect: 100-Continue HTTP/1.1 Header
      > if ($self->request->header("Expect") eq "100-Continue") {
      >
      > }
      >
      >
      401c408,413
      < my $content; binmode(STDIN); read(STDIN,$content,$length);
      ---
      > if ($ENV{EXPECT} =~ /\b100-Continue\b/i) {
      > print "HTTP/1.1 100 Continue\r\n\r\n";
      > }
      > my $content;
      > binmode(STDIN);
      > read(STDIN,$content,$length);
      533a546,549
      > if ($r->header_in('Expect') =~ /\b100-Continue\b/i) {
      > $r->print("HTTP/1.1 100 Continue\r\n\r\n");
      > }
      >
      537c553,559
      < do { my ($c,$buf); while
      ($r->read($buf,$r->header_in('Content-length'))) { $c.=$buf; } $c; }
      ---
      > do {
      > my ($c,$buf);
      > while ($r->read($buf,$r->header_in('Content-length'))) {
      > $c.=$buf;
      > }
      > $c;
      > }
    Your message has been successfully submitted and would be delivered to recipients shortly.