debian/mlmmj.config

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use Debconf::Client::ConfModule ':all';
   5
   6 version('2.0');
   7
   8 if (scalar(@ARGV)<2) {
   9  print "ERROR: Not enough args to config\n";
  10  exit 1;
  11 }
  12
  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 }