#!/usr/bin/perl
# 
#  Credits.pm - Perlmodule which computes the Credits 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::Imprint;

#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();
	return $q->table({-width=>"100%",
		-cellpadding=>"0",
		-cellspacing=>"0"},
		$q->Tr(
			$q->td(
				$q->h2("Contact")
			)
		),
		$q->Tr(
			$q->td(
				$q->p(
					"The Maintainer of Oroborus is ",
					$q->a({-href=>"mailto:dreamind AT dreamind DOT de"}, 'Stefan Pfetzing < dreamind AT dreamind DOT de >'),
					".", $q->br(),
					"When you have any problems with Oroborus or just want to say that its working fine, he is always happy to recieve mail."
				),
				$q->p(
					"There is also an IRC channel on irc.oftc.net, named #oroborus, where you often can reach the maintainer and other people who can help with oroborus."
				)
			)
		),
		$q->Tr(
			$q->td(
				$q->h2("Imprint")
			)
		),
		$q->Tr(
			$q->td(
				$q->p(
					"Post Address:",
						$q->br(),
						$q->br(),
					"Stefan Pfetzing",
						$q->br(),
					"Pommernstrasse 2",
						$q->br(),
					"64297 Darmstadt-Eberstadt",
						$q->br(),
				),
			)
		),
		$q->Tr(
			$q->td(
				$q->h2("Credits"),
			)
		),
		$q->Tr(
			$q->td(
				$q->ul(
					$q->li([
						$q->a({-href=>"mailto:mhelas AT helas DOT net"},
						'Martin Helas < mhelas AT helas DOT net >').$q->br().
							"for helping much with this site and for testing Oroborus CVS releases very often,",
						'Michael Löffler < michael AT opengroups DOT de >'.$q->br().
							"for debugging Oroborus and helping me with the transition to C++,",
						"Brandon L. Griffith".$q->br().
							"for packaging Oroborus for debian,",
						"Martin Hedenfalk".$q->br().
							"for creating ".$q->a({-href=>"http://www.stacken.kth.se/~mhe/oroborus.shtml"},"oroborus-config")." (even if its still alpha),",
						"Martin Brotzeller".$q->br().
							"for creating the \"new\" logo of Oroborus,",
						"and of course all the other supporters and users of oroborus."
						]
					)
				)
			)
		)
	);
}

# return a true value
1;
__END__