source: lliurex-preseed/trunk/fuentes/lliurex-preseed-common.install/usr/sbin/lliurex-preseed @ 151

#!/usr/bin/perl -w

use strict;
use Getopt::Long;
use File::Find;

# Some values
my $list;
my $update;
my @seeds_directories="/usr/share/lliurex-preseed";


sub print_list
{
        # Files to list under @seeds_directories
        -f && print "$File::Find::name\n";
}

sub update_debconf
{
        # Update debconf database with debconf-set-selections
        system("debconf-set-selections $File::Find::name");
}


my $result = GetOptions ("list" => \$list,  
                         "update" => \$update);

# List if is necessary
if ($list){
        print "[DEBUG] List all files of preseed\n";
        find(\&print_list,@seeds_directories);
}

if ($update){
        print "[DEBUG] Update all preseed with files\n";
        find(\&update_debconf,@seeds_directories);
}