Problemas subiendo archivos

[Saga]

Hola a todos, les platico que tengo varios años usando perl y en particular varios años usando las mismas rutinas para subir archivos sin problemas. Pero ahora tengo un problema con el código que siempre había funcionado bien.

Actualmente uso instalaciones locales (en mi laptop) de Apache+MySQL+ActivePerl sobre Windows para trabajar off-line y subirlas a algún servidor posteriormente, pero desde hace casi un año que trabajo con Windows 7, las rutinas de subir archivos dejaron de funcionar, solo sube archivos con cero bytes y no genera ningún error incluso en los logs de apache.

Lo más extraño es que el mismo código si lo muevo a un servidor Linux o Windows Server (con apache, MySQL y Perl) funciona sin problemas. He buscado una y otra vez alguien que haya tenido el mismo problema y nada, he probado en diferentes equipos, reinstalando todo y sigue la misma constante, espero alguien me pueda ayudar.

Les anexo como referencia el código que utilizo, pero no creo que sea el código, supongo que debe ser algún problema de configuración, las versiones que tengo instaladas son las siguientes.

• Windows 7 x64
• Apache 2.2.15
• Active Perl 5.10.1 x64

Código:

# ------------------------------------------------------------
sub uploadFileB {
	my ($sourceFile, $fileName, $dirUpload) = @_;

    my $query = new CGI;
	my $upload_filehandle = $query->upload($sourceFile);
	open ( UPLOADFILE, ">$dirUpload/$fileName" ) or die "$!";
	binmode UPLOADFILE;

	while ( <$upload_filehandle> ) {
		print UPLOADFILE;
	}

	close UPLOADFILE;
}
# ------------------------------------------------------------
sub uploadFile {
    my ($sourceFile, $fileName, $dirUpload) = @_;
    if ($sourceFile eq '') {return;}

    $sourceFile =~ s/ /_/gi;
    $sourceFile =~ s!^.*(\\|\/)!!;

    open (OUTFILE, ">$dirUpload/$fileName") || die "No es posible crear el archivo";
    binmode(OUTFILE);
    while (my $bytesread = read($sourceFile, my $buffer, 1024)) {
            print OUTFILE $buffer;
    }
    close (OUTFILE);
}
# ------------------------------------------------------------

[jferrero]

Podría ser un problema con el cortafuegos de Windows 7, que por defecto evita la formación de servidores en la propia máquina:

http://www.ghisler.ch/board/viewtopic.php?t=22175

depende además si estás usando el modo pasivo o no, del ftp, porque también debes tener en cuenta el puerto de ftp-data (además del puerto de ftp).

[abcdefghi]

Puede ser que estes guardando en el disco c: y este necesite permisos más altos de los que estas usando.

Porque no pruebas a ver si sube primero haciendo:

Código PHP:

  sub uploadFileB { 
    my ($sourceFile, $fileName, $dirUpload) = @_; 
 
    my $query = new CGI; 
    my $upload_filehandle = $query->upload($sourceFile); 
    #open ( UPLOADFILE, ">$dirUpload/$fileName" ) or die "$!"; 
    #binmode UPLOADFILE; 
 
    while ( <$upload_filehandle> ) { 
        print; # UPLOADFILE; 
    } 
 
    #close UPLOADFILE; 
}  
   

Usá alguno de texto chico.

Al descriptor $upload_filehandle no tenes que cerrarlo para que borre un archivo temporal que usa/ba?

[Saga]

Iniciado por jferrero

Podría ser un problema con el cortafuegos de Windows 7, que por defecto evita la formación de servidores en la propia máquina:

Que tal jferrero, actualmente tengo deshabilitado el cortafuegos de w7, en su lugar uso KIS (Kaspersky Internet Security) y este reemplaza el cortafuegos de windows, revise en la configuración del KIS y tanto el apache como el interprete de perl tienen todos los permisos.

[Saga]

Iniciado por abcdefghi

Puede ser que estes guardando en el disco c: y este necesite permisos más altos de los que estas usando.

Porque no pruebas a ver si sube primero haciendo:

Código PHP:

  sub uploadFileB {
    my ($sourceFile, $fileName, $dirUpload) = @_;

    my $query = new CGI;
    my $upload_filehandle = $query->upload($sourceFile);
    #open ( UPLOADFILE, ">$dirUpload/$fileName" ) or die "$!";
    #binmode UPLOADFILE;

    while ( <$upload_filehandle> ) {
        print; # UPLOADFILE;
    }

    #close UPLOADFILE;
}  
   

Usá alguno de texto chico.

Gracias abcdefghi, ya hice la prueba como me indicas subiendo un txt y al parecer nunca entra en el ciclo while, me confunde un poco esto, entonces no puede abrir el archivo fuente ? o no puede leerlo simplemente ?

Iniciado por abcdefghi

Al descriptor $upload_filehandle no tenes que cerrarlo para que borre un archivo temporal que usa/ba?

Cierto, muy cierto, jeje

[abcdefghi]

Descartemos que sea la librería:

Código PHP:

  sub uploadFileB { 
    my ($sourceFile, $fileName, $dirUpload) = @_; 
 
     if (tell(STDIN)) { 
        print "algo lo leyo antes\n"; 
        exit; 
     } 
      
      read(STDIN,$_,$ENV{'CONTENT_LENGTH'}); 
     print; 
 
    #my $query = new CGI; 
    #my $upload_filehandle = $query->upload($sourceFile); 
    #open ( UPLOADFILE, ">$dirUpload/$fileName" ) or die "$!"; 
    #binmode UPLOADFILE; 
 
    #while ( <$upload_filehandle> ) { 
    #   print; # UPLOADFILE; 
    #} 
 
    #close UPLOADFILE; 
}  
   

Como sabes que tenes bien los permisos de apache, si arranca como servicio tenés que chequearlo ahí? estas trabajando en el disco c:?

[Saga]

Hola a todos, antes que nada les quiero agradecer por las respuestas en este tema, y pedir una disculpa pues ya no tuve tiempo de seguir revisandolo.

Finalmente por razones de tiempo tuvimos que cambiar algunas cosas del diseño del sistema y darle la vuelta a este problema, para poder entregar en tiempo y me dedique de lleno a eso.

Saludos.