commit 73a53a9f85235ed7ada13f9f03c3306fbc865a7c from: jrmu date: Sun Mar 05 22:41:09 2023 UTC Fixed mmmDDYYYY bug in Shell.pm commit - 9660b701d898d257c5b4dff230b7f86d127c5940 commit + 73a53a9f85235ed7ada13f9f03c3306fbc865a7c 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 {