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

#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("Known Bugs of Oroborus")
			)
		),
		$q->Tr(
			$q->td(
				$q->p(
					"You can view the list of filed bugs against Oroborus in the ",
					$q->a({-href=>"http://bugs.debian.org/"},"Debian bug tracking system").":",
				),
				$q->ul(
					$q->li([
						$q->a({-href=>"http://bugs.debian.org/cgi-bin/pkgreport.cgi?pkg=oroborus"},"Oroborus"),
						$q->a({-href=>"http://bugs.debian.org/cgi-bin/pkgreport.cgi?pkg=keylaunch"},"KeyLaunch"),
						$q->a({-href=>"http://bugs.debian.org/cgi-bin/pkgreport.cgi?pkg=deskmenu"},"DeskMenu"),
						$q->a({-href=>"http://bugs.debian.org/cgi-bin/pkgreport.cgi?pkg=desklaunch"},"DeskLaunch")
						]
					)
				),
				$q->p(
					" or on ",
					$q->a({-href=>"http://savannah.nongnu.org/bugs/?group=oroborus"},"Savannah")."."
				)
			)
		)
	);
}

# return a true value
1;
__END__