#!/usr/bin/perl
-#
-#
-
-my $username = '';
-my $password = 'removed';
-
-# Seconds to wait for connection
-my $timeout = 15;
+use lib '../include';
+use nms;
use warnings;
use strict;
use Switch;
use CGI;
-use Net::Telnet;
use DBI;
# Grab from .htaccess-authentication
my $user = $ENV{'REMOTE_USER'};
-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();
$dbh->{AutoCommit} = 0;
my $sgetdone = $dbh->prepare(
my $gid = $cgi->param('gid');
if (!defined($gid)) {
print "<font color=\"red\">Du har ikke valgt en gid å slette.</font>\n";
- }
- if ($cgi->param('agid') eq 'Disable') {
- $sdisablegid->execute($gid);
print "<p>gid: ".$cgi->param('gid')." har blitt disablet.\n";
}
else {