#!/usr/bin/perl -w

use Debian::DebConf::Client::ConfModule qw(:all);

if ((! -x '/usr/bin/paperconf') || (! -e '/etc/paper.config')) {
  exit 0;
  # Can't preconfigure.
}


my $version = version(2.0);
title('Paper Size Configuration');


my @PAPERS = `/usr/bin/paperconf -a`;
chomp @PAPERS;
my $TEMPLATE = 'libpaperg/defaultpaper';

subst($TEMPLATE, 'choices', join(", ", @PAPERS));
input('medium', $TEMPLATE);
go();