Name
CatalystX::Usul::TapeBackup - Provides tape device methods
Version
Describes v0.17.$Rev: 1 $
Synopsis
use CatalystX::Usul::TapeBackup;
use Class::Usul;
my $attr = { builder => Class::Usul->new, };
my $tape_obj = CatalystX::Usul::TapeBackup->new( $attr );
my $status_hash_ref = $tape_obj->get_status( {} );
my $ipc_response_obj = $tape_obj->start( $args, $paths );
my $tape_device = $tape_obj->eject( { device => $tape_device } );
Description
Provides methods to perform tape backups using either dump
or tar
Configuration and Environment
Defines the following attributes
- dev_dir
-
Directory path which defaults to /dev
- default_tape
-
String which defaults to
st0
- dump_cmd
-
String which defaults to
/sbin/dump -aqu -b 128
- dump_dates
-
Path which defaults to /etc/dumpdates
- form
-
String which defaults to
backup
- locale
-
String which defaults to
en_GB
- max_wait
-
Integer which defaults to
43_200
- mt_cmd
-
String which defaults to
mt -f
- no_rew_pref
-
String which defaults to
n
- no_rew_suff
-
String which defaults to null
- pattern
-
String which defaults to
st[0-9]+
- tar_cmd
-
String which defaults to
tar -c -b 256
Subroutines/Methods
eject
$tape_device = $self->eject( { device => $tape_device } );
Ejects the tape in the selected drive
get_status
$status_hash_ref = $self->get_status( $args );
Returns a hash ref of information about the selected tape device
process
$display_message = $self->process( $options, $paths );
Called from a command line wrapper this method executes the actual dump
or tar
command
start
$ipc_response_obj = $self->start( $args, $paths );
Calls the external command line wrapper which performs the backup. Runs the command asynchronously so that it can return immediately to the action that called it
Diagnostics
None
Dependencies
- Class::Usul::File
- Class::Usul::IPC
- CatalystX::Usul::Moose
- Class::Usul::Time
- CatalystX::Usul::Constraints
- TryCatch
Incompatibilities
There are no known incompatibilities in this module
Bugs and Limitations
There are no known bugs in this module. Please report problems to the address below. Patches are welcome
Author
Peter Flanigan, <Support at RoxSoft.co.uk>
License and Copyright
Copyright (c) 2014 Peter Flanigan. All rights reserved
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic
This program is distributed in the hope that it will be useful, but WITHOUT WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE