Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

Table of contents

Table of Contents

Disclaimer

THE CODE ON THIS PAGE IS PROVIDED BY INTERNET2 ``AS IS'' AND ANY
EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL INTERNET2 OR
THEIR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
OF THIS CODE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

Description

The plugin could be kind of nasty depending on how familiar you are with
programming.  The more of a programmer you are, the more nasty it might
look so I apologize since my background is not in programming and I only
do so on a need-be basis.   

This is not a step by step guide on how to implement the plugin, but a
guide to the files and execution procedure.  All the file included are
RTF files so they can just be opened, but will need to rename them
accordingly.  If you have questions, please let me know.

...

Code Block
title2statusparsePL.rtf
collapsetrue
#!/usr/bin/perl
use vars;
$file = "/home/gds/navcsStatus";
if (!open (FILE, $file)) {
        print "ERROR: Status file not found : $file";
        exit(0);
    }
#$new_file = "./vcsstatus.php";
#if (-e $new_file) {
#       unlink($new_file);
#}
$stat_line = '';
$Name = '';
$Value = '';
$val_name = '';
$val_status = '';
$val_zone_num = '';
while(<FILE>) {
        my($line) = $_;
        chomp($line);          # Get rid of the traillingtrailing \n
        $line =~ s/^\s*//;     # Remove spaces at the start of the line
        $line =~ s/\s*$//;     # Remove spaces at the end of the line
        if ( ($line !~ /^#/) && ($line ne "") ){    # Ignore lines starting with # and blank lines
                ($Name, $Value) = split (/:/, $line);          # Split each line into name value pairs
                if( ($Name eq "Name") or ($Name eq "Status") or ($Name =~ m/^Zone*/)){          # Checks to see if $Name is Name or Status
                        $Value =~ s/^\s*//; # Removes spaces from the start of the value
                        $Value =~ s/\s*$//; # Removes spaces from the end of the value
                        if($Name =~ m/^Zone\s*/){ # Searches for the line that starts with "Zone X"
                                my($z_zone, $z_number); # Defines local variables for parsing and seperatingseparating Zone and X
                                $Name =~ s/^\s*//; # Removes extra space from beginning
                                $Name =~ s/\s*$//; # Removes extra space from the end
                                $Name =~ s/[:]*$//; # Removes the : fronfrom the end of "Zone X:"
                                ($z_zone, $z_number) = split (/\s/,$Name); # Splits "Zone X" into "Zone" and "X"
                                $val_zone_num = $z_number; # Assigns "X" to variable $val_zone_num
                        }
                        if($Name eq "Name"){ #Checks for what the name of the line is, if it is "Name", it continutescontinues
                                $Value =~ s/^["]*//; # Removes quotes from beginning of Name
                                $Value =~ s/["]*$//; # Removes quotes from end of Name
                                $val_name = $Value;  # Assigned the name of the zone to $val_name
                        }
                        if($Name eq "Status"){ #Checks for what the name of the line is.  It is "Status", it contintuescontinues
                                $val_status = $Value; #Assigned the value of "Status" otof $val_status
                        }
                        if( ($val_name ne '') && ($val_status ne '') ){ #Since it cycles through the lines a few times before it gets to the next variable, it checks to see if both Name and Status have values applies (IE not empty), If both values have values assigned, it continues in.  If not, it goes to the next line retraining any value that has been assiendassigned to either $val_name or $val_status.
                                $stat_line .= "$val_zone_num:$val_name:$val_status\r\n"; # write the line giving the name and status of the zone.  Output will look like: XXX: Zone_name: Status.  IE:  1: Some_Zone: Active
                                $val_name = ''; # Clears out the variblevariable for next loop through.
                                $val_status = ''; # Clears out the variable for the next loop through
                        }
                }
        }
        if($line eq "*s/end"){
                last;
        }
    }
        close FILE; # Closes the input file it read from.
        open FILE2, ">/home/gds/vcs_scripts/vcsstatus.cfg" or die $!; #Opens the file 'vcsstatus.php' for writing to.
        print FILE2 $stat_line; # writes the value of $stat_line to the file
        close FILE2; # Closes the file.

...

Code Block
title3check_neighbor_status-PLUGIN.rtf
collapsetrue
#!/usr/bin/perl
use vars;
$file = "/home/gds/vcs_scripts/vcsstatus.cfg";
if (!open (FILE, $file)) {
        print "ERROR: Status file not found : $file\r\n";
        exit(0);
    }
#$new_file = "./vcsstatus.php";
#if (-e $new_file) {
#       unlink($new_file);
#}
$val_name = '';
$val_status = '';
$val_zone_num = '';
$ex_status = '';
$ne_id = $ARGV[0];
while(<FILE>) {
        my($line) = $_;
        chomp($line);          # Get rid of the traillingtrailing \n
        $line =~ s/^\s*//;     # Remove spaces at the start of the line
        $line =~ s/\s*$//;     # Remove spaces at the end of the line
        if($line =~ m/^($ne_id)/){
                ($val_zone_num, $val_name, $val_status) = split (/:/, $line);          # Split each line into name value pairs
                if( $val_zone_num = $ne_id ){
                        if( $val_status eq "Active"){
                                print "OK\n";
                                $ex_status = 0;
                                last;
                        }
                        elsif( $val_status eq "Warning"){
                                print "Warning!\n";
                                $ex_status = 1;
                                last;
                        }
                        elsif( $val_status eq "Failed"){
                                print "Critical!\n";
                                $ex_status = 2;
                                last;
                        }
                }
        }
        }
close FILE;
exit $ex_status;

...

Comments and feedback to the above can be sent to NickNicholas Thompson nick (at) internet2.edu