#!/usr/bin/perl 
####################################################################################
# by Brian Cartmell RSS Feeds from MYSQL
####################################################################################

use strict;
use lib ("/usr/home/www/petster.com/lib/");
use Database qw( mysql_connect );
use CGI;

####################################################################################


## Connect to DB server
my $dbh = mysql_connect();

my $aboutme;
my $nickname;
my $profile_id;
my $blogdesc;
my $title;
my $petname;
my $ownername;

## Get the profile
my $tpl;
while (<IN>) { $tpl .= $_; }
close(IN);


## Get blogs entries
my $query = qq~
  SELECT blog_title, blog, date, blog_id, c.nickname as petname, b.nickname as ownername
  FROM blogs a
  LEFT JOIN profiles b ON b.profile_id = a.profile_id
  LEFT JOIN pets c ON c.pet_id = a.pet_id
  ORDER by blog_id
  DESC
  LIMIT 100
~;

my $sth = $dbh->prepare($query);
my $rv = $sth->execute;

my $count = 0;
my $fullcount = 0;

# Print Header
print <<E0F; 
Content-type: text/xml


<rss version="2.0">
<channel>
<title>Petster.com RSS Feed</title>
<link>http://www.petster.com</link>  
<description>Check out Petster.com</description>
<language>en-us</language>
<lastBuildDate>2006-01-02 01:01:01</lastBuildDate>
<pubDate>2006-01-01 01:01:01</pubDate>
<docs>http://media.petster.com/cgi/frontpagerss.cgi</docs>

E0F

while (my $blog = $sth->fetchrow_hashref) {

$petname = $blog->{petname};
$ownername = $blog->{ownername};

$ownername =~ s/ /%20/g;
$petname =~ s/ /%20/g;

$blogdesc = $blog->{blog};
$blogdesc =~ s/<[a-zA-Z\/][^>]*>//g;
$blogdesc =~ s/&/&amp;/g; 
$blogdesc =~ s/</&lt;/g;
$blogdesc =~ s/'/&apos;/g;
$blogdesc =~ s/"/&quot;/g;
$blogdesc =~ s/>/&gt;/g;
$blogdesc =~ s/(.)/(ord($1) > 127) ? "" : $1/egs;

$title = $blog->{blog_title};
$title =~ s/<[a-zA-Z\/][^>]*>//g;
$title =~ s/&/&amp;/g;
$title =~ s/</&lt;/g;
$title =~ s/'/&apos;/g;
$title =~ s/"/&quot;/g;
$title =~ s/>/&gt;/g;
$title =~ s/(.)/(ord($1) > 127) ? "" : $1/egs;

print <<E0F;

<item>
<title>$blog->{petname} : $title : Petster.com </title>
<link>http://www.petster.com/blogs/$ownername/$petname/$blog->{blog_id}</link>
<description>$blogdesc</description>
<pubDate>$blog->{date}</pubDate>
</item>
E0F

}

print <<E0F;

</channel>
</rss>
E0F


## Finish Up
exit(0);

####################################################################################