104 lines
2.0 KiB
Perl
104 lines
2.0 KiB
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.
|
|
|
|
# API logging subroutines.
|
|
package API::Log;
|
|
use strict;
|
|
use warnings;
|
|
use POSIX;
|
|
use Time::Local;
|
|
use Exporter;
|
|
use API::Std qw(conf_get);
|
|
|
|
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
|
|
{
|
|
my ($lmsg) = @_;
|
|
|
|
my $date = POSIX::strftime("%Y%m%d", localtime);
|
|
my $time = POSIX::strftime("%Y-%m-%d %I:%M:%S %p", localtime);
|
|
|
|
unless (-d "$Auto::Bin/../var") {
|
|
`mkdir $Auto::Bin/../var`;
|
|
}
|
|
unless (-e "$Auto::Bin/../var/$date.log") {
|
|
`touch $Auto::Bin/../var/$date.log`;
|
|
}
|
|
|
|
open LOG, ">>$Auto::Bin/../var/$date.log" or return 0;
|
|
print LOG "[$time] $lmsg\n" or return 0;
|
|
close LOG or return 0;
|
|
|
|
return 1;
|
|
}
|
|
|
|
# Expire old logs.
|
|
sub expire_logs
|
|
{
|
|
# Get configuration value.
|
|
my $celog = (conf_get("expire_logs"))[0][0] or return 0;
|
|
|
|
# Check for invalid values.
|
|
if ($celog =~ m/[^0-9]/) {
|
|
# Must be numbers only.
|
|
return;
|
|
}
|
|
elsif (!$celog) {
|
|
# No expire.
|
|
return;
|
|
}
|
|
|
|
# Iterate through each logfile.
|
|
foreach my $file (<$Auto::Bin/../var/*>) {
|
|
my (undef, $file) = split('bin/../var/', $file);
|
|
|
|
# Convert filename to UNIX time.
|
|
my $yyyy = substr($file, 0, 4);
|
|
my $mm = substr($file, 4, 2);
|
|
my $dd = substr($file, 6, 2);
|
|
my $epoch = timelocal(0, 0, 0, $dd, $mm, $yyyy);
|
|
|
|
# If it's older than <config_value> days, delete it.
|
|
if (time - $epoch > 86400 * $celog) {
|
|
`rm $Auto::Bin/../var/$file`;
|
|
}
|
|
}
|
|
}
|
|
|
|
1;
|