#!/usr/bin/perl

%cmdline_options = ();
while (<>)
{
  if (/^(.*)\=(.*)$/)
  {
    $cmdline_options{$1} = $2;
  }
}
print  "bootprotocol=ip\n";
print  "ip=" . $cmdline_options{ip} . "\n";
print  "gateway=" . $cmdline_options{gateway} . "\n";
print  "subnetmask=" . $cmdline_options{subnetmask} . "\n";
print  "nameserver1=" . $cmdline_options{n1} . "\n";
print  "nameserver2=" . $cmdline_options{n2} . "\n";
print  "nameserver3=" . $cmdline_options{n2} . "\n";
if (`hostname` =~ /^([^\.]*)\.(.*)$/)
{
  print "hostname=" . $1 . "\n";
  print "domainname=" . $2 . "\n";
}
