54 lines
820 B
Perl
54 lines
820 B
Perl
# 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;
|