The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja" lang="ja">

<head>

    <title>Donburi</title>
    <meta http-equiv="content-type" content="text/html;charset=utf-8" />
    <style>
      table { 
        border: solid 1px #a83;
        border-collapse: collapse;
      }
      th {
        padding: 5px;
        border: solid 1px #a83;
        background-color: #fd9;
        font-weight: normal;
      }
      td {
        padding: 5px;
        border: solid 1px #a83;
      }

      div#desc {
        color: #999;
        padding-bottom: 2em;
      }
    </style>

</head>

<body>
    <h1>Donburi</h1>

    <div id="desc">simple IRC post proxy</div>

    <form method="POST" action="/post">
      <table>
      <tr>
      <th>channel</th>
      <td>
      <select name="channel">
: for $channels -> $channel {
          <option value="<: $channel :>"><: $channel :></option>
: } 
      </select>
      <a href="/channel/">edit</a>
      </td>
      </tr>
      <th>message</th>
      <td>
      <input type="text" name="message" />
      </td>
      </tr>
      <tr>
      <td colspan="2">
      <input type="submit" value="POST" />
      </td>
      </tr>
      </table>
    </form>

    <hr />
    <h2>Logs</h2>
     <ul>
: for $logs -> $log {
        <li><: $log :></li>
: }
    </ul>
</body>

</html>