|
diff --git a/bot.pl b/bot.pl index 4720799..2ba3e86 100644 --- a/ bot.pl+++ b/ bot.pl |
@@ -7,10 +7,10 @@ use DBI; |
7 | use POE; |
7 | use POE; |
8 | use POE::Component::IRC; |
8 | use POE::Component::IRC; |
9 | |
9 | |
10 | #my $current_nick = 'francoise'; |
10 | my $current_nick = 'francoise'; |
11 | my $current_nick = 'franzi'; |
11 | #my $current_nick = 'franzi'; |
12 | #my $channel = '#kiffer.de'; |
12 | my $channel = '#kiffer.de'; |
13 | my $channel = "#test"; |
13 | #my $channel = "#test"; |
14 | |
14 | |
15 | POE::Component::IRC->new("francoise"); |
15 | POE::Component::IRC->new("francoise"); |
16 | POE::Session->new ( _start => \&irc_start, |
16 | POE::Session->new ( _start => \&irc_start, |
@@ -303,7 +303,7 @@ sub francoise_stat { |
303 | if( $age < 60 ) { |
303 | if( $age < 60 ) { |
304 | $agestring = "$secs Sekunde" . ($secs == 1 ? "" : "n"); |
304 | $agestring = "$secs Sekunde" . ($secs == 1 ? "" : "n"); |
305 | } elsif( $age < 3600 ) { |
305 | } elsif( $age < 3600 ) { |
306 | $agestring = "$mins Minute" . ($mins == 1 ? "" : "n") . "$secs Sekunde" |
306 | $agestring = "$mins Minute" . ($mins == 1 ? "" : "n") . " $secs Sekunde" |
307 | . ($secs == 1 ? "" : "n"); |
307 | . ($secs == 1 ? "" : "n"); |
308 | } elsif( $age < 86400) { |
308 | } elsif( $age < 86400) { |
309 | $agestring = "$hours Stunde" . ($hours == 1 ? "" : "n") . " $mins Minute" |
309 | $agestring = "$hours Stunde" . ($hours == 1 ? "" : "n") . " $mins Minute" |
@@ -400,7 +400,7 @@ sub francoise_count { |
400 | |
400 | |
401 | if ($tmp) |
401 | if ($tmp) |
402 | { |
402 | { |
403 | $kernel->post('francoise', 'privmsg', $channel, "Dazu hab ich $tmp schlaue Sachen zu sagen."); |
403 | $kernel->post('francoise', 'privmsg', $channel, "Zu $what hab ich $tmp schlaue Sachen zu sagen."); |
404 | } else |
404 | } else |
405 | { |
405 | { |
406 | $kernel->post('francoise', 'privmsg', $channel, "Zu $what weiss ich noch gar nix."); |
406 | $kernel->post('francoise', 'privmsg', $channel, "Zu $what weiss ich noch gar nix."); |
|