| Current Path : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/scripts/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/scripts/backup.pl |
# /Aufnahmen/neu
my $text = <<'TEXT_ENDE';
ibert Archiv
ibert jazzmesse
ibert akt
elgar Winarchiv
elgar Musik
elgar Photos
elgar Photos1
elgar Aufnahmen
elgar CVS
elgar Data
elgar data/Mitschnitte
elgar data/rest
elgar data/WAV
TEXT_ENDE
system("mkdir /backup/ibert");
system("mkdir /backup/elgar");
system("mkdir /backup/elgar/data");
foreach $o (split(/\n/,$text)) {
next if ($o !~ /^(ibert|elgar) +(.*)/);
$host = $1;
$dir = $2;
if (-d "/".$host) {
$host1 = "/" . $host . "/";
} else {
$host1 = "/";
}
print "$host $dir \n";
system("mkdir /backup/".$host."/".$dir);
# system("cp ".$host1.$dir." /backup/".$dir);
if ($dir =~ /data/) { $host = $host . "/data"; }
system("cp -RLu ".$host1.$dir." /backup/".$host);
}