d73c81f912
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@27630 a1c6a512-1295-4272-9138-f99709370657
58 lines
1.7 KiB
Perl
Executable file
58 lines
1.7 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
###########################################################################
|
|
# __________ __ ___.
|
|
# Open \______ \ ____ ____ | | _\_ |__ _______ ___
|
|
# Source | _ / _ \_/ ___\| |/ /| __ \ / _ \ \/ /
|
|
# Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
|
|
# Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
|
|
# \/ \/ \/ \/ \/
|
|
# $Id$
|
|
#
|
|
# Copyright (C) 2010 Robert Bieber
|
|
#
|
|
# This program is free software; you can redistribute it and/or
|
|
# modify it under the terms of the GNU General Public License
|
|
# as published by the Free Software Foundation; either version 2
|
|
# of the License, or (at your option) any later version.
|
|
#
|
|
# This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
|
|
# KIND, either express or implied.
|
|
#
|
|
############################################################################/
|
|
|
|
require '../../tools/builds.pm';
|
|
|
|
open(FOUT, ">targets.php");
|
|
|
|
print FOUT '<?php $targets = array(';
|
|
|
|
@keys = sort byname keys %builds;
|
|
$size = @keys;
|
|
$final = @keys[$size - 1];
|
|
for my $b (@keys)
|
|
{
|
|
$key = $b;
|
|
$key =~ s/:/%:/;
|
|
$name = $builds{$b}{name};
|
|
$name =~ s/:/%:/;
|
|
|
|
print FOUT "\"$key\"" . "=>" . '"' . $name . '"' if ($builds{$b}{status} >= 3);
|
|
print FOUT ',' if $b ne $final && $builds{$b}{status} >= 3;
|
|
}
|
|
|
|
for my $b (@keys)
|
|
{
|
|
$key = $b;
|
|
$key =~ s/:/%:/;
|
|
$name = $builds{$b}{name};
|
|
$name =~ s/:/%:/;
|
|
|
|
print FOUT "\"$key\"" . "=>" . '"' . $name . '"' if ($builds{$b}{status} < 3);
|
|
print FOUT ',' if $b ne $final && $builds{$b}{status} < 3;
|
|
}
|
|
|
|
print FOUT '); ?>';
|
|
|
|
close(FOUT);
|
|
|