From 3b71bacda0ddb89c8ceda0ea998c1570ecb494f7 Mon Sep 17 00:00:00 2001 From: Joachim Tingvold Date: Tue, 15 Apr 2014 20:29:02 +0200 Subject: When adding linknets, keep existing ones unchanged (to keep historical data). --- dlink-ng/dlink-ng.pl | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) (limited to 'dlink-ng') diff --git a/dlink-ng/dlink-ng.pl b/dlink-ng/dlink-ng.pl index 9d27862..8369e05 100755 --- a/dlink-ng/dlink-ng.pl +++ b/dlink-ng/dlink-ng.pl @@ -1,4 +1,17 @@ #!/usr/bin/perl +# +# USAGE: +# +# On all switches; +# dlink-ng/make-dlink-config.pl switches.txt patchlist.txt | dlink-ng/dlink-ng.pl +# +# On a specific switch; +# dlink-ng/make-dlink-config.pl switches.txt patchlist.txt | dlink-ng/dlink-ng.pl -s e11-1 +# +# On multiple switches; +# dlink-ng/make-dlink-config.pl switches.txt patchlist.txt | grep -E "11-1|11-2|13-1|13-2" | dlink-ng/dlink-ng.pl +# +# use strict; use warnings; use Net::Telnet::Cisco; @@ -11,7 +24,9 @@ use Getopt::Long; use Net::IP; use Net::OpenSSH; BEGIN { - require "dlink-ng-config.pm"; + use File::Basename; + my $dlink_dir = dirname(__FILE__); + require "$dlink_dir/dlink-ng-config.pm"; } # Make sure dlinkconfig.pm loads config (i.e. one config type has been uncommented) -- cgit v1.2.3