Error al intentar activar el lock ejemplo.txt Bad file descriptor

joel7031 · #1 (**permalink**) 21/07/2006, 20:02

Tengo un sistema rotor de banners, que e instalado pero me da este error cuando un usuario intenta registrarse.

Se ha encontrado un error al intentar activar el lock isai.txt Bad file descriptor

Luego de resobre esto les boy hacer unas cuantas preguntas sobre CGI.

Por ejemplo como puedo cambiar los colores premeditado a un fichero cgi.

Gracias…

monoswim · #2 (**permalink**) 22/07/2006, 11:44

Depende de como sea el CGI, de como imprima el código HTML...

Si es un simple print tienes que colocar el HTML para que le de color...Mostranos como es el CGI...

Y con el tema del error, fijate si el archivo tiene permisos de escritura...CHMOD 766

Saludos

jferrero · #3 (**permalink**) 22/07/2006, 16:05

Serán permisos 755...

joel7031 · #4 (**permalink**) 22/07/2006, 16:42

Gracias jferrero por tu ayuda.

Bueno yo tengo mi sitio a logado en netfirms.com y no tengo cuenta FTP solo puedo subir los fichero vía web. Y no se como puedo dar permisos a loa ficheros.

Luego de resorber esto boy a mostrar el código fuente para ver si se puede hacer algo con el aspecto.

Si sabes como puedo comprobar o dar permiso ya sabes.
Gracias…

jferrero · #5 (**permalink**) 23/07/2006, 05:43

Con el mismo programa de FTP debería dejarte... si el programa es bueno, claro...

joel7031 · #6 (**permalink**) 23/07/2006, 12:53

Ya pero es que no tengo cuenta ftp los ficheros lo tengo que subir via web,
y no se como darles permiso porque no veo ninguna opción para ello.

¿Qué puedo hacer?
Gracias…

jferrero · #7 (**permalink**) 24/07/2006, 03:37

Leer la FAQ de netfirms.com:
How do I change permissions of a file or folder using Netfirms File Manager?

Y lo normal es que tengas acceso vía FTP...
FTP Tools

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";
}

monoswim · #9 (**permalink**) 24/07/2006, 16:04

No hay mucho que entender de inglés, simplemente seguí lois gráficos, tenés que tenerloc omo el eljemplo de test.cgi...

Vamos chaval, ponele un poco de ganas, además hay servicios gratuitos de traducción, por ejemplo checeka www.altavista.com

2) en el ejemplo que me das fijate que hay muchas veces donde aparece <font color=\"#FF0000\" ese es el código HTML que tienes que cambiar para cambiar los colores de las fuentes...

Del background pues fijate poner un div que abarque todo el código HTML...

Espero que te sirva

Saludos
PD: No creo que haya servidores gratuitos con perl y FTP...

joel7031 · #10 (**permalink**) 27/07/2006, 17:24

Bueno ya mas o meno se como dar permisos a los ficheros, pero claro no del todo cesecito da permiso 777. E rebuscado en el sitio y no encontré nada que me aclare como dar permiso 777.
En la imagen que a párese abajo se esta especificando o dando permiso 755.

Y en esta se esta especificando permiso 644

Pero no se como dar permiso 777 que es lo que nenecito.
Pos nama gracias y perdonen mi ignorancia.

jferrero · #11 (**permalink**) 28/07/2006, 00:46

Cuando hablamos de 755 o 777 estamos hablando de numeración octal. Así, un 7 quiere decir un 111 en binario y un 5 es el 101.

Eso, aplicado a los permisos quiere decir, por bits, y leídos de izquierda a derecha: Permiso para lectura(r), permiso para escritura(w) y permiso de ejecución(x).

Así, un 7 da todos los permisos, y un 5 sólo da permisos de lectura y ejecución.

Cuando se agrupan de 3 en 3, como un 755, cada dígito se asocia a entorno. De izquierda a derecha, cada dígito quiere decir: permisos que tiene el propietario del fichero, permisos del grupo de usuarios al que pertenece el fichero y permisos para todo el resto (todo el resto del planeta).

Así, un 755 quiere decir que damos permiso de lectura y escritura a todo el mundo y que sólo el propietario tiene permisos de escritura.

Un permiso 777 es muy peligroso, porque quiere decir que todo el mundo puede leer, escribir y ejecutar tu programa. Lo peligroso no es que pueda leer y ejecutar, sino la posibilidad de escribir. Podrían borrarte el programa o modificarlo. Para todo tipo de cgi y carpeta que lo aloje, lo normal es dejarlo en un 755.

joel7031 · #12 (**permalink**) 28/07/2006, 07:56

Interesante
Esto no lo sabía, algo mas para la cabeza. Gracias por tu clarara explicación sobre esto.

Pero claro en el Software necesita esto par funcionar correctamente.
Esto son los permisos que hay que dar a los ficheros:
Asegúrese de que todos los scripts queden con permisos adecuados. Use: chmod 755 nombrescript
También vambie todos los permisos de los archivos .txt. Use: chmod 777 nombre archivo. El directorio
/bp/ads también debe quedar en 777. Al cambiar bp/ads a 777, quedará escribible por todos.

Claro que tiene unos cuantos consejos de seguridad a seguir, como proteger con contraseña el directorio /bp/ads.

E probado y no me sale macho ¿me puedes especificar como dar permiso 777 gráficamente

Owner
r
w
x

Group
r
w
x

Public
r
w
x

Márcame con un 1 las casillas que debo seleccionar y con un cero la que se quedaran vacías o lo que te parezca.

Ejemplo: Owner r0-w1-x1
Group r1-w0-x0
Public r0-w1-x1
Pero con la combinación para dar permiso 777

Gracias…

jferrero · #13 (**permalink**) 29/07/2006, 05:10

A ver... si se dice 777, que es un número en octal, quiere decir que es 111 111 111 en binario... ergo significa que hay que poner activos TODOS los permisos.