Changeset 77

Show
Ignore:
Timestamp:
05/29/08 10:26:54 (6 months ago)
Author:
root
Message:

Fix - prefix in extension when using wildcard server

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/ming-source/operator_panel.pl

    r65 r77  
    2323use SWF::Constants qw(:Text :Button :DisplayItem :Fill); 
    2424 
     25$stage_width  = 996; 
     26$stage_height = 600; 
     27 
    2528SWF::setScale(2); 
    2629SWF::useSWFVersion(7); 
    2730my $movie = new SWF::Movie(); 
    28 $movie->setDimension(9960, 6000); 
     31$movie->setDimension($stage_width * 10, $stage_height * 10); 
    2932$movie->setBackground(0xFF, 0xFF, 0xFF); 
    3033$movie->setRate(20); 
    …… 
    87888791        // ancho_pantalla = System.capabilities.screenResolutionX; 
    87898792        // alto_pantalla = System.capabilities.screenResolutionY; 
    8790         ancho_pantalla_real = 996; 
    8791         alto_pantalla_real = 600; 
     8793        ancho_pantalla_real = $stage_width; 
     8794        alto_pantalla_real = $stage_height; 
    87928795        ancho_boton = Number(_root.vr.btn_width); 
    87938796        alto_boton = Number(_root.vr.btn_height); 

  • trunk/op_server.pl

    r76 r77  
    81438143    log_debug( "$heading canal_destino =  $canal_destino", 32 ) if DEBUG; 
    81448144    $canal_destino =~ s/\d+\^(.*)/$1/g; 
     8145    $canal_destino =~ s/^-//g; 
    81458146    log_debug( "$heading La extension para $param es $canal_destino", 32 ) if DEBUG; 
    81468147    return $canal_destino;