aboutsummaryrefslogtreecommitdiffstats
path: root/examples/historical/clients/flatify.pl
diff options
context:
space:
mode:
authorKristian Lyngstol <kly@kly@.no>2016-03-26 03:48:32 +0100
committerKristian Lyngstol <kly@kly@.no>2016-03-26 03:48:32 +0100
commitcda4d1235486dc74c5d3630fc5e85307f277c5f3 (patch)
tree0e59890e8afcf09024079d0e3a596e16b63250af /examples/historical/clients/flatify.pl
parent004f4efcfd0779f4307b90fed139dc87d01ad0b9 (diff)
parenta791ca16c787672ea534dbde39f926d0341aa2e6 (diff)
Merge branch 'master' of github.com:tech-server/tgmanage
Diffstat (limited to 'examples/historical/clients/flatify.pl')
-rwxr-xr-xexamples/historical/clients/flatify.pl21
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.
+}