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

More cleanup on bin/auto. Started cleanup on API::Std.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-02-07 20:29:54 -07:00
1 parent bdaadb4f87
commit 4360bacf07
1 file changed
+11 -9
Download Patch File Download Diff File Expand all files Collapse all files
src/API/Std.pm
+11 -9
View File
@@ -7,9 +7,11 @@ package API::Std;
use strict; use strict;
use warnings; use warnings;
use Exporter; use Exporter;
use base qw(Exporter);
our $VERSION = 3.000000;
our (%LANGE, %MODULE, %EVENTS, %HOOKS, %CMDS); our (%LANGE, %MODULE, %EVENTS, %HOOKS, %CMDS);
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(conf_get trans err awarn timer_add timer_del cmd_add our @EXPORT_OK = qw(conf_get trans err awarn timer_add timer_del cmd_add
cmd_del hook_add hook_del rchook_add rchook_del match_user cmd_del hook_add hook_del rchook_add rchook_del match_user
has_priv mod_exists); has_priv mod_exists);
@@ -19,16 +21,16 @@ our @EXPORT_OK = qw(conf_get trans err awarn timer_add timer_del cmd_add
sub mod_init sub mod_init
{ {
my ($name, $author, $version, $autover, $pkg) = @_; my ($name, $author, $version, $autover, $pkg) = @_;
# Log/debug. # Log/debug.
API::Log::dbug("MODULES: Attempting to load ".$name." (version ".$version.") by ".$author."..."); API::Log::dbug('MODULES: Attempting to load '.$name.' (version '.$version.') by '.$author.'...');
API::Log::alog("MODULES: Attempting to load ".$name." (version ".$version.") by ".$author."..."); API::Log::alog('MODULES: Attempting to load '.$name.' (version '.$version.') by '.$author.'...');
# Check if this module is compatible with this version of Auto. # Check if this module is compatible with this version of Auto.
if ($autover ne "3.0.0d") { if ($autover ne '3.0.0d') {
API::Log::dbug("MODULES: Failed to load ".$name.": Incompatible with your version of Auto."); API::Log::dbug('MODULES: Failed to load '.$name.': Incompatible with your version of Auto.');
API::Log::alog("MODULES: Failed to load ".$name.": Incompatible with your version of Auto."); API::Log::alog('MODULES: Failed to load '.$name.': Incompatible with your version of Auto.');
return 0; return;
} }
# Run the module's _init sub. # Run the module's _init sub.