ec8b3d3147
This adds tools/list_targets.pl and tools/build-info.pl. list_targets does exactly what it sounds like - it lists targets by target status. build-info automates the generation of build-info.release for new releases. Change-Id: I4c859fdeb54c8cc645832a7c4192f9d18590031e
27 lines
776 B
Perl
Executable file
27 lines
776 B
Perl
Executable file
#!/usr/bin/perl
|
|
# __________ __ ___.
|
|
# Open \______ \ ____ ____ | | _\_ |__ _______ ___
|
|
# Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
|
|
# Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
|
|
# Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
|
|
# \/ \/ \/ \/ \/
|
|
#
|
|
# List all targets in builds.pm, categorized by target status.
|
|
|
|
require "./builds.pm";
|
|
|
|
print "Stable:\n";
|
|
|
|
for my $b (&stablebuilds) {
|
|
print $builds{$b}{name} , "\n";
|
|
}
|
|
|
|
print "Unstable:\n";
|
|
for my $b (&usablebuilds) {
|
|
print $builds{$b}{name} , "\n";
|
|
}
|
|
|
|
print "Unusable:\n";
|
|
for my $b (&allbuilds) {
|
|
print $builds{$b}{name} , "\n" if($builds{$b}{status} == 1);
|
|
}
|