Foro - Perl en Español

por **LeoSevilla** » 2011-11-24 13:02 @585

Hola a todos.

A ver si puedo explicarme bien: estoy cacharreando un plugin para el xchat, y necesito controlar los menús. Lo que me gustaría saber es cómo ver el estado de una ocpión en el menú, o sea, leerla con alguna función del xchat.

Veamos, tengo un menú creado de la siguiente forma:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

/menu add test

/menu -t0 add test/opcion "cmd1" "cmd2"Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Lo que quiero saber es, desde el plugin, cómo consultar el estado en -t, si es 0 o 1.

He mirado la función Xchat::get_prefs( $name ), que me retorna los datos del comando set, pero ahí no está lo que busco, y no sé ya por dónde seguir.

Salu2, LeoSevilla

use strict;
use warnings;
 
Xchat::register( "Progracion" , "1.0" , "Herramienta" );
Xchat::print( "Loading script..\n" );
 
Xchat::hook_command( "crear" , "load_menu");
Xchat::hook_command( "cmda" , "cmd1" );
Xchat::hook_command( "cmdb" , "cmd2" );
Xchat::hook_command( "cmdc" , "cmd3" );
Xchat::hook_command( "cmdres" , "msg" );
 
my $opcion= 1;
 
sub msg {
  Xchat::print( "Tiene el valor: $opcion\n" );
  return Xchat::EAT_XCHAT;
}
 
sub cmd1{
  $opcion=1;
  Xchat::print( "Hemos Seleccionado opcion: $opcion\n" );
  return Xchat::EAT_XCHAT;
}
 
sub cmd2{
  $opcion=2;
  Xchat::print( "Hemos Seleccionado opcion: $opcion\n" );
  return Xchat::EAT_XCHAT;
}
 
sub cmd3{
  $opcion=3;
  Xchat::print( "Hemos Seleccionado opcion: $opcion\n" );
  return Xchat::EAT_XCHAT;
}
 
sub load_menu {
  my $base_menu = <<BASE_MENU;
MENU ADD "Leo"
MENU -r1,"leo" ADD "Leo/English" "cmda"
MENU -r0,"leo" ADD "Leo/Spanish" "cmdb"
MENU -r0,"leo" ADD "Leo/German" "cmdc"
MENU ADD "Leo/Ver valor" "cmdres"
BASE_MENU
  chomp (my @menu_array = split(/^/,$base_menu));
  foreach my $menu_item (@menu_array) {
    Xchat::command($menu_item);
  }
  return Xchat::EAT_XCHAT;
}
 
Xchat::print( "\0033Cargad con exito la herramienta prg.!\003\n" );
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

A mi me ha servido y funciona de maravilla

Salu2

Foro - Perl en Español

Sobre manejos de menús en XChat

Sobre manejos de menús en XChat

Publicidad

Re: Sobre manejos de menús en XChat

Re: Sobre manejos de menús en XChat

Re: Sobre manejos de menús en XChat

Re: Sobre manejos de menús en XChat

Re: Sobre manejos de menús en XChat

¿Quién está conectado?