Name

CatalystX::Usul::TapeBackup - Provides tape device methods

Version

Describes v0.16.$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

cpanm CatalystX::Usul

perl -MCPAN -e shell
install CatalystX::Usul