mirror of
https://github.com/rvtr/TwlIPL.git
synced 2025-10-31 06:01:12 -04:00
f70a9e8fd3
git-svn-id: file:///Users/lillianskinner/Downloads/platinum/twl/TwlIPL/trunk@2448 b08762b0-b915-fc4b-9d8c-17b2551a87ff
147 lines
3.2 KiB
Perl
Executable File
147 lines
3.2 KiB
Perl
Executable File
#!/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__
|
|
|