1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
#! /usr/bin/perl -w
use warnings;
use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove);
open FH, '..\..\Common\BuildVer.h' or die $!;
my $lineno=1;
my $index;
while(<FH>)
{
$lineno++;
$index = rindex($_,'#define VER_PRODUCTBUILD ');
my($line) = $_;
chomp($line);
if($index>-1)
{
@build = split(/ +/, $line);
$buildnum = sprintf("%4d", $build[2]);
$buildnum=~ tr/ /0/;
}
}
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
open FH, "+>", 'BuildName.txt' or die $!;
$configline = sprintf("MINECRAFTVIT%s,",$buildnum); ##build package name
print FH $configline;
close FH;
## Copy the symbols file
open FH, "+>", 'move_pkg.cmd' or die $!;
$configline = sprintf("mkdir X:\\Builds\\PSVita\\%s\\\n",$buildnum);
print FH $configline;
$configline = sprintf("move X:\\Builds\\PSVita\\%%TERRITORY%%\\BUILD\\EP4433-PCSB00560_00-MINECRAFTVIT0000.pkg X:\\Builds\\PSVita\\%s\\\n",$buildnum,$buildnum);
print FH $configline;
$configline = sprintf("move X:\\Builds\\PSVita\\%%TERRITORY%%\\BUILD\\psvita-pkg-EP4433-PCSB00560_00-MINECRAFTVIT0000-A0100-V0100-spec.xml X:\\Builds\\PSVita\\%s\\\n",$buildnum,$buildnum);
print FH $configline;
$configline = sprintf("move X:\\Builds\\PSVita\\%%TERRITORY%%\\BUILD\\psvita-pkg-EP4433-PCSB00560_00-MINECRAFTVIT0000-A0100-V0100-submission_materials.zip X:\\Builds\\PSVita\\%s\\\n",$buildnum,$buildnum);
print FH $configline;
$configline = sprintf("move X:\\Builds\\PSVita\\%%TERRITORY%%\\%%TERRITORY%%.self X:\\Builds\\PSVita\\%s\\\n",$buildnum,$buildnum);
print FH $configline;
close FH;
|
