|
|
@@ -1,6 +1,6 @@
|
|
|
#!/bin/env perl
|
|
|
|
|
|
-# Copyright (c) 2014 Daniel Jakots <vigdis@chown.me>
|
|
|
+# Copyright (c) 2014, 2015 Daniel Jakots <vigdis@chown.me>
|
|
|
|
|
|
# Permission to use, copy, modify, and distribute this software for any
|
|
|
# purpose with or without fee is hereby granted, provided that the above
|
|
|
@@ -431,6 +431,11 @@ sub said {
|
|
|
elsif ($message->{body} =~ /^\Q$symbol\Ejson/) {
|
|
|
lecture_fichier("json");
|
|
|
}
|
|
|
+ # on rale sur les gens qui utilisent l'ancien bot
|
|
|
+ elsif ($message->{body} =~ /^\!/) {
|
|
|
+ return "meh";
|
|
|
+ }
|
|
|
+ # easter egg
|
|
|
elsif ($message->{body} =~ /datafoin/) {
|
|
|
my $de = int rand(5);
|
|
|
if ($de==1) {
|
|
|
@@ -454,8 +459,6 @@ sub said {
|
|
|
$url =~ s/^\Q$symbol\Erp //;
|
|
|
rp($url);
|
|
|
}
|
|
|
- # http://qntm.org/files/perl/perl.html
|
|
|
- # http://www.drdobbs.com/web-development/writing-irc-bots-in-perl-with-botbasicbo/184416221
|
|
|
}
|
|
|
|
|
|
# tout ce qu'on écrit dans /tmp/log apparait dans $channel
|
