--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 0213302731be5d355cbba3f0aa0ee2195b6f123d..5b334b035f8b8cfa29aba00c2de4c06d347444c3 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -48,6 +48,8 @@ sub Triple::main {
 
     while($request->Accept() >= 0) {
 
+        my $cgi = CGI->new;
+
         $vars->{"ip"}       = $ENV{'REMOTE_ADDR'} || '?';
         $vars->{"uri"}      = $ENV{'REQUEST_URI'} // '/';
         my $method         = $ENV{'REQUEST_METHOD'} || '';
@@ -65,8 +67,6 @@ sub Triple::main {
             $location = $vars->{"uri"};
         }
 
-        my $cgi = CGI->new;
-
         print $cgi->header(
             -Content_Type => 'text/html',
             -charset      => 'UTF-8',

diff --git a/tt/img b/tt/img
index befcf0808acfbcaf00a3073008d17ca4d41fc87b..d185da05456ddf34bfd1a172e33c5bcd4d2e90e3 100644 (file)
--- a/tt/img
+++ b/tt/img
@@ -9,6 +9,7 @@
   <div id="title">[% uri %] - [% description %]</div>
   <form method="POST">
     <table>
+      <tbody>
       <tr>
         <td>Name</td>
         <td>
@@ -34,6 +35,7 @@
           <textarea name="post" cols="48" rows="4" wrap="soft" tabindex="4"></textarea>
         </td>
       </tr>
+      </tbody>
     </table>
   </form>
   [% FOREACH thread IN threads %]