Foro - Perl en Español

por **explorer** » 2010-03-11 13:22 @598

Bienvenido a los foros de Perl en Español, DaNnY.

La idea es buena... pero robots para IRC ya hay unos cuantos... de hecho, creo que los propios servidores de IRC ya traen bots para este tipo de administración.

Un ejemplo de bot: Eggdrop.

Eso sí... hacerlo uno mismo es siempre bueno, ya que aprendes mucho de IRC y algo de programación...

Puedes probar a publicar tu código, en aquellas áreas en la que te atasques, para que podamos echarte una mano.

Gracias por la bienvenida al foro, la verdad es que ando un poco perdido...

Me sería de gran ayuda si me pudierais indicar con qué módulos tendría de empezar, y dónde podría mirar algún tutorial un tanto informativo, para poder empezar desde 0.

La verdad es que el eggdrop está bien pero prefiero hacerlo yo, como bien has dicho tu antes aprendes más.

Todos los bots que tenemos en mi red son hechos por el devel que tenemos y yo estoy intentando aprender un poco de Perl para poder ayudarle.

Como comenté anteriormente ahora mismo estamos comenzando a tener bastante visitas, y necesitaría que el bot pudiera soportar varias salas.

Todos los comandos se ejecutarían en un debug o por privado.
Además a los canales que podría entrar el BOT sería a través de la siguiente sintaxis: /msg CHaN LIST * OFICIAL, es decir: solo podría entrar a las salas que estuvieran en esta lista...
Sé que es un poco complicado de hacer cuando el nivel es nulo, pero ganas de aprender no me faltan.

P.D Utilizo Windows XP profesional.
¿Eso sería un problema?

Gracias de antemano.

por **explorer** » 2010-03-13 08:10 @382

Aprender a programar robots en Perl para IRC necesita de los pasos siguientes:
* saber qué es y cómo funciona el protocolo IRC. En una tarde te lo aprendes
* saber lenguaje Perl, al menos su sintaxis básica. Con unos días de dedicación, te lo sabes
* saber qué es un módulo Perl. Cómo se instala, cómo se usa. Un par de tardes
* saber programar. Esto es lo más fácil y lo más difícil. Es fácil empezar a decirle al ordenador que haga cosas. Es muy difícil decírselo con exactitud, elegancia y, muy importante, de forma clara, tanto para el ordenador como para otra persona. Años.

No conozco manuales específicos para programar IRC, pero se lo preguntaría a Google.

Para Perl, tienes aquí, en este sitio web, algunos tutoriales, y algunos hilos donde hemos dado las claves para comenzar con el lenguaje, o recursos en Español repartidos por la red.

Se puede decir que podrás empezar a hacer el primer bot cuando entiendas los códigos que aparecen al principio de este hilo de discusión, aunque si miras el primer código de la segunda página, en el que uso el módulo Bot::BasicBot, verás que el código es más corto, y quizás, sencillo de entender.

En cuanto a lo de Windows, lo siento, pero hace muchos años que ya no lo uso.

por **DaNnY** » 2010-03-14 10:58 @498

Buenas, he avanzado un poco... pero me quedo atascado con los comandos por privado, no sé por dónde tirar, estuve modificando y mirándome el posteo del bot que pusiste tu Administrador lo único que no sé cómo ejecutar los comandos por privado y restringir los comandos a ciertos privilegios.

por **explorer** » 2010-03-14 11:06 @504

Sin ver el código, es difícil saber qué pasa...

por **DaNnY** » 2010-03-14 16:56 @747

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# (mismo código que el publicado por kt0sh el día 2009-12-13 10:16 @470
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2010-03-14 19:08 @839

Has publicado el mismo código que aparece en un mensaje anterior, en este mismo hilo (incluso en esta misma página). Sería más cómodo indicarlo, en lugar de copiarlo de nuevo.

Te indico que el código creo (no lo he probado) que está mal, pues en la línea 47 intenta entrar en el canal. Como esa línea está dentro de un bucle que empieza en la 34, con lo que el bot está constantemente registrándose en el canal.

En cuanto a la forma de que el bot responda a comandos, desde determinadas personas, fíjate cómo en la línea 51 se separan los componentes de la línea recibida desde el servidor IRC. De ahí sabemos el $usuario, y el $comando que ha escrito. Solo tenemos que hacer una comprobación, parecida a esta, para responderle:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if($usuarioeq'Administrador'){
if($comandoeq'!list'){
# devolver la lista de usuarios al Administrador
}
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

que como ves es parecida a las líneas 63 a 65 o la mayor parte de las líneas que hay en mi bot, unos mensajes más arriba, del día 2009-12-13 01:35 @107.

por **DaNnY** » 2010-03-27 15:00 @666

Después de unos cuantos días, pude avanzar un poco el código aunque hay que depurarlo un poco.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
###################################################
# PROGRAMA: Administrador BOT.v.0.1               #
# AUTOR: DaNnY                                    # 
# GRACIAS A:  [[Ktosh]] Yoyahack, seth y S[e]C    #
# El bot original es obra de [[ktosh]]            #
# Este bot es una adaptacion de su codigo         #
# espero que no le imporque que lo alla utilizado #
###################################################
 
 
#---------------------------------Modulos del Bot--------------------------------------#
use IO::Socket;
 
#---------------------------------Datos principales------------------------------------#
 
$server   = 'deneb.gentechat.org';
$port     = '6667';
$canal    = '#pruebas';
$debug    = '#c.debug';
#%usuario = "";@topic = "Bienvenido/a a $canal Porfavor plantee su duda por privado a $nick $+ . Si este no se encuentra disponible Acuda a un (@) de la Sala, Gracias.";
 
 
 
#--------------------------------Datos Del Bot------------------------------------------#
$nick = 'Administrador';
$bot  = 'Administrador';
$pass = 'zipbreake';
$admin  = 'zipbreake';
$root = 'DaNnY';
chomp $admin;
chomp $root;
;
#-------------------------------------Respuesta de Comandos----------------------------------#
while($responde = <$comandos>)
{ 
print $responde;
#join $canal
     if($responde =~ m/:(.*) 00(.*) (.*) :/) 
     {
          print $responde "JOIN $canal \r\n";
         }
if($responde =~ m/:!ayuda/) 
         {
         print $responde &envia" $usuario :1 5-= Información General =-  \r\n";
         print $responde &envia" $usuario :1 3Administrador - 7IRC-GenteChat  \r\n";
         print $responde &envia" $usuario :1 3Administrador Permite controlar varios aspectos de las salas Oficiales.  \r\n";
         print $responde &envia" $usuario :1 Su principal función es la de moderar las salas oficiales, administrar modos automaticamente  \r\n";
         print $responde &envia" $usuario :1 e informar a los OPERadores de un posible ataque de clones en la sala. : \r\n";
         print $responde &envia" $usuario : \r\n";
         print $responde &envia" $usuario :1 Los comandos disponibles son los siguientes: \r\n";
         print $responde &envia" $usuario :1 
Para utilizar el BOT de 3Administrador escriba 12/msg Administrador <comando>. \r\n";
         print $responde &envia" $usuario :1 Para obtener más información de un comando específico escriba: 12/msg Administrador AYUDA <comando> \r\n";
         print $responde &envia" $usuario : \r\n";
         print $responde &envia" $usuario :1 - 12 Comandos Basicos: \r\n";
         print $responde &envia" $usuario : \r\n";
         print $responde &envia" $usuario :12IDENTIFY Te identifica como OPERador de la sala. \r\n";
         print $responde &envia" $usuario :12LEVELS Modificas los niveles de ACCESo al BOT. \r\n";
         print $responde &envia" $usuario : \r\n";
         print $responde &envia" $usuario : - Acceso y configuración al canal: \r\n";
         print $responde &envia" $usuario :12JOIN Entra en una Sala sin guardarla en la Base de datos \r\n";
         print $responde &envia" $usuario :12PART Sale de una sala \r\n";
         print $responde &envia" $usuario :1JOINALL Entra en todas las salas guardadas en la Base de datos \r\n";
         print $responde &envia" $usuario :1PARTALL Sale de todas las salas \r\n";
         print $responde &envia" $usuario :12NORMAS Muestra las normas de la sala en su sala. \r\n";
         print $responde &envia" $usuario :12BOTS   Información sobre los BOTS. \r\n";
         print $responde &envia" $usuario :12MoDOS  Muestra los modos disponibles a usar atraves del BOT. \r\n";
         print $responde &envia" $usuario :12CONTACTO Te muestra como ponerse en contacto con la Administración del BOT. \r\n";
         print $responde &envia" $usuario :  \r\n";
         print $responde &envia" $usuario :12OP 1Te da 1(4@1) en la sala especificada \r\n";
}         
 
$saludo    = "hola $usuario comando SALUDO ejecutado correctamente ^^ OLE YO <img src="http://perlenespanol.com/foro/images/smilies/icon_biggrin.gif" alt=":D" title="Very Happy" />";
#-------------------------------------Conexión de IO::Socket;-------------------------------#
 
my $sock = IO::Socket::INET ->new(
                     PeerAddr => "$server",
                     PeerPort => "$port",
                     Proto    => 'tcp' ) || die "No hay conección porfavor intentelo en otro servidor.\n";
if (!$sock) {
print "\nLo siento $root No puedo conectar en  $servidor $port\n";
exit 1;
} 
 
while(<$sock>){
    my $datos = $_;                      
    print $datos;    
   
                   
    if ($datos =~ /NOTICE AUTH/i)         
    {      
        &envia("NICK ".$nick."!".$pass." \n");             
        &envia("USER $bot x x x x\n");    
    }
 print $sock "NICK $nick \n";
 
 
    if ($datos =~ /^PING :/i)
    {
        &envia("PONG  : $'");
    }
    &envia("join $canal");
    &envia("join $debug");
 
#-------------------------------------Creamos las Funciones---------------------------------#
#:$root! 
    if ($datos =~ /^\:(\S*)!(\S*)@(\S*)\s(\S*)\s(\S*)\s:(\S*)\s(.*)/)
    {
#-------------------------------------Valores de Variables-----------------------------------#
 
        $usuario = $1;
        chomp $usuario;
        $tipo    = $4;
        $donde   = $5;
        $comando = $6;
        $text    = $7;
                
#-------------------------------------Lector De Canal----------------------------------------#
        if($comando eq "help") {&msg("$usuario", $comandos);}
        if($comando eq "ayuda") {&msg("$usuario", $comandos); }
        if($comando eq "saluda")   {&msg("#pruebas", $saludo);  }
        if($comando eq "hex")  {&msg("#pruebas", $hex); }
        if($comando eq "op") {&msg("$active", "CHaN OP $canal $usuario"); }
        
       
                
    }
}
 
#-------------------------------------Funciones----------------------------------------------#
sub envia {print $sock "$_[0]\n"; }
sub msg {envia("PRIVMSG $_[0] :$_[1]"); }
#-----------------------------------------------------------------------
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

por **DaNnY** » 2010-04-21 15:40 @694

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use IO::Socket;
require "bot.conf";
####################################### COMANDOS IMPLEMENTADOS #############################
$priv_cmds  = \%comandos;
$priv_cmds -> {"HELP"} = "do_help";
 
$chan_cmds  = \%chancmds;
$chan_cmds -> {"!HELP"} = "do_chanhelp";
####################################### FIN ################################################
#######################    RUTINAS GENERALES (conexión....)  #
#######################
$socket = IO::Socket::INET->new(Proto => "tcp",
                                PeerAddr => $servidor,
                                PeerPort => $puerto);
$socket -> autoflush(1);
print "Bot Conectado\n";
if (fork()) { exit;
 }
$entrabot = 0;
while (($linea = <$socket>)) {
#print $linea;
if ($entrabot == 0) {
sendcmd("NICK $botnick:$botclave\n");
        sendcmd("USER $botident - - :$botinfo\n");
                $entrabot++;
        }
while (<$socket>) { @space = split("",$_);
@dots = split(":",$_);
@chanel = split(" ",$dots[2]);
@u = split("!",$_);
@nicks = split(":",$u[0]);
@raw_num = split(" ",$_);
@puntos = split(":",$_);
print $linea "JOIN $canal_ayuda\n";
print "<-" . $_;
#print "test->" . $space[0] . " dots " . $dots[1] . "\n";";
        if ($space[0] eq "PING")        {       print $linea "PONG " . $dots[1] . "\n";
        print "->PONG :". $dots[1] . "\n";  
        }               
if ($space[1] eq "JOIN" && $nicks[1] eq $nick && $chanel[0] eq $canal_ayuda)    {
        &topic("$canal_ayuda","@topic");
        print $linea "JOIN $canal_opers \n";
        }
 #fin del if join
        if ($space[1] eq "PRIVMSG" && $space[2] eq $nick)       {
        my $dentro = exists $entra{$nicks[1]};
                if ($dentro == 1)               {       
        @mensaje = split(" ",$dots[2]);         
my $existe = exists $gente{$nicks[1]};  
                if ($existe == 0)       
                {                       
print $linea "PRIVMSG $nicks[1] :Su mensaje a sido enviado, en unos momentos sera atendido, gracias. \n";
                        @rand_list = keys(%opers_activos);
                        $numero = @rand_list;   
                        if ($numero >= 1)                               {       
                        $azar = rand($numero);                  
        print $sock "PRIVMSG  $rand_list[$azar] :El usuario $nicks[1] tiene el mensaje : @mensaje \n";                          }                               elsif ($numero <= 0)                            {                               print $sock "PRIVMSG $canal_opers :El usuario $nicks[1] tiene el mensaje : @mensaje \n";                                $gente{$nicks[1]}="1";                          }                       }               }       }       if ($space[1] eq "JOIN" && $nicks[1] ne $nick && $chanel[0] eq $canal_ayuda)    {       print $sock "MODE $canal_ayuda +v $nicks[1] \n";        print $sock "PRIVMSG $nicks[1] :Hola $nicks[1] , Soy $nick , el encargado de ponerte con un operador. Describa brevemente su problema \n";      $entra{$nicks[1]}="$chanel[0]"; }       if ($space[1] eq "PART" && $space[2] eq $canal_ayuda)   {       delete($gente{$nicks[1]});      }       if ($space[1] eq "PRIVMSG" && $space[2] eq $canal_opers)        {       @escucha = split(" ",$dots[2]);         if ($escucha[0] eq activo)              {               $activo = exists $opers_activos{$nicks[1]};                     if ($activo == 0)                       {                               $opers_activos{$nicks[1]}="1";                  &informa("1","$nicks[1]");                                      }                       elsif ($activo == 1)                    {                       &error("1","$nicks[1]");                        }               }               if ($escucha[0] eq desactivo)           {
                $desactivo = exists $opers_activos{$nicks[1]};  
                if ($desactivo == 1)            
        {                       delete($opers_activos{$nicks[1]});      
                &informa("2","$nicks[1]");                      }
                        elsif ($desactivo == 0)
        {       
                &error("2","$nicks[1]"); 
}
                }       
        if ($escucha[0] eq lista)               {
                        @lista_temp = keys(%opers_activos);                     {       
print $linea "PRIVMSG $canal_opers :Operadores activos :@lista_temp \n";        
                }       
        }       
}
sub error{      
if ($_[0] == 1) {
        print $linea "PRIVMSG $canal_opers :$_[1] Error Ya estas activo como OPERador \n";      }
        elsif ($_[0] == 2)      {
        print $linea "PRIVMSG $canal_opers : $_[1] Error Lo siento NO estas en la lista \n";
        }
} 
sub informa{
        if ($_[0] == 1) {       
        print $linea "PRIVMSG $canal_opers :$_[1] Se añadido a la lista con exito \n";
        }       elsif ($_[0] == 2)      {
        print $linea "PRIVMSG $canal_opers :$_[1] Se le borro de la lista con exito \n";        }
}
#sub join #{#} 
#join fin
 #sub nick#{#}
 #nick fin
 #sub canal#{#}
 #canal fin
 sub whois{}
#whois fin
 #sub raw#{#} 
#raw fin 
sub topic { print $linea "TOPIC $_[0] $_[1] \n"; }
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

########################################################

##########   CONFIGURACION  Bot Perl ###################

########## 2001-2009 Javier Fernández Viña (ZipBreake) #    

########## [email protected] - http://jfv.es #

##############

########################################################

######### CONFIGURAcION SERVIDOR ############

$servidor = "deneb.gentechat.org";

$puerto = "6667";    

################## FIN ######################

######### CONFIGURACION BOT #################

$botnick = "Administrador";

$botclave = "zipbreake";

$botident = "Servicios";

$botinfo = "Guardian";

############## FIN ##########################

######## CONFIGURACION SALAS ################

$canal = "#salas";

############## FIN ##########################

####### CONFIGURACION OTRAS SALAS ###########

$canal_ayuda = "#ayuda";

$canal_opers = "#pruebas";

############## FIN ##########################

###### CONFIGURACION USUARIOS ###############

$root = "DaNnY";

############## FIN ##########################

####### CONFIGURACION DE VARIABLES ##########

%gente = "";@topic = "Bienvenid\@s a $canal_ayuda Plantea tu duda por Privado a $nick o bien en caso de estar algun @ disponible en el General";

############## FIN ##########################

3  [[ AYUDA DEL BOT ]]   

5-= ADMINISTRADOR =-

- Ayuda rápida:

+ 12/msg ADMINISTRADOR <comando>. Para utilizar el comando.

+ 12/msg ADMINISTRADOR <comando> Para más información.

 - Comandos de gestión: 

 12AVISO    Modificas la lista de Avisos a realizar en la sala.

 12KICK     Expulsas a un usuario atraves de Administrador

 12BAN      Baneas la host ident y nick de un usuario. 

 12REGISTRO Das Acceso al bot como Usuario ( +v ) 

   - Comandos de Moderación:

 12OP       Le das poderes de (@) Moderador a un usuario ( SIN REGISTRO )

 12VOZ      Le das poderes de (+) Si el canal esta Moderado puede hablar.

 12ON       Te activas como OPERador en general

 12OFF      Te ausentas como OPERador de la sala especifica

 12AWAY     Te ausentas como OPERador de todas las salas 

   - Comandos de Operador:

 12ONOTICE  Manda un Notice a todos los Operadores (@) de la sala

 12NORMAS   Muestra las Normas en la sala indicada

 12MASSKICK Comando para la expulsión de CLONES

4NOTA: Este BOT es un SERVICIO ofrecido unicamente por GenteChat IRC Network. Su función es ayudar a moderar las salas principales.

 - COMANDOS para el ROOT:

  + Comandos de Gestión : 

 12IDENTIFY    Te identificas como ROOT del BOT

 12ADMIN       Administras la lista de ADMINS del BOT

 12OPER        Administras la lista de OPERS del BOT   

 12MODERADOR   Administras la lista de MODERADORES del BOT

 - Comandos de Salas :

 12JOIN        Haces que el BOT entre en la sala indicada     

 12PART        Haces que el BOT salga de la sala indicada

 12JOINALL     El BOT entra en todas las salas guardadas en la BD

 12PARTALL     El BOT sale Automaticamente de todas las salas. Nota: No sale de la Sala DEBUG del BOT.

 12MODO        Cambias los modos del BOT 

 12CMODO       Haces que el BOT cambie los modos en la sala especificada

 12IGNORE      Añades a un usuario en la lista negra del BOT

 - Comandos de Configuración de Accesos :

 12SET      Modificas los ACCESOS al BOT

 12UNSET    Modificas los ACCESOS al BOT

 12RESET    Reseteas los Niveles de ACCESO al BOT

 12QUIT     El BOT sale de la red por defecto.

 12RESTART  El BOT Sale y re-entra a la RED por defecto.

 12EXIT     Sale de la RED forzadamente y Cierra el programa.

 4Fin de la Ayuda

Ayuda del Bot

   !AYUDA - Solo respondo a privados. Perdonen las molestias.

Fin de la ayuda.Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Necesitaría que alguien me corrigiera el código fuente porque no deja de darme "panic" y no sé por qué motivo me pasa eso.

Administrador, si puede, por favor, le agradecería su colaboración.

Foro - Perl en Español

[IRC]Bot que responda

Re: [IRC]Bot que responda

Publicidad

Re: [IRC]Bot que responda

Re: [IRC]Bot que responda

Re: [IRC]Bot que responda

Re: [IRC]Bot que responda

Re: [IRC]Bot que responda

Re: [IRC]Bot que responda

Re: [IRC]Bot que responda

Re: [IRC]Bot que responda

¿Quién está conectado?