111 lines
4.3 KiB
Perl
111 lines
4.3 KiB
Perl
#-------------------------------------------------------------------
|
|
# WebGUI is Copyright 2001-2002 Plain Black Software.
|
|
#-------------------------------------------------------------------
|
|
# Please read the legal notices (docs/legal.txt) and the license
|
|
# (docs/license.txt) that came with this distribution before using
|
|
# this software.
|
|
#-------------------------------------------------------------------
|
|
# http://www.plainblack.com info@plainblack.com
|
|
#-------------------------------------------------------------------
|
|
|
|
BEGIN {
|
|
unshift (@INC, "./lib");
|
|
}
|
|
|
|
use DBI;
|
|
use HTTP::Request;
|
|
use LWP::UserAgent;
|
|
use strict;
|
|
use Data::Config;
|
|
use WebGUI::SQL;
|
|
use XML::RSS;
|
|
|
|
my $config = new Data::Config './etc/WebGUI.conf';
|
|
our $dbh = DBI->connect($config->param('dsn'), $config->param('dbuser'), $config->param('dbpass'));
|
|
|
|
deleteExpiredSessions();
|
|
updateSyndicatedContent();
|
|
|
|
$dbh->disconnect();
|
|
|
|
#-------------------------------------------------------------------
|
|
sub deleteExpiredSessions {
|
|
WebGUI::SQL->write("delete from session where expires<".time(),$dbh);
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub getRSS {
|
|
my ($rss, $userAgent, $request, $response);
|
|
$userAgent = new LWP::UserAgent;
|
|
$request = new HTTP::Request (GET => $_[0]);
|
|
$response = $userAgent->request($request);
|
|
$rss = new XML::RSS;
|
|
$rss->parse($response->content);
|
|
return $rss;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub generateHTML {
|
|
my ($rss, $image, $content, $copyright, $title, $link, $description, $name, $url, $item, $html, $width, $height);
|
|
$rss = $_[0];
|
|
#-- image
|
|
$url = $rss->{'image'}->{'url'};
|
|
if ($url) {
|
|
$link = $rss->{'image'}->{'link'} || "";
|
|
$title = $rss->{'image'}->{'title'} || "";
|
|
$width = $rss->{'image'}->{'width'} || "";
|
|
$height = $rss->{'image'}->{'height'} || "";
|
|
$width = 'width="'.$width.'"' if ($width);
|
|
$height = 'height="'.$height.'"' if ($height);
|
|
$image = '<img src="'.$url.'" alt="'.$title.'" border=0 $width $height>';
|
|
$image = '<a target="_NEWSITEM" href="'.$link.'">'.$image.'</a>' if ($link);
|
|
}
|
|
#-- items
|
|
$html = ($image) ? '<div align="center">'.$image.'</div>' : "";
|
|
foreach $item (@{$rss->{'items'}}) {
|
|
next unless defined($item->{'title'}) && defined($item->{'link'});
|
|
$title = $item->{'title'} if (defined ($item->{'title'}));
|
|
$description = $item->{'description'} if (defined ($item->{'description'}));
|
|
$url = $item->{'link'} if (defined ($item->{'link'}));
|
|
$html .= "<li><a target='_NEWSITEM' href='$url'>$title</a><br>\n";
|
|
}
|
|
#-- form
|
|
$title = $rss->{'textinput'}->{'title'};
|
|
if ($title) {
|
|
$link = $rss->{'textinput'}->{'link'};
|
|
$description = $rss->{'textinput'}->{'description'};
|
|
$name = $rss->{'textinput'}->{'name'};
|
|
$html .= '<p><form method="get" action="'.$link.'">';
|
|
$html .= $description.'<br>';
|
|
$html .= '<input type="text" name="'.$name.'"><br>';
|
|
$html .= '<input type="submit" value="'.$title.'"></form>';
|
|
}
|
|
$copyright = $rss->{'channel'}->{'copyright'};
|
|
#-- copyright
|
|
if ($copyright) {
|
|
$html .= "<p><sub>$copyright</sub></p>";
|
|
}
|
|
#-- title
|
|
$title = $rss->{'channel'}->{'title'};
|
|
$title =~ s/^\s*//;
|
|
return ($html);
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub updateSyndicatedContent {
|
|
my ($sth, @data, $rss, $html);
|
|
$sth = WebGUI::SQL->read("select widget.widgetId, SyndicatedContent.rssURL, SyndicatedContent.content from widget,SyndicatedContent where widget.WidgetId=SyndicatedContent.widgetId and widget.pageId<>3",$dbh);
|
|
while (@data = $sth->array) {
|
|
$rss = getRSS($data[1]);
|
|
$html = generateHTML($rss);
|
|
if ($html ne "") {
|
|
WebGUI::SQL->write("update SyndicatedContent set content=".$dbh->quote($html).", lastFetched=".time()." where widgetId=$data[0]",$dbh);
|
|
} elsif (substr($data[2],6) ne "Unable" && substr($data[2],7) ne "Not yet") {
|
|
# then just leave the existing content in place
|
|
} else {
|
|
WebGUI::SQL->write("update SyndicatedContent set content='Unable to fetch content. Perhaps the RSS is improperly formated.', lastFetched=".time()." where widgetId=$data[0]",$dbh);
|
|
}
|
|
}
|
|
$sth->finish;
|
|
}
|
|
|