From 519bae0f07f38bd82257c61a924085f64ad360cc Mon Sep 17 00:00:00 2001 From: Joachim Tingvold Date: Fri, 25 Mar 2016 15:23:08 +0100 Subject: Moved old, unused files. --- examples/historical/tools/make-accesspoints.pl | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100755 examples/historical/tools/make-accesspoints.pl (limited to 'examples/historical/tools/make-accesspoints.pl') diff --git a/examples/historical/tools/make-accesspoints.pl b/examples/historical/tools/make-accesspoints.pl new file mode 100755 index 0000000..b84321a --- /dev/null +++ b/examples/historical/tools/make-accesspoints.pl @@ -0,0 +1,24 @@ +#! /usr/bin/perl +use strict; +use warnings; + +while (<>) { + my @arr = split " "; + my $ap = 'ap-'.$arr[0]; + my $core = $arr[1]; + # Trekk fra 1 + $core =~ s/^(distro)(\d+)$/$1.($2-1)/e; + + # Fjerde kabel er aksesspunkt + my $blade; + my $port; + if ($arr[5] =~ /^Gi(\d+)\/(\d+)$/) { + $blade = $1; + $port = $2; + } else { + die "Unknown port: ".$arr[5]; + } + printf "INSERT INTO switches(ip, sysname, switchtype) values(inet '127.0.0.1', '%s', 'ciscoap');\n", $ap; + printf "INSERT INTO uplinks SELECT (SELECT switch FROM switches WHERE sysname = '%s') AS switch, (SELECT switch FROM switches WHERE sysname = '%s') AS coreswitch, %d AS blade, %d AS port;\n", $ap, $core, $blade, $port; + printf "INSERT INTO ap_poll(switch) SELECT switch FROM switches WHERE sysname = '%s';\n", $ap; +} -- cgit v1.2.3