#!/bin/perl ############################################################# # # # Justino Martinez, 1998 (justino@jet.es) # # # # Download.cgi # # # ############################################################# # Este script puede copiarse y modificarse siempre y cuando # # no se borre ni modifique la cabecera ni este texto y se # # deje constancia clara del nombre y direccion de la persona# # que ha hecho las modificaciones y en que consisten estas. # # No obstante el autor no se hace responsable de usos # # malintencionados debido a modificaciones realizadas por # # otras personas. # ############################################################# # # # Funcion # # # # Permite descargar un archivo del sistema remoto al local # # # ############################################################# # # # Instalacion # # # # No precisa instalacion, simplemente precisa permisos # # 755 # # # ############################################################# # # # Ejemplo de llamada # # # # download.cgi?fichero_a_descargar # # # ############################################################# # leemos el nombre del fichero a descargar # $archivo="$ARGV[0]"; # comprobamos que existe # if (-e $archivo){ open(INPUT, $archivo); # Si existe lo guardamos # print "Content-Type: application/octet-stream\n\n"; while( read(INPUT, $buf, 16384) ) { print "$buf" ; } close(INPUT) ; } else { # Si no existe damos un error # print "Window-target: escondida\n"; print "Content-type: text/html \n\n"; print ""; }