http skeleton using AnyEvent::HTTPD

[MQR.git] / scripts / mqr-httpd.pl
diff --git a/scripts/mqr-httpd.pl b/scripts/mqr-httpd.pl

new file mode 100755 (executable)

index 0000000..25202a9
--- /dev/null
+++ b/scripts/mqr-httpd.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+use common::sense;
+use AnyEvent;
+use AnyEvent::HTTPD;
+
+my $cvar = AnyEvent->condvar;
+
+my $httpd = AnyEvent::HTTPD->new (port => 19090);
+
+$httpd->reg_cb (
+   '' => sub {
+      my ($httpd, $req) = @_;
+      $req->respond ({ content => ['text/html', <<'CONT']});
+         <html><body><h1>Hello World!</h1>
+         <a href="/test">another test page</a>
+         </body></html>
+CONT
+   },
+   '/test' => sub {
+      my ($httpd, $req) = @_;
+      $httpd->stop_request;
+
+      $req->respond ({ content => ['text/html', <<'CONT']});
+         <html><body><h1>Test page</h1>
+         <a href="/">Back to the main page</a>
+         </body></html>
+CONT
+   },
+);
+
+$cvar->wait;