diff options
author | Kristian Lyngstol <kly@kly.no> | 2016-03-04 17:47:56 +0000 |
---|---|---|
committer | Kristian Lyngstol <kly@kly.no> | 2016-03-04 17:47:56 +0000 |
commit | aafd5a80db7b5ee27d1c432a4db93da48fbecb8a (patch) | |
tree | 3235337d8488228ea54a5c9dd6a1b6b67474aaa2 /web/nms.gathering.org/comment.pl | |
parent | 289a855db874aefa4ae90f0029555ada4383fbbc (diff) |
nms: Rename API end points and separate public/private
Diffstat (limited to 'web/nms.gathering.org/comment.pl')
-rwxr-xr-x | web/nms.gathering.org/comment.pl | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/web/nms.gathering.org/comment.pl b/web/nms.gathering.org/comment.pl deleted file mode 100755 index 7a45d76..0000000 --- a/web/nms.gathering.org/comment.pl +++ /dev/null @@ -1,15 +0,0 @@ -#! /usr/bin/perl -# vim:ts=8:sw=8 - -use lib '../../include'; -use nms::web; -use strict; -use warnings; - -my $query = $nms::web::dbh->prepare('select sysname,extract(epoch from date_trunc(\'second\',time)) as time,state,username,id,comment from switch_comments natural join switches where state != \'delete\' order by time desc'); -$query->execute(); -while (my $ref = $query->fetchrow_hashref()) { - push @{$nms::web::json{'comments'}{$ref->{'sysname'}}{'comments'}},$ref; -} - -nms::web::finalize_output(); |