package Greenstone::Site;

use strict;
use warnings;
use utf8;
use Greenstone::Directory;
use Greenstone::XML::Tidy;
use parent 'Greenstone::Directory';

my $dir = "sites";

sub new {
    return Greenstone::Directory::new ($dir, @_);
}

sub list {
    return Greenstone::Directory::list $dir;
}

my $configTemplate;

sub create {
    my $self = shift;
    $self->SUPER::create or return 0;
    my $dir = $self->dir;
    mkdir "$dir/collect" or die "Failed to create collections directory: $!\n";
    my $config = read_xml "$dir/../localsite/siteConfig.xml";
    return write_xml $config, "$dir/siteConfig.xml";
}

1;