projects
/
debian
/
amanda
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Imported Upstream version 3.2.0
[debian/amanda]
/
application-src
/
amzfs-sendrecv.pl
diff --git
a/application-src/amzfs-sendrecv.pl
b/application-src/amzfs-sendrecv.pl
index 63bb0bcc073f727fecd0664687ccb382e3e97de5..9d740cb8a7d4a0c4b34b4c565a6c2a85763da67c 100644
(file)
--- a/
application-src/amzfs-sendrecv.pl
+++ b/
application-src/amzfs-sendrecv.pl
@@
-1,5
+1,5
@@
#!@PERL@
#!@PERL@
-# Copyright (c) 2008,
2009
Zmanda, Inc. All Rights Reserved.
+# Copyright (c) 2008,
2009, 2010
Zmanda, Inc. All Rights Reserved.
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License version 2 as published
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License version 2 as published
@@
-19,6
+19,7
@@
use lib '@amperldir@';
use strict;
use lib '@amperldir@';
use strict;
+use warnings;
use Getopt::Long;
package Amanda::Application::Amzfs_sendrecv;
use Getopt::Long;
package Amanda::Application::Amzfs_sendrecv;
@@
-168,12
+169,6
@@
sub output_size {
sub command_backup {
my $self = shift;
sub command_backup {
my $self = shift;
- my $mesgout_fd;
- open($mesgout_fd, '>&=3') ||
- $self->print_to_server_and_die("Can't open mesgout_fd: $!",
- $Amanda::Script_App::ERROR);
- $self->{mesgout} = $mesgout_fd;
-
if ($#{$self->{include_list}} >= 0) {
$self->print_to_server("include-list not supported for backup",
$Amanda::Script_App::ERROR);
if ($#{$self->{include_list}} >= 0) {
$self->print_to_server("include-list not supported for backup",
$Amanda::Script_App::ERROR);
@@
-224,8
+219,8
@@
sub command_backup {
my($ksize) = int ($size/1024);
$ksize=32 if ($ksize<32);
my($ksize) = int ($size/1024);
$ksize=32 if ($ksize<32);
- print
$mesgout_fd
"sendbackup: size $ksize\n";
- print
$mesgout_fd
"sendbackup: end\n";
+ print
{$self->{mesgout}}
"sendbackup: size $ksize\n";
+ print
{$self->{mesgout}}
"sendbackup: end\n";
# destroy all snapshot of this level and higher
$self->zfs_purge_snapshot($level, 9);
# destroy all snapshot of this level and higher
$self->zfs_purge_snapshot($level, 9);