#!/usr/bin/perl


$hostname = `hostname`;


@ifg=`/sbin/ifconfig`;
foreach (@ifg) {
	if (/^eth/){
		$ha = $_;
		s/^(eth\d{1,2}) /$1/;
		$ethx=$1;	
		$ha =~ s/.* HWaddr (.+)$/$1/;
		chomp $ha;
	}
	elsif (/^lo/) {
		last;
	}
	elsif (/inet adr:/) {
		s/.*inet adr:([^ ]*) .*/$1/;
		$ip=$1;
		last;
	}
}



@route = `/sbin/route -n`;
foreach (@route) {
	if (/^0.0.0.0/){
		s/^0.0.0.0\s+([^\s]+)\s+.*/$1/;
		$gateway=$1;	
		chomp $gateway;
		last;
	}
}



print "\n";
print "ethernet   = $ethx\n";
print "ha         = $ha\n";
print "IP         = $ip\n";
print "passerelle = $gateway\n";
print "\n";

