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 warnings;
use Exporter;
use base qw(Exporter);
our $VERSION = 3.000000;
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
cmd_del hook_add hook_del rchook_add rchook_del match_user
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
{
my ($name, $author, $version, $autover, $pkg) = @_;
# Log/debug.
API::Log::dbug("MODULES: Attempting to load ".$name." (version ".$version.") by ".$author."...");
API::Log::alog("MODULES: Attempting to load ".$name." (version ".$version.") by ".$author."...");
# Log/debug.
API::Log::dbug('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.
if ($autover ne "3.0.0d") {
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.");
return 0;
if ($autover ne '3.0.0d') {
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.');
return;
}
# Run the module's _init sub.