diff options
Diffstat (limited to 'tools/buildzip.pl')
-rwxr-xr-x | tools/buildzip.pl | 54 |
1 files changed, 27 insertions, 27 deletions
diff --git a/tools/buildzip.pl b/tools/buildzip.pl index 3c4410a172..0d8f7117a5 100755 --- a/tools/buildzip.pl +++ b/tools/buildzip.pl | |||
@@ -15,7 +15,7 @@ use File::Find; # For find() | |||
15 | use File::Path qw(mkpath rmtree); # For rmtree() | 15 | use File::Path qw(mkpath rmtree); # For rmtree() |
16 | use Cwd; | 16 | use Cwd; |
17 | use Cwd 'abs_path'; | 17 | use Cwd 'abs_path'; |
18 | use Getopt::Long qw(:config pass_through); # pass_through so not confused by -DTYPE_STUFF | 18 | use Getopt::Long qw(:config pass_through); # pass_through so not confused by -DTYPE_STUFF |
19 | 19 | ||
20 | my $ROOT=".."; | 20 | my $ROOT=".."; |
21 | 21 | ||
@@ -204,16 +204,16 @@ sub make_install { | |||
204 | } | 204 | } |
205 | 205 | ||
206 | # Get options | 206 | # Get options |
207 | GetOptions ( 'r|root=s' => \$ROOT, | 207 | GetOptions ( 'r|root=s' => \$ROOT, |
208 | 'z|ziptool:s' => \$ziptool, | 208 | 'z|ziptool:s' => \$ziptool, |
209 | 'm|modelname=s' => \$modelname, # The model name as used in ARCHOS in the root makefile | 209 | 'm|modelname=s' => \$modelname, # The model name as used in ARCHOS in the root makefile |
210 | 'i|id=s' => \$target_id, # The target id name as used in TARGET_ID in the root makefile | 210 | 'i|id=s' => \$target_id, # The target id name as used in TARGET_ID in the root makefile |
211 | 'o|output:s' => \$output, | 211 | 'o|output:s' => \$output, |
212 | 'f|fonts=s' => \$incfonts, # 0 - no fonts, 1 - fonts only 2 - fonts and package | 212 | 'f|fonts=s' => \$incfonts, # 0 - no fonts, 1 - fonts only 2 - fonts and package |
213 | 'v|verbose' => \$verbose, | 213 | 'v|verbose' => \$verbose, |
214 | 'install=s' => \$install, # install destination | 214 | 'install=s' => \$install, # install destination |
215 | 'rbdir:s' => \$rbdir, # If we want to put in a different directory | 215 | 'rbdir:s' => \$rbdir, # If we want to put in a different directory |
216 | 'l|link' => \$mklinks, # If we want to create links instead of copying files | 216 | 'l|link' => \$mklinks, # If we want to create links instead of copying files |
217 | ); | 217 | ); |
218 | 218 | ||
219 | # GetOptions() doesn't remove the params from @ARGV if their value was "" | 219 | # GetOptions() doesn't remove the params from @ARGV if their value was "" |
@@ -625,12 +625,12 @@ STOP | |||
625 | 625 | ||
626 | # Now do the WPS dance | 626 | # Now do the WPS dance |
627 | if(-d "$ROOT/wps") { | 627 | if(-d "$ROOT/wps") { |
628 | my $wps_build_cmd="perl $ROOT/wps/wpsbuild.pl "; | 628 | my $wps_build_cmd="perl $ROOT/wps/wpsbuild.pl "; |
629 | $wps_build_cmd=$wps_build_cmd."-v " if $verbose; | 629 | $wps_build_cmd=$wps_build_cmd."-v " if $verbose; |
630 | $wps_build_cmd=$wps_build_cmd." --tempdir=$temp_dir --rbdir=$rbdir -r $ROOT -m $modelname $ROOT/wps/WPSLIST $target"; | 630 | $wps_build_cmd=$wps_build_cmd." --tempdir=$temp_dir --rbdir=$rbdir -r $ROOT -m $modelname $ROOT/wps/WPSLIST $target"; |
631 | print "wpsbuild: $wps_build_cmd\n" if $verbose; | 631 | print "wpsbuild: $wps_build_cmd\n" if $verbose; |
632 | system("$wps_build_cmd"); | 632 | system("$wps_build_cmd"); |
633 | print "wps_build_cmd: done\n" if $verbose; | 633 | print "wps_build_cmd: done\n" if $verbose; |
634 | } | 634 | } |
635 | else { | 635 | else { |
636 | print STDERR "No wps module present, can't do the WPS magic!\n"; | 636 | print STDERR "No wps module present, can't do the WPS magic!\n"; |
@@ -640,21 +640,21 @@ STOP | |||
640 | mkdir "$temp_dir/wps/classic_statusbar", 0777; | 640 | mkdir "$temp_dir/wps/classic_statusbar", 0777; |
641 | glob_copy("$ROOT/wps/classic_statusbar/*.bmp", "$temp_dir/wps/classic_statusbar"); | 641 | glob_copy("$ROOT/wps/classic_statusbar/*.bmp", "$temp_dir/wps/classic_statusbar"); |
642 | if ($swcodec) { | 642 | if ($swcodec) { |
643 | if ($depth == 16) { | 643 | if ($depth == 16) { |
644 | copy("$ROOT/wps/classic_statusbar.sbs", "$temp_dir/wps"); | 644 | copy("$ROOT/wps/classic_statusbar.sbs", "$temp_dir/wps"); |
645 | } elsif ($depth > 1) { | 645 | } elsif ($depth > 1) { |
646 | copy("$ROOT/wps/classic_statusbar.grey.sbs", "$temp_dir/wps/classic_statusbar.sbs"); | 646 | copy("$ROOT/wps/classic_statusbar.grey.sbs", "$temp_dir/wps/classic_statusbar.sbs"); |
647 | } else { | 647 | } else { |
648 | copy("$ROOT/wps/classic_statusbar.mono.sbs", "$temp_dir/wps/classic_statusbar.sbs"); | 648 | copy("$ROOT/wps/classic_statusbar.mono.sbs", "$temp_dir/wps/classic_statusbar.sbs"); |
649 | } | 649 | } |
650 | } else { | 650 | } else { |
651 | copy("$ROOT/wps/classic_statusbar.112x64x1.sbs", "$temp_dir/wps/classic_statusbar.sbs"); | 651 | copy("$ROOT/wps/classic_statusbar.112x64x1.sbs", "$temp_dir/wps/classic_statusbar.sbs"); |
652 | } | 652 | } |
653 | if ($remote_depth != $depth) { | 653 | if ($remote_depth != $depth) { |
654 | copy("$ROOT/wps/classic_statusbar.mono.sbs", "$temp_dir/wps/classic_statusbar.rsbs"); | 654 | copy("$ROOT/wps/classic_statusbar.mono.sbs", "$temp_dir/wps/classic_statusbar.rsbs"); |
655 | } else { | 655 | } else { |
656 | copy("$temp_dir/wps/classic_statusbar.sbs", "$temp_dir/wps/classic_statusbar.rsbs"); | 656 | copy("$temp_dir/wps/classic_statusbar.sbs", "$temp_dir/wps/classic_statusbar.rsbs"); |
657 | } | 657 | } |
658 | copy("$temp_dir/wps/rockbox_none.sbs", "$temp_dir/wps/rockbox_none.rsbs"); | 658 | copy("$temp_dir/wps/rockbox_none.sbs", "$temp_dir/wps/rockbox_none.rsbs"); |
659 | 659 | ||
660 | # and the info file | 660 | # and the info file |