]>
git.proxmox.com Git - pve-installer.git/blob - Proxmox/Sys/Net.pm
1 package Proxmox
::Sys
::Net
;
7 our @EXPORT_OK = qw(parse_ip_address parse_ip_mask);
9 our $HOSTNAME_RE = "(?:[a-zA-Z0-9](?:[a-zA-Z0-9\-]*[a-zA-Z0-9])?)";
10 our $FQDN_RE = "(?:${HOSTNAME_RE}\.)*${HOSTNAME_RE}";
12 my $IPV4OCTET = "(?:25[0-5]|(?:2[0-4]|1[0-9]|[1-9])?[0-9])";
13 my $IPV4RE = "(?:(?:$IPV4OCTET\\.){3}$IPV4OCTET)";
14 my $IPV6H16 = "(?:[0-9a-fA-F]{1,4})";
15 my $IPV6LS32 = "(?:(?:$IPV4RE|$IPV6H16:$IPV6H16))";
18 "(?:(?:" . "(?:$IPV6H16:){6})$IPV6LS32)|" .
19 "(?:(?:" . "::(?:$IPV6H16:){5})$IPV6LS32)|" .
20 "(?:(?:(?:" . "$IPV6H16)?::(?:$IPV6H16:){4})$IPV6LS32)|" .
21 "(?:(?:(?:(?:$IPV6H16:){0,1}$IPV6H16)?::(?:$IPV6H16:){3})$IPV6LS32)|" .
22 "(?:(?:(?:(?:$IPV6H16:){0,2}$IPV6H16)?::(?:$IPV6H16:){2})$IPV6LS32)|" .
23 "(?:(?:(?:(?:$IPV6H16:){0,3}$IPV6H16)?::(?:$IPV6H16:){1})$IPV6LS32)|" .
24 "(?:(?:(?:(?:$IPV6H16:){0,4}$IPV6H16)?::" . ")$IPV6LS32)|" .
25 "(?:(?:(?:(?:$IPV6H16:){0,5}$IPV6H16)?::" . ")$IPV6H16)|" .
26 "(?:(?:(?:(?:$IPV6H16:){0,6}$IPV6H16)?::" . ")))";
28 my $IPRE = "(?:$IPV4RE|$IPV6RE)";
31 my $ipv4_mask_hash = {
48 '255.255.128.0' => 17,
49 '255.255.192.0' => 18,
50 '255.255.224.0' => 19,
51 '255.255.240.0' => 20,
52 '255.255.248.0' => 21,
53 '255.255.252.0' => 22,
54 '255.255.254.0' => 23,
55 '255.255.255.0' => 24,
56 '255.255.255.128' => 25,
57 '255.255.255.192' => 26,
58 '255.255.255.224' => 27,
59 '255.255.255.240' => 28,
60 '255.255.255.248' => 29,
61 '255.255.255.252' => 30,
62 '255.255.255.254' => 31,
63 '255.255.255.255' => 32
66 my $ipv4_reverse_mask = [
102 # returns (addr, version) tuple
103 sub parse_ip_address
{
106 if ($text =~ m!^\s*($IPV4RE)\s*$!) {
108 } elsif ($text =~ m!^\s*($IPV6RE)\s*$!) {
111 return (undef, undef);
115 my ($text, $ip_version) = @_;
118 if ($ip_version == 6 && ($text =~ m/^(\d+)$/) && $1 >= 8 && $1 <= 126) {
120 } elsif ($ip_version == 4 && ($text =~ m/^(\d+)$/) && $1 >= 8 && $1 <= 32) {
122 } elsif ($ip_version == 4 && defined($ipv4_mask_hash->{$text})) {
123 # costs nothing to handle 255.x.y.z style masks, so continue to allow it
124 return $ipv4_mask_hash->{$text};
133 my $links = `ip -o l`;
134 foreach my $l (split /\n/,$links) {
135 my ($index, $name, $flags, $state, $mac) = $l =~ m/^(\d+):\s+(\S+):\s+<(\S+)>.*\s+state\s+(\S+)\s+.*\s+link\/ether\s
+(\S
+)\s
+/;
136 next if !$name || $name eq 'lo';
138 my $driver = readlink "/sys/class/net/$name/device/driver" || 'unknown';
141 $ifaces->{"$index"} = {
149 my $addresses = `ip -o a s $name`;
150 for my $addr_line (split /\n/,$addresses) {
151 my ($family, $ip, $prefix) = $addr_line =~ m/^\Q$index\E:\s+\Q$name\E\s+(inet|inet6)\s+($IPRE)\/(\d+)\s+/;
153 next if $addr_line =~ /scope\s+link/; # ignore link local
157 if ($family eq 'inet') {
158 next if !$ip =~ /$IPV4RE/;
159 next if $prefix < 8 || $prefix > 32;
160 $mask = @$ipv4_reverse_mask[$prefix];
162 next if !$ip =~ /$IPV6RE/;
165 $default = $index if !$default;
167 $ifaces->{"$index"}->{"$family"} = {
176 my $route = `ip route
`;
177 my ($gateway) = $route =~ m/^default\s+via\s+(\S+)\s+/m;
179 my $resolvconf = `cat
/etc/resolv
.conf
`;
180 my ($dnsserver) = $resolvconf =~ m/^nameserver\s+(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/m;
181 my ($domain) = $resolvconf =~ m/^domain\s+(\S+)$/m;
187 dnsserver => $dnsserver,