blob: 6febbaf927bf6f16bd6f3c5dec6c06a5b6e27fc5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
#!/usr/bin/perl
use Getopt::Long;
use strict;
use lib "/opt/vyatta/share/perl5";
use Vyatta::Misc;
my ($iface, $want);
GetOptions("interface=s" => \$iface,
"want=s" => \$want);
# Return the current router address from an interface that is
# configured via dhcp. Return 127.0.0.1 for all errors.
# This address will be used for the next hop address for static routes.
sub get_dhcp_router {
my $dhcp_iface = pop(@_);
if (!Vyatta::Misc::is_dhcp_enabled($dhcp_iface,0)) {
return "127.0.0.1";
}
my $lease = "/var/lib/dhcp/dhclient_${dhcp_iface}_lease";
my $router = `grep new_routers= $lease | cut -d"'" -f2`;
my @r = split(/,/, $router);
$router = $r[0];
if ($router eq "") {
return "127.0.0.1";
}
return $router;
}
# Return the current ipv4 address from an interface that is
# configured via dhcp. Return 127.0.0.1 for all errors.
# This address will be used for the local-ip for tunnels,
sub get_dhcp_addr {
my $dhcp_iface = pop(@_);
if (!Vyatta::Misc::is_dhcp_enabled($dhcp_iface,0)) {
return "127.0.0.1";
}
my @dhcp_addr = Vyatta::Misc::getIP($dhcp_iface,4);
my $addr = pop(@dhcp_addr);
if (!defined($addr)) {
return "127.0.0.1";
}
@dhcp_addr = split(/\//, $addr);
$addr = $dhcp_addr[0];
return $addr;
}
if ($want eq 'local') {
print get_dhcp_addr($iface);
}
else {
print get_dhcp_router($iface);
}
exit 0;
|
