#!/usr/bin/perl -w

use Debconf::Client::ConfModule qw(:all);

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

my $template = 'libpaperg/defaultpaper';
if (open(CONFIG, '/etc/papersize')){
  while(<CONFIG>){
    chomp;
    set($template, $_);
    fset($template,'seen','true')
  }
  close CONFIG;
}
elsif (open (TZ, '/etc/timezone')) {
  while (<TZ>) {
    chomp;
    set($template, (/^US/) ? 'letter' : 'a4');
  }
  close TZ;
}
else {
  $_ = readlink "/etc/localtime";
  set($template, (/^US/) ? 'letter' : 'a4')
    if s!^/usr/share/zoneinfo/!!;
}

unlink '/etc/papersize'
  if $ARGV[0] eq "reconfigure";

input('medium', $template);

go();
