Newsletter

Newsletter Simple in use:

#!/usr/bin/perl -w
use strict;
use Newsletter;

my $news = Newsletter->new;

$news->template( path => '/tmp/newsletter' );

$news->template(

        file => {
                # u need
                path => 'test/myHeader.html',
                type => 'html',
                is => 'header',

                # here starts the optional Params
                name => 'My Header Name',
                schema => 'My First Template',
                embedded => '/tmp/opera.jpg'

                # here starts self defined Params
                # ...
        }

);

$news->template(

        use => {
                schema => 'My First Template'
        }

);

$news->template(

        use => {
                is => 'header',
                name => 'My Header Name'
        }

);

$news->template(

        use => {
                is => 'header',
                filename => 'myHeader.txt'
        }

);

#print $news->template(

#        use => {
#                is => 'header',
#                filename => 'myHeader.html'
#        },
#       remove => 1

#);

#print $news->{'senderHeader'}->{'HTML'}, "\n";

####################################################### # TEST List
#######################################################

$news->list(

path => '/tmp/newsletter/list'
);

$news->list(

        list => {
                name => 'the-top@foo.bar'
        }

);

$news->list(

        member => {
                # u need
                listname => 'the-top@foo.bar',
                mail => 'foo@bar.bla'
        }

);

$news->list(

        member => {
                # u need
                listname => 'the-top@foo.bar',
                mail => 'hello@world.bla'
        }

);

$news->list(

        remove => {
                # remove one member
                listname => 'the-top@foo.bar',
                mail => 'hello@world.bla'
        }

);

$news->list(

        remove => {
                # remove whole list
                listname => 'the-top@foo.bar',
        }

);

############################################ # Test Send
############################################

$news->list(

        empty => 1,
        path => '/tmp/newsletter/list'

);

$news->list(

        list => {
                name => 'news@vienna-marathon.com',
        }

);

$news->list(

        member => {
                # u need
                listname => 'news@vienna-marathon.com',
                mail => 'dominik@soft.uni-linz.ac.at'
        }

);

$news->body(

path => '/tmp/newsletter/body'
);

$news->body(

        subject => 'A test mail!',
        file => {
                path => 'test/myBody.html',
                type => 'html',
                embedded => '/tmp/opera.jpg'
        }       

);

$news->body(

        file => {
                path => 'test/myBody.txt',
                type => 'text',
        }

);

$news->sender(

smtp => 'soft.uni-linz.ac.at'
);

my $sender = $news->buildMail();

#print $sender->as_string;
#print "\n";

$news->send();

INSTALLATION

To install this module, run the following commands:

perl Makefile.PL
make
make test
make install

SUPPORT AND DOCUMENTATION

After installing, you can find documentation for this module with the perldoc command.

perldoc Newsletter

You can also look for information at:

Search CPAN

http://search.cpan.org/dist/Newsletter

CPAN Request Tracker:

http://rt.cpan.org/NoAuth/Bugs.html?Dist=Newsletter

AnnoCPAN, annotated CPAN documentation:

http://annocpan.org/dist/Newsletter

CPAN Ratings:

http://cpanratings.perl.org/d/Newsletter

COPYRIGHT AND LICENCE

Copyright (C) 2006 Dominik Hochreiter

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.