diff options
| -rwxr-xr-x | include/nms/web.pm | 2 | ||||
| -rwxr-xr-x | web/nms.gathering.org/api/private/comment-add | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/include/nms/web.pm b/include/nms/web.pm index 74f40c1..184cd90 100755 --- a/include/nms/web.pm +++ b/include/nms/web.pm @@ -12,7 +12,7 @@ package nms::web; use base 'Exporter'; our %get_params; our %json; -our @EXPORT = qw(finalize_output json dbh db_safe_quote %get_params get_input %json); +our @EXPORT = qw(finalize_output json $dbh db_safe_quote %get_params get_input %json); our $dbh; our $now; our $when; diff --git a/web/nms.gathering.org/api/private/comment-add b/web/nms.gathering.org/api/private/comment-add index beb7b21..7ad386e 100755 --- a/web/nms.gathering.org/api/private/comment-add +++ b/web/nms.gathering.org/api/private/comment-add @@ -2,13 +2,13 @@ # vim:ts=8:sw=8 use lib '../../../../include'; use utf8; -use nms::web; +use nms::web qw($dbh db_safe_quote); use strict; use warnings; my $data = db_safe_quote('comment'); my $switch = db_safe_quote('switch'); -my $user = $dbh->quote($cgi->remote_user() || "undefined"); +my $user = $dbh->quote($ENV{'REMOTE_USER'} || "undefined"); my $q = $nms::web::dbh->prepare("INSERT INTO switch_comments (time,username,switch,comment) values (now(),$user,(select switch from switches where sysname = $switch limit 1),$data)"); $q->execute(); |