Changeset 3
- Timestamp:
- 03/14/07 12:48:27 (2 years ago)
- Files:
-
- trunk/op_server.pl (modified) (8 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/op_server.pl
r1 r3 1051 1051 $tmphash{alarm} = "0"; 1052 1052 1053 }1053 } 1054 1054 if ( !defined( $tmphash{url} ) ) { 1055 1055 $tmphash{url} = "0"; … … 1259 1259 1260 1260 @positions = unique(@positions); 1261 1261 1262 1262 if ( defined( $tmphash{groupcount} ) ) { 1263 1263 my $count = @positions; … … 1593 1593 if ( $contextoboton eq $contexto_iterate ) { 1594 1594 $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 1600 1600 if ( !defined( $style_variables{$contextlower} ) ) { 1601 1601 $style_variables{$contextlower} = $style_variables{"general"}; … … 3082 3082 my $cnt = 0; 3083 3083 3084 foreach (@auto_config) {3085 my %tmphash = %$ _;3084 foreach my $auto (@auto_config) { 3085 my %tmphash = %$auto; 3086 3086 if ( !defined( $tmphash{server} ) ) { $tmphash{server} = 1; } 3087 3087 my $srv = $tmphash{server}; … … 5044 5044 5045 5045 if ( $state eq "Ring" ) { 5046 print "RING $canalid \n";5046 print "RING $canalid $texto\n"; 5047 5047 $texto = $canalid; 5048 5048 $estado_final = "ring"; … … 5853 5853 else { 5854 5854 $botonled{$interno} = $cambia_el_led; 5855 if ( $ren_agentlogin || $ren_cbacklogin) {5855 if ($ren_agentlogin || $ren_cbacklogin) { 5856 5856 $botonlabel{$interno} = $dos; 5857 5857 } … … 5894 5894 } 5895 5895 else { 5896 5897 5896 # print "PERO ES DISTINTO\n$val\n$mcola|$dos\n\n"; 5898 5897 } … … 6306 6305 6307 6306 sub clean_inmemory_state_for_server { 6307 6308 6308 my $server = shift; 6309 6309 my @botones_a_limpiar;
