4 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
eval{zip_file()};
if ($@){ print FILE &get_time.": zip failure : $@ \n";}
################################################################
# zipFile() zum Verzeichnisse zippen!
################################################################
sub zip_file
{
my $zip= Archive::Zip->new();
$zip->addTree($folder{'subdir'},'');
$zip->writeToFileNamed($folder{'subdir'}.'.zip');
}
4 Einträge, 1 Seite |