/[Search-Estraier]/trunk/Estraier.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/Estraier.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 37 by dpavlin, Thu Jan 5 22:16:21 2006 UTC revision 38 by dpavlin, Thu Jan 5 22:27:03 2006 UTC
# Line 784  sub shuttle_url { Line 784  sub shuttle_url {
784    
785          my $status = -1;          my $status = -1;
786    
787          warn $url;          warn "## $url\n";
788    
789          $url = new URI($url);          $url = new URI($url);
790          if (          if (
# Line 853  sub shuttle_url { Line 853  sub shuttle_url {
853          $self->{status} = $res_status;          $self->{status} = $res_status;
854    
855          # skip rest of headers          # skip rest of headers
856          do {          $line = <$sock>;
857            while ($line) {
858                  $line = <$sock>;                  $line = <$sock>;
859                  chomp($line);                  $line =~ s/[\r\n]+$//;
860          } until ($line eq '');                  warn "## ", $line || 'NULL', " ##\n";
861            };
862    
863          # read body          # read body
864          my $len = 0;          $len = 0;
865          do {          do {
866                  $len = read($sock, my $buf, 8192);                  $len = read($sock, my $buf, 8192);
867                  $$resbody .= $buf if ($resbody);                  $$resbody .= $buf if ($resbody);
Legend:
Removed from v.37  
changed lines
  Added in v.38
  ViewVC Help
Powered by ViewVC 1.1.26