1package Iglu::LMLM::Types::Linuxology;
2
3use strict;
4use warnings;
5
6use Mail::LMLM::Types::Base;
7
8use vars qw(@ISA);
9
10@ISA=qw(Mail::LMLM::Types::Base);
11
12sub get_address
13{
14    my $self = shift;
15
16    return ($self->get_group_base(), $self->get_hostname());
17}
18
19sub render_something_with_subject
20{
21    my $self = shift;
22
23    my $htmler = shift;
24    my $subject = shift;
25
26    $htmler->para("Send a message to the following E-mail address:");
27    $htmler->indent_inc();
28    $htmler->start_para();
29    $htmler->email_address(
30        $self->get_address()
31        );
32    $htmler->end_para();
33    $htmler->indent_dec();
34    $htmler->para("With the following subject:");
35    $htmler->indent_inc();
36    $htmler->para($subject, { 'bold' => 1 });
37    $htmler->indent_dec();
38
39    return 0;
40}
41
42sub render_subscribe
43{
44    my $self = shift;
45
46    my $htmler = shift;
47
48    return $self->render_something_with_subject($htmler, "subscribe");
49}
50
51sub render_unsubscribe
52{
53    my $self = shift;
54
55    my $htmler = shift;
56
57    return $self->render_something_with_subject($htmler, "unsubscribe");
58}
59
60sub render_post
61{
62    my $self = shift;
63
64    my $htmler = shift;
65
66    return $self->render_something_with_subject($htmler, "stuff");
67}
68
69sub render_owner
70{
71    my $self = shift;
72
73    my $htmler = shift;
74
75    return $self->render_something_with_subject($htmler, "comments");
76}
77