/t/helper/child-httpd.pl

http://github.com/perlbal/Perlbal · Perl · 18 lines · 11 code · 5 blank · 2 comment · 1 complexity · 28459fb646704d3b8e34e8da5aa47d2e MD5 · raw file 

    

  1. #!/usr/bin/perl
    2. 

  2. 

  3. use strict;
    4. 

  4. my $req = <>;
    5. 

  5. die "Bogus request" unless $req =~ /^GET (\/\S*) HTTP\/1\.\d/;
    6. 

  6. 

  7. $| = 1;
    8. 

  8. 

  9. my $uri = $1;
    10. 

  10. while (<>) {
    11. 

  11.     last unless /\S/;
    12. 

  12. }
    13. 

  13. 

  14. my $response = "You wanted [$uri] and I am pid=$$\n";
    15. 

  15. #warn "Response from pid $$: [$response]\n";
    16. 

  16. my $len = length $response;
    17. 

  17. print "HTTP/1.0 200 OK\r\nContent-Length: $len\r\n\r\n$response";
    18.