[people/pmueller/ipfire-2.x.git] / src / initscripts / helper / getdnsfromdhcpc.pl

#!/usr/bin/perl
#
# Helper program to get DNS info from dhcpc .info file.
#
# (c) Lawrence Manning, 2001

use strict;
require '/var/ipfire/general-functions.pl';

my $count = $ARGV[0];
my ($dhcp, $dns, @alldns, %dhcpc);

if ($count eq "" || $count < 1) {
	die "Bad DNS number given"; }

if (open(FILE, "${General::swroot}/red/iface")) {
	my $iface = <FILE>;
	close FILE;
	chomp ($iface);
	if (!&General::readhash("${General::swroot}/dhcpc/dhcpcd-$iface.info", \%dhcpc)) {
		die "Could not open dhcpc info file";
	}
} else {
	die "Could not open interface file";
}


$dns = $dhcpc{'DNS'};

@alldns = split(',', $dns);

print "$alldns[$count - 1]\n";
Commit	Line	Data
069680ac MT	1	#!/usr/bin/perl
	2	#
	3	# Helper program to get DNS info from dhcpc .info file.
	4	#
	5	# (c) Lawrence Manning, 2001
	6
	7	use strict;
	8	require '/var/ipfire/general-functions.pl';
	9
	10	my $count = $ARGV[0];
	11	my ($dhcp, $dns, @alldns, %dhcpc);
	12
	13	if ($count eq "" \|\| $count < 1) {
	14	die "Bad DNS number given"; }
	15
	16	if (open(FILE, "${General::swroot}/red/iface")) {
	17	my $iface = <FILE>;
	18	close FILE;
	19	chomp ($iface);
	20	if (!&General::readhash("${General::swroot}/dhcpc/dhcpcd-$iface.info", \%dhcpc)) {
	21	die "Could not open dhcpc info file";
	22	}
	23	} else {
	24	die "Could not open interface file";
	25	}
	26
	27
	28	$dns = $dhcpc{'DNS'};
	29
	30	@alldns = split(',', $dns);
	31
	32	print "$alldns[$count - 1]\n";