#!/usr/bin/perl 

$CONFIG_IN = "/etc/smb2www/smb2www.conf.in";
$CONFIG_OUT = "> /etc/smb2www/smb2www.conf";
$mbrowse;
$key;
$language;
$line;

sub choose_browser()
{ 
  print "Which server shall I use as master browser ? ";
  $main::mbrowse=<STDIN>; 
  chop $main::mbrowse;
  print "\n";
}

sub choose_key()
{
  srand ( time ^ ($$ + ($$ << 15)) );
  while (length $main::key < 25) {
    $main::key = $main::key.chr(rand(64)+64); 
  }
}

sub choose_language()
{
  print "Which language would you like to use with SMB2WWW ?\n   (english dutch finnish) [english] ";
  $main::language = <STDIN>; 
  chop $main::language;
  if ( $main::language eq "" ) 
  { 
    $main::language = "english";
  }
  print "\n";
}

#####################################################
choose_browser();
choose_key();
choose_language();

open (IFD, $CONFIG_IN) or die "Unable to open config file template $!";
open (OFD, $CONFIG_OUT) or die "Unable to open config file $!";
while($line = <IFD> ) 
{
  #$line =~ s/(\W)/\\$1/g;
  $line =~ s/#MBROWSE#/$mbrowse/ ;
  $line =~ s/\#KEY\#/$key/ ;
  $line =~ s/\#LANGUAGE\#/$language/ ;
  print OFD $line;
}

