61b7cab481
Since 03eaa48 added perl.withPackages, there is a canonical way to
create a perl interpreter from a list of libraries, for use in script
shebangs or generic build inputs. This method is declarative (what we
are doing is clear), produces short shebangs[1] and needs not to wrap
existing scripts.
Unfortunately there are a few exceptions that I've found:
1. Scripts that are calling perl with the -T switch. This makes perl
ignore PERL5LIB, which is what perl.withPackages is using to inform
the interpreter of the library paths.
2. Perl packages that depends on libraries in their own path. This
is not possible because perl.withPackages works at build time. The
workaround is to add `-I $out/${perl.libPrefix}` to the shebang.
In all other cases I propose to switch to perl.withPackages.
[1]: https://lwn.net/Articles/779997/
110 lines
3.4 KiB
Nix
110 lines
3.4 KiB
Nix
{lib, stdenv, which, coreutils, perl, fetchurl, makeWrapper, diffutils , writeScriptBin, bzip2}:
|
|
|
|
# quick usage:
|
|
# storeBackup.pl --sourceDir /home/user --backupDir /tmp/my_backup_destination
|
|
# Its slow the first time because it compresses all files bigger than 1k (default setting)
|
|
# The backup tool is bookkeeping which files got compressed
|
|
|
|
# btrfs warning: you may run out of hardlinks soon
|
|
|
|
# known impurity: test cases seem to bu using /tmp/storeBackup.lock ..
|
|
|
|
let dummyMount = writeScriptBin "mount" "#!${stdenv.shell}";
|
|
in
|
|
|
|
stdenv.mkDerivation rec {
|
|
|
|
version = "3.5";
|
|
|
|
pname = "store-backup";
|
|
|
|
enableParallelBuilding = true;
|
|
|
|
nativeBuildInputs = [ makeWrapper ];
|
|
buildInputs = [ perl ];
|
|
|
|
src = fetchurl {
|
|
url = "https://download.savannah.gnu.org/releases/storebackup/storeBackup-${version}.tar.bz2";
|
|
sha256 = "0y4gzssc93x6y93mjsxm5b5cdh68d7ffa43jf6np7s7c99xxxz78";
|
|
};
|
|
|
|
installPhase = ''
|
|
mkdir -p $out/scripts
|
|
mv * $out
|
|
mv $out/_ATTENTION_ $out/doc
|
|
mv $out/{correct.sh,cron-storebackup} $out/scripts
|
|
|
|
find $out -name "*.pl" | xargs sed -i \
|
|
-e 's@/bin/pwd@${coreutils}/bin/pwd@' \
|
|
-e 's@/bin/sync@${coreutils}/bin/sync@' \
|
|
-e '1 s@/usr/bin/env perl@${perl.withPackages (p: [ p.DBFile ])}/bin/perl@'
|
|
|
|
for p in $out/bin/*
|
|
do wrapProgram "$p" --prefix PATH ":" "${lib.makeBinPath [ which bzip2 ]}"
|
|
done
|
|
|
|
patchShebangs $out
|
|
# do a dummy test ensuring this works
|
|
|
|
PATH=$PATH:${dummyMount}/bin
|
|
|
|
|
|
{ # simple sanity test, test backup/restore of simple store paths
|
|
|
|
mkdir backup
|
|
|
|
backupRestore(){
|
|
source="$2"
|
|
echo =========
|
|
echo RUNNING TEST "$1" source: "$source"
|
|
mkdir restored
|
|
|
|
$out/bin/storeBackup.pl --sourceDir "$source" --backupDir backup
|
|
latestBackup=backup/default/$(ls -1 backup/default | sort | tail -n 1)
|
|
$out/bin/storeBackupRecover.pl -b "$latestBackup" -t restored -r /
|
|
${diffutils}/bin/diff -r "$source" restored
|
|
|
|
# storeBackupCheckSource should return 0
|
|
$out/bin/storeBackupCheckSource.pl -s "$source" -b "$latestBackup"
|
|
# storeBackupCheckSource should return not 0 when using different source
|
|
! $out/bin/storeBackupCheckSource.pl -s $TMP -b "$latestBackup"
|
|
|
|
# storeBackupCheckBackup should return 0
|
|
$out/bin/storeBackupCheckBackup.pl -c "$latestBackup"
|
|
|
|
chmod -R +w restored
|
|
rm -fr restored
|
|
}
|
|
|
|
testDir=$TMP/testDir
|
|
|
|
mkdir $testDir
|
|
echo X > $testDir/X
|
|
ln -s ./X $testDir/Y
|
|
|
|
backupRestore 'test 1: backup, restore' $testDir
|
|
|
|
# test huge blocks, according to docs files bigger than 100MB get split
|
|
# into pieces
|
|
dd if=/dev/urandom bs=100M of=block-1 count=1
|
|
dd if=/dev/urandom bs=100M of=block-2 count=1
|
|
cat block-1 block-2 > $testDir/block
|
|
backupRestore 'test 1 with huge block' $testDir
|
|
|
|
cat block-2 block-1 > $testDir/block
|
|
backupRestore 'test 1 with huge block reversed' $testDir
|
|
|
|
backupRestore 'test 2: backup, restore' $out
|
|
backupRestore 'test 3: backup, restore' $out
|
|
backupRestore 'test 4: backup diffutils to same backup locations, restore' ${diffutils}
|
|
}
|
|
'';
|
|
|
|
meta = {
|
|
description = "A backup suite that stores files on other disks";
|
|
homepage = "https://savannah.nongnu.org/projects/storebackup";
|
|
license = lib.licenses.gpl3Plus;
|
|
maintainers = [lib.maintainers.marcweber];
|
|
platforms = lib.platforms.linux;
|
|
};
|
|
}
|