#!/usr/bin/perl -w
use strict; use warnings;

use constant SAVEAS => '/cgi-bin/dat/pmnewestnodes.htmlpart';

# auto-flush STDOUT
++$|;

# globals
use vars qw( $dbh );

# libraries
use DBI;
use XML::RSS::Parser;
use File::Util;

# connect to DB
$dbh = DBI->connect(
   q[DBI:mysql:] .
   qq[database=myrssfeeds;] .
   qq[host=localhost;] .
   qq[port=3306],
   'rssbot',         # username
   '^r$$p@$$w0rD!',  # password
   { 'RaiseError' => 0 }
) or die qq[Aborting!  Failed to connect to database: $DBI::errstr];

# grab feed from DB
my($rss) = ($dbh->selectrow_array(
   q[SELECT content FROM feeds WHERE feedurl = ?],
   undef, 'http://perlmonks.org/index.pl?node_id=30175&xmlstyle=rss'
))[0] or die q{Couldn't get RSS from DB! } . $DBI::errstr;

# parse feed
$rss = XML::RSS::Parser->new()->parse_string($rss);

die $rss->query('/channel/title');

# html-ify content
my($output) = '';

foreach my $i ( $rss->query('//item') ) {
   my($node) = $i->query('title');
   print $node->text_content, "\n";
}

File::Util->new->write_file(
   'filename' => SAVEAS,
   'content'  => $output
);

print $output;

print qq[DONE.  RSS PARSED AND SAVED AS HTML IN "${\ SAVEAS }"\n];

# disconnect if not already disconnected
END { $dbh->disconnect() if defined $dbh }