eleksir/meow-irc-bot
0
Fork 0
Code Activity

Implement list of tags in image repo

Browse Source
This commit is contained in:
eleksir
2023-12-09 15:44:56 +03:00
parent 7216384fae
commit d86bcec7c4
2 changed files with 31 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/BotLib.pm
View File

@@ -155,6 +155,8 @@ sub Command {
$reply = BotLib::Chan::Registry::Help (); $reply = BotLib::Chan::Registry::Help ();
} elsif ($cmd eq 'ls') { } elsif ($cmd eq 'ls') {
$reply = BotLib::Chan::Registry::ListProjects (); $reply = BotLib::Chan::Registry::ListProjects ();
} elsif ($cmd =~ /^ls\s+(\S+)/) {
$reply = BotLib::Chan::Registry::ListTags($1);
} }
} }

34
lib/BotLib/Chan/Registry.pm
View File

@@ -1,5 +1,6 @@
package BotLib::Chan::Registry; package BotLib::Chan::Registry;
# Парсит команды # Парсит команды и взаимодействует с докерным регистри, согласно спеке описанной вот тут:
# https://github.com/distribution/distribution/blob/5cb406d511b7b9163bff9b6439072e4892e5ae3b/docs/spec/api.md
use 5.030; ## no critic (ProhibitImplicitImport) use 5.030; ## no critic (ProhibitImplicitImport)
use strict; use strict;
@@ -13,7 +14,7 @@ use JSON::XS qw (decode_json);
use Log::Any qw ($log); use Log::Any qw ($log);
use BotLib::Conf qw (LoadConf); use BotLib::Conf qw (LoadConf);
use BotLib::Util qw (utf2b64); use BotLib::Util qw (utf2b64 urlencode);
use version; our $VERSION = qw (1.0); use version; our $VERSION = qw (1.0);
use Exporter qw (import); use Exporter qw (import);
@@ -29,12 +30,14 @@ sub Help {
my $text = ''; my $text = '';
my $csign = $c->{csign}; my $csign = $c->{csign};
$text .= "${csign}help - это сообщение\n"; $text .= "${csign}help - это сообщение\n";
$text .= "${csign}ls - список репозиториев образов\n"; $text .= "${csign}ls - список репозиториев образов\n";
$text .= "${csign}ls REPO - список тэгов образов в репозитории\n";
return $text; return $text;
} }
# Отображает список проектов в регистри
sub ListProjects { sub ListProjects {
my $str = ''; my $str = '';
my $url = sprintf '%s/v2/_catalog', $c->{registry}->{url}; my $url = sprintf '%s/v2/_catalog', $c->{registry}->{url};
@@ -46,7 +49,28 @@ sub ListProjects {
$str .= $_ . "\n"; $str .= $_ . "\n";
} }
} else { } else {
$str = "Unable to list repositories" $str = "Unable to list repositories";
}
return $str;
}
# Отображает список тэгов проекта
sub ListTags {
my $repo = shift;
$repo = urlencode ($repo);
my $str = '';
my $url = sprintf '%s/v2/%s/tags/list', $c->{registry}->{url}, $repo;
my $s = getJson ($url, $c->{registry}->{user}, $c->{registry}->{password});
if ($s->{success}) {
foreach (@{$s->{struct}->{tags}}) {
$str .= sprintf "%s:%s\n", $s->{struct}->{name}, $_;
}
} else {
$str = "Unable to list tags for given repository";
} }
return $str; return $str;