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

Logging now works with custom PREFIX installs. \o/

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-03-11 21:41:53 -07:00
1 parent 580770c5b8
commit 881fc0d93d
1 file changed
+5 -5
Download Patch File Download Diff File Expand all files Collapse all files
lib/API/Log.pm
+5 -5
View File
@@ -56,12 +56,12 @@ sub alog
my $time = POSIX::strftime('%Y-%m-%d %I:%M:%S %p', localtime); my $time = POSIX::strftime('%Y-%m-%d %I:%M:%S %p', localtime);
# Create var/ if it doesn't exist. # Create var/ if it doesn't exist.
if (!-d "$Auto::Bin/../var") { if (!-d "$Auto::bin{var}") {
mkdir "$Auto::Bin/../var", 0600; ## no critic qw(ValuesAndExpressions::ProhibitMagicNumbers) mkdir "$Auto::bin{var}", 0600; ## no critic qw(ValuesAndExpressions::ProhibitMagicNumbers)
} }
# Open the logfile, print the log message to it and close it. # Open the logfile, print the log message to it and close it.
open my $FLOG, '>>', "$Auto::Bin/../var/$date.log" or return; open my $FLOG, '>>', "$Auto::bin{var}/$date.log" or return;
print {$FLOG} "[$time] $lmsg\n" or return; print {$FLOG} "[$time] $lmsg\n" or return;
close $FLOG or return; close $FLOG or return;
@@ -85,7 +85,7 @@ sub expire_logs
} }
# Iterate through each logfile. # Iterate through each logfile.
foreach my $file (glob fpfmt("$Auto::Bin/../var/*")) { foreach my $file (glob fpfmt("$Auto::bin{var}/*")) {
my (undef, $file) = split 'bin/../var/', $file; ## no critic qw(BuiltinFunctions::ProhibitStringySplit) my (undef, $file) = split 'bin/../var/', $file; ## no critic qw(BuiltinFunctions::ProhibitStringySplit)
# Convert filename to UNIX time. # Convert filename to UNIX time.
@@ -97,7 +97,7 @@ sub expire_logs
# If it's older than <config_value> days, delete it. # If it's older than <config_value> days, delete it.
if (time - $epoch > 86_400 * $celog) { ## no critic qw(ValuesAndExpressions::ProhibitMagicNumbers) if (time - $epoch > 86_400 * $celog) { ## no critic qw(ValuesAndExpressions::ProhibitMagicNumbers)
unlink "$Auto::Bin/../var/$file"; unlink "$Auto::bin{var}/$file";
} }
} }