samples/second_example

   1 #!/opt/perl/bin/perl
   2 use AnyEvent;
   3 use AnyEvent::HTTPD;
   4
   5 my $cvar = AnyEvent->condvar;
   6
   7 my $httpd = AnyEvent::HTTPD->new (port => 19090);
   8
   9 $httpd->reg_cb (
  10    '' => sub {
  11       my ($httpd, $req) = @_;
  12
  13       $req->respond ({ content => [ 'text/html',
  14          "<html><body><h1>Testing return types...</h1>"
  15          . "<img src=\"/image/bshttp.png\" />"
  16          . "</body></html>"
  17       ]});
  18    },
  19    '/image/bshttp.png' => sub {
  20       $_[0]->stop_request;
  21
  22       open IMG, 'bshttp.png'
  23          or do { $_[1]->respond (
  24                     [404, 'not found', { 'Content-Type' => 'text/plain' }, 'Fail!']);
  25                     return };
  26       $_[1]->respond ({ content => [ 'image/png', do { local $/; <IMG> } ] });
  27    },
  28 );
  29
  30 $cvar->wait;