semaipUpdate_aippmiConvert.pl

#!/usr/bin/perl -w

 

#################################################################################

# The script is a post scriptfrom @Com adaptation 11.0 EP2 in OSS5.3 CD1.

# The script takes the fileaippmiConvert.xml as input.

# The following counters arecase sensitive with existing counters in

# the file aippmiConvert.xml,so this script add coorresponding mapping

# to map counters from NEsvia @Com.

#################################################################################

# For example

# Before execute this postscript:

#InvalidGqmessageseverreceived-285.0.2 => M7304C195

# After execute this postscript:

#InvalidGqmessageseverreceived-285.0.2 => M7304C195

#invalidGqmessageseverreceived-285.0.2 => M7304C195

#################################################################################

 

use English;

use warnings;

use strict;

use Getopt::Long;

use File::Basename;

my( $workdir, $filename );

 

GetOptions(

           "w|workdir=s" =>\$workdir

           );

my $convertFile ="$workdir/aippmi/aippmiConvert.cf";

 

my @addCounters = (

"invalidGqmessageseverreceived-285.0.2",

"invalidGqmessagesreceivedinlastperiod-285.0.3",

"invalidGxmessageseverreceived-286.0.2",

"invalidGxmessagesreceivedinlastperiod-286.0.3",

"invalidIamessageseverreceived-287.0.2",

"invalidIamessagesreceivedinlastperiod-287.0.3",

"invalidRqmessageseverreceived-289.0.2",

"invalidRqmessagesreceivedinlastperiod-289.0.3",

"invalidE4messageseverreceived-290.0.2",

"invalidE4messagesreceivedinlastperiod-290.0.3",

"invalidSpdfRqmessageseverreceived-288.0.2",

"invalidSpdfRqmessagesreceivedinlastperiod-288.0.3",

"invalidShmessageseverreceived-291.0.2",

"invalidShmessagesreceivedinlastperiod-291.0.3",

"invalidRadiusmessageseverreceived-292.0.2",

"invalidRadiusmessagesreceivedinlastperiod-292.0.3",

"CxPPRTriggeredbySubscriberAdmin-213.3.6",

"ResynchronizationrequestssenttoHLR-213.11.2",

"ReceivedSOAPrequests-213.16.1",

"QuintetsReturnedforImmRequests-213.20.6",

"QuintetsReturnedforNon-ImmRequests-213.20.7",

"GqsessionsetupAttemptsforSBLP-211.12.10",

"GqsessionsetupAttemptsforSBC-211.12.11"

);

 

my $i;

my $tmp;

my $line;

 

open SRC, "<", $convertFile|| die "Can't open $convertFile file to read!";

 

while ($line = <SRC>) {

        foreach $i (0..$#addCounters) {

                if ($line =~m/$addCounters[$i]/six && $line !~ m/$addCounters[$i]/sx) {

                        $line =~ s/(\s+)\S+(\s?=>)(.+)/$line$1$addCounters[$i]$2$3/s;

                        last;

                }

        }

        $tmp .= $line;

}

 

close SRC;

 

open RES, ">",$convertFile || die "Can't open $convertFile file to write!";

print RES $tmp;

close RES;