#!/usr/bin/perl

# Vergleiche Files in srcdir und refdir.
# Unterschiedliche oder fehlende Files werden in updir kopiert.

$basedir="d:\\zabex\\";
$srcdir=$basedir."__html\\";
$refdir=$basedir."_hochgeladen\\";
$updir=$basedir."_upload\\";
system "color E1";
# ----------------------------------------------------------------------
my @entries;
my $f;
my $d;
my $cmd;
my $n=0;

print "Pruefe, welche Dateien hochgeladen werden muessen...\n";

opendir (DIR, $srcdir);  #Alle Source-Filenamen holen
@entries=readdir(DIR);
closedir(DIR);

$anzahl=$#entries;

print "\n";
unlink glob($updir."*"); #bestehendes Upload-Dir loeschen

foreach $f(@entries){
#  print "[$f]\n";
  next if $f eq ".";
  next if $f eq "..";
  if (-f $srcdir.$f){          #nur wenn Datei (kein dir)
    $cmd="fc ".$srcdir.$f." ".$refdir.$f." >>fclog.txt";  #File Compare
    $result=system $cmd; 
    if ($result>0){  # FC hat keine Gleichheit festgestellt!
     $cmd="copy /b ".$srcdir.$f." ".$updir.$f." >>copylog.txt\n";
     #print $cmd;
#     print "$f\n";
     push (@liste,$f);
     system $cmd;
     $n++;
    }else{
#      print".";
    }
    print " $anzahl    \r";
    $anzahl--;
  }
}
print "      \r";
unlink "fclog.txt";
print"\n----------------------------------\n";
print join("\r\n",sort @liste);
print"\n----------------------------------\n";
print "Fertig. Kopierte Dateien: $n\n";
getc;