#!/usr/bin/perl

use strict;

use constant MODELFILE => "awstats.model.conf";


print "logdomena: ";
my $logdomain = <>;
chomp $logdomain;

print "domena: ";
my $domain = <>;
chomp $domain;

print "nejake aliasy (oddelit mezernikem): ";
my $alias = <>;
chomp $alias;
$alias = $domain . ' ' . $alias;


print "\n-------------\n domena: $domain\n aliasy: $alias\ngeneruji...\n";

open(FDIN, MODELFILE);
open(FDOUT, '> awstats.'.$domain.'.conf');

my $tmp;
while(<FDIN>) {
    $tmp = $_;
    $tmp =~ s/{logdomain}/$logdomain/;
    $tmp =~ s/{domain}/$domain/;
    $tmp =~ s/{alias}/$alias/;
    
    print FDOUT $tmp;
}

close(FDIN);
close(fDOUT);