1package Mail::LMLM::Types::Listar;
2$Mail::LMLM::Types::Listar::VERSION = '0.6807';
3use strict;
4use warnings;
5
6use vars qw(@ISA);
7
8@ISA = qw(Mail::LMLM::Types::Base);
9
10sub parse_args
11{
12    my $self = shift;
13
14    my $args = shift;
15
16    $args = $self->SUPER::parse_args($args);
17
18    return $args;
19}
20
21sub group_form
22{
23    my $self = shift;
24
25    my $add = shift;
26
27    return ( ( $self->get_group_base() . ( $add ? ( "-" . $add ) : "" ) ),
28        $self->get_hostname() );
29}
30
31sub get_request_address
32{
33    my $self = shift;
34
35    return $self->group_form("request");
36}
37
38sub _get_post_address
39{
40    my $self = shift;
41
42    return $self->group_form();
43}
44
45sub _get_owner_address
46{
47    my $self = shift;
48
49    return $self->group_form("owner");
50}
51
52sub render_sub_or_unsub
53{
54    my $self = shift;
55
56    my $htmler = shift;
57
58    my $command = shift;
59
60    $htmler->para("Send a message containing the following line:");
61    $htmler->indent_inc();
62    $htmler->para( "$command", { 'bold' => 1 } );
63    $htmler->indent_dec();
64    $htmler->para("To the following address:");
65    $htmler->indent_inc();
66    $htmler->email_address( $self->get_request_address() );
67    $htmler->indent_dec();
68
69    return 0;
70}
71
72sub render_subscribe
73{
74    my $self = shift;
75
76    my $htmler = shift;
77
78    return $self->render_sub_or_unsub( $htmler, "subscribe" );
79}
80
81sub render_unsubscribe
82{
83    my $self = shift;
84
85    my $htmler = shift;
86
87    return $self->render_sub_or_unsub( $htmler, "unsubscribe" );
88}
89
90sub render_post
91{
92    my $self = shift;
93
94    my $htmler = shift;
95
96    return $self->render_something_with_email_addr( $htmler,
97        "Send your messages to the following address: ",
98        \&_get_post_address );
99}
100
101sub render_owner
102{
103    my $self = shift;
104
105    my $htmler = shift;
106
107    return $self->render_something_with_email_addr( $htmler,
108        "Send messages to the mailing-list owner to the following address: ",
109        \&_get_owner_address );
110}
111
1121;
113
114__END__
115
116=pod
117
118=encoding UTF-8
119
120=head1 NAME
121
122Mail::LMLM::Types::Listar - mailing list type for Listar-based mailing
123lists.
124
125=head1 VERSION
126
127version 0.6807
128
129=head1 METHODS
130
131=head2 parse_args
132
133Internal method, over-rides the L<Mail::LMLM::Types::Base>.
134
135=head2 get_request_address
136
137Calculates the request address
138
139=head2 group_form
140
141Calculates the group form.
142
143=head2 render_sub_or_unsub
144
145Internal method.
146
147=head2 render_subscribe
148
149Over-rides the equivalent from L<Mail::LMLM::Types::Base>.
150
151=head2 render_unsubscribe
152
153Over-rides the equivalent from L<Mail::LMLM::Types::Base>.
154
155=head2 render_post
156
157Over-rides the equivalent from L<Mail::LMLM::Types::Base>.
158
159=head2 render_owner
160
161Over-rides the equivalent from L<Mail::LMLM::Types::Base>.
162
163=head2 render_maint_url
164
165Render a maintenance URL. Internal method.
166
167=head1 SEE ALSO
168
169L<Mail::LMLM::Types::Base>
170
171=head1 AUTHOR
172
173Shlomi Fish, L<http://www.shlomifish.org/>.
174
175=for :stopwords cpan testmatrix url bugtracker rt cpants kwalitee diff irc mailto metadata placeholders metacpan
176
177=head1 SUPPORT
178
179=head2 Websites
180
181The following websites have more information about this module, and may be of help to you. As always,
182in addition to those websites please use your favorite search engine to discover more resources.
183
184=over 4
185
186=item *
187
188MetaCPAN
189
190A modern, open-source CPAN search engine, useful to view POD in HTML format.
191
192L<https://metacpan.org/release/Mail-LMLM>
193
194=item *
195
196RT: CPAN's Bug Tracker
197
198The RT ( Request Tracker ) website is the default bug/issue tracking system for CPAN.
199
200L<https://rt.cpan.org/Public/Dist/Display.html?Name=Mail-LMLM>
201
202=item *
203
204CPANTS
205
206The CPANTS is a website that analyzes the Kwalitee ( code metrics ) of a distribution.
207
208L<http://cpants.cpanauthors.org/dist/Mail-LMLM>
209
210=item *
211
212CPAN Testers
213
214The CPAN Testers is a network of smoke testers who run automated tests on uploaded CPAN distributions.
215
216L<http://www.cpantesters.org/distro/M/Mail-LMLM>
217
218=item *
219
220CPAN Testers Matrix
221
222The CPAN Testers Matrix is a website that provides a visual overview of the test results for a distribution on various Perls/platforms.
223
224L<http://matrix.cpantesters.org/?dist=Mail-LMLM>
225
226=item *
227
228CPAN Testers Dependencies
229
230The CPAN Testers Dependencies is a website that shows a chart of the test results of all dependencies for a distribution.
231
232L<http://deps.cpantesters.org/?module=Mail::LMLM>
233
234=back
235
236=head2 Bugs / Feature Requests
237
238Please report any bugs or feature requests by email to C<bug-mail-lmlm at rt.cpan.org>, or through
239the web interface at L<https://rt.cpan.org/Public/Bug/Report.html?Queue=Mail-LMLM>. You will be automatically notified of any
240progress on the request by the system.
241
242=head2 Source Code
243
244The code is open to the world, and available for you to hack on. Please feel free to browse it and play
245with it, or whatever. If you want to contribute patches, please send me a diff or prod me to pull
246from your repository :)
247
248L<https://github.com/shlomif/perl-mail-lmlm>
249
250  git clone git://github.com/shlomif/perl-mail-lmlm.git
251
252=head1 AUTHOR
253
254Shlomi Fish
255
256=head1 BUGS
257
258Please report any bugs or feature requests on the bugtracker website
259L<https://github.com/shlomif/perl-mail-lmlm/issues>
260
261When submitting a bug or request, please include a test-file or a
262patch to an existing test-file that illustrates the bug or desired
263feature.
264
265=head1 COPYRIGHT AND LICENSE
266
267This software is Copyright (c) 2020 by Shlomi Fish.
268
269This is free software, licensed under:
270
271  The MIT (X11) License
272
273=cut
274