142 lines
4.8 KiB
Perl
Executable File
142 lines
4.8 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
use strict;
|
|
use warnings;
|
|
use 5.010;
|
|
use open ':encoding(utf8)';
|
|
|
|
use File::Basename qw(fileparse);
|
|
use File::Temp;
|
|
use Getopt::Long;
|
|
use Mojo::UserAgent;
|
|
use Mojo::Util qw(decode encode slurp spurt trim);
|
|
|
|
use Term::UI;
|
|
use Term::ReadLine;
|
|
|
|
my $hubLengthLimit = 25_000;
|
|
my $githubBase = 'https://github.com/docker-library/docs/tree/master';
|
|
|
|
my $username;
|
|
my $password;
|
|
my $batchmode;
|
|
my $namespace;
|
|
GetOptions(
|
|
'u|username=s' => \$username,
|
|
'p|password=s' => \$password,
|
|
'batchmode!' => \$batchmode,
|
|
'namespace=s' => \$namespace,
|
|
) or die 'bad args';
|
|
|
|
die 'no repos specified' unless @ARGV;
|
|
|
|
my $ua = Mojo::UserAgent->new->max_redirects(10);
|
|
$ua->transactor->name('Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/44.0.2403.125 Safari/537.36');
|
|
|
|
my $term = Term::ReadLine->new('docker-library-docs-push');
|
|
unless (defined $username) {
|
|
$username = $term->get_reply(prompt => 'Hub Username');
|
|
}
|
|
unless (defined $password) {
|
|
$password = $term->get_reply(prompt => 'Hub Password'); # TODO hide the input? O:)
|
|
}
|
|
|
|
my $login = $ua->post('https://hub.docker.com/v2/users/login/' => {} => json => { username => $username, password => $password });
|
|
die 'login failed' unless $login->success;
|
|
|
|
my $token = $login->res->json->{token};
|
|
|
|
my $attemptLogin = $ua->post('https://hub.docker.com/attempt-login/' => {} => json => { jwt => $token });
|
|
die 'attempt-login failed' unless $attemptLogin->success;
|
|
|
|
my $authorizationHeader = { Authorization => "JWT $token" };
|
|
|
|
my $userData = $ua->get('https://hub.docker.com/v2/user/' => $authorizationHeader);
|
|
die 'user failed' unless $userData->success;
|
|
$userData = $userData->res->json;
|
|
|
|
sub prompt_for_edit {
|
|
my $currentText = shift;
|
|
my $proposedFile = shift;
|
|
my $lengthLimit = shift // 0;
|
|
|
|
my $proposedText = slurp $proposedFile or warn 'missing ' . $proposedFile;
|
|
$proposedText = trim(decode('UTF-8', $proposedText));
|
|
|
|
# remove our warning about generated files (Hub doesn't support HTML comments in Markdown)
|
|
$proposedText =~ s% ^ <!-- .*? --> \s* %%sx;
|
|
|
|
if ($lengthLimit > 0 && length($proposedText) > $lengthLimit) {
|
|
# TODO https://github.com/docker/hub-beta-feedback/issues/238
|
|
my $fullUrl = "$githubBase/$proposedFile";
|
|
my $note = "**Note:** the description for this image is longer than the Hub length limit of $lengthLimit, so has been trimmed. The full description can be found at [$fullUrl]($fullUrl). See [docker/hub-beta-feedback#238](https://github.com/docker/hub-beta-feedback/issues/238) for more information.\n\n";
|
|
$proposedText = $note . substr $proposedText, 0, ($lengthLimit - length($note));
|
|
}
|
|
|
|
return $currentText if $currentText eq $proposedText;
|
|
|
|
my @proposedFileBits = fileparse($proposedFile, qr!\.[^.]*!);
|
|
my $file = File::Temp->new(SUFFIX => $proposedFileBits[2]);
|
|
my $filename = $file->filename;
|
|
spurt encode('UTF-8', $currentText . "\n"), $filename;
|
|
|
|
system(qw(git --no-pager diff --no-index), $filename, $proposedFile);
|
|
|
|
my $reply;
|
|
if ($batchmode) {
|
|
$reply = 'yes';
|
|
}
|
|
else {
|
|
$reply = $term->get_reply(
|
|
prompt => 'Apply changes?',
|
|
choices => [ qw( yes vimdiff no quit ) ],
|
|
default => 'yes',
|
|
);
|
|
}
|
|
|
|
if ($reply eq 'quit') {
|
|
say 'quitting, as requested';
|
|
exit;
|
|
}
|
|
|
|
if ($reply eq 'yes') {
|
|
return $proposedText;
|
|
}
|
|
|
|
if ($reply eq 'vimdiff') {
|
|
system('vimdiff', $filename, $proposedFile) == 0 or die "vimdiff on $filename and $proposedFile failed";
|
|
return trim(decode('UTF-8', slurp($filename)));
|
|
}
|
|
|
|
return $currentText;
|
|
}
|
|
|
|
while (my $repo = shift) { # 'library/hylang', 'tianon/perl', etc
|
|
$repo =~ s!^/+|/+$!!; # trim extra slashes (from "*/" globbing, for example)
|
|
$repo = $namespace . '/' . $repo if $namespace; # ./push.pl --namespace xxx ...
|
|
$repo = 'library/' . $repo unless $repo =~ m!/!; # "hylang" -> "library/hylang"
|
|
|
|
my $repoName = $repo;
|
|
$repoName =~ s!^.*/!!; # 'hylang', 'perl', etc
|
|
|
|
my $repoUrl = 'https://hub.docker.com/v2/repositories/' . $repo . '/';
|
|
my $repoTx = $ua->get($repoUrl => $authorizationHeader);
|
|
warn 'warning: failed to get: ' . $repoUrl . ' (skipping)' and next unless $repoTx->success;
|
|
|
|
my $repoDetails = $repoTx->res->json;
|
|
$repoDetails->{description} //= '';
|
|
$repoDetails->{full_description} //= '';
|
|
|
|
my $hubShort = prompt_for_edit($repoDetails->{description}, $repoName . '/README-short.txt');
|
|
my $hubLong = prompt_for_edit($repoDetails->{full_description}, $repoName . '/README.md', $hubLengthLimit);
|
|
|
|
say 'no change to ' . $repoName . '; skipping' and next if $repoDetails->{description} eq $hubShort and $repoDetails->{full_description} eq $hubLong;
|
|
|
|
say 'updating ' . $repoName;
|
|
|
|
my $repoPatch = $ua->patch($repoUrl => $authorizationHeader => json => {
|
|
description => $hubShort,
|
|
full_description => $hubLong,
|
|
});
|
|
warn 'patch to ' . $repoUrl . ' failed: ' . $repoPatch->res->text and next unless $repoPatch->success;
|
|
}
|