August 2010

Up till now, we did have a bunch of shell and perl scripts doing this work. Today, as I was looking for some stuff to do, I found them and decided rewriting it, so you wouldn’t need a shell script to call the perl worker script … This is pretty much the result!

#!/usr/bin/perl

# LICENSE:     GNU General Public License v2. (see LICENSE.txt)
# COPYRIGHT:   Copyright 2010 Christian Heim &lt;christian.heim@barfoo.org&gt;

# This script runs a batch of commands on a list of FC-switches. For example:
# fc-switch-commands.pl statsclear | configupload | supportsave

use strict;
use warnings;
use Net::Telnet;

our( @san_fabric1_core, @san_fabric1_edge_1, @san_fabric1_edge_2 );
our( @san_fabric2_core, @san_fabric2_edge_1, @san_fabric2_edge_2 );
our( @switches );
our( $ftp_host, $ftp_username, $ftp_password );
our( $telnet );
our( $i, $version, @debug );

@san_fabric1_core = ( &quot;10.144.20.50&quot;, &quot;admin&quot;, &quot;JuNxJFSAS!&quot;, &#039;san_fabric1_core&#039; );
@san_fabric1_edge_1 = ( &quot;10.144.20.51&quot;, &quot;admin&quot;, &quot;JuNxJFSAS!&quot;, &#039;san_fabric1_edge_1&#039; );
@san_fabric1_edge_2 = ( &quot;10.144.20.52&quot;, &quot;admin&quot;, &quot;JuNxJFSAS!&quot;, &#039;san_fabric1_edge_2&#039; );
@san_fabric2_core = ( &quot;10.144.20.60&quot;, &quot;admin&quot;, &quot;JuNxJFSAS!&quot;, &#039;san_fabric2_core&#039; );
@san_fabric2_edge_1 = ( &quot;10.144.20.61&quot;, &quot;admin&quot;, &quot;JuNxJFSAS!&quot;, &#039;san_fabric2_edge_1&#039; );
@san_fabric2_edge_2 = ( &quot;10.144.20.62&quot;, &quot;admin&quot;, &quot;JuNxJFSAS!&quot;, &#039;san_fabric2_edge_2&#039; );

$ftp_host = &#039;10.144.20.45&#039;;
$ftp_username = &#039;brocade_cfg&#039;;
$ftp_password = &#039;JuNxJPFC!&#039;;

@switches = ( @san_fabric1_core, @san_fabric2_core,
              @san_fabric1_edge_1, @san_fabric1_edge_2,
              @san_fabric2_edge_1, @san_fabric2_edge_2 );

@debug = ( Dump_Log =&gt; &#039;dump.log&#039;, Output_Log =&gt; &#039;out.log&#039;, Input_Log =&gt; &#039;in.log&#039; );

$telnet = new Net::Telnet(Timeout=&gt;240, Errmode=&gt;&#039;die&#039;,
                          Prompt =&gt; &#039;/.*:admin&gt; $/is&#039;, @debug);

for ($i = 0; $i &lt; $#switches + 1; $i++) {
  $telnet-&gt;open($switches[$i][0]);
  $telnet-&gt;login($switches[$i][1], $switches[$i][2]);

  if ( $ARGV[0] eq &quot;statsclear&quot; ) {
    $telnet-&gt;cmd(&quot;statsclear&quot;);
  } elsif ( $ARGV[0] eq &quot;configupload&quot; ) {
    # Check the FabricOS version, as Brocade decided to break compatiblity with 
    # earlier firmware versions w/ v6 (at least configupload)
    $telnet-&gt;cmd(&quot;firmwareshow&quot;);
    $version = $telnet-&gt;lastline;
    $version =~ s/s+|s+$//g;

    if ( $version =~ &quot;v6&quot; ) {
      $telnet-&gt;cmd(&quot;configupload -all -ftp &quot;$ftp_host&quot;,&quot;$ftp_username&quot;,&quot;$switches[$i][3].cfg&quot;,&quot;$ftp_password&quot;&quot;);
    } else {
      $telnet-&gt;cmd(&quot;configupload &quot;$ftp_host&quot;,&quot;$ftp_username&quot;,&quot;$switches[$i][3].cfg&quot;,&quot;$ftp_password&quot;&quot;);
    }
  } elsif ( $ARGV[0] eq &quot;supportsave&quot; ) {
    $telnet-&gt;cmd(&quot;supportsave -n -u &quot;$ftp_username&quot; -p &quot;$ftp_password&quot; -h &quot;$ftp_host&quot; -d &quot;supportsave/$switches[$i][3]&quot; -l ftp&quot;);
  }

  $telnet-&gt;close();
}

#!/usr/bin/perl

# LICENSE: GNU General Public License v2. (see LICENSE.txt)

# This script runs a batch of commands on a list of FC-switches. For example:

# fc-switch-commands.pl statsclear | configupload | supportsave

use strict;

use warnings;

use Net::Telnet;

our( @san_fabric1_core, @san_fabric1_edge_1, @san_fabric1_edge_2 );

our( @san_fabric2_core, @san_fabric2_edge_1, @san_fabric2_edge_2 );

our( @switches );

our( $ftp_host, $ftp_username, $ftp_password );

our( $telnet );

our( $i, $version, @debug );

@san_fabric1_core = ( "10.144.20.50", "admin", "JuNxJFSAS!", 'san_fabric1_core' );

@san_fabric1_edge_1 = ( "10.144.20.51", "admin", "JuNxJFSAS!", 'san_fabric1_edge_1' );

@san_fabric1_edge_2 = ( "10.144.20.52", "admin", "JuNxJFSAS!", 'san_fabric1_edge_2' );

@san_fabric2_core = ( "10.144.20.60", "admin", "JuNxJFSAS!", 'san_fabric2_core' );

@san_fabric2_edge_1 = ( "10.144.20.61", "admin", "JuNxJFSAS!", 'san_fabric2_edge_1' );

@san_fabric2_edge_2 = ( "10.144.20.62", "admin", "JuNxJFSAS!", 'san_fabric2_edge_2' );

$ftp_host = '10.144.20.45';

$ftp_username = 'brocade_cfg';

$ftp_password = 'JuNxJPFC!';

@switches = ( @san_fabric1_core, @san_fabric2_core,

@san_fabric1_edge_1, @san_fabric1_edge_2,

@san_fabric2_edge_1, @san_fabric2_edge_2 );

@debug = ( Dump_Log => 'dump.log', Output_Log => 'out.log', Input_Log => 'in.log' );

$telnet = new Net::Telnet(Timeout=>240, Errmode=>'die',

Prompt => '/.*:admin> $/is', @debug);

for ($i = 0; $i < $#switches + 1; $i++) {

$telnet->open($switches[$i][0]);

$telnet->login($switches[$i][1], $switches[$i][2]);

if ( $ARGV[0] eq "statsclear" ) {

$telnet->cmd("statsclear");

} elsif ( $ARGV[0] eq "configupload" ) {

# Check the FabricOS version, as Brocade decided to break compatiblity with

# earlier firmware versions w/ v6 (at least configupload)

$telnet->cmd("firmwareshow");

$version = $telnet->lastline;

$version =~ s/s+|s+$//g;

if ( $version =~ "v6" ) {

$telnet->cmd("configupload -all -ftp "$ftp_host","$ftp_username","$switches[$i][3].cfg","$ftp_password"");

} else {

$telnet->cmd("configupload "$ftp_host","$ftp_username","$switches[$i][3].cfg","$ftp_password"");

}

} elsif ( $ARGV[0] eq "supportsave" ) {

$telnet->cmd("supportsave -n -u "$ftp_username" -p "$ftp_password" -h "$ftp_host" -d "supportsave/$switches[$i][3]" -l ftp");

}

$telnet->close();

}

We do have some customers, who get charged on a monthly basis for their SAN usage. We already had “reporting” in place, but that wasn’t very flexible. So I went ahead and rewrote the current reporting script from scratch, and this is what I’ve come up with:

#/bin/bash

# LICENSE:     GNU General Public License v2. (see LICENSE.txt)
# COPYRIGHT:   Copyright 2010 Christian Heim &lt;christian.heim@barfoo.org&gt;

svc_sshkey=&quot;~/.ssh/svc-id_dsa&quot;
svc_addr=&quot;10.144.0.150&quot;
svc_user=&quot;admin&quot;

if [ -z $1 ] ; then
  echo &quot;Please rerun this script with some kind of filter value&quot;
  echo &quot;(for example &#039;$0 NAS&#039;)&quot;
  exit 1
else
  filter=$1
fi

IFS=&quot;
&quot;

DISK=&quot;$( ssh -i $svc_sshkey -l $svc_user $svc_addr svcinfo lsvdisk -nohdr -bytes -delim : 
          | egrep -i &quot;V.*$filter&quot; | cut -d: -f2,8 | sort )&quot;

# Get a unique list of systems
SYSTEMS=&quot;$( echo $DISK | sed &quot;s, ,n,g&quot; | cut -d  -f1 | sed &#039;s,^V,,&#039; | cut -d_ -f1 | sort -u )&quot;

for system in $SYSTEMS ; do
  VDISKS=&quot;$( echo $DISK | sed &quot;s, ,n,g&quot; | grep $system | sed &quot;s,:,: ,&quot; )&quot;
  SYSTEM_TOTAL=&quot;$( echo $DISK | sed &quot;s, ,n,g&quot; | grep $system | cut -d: -f2 | awk &#039;{SUM += $1} END { printf &quot;%.2f&quot;, SUM }&#039; )&quot;
  for vdisk in $VDISKS ; do
    NAME=&quot;$( echo $vdisk | cut -d: -f1 )&quot;
    SIZE=&quot;$( echo $vdisk | cut -d: -f2 | sed &quot;s,^ ,,&quot; )&quot;
    GB_SIZE=&quot;$( echo &quot;$SIZE / 1024 / 1024 / 1024&quot; | bc )&quot;
    if [ $GB_SIZE -eq 0 ] ; then
      GB_SIZE=&quot;$( echo &quot;scale=2; $SIZE / 1024 / 1024 / 1024&quot; | bc )&quot;
      GB_SIZE=&quot;${GB_SIZE/./0.}&quot;
    fi
    echo &quot;$NAME: ${GB_SIZE/./,} GB&quot;
  done
  SUB_TOTAL_SYSTEM=&quot;$( echo &quot;scale=2; $SYSTEM_TOTAL / 1024 / 1024 / 1024&quot; | bc )&quot;
  echo &quot;SUB TOTAL: ${SUB_TOTAL_SYSTEM/./,} GB&quot;
  echo
done

TOTAL=&quot;$( echo $DISK | sed &quot;s, ,n,g&quot; | cut -d: -f2  | awk &#039;{SUM += $1} END { printf &quot;%.2f&quot;, SUM }&#039; )&quot;
TOTAL=&quot;$( echo &quot;scale=2; $TOTAL / 1024 / 1024 / 1024&quot; | bc ) GB&quot;

echo &quot;------------------------------------------------&quot;
echo $TOTAL

exit 0

#/bin/bash

# LICENSE: GNU General Public License v2. (see LICENSE.txt)

svc_sshkey="~/.ssh/svc-id_dsa"

svc_addr="10.144.0.150"

svc_user="admin"

if [ -z $1 ] ; then

echo "Please rerun this script with some kind of filter value"

echo "(for example '$0 NAS')"

exit 1

else

filter=$1

IFS="

DISK="$( ssh -i $svc_sshkey -l $svc_user $svc_addr svcinfo lsvdisk -nohdr -bytes -delim :

| egrep -i "V.*$filter" | cut -d: -f2,8 | sort )"

# Get a unique list of systems

for system in $SYSTEMS ; do

VDISKS="$( echo $DISK | sed "s, ,n,g" | grep $system | sed "s,:,: ," )"

SYSTEM_TOTAL="$( echo $DISK | sed "s, ,n,g" | grep $system | cut -d: -f2 | awk '{SUM += $1} END { printf "%.2f", SUM }' )"

for vdisk in $VDISKS ; do

NAME="$( echo $vdisk | cut -d: -f1 )"

SIZE="$( echo $vdisk | cut -d: -f2 | sed "s,^ ,," )"

GB_SIZE="$( echo "$SIZE / 1024 / 1024 / 1024" | bc )"

if [ $GB_SIZE -eq 0 ] ; then

GB_SIZE="$( echo "scale=2; $SIZE / 1024 / 1024 / 1024" | bc )"

GB_SIZE="${GB_SIZE/./0.}"

echo "$NAME: ${GB_SIZE/./,} GB"

done

SUB_TOTAL_SYSTEM="$( echo "scale=2; $SYSTEM_TOTAL / 1024 / 1024 / 1024" | bc )"

echo "SUB TOTAL: ${SUB_TOTAL_SYSTEM/./,} GB"

echo

done

TOTAL="$( echo $DISK | sed "s, ,n,g" | cut -d: -f2 | awk '{SUM += $1} END { printf "%.2f", SUM }' )"

TOTAL="$( echo "scale=2; $TOTAL / 1024 / 1024 / 1024" | bc ) GB"

echo "------------------------------------------------"

echo $TOTAL

exit 0

I gotta say, once again I learned a lot … two new things about awk!

I know the report itself doesn’t look *that* pretty, but it serves a purpose!

S	M	T	W	T	F	S
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30	31

Month: August 2010

Run a command on a list of Fibre-Channel switches (fc-switch-commands.pl)

SAN reporting