#!/usr/bin/perl -w
# Copyright 2008, 2010 Kevin Ryde
#
# This file is part of RSS2Leafnode.
#
# RSS2Leafnode is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by the Free
# Software Foundation; either version 3, or (at your option) any later
# version.
#
# RSS2Leafnode is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
# for more details.
#
# You should have received a copy of the GNU General Public License along
# with RSS2Leafnode. If not, see <http://www.gnu.org/licenses/>.
use strict;
use warnings;
{
require MIME::Entity;
my $top = MIME::Entity->build('Path:' => 'localhost',
'Newsgroups:' => 'r2l.test',
'X-Mailer' => 'foo 1.0',
Type => 'text/html',
Encoding => '-SUGGEST',
From => "no\x{2022}body",
Subject => 'hello',
# Date => ($date || rfc822_time_now()),
# 'Message-ID' => $msgid,
# Charset => $body_charset,
Data => "body text\n",
'Content-Language:' => "\x{2022}",
#'Date-Received:' => rfc822_time_now(),
#'List-Post:' => $list_email,
'X-Array:' => ['one','two','three'],
#'X-Feed-Link:' => $channel->{'link'},
#'X-RSS-Generator:' => $generator
'X-Copyright:' => [],# "Foo","Bar"],
);
print $top->as_string;
exit 0;
}
{
my $resp = HTTP::Response->new();
my $content = slurp (</var/www/index.html>);
$resp->content($content);
$resp->content_type('text/html');
print html_title($resp);
exit 0;
}