package Iglu::LMLM::Types::Iglu; use strict; use Mail::LMLM::Types::Ezmlm; use vars qw(@ISA); @ISA=qw(Mail::LMLM::Types::Ezmlm); sub initialize { my $self = shift; $self->SUPER::initialize(@_); if (! exists($self->{'hostname'}) ) { $self->{'hostname'} = $self->get_default_hostname(); } } sub get_default_hostname { my $self = shift; return "iglu.org.il"; } sub get_homepage { my $self = shift; if ( exists($self->{'homepage'}) ) { return $self->{'homepage'}; } else { return $self->get_default_homepage(); } } sub get_default_homepage { my $self = shift; return "http://www.iglu.org.il/"; } sub get_online_archive { my $self = shift; if ( exists($self->{'online_archive'}) ) { return $self->{'online_archive'}; } else { return "http://www.mail-archive.com/" . $self->get_group_base() . '@' . $self->get_hostname() . "/"; } } 1;