#!C:\perl\bin\perl.exe -w $atras_si='0'; ######### End Setup ############# &Parse_Form; if (!$formdata{'cname'}) { &Mime; $aniadido=""; if ($atras_si eq '1'){ $aniadido="window.history.back();" } print < Chat de JEZD on Line

Principal Tecnología Música Clientes Downloads Soporte Noticias

JEZDonline

Comunicamos a nuestros amigos

Si quieres ver quienes estan hablando este momento en nuestro chat ponte un nombre y...
ENDHTML exit; } if ($formdata{'cname'}){ my $cname = $formdata{'cname'}; $cname =~ s/\`\#/`A/g; $cname =~ s/\#//g; $cname =~ s/ /\%20/g; &Mime; print < Chat de JEZD on line <body> <p>Este chat usa frames su navegador no los acepta lo siento</p> </body> MAINHTML exit; } &Mime; print <Error

Sorry

We are working in that

ERRORHTML exit; # Parses the form sub Parse_Form { if ($ENV{'REQUEST_METHOD'} eq 'GET') { @pairs = split(/&/, $ENV{'QUERY_STRING'}); } elsif ($ENV{'REQUEST_METHOD'} eq 'POST') { read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); if ($ENV{'QUERY_STRING'}) { @getpairs = split(/&/, $ENV{'QUERY_STRING'}); push(@pairs, @getpairs); } } else { &ErrorMessage("Must use Post or Get."); } foreach $pair (@pairs) { ($key, $value) = split(/=/, $pair); $key =~ tr/+/ /; $key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s///g; if ($formdata{$key}) { $formdata{$key} .= ", $value"; } else { $formdata{$key} = $value; } } } # Standard little error message routine sub ErrorMessage { my $msg = shift; print "Content-type: text/html\n\n$msg"; exit; } # Prints a html file to the screen sub Print_Htm { open(MYFILE, "<$_[0]") || &ErrorMessage("$_[0] no hallado en el directorio html "); &Mime; print while ; close(MYFILE); } # Prints the mime header only sub Mime { print "Content-type: text/html\nPragma: no-cache\n\n"; }