samples/simple_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       $req->respond ({ content => ['text/html', <<'CONT']});
  13          <html><body><h1>Hello World!</h1>
  14          <a href="/test">another test page</a>
  15          </body></html>
  16 CONT
  17    },
  18    '/test' => sub {
  19       my ($httpd, $req) = @_;
  20       $httpd->stop_request;
  21
  22       $req->respond ({ content => ['text/html', <<'CONT']});
  23          <html><body><h1>Test page</h1>
  24          <a href="/">Back to the main page</a>
  25          </body></html>
  26 CONT
  27    },
  28 );
  29
  30 $cvar->wait;