git.sesse.net Git - nms/blob - include/nms.pm

   1 #! /usr/bin/perl
   2 use strict;
   3 use warnings;
   4 use DBI;
   5 package nms;
   6
   7 BEGIN {
   8         require "config.pm";
   9         eval {
  10                 require "config.local.pm";
  11         };
  12 }
  13
  14 sub db_connect {
  15         my $dbh = DBI->connect("dbi:Pg:" .
  16                                 "dbname=" . $nms::config::db_name .
  17                                 ";host=" . $nms::config::db_host,
  18                                 $nms::config::db_username,
  19                                 $nms::config::db_password)
  20                 or die "Couldn't connect to database";
  21         return $dbh;
  22 }
  23
  24 1;