summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorkiffer <>2005-08-07 18:03:14 +0000
committerkiffer <>2005-08-07 18:03:14 +0000
commitb025e00d753fb296843bb2bc5b4dc34072a34e30 (patch)
tree827cee797859f530775609d723d09f1f59222841
parent64c2038041208482671dc49924814a355fc892ab (diff)
korrigierte zeitstringsHEADmaster
-rw-r--r--bot.pl12
1 files changed, 6 insertions, 6 deletions
diff --git a/bot.pl b/bot.pl
index 4720799..2ba3e86 100644
--- a/bot.pl
+++ b/bot.pl
@@ -7,10 +7,10 @@ use DBI;
7use POE; 7use POE;
8use POE::Component::IRC; 8use POE::Component::IRC;
9 9
10#my $current_nick = 'francoise'; 10my $current_nick = 'francoise';
11my $current_nick = 'franzi'; 11#my $current_nick = 'franzi';
12#my $channel = '#kiffer.de'; 12my $channel = '#kiffer.de';
13my $channel = "#test"; 13#my $channel = "#test";
14 14
15POE::Component::IRC->new("francoise"); 15POE::Component::IRC->new("francoise");
16POE::Session->new ( _start => \&irc_start, 16POE::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.");