package Iglu::LMLM::Types::Ivrix; use strict; use Mail::LMLM::Types::Majordomo; use vars qw(@ISA); @ISA=qw(Mail::LMLM::Types::Majordomo); sub initialize { my $self = shift; $self->SUPER::initialize(@_); if (!exists($self->{'hostname'})) { $self->{'hostname'} = "ivrix.org.il"; } if (!exists($self->{'homepage'})) { $self->{'homepage'} = "http://www.ivrix.org.il/"; } if (!exists($self->{'owner'})) { $self->{'owner'} = [ "nyh", "math.technion.ac.il" ]; } return 0; } sub get_online_archive { my $self = shift; return ("http://" . $self->get_hostname() . "/mailing-lists/" . $self->get_group_base() . "/archive") ; }