Commit Diff
Diff:
9660b701d898d257c5b4dff230b7f86d127c5940
73a53a9f85235ed7ada13f9f03c3306fbc865a7c
Commit:
73a53a9f85235ed7ada13f9f03c3306fbc865a7c
Tree:
348f9d0792ee0b836fa110f70b83d3474cc09a1e
Author:
jrmu <jrmu@ircnow.org>
Committer:
jrmu <jrmu@ircnow.org>
Date:
Sun Mar 5 22:41:09 2023 UTC
Message:
Fixed mmmDDYYYY bug in Shell.pm
blob - d9475e28e90e1709a137acf48d253fabc82d75c4
blob + 7526a64d15a0a6e405ca6af9cfed618147e69880
--- BNC.pm
+++ BNC.pm
@@ -124,6 +124,7 @@ sub mbnc {
foreach my $chan (@teamchans) {
main::putserv($bot, "PRIVMSG $chan :$username bnc approved");
}
+ return;
} elsif ($staff =~ /$nick/ && $text =~ /^cloneuser$/i) {
main::putserv($bot, "PRIVMSG *controlpanel :deluser cloneuser");
sleep 3;
blob - ebbb96021a1f198055225704ee83f049d87992ea
blob + 326d6f479f0c73543015e3299f8a26307b3d0e2e
--- Shell.pm
+++ Shell.pm
@@ -35,10 +35,11 @@ my $endPort;
main::cbind("pub", "-", "shell", \&mshell);
main::cbind("msg", "-", "shell", \&mshell);
-# Returns yesterday's date in MMDDYYYY format
+# Returns yesterday's date in mmmDDYYYY format
sub yesterday {
+ my @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
- my $localtime = sprintf("%02d%02d%04d", $mon+1, $mday-1, $year+1900);
+ my $localtime = sprintf("%s%02d%04d", $months[mon], $mday-1, $year+1900);
return $localtime;
}
sub init {
IRCNow