#!/usr/bin/perl -w

use strict;

use Debconf::Client::ConfModule;
use English;

my $address;
my $operator;
my $sitename;
my $recipient_delimiter;

if ( -e '/etc/echolot/pingd.conf' ) {
	my $CONFIG;
	{
		local $/ = undef;
		open(CONFIGCODE, '/etc/echolot/pingd.conf') or
			die ("Cannot open /etc/echolot/pingd.conf: $!");
		my $config_code = <CONFIGCODE>;
		close (CONFIGCODE);
		($config_code) = $config_code =~ /^(.*)$/s;
		eval ($config_code);
		($EVAL_ERROR) and
			die("Evaling config code from /etc/echolot/pingd.conf returned error: $EVAL_ERROR");
	}

	$address = $CONFIG->{'my_localpart'}.'@'.$CONFIG->{'my_domain'} if (defined $CONFIG->{'my_localpart'} && defined $CONFIG->{'my_domain'});
	$operator = $CONFIG->{'operator_address'} if (defined $CONFIG->{'operator_address'});
	$sitename = $CONFIG->{'sitename'} if (defined $CONFIG->{'sitename'});
	$recipient_delimiter = $CONFIG->{'recipient_delimiter'} if (defined $CONFIG->{'recipient_delimiter'});
};

my $mailname;
$mailname = `cat /etc/mailname` if ( -e '/etc/mailname' );
$mailname = `hostname` unless ( defined $mailname );
$mailname = 'example.org' unless ( defined $mailname );
chomp $mailname;

$address = 'echolot@'.$mailname unless defined $address;
$operator = 'abuse@'.$mailname unless defined $operator;
$sitename = $mailname unless defined $sitename;
$recipient_delimiter = '' unless defined $recipient_delimiter;

Debconf::Client::ConfModule::set('echolot/address', $address);
Debconf::Client::ConfModule::set('echolot/operator', $operator);
Debconf::Client::ConfModule::set('echolot/sitename', $sitename);
Debconf::Client::ConfModule::set('echolot/recipient_delimiter', $recipient_delimiter);


my $state = 1;
my $numerr = 0;

Debconf::Client::ConfModule::version('2.0');
Debconf::Client::ConfModule::capb('backup');
while (1) {
	if ($state == 0) {
		$state = 1;
	} elsif ($state == 1) {
		Debconf::Client::ConfModule::input('high', 'echolot/address');
		my @return = Debconf::Client::ConfModule::go();

		$address = Debconf::Client::ConfModule::get('echolot/address');
		unless ($address =~ /@/) {
			$address .= '@'.$mailname;
			Debconf::Client::ConfModule::set('echolot/address', $address);
			$numerr++;
			next if ($numerr <= 5);
		};

		if ($return[0] == 30) {
			$numerr = 0;
			$state--;
		} else {
			$numerr = 0;
			$state++;
		};
		next;
	} elsif ($state == 2) {
		Debconf::Client::ConfModule::input('high', 'echolot/operator');
		Debconf::Client::ConfModule::input('high', 'echolot/sitename');
		Debconf::Client::ConfModule::input('high', 'echolot/recipient_delimiter');
		Debconf::Client::ConfModule::input('medium', 'echolot/addnow');
	} elsif ($state == 3) {
		last;
	} else {
		die ("Unknown state $state");
	};

	my @return = Debconf::Client::ConfModule::go();
	if ($return[0] == 30) {
		$state--;
	} else {
		$state++;
	};
};

# vim:set ts=4:
# vim:set shiftwidth=4: