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

#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("Some Screenshots")
			)
		),
		$q->Tr(
			$q->td(
				$q->ul(
					$q->li([
						$q->a({-href=>"/files/screenshots/2003-01-28_01:12:13_craybook_scrot.jpg"},"Shot 1") . "  -  with Nautilus 2.2 open and gnububble GTK2 theme",
						$q->a({-href=>"/files/screenshots/2003-01-28_01:11:24_craybook_scrot.jpg"},"Shot 2") . "  -  same GTK2 theme as above and you can see the menu design here (of gnububble)",
						$q->a({-href=>"/files/screenshots/2003-01-28_01:10:17_craybook_scrot.jpg"},"Shot 3") . "  -  Xchat 2.0 open, GnomeICU and using the menu panel",
						$q->a({-href=>"/files/screenshots/2003-01-28_01:09:42_craybook_scrot.jpg"},"Shot 4") . "  -  nearly the same as the one above",
						$q->a({-href=>"/files/screenshots/2003-01-28_01:09:33_craybook_scrot.jpg"},"Shot 5") . "  -  empty GNOME desktop",
						$q->a({-href=>"/files/screenshots/"},"Other") . "  -  you can find a lot more screenshots here"
						]
					)
				),
			)
		)
	);
}

# return a true value
1;
__END__