mirror of
https://github.com/rvtr/TwlIPL.git
synced 2025-10-31 06:01:12 -04:00
aqua server より ROM を自動取得するためのスクリプトを追加(稲葉＠環制）
git-svn-id: file:///Users/lillianskinner/Downloads/platinum/twl/TwlIPL/trunk@2448 b08762b0-b915-fc4b-9d8c-17b2551a87ff
This commit is contained in:
(no author)
parent
d2cc2d32fb
commit
f70a9e8fd3
55
build/tests/CustomSystemUpdater/work/pickup_tad.dev.sh
Executable file
55
build/tests/CustomSystemUpdater/work/pickup_tad.dev.sh
Executable file
@ -0,0 +1,55 @@
|
|||||||
|
#!/bin/sh
|
||||||
|
#! bash -f
|
||||||
|
|
||||||
|
#---- commands
|
||||||
|
LS='/bin/ls'
|
||||||
|
ECHO='/bin/echo'
|
||||||
|
HEAD='/bin/head'
|
||||||
|
FIND='/bin/find'
|
||||||
|
COPY='/bin/cp'
|
||||||
|
DATE='/bin/date'
|
||||||
|
XARGS='/bin/xargs'
|
||||||
|
MKDIR='/bin/mkdir'
|
||||||
|
CHDIR='cd'
|
||||||
|
|
||||||
|
#---- values
|
||||||
|
aqua_server='//10.116.1.5'
|
||||||
|
debug_dir="${aqua_server}/TWL_debug/sysmenu/rom/debug_rom"
|
||||||
|
redroms="${debug_dir}/sd.roms.template*"
|
||||||
|
clsbase="${debug_dir}/CLS_base"
|
||||||
|
datedir=`${DATE} +%Y%m%d`
|
||||||
|
regions='jp usa euro aus'
|
||||||
|
|
||||||
|
#---- call pickup_tad.pl
|
||||||
|
${ECHO} "===== getting latest apps files ====="
|
||||||
|
perl ./pickup_tad.pl
|
||||||
|
|
||||||
|
#---- gets the latest sd.roms.template roms
|
||||||
|
#redrom_dir=`${LS} -d --full-time ${redroms} | sort -k 7,10 | tail -n 1`
|
||||||
|
redrom_dir=`${LS} -dt ${redroms} | ${HEAD} -n 1`
|
||||||
|
${ECHO} -e "===== getting sd.roms.template* rom files ====="
|
||||||
|
${ECHO} -e "sd.roms.template dir : ${redrom_dir}"
|
||||||
|
${ECHO} -e "copy *.(tad|dat|nand) file -> ${datedir} dir\n"
|
||||||
|
${FIND} ${redrom_dir} -regextype posix-egrep -regex ".*.(tad|dat|nand)" | ${XARGS} ${COPY} -fut ${datedir} > /dev/null
|
||||||
|
|
||||||
|
#---- gets the cls base roms
|
||||||
|
${ECHO} -e "===== getting sd.roms.template* rom files ====="
|
||||||
|
${ECHO} -e "CLS_base dir : ${clsbase}"
|
||||||
|
${ECHO} -e "copy *.tad file -> ${datedir} dir"
|
||||||
|
${FIND} ${clsbase} -name "*.tad" | ${XARGS} ${COPY} -fut ${datedir} > /dev/null
|
||||||
|
|
||||||
|
#---- call mkcls.py
|
||||||
|
${ECHO} -e "===== create forcls dirs ====="
|
||||||
|
${MKDIR} ${datedir}_forcls
|
||||||
|
${CHDIR} ${datedir}_forcls
|
||||||
|
${FIND} ../${datedir} -name "*.tad" -exec ../mkcls.py {} \;
|
||||||
|
|
||||||
|
${ECHO} -e "===== copy *.nand *.dat files -> (jp|usa|euro|aus) dirs =====\n"
|
||||||
|
for region in ${regions}
|
||||||
|
do
|
||||||
|
${MKDIR} ${region}
|
||||||
|
${COPY} ../${datedir}/*.nand ${region}
|
||||||
|
${COPY} ../${datedir}/*.dat ${region}
|
||||||
|
done
|
||||||
|
|
||||||
|
${COPY} ../cls.sh ./
|
||||||
146
build/tests/CustomSystemUpdater/work/pickup_tad.pl
Executable file
146
build/tests/CustomSystemUpdater/work/pickup_tad.pl
Executable file
@ -0,0 +1,146 @@
|
|||||||
|
#!/usr/bin/perl -w -I/usr/local/bin
|
||||||
|
use File::Copy;
|
||||||
|
use File::Copy::Recursive qw(fcopy rcopy dircopy);
|
||||||
|
use Class::Struct;
|
||||||
|
use POSIX 'strftime';
|
||||||
|
use File::Find;
|
||||||
|
|
||||||
|
require "util.pl";
|
||||||
|
|
||||||
|
my @apps = ("download_play",
|
||||||
|
"full_browser",
|
||||||
|
"nintendo_spot",
|
||||||
|
"photo",
|
||||||
|
"pictchat",
|
||||||
|
"shop",
|
||||||
|
"sound",
|
||||||
|
"sysmenu");
|
||||||
|
|
||||||
|
my $flgDate = 0;
|
||||||
|
|
||||||
|
my $i;
|
||||||
|
my $date_dir = "";
|
||||||
|
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
|
||||||
|
my $str_today = sprintf("%04d%02d%02d", $year+1900, $mon+1, $mday);
|
||||||
|
my $flghelp = 0;
|
||||||
|
my $err;
|
||||||
|
my @list_tad;
|
||||||
|
|
||||||
|
|
||||||
|
for ($i = 0; $i < $#ARGV+1; $i++) {
|
||||||
|
|
||||||
|
my $opt = $ARGV[$i];
|
||||||
|
|
||||||
|
if ( $opt eq "-d" ) {
|
||||||
|
$flgDate = 1;
|
||||||
|
unless ( $#ARGV <= $i ) {
|
||||||
|
#$date_dir = $aqua_dir."/SD_".$ARGV[$i+1];
|
||||||
|
$str_today = $ARGV[$i+1];
|
||||||
|
$err = [ 1, "Not date (\"$date_dir\") !!"] if ( $date_dir !~ /[0-9]{8}/ );
|
||||||
|
$i++;
|
||||||
|
|
||||||
|
} else {
|
||||||
|
$err = [1,"No argument after -d !!"];
|
||||||
|
}
|
||||||
|
} elsif ( $opt eq "-h" ) {
|
||||||
|
&show_help;
|
||||||
|
exit 0;
|
||||||
|
} else {
|
||||||
|
print "Unknown option: $opt\n";
|
||||||
|
&show_help;
|
||||||
|
exit 1;
|
||||||
|
}
|
||||||
|
do {
|
||||||
|
print "*** Error *** : $err->[1]";
|
||||||
|
exit 1;
|
||||||
|
} if ( $err->[0] );
|
||||||
|
}
|
||||||
|
|
||||||
|
# each application directory
|
||||||
|
foreach $app ( @apps )
|
||||||
|
{
|
||||||
|
my $dir_date;
|
||||||
|
#$dir_app = sprintf('//Aqua/TWL_debug/%s/rom/tad', $app);
|
||||||
|
$dir_app = sprintf('//10.116.1.5/TWL_debug/%s/rom/tad', $app);
|
||||||
|
$dir_app_date = &search_date_dir($dir_app);
|
||||||
|
|
||||||
|
print "* $dir_app\n - $dir_app_date\n\n";
|
||||||
|
|
||||||
|
find( sub
|
||||||
|
{
|
||||||
|
do {
|
||||||
|
push @list_tad, $File::Find::name }if (/\.tad$/);
|
||||||
|
}, $dir_app_date
|
||||||
|
);
|
||||||
|
#foreach ( @list_tad ) { print " * $_\n"; }
|
||||||
|
}
|
||||||
|
|
||||||
|
#print "Date: $date_dir\n";
|
||||||
|
|
||||||
|
# Actually not today
|
||||||
|
mkdir($str_today);
|
||||||
|
|
||||||
|
# copy to the local date directory
|
||||||
|
foreach ( @list_tad ) {
|
||||||
|
print("$_\n");
|
||||||
|
copy($_, $str_today);
|
||||||
|
}
|
||||||
|
|
||||||
|
#
|
||||||
|
exit 0;
|
||||||
|
|
||||||
|
#-----------------------------------------------------------------------
|
||||||
|
# name : show_help
|
||||||
|
# function :
|
||||||
|
#-----------------------------------------------------------------------
|
||||||
|
sub show_help
|
||||||
|
{
|
||||||
|
print <<__MSG_HELP__;
|
||||||
|
Usage:
|
||||||
|
\$ perl pickup_tad.pl [-d yyyymmdd]
|
||||||
|
__MSG_HELP__
|
||||||
|
}
|
||||||
|
|
||||||
|
#-----------------------------------------------------------------------
|
||||||
|
# name : search_date_dir
|
||||||
|
# function :
|
||||||
|
#-----------------------------------------------------------------------
|
||||||
|
sub search_date_dir
|
||||||
|
{
|
||||||
|
my $root_dir;
|
||||||
|
my $date_dir;
|
||||||
|
my $prefix = ($#_<1) ? "" : $_[1];
|
||||||
|
my $full_prefix;
|
||||||
|
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
|
||||||
|
|
||||||
|
$year += 1900;
|
||||||
|
$mon += 1;
|
||||||
|
|
||||||
|
$root_dir = ( $#_ < 0 ) ? "." : $_[0];
|
||||||
|
|
||||||
|
$full_prefix = $root_dir."/".$prefix;
|
||||||
|
$date_dir = $full_prefix.sprintf("%04d%02d%02d", $year, $mon, $mday);
|
||||||
|
|
||||||
|
# search directory on going back date
|
||||||
|
while ( $year >= 2000 ) {
|
||||||
|
if ( -e "$date_dir" and -d "$date_dir") {
|
||||||
|
return "$date_dir";
|
||||||
|
} else {
|
||||||
|
$mday -= 1;
|
||||||
|
$date_dir = $full_prefix.sprintf("%04d%02d%02d", $year, $mon, $mday);
|
||||||
|
}
|
||||||
|
do {
|
||||||
|
$mday = 31; # constant
|
||||||
|
$mon -= 1;
|
||||||
|
unless ( $mon ) {
|
||||||
|
$mon = 12;
|
||||||
|
$year -= 1;
|
||||||
|
}
|
||||||
|
} unless ( $mday ) ;
|
||||||
|
}
|
||||||
|
print "*** Error *** : Can't find the date directory !!\n";
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
__END__
|
||||||
|
|
||||||
110
build/tests/CustomSystemUpdater/work/util.pl
Executable file
110
build/tests/CustomSystemUpdater/work/util.pl
Executable file
@ -0,0 +1,110 @@
|
|||||||
|
|
||||||
|
package util;
|
||||||
|
|
||||||
|
#-----------------------------------------------------------------------
|
||||||
|
# name : get_title_version
|
||||||
|
# function : get the title version from the specified tad file
|
||||||
|
#-----------------------------------------------------------------------
|
||||||
|
sub get_title_version {
|
||||||
|
|
||||||
|
my $titleVersion = 0 ;
|
||||||
|
my $cmdPython = "/usr/bin/python.exe";
|
||||||
|
my $scrpPython = "/usr/local/bin/mkcls.py";
|
||||||
|
$tad = $_[0];
|
||||||
|
|
||||||
|
open(PY, "$cmdPython $scrpPython $tad | ") or die "$!";
|
||||||
|
$titleVersion = $1 if ( <PY> =~ /([0-9]{1,})/) ;
|
||||||
|
close(PY);
|
||||||
|
|
||||||
|
$titleVersion;
|
||||||
|
}
|
||||||
|
|
||||||
|
#-----------------------------------------------------------------------
|
||||||
|
# name : get_nlist
|
||||||
|
# function : get the list of the specified directory except "." and ".."
|
||||||
|
#-----------------------------------------------------------------------
|
||||||
|
sub get_nlist {
|
||||||
|
my $dirname = ( $#_ < 0) ? "." : $_[0];
|
||||||
|
my @list;
|
||||||
|
|
||||||
|
unless ( opendir(DIR, "$dirname") ) {
|
||||||
|
print "Can't open directory: $dirname\n";
|
||||||
|
return "";
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach $node ( readdir(DIR) ) {
|
||||||
|
push(@list, $node) unless ( $node =~ /^\.{1,2}$/ );
|
||||||
|
}
|
||||||
|
closedir(DIR);
|
||||||
|
|
||||||
|
@list;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
#-----------------------------------------------------------------------
|
||||||
|
# name : fecheck
|
||||||
|
# function : check the specified file existence (Error if no file)
|
||||||
|
#-----------------------------------------------------------------------
|
||||||
|
sub fecheck {
|
||||||
|
my $filename = $_[0];
|
||||||
|
unless ( -e $filename ) {
|
||||||
|
print <<ERROR_NO_FILE;
|
||||||
|
[ # Error] No such file : $filename
|
||||||
|
ERROR_NO_FILE
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
1;
|
||||||
|
}
|
||||||
|
|
||||||
|
#-----------------------------------------------------------------------
|
||||||
|
# name : fwcheck
|
||||||
|
# function : check the specified file existence (Warning if no file)
|
||||||
|
#-----------------------------------------------------------------------
|
||||||
|
sub fwcheck {
|
||||||
|
my $filename = $_[0];
|
||||||
|
unless ( -e $filename ) {
|
||||||
|
print <<WARN_NO_FILE;
|
||||||
|
[ = Warn ] No such file : $filename
|
||||||
|
WARN_NO_FILE
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
1;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub get_filebody {
|
||||||
|
my ($filename_body) = @_;
|
||||||
|
$filename_body = $1 if ( $filename_body =~ /(.{1,})\.[^.]{1,}$/);
|
||||||
|
$filename_body;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub get_fileext {
|
||||||
|
my ($filename_ext) = @_;
|
||||||
|
$filename_ext = $1 if ( $filename_ext =~ /.{1,}\.([^.]{1,})$/);
|
||||||
|
$filename_ext;
|
||||||
|
}
|
||||||
|
|
||||||
|
#-----------------------------------------------------------------------
|
||||||
|
# name : cnv_str2hex
|
||||||
|
# function : check the specified file existence (Warning if no file)
|
||||||
|
#-----------------------------------------------------------------------
|
||||||
|
sub cnv_str2hex {
|
||||||
|
my $instr = $_[0];
|
||||||
|
my $outstr = "" ;
|
||||||
|
my $i;
|
||||||
|
|
||||||
|
my $len = ($#_<1) ? 1 : $_[1];
|
||||||
|
|
||||||
|
#print (substr($instr, 0, 1));
|
||||||
|
#print (substr($instr, 1, 1));
|
||||||
|
for ( $i=0; $i<$len; $i++) {
|
||||||
|
$outstr .= chr ( (hex(substr($_[0], $i*2, 1))<<4)
|
||||||
|
| (hex(substr($_[0], $i*2+1, 1)) ) );
|
||||||
|
#print $outstr."\n";
|
||||||
|
}
|
||||||
|
return $outstr;
|
||||||
|
}
|
||||||
|
|
||||||
|
return 1;
|
||||||
|
|
||||||
|
__END__
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user