sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* Fixed a bug in API::Log that caused invalid months.

Browse Source 
* Changed how command data is passed to fix a bug.
This commit is contained in:
Elijah Perrault committed 2011-01-29 01:05:03 -07:00
1 parent e1d79d17c2
commit d60dee11d0
4 files changed
+23 -24
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/Parser/IRC.pm
+20 -9
View File
@@ -339,26 +339,37 @@ sub nick
sub privmsg
{
my ($svr, @ex) = @_;
my %src = API::IRC::usrc(substr($ex[0], 1));
my %data = API::IRC::usrc(substr($ex[0], 1));
my $cprefix = (conf_get("fantasy_pf"))[0][0];
my $rprefix = substr($ex[3], 1, 1);
my $cmd = uc(substr($ex[3], 2));
my (@argv);
my @argv;
for (my $i = 4; $i < scalar(@ex); $i++) {
push(@argv, $ex[$i]);
}
$src{svr} = $svr;
$data{svr} = $svr;
@{ $data{args} } = @argv;
my ($cmd, $cprefix, $rprefix);
# Check if it's to a channel or to us.
if (lc($ex[2]) eq lc($botnick{$svr}{nick})) {
# It is coming to us in a private message.
API::Std::cmd_run($cmd, 1, %src, @argv);
$cmd = uc(substr($ex[3], 1));
if (defined $API::Std::CMDS{$cmd}) {
if ($API::Std::CMDS{$cmd}{lvl} == 1 or $API::Std::CMDS{$cmd}{lvl} == 2) {
&{ $API::Std::CMDS{$cmd}{sub} }(%data) if $rprefix eq $cprefix;
}
}
}
else {
# It is coming to us in a channel message.
$src{chan} = $ex[2];
API::Std::cmd_run($cmd, 0, %src, @argv);
$data{chan} = $ex[2];
$cprefix = (conf_get("fantasy_pf"))[0][0];
$rprefix = substr($ex[3], 1, 1);
$cmd = uc(substr($ex[3], 2));
if (defined $API::Std::CMDS{$cmd}) {
if ($API::Std::CMDS{$cmd}{lvl} == 0 or $API::Std::CMDS{$cmd}{lvl} == 2) {
&{ $API::Std::CMDS{$cmd}{sub} }(%data) if $rprefix eq $cprefix;
}
}
}
return 1;