if($ENV{'AUTH_USER'} eq 'DOMAIN\user_one') {
print "<form action=\"reset_estad.pl\" method=\"post\">\n";
print "<select name=\"agno\" size=\"1\">\n";
print "<option value=\"3\">2003</option>\n";
print "</select>\n";
print "<input type=\"submit\" value=\"Aceptar\">\n";
}

user_one is me :))
but i need to print this html form if the net user is my boss.

_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to