#!/usr/bin/perl -T # Copyright (c) 1998 Moogle Stuffy, Inc. All rights reserved. # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. # Input: # noframes: 1|0 # No frames? # text: 1|0 # Text-only? # sort: 1|0 # Sort chronologically? # size: 5|10|15|0|10 # How many images per page? # quote: # Add quote. # click.x|click.y: # Quote box. $|++; srand; use lib qw(../lib); use CGI; my $q = new CGI; my $quote = $q->param('quote'); my $click = grep /^click/, $q->param; # Delete stray name/value pairs. my %keep = map {$_, 1} qw[noframes text sort size]; for ($q->param) { $keep{$_} or $q->delete($_); } my $query_string = $q->query_string; my $target = $q->param('noframes') ? '_top' : 'art_side'; # Check current preferences. my ($size) = map {defined && /^\d+$/ ? $_ : 10} scalar $q->param('size'); my @size_options = map { "