sub form_print() {
my $login=$_[0] || '';
my $status=$_[1] || ' ';
print "Content type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">';
print<<EOF;
<html>
<head>
<title>яЛЕМЮ ОЮПНКЪ</title>
<style>
body {margin-left: 0; margin-top: 0}
p {font-family: "sans-serif"; font-size: 10pt}
ul {font-family: "sans-serif"; font-size: 10pt}
li {font-family: "sans-serif"; font-size: 10pt}
small{color: "red";}
.star {color: red; font-size: 13px;}
</style>
</head>
<body>
<br>
<form name="Form" action="./pwd.cgi?check" method="post">
<table border="0" cellspacing="4" cellpadding="2" align="center">
<tr>
<td colspan="4" align="center"><h3>яЛЕМЮ ОЮПНКЪ</h3><p>БЯЕ ОНКЪ НАЪГЮРЕКЭМШ ДКЪ ГЮОНКМЕМХЪ</p></td>
</tr>
<tr>
<td colspan="4" align="center"><p Class="star">$status</p></td>
</tr>
<tr>
<td><p><small Class="star">*</small>Login:</p></td>
<td><input type="text" size="15" name="login" value="$login"></td>
</tr>
<tr>
<td><p><small Class="star">*</small>яРЮПШИ ОЮПНКЭ:</p></td>
<td><input type="password" size="15" name="old_pass"></td>
</tr>
<tr>
<td><p><small Class="star">*</small>мНБШИ ОЮПНКЭ:<br><small>ЛХМХЛСЛ 5 ЯХЛБНКНБ</small></p></td>
<td><input type="password" size="15" name="new_pass"></td>
</tr>
<tr>
<td><p><small Class="star">*</small>оНДРБЕПФДЕМХЕ:</p></td>
<td><input type="password" size="15" name="confirm"></td>
</tr>
<tr>
<td colspan="4" align="center">
<input type="submit" value="нРОПЮБХРЭ">
<input type="reset" value="нВХЯРХРЭ">
</td>
</tr>
</table>
</form>
</body>
</html>
EOF
}
Вариант для распечатки
OpenNET: Виртуальная конференция (Public)
on
20-Апр-05, 10:17 (MSK)
