Script para X-chat
Publicado por Fábio Berbert de Paula 13/01/2003
[ Hits: 7.418 ]
Homepage: https://fabio.automatizando.dev
Simples script para xchat. Bom para servir de exemplo para quem deseja criar seus próprios scripts p/ IRC.
#!/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; }
Buscar Traduções no Google Translate
Descubra se seu e-mail ou conta foi "pwned"
Tweetin - Poste tweets pelo terminal
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Como renomear arquivos de letras maiúsculas para minúsculas
Imprimindo no formato livreto no Linux
Vim - incrementando números em substituição
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Preciso resolver um erro de DPKG (1)
Melhores Práticas de Nomenclatura: Pastas, Arquivos e Código (2)
Não to conseguindo resolver este problemas ao instalar o playonelinux (1)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta