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

Made cmd_add and cmd_del exportable.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-01-29 14:59:23 -07:00
1 parent f9982e56a4
commit 3a2687a4be
1 file changed
+8 -9
Download Patch File Download Diff File Expand all files Collapse all files
src/API/Std.pm
+8 -9
View File
@@ -10,8 +10,7 @@ use Exporter;
our (%LANGE, %MODULE, %EVENTS, %HOOKS, %CMDS); our (%LANGE, %MODULE, %EVENTS, %HOOKS, %CMDS);
our @ISA = qw(Exporter); our @ISA = qw(Exporter);
our @EXPORT_OK = qw(conf_get trans err awarn timer_add timer_del); our @EXPORT_OK = qw(conf_get trans err awarn timer_add timer_del cmd_add cmd_del);
# Initialize a module. # Initialize a module.
@@ -95,13 +94,13 @@ sub cmd_add
my ($cmd, $lvl, $fhelp, $shelp, $sub) = @_; my ($cmd, $lvl, $fhelp, $shelp, $sub) = @_;
$cmd = uc($cmd); $cmd = uc($cmd);
return 0 if (defined $CMDS{$cmd}); return 0 if (defined $API::Std::CMDS{$cmd});
return 0 if ($lvl =~ m/[^0-2]/); return 0 if ($lvl =~ m/[^0-2]/);
$CMDS{$cmd}{lvl} = $lvl; $API::Std::CMDS{$cmd}{lvl} = $lvl;
$CMDS{$cmd}{fhelp} = $fhelp; $API::Std::CMDS{$cmd}{fhelp} = $fhelp;
$CMDS{$cmd}{shelp} = $shelp; $API::Std::CMDS{$cmd}{shelp} = $shelp;
$CMDS{$cmd}{sub} = $sub; $API::Std::CMDS{$cmd}{sub} = $sub;
return 1; return 1;
} }
@@ -113,8 +112,8 @@ sub cmd_del
my ($cmd) = @_; my ($cmd) = @_;
$cmd = uc($cmd); $cmd = uc($cmd);
if (defined $CMDS{$cmd}) { if (defined $API::Std::CMDS{$cmd}) {
delete $CMDS{$cmd}; delete $API::Std::CMDS{$cmd};
} }
else { else {
return 0; return 0;