die $err if $err;
# write to $reservation->{'device'}, using label $label, and opening
# the device with $access_mode (one of $ACCESS_WRITE or $ACCESS_APPEND)
die $err if $err;
# write to $reservation->{'device'}, using label $label, and opening
# the device with $access_mode (one of $ACCESS_WRITE or $ACCESS_APPEND)
algorithm. The constructor takes the following keyword arguments:
changer Amanda::Changer object to use (required)
algorithm. The constructor takes the following keyword arguments:
changer Amanda::Changer object to use (required)
if not specified. Default values for all of these options are applied before a
subclass's constructor is called.
if not specified. Default values for all of these options are applied before a
subclass's constructor is called.
$self->{'tapelist_filename'} = $params{'tapelist_filename'};
$self->{'labelstr'} = $params{'labelstr'};
$self->{'autolabel'} = $params{'autolabel'};
$self->{'tapelist_filename'} = $params{'tapelist_filename'};
$self->{'labelstr'} = $params{'labelstr'};
$self->{'autolabel'} = $params{'autolabel'};
my @reusable = @tapelist[$self->{'tapecycle'}-1 .. $#tapelist];
for my $tle (@reusable) {
return 1 if $tle eq $vol_tle;
my @reusable = @tapelist[$self->{'tapecycle'}-1 .. $#tapelist];
for my $tle (@reusable) {
return 1 if $tle eq $vol_tle;
my $template = exists $params{'template'}? $params{'template'} : $self->{'autolabel'}->{'template'};
my $labelstr = exists $params{'labelstr'}? $params{'labelstr'} : $self->{'labelstr'};
my $template = exists $params{'template'}? $params{'template'} : $self->{'autolabel'}->{'template'};
my $labelstr = exists $params{'labelstr'}? $params{'labelstr'} : $self->{'labelstr'};