Changelog correction -- bad $server use on changelog, and mix changelog/lastlog bug

bin/tc-14.pl

@@ -83,8 +83,19 @@ sub event_join {
 	foreach $father (@dad ) {
 		if ($nick =~ /^$father$/i)  {
 #               $server->command ( "mode $target +v $nick" );
-			$server->command ( "MSG $target Toi, je te connais, je t'ai deja vu quelque part..." );
+			
+		        my @messages=(
+			  "MSG $target Toi, $nick, je te connais, je t'ai deja vu quelque part...",
+			  "MSG $target Toi, $nick, je te connais, je t'ai deja vu quelque part...",
+			  "MSG $target Bonjour, Maître $nick",
+			  "action $target s'incline.",
+			  "action $target . o O ( Roh, v'la l'aut'guignol... )"
+			);
+			my $message=$messages[rand @messages];
 		}
+		print (">> $message -");
+		$server->command ( $message );
+		undef @messages;
 	}
 #	if ($nick =~ /^BirthdayBot$/i) {
 #		$server->command ( "mode $target +o $nick" );
@@ -170,6 +181,15 @@ my ($target, $text) = $data =~ /^(\S*)\s:(.*)/;
 			   }
 			send_server("msg", $target, $nick, "$password");
 		}
+		elsif ( $text =~ /n *a *(i|!) *n/i ) {
+			if ( ! ($target =~ /spip/ ) ) {
+				$server->command ( "msg $target C'est trois petits nains qui vont à la mine." );
+				$server->command ( "msg $target Le troisième prend la pelle." );
+				$server->command ( "msg $target Le second prend la pioche." );
+				$server->command ( "msg $target Et le premier ? Qu'est-ce qu'il prend ?" );
+				#$last=$nick;
+			}
+		}
 		elsif ( $text =~ /..o...a.s/i ) {
 			if ( ! ($target =~ /spip/ ) ) {
 				if (int(rand(10)) > 6) {

bin/tweet.pl

@@ -38,7 +38,7 @@ my $timeout=30;
 my $warndate=time()-$timeout;
 
 Irssi::settings_add_str($IRSSI{name},          # default fifo_remote_file
-    'tc_chans', '#flood #starwars');     #
+    'tc_admin_chans', '#flood #starwars');     #
 Irssi::settings_add_str($IRSSI{name},          # default fifo_remote_file
     'tc_admins', 'asr coin plop');     #
 Irssi::settings_add_str($IRSSI{name},          # default fifo_remote_file
@@ -82,6 +82,9 @@ my ($target, $text) = $data =~ /^(\S*)\s:(.*)/;
 
 	#print ( "C:$target X:$text A:$admin D:$warndate L:$last W:$warn N:$nick D:$data" );
 
+	@admin_chan=split m/ /, Irssi::settings_get_str("tc_admins");
+	@chan=split m/ /, Irssi::settings_get_str("tc_chans");
+
 	sub send_server($$$$) {
 		my ($action,$cible,$pseudo,$msg)=@_;
 		$server->command ( "msg $target SWarn C:$cible X:$action A:$admin D:$warndate L:$last W:$warn N:$pseudo T:$msg" ) unless ($debug == 0);
@@ -175,7 +178,7 @@ my ($target, $text) = $data =~ /^(\S*)\s:(.*)/;
 				undef @temp;
 				if ($1 eq '') {
 					$server->command ( "msg $target $nick: changelog en pv." );
-					open ( CHANGL, "tail $logfile |" ) or $server->command ( "msg $target $nick: fichier vide" );
+					open ( CHANGL, "tail $changefile |" ) or $server->command ( "msg $target $nick: fichier vide" );
 				} else {
 					my $pattern = $1;
 					$pattern =~ s/^ //;
@@ -197,7 +200,8 @@ my ($target, $text) = $data =~ /^(\S*)\s:(.*)/;
 
 				close CHANGL or $server->command ( "msg $target $nick: erreur de fichier... (C)" );
 				$clocky = $clockpo[rand @clockpo];
-				send_server("msg", $target, $nick, $clocky) unless ($nick =~ /edgard/i);
+				$server->command ( "msg $target $nick: $clocky" );
+				#send_server("msg", $target, $nick, $clocky) unless ($nick =~ /edgard/i);
 				
 			} else {
 				$server->command ( "msg $target $nick: !changelog (list|add|last) [nb lignes (pour list)] [<serveur> [<liste d'actions>]]" );