#!/usr/bin/perl
# Prerm for pdbv

use Debconf::Client::ConfModule ':all';
version('2.0');

# Remove generated data according to debconf. 

if (get("pdbv/clean_output_dir") eq 'true') {
    my $dir = get("pdbv/output_dir");
    # Remove only if $dir is something acceptable
    if ($dir ne '/' &&
	$dir ne '/root' &&
	$dir ne '/home' &&
	$dir ne '/usr' &&
	$dir ne '/etc' &&
	$dir ne '/lib' &&
	$dir ne '/dev' &&
	$dir ne '/proc' &&
	$dir ne '/var' &&
	$dir ne '/boot' &&
	$dir ne '/bin' &&
	$dir ne '/sbin') {
	`rm -rf $dir` if -e $dir;
    }
}


exit;
