#!/usr/bin/perl
#
# Random web search
# Generates a random word or phrase (or adds a new one) from a list to be searched for on Google.
# Example used on http://www.randomwebsearch.com 
# Dan Cederholm (dan@cederholm.org)
# January 2003
#

use strict;
use CGI;

# set parameters

my $wordList = "./wordlist.txt";
my $site ="http://www.YOURSITEHERE.com";
my $q = new CGI();
my $mode = $q->param("mode");
my $newWord = $q->param("newWord");
my $rws = $q->param("rws");

# decide what to do based on $mode

for ($mode) {
	if (/write/)	{ &modeWrite; }
	elsif (/add/)	{ &modeAdd; }
	elsif (/generate/)	{ &modeGenerate; }
	else { &modeDefault; }
}

# add new word 

sub modeWrite {
	open FILE,">>$wordList";
	print FILE "$newWord\n";
	close FILE;
	chmod 0777, "$wordList";
	print "Content-type: text/html;\n\n";
	print "<h3>Random Web Search</h3> New word <strong>\"$newWord\"</strong> has been added to the list. <a href=\"/cgi-bin/randomWebSearch.pl\">Back to RWS</a>";
}

# submit new word

sub modeAdd {
	print "Content-type: text/html;\n\n";
	print "<h3>Random Web Search</h3>
	<form name=\"random\" action=\"$site/cgi-bin/randomWebSearch.pl\">
	<input type=\"hidden\" name=\"mode\" value=\"write\" />
	<input type=\"text\" name=\"newWord\" size=\"50\" />
	<input type=\"submit\" value=\"add new word\" />
	</form>";
}

# generate random word

sub modeGenerate {
	srand; 
	open(FILE,"$wordList"); # put the file contents into an array
	my @file = <FILE>;
	close(FILE);
	
	foreach (@file) {chomp} # remove the newlines
	my $word = $file[rand($#file)]; # select a random line

    print "Location: $site/cgi-bin/randomWebSearch.pl?rws=$word\n\n";
}

# default mode

sub modeDefault {
	print "Content-type: text/html;\n\n";
	print "<h3>Random Web Search</h3>
	<form action=\"http://www.google.com/search\" name=\"f\">
	<input type=\"text\" name=\"q\" size=\"50\" value=\"$rws\" />
	<input type=\"button\" onclick=\"window.location='$site/cgi-bin/randomWebSearch.pl?mode=generate';\" value=\"Generate Random Word(s)\">
	<input type=\"submit\" value=\"search with Google\" />
	<a href=\"$site/cgi-bin/randomWebSearch.pl?mode=add\">Add a word</a>
	</form>";
}


exit;