#!/usr/bin/perl

# make-rss.pl - create rss feed

# Eric Lease Morgan <eric_morgan@infomotions.com>
# 2004-12-02 - first cut
# 2004-12-04 - added random musing
# 2004-12-06 - added item from the archives; added keywords and source to description
# 2006-10-14 - moved to wilson


# include/require
use constant RSSOUT  => '/disk01/www/html/main/musings/musings.rss';
use constant WEBROOT => 'http://infomotions.com';
use Musings::Article;
use Musings::Subject;
use DateTime;
use strict;

# startr output
open (RSS, '> ' . RSSOUT);
print RSS '<?xml version="1.0"?>';
print RSS '<rss version="2.0"><channel>';
print RSS "<title>Infomotions' Musings on Information and Librarianship</title>";
print RSS '<link>http://infomotions.com/musings/</link>';
print RSS '<description>This is a list of travel logs, software descriptions, formally published articles, or presentation handouts. Four are the most recently written. One is randomly chosen, and one is selected from the archives. All of these items, Musings on Information and Librarianship, were written by Eric Lease Morgan.</description>';
print RSS '<language>en-us</language>';
print RSS '<copyright>Copyright '. DateTime->now->year . ', Infomotions, Inc. This document is distributed under the GNU Public License.</copyright>';
print RSS '<generator>make-rss.pl</generator>';
print RSS '<category>libraries, librarians, &amp; librarianship</category>';
print RSS '<managingEditor>eric_morgan@infomotions.com</managingEditor>';
print RSS '<webMaster>eric_morgan@infomotions.com</webMaster>';
print RSS '<lastBuildDate>' . &buildDate(DateTime->now->ymd) . '</lastBuildDate>';
print RSS '<textInput>';
print RSS '<title>Go</title>';
print RSS '<description>Search Musings</description>';
print RSS '<name>query</name>';
print RSS '<link>http://infomotions.com/?cmd=search</link>';
print RSS '</textInput>';
print RSS '<image>';
print RSS '<url>http://infomotions.com/logo.gif</url>';
print RSS '<title>Infomotions, Inc.</title>';
print RSS '<link>http://infomotions.com/</link>';
print RSS '</image>';

# get all the articles/musings; nice Perl module!
my @articles = Musings::Article->get_articles (sort => 'date');

# get a random musing; cool random function gotten from http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=155&lngWId=6
my $lower = 4; 
my $upper = $#articles;
my $random = int(rand($upper - $lower + 1)) + $lower; 
my $article = @articles[$random];
$article->article_title('Random Musing: ' . $article->article_title);
#&printOne($article);

# create archive musing
if ($ARGV[0]) {

	my $article = Musings::Article->new(id => $ARGV[0]);
	$article->article_title('From the archives: ' . $article->article_title);
	&printOne($article);

}

# process the most recent 10 musings
for (my $i = 0; $i < 100; $i++) { &printOne(@articles[$i]) }

# cleanup and quit
print RSS '</channel></rss>';
close RSS;
exit;


sub printOne {

	my $article = shift;
	print RSS '<item>';
	print RSS '<title>' . &escape($article->article_title) . '</title>';
	print RSS '<link>' . WEBROOT . $article->article_path . '</link>';
	my @subject_ids = $article->subject_ids;
	my $keywords;
	foreach (@subject_ids) {
	
		my $subject = Musings::Subject->new(id =>$_);
		print RSS '<category>' . &escape($subject->subject_term) . '</category>';
		$keywords .= $subject->subject_term . '; ';
		
	}
	print RSS '<description>' . &escape($article->article_note . '<ul><li><b>Keywords</b>: ' . $keywords . '</li><li><b>Source</b>: ' . $article->article_source . '</li></ul>') . '</description>';
	print RSS '<pubDate>' . &buildDate($article->article_date). '</pubDate>';
	print RSS '</item>';

}

sub buildDate {

	my $date = shift;
	my ($year, $month, $day) = split('-', $date);
	my $dt = DateTime->new(year => $year, month => $month, day => $day, time_zone => 'America/Indianapolis');
	my $rv = $dt->strftime("%a, %d %b %Y %H:%M:%S %z");
	return $rv;
	
}

sub escape {

    my $text = shift;
    $text =~ s/&/&amp;/g;
    $text =~ s/</&lt;/g;
    $text =~ s/>/&gt;/g;
    return($text);
    
}