|
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."); |
|