diff --git a/bin/auto b/bin/auto index 4fbf1fb..e7054e9 100644 --- a/bin/auto +++ b/bin/auto @@ -15,6 +15,7 @@ use FindBin qw($Bin); our $Bin = $Bin; unshift(@INC, "$Bin/../src"); require API::Std; +require API::Log; #require DB::Flatfile; require Parser::Config; require Parser::Lang; diff --git a/src/API/Log.pm b/src/API/Log.pm new file mode 100644 index 0000000..81cfd87 --- /dev/null +++ b/src/API/Log.pm @@ -0,0 +1,53 @@ +# Auto IRC Bot. An advanced, lightweight and powerful IRC bot. +# Copyright (C) 2010-2011 Xelhua Development Team (doc/CREDITS) +# This program is free software; rights to this code are stated in doc/LICENSE. +use strict; +use warnings; +use Exporter; +use API::Std qw(conf_get); + +# API logging subroutines. +package API::Log; + +our @ISA = qw(Exporter); +our @EXPORT_OK = qw(println dbug alog); + + +# Print with the system newline appended. +sub println +{ + my ($out) = @_; + + my ($nl); + if ($^O =~ /dos/i or $^O =~ /win/i or $^O =~ /netware/i) { + $nl = "\r\n"; + } + elsif ($^O =~ /linux/i or $^O =~ /bsd/i) { + $nl = "\n"; + } + elsif ($^O =~ /mac/i or $^O =~ /darwin/i) { + $nl = "\r"; + } + else { + $nl = "\r\n"; + } + + print $out.$nl; + + return 1; +} + +# Print only if in debug mode. +sub dbug +{ + +} + +# Log to file. +sub alog +{ + +} + + +1;