#!/usr/bin/perl -w
# Pizza calculator, an example of how to build a portable web based
# GUI application.
use strict;
use HTTP::Daemon;
use HTTP::Status;
use CGI::Simple;
sub res {
HTTP::Response->new(
RC_OK, OK => [ 'Content-Type' => 'text/html' ], shift
)
}
my %pages = (
index => sub {
res qq[
Pizza cost calculator
];
},
calc => sub {
my ($request) = @_;
my $cgi = CGI::Simple->new( $request->content );
res sprintf q[
Result
Cost per eater: %.2f
Again!
], $cgi->param('cost') / $cgi->param('ppl');
},
);
my $daemon = HTTP::Daemon->new(LocalAddr => '127.0.0.1') or die;
my $ppid = $$;
if (my $pid = fork) {
while (my $client = $daemon->accept) {
while (my $request = $client->get_request) {
my ($page) = $request->url->path =~ m[^/(\w+)$];
$page ||= 'index';
if (exists $pages{$page}) {
$client->send_response( $pages{$page}->($request) );
} else {
$client->send_error(RC_NOT_FOUND);
}
}
$client->close;
}
} elsif (defined $pid) {
my $url = $daemon->url;
my @browsers = qw(firefox konqueror mozilla opera start);
{
@browsers or die "Couldn't start a browser.";
my $b = shift @browsers;
my $r = system("$b $url");
redo if $r;
}
} else {
die "Couldn't fork!";
}