#!/usr/bin/perl
################################################################################
#                                                                              #
# ############################################################################ #
# # Title       : wotd.pl                                                    # #
# # Description : Word-of-the-day! script based on code from randword.pl     # #
# #               (grabs a word from zokutou.co.uk then displays it).        # #
# #               Currently just prints a word to the command line when      # #
# #               invoked.                                                   # #
# # Coded by    : Justin "HEYO--!" Lee                                       # #
# # Version     : 01.02.00.00                                                # #
# # Date        : 2008-12-15                                                 # #
# # License     : GNU General Public License v.2                             # #
# #               Copyright (C) 2008  Justin Lee  <kool.name at gmail.com>   # #
# ############################################################################ #
#                                                                              #
# ############################################################################ #
# # This program is free software; you can redistribute it and/or            # #
# # modify it under the terms of the GNU General Public License version 2    # #
# # as published by the Free Software Foundation.                            # #
# #                                                                          # #
# # 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., 51 Franklin Street, Fifth Floor, Boston, MA            # #
# # 02110-1301, USA.  Or, see: <http://www.gnu.org/licenses/>                # #
# ############################################################################ #
#                                                                              #
################################################################################

 #################
 # GENERAL NOTES #
##################
# This script requires a copy of
# HTML::Scrape by pc486.  He can
# be found on IRC Aniverse or at
# <tristan.willy at gmail.com>.
#
# It also requires a copy of Dean's
# HTML::Scrape::Tie::Word (lol).  You
# can find him at the same place or
# at <kool.name at gmail.com>.
#
# Just drop them in your personal lib,
# or in perl's lib if you're lazy.
# If you use perl's lib, you need
# to comment out the "use lib" line
# (see CONFIG NOTES).

 # config #
use constant {
  URL => 'http://www.zokutou.co.uk/randomword/index.php',
  LIB => join('/',split(/(?:\\|\/)+/,$ENV{'USERPROFILE'}),'library','perl'),
  GET => 1,
  TSM => 'ZOKUTOU',
};

 ################
 # CONFIG NOTES #
#################
# URL: Don't change unless you're really
#      adventurous, you'll need to change
#      the scrape engine as well (see $s
#      in the TIESCALAR subroutine).
#
# LIB: Change this to whatever your
#      "personal" lib is, where you put
#      HTML::Scrape. If you put in in
#      perl's lib (either), then just
#      comment out the < use lib LIB; >
#      line.
#
# GET: How many words to get at once, it's
#      limited to 3. If you put it higher
#      the script will ignore GET and only
#      grab one at a time.
#
# TSM: The scrape machine to use. For now
#      the only choices are 'ZOKUTOU' and,
#      well... 'ZOKUTOU'.

 # script #
use lib LIB;
use strict;
use warnings;
use HTML::Scrape::Tie::Word; # (yay!)

die unless (
  tie my $word,                  # what we're gonna tie() to
      'HTML::Scrape::Tie::Word', # module we're using
      ( URL, TSM, GET )          # it's config
);

print 'Random word: ' . $word;
untie $word;