#!/usr/bin/perl -w
use strict;
use warnings 'all';
use forks;
use Email::Blaster::StandAlone;
use Email::Blaster::Transmission;
use My::TransmissionInitHandler;
my $blaster = Email::Blaster::StandAlone->new( );
$blaster->handle_event( type => 'server_startup' );
my $main = threads->create(sub {
local $SIG{INT} = $SIG{TERM} = sub {
# Quitting:
warn "Bulk Server shutting down...\n";
$blaster->handle_event( type => 'server_shutdown' );
exit;
};
$blaster->run( );
});
$main->join();
__END__
=pod
=head1 NAME
email-blaster-standalone.pl - Standalone email blaster.
=head1 DESCRIPTION
After following the steps for Setup (L<Email::Blaster::Manual::Setup>), just run the email blaster from the command-line.
Unless you really want to watch its output scroll slowly by, it is recommended that
you use the C<nohup> tool (Linux/Unix only).
Example:
% nohup email-blaster-standalone.pl &
This will cause all output to be appended to C<nohup.out> in your current working directory.
=head1 SUPPORT
Visit L<http://www.devstack.com/contact/> or email the author at <jdrago_999@yahoo.com>
Commercial support and installation is available.
=head1 AUTHOR
John Drago <jdrago_999@yahoo.com>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2008 by John Drago
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.10.0 or,
at your option, any later version of Perl 5 you may have available.
=cut