#!/usr/bin/perl

for('eth0', 'eth1')	{
	$adpt = $_;
	$output = `ifconfig $adpt`;
	$output =~ /inet addr:(.*?) /;

	$$adpt = $1;

}

$data = <<_EOF;
CentOS 5.4 (Atmail Vmware release)

Network adaptor 1 IP: $eth0
Network adaptor 2 IP: $eth1

To begin configuration visit the Atmail Webadmn at:

_EOF

if($eth0)	{
$data .= "http://$eth0/index.php/admin/\n";
} elsif($eth1) {
$data .= "http://$eth1/index.php/admin/\n";
} else {
$data .= "Cannot detect server IP. Please check VMware network adaptor settings and reboot server";
}

print $data;

open(F, ">/etc/issue");
print F $data;
close(F);