Changeset 33

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

Remove unused vars and optimize erase_instances_for_trunk_buttons

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/op_server.pl

    r32 r33  
    19361936 
    19371937    my ( undef, $contexto ) = split( /\&/, $canal ); 
    1938     if ( !defined($contexto) ) { $contexto = ""; } 
    1939  
    1940     my $canalconcontexto = ""; 
    1941     if ( $contexto ne "" ) { 
    1942         $canalconcontexto = "$canalglobal&$contexto"; 
    1943         $contexto         = "&$contexto"; 
    1944     } 
    1945     else { 
    1946         $canalconcontexto = $canalglobal; 
    1947         $contexto         = ""; 
    1948     } 
     1938    $contexto = $contexto ? "&$contexto" : ""; 
    19491939 
    19501940    my $sesiontemp = $canalid; 
    …… 
    19521942    log_debug( "$heading looking for $canalid on instancias to erase it", 128 ) if DEBUG; 
    19531943 
    1954     my $trymatch = $canalid; 
    1955  
    19561944    if ( $canal =~ m/^DID|^CLID/ ) { 
    1957         $canal =~ s/(.*)=(.*)/$1/g; 
    1958         $trymatch = $server . "^" . $canal . "-" . $solocanal; 
    1959     } 
    1960     foreach my $key1 ( sort ( keys(%instancias) ) ) { 
    1961         foreach my $key2 ( sort ( keys( %{ $instancias{$key1} } ) ) ) { 
    1962             if ( $key2 eq $trymatch ) { 
    1963                 delete $instancias{$key1}{$key2}; 
    1964                 log_debug( "$heading Erasing $trymatch from instanacias!", 128 ) if DEBUG; 
    1965             } 
    1966         } 
    1967     } 
    1968  
     1945        $canal =~ s/(.*)=.*/$1/g; 
     1946        $canalid = $server . "^" . $canal . "-" . $solocanal; 
     1947    } 
     1948        foreach my $key1 ( keys(%instancias) ) { 
     1949        delete $instancias{$key1}{$canalid}; 
     1950        log_debug( "$heading Erasing $canalid from instanacias!", 128 ) if DEBUG; 
     1951    } 
    19691952} 
    19701953