From d73c81f912f51abcfb034ed3e563fd4b39db5854 Mon Sep 17 00:00:00 2001
From: Robert Bieber <robby@bieberphoto.com>
Date: Fri, 30 Jul 2010 20:47:25 +0000
Subject: Theme Editor: Modified buildtargetdb.php to read targets list from
 tools/builds.pm using includetargets.pl

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@27630 a1c6a512-1295-4272-9138-f99709370657
---
 utils/themeeditor/includetargets.pl | 58 +++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100755 utils/themeeditor/includetargets.pl

(limited to 'utils/themeeditor/includetargets.pl')

diff --git a/utils/themeeditor/includetargets.pl b/utils/themeeditor/includetargets.pl
new file mode 100755
index 0000000..3708c6a
--- /dev/null
+++ b/utils/themeeditor/includetargets.pl
@@ -0,0 +1,58 @@
+#!/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);
+
-- 
cgit v1.1