Foros del Web - Ver Mensaje Individual - Error al intentar activar el lock ejemplo.txt Bad file descriptor

joel7031 · #8 (**permalink**) 24/07/2006, 13:27

Bueno sigo in enterarme.
Njoel7031o se nada de ingles.
Tú me puedes recomendar algún sitio gratuito que soporte CGI y que tenga cuenta FTP.

Este es uno de los ficheros que quiero modificarle el color.

#!/usr/bin/perl
#
# Program: bpmember.cgi
# Author: Drummond Miles
# Email: [email protected]
#
# Created: 29/12/98
# Last Modified: 12/09/99 - removed references to $cgipath for ease of cross-platform installation
# Copyright G.A.D.Miles 1998. All Rights Reserved
#
# Download script from http://www.gadnet.com/bplus
#
# This program is being distibuted as freeware. It can be freely downloaded and used.
# It may be modified as long as the copyright information remains intact.
#
# Any use of this program is entirely at the risk of the user. No liability will be
# accepted by the author.
#
# This code must not be sold, even in modified form, without the written permission
# of the author. This code must also not be distributed without the permission of the
# author.

require "bpvars.txt";
require "bpsubs.cgi";

print "Content-type: text/html\n\n";

read(STDIN,$indata,$ENV{'CONTENT_LENGTH'});
@indata = split(/&/,$indata);
foreach $i (0..$#indata)
{
$indata[$i] =~ s/\+/ /g;
($key,$val) = split(/=/,$indata[$i],2);
$key =~ s/%(..)/pack("c",hex($1))/ge;
$val =~ s/%(..)/pack("c",hex($1))/ge;
$indata{$key} .= "\0" if (defined($indata{$key}));
$indata{$key} .= $val;
}

if ($indata{'showuser'})
{
&showuser;
}
elsif ($indata{'updateuser'})
{
&updateuser;
}
else
{
&getid;
}

sub getid
{
&header('Enter ID');
print("<form method=POST action=$cgiurl/bpmember.cgi>\n");
print("<input type=hidden name=showuser value=x>\n");
print("<center><table BORDER WIDTH=75\%>\n");
print("<tr><th ALIGN=CENTER BGCOLOR=\"#FF0000\">Información del Usuario:</th></tr>\n");
print("<tr BGCOLOR=\"#FFFF00\"><td><center><table><tr><td ALIGN=RIGHT>Nombre Usuario:</td>\n");
print("<td><input type=text name=userid size=8 maxlength=8></td></tr>\n");
print("<tr><td ALIGN=RIGHT>Contraseña:</td>\n");
print("<td><input type=password name=userpass1 size=8 maxlength=8></td></tr>\n");
print("</table></center></td></tr></table></center>\n");
print(" <center><input type=submit value=\"Ingresar\">\n");
print("</form></center>\n");
&footer;
}

sub showuser
{
&header('Members Only');
$error = 0;
if (!$indata{'userid'})
{
$error = 1;
print(" <center>Error \n");
print("Usted debe ingresar su nombre de usuario \n");
}
if (!$indata{'userpass1'})
{
if (!$error)
{
print(" <center>Error \n");
$error = 1;
}
print("Usted debe ingresar su contraseña \n");
}
if (!(-e "$bpdata/$indata{'userid'}.txt") && ($indata{'userid'}))
{
if (!$error)
{
print(" <center>Error \n");
$error = 1;
}
print("Nombre de usuario no válido \n");
print("(Observe que es sensitivo a las mayúsculas/minúsculas) \n");
}
if ($error)
{
print (" <center>Utilice el botón \'Atrás\' en su navegador para corregir</center>\n");
return;
}
open (OLDUSER, "+<$bpdata/$indata{'userid'}.txt");
$lockfail = &lock("OLDUSER");
if ($lockfail)
{
&lockerror("$indata{'userid'}.txt");
}
@olduserlines = <OLDUSER>;
close (OLDUSER);
foreach $olduserlines (@olduserlines)
{
chop $olduserlines if ($olduserlines =~ /\n$/);
}
if (@olduserlines[8] ne $indata{'userpass1'})
{
print (" <center>Error \n");
print ("La contraseña no es correcta \n");
print ("(Observe que es sensitiva a mayúsculas y minúsculas) \n");
print (" <center>Utilice el botón \'Atrás\' en su navegador para volver a ingresar</center>\n");
return;
}
$userid = $indata{'userid'};
print " <center>Bienvenido $indata{'userid'}</center>\n";
$earned = 0;
if (@olduserlines[5] > 0)
{
$earned = int(@olduserlines[4] / @olduserlines[5]);
}
$pc = "N/A";
if (@olduserlines[6] > 0)
{
$pc = (@olduserlines[7] * 100) / @olduserlines[6];
}
unless ($pc eq "N/A")
{
$pc =~ s/(.\d\d\d)\d*/$1/;
$pc = $pc . "%";
}
print(" <center><table BORDER WIDTH=50\%>\n");
print("<tr><th ALIGN=CENTER BGCOLOR=\"#FF0000\">Estadísticas de su cuenta de intercambio:</th></tr>\n");
print("<tr BGCOLOR=\"#FFFF00\"><td><center><table><tr><td ALIGN=RIGHT>Banners Impresos en SU sitio:</td><td> @olduserlines[4]</td></tr>\n");
print("<tr><td ALIGN=RIGHT>Créditos Acumulados:</td><td> $earned</td></tr>\n");
print("<tr><td ALIGN=RIGHT>Créditos Utilizados:</td><td> @olduserlines[6]</td></tr>\n");
print("<tr><td ALIGN=RIGHT>Click hacia SU sitio:</td><td> @olduserlines[7]</td></tr>\n");
print("<tr><td ALIGN=RIGHT>Porcentaje Efectividad:</td><td> $pc</td></tr>\n");
print("</td></tr></table></table></center>\n");

print("<form method=POST action=$cgiurl/bpmember.cgi>\n");
print("<input type=hidden name=updateuser value=x>\n");
print("<input type=hidden name=userid value=$userid>\n");
print(" <center><table BORDER WIDTH=75\%>\n");
print("<tr><th ALIGN=CENTER BGCOLOR=\"#FF0000\">Información de Usuario:</th></tr>\n");
print("<tr BGCOLOR=\"#FFFF00\"><td><center><table><tr><td ALIGN=RIGHT>Nombre:</td>\n");
print("<td><input type=text name=username size=20 maxlength=30 value='@olduserlines[0]'></td></tr>\n");
print("<tr><td ALIGN=RIGHT>Email:</td>\n");
print("<td><input type=text name=email size=30 maxlength=50 value=@olduserlines[1]></td></tr>\n");
print("<tr><td ALIGN=RIGHT>URL de su Sitio:</td>\n");
print("<td><input type=text name=siteurl size=40 maxlength=60 value=@olduserlines[2]></td></tr>\n");
print("<tr><td ALIGN=RIGHT>Título de su Sitio:</td>\n");
print("<td><input type=text name=sitetitle size=40 maxlength=60 value='@olduserlines[9]'></td></tr>\n");
print("<tr><td ALIGN=RIGHT>URL de su Banner:</td>\n");
print("<td><input type=text size=40 name=urlbanner maxlength=60 value=@olduserlines[3]>(ej. http://sudominio.com/banner.gif)</td></tr></table>\n");
print("</td></tr></table></center>\n");
print(" <center><input type=submit value=\"Modificar\">\n");
print("</center></form>\n");
}

sub updateuser
{
&header('Update User');
$error = 0;
if (!$indata{'username'})
{
$error = 1;
print(" <center>Error \n");
print("Usted debe ingresar su nombre \n");
}
if (!$indata{'email'})
{
if (!$error)
{
print(" <center>Error \n");
$error = 1;
}
print("Usted debe ingresar su dirección e-mail \n");
}
if (!$indata{'siteurl'})
{
if (!$error)
{
print(" <center>Error \n");
$error = 1;
}
print("Usted debe ingresar la URL de su sitio \n");
}
if (!$indata{'sitetitle'})
{
if (!$error)
{
print(" <center>Error \n");
$error = 1;
}
print("Usted debe ingresar el título de su sitio \n");
}
if ($error)
{
print (" <center>Utilice el botón \'Atrás\' en su navegador para corregir estos datos</center>\n");
return;
}
open (OLDUSER, "+<$bpdata/$indata{'userid'}.txt");
$lockfail = &lock("OLDUSER");
if ($lockfail)
{
&lockerror("$indata{'userid'}.txt");
}
@olduserlines = <OLDUSER>;
$olduserlines[0] = "$indata{'username'}\n";
$olduserlines[1] = "$indata{'email'}\n";
$olduserlines[2] = "$indata{'siteurl'}\n";
$olduserlines[9] = "$indata{'sitetitle'}\n";
$olduserlines[3] = "$indata{'urlbanner'}\n";
$olduserlines[13] = "0\n";
seek (OLDUSER,0,0);
truncate (OLDUSER,0);
foreach $olduserlines (@olduserlines)
{
chop $olduserlines if ($olduserlines =~ /\n$/);
print OLDUSER "$olduserlines\n";
}
close (OLDUSER);
$update = 1;
print " <center>El usuario $indata{'userid'} ha sido modificado.</center>\n";
print " <center>Por favor asegúrese que el siguiente código se encuentre incluído al menos en su página principal:</center>\n";
&htmlcode($indata{'userid'});
print " Usted debe reemplazar AMBAS impresiones de XX por un número entre 01 y 99. \n";
print "Por supuesto cada XX debe ser el mismo número en las dos partes a reemplazar. \n";
print "Si usted copia este código en más de una página, entonces cada aparición de este código DEBE TENER UN VALOR DIFERENTE para XX, en cada página donde lo inserta, pero ambas XX deben ser iguales en una misma página. \n";
print "En otras palabras, si coloca este código en dos páginas, AMBAS apariciones de XX deben ser 01 en la primera página y 02 en la segunda página.\n";
}