< Concord
Content added Content deleted
imported>DrOwl (a perl / sql script for Concord that gets deleted nms Elements) |
imported>DrOwl mNo edit summary |
||
Line 34: | Line 34: | ||
print $number; |
print $number; |
||
</code> |
</code> |
||
[[Category:Concord]] |
|||
[[Category:Networking]] |
|||
[[Category:Computer]] |
|||
[[Category:English]] |
|||
[[Category:Perl]] |
Revision as of 12:33, 19 May 2005
this is a nice basic script that uses oracle's sql to get element names that have an nms State of deleted
more getNmsDeletedElements.pl
#!/bin/perl
use strict;
use warnings;
# simple script that outputs the names of elements that have an nmsState of Deleted
# ie it will find elements that have been turned off for the Alcatel import module
# the data in nmsStats is numeric 1 = active, 2 = deleted, 0 = ?
# i have not find the place in the munual yet with this infomation so this is just a guess
my $oraUser="user name here";
my $oraPassword="password here";
my $oraPath="path to sqlplus command here"; # eg "/oracle/bin"
my $nmsState="2" || die "Missing args $!"; # get required nmsState
my $number="0";
if ($nmsState !~ /0|1|2/) {die "not a valid IPAddress";}
my $elements = qx{$oraPath/sqlplus -S $oraUser/$oraPassword <<EOF
set pages 100 lines 1000 head off
SELECT NAME from NH_ELEMENT where NMS_STATE='$nmsState';
exit
EOF };
#print $elements; #works to here.
foreach my $segment (split(/\n/,$elements)) {
next if $segment =~ /^$/;
next if $segment =~ /no rows selected/;
if ($segment =~ /\d[0-10] rows selected/) {$number=$1;}
print "$segment\n";
}
print $number;