#!/usr/bin/perl -w
# This file was preprocessed, do not edit directly.
package Debconf::Config;
use strict;
use Debconf::ConfigDb;
use vars qw{@ISA}; use Exporter; push @ISA, qw{Exporter};
use vars qw(@EXPORT_OK);
@EXPORT_OK = qw(dbdir tmpdir frontend priority helpvisible showold);
sub dbdir {
"/var/lib/debconf/"
}
sub tmpdir {
"/var/lib/debconf/"
}
{
	my $override_frontend='';
	sub frontend {
		return ucfirst($ENV{DEBIAN_FRONTEND})
			if exists $ENV{DEBIAN_FRONTEND};
		
		if (@_) {
			$override_frontend=ucfirst(shift);
		}
	
		return $override_frontend if ($override_frontend);
	
		my $ret='Dialog';
		my $question=Debconf::ConfigDb::getquestion(
			'debconf/frontend'
		);
		if ($question) {
			$ret=$question->value || $ret;
		}
		return $ret;
	}
}
{
	my $override_priority='';
	sub priority {
		return $ENV{DEBIAN_PRIORITY} if exists $ENV{DEBIAN_PRIORITY};
	
		if (@_) {
			$override_priority=shift;
		}
	
		if ($override_priority) {
			return $override_priority;
		}
	
		my $ret='medium';
		my $question=Debconf::ConfigDb::getquestion(
			'debconf/priority'
		);
		if ($question) {
			$ret=$question->value || $ret;
		}
		return $ret;
	}
}
sub helpvisible {
	my $question=Debconf::ConfigDb::getquestion(
		'debconf/helpvisible'
	);
	if ($question) {
		return $question->value unless @_;
		return $question->value(shift);
	}
	else {
		return 'true';
	}
}
{
	my $override_showold;
	
	sub showold {
		if (@_) {
			$override_showold=shift;
		}
		
		if (defined $override_showold) {
			return $override_showold;
		}
		
		my $ret='false';
		my $question=Debconf::ConfigDb::getquestion(
			'debconf/showold',
		);
		if ($question) {
			$ret=$question->value || $ret;
		}
		return $ret;
	}
}
1
