PVE/APIClient/Config.pm: new class to handle configuration file

diff --git a/PVE/APIClient/Config.pm b/PVE/APIClient/Config.pm
new file mode 100644 (file)
index 0000000..86007d2
--- /dev/null
+++ b/PVE/APIClient/Config.pm
@@ -0,0 +1,23 @@
+package PVE::APIClient::Config;
+
+use strict;
+use warnings;
+use JSON;
+use File::HomeDir;
+
+use PVE::Tools;
+
+sub load_config {
+
+    my $filename = home() . '/.pveclient';
+    my $conf_str = PVE::Tools::file_get_contents($filename);
+
+    my $filemode = (stat($filename))[2] & 07777;
+    if ($filemode != 0600) {
+       die sprintf "wrong permissions on '$filename' %04o (expected 0600)\n", $filemode;
+    }
+
+    return decode_json($conf_str);
+};
+
+1;