#!/usr/bin/perl
# 
#  Mailinglists.pm - Perlmodule which computes the Main content of Oroborus.org
# 
#  Copyright (C) 2002 Stefan Pfetzing and Martin Helas
# 
#  This program is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2, or (at your option)
#  any later version.
# 
#  This program is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
# 
#  You should have received a copy of the GNU General Public License
#  along with this program; if not, write to the Free Software Foundation,
#  Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  
# 

# define the Package name
package Oroborus::Mailinglists;

#use Apache::Reload;
use strict;
our ($q);

# constructor needs one argument, a reference to a CGI object
sub new($) {
	my $proto = shift();
	$q = shift();
	my $class = ref($proto) || $proto;
	my $self  = {};
	bless ($self, $class);
	return $self;
}

# destructor
sub DESTROY() {
};

sub getContent() {
	my $self = shift();
	my $c = $q->table({-width=>"100%",
		-cellpadding=>"0",
		-cellspacing=>"0"},
		$q->Tr(
			$q->td(
				$q->h2("Mailing Lists for Oroborus")
			)
		),
		$q->Tr(
			$q->td(
				$q->p("Currently there are 3 open mailing lists for Oroborus (hosted at ".$q->a({-href=>"http://savannah.nongnu.org/"},"sv.nongnu.org")."). ".
					"Please do understand that  we are accepting mail on these mailing lists ".$q->b("ONLY")." from ".
					"subscribed members due to UCE reasons. If any UCE mail will be posted on this list, ".
					"this member will be removed form the list immedietly and charged a fee of US\$ 1000 ".
					"the list-maintainer will donate to the ",
					$q->a({-href=>"http://www.fsfeurope.org/"},"Free Software Foundation (FSF) Europe"),
					"."
				),
				$q->p("By posting on this list the poster agrees to this terms."),
				$q->ul(
					$q->li([
						$q->a({-href=>"javascript:switchShow('oroborus-user')"},"oroborus-user -  General discussion about Oroborus."). $q->br().
						$q->div({-id=>"oroborus-user",-class=>"Hidden"},
							$q->br().
							"This mailing list is an open mailing list, everybody can join. Here we are discussing ".
							"latest news and problems about Oroborus and the additional tools.". $q->br(). $q->br().
							"To see the collection of prior postings to the list, visit the ".
							$q->a({-href=>"http://mail.nongnu.org/archive/html/oroborus-user"},"oroborus-user archives"). ".". $q->br().
							"To post a message to all the list members, send email to ".
							$q->a({-href=>'mailto:oroborus-user@nongnu.org'},'oroborus-user@nongnu.org'). ".". $q->br().
							"(Un)Subscribe by following instructions on the ".
							$q->a({-href=>"http://mail.nongnu.org/mailman/listinfo/oroborus-user"},"list information page"). ".". $q->br().
							"Project administrators could use the ". 
							$q->a({-href=>"http://mail.nongnu.org/mailman/admin/oroborus-user"},"mailman administrative interface").
							" to manage the list. ".$q->br().$q->br()
						),

						$q->a({-href=>"javascript:switchShow('oroborus-user-de')"},"oroborus-user-de -  German Oroborus Discussion."). $q->br().
						$q->div({-id=>"oroborus-user-de",-class=>"Hidden"},
							$q->br().
							"This mailing list is very similar to the oroborus-user list, except that its language is German..". $q->br(). $q->br().
							"To see the collection of prior postings to the list, visit the ".
							$q->a({-href=>"http://mail.nongnu.org/archive/html/oroborus-user-de"},"oroborus-user-de archives"). ".". $q->br().
							"To post a message to all the list members, send email to ".
							$q->a({-href=>'mailto:oroborus-user-de@nongnu.org'},'oroborus-user-de@nongnu.org'). ".". $q->br().
							"(Un)Subscribe by following instructions on the ".
							$q->a({-href=>"http://mail.nongnu.org/mailman/listinfo/oroborus-user-de"},"list information page"). ".". $q->br().
							"Project administrators could use the ". 
							$q->a({-href=>"http://mail.nongnu.org/mailman/admin/oroborus-user-de"},"mailman administrative interface").
							" to manage the list. ".$q->br().$q->br()
						),

						$q->a({-href=>"javascript:switchShow('oroborus-cvs')"},"oroborus-cvs -  CVS Commits of Oroborus."). $q->br().
						$q->div({-id=>"oroborus-cvs",-class=>"Hidden"},
							$q->br().
							"To see the collection of prior postings to the list, visit the ".
							$q->a({-href=>"http://mail.nongnu.org/archive/html/oroborus-cvs"},"oroborus-cvs archives"). ".". $q->br().
							"To post a message to all the list members, send email to ".
							$q->a({-href=>'mailto:oroborus-cvs@nongnu.org'},'oroborus-cvs@nongnu.org'). ".". $q->br().
							"(Un)Subscribe by following instructions on the ".
							$q->a({-href=>"http://mail.nongnu.org/mailman/listinfo/oroborus-cvs"},"list information page"). ".". $q->br().
							"Project administrators could use the ". 
							$q->a({-href=>"http://mail.nongnu.org/mailman/admin/oroborus-cvs"},"mailman administrative interface").
							" to manage the list. "
						)
						]
					)
				)
			),
		),
		$q->Tr(
			$q->td({-class=>"NodeHelp"},
				$q->br(), $q->br(), $q->div({-class=>"Help"},"To show the details for a mailing list click on the title.")
			)
		)
	);
}

# return a true value
1;
__END__