diff options
-rw-r--r-- | bot.pl | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -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."); |