Script para X-chat

Descrição

Esconder código-fonte

#!/usr/bin/perl
# irc_vivaolinux.pl
# Programado por Fábio Berbert de Paula <fabio@vivaolinux.com.br>
#
# Simples script para xchat. Bom para servir de exemplo para quem
# deseja criar seus próprios scripts p/ IRC.

use strict;

my $msg = shift;

# definir os comandos existentes
my @comandos = (
   "rir",
   "hora",
   "sep",
   "sair",
   "listar",
   "hack"
);

# registrar os comandos
foreach (@comandos) {
   IRC::add_command_handler("$_","$_\_cmd");
}

# procedimentos - uma sub-rotina para cada comando ...
sub rir_cmd {
   my $msg = shift(@_);
   IRC::command("%B%C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA %C3H%C4u%CA ");
   return 1;
}

sub hora_cmd {
   my $hora = `/bin/date +%H:%M`; chop($hora);
   IRC::command("Agora são $hora hs");
}

sub sep_cmd {
   my $msg = shift(@_);
        my @lista = split(//,$msg);
        my $temp = "";
        foreach my $x (0..$#lista) {
                $temp = $temp . " " . $lista[$x];
        }
        IRC::command("$temp");         
   return 1;
}

sub sair_cmd {
   IRC::command("/quit www.vivaolinux.com.br - Porque nós amamos a liberdade!");
   return 1;
}

sub hack_cmd {
   my $msg = shift(@_);
   $msg = lc($msg);
   $msg =~ s/meio/œ/g;
   my @tudo = split(//,$msg);
   my $cont = 0;
   my $result = "";
   foreach my $x (@tudo) {
      if ($cont % 2 == 0) {
         $x = uc($x);
      }
   $result .= $x;
   $cont++;
   }
   IRC::command("$result");
   return 1;
}