Update push.pl for the new v2 hub! 🎉
So much cleaner now! 🤘
This commit is contained in:
Tianon Gravi
parent
3eea3576df
commit
c75ad54975
145
push.pl
145
push.pl
|
|
@ -25,73 +25,29 @@ GetOptions(
|
||||||
die 'no repos specified' unless @ARGV;
|
die 'no repos specified' unless @ARGV;
|
||||||
|
|
||||||
my $ua = Mojo::UserAgent->new->max_redirects(10);
|
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');
|
||||||
# Mojo::UserAgent::CookieJar::find is destructive...
|
|
||||||
# this is a nondestructive version that makes the login succeed on the Hub
|
|
||||||
Mojo::Util::monkey_patch 'Mojo::UserAgent::CookieJar', find => sub {
|
|
||||||
my ($self, $url) = @_;
|
|
||||||
|
|
||||||
return unless my $domain = my $host = $url->ihost;
|
|
||||||
my $path = $url->path->to_abs_string;
|
|
||||||
my @found;
|
|
||||||
while ($domain =~ /[^.]+\.[^.]+|localhost$/) {
|
|
||||||
next unless my $old = $self->{jar}{$domain};
|
|
||||||
|
|
||||||
# Grab cookies
|
|
||||||
#my $new = $self->{jar}{$domain} = [];
|
|
||||||
for my $cookie (@$old) {
|
|
||||||
next unless $cookie->domain || $host eq $cookie->origin;
|
|
||||||
|
|
||||||
# Check if cookie has expired
|
|
||||||
my $expires = $cookie->expires;
|
|
||||||
next if $expires && time > ($expires || 0);
|
|
||||||
#push @$new, $cookie;
|
|
||||||
|
|
||||||
# Taste cookie
|
|
||||||
next if $cookie->secure && $url->protocol ne 'https';
|
|
||||||
next unless Mojo::UserAgent::CookieJar::_path($cookie->path, $path);
|
|
||||||
my $name = $cookie->name;
|
|
||||||
my $value = $cookie->value;
|
|
||||||
push @found, Mojo::Cookie::Request->new(name => $name, value => $value);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
# Remove another part
|
|
||||||
continue { $domain =~ s/^[^.]+\.?// }
|
|
||||||
|
|
||||||
return @found;
|
|
||||||
};
|
|
||||||
|
|
||||||
sub get_form_bits {
|
|
||||||
my $form = shift;
|
|
||||||
|
|
||||||
my $ret = {};
|
|
||||||
|
|
||||||
$form->find('input, textarea')->grep(sub {
|
|
||||||
!$_->match('input[type=submit], input[type=reset], input[type=button]')
|
|
||||||
&& defined($_->attr('name'))
|
|
||||||
})->each(sub {
|
|
||||||
my $e = shift;
|
|
||||||
my $name = $e->attr('name');
|
|
||||||
|
|
||||||
my $val;
|
|
||||||
if ($e->type eq 'textarea') {
|
|
||||||
$val = $e->text;
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
$val = $e->attr('value');
|
|
||||||
}
|
|
||||||
|
|
||||||
$val = trim('' . ($val // ''));
|
|
||||||
$val =~ s!\r\n|\r!\n!g;
|
|
||||||
|
|
||||||
$ret->{$name} = $val;
|
|
||||||
});
|
|
||||||
|
|
||||||
return $ret;
|
|
||||||
}
|
|
||||||
|
|
||||||
my $term = Term::ReadLine->new('docker-library-docs-push');
|
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 {
|
sub prompt_for_edit {
|
||||||
my ($currentText, $proposedFile) = @_;
|
my ($currentText, $proposedFile) = @_;
|
||||||
|
|
@ -137,63 +93,30 @@ sub prompt_for_edit {
|
||||||
return $currentText;
|
return $currentText;
|
||||||
}
|
}
|
||||||
|
|
||||||
my $login = $ua->get('https://registry.hub.docker.com/account/login/');
|
while (my $repo = shift) { # '/library/hylang', '/tianon/perl', etc
|
||||||
die 'login failed' unless $login->success;
|
|
||||||
|
|
||||||
my $loginForm = $login->res->dom('#form-login')->first;
|
|
||||||
my $loginBits = get_form_bits($loginForm);
|
|
||||||
|
|
||||||
unless (defined $username) {
|
|
||||||
$username = $term->get_reply(prompt => 'Hub Username');
|
|
||||||
}
|
|
||||||
$loginBits->{username} = $username;
|
|
||||||
|
|
||||||
unless (defined $password) {
|
|
||||||
$password = $term->get_reply(prompt => 'Hub Password'); # TODO hide the input? O:)
|
|
||||||
}
|
|
||||||
$loginBits->{password} = $password;
|
|
||||||
|
|
||||||
$login = $ua->post($login->req->url->to_abs => {
|
|
||||||
Referer => $login->req->url->to_abs->to_string,
|
|
||||||
} => form => $loginBits);
|
|
||||||
die 'login failed' unless $login->success;
|
|
||||||
my $error = $login->res->dom('.alert-error');
|
|
||||||
if ($error->size) {
|
|
||||||
die $error->map(sub { $_->all_text })->join("\n") . "\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
while (my $repo = shift) { # '/_/hylang', '/u/tianon/perl', etc
|
|
||||||
$repo =~ s!/+$!!;
|
$repo =~ s!/+$!!;
|
||||||
$repo = '/_/' . $repo unless $repo =~ m!/!;
|
$repo = '/library/' . $repo unless $repo =~ m!/!;
|
||||||
$repo = '/' . $repo unless $repo =~ m!^/!;
|
$repo = '/' . $repo unless $repo =~ m!^/!;
|
||||||
|
|
||||||
my $repoName = $repo;
|
my $repoName = $repo;
|
||||||
$repoName =~ s!^.*/!!; # 'hylang', 'perl', etc
|
$repoName =~ s!^.*/!!; # 'hylang', 'perl', etc
|
||||||
|
|
||||||
my $repoUrl = 'https://registry.hub.docker.com' . $repo . '/settings/';
|
my $repoUrl = 'https://hub.docker.com/v2/repositories' . $repo . '/';
|
||||||
my $repoTx = $ua->get($repoUrl);
|
my $repoTx = $ua->get($repoUrl => $authorizationHeader);
|
||||||
warn 'failed to get: ' . $repoUrl and next unless $repoTx->success;
|
warn 'failed to get: ' . $repoUrl and next unless $repoTx->success;
|
||||||
|
|
||||||
my $settingsForm = $repoTx->res->dom('form[name="repository_settings"]')->first;
|
my $repoDetails = $repoTx->res->json;
|
||||||
die 'failed to find form on ' . $repoUrl unless $settingsForm;
|
|
||||||
my $settingsBits = get_form_bits($settingsForm);
|
|
||||||
|
|
||||||
my $hubShort = prompt_for_edit($settingsBits->{description}, $repoName . '/README-short.txt');
|
my $hubShort = prompt_for_edit($repoDetails->{description}, $repoName . '/README-short.txt');
|
||||||
my $hubLong = prompt_for_edit($settingsBits->{full_description}, $repoName . '/README.md');
|
my $hubLong = prompt_for_edit($repoDetails->{full_description}, $repoName . '/README.md');
|
||||||
|
|
||||||
say 'no change to ' . $repoName . '; skipping' and next if $settingsBits->{description} eq $hubShort and $settingsBits->{full_description} eq $hubLong;
|
say 'no change to ' . $repoName . '; skipping' and next if $repoDetails->{description} eq $hubShort and $repoDetails->{full_description} eq $hubLong;
|
||||||
|
|
||||||
$settingsBits->{description} = $hubShort;
|
|
||||||
$settingsBits->{full_description} = $hubLong;
|
|
||||||
|
|
||||||
say 'updating ' . $repoName;
|
say 'updating ' . $repoName;
|
||||||
|
|
||||||
$repoTx = $ua->post($repoUrl => { Referer => $repoUrl } => form => $settingsBits);
|
my $repoPatch = $ua->patch($repoUrl => $authorizationHeader => json => {
|
||||||
die 'post to ' . $repoUrl . ' failed' unless $repoTx->success;
|
description => $hubShort,
|
||||||
|
full_description => $hubLong,
|
||||||
my $alert = $repoTx->res->dom('.alert-error');
|
});
|
||||||
if ($alert->size) {
|
die 'patch to ' . $repoUrl . ' failed' unless $repoPatch->success;
|
||||||
my $text = trim $alert->map(sub { $_->all_text })->join("\n");
|
|
||||||
die 'update to ' . $repoUrl . ' failed:' . "\n" . $text if $text;
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue