Script para X-chat
Publicado por Fábio Berbert de Paula 13/01/2003
[ Hits: 7.411 ]
Homepage: https://mestrefabio.com
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; }
Avisar por e-mail se o IP da conexão ADSL mudar
Localizador de palavras em arquivos nao binarios
Tweetin - Poste tweets pelo terminal
Descobrir operadora de celular
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
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Flatpak: remover runtimes não usados e pacotes
Mudar o gerenciador de login (GDM para SDDM e vice-versa) - parte 2
estou com chromebook legalzinho. (2)
Estou com sede em aprender sobre o nosso querido Linux. (1)
big linux sem audio como resolver (2)
Como faz para dar um update-grub por shell script [RESOLVIDO] (3)
[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