#!/usr/bin/perl -w
use esmith::ConfigDB;
use esmith::templates;
use strict;
my $c = esmith::ConfigDB->open_ro() ||
    die "Couldn't open ConfigDB";
my $ip = $c->get('samba')->prop('SambaIP') || '';
if ($ip ne '') {
my $nic = $c->get('InternalInterface')->prop('Name') || '';
if ($nic ne '') {
    esmith::templates::processTemplate({
        MORE_DATA => { THIS_DEVICE => $nic },
        TEMPLATE_PATH => '/etc/sysconfig/network-scripts/ifcfg-ethX-1',
        OUTPUT_FILENAME => "/etc/sysconfig/network-scripts/ifcfg-$nic:1"
    });
    };
};
