#!/usr/bin/perl -w

use strict;
use warnings;
use esmith::DomainsDB;
use esmith::ConfigDB;

my $d = esmith::DomainsDB->open or die "Couldn't open DomainsDB\n";
my $c = esmith::ConfigDB->open_ro() or die "Couldn't open ConfigDB\n";

my $domain = $c->get('DomainName')->value;
my $vhost;

$vhost = $d->get("rdv.$domain");

if (!$vhost){
    $d->new_record("rdv.$domain",{
        type           => 'domain',
        Content        => 'Primary',
        Description    => "OpenSondage",
        Nameservers    => 'internet',
        TemplatePath   => 'WebAppVirtualHost',
        DocumentRoot   => '/usr/share/opensondage',
        Removable      => 'yes',
        Authentication  => 'LemonLDAP'
    });

    unless ( system("/sbin/e-smith/signal-event", "domain-create", "rdv.$domain") == 0 ){
        die "Failed to create domain rdv.$domain\n";
    }
}

$vhost = $d->get("sondages.$domain");

if (!$vhost){
    $d->new_record("sondages.$domain",{
        type           => 'domain',
        Content        => 'Primary',
        Description    => "LimeSurvey",
        Nameservers    => 'internet',
        TemplatePath   => 'WebAppVirtualHost',
        DocumentRoot   => '/usr/share/limesurvey',
        Removable      => 'yes',
        Authentication => 'LemonLDAP'
    });

    unless ( system("/sbin/e-smith/signal-event", "domain-create", "sondages.$domain") == 0 ){
        die "Failed to create domain sondages.$domain\n";
    }
}