1 #!/usr/bin/perl -w
3 use strict;
4 use Debconf::Client::ConfModule ':all';
6 version('2.0');
8 if (scalar(@ARGV)<2) {
9 print "ERROR: Not enough args to config\n";
10 exit 1;
11 }
13 if ($ARGV[0] eq "configure" || $ARGV[0] eq "reconfigure") {
14 input("medium", "mlmmj/remove-on-purge");
15 my @ret = go();
16 } else {
17 print "ERROR: This should never happen!\n";
18 exit 1;
19 }