File Coverage

blib/lib/Mail/Salsa/Archive.pm

Criterion	Covered	Total	%
statement	18	41	43.9
branch	0	8	0.0
condition			n/a
subroutine	6	8	75.0
pod	0	2	0.0
total	24	59	40.6

#
# Mail/Salsa/Archive.pm
# Last Modification: Mon May 31 15:05:16 WEST 2004
#
# Copyright (c) 2004 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::Archive;

use 5.008000;
use strict;
use warnings;

require Exporter;
use AutoLoader qw(AUTOLOAD);
use Fcntl qw(:DEFAULT :flock);
use POSIX qw(strftime);

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::Archive ':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(&archive_msg);
our $VERSION = '0.01';

sub archive_msg {
	my $self = shift;

	my ($name, $domain) = split(/\@/, $self->{'list'});
	my $dir = join("/", $self->{'archive_dir'}, $domain, $name);
	unless(-d $dir) {
		Mail::Salsa::Utils::make_dir_rec($dir, 0755);
		(-d $dir) or die("$!");
	}
	my $date = strftime("%a %b %e %H:%M:%S %Y", localtime);
	my $mailbox = &mailbox_name();
	open(MSG, "<", $self->{'message'}) or die("$!");
	open(ARCHIVE, ">>", join("/", $dir, $mailbox)) or die("$!");
	flock(ARCHIVE, LOCK_EX);
	print ARCHIVE join(" ", "From", $self->{'from'}, "$date\n");
	while() { print ARCHIVE $_; }
	flock(ARCHIVE, LOCK_UN);
	close(ARCHIVE);
	close(MSG);
	return();
}

sub mailbox_name {
	my @months = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
	my ($mon, $year) = (localtime(time))[4,5];
	my $month = $months[$mon];
	$year += 1900;
	return("$year-$month");
}

# Preloaded methods go here.

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

1;
__END__