Finished upload.pm, fixed cpanfile + bootstrap.sh
* Переименован конфиг * Исправлены cpanfile и bootstrap.shб теперь они работают * loadConf и saveConf перемещены в conf.pm из myapi.psgi * Исправлен синтаксис README.md согласно форматированию GitHub * Обновлён .gitignore * Закончена работа над upload.pm
This commit is contained in:
35
lib/conf.pm
Normal file
35
lib/conf.pm
Normal file
@@ -0,0 +1,35 @@
|
||||
package conf;
|
||||
|
||||
use strict;
|
||||
use warnings "all";
|
||||
use diagnostics;
|
||||
use vars qw/$VERSION/;
|
||||
use JSON::PP;
|
||||
|
||||
use Exporter qw(import);
|
||||
our @EXPORT = qw(loadConf saveConf);
|
||||
|
||||
$VERSION = "1.0";
|
||||
|
||||
sub loadConf() {
|
||||
my $c = "data/myapi.json";
|
||||
my $sep = $/;
|
||||
$/ = '';
|
||||
open (C, $c) or die "No conf at $c\n";
|
||||
my $json = <C>;
|
||||
close C;
|
||||
return decode_json($json);
|
||||
}
|
||||
|
||||
sub saveConf($) {
|
||||
my $c = shift;
|
||||
my $file = "data/myapi.json";
|
||||
my $j = JSON::PP->new->pretty->canonical->indent_length(4);
|
||||
my $json = $j->encode($c);
|
||||
# TODO: make it transactional
|
||||
open (C, ">", $file) or die "Unable to open $file\n";
|
||||
print C $json;
|
||||
close C;
|
||||
}
|
||||
|
||||
1;
|
||||
Reference in New Issue
Block a user