Subversion Repositories zfs_utils

#! /usr/bin/env perl

use strict;

use warnings;

use Data::Dumper;

# create an encrypted ZFS pool using geli

# @DATADRIVES: list of drives to use for data

# @DEDUPDRIVES: list of drives to use for deduplication (optional)

# $RAIDLEVEL: raidz, raidz2, mirror, etc.

# $pool: name of the pool to create

# $poolSettings: settings to apply to the pool after creation

# $combinedKeyFile: path to the combined geli key file, passed as first argument

my @DATADRIVES=qw'da7 da6'; # list of all drives to use

my @DEDUPDRIVES= (); # list of drives to use for deduplication (optional)

my $RAIDLEVEL = 'mirror'; # Raid level to create: mirror raidz raidz2

my $pool = 'backup'; # pool name to create. Destoyed if it exists

my $poolSettings = "atime=off compress=gzip-9 volmode=full"; # settings to apply to the pool after creation

$poolSettings .= ' dedup=on' if @DEDUPDRIVES; # if dedup drives are used, enable dedup on pool

my @alldrives = (@DATADRIVES,@DEDUPDRIVES);

my $alldrives = join( ' ', @alldrives );

sub runCommand {

   my $command = shift;

   print "$command\n";

   #`$command`;

}

my $combinedKeyFile = shift;

die "No combined key file provided\n" unless defined $combinedKeyFile;

# destroy the pool, if it exists

if ( `zpool list -H | grep '^$pool'` ) {

   &runCommand( "zpool destroy $pool" );

}

# if geli sees some disks already created, detach and clear them.

my @disks = `geli status | grep '^da' | cut -d' ' -f1 2>/dev/null`;

chomp @disks;

if ( join ' ', @disks ) {

   warn "Detaching and clearing existing geli disks: " . join( ' ', @disks ) . "\nPress Enter to continue...";

   <>;

   my $temp = join( ' ', @disks );

   &runCommand( "geli detach $temp" ); # detach first

   $temp =~ s/\.eli//g; # remove .eli extension

   &runCommand( "geli clear $temp"); # clear after detaching

}

# remove any partitions from the drives

my @partitionedDrives = `gpart list -a | grep 'Geom name:' | rev | cut -d' ' -f1 | rev`;

chomp @partitionedDrives;

my %partitionedDrives = map{ $_=>1 } @partitionedDrives;

# remove any partitions from the drives we are going to use

foreach my $drive ( @DATADRIVES,@DEDUPDRIVES ) {

   &runCommand( "gpart destroy -F $drive" ) if $partitionedDrives{$drive};

}

&runCommand( "geli init -e AES-XTS -l 256 -s 4096 -K $combinedKeyFile -P " . join( ' ', @alldrives ) );

&runCommand( "geli configure -t " . join( ' ', @alldrives ) );

&runCommand( "geli attach -k $combinedKeyFile -p " . join( ' ', @alldrives ) );

&runCommand( 

      "zpool create -f $pool $RAIDLEVEL " .  

      join( ' ',  map{ $_ . '.eli' } @DATADRIVES) . 

      ( @DEDUPDRIVES ? ' dedup mirror ' . join(  ' ',  map{ $_ . '.eli' } @DEDUPDRIVES) : '' ) );

&runCommand( "zfs set $poolSettings $pool" );

1;