Hello monks

I've just made an httpd daemon script that I use to remotely start and stop services. When contacted, it displays a small form on the browser, using information that is stored on a couple of variables.

I managed to move all the configuration on a file using AppConfig; now I'd like to move the template page out of the script, too, so that one could customize the appearence of the page without having to edit the source code of the script.

How could I solve this problem?

Subroutine's source code follows

sub show_form {
  my $c = shift ;
  my $status   = status() ;
  my $message  = get_message() ;
  my $page = <<END_OF_PAGE ;
<html>
  <head>
    <title>$service_name controls</title>
  </head>
  <body>
    <h1 align="center">$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">$message</td>
        <tr>

        <tr>
          <td colspan="3">Status: $service_name is $status</td>
        <tr>
      </table>
    </div>
  </body>
</html>
END_OF_PAGE

  reset_message ;
  my $resp = HTTP::Response->new ;
  $resp->content($page) ;
  $c->send_response($resp) ;
}

[download]

Thanks in advance

Ciao!
--bronto

The very nature of Perl to be like natural language--inconsistant and full of dwim and special cases--makes it impossible to know it all without simply memorizing the documentation (which is not complete or totally correct anyway).
--John M. Dlugosz

In reply to Web page template for an HTTP daemon script by bronto

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.