#!/usr/bin/env perl

use strict;
use warnings;
use HTTP::Date;
use Time::Piece;
use Carp;

my $gmtoffset = 1; # Hours

print '<rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:atom="http://www.w3.org/2005/Atom">', "\n";
print '<channel>', "\n";

my ($date, $title);
my @content;

while((my $line = <>)) {
    chomp $line;
    if($line =~ /^\*\ (\d\d\d\d\-\d\d\-\d\d\ \d\d\:\d\d\:\d\d)/) {
        my $temp = $1;
        if(defined($date)) {
            printItem();
        }
        $date = $temp;;
        $title = <>;
        @content = ();
        chomp $title;
        next;
    }
    next unless defined($date);
    push @content, $line;
}

if(defined($date)) {
    printItem();
}

print '</channel>', "\n";
print '</rss>', "\n";

exit 0;

sub printItem {
    print '<item>', "\n";
    print '<title>', $title, '</title>', "\n";
    print '<pubDate>', toWebdate($date), '</pubDate>', "\n";
    print '<description>', join('<br/>', @content), '</description>', "\n";
    print '</item>', "\n";

    return;
}

sub toWebdate {
    my ($localdate) = @_;

    my $webdate;

    my $unixtime = Time::Piece->strptime($localdate, "%Y-%m-%d %H:%M:%S")->epoch();
    $unixtime -= $gmtoffset * 3600;

    $webdate = time2str($unixtime);

    return $webdate;
}