Downloading an entire directory

[chrismassey]

Hello,

I have written a script which lets me download individual files from my web server to a PC, however I want to be able to download entire diriectories rather than individual files. Here is the script to download an individual file...

#! /usr/bin/perl
use strict;
use CGI ':standard'; 
use CGI::Carp qw(fatalsToBrowser);

my $files_location;  
my $ID;  
my @fileholder;

$files_location = "/PATH/chrismassey.co.uk/Perl/Scripts/ControlPanelV1.0/";

$ID = "z/Properties/Images/Logo1.bmp";  

if ($ID eq '') {  
print "Content-type: text/html\n\n";  
print "You must specify a file to download.";  
} else {

open(DLFILE, "<$files_location/$ID") || Error('open', 'file');  
@fileholder = <DLFILE>;  
close (DLFILE) || Error ('close', 'file');

print "Content-Type:application/x-download\n";  
print "Content-Disposition:attachment;filename=$ID\n\n"; 
print @fileholder 
### end else
}

sub Error { 
       print "Content-type: text/html\n\n"; 
   print "The server can't $_[0] the $_[1]: $! \n"; 
   exit; 
 }

Thanks

 

[KevinADC]

What is the program you are developing going to be for?

------------------------------------------
- Kevin, perl coder unexceptional!

 

[chrismassey]

The program allows a client to backup an entire directory to his computer. This is so that he can have a hard copy of the files. I was thinking that I could process all files in a directory recursively, however I don't want a save dialog box to pop up for every file that is being saved.

Chris

 

[KevinADC]

Why not use FTP for the backup if it's going to be an entire directory? Probably want to zip the files too.

I'm sure you could make a recursive function but I think FTP is the way to go here.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[chrismassey]

Thank you Kevin,

I have looked into FTP access and also zipping files...

It should work

Chris