#!/usr/bin/perl

#
# Rolf Rost, 6.4.2002
# Download eines kompletten Webtrees via FTP
# Alle Verzeichnisse und Dateien werden remote eingelesen und lokal
# gespiegelt
#
########### Benutzervorgaben ##############################################
# Lokales Downloadverzeichnis, no trailing Slash (am Ende kein Slash)
$ldir = "/tmp";

# Endungen der Files fuer ascii-mode (mit Punkt und mit "|" getrennt)
# einfache Hochkomma
$asc = '.htm|.html|.css|.pl|.cgi|.txt|.htaccess|.log|.ini';

# Benutzername, Passwort und Hostname (oder IP-Nummer) für den FTP Zugang
$ftp_id = "***";                                # Benutzername
$ftp_pw = "***";                                # Passwort
$ftp_host = "i-netlab.de";                      # FTP HostName (IP oder Name)

################## Ende der Benutzervorgaben ##############################
use File::Basename;
use File::Path;
use Net::FTP;

$|=1;

# Verbindung zum FTP Host herstellen und einloggen
        $ftp = Net::FTP->new($ftp_host) or die "Keine Verbindung\n";
        $ftp->login($ftp_id, $ftp_pw) or die "Anmeldung fehlgeschlagen\n";

# Remote Files auf eine Liste lesen ab einem best. Verzeichnis
        @rfiles = ();
        traverse("/htdocs");
        
# Remote Files downloaden, dazu ggf. Verzeichnisse lokal anlegen        
        &download;

exit;
################### Subfunctions ##########################################
# anhand der RemoteFile Liste FTP Donwload
sub download{
        foreach my $rfile(@rfiles){
                # den oder die slashes am Anfang entfernen
                $rfile =~ s/^\/+//;
                #print "$rfile\n";
                my ($name, $path) = fileparse($rfile);
                # lokal chdir oder mkdir + chdir
                $xdir = "$ldir/$path";
                chdir $xdir or mkpath($xdir);  
                chdir $xdir;
                                
                print "FTP $name -> $ldir/$path$name\n";
                # und nun das Download via FTP
                # Uebertragungsmode
                if( $name =~ /$asc$/ ){ $ftp->ascii }
                else{ $ftp->binary }
                $ftp->cwd("/$path");
                $ftp->get($name);
        }
        $ftp->quit();
}


# Remote via FTP den Tree traversieren und Files einlesen
sub traverse {
        my $dir = shift;
        unless (rdir($dir)) {
                warn "Can't read $dir via FTP\n";
                return;
        }
        for (rdir($dir)) {
                @line = split /\s+/,$_;   # $line[0] $line[8]
                next if  /^\./;
                if ( /^d/ and !/^l/ ) {
                        #print "$dir/$line[8]\n";
                        traverse("$dir/$line[8]");
                }
                else {
                        #print "$dir/$line[8]\n";
                        push @rfiles, "$dir/$line[8]";
                }
        }
}

# RemoteDir einlesen und array zurueckgeben
sub rdir{
        my $dir = shift;
        $ftp->cwd($dir);
        $rdir = $ftp->dir();
        return @$rdir;
}