notice-sender/trunk/Nos.pm

package Nos;

use 5.008;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw(
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw( 
);

our $VERSION = '0.1';

use Class::DBI::Loader;
use Email::Valid;
use Email::Send;
use Carp;

=head1 NAME

Nos - Notice Sender core module

=head1 SYNOPSIS

  use Nos;
  my $nos = new Nos();

=head1 DESCRIPTION

Core module for notice sender's functionality.

=head1 METHODS

=head2 new

Create new instance specifing database, user, password and options.

 my $nos = new Nos(
        dsn => 'dbi:Pg:dbname=notices',
        user => 'dpavlin',
        passwd => '',
        debug => 1,
        verbose => 1,
 );

=cut

sub new {
        my $class = shift;
        my $self = {@_};
        bless($self, $class);

        $self->{'loader'} = Class::DBI::Loader->new(
                debug           => $self->{'debug'},
                dsn             => $self->{'dsn'},
                user            => $self->{'user'},
                password        => $self->{'passwd'},
                namespace       => "Nos",
#               additional_classes      => qw/Class::DBI::AbstractSearch/,
#               additional_base_classes => qw/My::Stuff/,
                relationships   => 1,
        );

        $self ? return $self : return undef;
}

=head2 update_list_email

Update list e-mail address

 $noc->update_list_email($list, 'foobar@example.com');

=cut

sub update_list_email {
        my $self = shift;


}

=head2 send

Send a message using configured mailer.

 $nos->send("message with headers");

=cut

sub send_email {
        my $self = shift;

        my $message = shift || return;

        send IO => $message;
}

=head2 EXPORT

None by default.

=head1 SEE ALSO

mailman, ezmlm, sympa, L<Mail::Salsa>

=head1 AUTHOR

Dobrica Pavlinusic, E<lt>dpavlin@rot13.orgE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2005 by Dobrica Pavlinusic

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.


=cut
1	dpavlin	20	package Nos;
2
3			use 5.008;
4			use strict;
5			use warnings;
6
7			require Exporter;
8
9			our @ISA = qw(Exporter);
10
11			our %EXPORT_TAGS = ( 'all' => [ qw(
12			) ] );
13
14			our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
15
16			our @EXPORT = qw(
17			);
18
19			our $VERSION = '0.1';
20
21			use Class::DBI::Loader;
22			use Email::Valid;
23			use Email::Send;
24			use Carp;
25
26			=head1 NAME
27
28			Nos - Notice Sender core module
29
30			=head1 SYNOPSIS
31
32			use Nos;
33			my $nos = new Nos();
34
35			=head1 DESCRIPTION
36
37			Core module for notice sender's functionality.
38
39			=head1 METHODS
40
41			=head2 new
42
43			Create new instance specifing database, user, password and options.
44
45			my $nos = new Nos(
46			dsn => 'dbi:Pg:dbname=notices',
47			user => 'dpavlin',
48			passwd => '',
49			debug => 1,
50			verbose => 1,
51			);
52
53			=cut
54
55			sub new {
56			my $class = shift;
57			my $self = {@_};
58			bless($self, $class);
59
60			$self->{'loader'} = Class::DBI::Loader->new(
61			debug => $self->{'debug'},
62			dsn => $self->{'dsn'},
63			user => $self->{'user'},
64			password => $self->{'passwd'},
65			namespace => "Nos",
66			# additional_classes => qw/Class::DBI::AbstractSearch/,
67			# additional_base_classes => qw/My::Stuff/,
68			relationships => 1,
69			);
70
71			$self ? return $self : return undef;
72			}
73
74	dpavlin	21	=head2 update_list_email
75	dpavlin	20
76	dpavlin	21	Update list e-mail address
77	dpavlin	20
78	dpavlin	21	$noc->update_list_email($list, 'foobar@example.com');
79	dpavlin	20
80	dpavlin	21	=cut
81	dpavlin	20
82	dpavlin	21	sub update_list_email {
83			my $self = shift;
84	dpavlin	20
85
86	dpavlin	21	}
87	dpavlin	20
88			=head2 send
89
90			Send a message using configured mailer.
91
92			$nos->send("message with headers");
93
94			=cut
95
96			sub send_email {
97			my $self = shift;
98
99			my $message = shift \|\| return;
100
101			send IO => $message;
102			}
103
104			=head2 EXPORT
105
106			None by default.
107
108			=head1 SEE ALSO
109
110			mailman, ezmlm, sympa, L<Mail::Salsa>
111
112			=head1 AUTHOR
113
114			Dobrica Pavlinusic, E<lt>dpavlin@rot13.orgE<gt>
115
116			=head1 COPYRIGHT AND LICENSE
117
118			Copyright (C) 2005 by Dobrica Pavlinusic
119
120			This library is free software; you can redistribute it and/or modify
121			it under the same terms as Perl itself, either Perl version 5.8.4 or,
122			at your option, any later version of Perl 5 you may have available.
123
124
125			=cut