Bugfix !lastlog

CHANGELOG

@@ -20,3 +20,5 @@ asr - Add ACK command to acknowledge alerts. _Will_break_configuration_file_
       to livestatus fifo today renames nagios_live)
 asr - Change HOST ALIAS to HOST NAME for nagios services. _will_break_previous_nagios_configuration_file_
 
+v0.4.2 - 10-10-2014
+asr - bugfix on received alerts displaying, code rewriting

bin/tweet.pl

@@ -44,6 +44,8 @@ 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
     'tc_changefile', '/home/tc-14/var/last.log');     #
+Irssi::settings_add_str($IRSSI{name},          # default fifo_remote_file
+    'tc_tailgrep', '/home/tc-14/bin/tailgrep');     #
 
 my @chan=split m/ /, Irssi::settings_get_str("tc_chans");
 my @admin_chan=split m/ /, Irssi::settings_get_str("tc_admins");
@@ -208,7 +210,7 @@ my ($target, $text) = $data =~ /^(\S*)\s:(.*)/;
 					$pattern =~ s/^ //;
 					$pattern =~ s/['"\$]/_/g;
 					$server->command ( "msg $target $nick: lastlog pour '$pattern' (20 lignes) en pv." );
-					open ( CHANGL, "/homet/tc-14/bin/tailgrep $logfile '$pattern' |" ) or $server->command ( "msg $target $nick: erreur de pattern ou fichier vide" );
+					open ( CHANGL, "/home/tc-14/bin/tailgrep $logfile '$pattern' |" ) or $server->command ( "msg $target $nick: erreur de pattern ou fichier vide" );
 				}
 				chomp( @temp = <CHANGL> );
 				close CHANGL;