File Coverage

blib/lib/App/Birthday.pm

Criterion	Covered	Total	%
statement	6	50	12.0
branch	0	6	0.0
condition			n/a
subroutine	2	6	33.3
pod	4	4	100.0
total	12	66	18.1

package App::Birthday;
our @EXPORT = qw/usage version send_mails verify_mails/;# Symbols to autoexport (:DEFAULT tag)
use base qw/Exporter/;
use Mail::Sender;

our $VERSION = '0.3';

sub send_mails {
    my ($name, $in_hr, $cfg_hr, $in_file) = @_;
    my @to      = ();
    my $me      = $$cfg_hr{maintainer};
    my $subject = $in_file.' config file. You sent a birtday mail for: '; # subject only for maintainer

    # prepare sender - initiate transport parameters
    my $sender = new Mail::Sender{
        smtp => $$cfg_hr{transport}{host},
        port => $$cfg_hr{transport}{port},
        from => $$cfg_hr{from}
    };

    # send E-Mail to all friends of birthday child
    if (${$$in_hr{$name}{friends}{names}}[0] == "others"){
        push @to, $$in_hr{$_}{email}.',' for (grep { $_ ne $name } keys %$in_hr); # all - name
    } else {
        push @to, $$in_hr{$_}{email}.',' for (@{$in_hr{$$in_hr{$name}{friends}{names}}});
    }

    if (@to) {
        $sender->MailMsg({
            to      => "@to",
            subject => $$in_hr{$name}{friends}{subject}
            });
    }

    # congratulations E-Mail to birthday child
    $sender->MailMsg({
        to      => $$in_hr{$name}{email},
        subject => $$in_hr{$name}{subject},
        msg     => $$in_hr{$name}{text}
        });

    # secret E-Mail only to me, as a reminder
    $sender->MailMsg({
        to      => $me,
        subject => $subject.$$in_hr{$name}{email},
        msg     => $$in_hr{$name}{text}
        });
}

sub verify_mails {
    my ($name, $in_hr, $cfg_hr, $in_file) = @_;
    my @to      = ();
    my $me      = $$cfg_hr{maintainer};
    my $subject = $in_file.' config file. You sent a birtday mail for: '; # subject only for maintainer
    # send E-Mail to all friends of birthday child
    if (${$$in_hr{$name}{friends}{names}}[0] == "others"){
        push @to, $$in_hr{$_}{email}.',' for (grep { $_ ne $name } keys %$in_hr); # all - name
    } else {
        push @to, $$in_hr{$_}{email}.',' for (@{$in_hr{$$in_hr{$name}{friends}{names}}});
    }

    print "[*] Configuration:\n";
    printf "\t [-] smtp: %s\n", $$cfg_hr{transport}{host};
    printf "\t [-] port: %s\n", $$cfg_hr{transport}{port};
    printf "\t [-] from: %s\n", $$cfg_hr{from};

    print "[*] Mail to birthday child:\n";
    printf "\t [-] to: %s\n", $$in_hr{$name}{email};
    printf "\t [-] subject: %s\n", $$in_hr{$name}{subject};
    printf "\t [-] msg: %s\n", $$in_hr{$name}{text};

    print "[*] Mail to friends:\n";
    printf "\t [-] to: %s\n", "@to";
    printf "\t [-] subject: %s\n", $$in_hr{$name}{friends}{subject};

    print "[*] Reminder Mail to me:\n";
    printf "\t [-] to: %s\n", $me;
    printf "\t [-] subject: %s\n", $subject.$$in_hr{$name}{email};
    printf "\t [-] msg: %s\n", $$in_hr{$name}{text};
}

sub usage { system("perldoc $0"); exit 0; }
sub version { print "Version: $VERSION\n"; exit 0; }
1; # End of App::Birthday
__END__