#!/usr/bin/perl
use strict;
use Continuity;
Continuity->new( port => 8080 )->loop;
sub main {
my ($r) = @_;
$r->print(<<' END');
<html>
<head>
<script type="text/javascript" src="/jquery.js"></script>
<script type="text/javascript">
function listenLoop(s) {
$.get('/', {
result: s
},
function(v){
var result;
try { result = eval(v) } catch(e) { result = e.message }
listenLoop(result);
}
);
}
$(function(){
listenLoop();
});
</script>
</head>
<body>
<h1>Hello</h1>
</body>
</html>
END
while(1) {
$r->next;
print STDERR $r->param('result') . "\n";
print "> ";
my $cmd = <>;
# $r->send_headers(
# "HTTP/1.1 200\r\n",
# "Content-type: text/javascript\r\n\r\n");
$r->print($cmd);
}
}