#!/usr/bin/perl -w

use File::Basename;
use File::Path;
use esmith::Build::CreateLinks  qw(:all);

sub safe_touch
{
    my ($path) = @_;
    my ($file, $dir) = fileparse $path;
    unless (-d $dir)
    {
	mkpath $dir or die "Could not create dir $dir: $!";
    }
    open(F, ">$path") or die "Could not open/create file $path: $!";
    close(F) or die "Could not close file $path: $!";
}

# Prime the empty file tree that the generic template expansion
# action uses
sub templates2events
{
    my ($path, @events) = @_;
    
    foreach (@events)
    {
	safe_touch "root/etc/e-smith/events/$_/templates2expand/$path";
    }
}

# conf-ingo

foreach (qw(conf.php backends.php prefs.php))
{
    templates2events("/home/httpd/html/horde/ingo/config/$_",
	qw(
	    bootstrap-console-save
	    email-update
	));
}


foreach (qw(
    78mysql.create.ingo 
    79ingo_upgrade
    ))
{
    templates2events(
        "/etc/e-smith/sql/init/$_",
        qw(post-install post-upgrade));
}



foreach (qw(conf.php prefs.php backends.php))
{
    safe_symlink("/etc/e-smith/templates-default/template-begin-php",
        "root/etc/e-smith/templates/home/httpd/html/horde/ingo/config/$_/template-begin");
    safe_symlink("/etc/e-smith/templates-default/template-end-php",
        "root/etc/e-smith/templates/home/httpd/html/horde/ingo/config/$_/template-end");
}