in reply to Re: Re: Web page template for an HTTP daemon script
in thread Web page template for an HTTP daemon script
And the template: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) ; }
<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)
|
|---|