#!/usr/bin/perl -w

use strict; no strict "vars";

my $conffile="/etc/distributed-net-pproxy/distributed-net-pproxy.ini";
my $force=0;
my $m;

$m=0;

if ($#ARGV >= 0) { 
  $force=($ARGV[0] eq "--force"); if ($force) { $m++; }
}

if ($m <= $#ARGV) { $conffile=$ARGV[$m]; }

sub input
{
  my($message)=$_[0];
  my($defanswer)=$_[1];
  my($promptw)=$_[2] || "24";
  my($answ)=$_[3] || "12";
  my($reply);

  printf "%-${promptw}s [%-${answ}s]: ",$message,$defanswer; 
  $reply=<STDIN>; chop($reply); if ($reply eq "") { $reply=$defanswer; }
 
  return $reply;
}

sub yninput
{
  my($message)=$_[0];
  my($defanswer)=$_[1];
  my($reply);

  printf "%s? (y/n) [%s]: ",$message,$defanswer; 
  $reply=<STDIN>; chop($reply); if ($reply eq "") { $reply=$defanswer; }
 
  return $reply;
}

if ( -e $conffile && !$force) 
{
  print<<EOT;
You already have an Personal Proxy configuration file installed.
I assume that it is already correctly configured and won't overwrite it.

EOT

  exit 0;
} 

$ipaddress="us.v27.distributed.net";
$proxymessage="Debian GNU/Linux";
$deskmin=200;
$deskmax=400;
$deskdone=10;
$rc5kmin=200;
$rc5kmax=400;
$rc5kdone=10;


print "\nConfiguring $conffile.\n\n";

do {
    print <<EOT;
First you need to specify which keyproxy you will be connecting to.
    
The main keyservers are:

   us.v27.distributed.net     (United States, Canada)
   euro.v27.distributed.net   (Europe)
   asia.v27.distributed.net   (Asia)
   aussie.v27.distributed.net (Australia, New Zealand)
   
You may also specify another personal proxy here.

Note that if you need to connect via the telnet or http ports (23 and
80) to avoid firewalling problems, you will need to edit the .ini file
by hand. A README is in /usr/doc/distributed-net-pproxy.

EOT

    $ipaddress=&input("Keyserver address", $ipaddress);
    $proxymessage=&input("Message for clients", $proxymessage);

    print "\n";
    $deskmin=&input( "DES: Minimum keys to have buffered", $deskmin, 39,5);
    $deskmax=&input( "DES: Maximum keys to have buffered", $deskmax, 39,5);
    $deskdone=&input( "DES: Minimum number of keys to submit", $deskdone, 39,5);

    print "\n";
    $rc5kmin=&input( "RC5: Minimum keys to have buffered", $rc5kmin, 39,5);
    $rc5kmax=&input( "RC5: Maximum keys to have buffered", $rc5kmax, 39,5);
    $rc5kdone=&input( "RC5: Minimum number of keys to submit", $rc5kdone, 39,5);

    print "\n";
    $ans=&yninput("Are these responses correct","y");
} until ( $ans eq "y" );

open( PPINI, ">$conffile" ) || die "Couldn't create $conffile";

print PPINI "[KeyServer]\n";
print PPINI "ipaddress=$ipaddress\n";
print PPINI "port=2064\n";
print PPINI "workperiod=60\n";

print PPINI "[ports]\n";
print PPINI "port=2064\n";
print PPINI "testport=3064\n";
print PPINI "timeout=30\n";

print PPINI "[console]\n";
print PPINI "detached=0\n";
print PPINI "logfileconsole=/dev/null\n";
print PPINI "logfileconsolerotation=none\n";
print PPINI "consoleverbosity=255\n";

print PPINI "[rc564]\n";
print PPINI "logfilekeyblock=/var/log/distributed-net-pproxy/rc5pkey\n";
print PPINI "logfilekeyblockrotation=monthly\n";
print PPINI "minkeysready=$rc5kmin\n";
print PPINI "maxkeysready=$rc5kmax\n";
print PPINI "maxkeysdone=$rc5kdone\n";
print PPINI "timeaverage=12\n";
print PPINI "randomprefix=107\n";

print PPINI "[desII]\n";
print PPINI "logfilekeyblock=/var/log/distributed-net-pproxy/despkey\n";
print PPINI "logfilekeyblockrotation=monthly\n";
print PPINI "minkeysready=$deskmin\n";
print PPINI "maxkeysready=$deskmax\n";
print PPINI "maxkeysdone=$deskdone\n";
print PPINI "timeaverage=12";
print PPINI "contestclosed=-1091571699\n";

print PPINI "[misc]\n";
print PPINI "proxymessage=\"$proxymessage\"\n";
print PPINI "showcumulativestats=0\n";

close(PPINI);

print<<EOT;

$conffile generated.

You'll probably want to finetune your newly created .ini file. 

Please read the documentation and sample .ini in
/usr/doc/distributed-net-pproxy before doing this.

EOT

my $display=$ENV{"DISPLAY"} || "";

$dummy="";
print "Press enter to continue"; $dummy=<STDIN>;

exit 0;
