#!/usr/bin/perl # Quick presentation controller hack - setup a web server # and on certain requests skip to the next slide # mjc@redhat.com May 2006 use strict; use warnings; use X11::GUITest qw/SendKeys/; use HTTP::Daemon; use HTTP::Status; my $d = HTTP::Daemon->new(LocalPort => 8111) || die; print "Listening at ".$d->url."\n"; while (my $c = $d->accept) { while (my $r = $c->get_request) { if ($r->method eq 'GET' and $r->url->path eq "/slide") { SendKeys(' '); my $date = `date +%H:%M`; $c->send_response("Content-type: text/html\r\n\r\n