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