-sub voucher(){
- print<<END
- <body>
- <center>
- <div class="title">
- <h1>LOGIN</h1>
- </div>
- <br>
- <div class="login">
-END
-;
-
-print<<END
- <form method='post' action='$ENV{'SCRIPT_NAME'}'>
- <center>
- <table>
- <tr>
- <td>
- <b>$Lang::tr{'Captive voucher'}</b> <input type='text' maxlength="8" size='10' style="font-size: 24px;font-weight: bold;" name='VOUCHER'>
- </td>
- <td>
- <input type='submit' name='ACTION' value="$Lang::tr{'Captive activate'}"/>
- </td>
- </tr>
- </table>
- </form>
- </div>
- <br>
- <div class="agb">
- <textarea style="width:100%;" rows='40'>
-END
-;
-&getagb();
-print<<END
- </textarea>
- <br><br>
- </div>
- </body>
- </html>
-END
-;
-}
+$tmpl->param(TAC => &gettac());
+
+# Some translated strings
+$tmpl->param(L_ACTIVATE => $Lang::tr{'Captive ACTIVATE'});
+$tmpl->param(L_GAIN_ACCESS => $Lang::tr{'Captive GAIN ACCESS'});
+$tmpl->param(L_HEADING_TAC => $Lang::tr{'Captive heading tac'});
+$tmpl->param(L_HEADING_VOUCHER => $Lang::tr{'Captive heading voucher'});
+$tmpl->param(L_AGREE_TAC => $Lang::tr{'Captive agree tac'});
+
+# Print header
+print "Pragma: no-cache\n";
+print "Cache-control: no-cache\n";
+print "Connection: close\n";
+print "Content-type: text/html\n\n";
+
+# Print rendered template
+print $tmpl->output();