The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl -w


#
# Here you can see this script working
#

#######################################################################################
#										      #
# http://www.pervasive.jku.at/About_Us/Staff/Hochreiter/Newsletter/cgi/newsletter.cgi #
#										      #
#######################################################################################






use strict;
use Newsletter;
use Newsletter::Html;


my $news = Newsletter->new;

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

$news->list(
        empty => 1,
        path => '/tmp/Newsletter/Data/list'
);

$news->body(
        path => '/tmp/Newsletter/Data/body'
);

$news->sender(
	smtp => 'smtp.foo.bar',
	replayTo => 'foo@bar.com'
);


# Alert !!!
# relative paths from server root ( access from webbrowser )?!
# use httpd.conf
# add this to your server configuration "Alias /tmp/ /tmp/"

$news->previewMailFile(
	path => '/tmp/Newsletter/Data/preview'
);
$news->archiv(
	path => '/tmp/Newsletter/Data/archiv'
);



my $newsHtml = Newsletter::Html->new(\$news, '/tmp/Newsletter/Data/upload');

print $newsHtml->header( 
#	-style => {'src'=>'/css/formate.css'}, 
);

print $newsHtml->body;
print $newsHtml->footer;