7 lines
228 B
Perl
7 lines
228 B
Perl
|
#! /usr/bin/perl
|
||
|
|
my $commits = "argocd app list -o yaml -l application=badhouseplants | yq '.[].metadata.labels.commit_sha'";
|
||
|
|
my @commits_out = `$commits`;
|
||
|
|
chomp @commits_out;
|
||
|
|
push @commits_out, 'latest';
|
||
|
|
print "@commits_out";
|