#!/usr/bin/perl
# Customized for Camaro

#pico /ibin/domaininfo/config/dns/sendmail.cw
#system("pico /ibin/domaininfo/config/dns/local-host-names");
#system("pico /ibin/domaininfo/config/dns/virtusertable");

$hostname = `hostname`;
chomp($hostname);

($servername, $domain, $extension) = (split /\./, $hostname);


#print "SERVERNAME: " . $servername . "\n";

if ($servername eq "camaro") {

   system("nano -ewb /ibin/conf/postfix/virtual");
	

   if(!$ARGV[0]) {

	#print "No Param"
	system("/ibin/conf/postfix/mailupd");

   } else {

	#print "param"

   }

} else {

   print "Not Running on camaro!\n";
}


# cd /etc/mail
#make
#makemap btree virtusertable.db < virtusertable
#/usr/sbin/builddb
#newaliases
#smreb