CUFP
davis
<div>
This is disgusting, but it's a just a quick-n-dirty hack to upload a directory structure to a remote FTP server where the FTP server would only allow one "put" command per login session. Yes, really. Obviously there was no ssh access otherwise I would have used rsync/scp -r. Oh well.
<code>
#!/usr/bin/perl
use warnings;
use strict;
use Net::FTP;
use File::Basename;
my $startdir = "somewhere";
my $ftphost = "somehost";
my $ftpuser = "someuser";
my $ftppass = "somepass";
upload_dir($startdir);
sub upload_dir {
my $dir = shift;
foreach my $entry (<$dir/*>) {
upload_dir($entry) if(-d $entry);
my $ftp = Net::FTP->new($ftphost)
or die "Can't connect to $ftphost: $@";
$ftp->login($ftpuser, $ftppass)
or die "Can't login ", $ftp->message;
my $dirname = dirname $entry;
$ftp->mkdir($dirname, 1);
$ftp->cwd($dirname);
$ftp->put($entry);
$ftp->quit;
}
}
</code>
</div>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-80839">
<br>davis<br>
<div class="pmsig-80839">
<font size="-3">
Kids, you tried your hardest, and you failed miserably. The lesson is: Never try.
</font>
<br>
</div>
</div></div>