Changeset 25730 in spip-zone for _acotes_


Ignore:
Timestamp:
Jan 4, 2009, 2:37:06 PM (10 years ago)
Author:
ben.spip@…
Message:

Edgard ne lit plus les lignes blanches et ne fait plus ddifferences entre majuscule et minuscule

File:
1 edited

Legend:

Unmodified
Added
Removed
  • _acotes_/irc/Edgard.pl

    r21420 r25730  
    2323
    2424
    25 my $FICHIER_WIKI="/home/bmamet/public_html/edgard/data/pages/edgard.txt";
     25my $FICHIER_WIKI="/var/www/virtual/edgard.spip.org/htdocs/data/pages/start.txt";
    2626
    2727# On crée l'objet qui nous permet de nous connecter à IRC :
     
    5454   
    5555    $conn->join($channel);
    56     $conn->privmsg($channel, 'Salut');
    57     print "<$nick>\t| Salutations !\n";
     56    $conn->privmsg($channel, 'Salut ... ah  une minute sans IRC, que du bohneur');
     57    print "<$nick>\t1 minute sans IRC, que du bonheur !\n";
    5858   
    5959    $conn->{'connected'} = 1;
    6060} # Fin on_connect
    61 
    62 
    6361
    6462
     
    7977                        chomp $ligne;
    8078                        (my $cle1, my $cle2)=split(/;/,$ligne);
    81                         $hash{"$cle1"}=$cle2;
    82 #                       print "$cle1    $cle2 \n";
     79                        if ($cle1)
     80                        {
     81                                $hash{"$cle1"}=$cle2;
     82                                #print __LINE__."bingo $cle1    $cle2 \n";
     83                        }
    8384                 }
    8485                 close (FILE);
    8586                   
    86                 ## Les fonctions de gestion des événements :
    87 
    88    
    89                 foreach my $key (keys(%hash)) {
    90 #                        print "---- $key\n";
    91                          if ($text =~ /$key/)
    92                 {
    93                     $conn->privmsg($channel, "$hash{$key}"); # Salutation sur le channel
    94                
    95                 }
     87                foreach my $key (keys(%hash))
     88                {
     89                        my $lckey=lc($key);
     90                        $text=lc($text);
     91                        if ($text =~ /$lckey/)
     92                        {       
     93                                $conn->privmsg($channel, "$hash{$key}"); # Salutation sur le channel
     94                        }
    9695                } 
    9796} # Fin on_public
Note: See TracChangeset for help on using the changeset viewer.