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

build(utils/develop-status.pl): Changed output order.

Browse Source
This commit is contained in:
Stephan Barth 2024-11-21 00:18:23 +01:00
parent b844e3028c
commit cbfcd17c77
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
utils/develop-status.pl
View File

@ -75,10 +75,6 @@ my @devs = filesFromDir($develop,
[qr((?:[0-9]{4}-[0-9]{2}-[0-9]{2}T)), 1, "File '%fn' does not look like a development dir, skip"], [qr((?:[0-9]{4}-[0-9]{2}-[0-9]{2}T)), 1, "File '%fn' does not look like a development dir, skip"],
]); ]);
for my $devStamp(@devs) {
print "+ Development $devStamp found\n";
devdirInfo($devStamp, "$develop/$devStamp")
}
#my $devDir = undef; #my $devDir = undef;
#opendir($devDir, "$develop") or die "Cannot open develop directory, because: $!"; #opendir($devDir, "$develop") or die "Cannot open develop directory, because: $!";
#while(my $devStamp = readdir($devDir)) { #while(my $devStamp = readdir($devDir)) {
@ -99,6 +95,11 @@ for my $k(sort {
print "Fradrive container outside develop file: ($c->{state}) $c->{name} $c->{id}\n" if $show print "Fradrive container outside develop file: ($c->{state}) $c->{name} $c->{id}\n" if $show
} }
for my $devStamp(@devs) {
print "+ Development $devStamp found\n";
devdirInfo($devStamp, "$develop/$devStamp")
}
exit 0; exit 0;
sub devdirInfo { sub devdirInfo {