diff options
author | Kristian Lyngstol <kly@kly@.no> | 2016-03-26 03:48:32 +0100 |
---|---|---|
committer | Kristian Lyngstol <kly@kly@.no> | 2016-03-26 03:48:32 +0100 |
commit | cda4d1235486dc74c5d3630fc5e85307f277c5f3 (patch) | |
tree | 0e59890e8afcf09024079d0e3a596e16b63250af /examples/historical/clients/flatify.pl | |
parent | 004f4efcfd0779f4307b90fed139dc87d01ad0b9 (diff) | |
parent | a791ca16c787672ea534dbde39f926d0341aa2e6 (diff) |
Merge branch 'master' of github.com:tech-server/tgmanage
Diffstat (limited to 'examples/historical/clients/flatify.pl')
-rwxr-xr-x | examples/historical/clients/flatify.pl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/examples/historical/clients/flatify.pl b/examples/historical/clients/flatify.pl new file mode 100755 index 0000000..f2aa18a --- /dev/null +++ b/examples/historical/clients/flatify.pl @@ -0,0 +1,21 @@ +#! /usr/bin/perl + +# Make the given switch into a D-Link placement-wise. + +use strict; +use warnings; +use lib '../include'; +use nms; + +my $dbh = nms::db_connect(); +my $q = $dbh->prepare('SELECT switch,placement FROM switches NATURAL JOIN placements WHERE sysname LIKE ?'); +$q->execute('%'.$ARGV[0].'%'); + +while (my $ref = $q->fetchrow_hashref) { + $ref->{'placement'} =~ /\((\d+),(\d+)\),\((\d+),(\d+)\)/ or die; + my ($x1,$y1,$x2,$y2) = ($1, $2, $3, $4); + my $placement = sprintf "(%d,%d),(%d,%d)", $x2 - 100, $y2 - 16, $x2, $y2; + $dbh->do("UPDATE placements SET placement=? WHERE switch=?", + undef, $placement, $ref->{'switch'}); + last; # Take only one. +} |