#!/usr/local/bin/perl

print "Content-type:application/rss+xml\n\n";
#print "Content-type:text/html\n\n";

print <<__EOQ__;
<?xml version="1.0" ?>
    <rss version="2.0">

    <channel>

    <title>kisrael.com</title>
    <description>quotes links and thoughts daily. worth the click.</description>
    <link>http://kisrael.com</link>


__EOQ__

 
open(LATEST,"../frontpage.ptr");
while(defined($doentry = <LATEST>)){
chomp $doentry;
($alltitle,$alljournal) = readEntry($doentry);

@buffer = ();
@titlelist = ();
$ptr = 0;
$titlelist[$ptr] = $alltitle;
@lines = split(/\n/,$alljournal);

foreach $line(@lines){


    $line .= "\n";

    if($line =~ /^\<b\>(.*?)\<\/b\>\<br\>/i){
	$grabtitle = $1;
	if($buffer[$ptr] ne ""){
	    $ptr++;
	}
	$grabtitle =~ lc($grabtitle);
	$titlelist[$ptr] = $alltitle."|".$grabtitle;
    } else {
	$buffer[$ptr] .= $line;
    }

}

$ptr = $#buffer;
foreach $buf (reverse @buffer){
    $title = $titlelist[$ptr];
    $journal = $buf;
#add comments
$journal .=qq(<hr><a href="/scripts/comments.cgi?date=$doentry">view comments</a>);

#escape objects
# $journal =~ s/(\<object.*?\<\/object\>)/objectify($1)/gems;
#escape HTML
# $journal = escapeHTML($journal);
#change all relative ="/ to absolute URL
$journal = abslink($journal);
#try escaping out there characters
##$journal = cleanline($journal);

    $entryplus = $doentry."#".$ptr;

print<<__EOQ__;
   <item>
    <title>$title</title>
    <description>$journal</description>
    <guid>http://kisrael.com/viewblog/?date=$entryplus</guid>
    <link>http://kisrael.com/viewblog/?date=$doentry</link>
    </item>



__EOQ__
$ptr--;
} #end looping over entries in day
} #end looping over days
close LATEST;

print <<__EOQ__;

    </channel>

    </rss>

__EOQ__


sub escapeHTML{
    my($j) = @_;
    $j =~ s/\</\&lt\;/g;
    $j =~ s/\>/\&gt\;/g;
	return $j;
}

sub abslink{
    my($j) = @_;
    $j =~ s/\=\"\//\=\"http\:\/\/kisrael\.com\//g;
    return $j;
}

sub readEntry {
    my($file) = @_;
    my $title = "";
    my $journal = "";
    open(READ,"../journal/$file.txt");
    $title = <READ>;
    chomp $title;
    while(defined($next = <READ>)){
	$journal .= $next;
    }
    close READ;
    return ($title,$journal);
}


#replacenon-"ASCII" characters with numeric HTML escape code
sub cleanline
{
    my($rawline) = @_;
    my $resultline = "";

    for($i = 0; $i < length($rawline); $i++)
    {

        $char = substr($rawline,$i,1);
        if(ord($char) < 128)
        {
            $resultline .= $char;
        } else {
            $resultline .="\&\#".ord($char).";";
        }

    }
    return $resultline;
}




#find src of embedded objects and replace...
sub objectify {
    my($raw) = @_;
    if($raw =~ /src\=\"(.*?)\"/){
        return <<__EOQ__;
EMBEDDED OBJECT: <a href="$1">$1</a><br>
__EOQ__
} else {
}
    return "EMBEDDED OBJECT<br>";

}