sub show_form {
my $c = shift ;
my $status = status() ;
my $message = get_message() ;
my $service_name = '' # where do you get this from?!?
my $template = HTML::Template->new(filename => 'form.tmpl');
$template->param(
service_name => $service_name,
status => $status,
message => $message,
);
reset_message; # shouldn't you use parens here?
my $resp = HTTP::Response->new ;
$resp->content($template->output) ;
$c->send_response($resp) ;
}
And the template:
<html>
<head>
<title><tmpl_var service_name> controls</title>
</head>
<body>
<h1 align="center"><tmpl_var service_name> controls</h1>
<div align="center">
<table style="border-width: 2px ; border-style: solid">
<tr align="center">
<td>
<form action="/start" method="post">
<input type="submit" value=" Start " >
</form>
</td>
<td>
<form action="/stop" method="post">
<input type="submit" value=" Stop " >
</form>
</td>
<td>
<form action="/restart" method="post">
<input type="submit" value=" Restart " >
</form>
</td>
</tr>
<tr align="center">
<td colspan="3">
<form action="/status" method="post">
<input type="submit" value=" Update status " >
</form>
</td>
<tr>
<tr>
<td colspan="3" align="center"><tmpl_var message></td>
<tr>
<tr>
<td colspan="3">Status: <tmpl_var service_name> is <tmpl_var
+ status></td>
<tr>
</table>
</div>
</body>
</html>
jeffa
L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)
|