#!/usr/bin/perl -w

package esmith;

use strict;
use Errno;
use esmith::templates;
use esmith::ConfigDB;

my $db = esmith::ConfigDB->open or die "Couldn't open ConfigDB\n";

unlink ("/etc/sysconfig/network-scripts/ifcfg-eth1");

if ( ($db->get_value('SystemHA') =~ /highavailable/)
	and ( $db->get_value('AccessType') eq "dedicated"))
{
    my $driver2 = $db->get_value('EthernetDriver2');

    if ( defined $driver2 and ($driver2 ne "unknown") )
    {
	print "hola a todos\n";
	processTemplate(
	{
	    TEMPLATE_PATH => "/etc/sysconfig/network-scripts/ifcfg-eth1",
	    OUTPUT_FILENAME => "/etc/sysconfig/network-scripts/ifcfg-eth1",
	    MORE_DATA => { THIS_DEVICE => "eth1" },
	} );
    }
}

exit (0);