#!/usr/bin/perl
use Net::FTP;
#-----------------------------------------------------------------------------------------
$host="www.meine-homepage.de";
$loginname="MeinUserName";
$pass="hierMussEuerPasswortRein";

$basedir="d:\\zabex\\";              #Hier liegen die lokalen Quellen
$refdir=$basedir."_hochgeladen\\";   #Diese Verzeichnisse müssen existieren
$updir=$basedir."_upload\\";         #        "
#-----------------------------------------------------------------------------------------
opendir (DIR, $updir);  #Alle Source-Filenamen holen
@entries=readdir(DIR);
closedir(DIR);
   print "Verbinde mit $host...\n";
   my $ftp = Net::FTP->new($host, Debug => 0) or die "Cannot connect to $host: $@";
   print "Login $host...\n";
   $ftp->login($loginname,$pass) or die "Cannot login ", $ftp->message;

#   print "Get DIR...\n";
#   print join("\n",$ftp->dir);
#   print "\n";
   
   $ftp->binary;

   $n=$#entries -1; # . und .. nicht mitzaehlen.
   foreach $f(@entries){
     next if $f eq ".";
     next if $f eq "..";
     $src=$updir.$f;
     $dst=$f;
     print "$n Put $dst...\n";
     $n--;
     $ftp->put($src,$dst); #Hochladen
   }

#   print join("\n",$ftp->dir);
   print "\n";


  $ftp->quit;
   
  print "Dateien von _upload nach _hochgeladen kopieren: Press ENTER.\n";
  getc;
  $cmd="copy $updir"."*.* $refdir";
  print "$cmd\n";
  system $cmd;

  print "Fertig. Press ENTER.\n";
  getc;