#!/usr/bin/perl -w
# Starburst CMS | Perl Content Management System by Kirsle #
# -------------------------------------------------------- #
# This is a stripped-down edition of index.cgi meant to be #
# used as an RSS feed script for the SB-Blog plugin. #
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use URI::Escape;
use Digest::MD5 qw(md5_hex);
use Data::Dumper;
use lib "./lib";
use Time::Format qw(time_format);
use Time::Local;
use Time::Zone;
our $root = {
# Base for pvt data. If you change this, also change it below at the
# require statements.
base => "./sb-pvt",
version => '0.01',
header => 0, # 1 = the HTTP headers were already sent
conf => {}, # Main configuration data.
me => 'guest', # Our username (default=guest)
auth => 0, # 1 = we're logged in, 0 = otherwise
users => {}, # Loaded user(s) information.
cookie => {}, # Loaded cookies.
meta => {}, # Header fields on pages.
content => '', # Eventual page contents.
perl => '', # Any embedded Perl code in the pages.
};
our $cgi = new CGI;
our $query = {
p => 'index',
};
# Define a fallback CGI::Carp failure page.
sub panic {
my $msg = shift;
if ($root->{header} == 0) {
print "Content-Type: text/html\n\n";
}
print "\n"
. "\n"
. "\n"
. "500 Internal Server Error\n"
. "\n"
. "\n"
. "\n"
. "
Internal Server Error
\n\n"
. "This page has generated an error. The text of the error is "
. "as follows:
\n\n"
. "
$msg
\n\n"
. "Furthermore, there was no 500 Internal Server Error page to "
. "handle this error.\n"
. "
\n"
. "Starburst CMS\n"
. "\n"
. "";
exit(0);
}
CGI::Carp::set_message (sub {
$root->{header} = 1;
&panic(shift);
});
# Load additional source files.
require "./sb-pvt/inc/config.lib";
require "./sb-pvt/inc/cgi.lib";
require "./sb-pvt/inc/users.lib";
require "./sb-pvt/inc/methods.lib";
require "./sb-pvt/inc/blog.lib";
require "./sb-pvt/inc/photos.lib";
# Load our configuration.
$root->{conf} = &readConfig("site.conf");
$root->{blogcfg} = &readConfig("blog.conf");
################################################################################
## Attempt to get a page for the user. ##
################################################################################
# Set the time zone to GMT.
$root->{conf}->{site}->{timezone} = 'GMT';
my $rss = {
channel => {
title => $root->{conf}->{site}->{title},
lastBuildDate => &timeFormat('Day, dd Mon yyyy hh:mm:ss GMT',time()),
},
};
# Filter the RSS values.
foreach my $top (keys %{$rss}) {
foreach my $key (keys %{$rss->{$top}}) {
$rss->{$top}->{$key} =~ s/\&/&/ig;
$rss->{$top}->{$key} =~ s/\"/"/ig;
$rss->{$top}->{$key} =~ s/\'/'/ig;
$rss->{$top}->{$key} =~ s/{$top}->{$key} =~ s/>/>/ig;
}
}
print "Content-Type: application/rss+xml\n\n";
print qq~
$rss->{channel}->{title}
http://$ENV{SERVER_NAME}/
Powered by Starburst Web Blog Software$rss->{channel}->{lastBuildDate}Starubrst CMS / Cuvou.comhttp://$ENV{SERVER_NAME}/sb-public/avatars/default.png$rss->{channel}->{title}
http://$ENV{SERVER_NAME}/
100100
~;
# Get the RSS entries.
my @entries = &getEntries(0,$root->{blogcfg}->{blog}->{postsperfeed});
foreach my $id (@entries) {
my $entry = &readEntry($id);
if (not exists $root->{users}->{$entry->{author}}) {
&readUser($entry->{author});
}
my $nick = &getNickname($entry->{author});
my $stamp = &timeFormat('Day, dd Mon yyyy hh:mm:ss GMT',$entry->{time});
foreach my $key (keys %{$entry}) {
$entry->{$key} =~ s/\&/&/ig;
$entry->{$key} =~ s/\"/"/ig;
$entry->{$key} =~ s/\'/'/ig;
$entry->{$key} =~ s/{$key} =~ s/>/>/ig;
}
print qq~
http://$ENV{SERVER_NAME}/?p=blog;id=$id$stamp$entry->{subject}$entry->{body}http://$ENV{SERVER_NAME}/?p=blog;id=$id~;
}
print qq~
~;