#!/usr/bin/perl
# TmNetWiki version 0.4 (September 11, 2002)
# Copyright (C) 2002 Adam Brate
#   <ab@adambrate.com> 
# Based on the GPLed UseModWiki 0.92
# Copyright (C) 2000-2001 Clifford A. Adams
#    <caadams@frontiernet.net> or <usemod@usemod.com>
# Based on the GPLed AtisWiki 0.3  (C) 1998 Markus Denker
#    <marcus@ira.uka.de>
# ...which was based on
#    the LGPLed CVWiki CVS-patches (C) 1997 Peter Merel
#    and The Original WikiWikiWeb  (C) Ward Cunningham
#        <ward@c2.com> (code reused with permission)
# Email and ThinLine options by Jim Mahoney <mahoney@marlboro.edu>
#
# 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.
#    59 Temple Place, Suite 330
#    Boston, MA 02111-1307 USA

package Wiki::quotes;
use strict;

use base 'Exporter';
use Wiki::consts;
use Wiki::file;

#if ($^V and $^V gt v5.6.0) {
#    our @EXPORT;
#else {
    use vars qw(@EXPORT);
#}
@EXPORT = qw(
 GetQuote
);

sub GetQuote {
    my @quotes = &ReadQuoteFile;
    return "" if $#quotes == 0;
    my $quote = '';
    while ($quote eq '') { 
	$quote = &ParseQuoteLine($quotes[int(rand($#quotes + 1))]); 
    }
    return $quote->{text} ."\n<br>\n--".&Wiki::template::GetPageLink($quote->{author});
}

sub ParseQuoteLine {
    my ($quoteline) = @_;
    my ($quote);
    (my ($text,$source,$author,$year) = ($quoteline =~ 
	       m|(.*)--<i>(.*)</i> <a class='author'>(.*)</a> \((.*)\)|)) || return '';
    $quote = {
	text => $text,
	source => $source,
	author => $author,
	year => $year
	};
    return $quote;
}

sub ReadQuoteFile {
    my ($status,$fileData,@quotes);
    ($status, $fileData) = &ReadFile($Consts->{QuoteFile});
    return '' if !$status;
    @quotes = split(/\n/,$fileData);
    return @quotes;
}

1;