#!/store/bin/perl
# Jukebox.cgi Version 0.93
# Copyright (c) 1995, David Hillman
#
# Jukebox.cgi and its companion script Juke-action.cgi implement a
# Jukebox-like (surprise!) interface between Web surfers and a directory of
# {sound|image|text} files.
#
# For more details, and configuration information, read the included
# README file.
#
# 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 of the License, 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., 675 Mass Ave, Cambridge, MA 02139, USA.
#
# David Hillman, d-hillman@uchicago.edu
$title = "The Complete Chocolate Archives";
require "cgi.pl";
#$page = "filename_of_appropriate_jukebox.cgi_script";
$page= "/local/www/cgi-bin/olavbin/juke/jukebox/jukebox.cgi";
#$action = "filename_of_appropriate_jspin.cgi_script";
$action = "/local/www/cgi-bin/olavbin/juke/jukebox/jspin.cgi";
$how_many = "5";
$play = "Get"; # Name of 'Fetch'
$vote = "Vote For"; # Name of 'Vote' checkbox
$submit = "Do This"; # Label of 'Submit' button
$base = "/local/www/cgi-bin/olavbin/juke/jukebox/sjoko_data/liste"; # Both $base and $tempbase
$tempbase = "/local/www/cgi-bin/olavbin/juke/jukebox/sjoko_data/temp"; # must be in world writable
$storage_dir = "/~olavs/sjoko/juke/jukebox/data/"; # directories ( known bug )
$mime_type = "text/plain"; # "audio/basic" for .au sounds
$error_log = "local/www/cgi-bin/olavbin/juke/jukebox/error/";
sub blank_response
{
print "Content-type: text/html\n\n";
print "Talk To Me\n";
print "You Don't Talk, I Can't Act
\n";
print "You did not specify an action, so I can't do anything for you.";
print "Please re-enter your comments.";
print "\n";
exit;
}
sub send_top # send page introduction
{
print "${title}\n";
print "";
print "${title}
\n";
print "Welcome to my collection of chocolate recipes. The $how_many most popular recipes are ";
print "displayed below, and the remainder are available in the ";
print "pull-down ";
print "menu further down the page.
";
print "In case you're wondering... fetching a file does not ";
print "increase its vote ";
print "total, only voting does.
";
}
sub send_trailer
{
print "Form created by jukebox.cgi";
print "\n";
}