dollar variables: $Fquestion - ...
dollar variables: $Fupdate - ...
dollar variables: $channel - channel from which the factoid was requested
-dollar variables: $date - current date
+dollar variables: $date - current date (GMT)
+dollar variables: $day - day of week (full name, locale)
dollar variables: $factoids - factoid count
dollar variables: $host - hostname of factoid requester
dollar variables: $ident - bot nick
dollar variables: $rand - random number, also $rand100.2
dollar variables: $randnick - random nick
dollar variables: $startTime - start time
-dollar variables: $time - current time
+dollar variables: $time - current time (GMT)
dollar variables: $uptime - ...
dollar variables: $user - username of factoid requester
dollar variables: $who - nick of factoid requester
##
# use strict; # TODO
+use POSIX qw(strftime);
use vars qw($msgType $uh $lastWho $ident);
use vars qw(%lang %lastWho);
sub substVars {
my($reply,$flag) = @_;
- # $date, $time.
+ # $date, $time, $day.
# TODO: support localtime.
- my $date = scalar(gmtime());
- $date =~ s/\:\d+(\s+\w+)\s+\d+$/$1/;
+ my $date = strftime("%Y.%m.%d", gmtime());
$reply =~ s/\$date/$date/gi;
- $date =~ s/\w+\s+\w+\s+\d+\s+//;
- $reply =~ s/\$time/$date/gi;
+ my $time = strftime("%k:%M:%S", gmtime());
+ $reply =~ s/\$time/$time/gi;
+ my $day = strftime("%A", gmtime());
+ $reply =~ s/\$day/$day/gi;
# support $ident when I have multiple nicks
- my $mynick = $conn->nick();
+ my $mynick = $conn->nick() if $conn;
# dollar variables.
if ($flag) {