#!/usr/bin/perl
#
# Þetta forrit býr til RSS með fyrirsögnum Textavarpsins.
#
# Höfundur: Bjarni Rúnar Einarsson, http://bre.klaki.net/
# Dagssetning: 14.06.2002
#
# ATH:  Þetta forrit er hamar - ef þú lemur einhvern með hamrinum þá er 
# það ekki höfundinum að kenna!  Notkun sem brýtur í bága við höfundarrétt 
# viðkomandi vefsvæða er óheimil og á ábyrgð notandans, ekki höfundarins.
#
use LWP::Simple;

my $url = shift @ARGV;
my $prefix = shift @ARGV;
my $mode = shift @ARGV;
my $page = get($url);

my $pagename = "Some Blog.";
if ($page =~ /<title>(.*?)<\/title>/is)
{
	$pagename = $1;
}

my $escpre = xmlesc($prefix);
print <<EOF;
<?xml version="1.0" encoding="ISO-8859-1"?>
<!DOCTYPE rss PUBLIC "-//Netscape Communications//DTD RSS 0.91//EN" "http://www.scripting.com/dtd/rss-0.91.dtd" >
<rss version="0.91">
<channel>
<title>$pagename</title>
<link>$escpre</link>
<description>Autogenerated $id.rss</description>

EOF

# Process it!
$page =~ s/^.*<PRE[^>]*>(.*?)<\/PRE>.*$/$1/is;
while ($page =~ s/^(.*<a\s+[^>]*href=\"\/(\d+\/)\">\d+<\/A>.*)$//im)
{
	my ($url, $title) = ($2, $1);

	$url = $prefix.$url;
	
	$title =~ s/<[^>]+>(\d+<\/A>)?//gi;
	$title =~ s/^\s*//;
	$title =~ s/\s*$//;

	$sum = $title;
	$sum =~ s/[^a-zA-Z0-9]//g;
	
	print "<item>\n";
	print "\t<title>", xmlesc($title), "</title>\n";
	print "\t<link>", xmlesc("$url#$sum"), "</link>\n";
	print "</item>\n";
}
print "</channel>\n</rss>\n";

sub xmlesc
{
   my $text = shift;
   $text =~ s/&/&amp;/g;
   $text =~ s/</&lt;/g;
   $text =~ s/>/&gt;/g;
   return $text;
}