#!/usr/bin/perl
+use lib '../include';
+use nms;
#
#
my $img = GD::Image->new('stemp-bg5.png');
my $cgi = CGI->new;
-my $dbh = DBI->connect("dbi:Pg:dbname=snmpfetch;host=violet.tg05.gathering.org", "snmpfetch", "removed")
- or die "Couldn't connect to database";
+my $dbh = nms::db_connect();
my $black = $img->colorAllocate(0,0,0);
my $white = $img->colorAllocate(255,255,255);