65 lines
1.3 KiB
Perl
65 lines
1.3 KiB
Perl
package conf;
|
|
|
|
use strict;
|
|
use warnings "all";
|
|
use vars qw/$VERSION/;
|
|
use Fcntl qw(O_WRONLY O_CREAT O_TRUNC);
|
|
use JSON::XS;
|
|
use utf8;
|
|
|
|
use Exporter qw(import);
|
|
our @EXPORT = qw(loadConf saveConf);
|
|
|
|
$VERSION = "1.0";
|
|
|
|
sub loadConf() {
|
|
my $c = "data/myapi.json";
|
|
open (C, "<", $c) or die "[FATA] No conf at $c: $!\n";
|
|
my $len = (stat($c))[7];
|
|
my $json;
|
|
my $readlen = read(C, $json, $len);
|
|
|
|
unless ($readlen) {
|
|
close C;
|
|
die "[FATA] Unable to read $c: $!\n";
|
|
}
|
|
|
|
if ($readlen != $len) {
|
|
close C;
|
|
die "[FATA] File $c is $len bytes on disk, but we read only $readlen bytes\n";
|
|
}
|
|
|
|
close C;
|
|
return decode_json($json);
|
|
}
|
|
|
|
sub saveConf($) {
|
|
my $c = shift;
|
|
my $file = "data/myapi.json";
|
|
my $j = JSON::XS->new->pretty->canonical->indent(1);
|
|
my $json = $j->encode($c);
|
|
$j = undef; undef $j;
|
|
use bytes;
|
|
my $len = length($json);
|
|
no bytes;
|
|
# TODO: make it transactional
|
|
sysopen (C, $file, O_WRONLY|O_CREAT|O_TRUNC) or die "[FATA] Unable to open $file: $!\n";
|
|
binmode C, ':utf8';
|
|
|
|
my $written = syswrite(C, $json, $len);
|
|
|
|
unless (defined($written)) {
|
|
die "[FATA] Unable to write to $file: $!";
|
|
}
|
|
|
|
unless ($written != $len) {
|
|
die "[FATA] We wrote $written bytes to $file, bu buffer length id $len bytes\n";
|
|
}
|
|
|
|
close C;
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set ft=perl noet ai ts=4 sw=4 sts=4:
|