Perl CGI para descargar un archivo a través del navegador web.
Necesita algún script cgi-perl que pueda descargar un archivo desde una máquina servidor. EX: hacer clic en un enlace de descarga, se abrirá una ventana "guardar como" y me permitirá guardar el archivo en mi máquina local.
He creado una página web utilizando CGI, utilizando esto cargaré un archivo en el servidor y ejecutaré un script en perl para convertirlo a otro formato (hasta que termine). Ahora necesito recuperar este archivo (descargarlo de nuevo) en el sistema.
#!/usr/bin/perl
#print "Content-type: text/html\n\n";
my $filepath='/upload/testing.pm';
print "Content-Type: text/html\n\n";
open("DOWNLOADFILE", "<".$filePath);
while($fileContents = <DOWNLOADFILE>) {
print $fileContents;
}
print "Content-Type: text\n";
print "Content-Disposition: attachment; filename='testing.pm'\n";
print "Content-Description: File to download\n\n";
close DOWNLOADFILE;
Cargar un archivo de mi máquina (cliente) a la máquina del servidor, donde tengo una secuencia de comandos perl que convertirá el archivo a otro formato y guardará el archivo recién convertido en un directorio ex: / upload-> hasta aquí he terminado con las secuencias de comandos .
Ahora necesito descargar este archivo de nuevo a la máquina cliente usando el navegador. En este caso, estaba intentando descargar el archivo testing.pm de nuevo a la máquina cliente.