new helper: read_proc_mounts

[pve-common.git] / src / PVE / ProcFSTools.pm

diff --git a/src/PVE/ProcFSTools.pm b/src/PVE/ProcFSTools.pm
index 8bb0d729b50b8ab974cdbc5d3b2ac57d5fe24e70..fea539a563f1f6e8eee1770e3999fbbb962e1f87 100644 (file)
--- a/src/PVE/ProcFSTools.pm
+++ b/src/PVE/ProcFSTools.pm
@@ -284,4 +284,33 @@ sub read_proc_net_route {
     return $res;
 }
 
+sub read_proc_mounts {
+    return PVE::Tools::file_get_contents("/proc/mounts");
+}
+
+sub read_proc_net_ipv6_route {
+    my $filename = "/proc/net/ipv6_route";
+
+    my $res = [];
+
+    my $fh = IO::File->new ($filename, "r");
+    return $res if !$fh;
+
+    my $read_v6addr = sub { s/....(?!$)/$&:/g };
+
+    # ipv6_route has no header
+    while (defined(my $line = <$fh>)) {
+       my ($dest, $prefix, $nexthop, $metric, $iface) = (split(/\s+/, $line))[0,1,4,5,9];
+       push @$res, {
+           dest => &$read_v6addr($dest),
+           prefix => $prefix,
+           gateway => &$read_v6addr($nexthop),
+           metric => $metric,
+           iface => $iface
+       };
+    }
+
+    return $res;
+}
+
 1;