diff options
| author | Kristian Lyngstol <kristian@bohemians.org> | 2016-03-27 08:27:17 +0200 |
|---|---|---|
| committer | Kristian Lyngstol <kristian@bohemians.org> | 2016-03-27 08:27:17 +0200 |
| commit | 1d2470a411e5eaac7e5a1c5d5b6b81e92c92f4a8 (patch) | |
| tree | 54b901757b088d54d33e70f28a6203383b4dc844 /examples/historical/web/nms.gathering.org/change-switch-pos.pl | |
| parent | 0a230ac5481b9518abc64181dbbb4509d83c0b89 (diff) | |
| parent | 96a9bb4c42f4b53020302fea2a46e734c61c0319 (diff) | |
Merge branch 'master' of github.com:tech-server/tgmanage
Diffstat (limited to 'examples/historical/web/nms.gathering.org/change-switch-pos.pl')
| -rwxr-xr-x | examples/historical/web/nms.gathering.org/change-switch-pos.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/examples/historical/web/nms.gathering.org/change-switch-pos.pl b/examples/historical/web/nms.gathering.org/change-switch-pos.pl new file mode 100755 index 0000000..70d12f4 --- /dev/null +++ b/examples/historical/web/nms.gathering.org/change-switch-pos.pl @@ -0,0 +1,15 @@ +#! /usr/bin/perl +use CGI; +use GD; +use DBI; +use lib '../../include'; +use nms; +my $cgi = CGI->new; + +my $dbh = nms::db_connect(); +my $box = sprintf("(%d,%d)", $cgi->param('x'), $cgi->param('y')); + +$dbh->do('UPDATE placements SET placement=box(?::point, ?::point + point(width(placement),height(placement))) WHERE switch=?', + undef, $box, $box, $cgi->param('switch')); +print $cgi->header(-type=>'text/plain', -expires=>'now'); + |