From 9e947fd6be8d6108164457894355a2685ce5e6f5 Mon Sep 17 00:00:00 2001
From: Tianon Gravi <admwiggin@gmail.com>
Date: Fri, 18 Sep 2015 12:42:12 -0700
Subject: [PATCH] Add back "pull by digest" to the tag-details page...

Lost this when I ported to Perl, doh!
---
 .template-helpers/generate-tag-details.pl | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/.template-helpers/generate-tag-details.pl b/.template-helpers/generate-tag-details.pl
index ea8351fd65a0..5d00716b0f89 100755
--- a/.template-helpers/generate-tag-details.pl
+++ b/.template-helpers/generate-tag-details.pl
@@ -83,7 +83,10 @@ sub get_manifest {
 
 	my $manifestTx = ua_req(get => "https://registry-1.docker.io/v2/$repo/manifests/$tag" => $authorizationHeader);
 	die "failed to get manifest for $image" unless $manifestTx->success;
-	return $manifests{$image} = $manifestTx->res->json;
+	return (
+		$manifestTx->res->headers->header('Docker-Content-Digest'),
+		$manifests{$image} = $manifestTx->res->json,
+	);
 }
 
 sub get_blob_headers {
@@ -161,7 +164,13 @@ sub date {
 	say '## `' . $image . '`';
 	my ($repo, $tag) = split_image_name($image);
 
-	my $manifest = get_manifest($repo, $tag);
+	my ($digest, $manifest) = get_manifest($repo, $tag);
+
+	print "\n";
+	say '```console';
+	say '$ docker pull ' . $repo . '@' . $digest;
+	say '```';
+
 	my %parentChild;
 	my %totals = (
 		virtual_size => 0,