lib/jitterbug/Project.pm


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

package jitterbug::Project;

use Dancer ':syntax';
use jitterbug::Plugin::Redis;
use jitterbug::Plugin::Template;

use DateTime;
use XML::Feed;

get '/:project' => sub {
    my $project = params->{project};

    my $res = redis->get( key_project($project) );

    send_error( "Project $project not found", 404 ) if !$res;

    my $desc = from_json($res);

    my @ids = redis->smembers( key_builds_project($project) );

    my @builds;
    foreach my $id (@ids) {
        my $res = redis->get($id);
        push @builds, from_json($res) if $res;
    }

    template 'project/index',
      { project => $project, builds => \@builds, %$desc };
};

get '/:project/feed' => sub {
    my $project = params->{project};

    my @builds = reverse( redis->smembers( key_builds_project($project) ) );

    my $feed = XML::Feed->new('Atom');
    $feed->title('builds for '.$project);

    foreach (splice(@builds, 0, 5)) {
        my $res = redis->get($_);
        next unless $res;
        my $desc = from_json($res);

        foreach my $version (keys %{$desc->{version}}) {
            my $entry = XML::Feed::Entry->new();
            $entry->link( request->base
                  . 'api/build/'
                  . $project . '/'
                  . $desc->{commit} . '/'
                  .$version );
            $entry->title( "build for " . $desc->{commit} . ' on ' . $version );
            $entry->summary( "Result: " . $desc->{version}->{$version} );
            $feed->add_entry($entry);

        }
    }

    content_type('application/atom+xml');
    $feed->as_xml;
};

1;