Changeset 31

Show
Ignore:
Timestamp:
04/26/07 10:33:18 (2 years ago)
Author:
root
Message:

Remove unused var and optimize some regexps

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/op_server.pl

    r30 r31  
    18191819    } 
    18201820 
    1821     my $canalconcontextosinserver = $canalconcontexto; 
    1822     $canalconcontextosinserver =~ s/(\d+)\^(.*)/$2/g; 
    18231821    if ( $canalconcontexto !~ /\^/ ) { 
    18241822        $canalconcontexto = $server . "^" . $canalconcontexto; 
    …… 
    18701868        } 
    18711869    } 
    1872     if ( $elemento =~ /^mISDN/i ) { 
    1873         if ( $elemento !~ /XXXY/ ) { 
     1870    if ( $elemento =~ /^(?i:mISDN)(?!.*XXXY)/ ) { 
    18741871            $elemento .= "-XXXY"; 
    1875         } 
    1876  
    1877         #    $elemento =~ s/(.*)\/(.*)/\U$1\E\/${2}-${2}/g; 
    18781872    } 
    18791873    elsif ( $elemento =~ /^SRX/i ) { 
    …… 
    18811875    } 
    18821876    elsif ( $elemento =~ /^CAPI\//i ) { 
    1883         $elemento =~ s/(CAPI\/)(.*)\/(.*)-(.*)/$1$2-$4/g; 
     1877        $elemento =~ s/(CAPI\/)(.*)\/.*-(.*)/$1$2-$3/g; 
    18841878    } 
    18851879 
    …… 
    18971891    $elemento =~ s/IAX2\/(.*)@(.*)\t(.*)/IAX2\/$1\t$3/; 
    18981892 
    1899     my @partes = split( /\t/, $elemento ); 
    1900     return @partes; 
     1893    return split( /\t/, $elemento ); 
    19011894} 
    19021895