Sophie

Sophie

distrib > Mageia > 4 > x86_64 > by-pkgid > c6d8bf230a687124fb01cbe46aa3a0ed > files > 33

perl-Mail-LMLM-0.680.200-2.mga3.noarch.rpm

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") ;
}