[perl] PRegunta..

[Jorge Martinez M.]

Hola, estoy haciendo un menu para usuarios, y en una opcion de telnet, 
necesito que filtre algunas direccions y puertos.. o sea que no puedan
entrar.. soy novato en esto de perl :P

tengo lo siguiente (opcion 9, telnet a algun servidor)

if ($telnet == 9)
        {
        print "Escribe el HOSTNAME  o IP $user: ";
        $tmp = <STDIN>;
        chop $tmp;
if (($tmp =~ ";")||($tmp =~ "curryco.com") ||($tmp eq '')) {

#aqui esta el problema, ya que  si alguien escribe curryco.com, entonces
#no lo deja entrar, pero si escriben curryco.COM o cualqueir combinacion
#entonces si puede entrar.. o alguien que me pudiera decir como hacer
#una listita de ips no permitidos y que los lea y si son iguales (pero
#no importando en mayusculas o minusculas) entonces que mande mensaje
#de error.. :P

print "\a\nSitios no permitidos:\n";
print "curryco.com, talker.com\n";
print "A quien se le sorprenda haciendo telnet a dichos sitios\n";
print "se les cancelara la cuenta.\n";
print "\a\nOpcion incorrecta o sitio no permitido.\n$pausa";
$tmp = <STDIN>;
chop $tmp;
goto TELNET;
}
else { hace el telnet }



Bueno.. tal vez esta chafa esto, pero aun no se bien perl.


Jorge Martinez
toro@salvaje.chapingo.mx

Key for user ID: ToRo <toro@salvaje.chapingo.mx>
Key fingerprint = D0 24 CC 32 4A E6 39 F8  D1 BC 3D C4 2E 61 C1 F9



--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : cancelacion perl