File Coverage

blib/lib/Mail/Salsa/Logs.pm

Criterion	Covered	Total	%
statement	15	42	35.7
branch	0	14	0.0
condition	0	2	0.0
subroutine	5	7	71.4
pod	0	2	0.0
total	20	67	29.8

#
# Mail/Salsa/Logs.pm
# Last Modification: Wed Apr  6 16:13:12 WEST 2005
#
# Copyright (c) 2005 Henrique Dias . All rights reserved.
# This module is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
#
package Mail::Salsa::Logs;

use 5.008000;
use strict;
use warnings;

require Exporter;
use AutoLoader qw(AUTOLOAD);
use Mail::Salsa::Utils;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Mail::Salsa::Logs ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw() ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(&logs &debug);

our $VERSION = '0.02';

sub logs {
	my $self = shift;
	my $string = shift;
	my $type = shift || "error";

	my ($name, $domain) = split(/\@/, $self->{'list'});
	my $dir = join("/", $self->{'logs_dir'}, $domain, $name);
	unless(-d $dir) {
		Mail::Salsa::Utils::make_dir_rec($dir, 0755);
		(-d $dir) or die("$!");
	}
	my $today = Mail::Salsa::Utils::string_date();
	$string .= "\n" unless($string =~ /\n+$/);
	if($string eq "error") {
		my $package = caller();
		$string = "$package $string";
	}
	my $file = join("/", $dir, "$type\.log");
	open(LOGS, ">>", $file) or die("$!");
	print LOGS "$today $string";
	close(LOGS);

	my $mode = 0600;
	chmod($mode, $file);

	return();
}

sub debug {
	my $self = shift;
	my $string = shift;

	$string .= "\n" unless($string =~ /\n+$/);
	open(DEBUG, ">>", "/tmp/salsa.debug") or die("$!");
	print DEBUG $string;
	close(DEBUG);

	return();
}

# Preloaded methods go here.

# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__