File Coverage

blib/lib/Mail/Salsa/Action/Help.pm

Criterion	Covered	Total	%
statement	15	25	60.0
branch			n/a
condition	0	3	0.0
subroutine	5	7	71.4
pod	0	2	0.0
total	20	37	54.0

#
# Mail/Salsa/Action/Help.pm
# Last Modification: Fri Jun 18 14:37:04 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::Action::Help;

use 5.008000;
use strict;
use warnings;

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

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

sub new {
	my $proto = shift;
	my $class = ref($proto) || $proto;
	my $self  = {@_};
	bless ($self, $class);
	$self->process_msg();
	return($self);
}

sub process_msg {
	my $self = shift;

	my ($name, $domain) = split(/\@/, $self->{'list'});
	Mail::Salsa::Utils::tplsendmail(
		smtp_server => $self->{'smtp_server'},
		timeout     => $self->{'timeout'},
		label       => "HELP_MESSAGE",
		lang        => $self->{'config'}->{'language'},
		vars        => {
				from   => "$name\-master\@$domain",
				to     => $self->{'from'},
				name   => $name,
				domain => $domain,
		}
	);
	return();
}

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

1;
__END__