projects
/
BackupPC.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* Added Italian translation, it.pm, from Lorenzo Cappelletti
[BackupPC.git]
/
bin
/
BackupPC_zipCreate
diff --git
a/bin/BackupPC_zipCreate
b/bin/BackupPC_zipCreate
index
5b48622
..
2a01965
100755
(executable)
--- a/
bin/BackupPC_zipCreate
+++ b/
bin/BackupPC_zipCreate
@@
-1,4
+1,4
@@
-#!/bin/perl
-T
+#!/bin/perl
#============================================================= -*-perl-*-
#
# BackupPC_zipCreate: create a zip archive of an existing dump
#============================================================= -*-perl-*-
#
# BackupPC_zipCreate: create a zip archive of an existing dump
@@
-33,7
+33,7
@@
# Based on Backup_tarCreate by Craig Barratt <cbarratt@users.sourceforge.net>
#
# COPYRIGHT
# Based on Backup_tarCreate by Craig Barratt <cbarratt@users.sourceforge.net>
#
# COPYRIGHT
-# Copyright (C) 2002 Craig Barratt and Guillaume Filion
+# Copyright (C) 2002
-2003
Craig Barratt and Guillaume Filion
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@@
-51,13
+51,14
@@
#
#========================================================================
#
#
#========================================================================
#
-# Version 2.
0.0beta2, released 13 Apr 2003
.
+# Version 2.
1.0_CVS, released 8 Feb 2004
.
#
# See http://backuppc.sourceforge.net.
#
#========================================================================
use strict;
#
# See http://backuppc.sourceforge.net.
#
#========================================================================
use strict;
+no utf8;
use lib "/usr/local/BackupPC/lib";
use Archive::Zip qw(:ERROR_CODES);
use File::Path;
use lib "/usr/local/BackupPC/lib";
use Archive::Zip qw(:ERROR_CODES);
use File::Path;
@@
-132,6
+133,7
@@
my $fh = new IO::Handle;
$fh->fdopen(fileno(STDOUT),"w");
my $zipfh = Archive::Zip->new();
$fh->fdopen(fileno(STDOUT),"w");
my $zipfh = Archive::Zip->new();
+binmode(STDOUT);
foreach my $dir ( @ARGV ) {
archiveWrite($zipfh, $dir);
}
foreach my $dir ( @ARGV ) {
archiveWrite($zipfh, $dir);
}