#!/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 "<head><title>Talk To Me</title></head>\n";
    print "<body><h2>You Don't Talk, I Can't Act</h2><hr><br>\n";
    print "You did not specify an action, so I can't do anything for you.";
    print "Please re-enter your comments.";
    print "</body>\n";
    exit;
}

sub send_top	# send page introduction
{
    print "<head><title>${title}</title></head>\n";
    print "<body>";
    print "<h1>${title}</h1><hr><br>\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.<br><br>";
    print "In case you're wondering... fetching a file does not ";
    print "increase its vote "; 
    print "total, only voting does.<br><hr><br>";
}

sub send_trailer
{
    print "Form created by <a href=\"http://http.bsd.uchicago.edu/~d-hillman/info/juke/\">jukebox.cgi</a>";
    print "</body>\n";
}







