#!/usr/local/bin/perl

push @INC, "/u2/www/users/chess/davidchess/toys";

use Weblibs;


my @l = get_libs();

my $o = new Weblibs::Libset(@l);
$o->{scripturl} = "http://www.davidchess.com/toys/WLToy.cgi";

# Do a little tailoring
$o->{menutitle} = "";
$o->{menu_intro_text} = <<"EOD";
<center>
<b>Pick a Weblib!</b><p>
(Yeah, I know these are kind of simple and cheesy; if you have
better ones that you're willing and able to give away, send
them to <a href="mailto:weblibs\@davidchess.com">me</a>!)<p>
EOD

$o->{standard_prolog} = <<"EOD";
<table width=100%><tr>
<td bgcolor=black height=45 valign=center><center>
<a href="http://www.davidchess.com/toys.html">
<font size=+2 color=white>toys</font></a></center>
</td></tr></table><center>
<table width=80%><tr><td>
EOD

$o->{standard_epilog} = <<"EOD";
</td></tr></table></center>
<table width=100%><tr>
<td bgcolor=black height=45 valign=center><center>
<a href="http://www.davidchess.com/toys.html">
<font size=+2 color=white>toys</font></a></center>
</td></tr></table>
</body></html>
EOD

# Run it!
print $o->getCgiPage();

exit;

sub get_libs {

  return (

{
   hinttitle => "Number One",
   fulltitle => "Weblibs",
   body => <<"EOD"
Mad Libs, by Price Stern [name of person in room], is a
popular [adjective] game, enjoyed by [plural noun] of all ages.
The game that you are [verb ending in "ing"] now is
Weblibs, a variation of Mad Libs for the World Wide [noun].
<p>
Weblibs is available from the "Toys" page of davidchess.com,
as a Perl [noun] which makes it easy to set up your own
Weblibs page as a CGI [noun].
The module is available absolutely free, because the
author is a/n [adjective] person, and knows that
information wants to be [adjective].
<p>
The Weblibs module is [adverb] tailorable, giving you
the [noun]master [adjective] control over the HTML that
it produces.
But if you're [adjective], Weblibs' [adjective] defaults
mean that it works [adverb] right "out of the [noun]".
<p>
We hope that you enjoy [verb ending in "ing"] Weblibs,
and that it gives you many [plural noun] of [noun]!
EOD
},
{
   hinttitle => "Number Two",
   fulltitle => "Wise Sayings",
   body => <<"EOD"
An idle [noun] is the Devil's [noun].<p>
A rolling [noun] gathers no [noun].<p>
Look before you [verb].<p>
Too many cooks [verb] the [food item].<p>
A [noun] in time saves [a number].<p>
There's no use [verb ending in "ing"] over spilled [liquid].<p>
Better [adjective] than [adjective].<p>
Sticks and [plural noun] may [verb] my [plural noun], but names
will never [verb] me.<p>
You can [verb] more flies with [a food] than you can with [a liquid].<p>
Don't [verb] your chickens before they're [adjective].
EOD
},
{
   hinttitle => "Number Three",
   fulltitle => "Computer Users",
   body => <<"EOD"
The most common kind of computer user is the "end-user", or [noun].
End users have only [adjective] computer skills, and use mostly
common application programs, like Microsoft [noun], or [noun] Pro.
End users tend to call support lines with simple questions, like
"Where is the [noun] key?", or "why is the mail system [adjective] again?".
<p>
Less common are "power users".
Power users know just enough to be dangerous, and often
render their computers completely [adjective], by
editing [adjective] files, or manually [verb ending in "ing"] the
system registry.
Power users tend to call support lines convinced that they
already know the cause of their [adjective] problem, saying
things like "The [noun] is [adjective] again", or "The
server is [adjective]", when the real problem is that
they have accidentally [verb, past participle] the [noun].
EOD
} ,
{
   hinttitle => "Number Four",
   fulltitle => "The Perl 5 Desktop Reference",
   body => <<"EOD"
This well-[verb, past participle] booklet gives you [adjective] access
to the vast [noun] of features in Perl.
It is up to [noun] with version [a number].
Perl is a [noun] for easily [verb ending in "ing"] text,
files, and [plural noun].
<p>
You will find here a complete [noun] of the language,
from [plural noun] to input and [noun], from flow control
to [adjective] expressions, from functions to [adjective] formulas --
all [verb, past tense] into a convenient, [verb]-around [noun].
EOD
} ,
{
   hinttitle => "Number Five",
   fulltitle => "Rhymes",
   body => <<"EOD"
Twinkle, Twinkle, [adjective] star,<br>
How I [transitive verb] what you are,<br>
Up above the [noun] so high,<br>
like a [noun] in the sky.<p>

Mary had a little [noun],<br>
Its [noun] was [adjective] as snow,<br>
And everywhere that Mary [verb, past],<br>
The [noun] was sure to [verb].<p>

Jack and [person in room] went up the [noun]<br>
To fetch a [container] of [liquid].<br>
Jack fell [a direction] and broke his [body part],<br>
And Jill came [verb ending in "ing"] after.

EOD
} ,
);
}