#!/usr/bin/perl -w

use strict;
use Debconf::Client::ConfModule ':all';

version('2.0');

if (scalar(@ARGV)<2) {
 print "ERROR: Not enough args to config\n";
 exit 1;
}

if ($ARGV[0] eq "configure" || $ARGV[0] eq "reconfigure") {
 input("medium", "mlmmj/remove-on-purge");
 my @ret = go();
} else {
 print "ERROR: This should never happen!\n";
 exit 1;
}