[pve-client.git] / PVE / APIClient / Config.pm

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;
Commit	Line	Data
a31c7b27 DM	1	package PVE::APIClient::Config;
	2
	3	use strict;
	4	use warnings;
	5	use JSON;
	6	use File::HomeDir;
	7
	8	use PVE::Tools;
	9
	10	sub load_config {
	11
	12	my $filename = home() . '/.pveclient';
	13	my $conf_str = PVE::Tools::file_get_contents($filename);
	14
	15	my $filemode = (stat($filename))[2] & 07777;
	16	if ($filemode != 0600) {
	17	die sprintf "wrong permissions on '$filename' %04o (expected 0600)\n", $filemode;
	18	}
	19
	20	return decode_json($conf_str);
	21	};
	22
	23	1;