samples/capture_example

   1 #!/opt/perl/bin/perl
   2 use strict;
   3 use AnyEvent::HTTPD;
   4 use AnyEvent::HTTPD::Appgets;
   5
   6 my $httpd = AnyEvent::HTTPD->new (port => 9090);
   7
   8 my $t;
   9
  10 $httpd->reg_cb (
  11    '' => sub {
  12       my ($httpd, $req) = @_;
  13       set_request ($req);
  14
  15       o capture {
  16          o "<html><body><h1>Hello World!</h1>";
  17          o "<a href=\"/test\">another test page</a>";
  18          o "</body></html>";
  19       };
  20
  21       $req->respond;
  22    },
  23    '/test' => sub {
  24       my ($httpd, $req) = @_;
  25       $httpd->stop_request;
  26
  27       $t = AnyEvent->timer (after => 2, cb => sub {
  28          my $o = capture {
  29             o "CPU info:\n\n";
  30             o `cat /proc/cpuinfo`;
  31          };
  32          $req->respond ([200, "ok", { 'Content-Type' => 'text/plain' }, $o]);
  33       });
  34
  35       'delay'
  36    },
  37 );
  38
  39 $httpd->run;