DESCRIPTION

will be generated. You may view the +manual page with: nroff -man .

| less'. A typical entry +in a Makefile or Makefile.am is: + +DB2MAN = /usr/share/sgml/docbook/stylesheet/xsl/nwalsh/manpages/docbook.xsl +XP = xsltproc -''-nonet -''-param man.charmap.use.subset "0" + +manpage.1: manpage.xml + $(XP) $(DB2MAN) $< + +The xsltproc binary is found in the xsltproc package. The XSL files are in +docbook-xsl. A description of the parameters you can use can be found in the +docbook-xsl-doc-* packages. Please remember that if you create the nroff +version in one of the debian/rules file targets (such as build), you will need +to include xsltproc and docbook-xsl in your Build-Depends control field. +Alternatively use the xmlto command/package. That will also automatically +pull in xsltproc and docbook-xsl. + +Notes for using docbook2x: docbook2x-man does not automatically create the +AUTHOR(S) and COPYRIGHT sections. In this case, please add them manually as + ... . + +To disable the automatic creation of the AUTHOR(S) and COPYRIGHT sections +read /usr/share/doc/docbook-xsl/doc/manpages/authors.html. This file can be +found in the docbook-xsl-doc-html package. + +Validation can be done using: `xmllint -''-noout -''-valid manpage.xml` + +General documentation about man-pages and man-page-formatting: +man(1), man(7), http://www.tldp.org/HOWTO/Man-Page/ + +--> + + + + + + + + + + + + + +]> + + + + &dhtitle; + &dhpackage; + + + &dhfirstname; + &dhsurname; + Wrote this manpage for the Debian system. +

+ &dhemail; +

+ + + + 2007 + &dhusername; + + + This manual page was written for the Debian system + (but may be used by others). + Permission is granted to copy, distribute and/or modify this + document under the terms of the GNU General Public License, + Version 2 or (at your option) any later version published by + the Free Software Foundation. + On Debian systems, the complete text of the GNU General Public + License can be found in + /usr/share/common-licenses/GPL. + + + + &dhucpackage; + &dhsection; + + + &dhpackage; + program to do something + + + + &dhpackage; + + + + + + + + + this + + + + + + + + this + that + + + + + &dhpackage; + + + + + + + + + + + + + + + + + + + DESCRIPTION + This manual page documents briefly the + &dhpackage; and bar + commands. + This manual page was written for the Debian distribution + because the original program does not have a manual page. + Instead, it has documentation in the GNU + info + 1 + format; see below. + &dhpackage; is a program that... + + + OPTIONS + The program follows the usual GNU command line syntax, + with long options starting with two dashes (`-'). A summary of + options is included below. For a complete description, see the + + info + 1 + files. + + + + + + + Does this and that. + + + + + + + Show summary of options. + + + + + + + Show version of program. + + + + + + FILES + + + /etc/foo.conf + + The system-wide configuration file to control the + behaviour of &dhpackage;. See + + foo.conf + 5 + for further details. + + + + ${HOME}/.foo.conf + + The per-user configuration file to control the + behaviour of &dhpackage;. See + + foo.conf + 5 + for further details. + + + + + + ENVIONMENT + + + FOO_CONF + + If used, the defined file is used as configuration + file (see also ). + + + + + + DIAGNOSTICS + The following diagnostics may be issued + on stderr: + + + Bad configuration file. Exiting. + + The configuration file seems to contain a broken configuration + line. Use the option, to get more info. + + + + + &dhpackage; provides some return codes, that can + be used in scripts: + + Code + Diagnostic + + 0 + Program exited successfully. + + + 1 + The configuration file seems to be broken. + + + + + + BUGS + The program is currently limited to only work + with the foobar library. + The upstreams BTS can be found + at . + + + SEE ALSO + + + bar + 1 + , + baz + 1 + , + foo.conf + 5 + + The programs are documented fully by The Rise and + Fall of a Fooish Bar available via the + info + 1 + system. + + + diff -r c3c8a413c020 -r 1691a932eed1 debian/menu.ex --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/debian/menu.ex Tue Oct 27 21:31:07 2009 +0100 @@ -0,0 +1,2 @@ +?package(ftbackup):needs="X11|text|vc|wm" section="Applications/see-menu-manual"\ + title="ftbackup" command="/usr/bin/ftbackup" diff -r c3c8a413c020 -r 1691a932eed1 debian/postinst.ex --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/debian/postinst.ex Tue Oct 27 21:31:07 2009 +0100 @@ -0,0 +1,41 @@ +#!/bin/sh +# postinst script for ftbackup +# +# see: dh_installdeb(1) + +set -e + +# summary of how this script can be called: +# * `configure' +# * `abort-upgrade' +# * `abort-remove' `in-favour' +# +# * `abort-remove' +# * `abort-deconfigure' `in-favour' +# `removing' +# +# for details, see http://www.debian.org/doc/debian-policy/ or +# the debian-policy package + + +case "$1" in + configure) + ;; + + abort-upgrade|abort-remove|abort-deconfigure) + ;; + + *) + echo "postinst called with unknown argument \`$1'" >&2 + exit 1 + ;; +esac + +# dh_installdeb will replace this with shell code automatically +# generated by other debhelper scripts. + +#DEBHELPER# + +exit 0 + + diff -r c3c8a413c020 -r 1691a932eed1 debian/postrm.ex --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/debian/postrm.ex Tue Oct 27 21:31:07 2009 +0100 @@ -0,0 +1,39 @@ +#!/bin/sh +# postrm script for ftbackup +# +# see: dh_installdeb(1) + +set -e + +# summary of how this script can be called: +# * `remove' +# * `purge' +# * `upgrade' +# * `failed-upgrade' +# * `abort-install' +# * `abort-install' +# * `abort-upgrade' +# * `disappear' +# +# for details, see http://www.debian.org/doc/debian-policy/ or +# the debian-policy package + + +case "$1" in + purge|remove|upgrade|failed-upgrade|abort-install|abort-upgrade|disappear) + ;; + + *) + echo "postrm called with unknown argument \`$1'" >&2 + exit 1 + ;; +esac + +# dh_installdeb will replace this with shell code automatically +# generated by other debhelper scripts. + +#DEBHELPER# + +exit 0 + + diff -r c3c8a413c020 -r 1691a932eed1 debian/preinst.ex --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/debian/preinst.ex Tue Oct 27 21:31:07 2009 +0100 @@ -0,0 +1,37 @@ +#!/bin/sh +# preinst script for ftbackup +# +# see: dh_installdeb(1) + +set -e + +# summary of how this script can be called: +# * `install' +# * `install' +# * `upgrade' +# * `abort-upgrade' +# for details, see http://www.debian.org/doc/debian-policy/ or +# the debian-policy package + + +case "$1" in + install|upgrade) + ;; + + abort-upgrade) + ;; + + *) + echo "preinst called with unknown argument \`$1'" >&2 + exit 1 + ;; +esac + +# dh_installdeb will replace this with shell code automatically +# generated by other debhelper scripts. + +#DEBHELPER# + +exit 0 + + diff -r c3c8a413c020 -r 1691a932eed1 debian/prerm.ex --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/debian/prerm.ex Tue Oct 27 21:31:07 2009 +0100 @@ -0,0 +1,40 @@ +#!/bin/sh +# prerm script for ftbackup +# +# see: dh_installdeb(1) + +set -e + +# summary of how this script can be called: +# * `remove' +# * `upgrade' +# * `failed-upgrade' +# * `remove' `in-favour'

+# * `deconfigure' `in-favour' +# `removing' +# +# for details, see http://www.debian.org/doc/debian-policy/ or +# the debian-policy package + + +case "$1" in + remove|upgrade|deconfigure) + ;; + + failed-upgrade) + ;; + + *) + echo "prerm called with unknown argument \`$1'" >&2 + exit 1 + ;; +esac + +# dh_installdeb will replace this with shell code automatically +# generated by other debhelper scripts. + +#DEBHELPER# + +exit 0 + + diff -r c3c8a413c020 -r 1691a932eed1 debian/rules --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/debian/rules Tue Oct 27 21:31:07 2009 +0100 @@ -0,0 +1,91 @@ +#!/usr/bin/make -f +# -*- makefile -*- +# Sample debian/rules that uses debhelper. +# This file was originally written by Joey Hess and Craig Small. +# As a special exception, when this file is copied by dh-make into a +# dh-make output file, you may use that output file without restriction. +# This special exception was added by Craig Small in version 0.37 of dh-make. + +# Uncomment this to turn on verbose mode. +#export DH_VERBOSE=1 + + + + + +configure: configure-stamp +configure-stamp: + dh_testdir + # Add here commands to configure the package. + + touch configure-stamp + + +build: build-stamp + +build-stamp: configure-stamp + dh_testdir + + # Add here commands to compile the package. + $(MAKE) + #docbook-to-man debian/ftbackup.sgml > ftbackup.1 + + touch $@ + +clean: + dh_testdir + dh_testroot + rm -f build-stamp configure-stamp + + # Add here commands to clean up after the build process. + $(MAKE) clean + + dh_clean + +install: build + dh_testdir + dh_testroot + dh_clean -k + dh_installdirs + + # Add here commands to install the package into debian/ftbackup. + $(MAKE) DESTDIR=$(CURDIR)/debian/ftbackup install + + +# Build architecture-independent files here. +binary-indep: build install +# We have nothing to do by default. + +# Build architecture-dependent files here. +binary-arch: build install + dh_testdir + dh_testroot + dh_installchangelogs + dh_installdocs + dh_installexamples +# dh_install +# dh_installmenu +# dh_installdebconf +# dh_installlogrotate +# dh_installemacsen +# dh_installpam +# dh_installmime +# dh_python +# dh_installinit +# dh_installcron +# dh_installinfo + dh_installman + dh_link + dh_strip + dh_compress + dh_fixperms +# dh_perl +# dh_makeshlibs + dh_installdeb + dh_shlibdeps + dh_gencontrol + dh_md5sums + dh_builddeb + +binary: binary-indep binary-arch +.PHONY: build clean binary-indep binary-arch binary install configure diff -r c3c8a413c020 -r 1691a932eed1 debian/watch.ex --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/debian/watch.ex Tue Oct 27 21:31:07 2009 +0100 @@ -0,0 +1,23 @@ +# Example watch control file for uscan +# Rename this file to "watch" and then you can run the "uscan" command +# to check for upstream updates and more. +# See uscan(1) for format + +# Compulsory line, this is a version 3 file +version=3 + +# Uncomment to examine a Webpage +# +#http://www.example.com/downloads.php ftbackup-(.*)\.tar\.gz + +# Uncomment to examine a Webserver directory +#http://www.example.com/pub/ftbackup-(.*)\.tar\.gz + +# Uncommment to examine a FTP server +#ftp://ftp.example.com/pub/ftbackup-(.*)\.tar\.gz debian uupdate + +# Uncomment to find new files on sourceforge, for devscripts >= 2.9 +# http://sf.net/ftbackup/ftbackup-(.*)\.tar\.gz + +# Uncomment to find new files on GooglePages +# http://example.googlepages.com/foo.html ftbackup-(.*)\.tar\.gz diff -r c3c8a413c020 -r 1691a932eed1 ftbackup --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/ftbackup Tue Oct 27 21:31:07 2009 +0100 @@ -0,0 +1,321 @@ +#! /usr/bin/perl +use strict; +use warnings; + +use IO::File; +use File::Basename; +use Net::FTP; +use Perl6::Slurp; +use Getopt::Long; +use Sys::Hostname; +use Pod::Usage; +use POSIX qw(strftime);; +use English qw(-no_match_vars); +use 5.10.0; +use if $ENV{DEBUG} => qw(Smart::Comments); + +$ENV{LC_ALL} = "C"; + +my $ME = basename $0; + +my @CONFIGS = ("/etc/$ME", "$ENV{HOME}/.$ME", "$ME.conf"); + +my $NODE = hostname; +my $NOW = time(); + +my $opt_level = 0; +my $opt_today = strftime("%F", localtime $NOW); +my @opt_debug = (); +my $opt_verbose = 0; +my $opt_dry = 0; +my $opt_force = 0; + +sub get_configs(@); +sub get_candidates(); +sub verbose(@); + +our @AT_EXIT; +END { $_->() foreach @AT_EXIT }; +$SIG{INT} = sub { warn "Got signal INT\n"; exit 1 }; + +my %CONFIG = ( + FTP_DIR => "backup/daily/$NODE", + FTP_PASSIVE => 1, + FULL_CYCLE => 7, # not used +); + +MAIN: { + GetOptions( + "l|level=i" => \$opt_level, + "d|debug:s" => sub { push @opt_debug, split /,/, $_[1] }, + "h|help" => sub { pod2usage(-exit => 0, -verbose => 1) }, + "m|man" => sub { pod2usage(-exit => 0, -verbose => 3) }, + "v|verbose" => \$opt_verbose, + "dry" => \$opt_dry, + "f|force" => \$opt_force, + ) or pod2usage; + + my %cf = (%CONFIG, get_configs(@CONFIGS)); + my @dev = get_candidates(); + ### current candiates: @dev + + my $ftp = new FTP($cf{FTP_HOST}, + Passive => $cf{FTP_PASSIVE}, + Debug => @opt_debug ~~ /^ftp$/) or die $@; + $ftp->login or die $ftp->message; + $ftp->try(binary => ()); + $ftp->try(mkpath => $cf{FTP_DIR}); + $ftp->try(cwd => $cf{FTP_DIR}); + + given ($opt_level) { + when(0) { + $ftp->try(mkpath => $opt_today); + $ftp->try(cwd => $opt_today); + } + default { + # find the last full backup directory + my $last_full = (reverse sort grep /^\d{4}-\d{2}-\d{2}$/, $ftp->ls)[0]; + die "no last full backup found in @{[$ftp->pwd]}\n" + if not $last_full; + $ftp->try(cwd => $last_full); + } + } + + # now sitting inside the directory for the last full backup + verbose "Now in @{[$ftp->pwd]}.\n"; + + # and now we can start doing something with our filesystems + foreach my $dev (@dev) { + + my $file = basename($dev->{dev}) . "." + . strftime("%F_%R", localtime $NOW) + . ".$opt_level.ssl"; + my $label = "$NODE:" . basename($dev->{rdev}); + verbose "Working on $dev->{dev} as $dev->{rdev}, stored as $file\n"; + next if $opt_dry; + + ## complain if there is already a full backup in this + ## sequence + ##die "level 0 dir should be empty\n" if @{$ftp->try(ls => "*.0.*")}; + + # For LVM do a snapshot, for regular partitions + # do nothing. But anyway the device to dump is named in $dev->{dump} + if ($dev->{lvm}) { + # we can do a snapshot + # FIXME: calculate the size + my $snap = "$dev->{lvm}{path}-0"; + + verbose "Creating snapshot $snap\n"; + system($_ = "lvcreate -s -L 1G -n $snap $dev->{lvm}{path} >/dev/null"); + die "failed system command: $_\n" if $?; + + $dev->{cleanup} = sub { system "lvdisplay $snap &>/dev/null" + . " && lvremove -f $snap >/dev/null" }; + push @AT_EXIT, $dev->{cleanup}; + + (my $device) = (grep /lv name/i, `lvdisplay $snap`)[0] =~ /(\S+)\s*$/; + + system($_ = "fsck -f -C0 -y $device"); + warn "fsck on $device (using: $_) failed\n" if $?; + + ($dev->{dump}) = $device; + + } + else { + $dev->{dump} = $dev->{rdev} + } + + ### $dev + + $ENV{key} = $cf{KEY}; + my $dumper = open(my $dump, "-|") or do { + my $head = <<__; +#! /bin/bash +if test "\$1" = "--info"; then + cat <<___ +NODE : $NODE +DATE : $NOW @{[localtime $NOW]} +LEVEL : $opt_level +DEVICE : $dev->{dev} +REAL_DEVICE: $dev->{rdev} +MOUNTPOINT : $dev->{mountpoint} +FSTYPE : $dev->{fstype} +___ + exit 0 +fi +tail -c XXXXX \$0 | openssl enc -d -blowfish "\$@" +exit + +__ + # adjust the placeholder + $head =~ s/XXXXX/sprintf "% 5s", "+" . (length($head) +1)/e; + print $head; + exec "dump -$opt_level -L $label -f- -u -z6 $dev->{dump}" + . "| openssl enc -pass env:key -salt -blowfish"; + die "Can't exec dumper\n"; + }; + + $ftp->try(put => $dump, $file); + $dev->{cleanup}->() if $dev->{cleanup}; + verbose "Done.\n"; + } + +} + +sub verbose(@) { + return if not $opt_verbose; + print @_; +} + +sub get_candidates() { +# return the list of backup candidates + + my @dev; + + # later we need the major of the device mapper + my $dev_mapper = 0; + $_ = (grep /device.mapper/, slurp("/proc/devices"))[0] + and $dev_mapper = (split)[0]; + + foreach (slurp("/etc/fstab")) { + my ($dev, $mp, $fstype, $options, $dump, $check) + = split; + next if not $dump; + + # $dev does not have to contain the real device + my $rdev = $dev; + if ($dev ~~ /^(LABEL|UUID)=/) { + chomp($rdev = `blkid -c /dev/null -o device -t '$dev'`); + } + $rdev = readlink $rdev while -l $rdev; + + # if it's LVM we gather more information (to support snapshots) + # FIXME: could have used `lvdisplay -c' + my $lvm; + if ((stat $rdev)[6] >> 8 == $dev_mapper) { + @{$lvm}{qw/vg lv/} = map { s/--/-/g; $_ } basename($rdev) =~ /(.+[^-])-([^-].+)/; + $lvm->{path} = "$lvm->{vg}/$lvm->{lv}"; + } + + push @dev, { + dev => $dev, + rdev => $rdev, + mountpoint => $mp, + fstype => $fstype, + lvm => $lvm, + }; + } + + return @dev; +} + +sub get_configs(@) { + local $_; + my %r = (); + foreach (grep {-f} map { (-d) ? glob("$_/*") : $_ } @_) { + + # check permission and ownership + { + my $p = (stat)[2] & 07777; + my $u = (stat _)[4]; + die "$ME: $_ has wrong permissions: found @{[sprintf '%04o', $p]}, need 0600\n" + if $p != 0600; + die "$ME: owner of $_ ($u) is not the EUID ($EUID) of this process\n" + if (stat _)[4] != $EUID; + + # FIXME: should check the containing directories too! + }; + + my $f = new IO::File $_ or die "Can't open $_: $!\n"; + my %h = map { split /\s*=\s*/, $_, 2 } grep {!/^\s*#/ and /=/} <$f>; + map { chomp } values %h; + %r = (%r, %h); + } + return %r; +} + +{ package FTP; + use strict; + use warnings; + use base qw(Net::FTP); + + sub new { + my $class = shift; + return bless Net::FTP->new(@_) => $class; + } + + sub try { + my $self = shift; + my $func = shift; + $self->$func(@_) + or die "FTP $func failed: " . $self->message . "\n"; + } + + sub mkpath { + my $self = shift; + my $current = $self->pwd(); + foreach (split /\/+/, $_[0]) { + next if $self->cwd($_); + return undef if not $self->message ~~ /no such .*dir/i; + return undef if not $self->SUPER::mkdir($_); + return undef if not $self->cwd($_); + } + $self->cwd($current); + } +} + +__END__ + +=head1 NAME + +py2b - backup tool + +=head1 SYNOPSIS + + py2b [--level ] [options] + +=head1 OPTIONS + +=over + +=item B<-d>|B<--debug> [I] + +Enables debugging for the specified items (comma separated). +If no item is specified, just some debugging is done. + +Valid items are B and currently nothing else. + +Even more debugging is shown using the DEBUG=1 environment setting. + +=item B<-f>|B<--force> + +Use more power (e.g. overwrite a previous level backup and remove all +invalidated other backups). (default: 0) + +=item B<-l>|B<--level> I + +The backup level. Level other than "0" needs a previous +level 0 (full) backup. (default: 0) + +=item B<-v>|B<--verbose> + +Be verbose. (default: no) + +=back + +=head1 FILES + +The config files are searched in the following places: + + /etc/py2b + ~/.py2b + ./py2b.conf + +If the location is a directory, all (not hidden) files in this directory are +considered to be config, if the location a file itself, this is considered to +be a config file. The config files have to be mode 0600 and they have to be +owned by the EUID running the process. + +=cut + +# vim:sts=4 sw=4 aw ai sm: diff -r c3c8a413c020 -r 1691a932eed1 ftbackup.conf.example --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/ftbackup.conf.example Tue Oct 27 21:31:07 2009 +0100 @@ -0,0 +1,16 @@ +# example config +# the commented values are the built in defaults + +# The encryption key +KEY = + +# FTP-Server hostname +FTP_HOST = + +# FTP-Server base directory +# the following expansion work: +# $NODE +# FTP_DIR = backups/daily/$NODE + +# if we need passive mode for file transfer +# FTP_PASSIVE = 1 diff -r c3c8a413c020 -r 1691a932eed1 py2b --- a/py2b Mon Oct 26 23:35:18 2009 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,321 +0,0 @@ -#! /usr/bin/perl -use strict; -use warnings; - -use IO::File; -use File::Basename; -use Net::FTP; -use Perl6::Slurp; -use Getopt::Long; -use Sys::Hostname; -use Pod::Usage; -use POSIX qw(strftime);; -use English qw(-no_match_vars); -use 5.10.0; -use if $ENV{DEBUG} => qw(Smart::Comments); - -$ENV{LC_ALL} = "C"; - -my $ME = basename $0; - -my @CONFIGS = ("/etc/$ME", "$ENV{HOME}/.$ME", "$ME.conf"); - -my $NODE = hostname; -my $NOW = time(); - -my $opt_level = 0; -my $opt_today = strftime("%F", localtime $NOW); -my @opt_debug = (); -my $opt_verbose = 0; -my $opt_dry = 0; -my $opt_force = 0; - -sub get_configs(@); -sub get_candidates(); -sub verbose(@); - -our @AT_EXIT; -END { $_->() foreach @AT_EXIT }; -$SIG{INT} = sub { warn "Got signal INT\n"; exit 1 }; - -my %CONFIG = ( - FTP_DIR => "backup/daily/$NODE", - FTP_PASSIVE => 1, - FULL_CYCLE => 7, # not used -); - -MAIN: { - GetOptions( - "l|level=i" => \$opt_level, - "d|debug:s" => sub { push @opt_debug, split /,/, $_[1] }, - "h|help" => sub { pod2usage(-exit => 0, -verbose => 1) }, - "m|man" => sub { pod2usage(-exit => 0, -verbose => 3) }, - "v|verbose" => \$opt_verbose, - "dry" => \$opt_dry, - "f|force" => \$opt_force, - ) or pod2usage; - - my %cf = (%CONFIG, get_configs(@CONFIGS)); - my @dev = get_candidates(); - ### current candiates: @dev - - my $ftp = new FTP($cf{FTP_HOST}, - Passive => $cf{FTP_PASSIVE}, - Debug => @opt_debug ~~ /^ftp$/) or die $@; - $ftp->login or die $ftp->message; - $ftp->try(binary => ()); - $ftp->try(mkpath => $cf{FTP_DIR}); - $ftp->try(cwd => $cf{FTP_DIR}); - - given ($opt_level) { - when(0) { - $ftp->try(mkpath => $opt_today); - $ftp->try(cwd => $opt_today); - } - default { - # find the last full backup directory - my $last_full = (reverse sort grep /^\d{4}-\d{2}-\d{2}$/, $ftp->ls)[0]; - die "no last full backup found in @{[$ftp->pwd]}\n" - if not $last_full; - $ftp->try(cwd => $last_full); - } - } - - # now sitting inside the directory for the last full backup - verbose "Now in @{[$ftp->pwd]}.\n"; - - # and now we can start doing something with our filesystems - foreach my $dev (@dev) { - - my $file = basename($dev->{dev}) . "." - . strftime("%F_%R", localtime $NOW) - . ".$opt_level.ssl"; - my $label = "$NODE:" . basename($dev->{rdev}); - verbose "Working on $dev->{dev} as $dev->{rdev}, stored as $file\n"; - next if $opt_dry; - - ## complain if there is already a full backup in this - ## sequence - ##die "level 0 dir should be empty\n" if @{$ftp->try(ls => "*.0.*")}; - - # For LVM do a snapshot, for regular partitions - # do nothing. But anyway the device to dump is named in $dev->{dump} - if ($dev->{lvm}) { - # we can do a snapshot - # FIXME: calculate the size - my $snap = "$dev->{lvm}{path}-0"; - - verbose "Creating snapshot $snap\n"; - system($_ = "lvcreate -s -L 1G -n $snap $dev->{lvm}{path} >/dev/null"); - die "failed system command: $_\n" if $?; - - $dev->{cleanup} = sub { system "lvdisplay $snap &>/dev/null" - . " && lvremove -f $snap >/dev/null" }; - push @AT_EXIT, $dev->{cleanup}; - - (my $device) = (grep /lv name/i, `lvdisplay $snap`)[0] =~ /(\S+)\s*$/; - - system($_ = "fsck -f -C0 -y $device"); - warn "fsck on $device (using: $_) failed\n" if $?; - - ($dev->{dump}) = $device; - - } - else { - $dev->{dump} = $dev->{rdev} - } - - ### $dev - - $ENV{key} = $cf{KEY}; - my $dumper = open(my $dump, "-|") or do { - my $head = <<__; -#! /bin/bash -if test "\$1" = "--info"; then - cat <<___ -NODE : $NODE -DATE : $NOW @{[localtime $NOW]} -LEVEL : $opt_level -DEVICE : $dev->{dev} -REAL_DEVICE: $dev->{rdev} -MOUNTPOINT : $dev->{mountpoint} -FSTYPE : $dev->{fstype} -___ - exit 0 -fi -tail -c XXXXX \$0 | openssl enc -d -blowfish "\$@" -exit - -__ - # adjust the placeholder - $head =~ s/XXXXX/sprintf "% 5s", "+" . (length($head) +1)/e; - print $head; - exec "dump -$opt_level -L $label -f- -u -z6 $dev->{dump}" - . "| openssl enc -pass env:key -salt -blowfish"; - die "Can't exec dumper\n"; - }; - - $ftp->try(put => $dump, $file); - $dev->{cleanup}->() if $dev->{cleanup}; - verbose "Done.\n"; - } - -} - -sub verbose(@) { - return if not $opt_verbose; - print @_; -} - -sub get_candidates() { -# return the list of backup candidates - - my @dev; - - # later we need the major of the device mapper - my $dev_mapper = 0; - $_ = (grep /device.mapper/, slurp("/proc/devices"))[0] - and $dev_mapper = (split)[0]; - - foreach (slurp("/etc/fstab")) { - my ($dev, $mp, $fstype, $options, $dump, $check) - = split; - next if not $dump; - - # $dev does not have to contain the real device - my $rdev = $dev; - if ($dev ~~ /^(LABEL|UUID)=/) { - chomp($rdev = `blkid -c /dev/null -o device -t '$dev'`); - } - $rdev = readlink $rdev while -l $rdev; - - # if it's LVM we gather more information (to support snapshots) - # FIXME: could have used `lvdisplay -c' - my $lvm; - if ((stat $rdev)[6] >> 8 == $dev_mapper) { - @{$lvm}{qw/vg lv/} = map { s/--/-/g; $_ } basename($rdev) =~ /(.+[^-])-([^-].+)/; - $lvm->{path} = "$lvm->{vg}/$lvm->{lv}"; - } - - push @dev, { - dev => $dev, - rdev => $rdev, - mountpoint => $mp, - fstype => $fstype, - lvm => $lvm, - }; - } - - return @dev; -} - -sub get_configs(@) { - local $_; - my %r = (); - foreach (grep {-f} map { (-d) ? glob("$_/*") : $_ } @_) { - - # check permission and ownership - { - my $p = (stat)[2] & 07777; - my $u = (stat _)[4]; - die "$ME: $_ has wrong permissions: found @{[sprintf '%04o', $p]}, need 0600\n" - if $p != 0600; - die "$ME: owner of $_ ($u) is not the EUID ($EUID) of this process\n" - if (stat _)[4] != $EUID; - - # FIXME: should check the containing directories too! - }; - - my $f = new IO::File $_ or die "Can't open $_: $!\n"; - my %h = map { split /\s*=\s*/, $_, 2 } grep {!/^\s*#/ and /=/} <$f>; - map { chomp } values %h; - %r = (%r, %h); - } - return %r; -} - -{ package FTP; - use strict; - use warnings; - use base qw(Net::FTP); - - sub new { - my $class = shift; - return bless Net::FTP->new(@_) => $class; - } - - sub try { - my $self = shift; - my $func = shift; - $self->$func(@_) - or die "FTP $func failed: " . $self->message . "\n"; - } - - sub mkpath { - my $self = shift; - my $current = $self->pwd(); - foreach (split /\/+/, $_[0]) { - next if $self->cwd($_); - return undef if not $self->message ~~ /no such .*dir/i; - return undef if not $self->SUPER::mkdir($_); - return undef if not $self->cwd($_); - } - $self->cwd($current); - } -} - -__END__ - -=head1 NAME - -py2b - backup tool - -=head1 SYNOPSIS - - py2b [--level ] [options] - -=head1 OPTIONS - -=over - -=item B<-d>|B<--debug> [I] - -Enables debugging for the specified items (comma separated). -If no item is specified, just some debugging is done. - -Valid items are B and currently nothing else. - -Even more debugging is shown using the DEBUG=1 environment setting. - -=item B<-f>|B<--force> - -Use more power (e.g. overwrite a previous level backup and remove all -invalidated other backups). (default: 0) - -=item B<-l>|B<--level> I - -The backup level. Level other than "0" needs a previous -level 0 (full) backup. (default: 0) - -=item B<-v>|B<--verbose> - -Be verbose. (default: no) - -=back - -=head1 FILES - -The config files are searched in the following places: - - /etc/py2b - ~/.py2b - ./py2b.conf - -If the location is a directory, all (not hidden) files in this directory are -considered to be config, if the location a file itself, this is considered to -be a config file. The config files have to be mode 0600 and they have to be -owned by the EUID running the process. - -=cut - -# vim:sts=4 sw=4 aw ai sm: diff -r c3c8a413c020 -r 1691a932eed1 py2b.conf.example --- a/py2b.conf.example Mon Oct 26 23:35:18 2009 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,16 +0,0 @@ -# example config -# the commented values are the built in defaults - -# The encryption key -KEY = - -# FTP-Server hostname -FTP_HOST = - -# FTP-Server base directory -# the following expansion work: -# $NODE -# FTP_DIR = backups/daily/$NODE - -# if we need passive mode for file transfer -# FTP_PASSIVE = 1