e-smith-flexbackup/root/etc/e-smith/events/actions/tape-restore-flexbackup

328 lines
6.9 KiB
Plaintext
Raw Permalink Normal View History

#!/usr/bin/perl -w
#----------------------------------------------------------------------
# copyright (C) 1999-2005 Mitel Networks Corporation
#
# 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
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
#----------------------------------------------------------------------
# Restore e-smith config etc from tape using flexbackup
package esmith;
use esmith::ConfigDB;
use esmith::Backup;
use strict;
my $conf = esmith::ConfigDB->open_ro or die "Could not open config db";
my $backup_program = $conf->get('backup')->prop('Program');
unless (defined $backup_program && $backup_program eq 'flexbackup')
{
exit(0);
}
package main;
###########################################################################
use POSIX;
use English;
use strict;
my $configfile = "/etc/flexbackup.conf";
my $filesystem = "/";
my $tempfile = "/tmp/restore.$$";
my $backup = new esmith::Backup or die "Couldn't create Backup object\n";
my @restore = $backup->restore_list;
package cfg;
require $configfile;
@cfg::filesystems = split(/ /, $cfg::set{full});
package main;
sub FindTapeFile ($);
sub ProbeTape ($);
sub RewindTape ($);
sub FSFTape ($$);
sub DetermineBlocksize($);
sub CreateFileList($);
sub ExtractFiles($$$);
sub NotifyAdmin ($$);
sub DetermineBackupType;
unless (defined @cfg::filesystems && @cfg::filesystems)
{
my $message = << "EOF";
An error occurred while restoring from tape.
As there were no filesystems listed for backup in /etc/flexbackup.conf
the correct dump file on the tape could not be located.
EOF
NotifyAdmin("Tape restore failed", $message);
die "Tape restore failed: no filesystems listed for backup"
. " in $cfg::filesystems.\n";
}
my $tapefile = &FindTapeFile($filesystem);
++$tapefile; # Skip the index file
&ProbeTape($cfg::device);
&RewindTape($cfg::device);
&FSFTape($cfg::device, $tapefile);
my $tape_blocksize = &DetermineBlocksize($cfg::device);
&RewindTape($cfg::device);
&FSFTape($cfg::device, $tapefile);
&CreateFileList($tempfile);
&ExtractFiles($filesystem, $tempfile, $tape_blocksize);
###########################################################################
sub FindTapeFile ($)
{
# Need to locate which file on the tape contains the dump of the
# root filesystem. Assume it is a one tape archive for the moment.
my $filesystem = shift;
foreach (@cfg::filesystems)
{
if (m:\W*$filesystem\W*:)
{
my @fs = split(/\s+/, $_);
for (my $i = 0; $i < @fs; $i++)
{
return $i if ($fs[$i] eq "$filesystem")
}
}
my $message = << "EOF";
An error occurred while restoring from tape.
The $filesystem filesystem is not listed on the first tape.
EOF
NotifyAdmin("Tape restore failed", $message);
die "Tape restore failed: $filesystem filesystem is not listed"
. " on the first tape.\n";
}
}
sub ProbeTape ($)
{
my $device = shift;
system("/bin/mt -f $device status > /dev/null 2>&1");
if ($CHILD_ERROR)
{
my $message = << "EOF";
An error occurred while restoring from tape.
No tape loaded at $device.
EOF
NotifyAdmin("Tape restore failed", $message);
die "Tape restore failed: no tape loaded at $device.\n";
}
}
sub RewindTape ($)
{
my $device = shift;
system("/bin/mt -f $device rewind > /dev/null 2>&1");
if ($CHILD_ERROR)
{
my $message = << "EOF";
An error occurred while restoring from tape.
Could not rewind tape at $device.
EOF
NotifyAdmin("Tape restore failed", $message);
die "Tape restore failed: could not rewind tape at $device.\n";
}
}
sub FSFTape ($$)
{
my $device = shift;
my $files = shift;
system("/bin/mt -f $device fsf $files > /dev/null 2>&1");
if ($CHILD_ERROR)
{
my $message = << "EOF";
An error occurred while restoring from tape.
Could not position tape at file $files at $device.
EOF
NotifyAdmin("Tape restore failed", $message);
die "Tape restore failed: could not position tape at $device.\n";
}
}
sub DetermineBlocksize($)
{
my $device = shift;
use File::Temp 'tempdir';
use File::stat;
my $dir = File::Temp::tempdir( CLEANUP => 1 );
my $file = "$dir/xx";
system("dd", "if=$device", "bs=1M", "count=1", "of=$file");
my $st = stat($file) or die "No $file: $!";
return (($st->size)/1024);
}
sub DetermineBackupType
{
my $device = shift;
my $magic = `/usr/bin/file -sz $device 2>/dev/null`;
return "tar" if ($magic =~ /tar archive/);
return "dump" if ($magic =~ /new-fs dump file/);
return undef;
}
sub CreateFileList ($)
{
my $file = shift;
unless (open(FILE, "> $file"))
{
my $error = $!;
my $message = << "EOF";
An error occurred while restoring from tape.
Could not open temporary file $file for writing: $!.
EOF
NotifyAdmin("Tape restore failed", $message);
die "Tape restore failed: Could not open temporary file"
. " $file for writing: $error\n";
}
foreach (@restore)
{
print FILE "$_\n";
}
close FILE;
}
sub ExtractFiles ($$$)
{
my $filesystem = shift;
my $filelist = shift;
my $blocksize = shift;
unless (chdir $filesystem)
{
my $error = $!;
my $message = << "EOF";
An error occurred while restoring from tape.
Could not change directories to $filesystem: $!.
EOF
NotifyAdmin("Tape restore failed", $message);
die "Tape restore failed: could not change directories"
. " to $filesystem. $error\n";
}
$ENV{'PATH'} = "/bin:/usr/bin:/sbin";
system(
"/usr/bin/flexbackup",
"-extract",
"-d", "blksize=$blocksize",
"-flist",
$filelist
);
if ($CHILD_ERROR)
{
my $message = << "EOF";
An error occurred while restoring from tape.
Flexbackup returned with an error. For more details concerning this
error see:
/var/log/messages
/flexbackup.extract.log
EOF
NotifyAdmin("Tape restore failed", $message);
die "Tape restore failed: flexbackup error.\n";
}
unlink $filelist;
my $message = << "EOF";
Restoring from tape was successful.
For more details concerning this successful restore see:
/var/log/messages
/flexbackup.extract.log
EOF
NotifyAdmin("Tape restore succeeded", $message);
}
sub NotifyAdmin ($$)
{
my $subject = shift;
my $message = shift;
open(DATEMAIL, "|-")
or exec qw(/var/qmail/bin/datemail -t);
print DATEMAIL << "EOF";
To: admin
Subject: $subject
$message
EOF
close DATEMAIL;
}