* 2021-02-15 08:10:00
Working for Twitter now?

Sven on Twitter asked to whip up a script to turn diaries into RSS feeds.

* 2021-02-15 08:20:00
That was easy!

All done!

This was easier than expected!
##</code><code>##

#!/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;
}

##</code><code>##

<rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:atom="http://www.w3.org/2005/Atom">
<channel>
<item>
<title>Working for Twitter now?</title>
<pubDate>Mon, 15 Feb 2021 07:10:00 GMT</pubDate>
<description><br/>Sven on Twitter asked to whip up a script to turn diaries into RSS feeds.<br/></description>
</item>
<item>
<title>That was easy!</title>
<pubDate>Mon, 15 Feb 2021 07:20:00 GMT</pubDate>
<description><br/>All done!<br/><br/>This was easier than expected!</description>
</item>
</channel>
</rss>