diff options
Diffstat (limited to 'include')
-rw-r--r-- | include/nms/dbconfig.pm | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/include/nms/dbconfig.pm b/include/nms/dbconfig.pm new file mode 100644 index 0000000..b67c040 --- /dev/null +++ b/include/nms/dbconfig.pm @@ -0,0 +1,29 @@ +# vim:ts=8:sw=8 +use strict; +use warnings; +use utf8; +use DBI; +use Data::Dumper; +use JSON; +use nms; +package nms::dbconfig; + +use base 'Exporter'; +our @EXPORT = qw(%config); +our %config; +my $dbh; + +use Data::Dumper; + + +BEGIN { + $dbh = nms::db_connect(); + my $q2 = $dbh->prepare('select * from config order by id desc limit 1;'); + $q2->execute(); + while (my $ref = $q2->fetchrow_hashref()) { + %config = %$ref; + $config{'data'} = JSON::XS::decode_json($ref->{'data'}); + } + $dbh->disconnect(); +} +1; |