blob: 6becb187eb122e0af0c1989b3f202a9053bbf982 (
plain) (
blame)
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
|
package jitterbug::Project;
#BEGIN {
use Dancer ':syntax';
use jitterbug::Plugin::Redis;
#};
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->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;
|