samples/more_complex_example

   1 #!/opt/perl/bin/perl
   2 use AnyEvent;
   3 use AnyEvent::HTTPD;
   4 use AnyEvent::HTTPD::Appgets;
   5 use CGI qw/escapeHTML/;
   6
   7 my $cvar = AnyEvent->condvar;
   8
   9 my $httpd = AnyEvent::HTTPD->new (port => 9090);
  10
  11 my @list = qw/Apples <this> Other things/;
  12
  13 $httpd->reg_cb (
  14    _ => sub {
  15       my ($httpd, $req) = @_;
  16       set_request ($req);
  17
  18       o "<html><body><h1>Editable list:</h1>";
  19
  20       my $new_element;
  21       form {
  22          entry (\$new_element);
  23          o '<input type="submit" value="append"/>'
  24       } sub {
  25          push @list, $new_element;
  26       };
  27
  28       o "<ul>";
  29       for my $cur (sort @list) {
  30          my $c = $cur;
  31          my $lnk = $req->link ("[delete]", sub { @list = grep { $c ne $_ } @list; });
  32          o "<li>".escapeHTML ($c)." ".$lnk."</li>";
  33       }
  34       o "</ul>";
  35
  36       o "</body></html>";
  37
  38       $req->respond;
  39    }
  40 );
  41
  42 $cvar->wait;