commit - 9660b701d898d257c5b4dff230b7f86d127c5940
commit + 73a53a9f85235ed7ada13f9f03c3306fbc865a7c
blob - d9475e28e90e1709a137acf48d253fabc82d75c4
blob + 7526a64d15a0a6e405ca6af9cfed618147e69880
--- BNC.pm
+++ BNC.pm
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
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 {