package Iglu::LMLM::Types::Perl_IL;
use strict;
use Mail::LMLM::Types::Mailman;
use vars qw(@ISA);
@ISA=qw(Mail::LMLM::Types::Mailman);
sub initialize
{
my $self = shift;
$self->SUPER::initialize(@_);
if (! exists($self->{'hostname'}) )
{
$self->{'hostname'} = "perl.org.il";
}
if (! exists($self->{'owner'}) )
{
$self->{'owner'} = [ "gabor", "perl.org.il" ],
}
if (! exists($self->{'homepage'}))
{
$self->{'homepage'} = "http://www.perl.org.il/";
}
return 0;
}
sub get_online_archive
{
my $self = shift;
if ( exists($self->{'online_archive'}) )
{
return $self->{'online_archive'};
}
else
{
return "http://www.perl.org.il/pipermail/" .
$self->get_group_base() . "/";
}
}
1;