blob: 44c684401e7cf71fe7fde389a47657b9e96160c3 (
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
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 $builds = _sorted_builds($project);
my $commits;
foreach (@$builds) {
my $t = $_->{timestamp};
(my $d) = $t =~ /^(\d{4}-\d{2}-\d{2})/;
push @{$commits->{$d}}, $_;
}
my @days = sort {$b cmp $a} keys %$commits;
template 'project/index',
{ project => $project, days => \@days, builds => $commits, %$desc };
};
get '/:project/feed' => sub {
my $project = params->{project};
my $builds = _sorted_builds($project);
my $feed = XML::Feed->new('Atom');
$feed->title('builds for '.$project);
foreach my $build (@$builds) {
foreach my $version (keys %{$build->{version}}) {
my $entry = XML::Feed::Entry->new();
$entry->link( request->base
. 'api/build/'
. $project . '/'
. $build->{commit} . '/'
.$version );
$entry->author($build->{author}->{name});
$entry->title( "build for " . $build->{commit} . ' on ' . $version );
$entry->summary( "Result: " . $build->{version}->{$version} );
$feed->add_entry($entry);
}
}
content_type('application/atom+xml');
$feed->as_xml;
};
sub _sorted_builds {
my $project = shift;
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;
}
@builds = sort {$b->{timestamp} cmp $a->{timestamp}} @builds;
\@builds;
}
1;
|