blob: c5194cf2668216728b99287024d0f33dc618d023 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
# vim:ts=8:sw=8
use strict;
use warnings;
use utf8;
use DBI;
use Data::Dumper;
use JSON;
use nms;
package nms::oplog;
use base 'Exporter';
our @EXPORT = qw(oplog);
my $dbh;
my $query;
my $user;
use Data::Dumper;
sub oplog {
$query->execute($_[0], "[$user]" . $_[1]);
$dbh->commit;
}
BEGIN {
$user = $ENV{'REMOTE_USER'} || "internal";
$dbh = nms::db_connect();
$query = $dbh->prepare("INSERT INTO oplog (username, systems, log) VALUES('system',?,?)");
}
END {
$dbh->disconnect();
}
1;
|
