#!/usr/bin/perl -w

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

my $debug = 0;
$| = 1;

version('2.0');
&input("medium","wmnetmon/setuid");

if (-x "/usr/bin/wmnetmon") {
	print STDERR "wmnetmon binary already exists\n" if $debug;
} else {
	print STDERR "This is probably an initial install\n" if $debug;
	&go(); 
}
&purge();

exit 0;


