Changeset 3

Show
Ignore:
Timestamp:
03/14/07 12:48:27 (2 years ago)
Author:
root
Message:

fix autosip crash after asterisk restart

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/op_server.pl

    r1 r3  
    10511051            $tmphash{alarm} = "0"; 
    10521052 
    1053        
     1053               
    10541054        if ( !defined( $tmphash{url} ) ) { 
    10551055            $tmphash{url} = "0"; 
     
    12591259 
    12601260        @positions = unique(@positions); 
    1261  
     1261                 
    12621262        if ( defined( $tmphash{groupcount} ) ) { 
    12631263            my $count = @positions; 
     
    15931593                if ( $contextoboton eq $contexto_iterate ) { 
    15941594                    $key =~ s/(\d+)\@.+/$1/g; 
    1595                     print VARIABLES "&alarm$key=$base64_url\n"; 
    1596                 } 
    1597             } 
    1598         } 
    1599  
     1595                    print VARIABLES "&alarm$key=$base64_url\n"; 
     1596                } 
     1597            } 
     1598        } 
     1599  
    16001600        if ( !defined( $style_variables{$contextlower} ) ) { 
    16011601            $style_variables{$contextlower} = $style_variables{"general"}; 
     
    30823082            my $cnt = 0; 
    30833083 
    3084             foreach (@auto_config) { 
    3085                 my %tmphash = %$_
     3084            foreach my $auto (@auto_config) { 
     3085                my %tmphash = %$auto
    30863086                if ( !defined( $tmphash{server} ) ) { $tmphash{server} = 1; } 
    30873087                my $srv = $tmphash{server}; 
     
    50445044 
    50455045        if ( $state eq "Ring" ) { 
    5046             print "RING $canalid\n"; 
     5046            print "RING $canalid $texto\n"; 
    50475047            $texto                      = $canalid; 
    50485048            $estado_final               = "ring"; 
     
    58535853                            else { 
    58545854                                $botonled{$interno} = $cambia_el_led; 
    5855                                 if ( $ren_agentlogin || $ren_cbacklogin ) { 
     5855                                if ($ren_agentlogin || $ren_cbacklogin) { 
    58565856                                    $botonlabel{$interno} = $dos; 
    58575857                                } 
     
    58945894                                    } 
    58955895                                    else { 
    5896  
    58975896                                        # print "PERO ES DISTINTO\n$val\n$mcola|$dos\n\n"; 
    58985897                                    } 
     
    63066305 
    63076306sub clean_inmemory_state_for_server { 
     6307 
    63086308    my $server = shift; 
    63096309    my @botones_a_limpiar;