|
|
@@ -19,13 +19,15 @@ my $date_jffdn = ""; # date de la rentrée dans la fédé
|
|
|
my $contact = ""; # email de contact
|
|
|
my $description = ""; # description de l'asso
|
|
|
|
|
|
-my $bot_dir = "bot-irc";
|
|
|
-my $wrk_dir = "wrk-dir";
|
|
|
+# le repectoire des données du bot aka autoconf
|
|
|
+my $bot_dir = `pwd`; chomp $bot_dir ; $bot_dir .= "/";
|
|
|
+my $wrk_dir = "wrk-dir/";
|
|
|
+my $dir = $bot_dir.$wrk_dir;
|
|
|
|
|
|
# Lis le fichier contenant les infos d'un FAI
|
|
|
sub info {
|
|
|
my $fai = shift @_;
|
|
|
- my $filename = "/home/daga/".$bot_dir ."/". $wrk_dir."/". $fai.".info";
|
|
|
+ my $filename = $dir.$fai.".info";
|
|
|
if (-e $filename)
|
|
|
{
|
|
|
my $fh;
|
|
|
@@ -45,7 +47,7 @@ sub info {
|
|
|
# Lis le fichier contenant les nombres adh/abo d'un FAI
|
|
|
sub adh {
|
|
|
my $fai = shift @_;
|
|
|
- my $filename = "/home/daga/".$bot_dir ."/". $wrk_dir."/". $fai.".adh";
|
|
|
+ my $filename = $dir.$fai.".adh";
|
|
|
if (-e $filename)
|
|
|
{
|
|
|
my $fh;
|
|
|
@@ -65,7 +67,7 @@ sub adh {
|
|
|
# lis le fichier et retourne le contenu
|
|
|
sub lecture_fichier {
|
|
|
my $fichier;
|
|
|
- my $filename = "/home/daga/".$bot_dir ."/" . $wrk_dir . "/" . $fichier;
|
|
|
+ my $filename = $dir.$fichier;
|
|
|
if (-e $filename)
|
|
|
{
|
|
|
my $fh;
|
|
|
@@ -84,7 +86,7 @@ sub lecture_fichier {
|
|
|
}
|
|
|
|
|
|
sub adh_abo_ffdn {
|
|
|
- my $filename = "/home/daga/".$bot_dir ."/". $wrk_dir."/ffdn.adh";
|
|
|
+ my $filename = $dir."ffdn.adh";
|
|
|
if (-e $filename)
|
|
|
{
|
|
|
my $fh;
|
|
|
@@ -376,19 +378,19 @@ sub said {
|
|
|
}
|
|
|
elsif ($message->{body} =~ /datafoin/) {
|
|
|
my $de = int rand(5);
|
|
|
- if (de == 1) {
|
|
|
+ if ($de==1) {
|
|
|
return "il ne faut pas me donner à manger après minuit /o\\";
|
|
|
}
|
|
|
- elsif(de==2){
|
|
|
+ elsif($de==2){
|
|
|
return "omnomnom";
|
|
|
}
|
|
|
- elsif(de==3){
|
|
|
+ elsif($de==3){
|
|
|
return "mais je vais grossir /o\\";
|
|
|
}
|
|
|
- elsif(de==4){
|
|
|
+ elsif($de==4){
|
|
|
return "vouiii";
|
|
|
}
|
|
|
- elsif(de==5){
|
|
|
+ elsif($de==5){
|
|
|
return "datafoin <3";
|
|
|
}
|
|
|
}
|
