Add first iteration of dbconfig package

Should do a better job of the naming and the actual $dbh maintenance.

I'm thinking that including nms::db should contain a $dbh perhaps.

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;