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

#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("Links")
			)
		),
		$q->Tr(
			$q->td(
				$q->ul(
					$q->li([
						$q->a({-href=>"http://www.dreamind.de/"}, "The maintainer of Oroborus, Stefan Pfetzing, also known as dreamind"),
						$q->a({-href=>"http://freshmeat.net/browse/989/?topic_id=989"}, "The Oroborus section at freshmeat.net"),
						$q->a({-href=>"http://themes.freshmeat.net/browse/990/?filter=990&topic_id=990"}, "The Oroborus themes section at freshmeat.net"),
						$q->a({-href=>"http://www.edazzle.net/#oroborus"}, "Oroborus Theme Changer"),
						$q->a({-href=>"http://oroborosx.sourceforge.net/"}, "OroborOSX, a fork of Oroborus 1.0 specialized for Mac OS X"),
						$q->a({-href=>"http://www.ls-itc.de/"}, "LS-ITC - thanks for maintaining the oroborus.org and dreamind.de domains")
						]
					)
				)
			)
		)
	);
}

# return a true value
1;
__END__