add permalink to test result in feed; api can return html for permalink

2 files changed, 21 insertions, 7 deletions

diff --git a/lib/jitterbug/Project.pm b/lib/jitterbug/Project.pm
index b330635..be62921 100644
--- a/lib/jitterbug/Project.pm
+++ b/lib/jitterbug/Project.pm
@@ -2,6 +2,7 @@ package jitterbug::Project;
 
 use Dancer ':syntax';
 use jitterbug::Plugin::Redis;
+use jitterbug::Plugin::Template;
 
 use DateTime;
 use XML::Feed;
@@ -42,9 +43,15 @@ get '/:project/feed' => sub {
 
         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});
+            $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);
+
         }
     }
 
diff --git a/lib/jitterbug/WebService.pm b/lib/jitterbug/WebService.pm
index 62f55c0..c8be8fd 100644
--- a/lib/jitterbug/WebService.pm
+++ b/lib/jitterbug/WebService.pm
@@ -21,11 +21,18 @@ get '/build/:project/:commit/:version' => sub {
         open my $fh, '<', $file;
         my @content = <$fh>;
         close $fh;
-        {
-            commit  => $commit,
-            version => $version,
-            content => join( '', @content ),
-        };
+
+        if ( request->accept =~ m!application/json! ) {
+            return {
+                commit  => $commit,
+                version => $version,
+                content => join( '', @content ),
+            };
+        }
+        else {
+            content_type 'text/plain';
+            return join( '', @content );
+        }
     }
 };