summaryrefslogtreecommitdiffstats
path: root/make-rss/make-rss.pl
blob: 9505dad8fcc6fe9959814379fb8eee403d76a39e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
#!/usr/bin/perl
#
# This program 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 2 of the License, or
# (at your option) any later version.
#
# This program 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 this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
#
# Author: Steven Schubiger <stsc@refcnt.org>
# Last modified: Wed Jul 24 14:45:23 CEST 2013

use strict;
use warnings;
use lib qw(lib);

my $VERSION = '0.01';

my $Config = {
    base_url  => 'http://www.lugs.ch/lugs/termine/',
    language  => 'de',
    input     => './termine.txt',
    output    => './termine.rss',
    title     => 'LUGS Terminliste',
    webmaster => 'www@lugs.ch',
};

{
    my $rss = LUGS::Termine::RSS->new;

    $rss->init;
    $rss->process_content;
    $rss->save_rss;
}

package LUGS::Termine::RSS;

use constant true => 1;

use LUGS::Events::Parser ();
use XML::RSS::SimpleGen ();

sub new
{
    my $class = shift;

    return bless {};
}

sub init
{
    my $self = shift;

    $self->{rss} = XML::RSS::SimpleGen->new($Config->{base_url}, $Config->{title});

    $self->{rss}->allow_duplicates(true);
    $self->{rss}->language($Config->{language});
    $self->{rss}->webmaster($Config->{webmaster});
}

sub process_content
{
    my $self = shift;

    my $parser = LUGS::Events::Parser->new($Config->{input});

    while (my $event = $parser->next_event) {
        my $year  = $event->get_event_year;
        my $month = $event->get_event_month;
        my $day   = $event->get_event_day;

        my $date      = join '.',  ($day, $month, $year);
        my $full_date = join ', ', ($event->get_event_weekday, $date);

        my $title = join ', ', ($full_date, $event->get_event_time, $event->get_event_title);
        my $desc  = join ' ',  ($event->get_event_location, $event->get_event_more || ());

        $self->save_item($Config->{base_url}, $event->get_event_anchor, $title, $desc);
    }
}

sub save_item
{
    my $self = shift;
    my ($url, $anchor, $title, $desc) = @_;

    $self->{rss}->item("$url#$anchor", $title, $desc);
}

sub save_rss
{
    my $self = shift;

    $self->{rss}->save($Config->{output});
}