Skip to content
Extraits de code Groupes Projets
Valider 5d284e4e rédigé par TC's avatar TC
Parcourir les fichiers

Ajout de la commande "arise"

Changements mineurs sinon
parent 00f014c1
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
package Yessir;
use strict;
use warnings;
# ###
# yessir_main
# Dit "chef, oui chef !"
#
# Usage :
# !yessir
# ###
sub yessir_main
{
my ($self, $event, $reply_to, $ref_params) = @_;
# $self->privmsg($reply_to, "\x0307/¯\x0304O\x03");
# $self->privmsg($reply_to, "\x0302\\_|_\x03");
# $self->privmsg($reply_to, "\x0302 | \\\x03");
# $self->privmsg($reply_to, "\x0302 / \\\x0307 \\\x03");
# $self->privmsg($reply_to, "\x0307/ \\\x03");
$self->privmsg($reply_to, "\\ O \x02HEIL\x02");
$self->privmsg($reply_to, " ¯|\\");
$self->privmsg($reply_to, " / \\");
return 1;
}
# ###
# yessir_help
# Affiche l'aide de la commande '!yessir'
# ###
sub yessir_help
{
my ($self, $event, $reply_to, $ref_params) = @_;
$self->privmsg($reply_to, "`".$Config::command_sign."arise` => say hello");
return 1;
} # Fin yessir_help
1;
__END__
../Arise.pm
\ No newline at end of file
......@@ -17,7 +17,7 @@ sub cs_main
return 0 unless(defined($ref_params->[0]));
# On autorise le '.', ce sera juste n'importe quelle lettre
# On autorise le '.', ça marchera
my @forbidden_chars = qw"? * + ( ) \ [ ] { } ^ $";
if(grep {$ref_params->[0] =~ /\Q$_\E/} @forbidden_chars)
......
......@@ -21,7 +21,7 @@ sub yessir_main
# $self->privmsg($reply_to, "\x0302 / \\\x0307 \\\x03");
# $self->privmsg($reply_to, "\x0307/ \\\x03");
$self->privmsg($reply_to, "\\ O");
$self->privmsg($reply_to, " /O");
$self->privmsg($reply_to, " ¯|\\");
$self->privmsg($reply_to, " / \\");
......
......@@ -16,7 +16,7 @@ BEGIN {
use Core::Config;
use Core::Getpass;
use Core::Logging;
unshift ".", @INC;
unshift "./", @INC;
# On vérifie qu'on n'a pas trop de droits
open ID, "id |" or die "Unable to run `id`\n";
......
0% Chargement en cours ou .
You are about to add 0 people to the discussion. Proceed with caution.
Veuillez vous inscrire ou vous pour commenter