#!/usr/bin/perl

use strict;

my $basedir = '/home/www/cgi-bin/quotebase';

require "$basedir/quote_generator.pl";

my @files = ('bere','hack','linux','vorbe','topics','murphy','bofh-excuses');

srand(time() % $$);

my $idx = rand($#files + 1);

my($quote,$info) = &quote_generator("$basedir/data/$files[$idx]");

print "Content-type: text/html\n\n$quote\n";