fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch '145-build-system-rewrite' of gitea.uniworx.systems:fraport/fradrive into 145-build-system-rewrite

Browse Source
This commit is contained in:
Sarah Vaupel 2024-10-23 01:58:48 +02:00
commit 5893c950d0
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
utils/develop-status.pl
View File

@ -22,6 +22,17 @@ print "== Development status ==\n";
# $cont{$1} = 1; # $cont{$1} = 1;
#} #}
my @cont = split /\R/, qx($runner ps -a --no-trunc -f name='^fradrive.' --format='{{.State}} ::: {{.ID}} ::: {{.Names}}');
my %cont = ();
for(@cont) {
m#(.*) ::: (.*) ::: (.*)# || next;
$cont{$2} = {
state=>$1,
id=>$2,
name=>$3,
used=>0,
}
}
if(not -e $develop) { if(not -e $develop) {
@ -50,6 +61,16 @@ for my $devStamp(@devs) {
# devdirInfo($devStamp, "$develop/$devStamp") # devdirInfo($devStamp, "$develop/$devStamp")
#} #}
for my $k(sort {
$cont{$a}{state} cmp $cont{$b}{state} ||
$cont{$a}{name} cmp $cont{$b}{name}
} keys %cont) {
my $c = $cont{$k};
print "Fradrive container outside develop file: ($c->{state}) $c->{name} $c->{id}\n"
}
exit 0;
sub devdirInfo { sub devdirInfo {
my ($name, $path) = @_; my ($name, $path) = @_;
my @fns = filesFromDir($path, [qr((?:^\.))]); my @fns = filesFromDir($path, [qr((?:^\.))]);
@ -78,6 +99,7 @@ sub checkContainerFile {
} }
print " $_=$h{$_}\n" for sort keys %h; print " $_=$h{$_}\n" for sort keys %h;
my $id = $h{CONTAINER_ID}; my $id = $h{CONTAINER_ID};
$cont{$id}{used} = 1;
if(not defined $id) { if(not defined $id) {
warn "$0: In containerfile '$fn': No CONTAINER_ID set\n"; warn "$0: In containerfile '$fn': No CONTAINER_ID set\n";
return return