Home » FreeBSD » Cisco config backup Tool (AAA) (Tag: , )

Cisco config backup Tool では、Catalyst の標準的な Telnet パスワードでログインする場合を前提に作成しています。

Catalyst ではスイッチ本体に登録するユーザ名・パスワードによる認証も可能で、コマンド "aaa new-model" により AAA (Authentication, Authorization, Accounting) が有効な場合にも適用するサンプルです。

$aaa には、AAA が有効なスイッチを追加します。他はユーザ名の追加と $aaa にマッチした場合の条件分岐が主な変更です。

#!/usr/bin/perl -w
#
# get.pl
#

#// -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#// use Module
#// -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

use strict;

use Net::Telnet::Cisco;

#// -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#// Controller
#// -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

    my $target = $ARGV[0];

    #// ----------------------------------------------------------
    #// Item Set
    #// ----------------------------------------------------------

    my $user = 'user';
    my $pass_vt = 'password0';   #// login
    my $pass_en = 'password';    #// enable

    my $list = {
        'sw00' => '192.168.20.10',
        'sw01' => '192.168.20.11',
        'sw02' => '192.168.20.12',
    };

    my $aaa = {
        'sw01' => 1,
    };

    #// ----------------------------------------------------------
    #// Start
    #// ----------------------------------------------------------

    foreach (%$list) {
        next unless ($list->{$_});

        if ($target) {
            next unless ($target eq $_);
        }

        my $addr = $list->{$_};
        my $host = $_;

        my $sess = Net::Telnet::Cisco->new(Host => $addr);

        if ($aaa->{$_}) {
            $sess->login(Name => $user, Password => $pass_vt);
        } else {
            $sess->login(Password => $pass_vt);
        }

        $sess->enable($pass_en);

        my @cmd0 = $sess->cmd('show run');
        my @cmd1 = $sess->cmd('show vlan');
        my @cmd2 = $sess->cmd('show int status');

        $sess->close;

        #//

        my $date = substr(utime2date(time()), 0, 10);
        $date =~ s/\///g;

        my $file0 = $host . '_' . $date . '.run';
        my $file1 = $host . '_' . $date . '.vlan';
        my $file2 = $host . '_' . $date . '.stat';

        open WRITE, "+>$file0";

        foreach my $cmd (@cmd0) {
            next if ($cmd =~ /^Building/);
            #next if ($cmd =~ /^\n$/);
            next if ($cmd =~ /^Current/);

            print WRITE $cmd;
        }

        close WRITE;

        open WRITE, "+>$file1";

        foreach my $cmd (@cmd1) {
            print WRITE $cmd;
        }

        close WRITE;

        open WRITE, "+>$file2";

        foreach my $cmd (@cmd2) {
            print WRITE $cmd;
        }

        close WRITE;

        #//

        print "Done: $host\n";
    }

#// -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#// Model
#// -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

sub utime2date {
    my ($sec, $min, $hours, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($_[0]);

    my $years    = $year + 1900;
    my $this_mon = sprintf("%02d",$mon + 1);

    $mday  = sprintf("%02d", "$mday");
    $hours = sprintf("%02d", "$hours");
    $min   = sprintf("%02d", "$min");
    $sec   = sprintf("%02d", "$sec");

    my $date = "$years/$this_mon/$mday $hours:$min:$sec";

    return $date;
}

Random Select

ソフトクリーム 石垣の塩
私用で月に 2, 3 回は必ず訪れている銀座には、一丁目に 銀座わしたショップ があり、店内に入ると突然那覇空港か国際通りのショップ内にワープした様な気分になれます。正面入口から見れば 1F の奥には
つばめ風ハンブルグステーキ (3)
かつて銀座 1 丁目に つばめグリル がありましたが、建物自体の取り壊しを機会に移転したと聞いていました。品川駅前店には 2, 3 度訪れたことがありますが、ここ最近ご無沙汰です。1 丁目からそれ程離
VGP-WAR100 (6)
VAIO Fit 13A + Logicool Ultrathin Touch Mouse T630 (Part 2) で bluetooth マウスに切り替えるよりも前に、ワイヤレスルータ VGP-
八重山そば (大) + 八重山飯
沖縄本島 (No. 6 – 打ち上げ) の続きです。05:00 頃までは起きていた気がしますが、普通通り目が覚めてお昼前にはお泊り宅を後にしました。この後半分はいつものメンバーとは離れても
さば焼定食 (1)
日本一美味しいとりのから揚げ でご紹介した 味安 は、久しぶりに訪れると必ず "とり唐揚定食" をオーダーしてしまいます。いさば (サバ) の頃から、味安でも数年前に一度サバの塩焼
VAIO Fit 13A (背面)
Windows 8 -> 8.1 でスタートボタンが復活しても大いに肩透かしを受けた感じが一般的の様ですが、私は右クリックをした場合は重宝していますが Classic Shell を入れる程不
雑貨さくら (1)
与那国島 (No. 12 – 東崎 ? 祖納港) の続きです。数年前に西表島を訪れたことがあります。帰った後に やえやまブログ があることを思い出し、石垣島・西表島・与那国島から 2 つず
サイゼリア 神田小川町店
サイゼリヤ (ランチメニュー) から 2 ヶ月程ご無沙汰していましたが、急にサイゼリアの "小エビのカクテルサラダ" が食べたくなり訪れてみました。あれ ? 行くとほぼ必ずオーダー
玄米 + ゲンコツメンチ + キャベツ千切り
一時期 セブンイレブン (あらびき牛肉メンチカツ) を土日のどちらかのお昼ご飯として買っていた時期がありましたが、ローソンでも同じ様なメンチカツを見かけました。最寄りのローソンではなぜか夕方の方がスト
つけそば 並盛 + ちゃーしゅーごはん
景色 (しょうぶ沼公園) を久しぶりに散策した後は、北綾瀬駅そばの わた井 を訪れました。足立区のみでなく、東京全体でも高評価に入る口コミに興味を引かれ、何度か訪れたことがあります。メニューは至ってシ
Valid HTML5 Valid CSS3 Another HTML Lint