#!/usr/bin/perl -w
########################################################
#
# "Upload de archivos"
#
# Creado por: Uriel Lizama
# Todos los derechos reservado.
#
# http://perlenespanol.baboonsoftware.com/
#
#########################################################

use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI;

#iniciamos el script de perl

my %Input;
my $query = new CGI;
my @pairs = $query->param;

foreach my $pair(@pairs){
        $Input{$pair} = $query->param($pair);
}

#Obtenemos el valor del Radio Button Actual
my $radioButton = $Input{'docTipo'}; #Segun el valor de un radio para escoger una carpeta
my $nombrePersonalizado = $Input{'cadenatexto'}; #Si cambian el nombre
my $nombre_en_servidor;
my $nuevoEstado = $Input{'newEstado'}; #Para saber que boton apreto
my $carpetaEstado = $Input{'MEstados'}; #Una <select> de html
my $Location;
my $whobutton = $Input{'btn_Accion'}; #un boton para saber que boton se apreto


#Directorio donde guardaremos archivos
my $dir = "/usr/local/psa/home/vhosts/pagina.com/httpdocs/Documentos/tmp"; #ruta del directorio donde se guardan los archivos
$Location = "http://miservidor.com/util/subearchivo.php"; #Redirecciono algunas variables para dar de alta en bases de datos y algunas cosas mas

#Verificamos que los botones no se aprieten
if ( $whobutton eq "Enviar"  ){ #Pregunto si el boton clickeado es el de valor enviado ( no sabia como se hacia y asi le hice XD)
       
        #Iniciar la recepcion del archivo
        recepcion_de_archivo();
#Parece que aqui da el problema ya que el location me termina mandando esto
#http://miservidor.com/util/subearchivo.php en el final. y nada concatenado
#Lo peor del caso es que aveces si me lo hace cuando espero algun tiempo y otras no :S
       
}elsif ( $whobutton eq "Agregar" ) {#Verificamos el boton apretado y mandamos variables. #Si se va agregar un estado
       
        $Location = "http://miservidor.com/util/eliminarEstados.php";#redirecciono pero aqui no me da problemas
        $Location = $Location . "?agrEstado=true&delEstado=false&objetivo=$nuevoEstado";
       
}elsif ($whobutton eq "Eliminar" ) { #Elimino pero no me da problemas
       
        $Location = "http://informanalitica.com/util/eliminarEstados.php";#redireccion pero igual no hay problema
        $Location = $Location . "?agrEstado=false&delEstado=true&objetivo=$carpetaEstado";
       
}


$nuevoEstado = "";
$carpetaEstado = "";

#Si el archivo se subio redireccionamos a la pagina de subir archivos con true.
#print "Content-type: text/html\n\n";
print "Location: $Location\n";#Redirecciono segun variable concatenada
exit(1);

#Finaliza script perl
#----------------------------------------------------------------------------------

#Funcion para recepcion de archivos
sub recepcion_de_archivo{ 

$nombre_en_servidor = $Input{'userfile'};
$nombre_en_servidor =~ s/ /_/gi;
$nombre_en_servidor =~ s!^.*(\\|\/)!!;
my ($file, $ext ) = split( /\./ , $nombre_en_servidor );
#Si el input de nombre personalizado no esta vacio.
if ( $nombrePersonalizado ne "" ){
        $nombrePersonalizado = "$nombrePersonalizado.$ext";
        $nombrePersonalizado =~ s/ /_/gi;
        $nombrePersonalizado =~ s!^.*(\\|\/)!!;
        $nombre_en_servidor = "";
        $nombre_en_servidor = $nombrePersonalizado;
}

#La direccion que me deberia de mandar
$Location = $Location . "?nombreArchivo=$nombre_en_servidor&docTipo=$radioButton&estado=$carpetaEstado";

#Abrimos el nuevo archivo
        open (OUTFILE, ">$dir/$nombre_en_servidor") || die "No se puedo crear el archivo $dir/$nombre_en_servidor<-";
        binmode(OUTFILE); #Para no tener problemas en Windows

#Transferimos byte por byte el archivo
        while (my $bytesread = read($Input{'userfile'}, my $buffer, 1024)) {
                print OUTFILE $buffer;
        }

#Cerramos el archivo creado
        close (OUTFILE);



} #sub recepcion_de_archivo

if ( $whobutton eq "Enviar"  ){
       
        #Iniciar la recepcion del archivo
        recepcion_de_archivo();
        $Location = $Location . "?nombreArchivo=$nombre_en_servidor&docTipo=$radioButton&estado=$carpetaEstado";
        $debug1 = "pase debug 1 \n"; #VERIFICAMOS SI ENTRO EN EL IF

sub recepcion_de_archivo{ #Inicia la subrutina
  $debug2 = "Pase debug 2"; #VARIABLE PARA VERIFICAR QUE ENTRO A SUBRUTINA

if ( $whobutton eq "Enviar"  ){

use CGI;
$|++; 

#!/usr/bin/perl -w
########################################################
#
# "Upload de archivos"
#
# Creado por: Uriel Lizama
# Todos los derechos reservado.
#
# http://perlenespanol.baboonsoftware.com/
#
#########################################################

use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI;

#iniciamos el script de perl

my %Input;
my $query = new CGI;
my @pairs = $query->param;

foreach my $pair(@pairs){
        $Input{$pair} = $query->param($pair);
}

#Obtenemos el valor del Radio Button Actual
my $radioButton = $Input{'docTipo'}; #Segun el valor de un radio para escoger una carpeta
my $nombrePersonalizado = $Input{'cadenatexto'}; #Si cambian el nombre
my $nombre_en_servidor;
my $nuevoEstado = $Input{'newEstado'}; #Para saber que boton apreto
my $carpetaEstado = $Input{'MEstados'}; #Una <select> de html
my $Location="";
my $whobutton = $Input{'btn_Accion'}; #un boton para saber que boton se apreto


#Directorio donde guardaremos archivos
my $dir = "/usr/local/psa/home/vhosts/informanalitica.com/httpdocs/Documentos/tmp";
$Location = "http://informanalitica.com/util/subearchivo.php";
 

#Array con extensiones de archivos que podemos recibir
#my @extensiones = ('pdf','gif','jpg','jpeg','bmp','png');

#Verificamos que los botones no se aprieten
if ( $whobutton eq "Enviar"  ){
       
        #Iniciar la recepcion del archivo       
        $nombre_en_servidor = $Input{'userfile'};
        $nombre_en_servidor =~ s/ /_/gi;
        $nombre_en_servidor =~ s!^.*(\\|\/)!!;
        my ($file, $ext ) = split( /\./ , $nombre_en_servidor );
       
        #Si el input de nombre personalizado no esta vacio.
        if ( $nombrePersonalizado ne "" ){
                $nombrePersonalizado = "$nombrePersonalizado.$ext";
                $nombrePersonalizado =~ s/ /_/gi;
                $nombrePersonalizado =~ s!^.*(\\|\/)!!;
                $nombre_en_servidor = "";
                $nombre_en_servidor = $nombrePersonalizado;
               
        }
       
        #Abrimos el nuevo archivo
                open (OUTFILE, ">$dir/$nombre_en_servidor") || die "No se puedo crear el archivo $dir/$nombre_en_servidor<-";
                binmode(OUTFILE); #Para no tener problemas en Windows
       
        #Transferimos byte por byte el archivo
                while (my $bytesread = read($Input{'userfile'}, my $buffer, 1024)) {
                        print OUTFILE $buffer;
                }
       
        #Cerramos el archivo creado
                close (OUTFILE);


        $Location = $Location . "?nombreArchivo=$nombre_en_servidor&docTipo=$radioButton&estado=$carpetaEstado";
       
       
}elsif ( $whobutton eq "Agregar" ) {#Verificamos el boton apretado y mandamos variables.
       
        $Location = "http://informanalitica.com/util/eliminarEstados.php";     
        $Location = $Location . "?agrEstado=true&delEstado=false&objetivo=$nuevoEstado";
       
}elsif ($whobutton eq "Eliminar" ) {
       
        $Location = "http://informanalitica.com/util/eliminarEstados.php";     
        $Location = $Location . "?agrEstado=false&delEstado=true&objetivo=$carpetaEstado";
       
}


        $nuevoEstado = "";
        $carpetaEstado = "";
       
        #Si el archivo se subio redireccionamos a la pagina de subir archivos con true.
        #$debug3 = $Input{'userfile'};
        #print "Content-type: text/html\n\n";
        print "Location: $Location\n";
        exit(1);

#Finaliza script perl
#----------------------------------------------------------------------------------