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