Changeset 723
- Timestamp:
- 05/13/06 04:09:55
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
branches/feature-server/plagger/lib/Plagger/Plugin/Server/Protocol/HTTP.pm
r709 r723 36 36 my $req = shift; 37 37 38 my $ req;39 $ req= <STDIN>;40 unless ($ req=~ m!^(GET|POST) ([^ ]+) HTTP/\d\.\d\r\n!) {38 my $line; 39 $line = <STDIN>; 40 unless ($line =~ m!^(GET|POST) ([^ ]+) HTTP/\d\.\d\r\n!) { 41 41 $self->status(400); 42 42 return 0;
