#!c:\perl\bin\perl.exe
use strict;
use Net::FTP;

# Configuration

my $ftp_server = "www.einblatt.de";
my $ftp_login = "ftp14353";
my $ftp_pass = "herbert";
my $ftp_dir = "/www.ejansen.de/img/art";


my $ftp;
my @FTP_content;
my $FTP_content;

my @LOCAL_content;
my $LOCAL_content;

print "Harddisk <-> FTP Sync Script *** Sebastian Jansen 2003\n\n";

$ftp = Net::FTP->new($ftp_server) || die "Konnte FTP Server nicht finden!!!";
$ftp->login($ftp_login, $ftp_pass) || die "Konnte nicht einloggen!!!";
$ftp->cwd($ftp_dir) || die "Konnte Verzeichnis nicht wechseln!!!";

# Directory Inhalt holen
@FTP_content = $ftp->ls();
$FTP_content = join ("", @FTP_content);

# Lokalen Inhalt holen
@LOCAL_content = <*>;
#$LOCAL_content = join ("", @LOCAL_content);

my $i = 0;
$ftp->binary();
foreach (@LOCAL_content){
		
	if ($FTP_content =~ /$_/){						
		print ".";
	}
	else {
		print "$_ nicht remote gefunden...";
		$ftp->put($_)||die"Konnte $_ nicht hochladen!";
		$i++;
		print "hochgeladen\n";
	}				
}


$ftp->quit||die "Verbindung konnte nicht geschlossen werden!";

print "\n\nEs wurden $i Dateien auf den Server geladen.\n Drücken Sie eine Taste um zum System zurückzukehren.";
<STDIN>;