919 lines
31 KiB
Perl
919 lines
31 KiB
Perl
#
|
|
#
|
|
#
|
|
|
|
use Env;
|
|
|
|
################################################################################
|
|
|
|
$svcsetup_bin = "$ENV{SDXROOT}/admin/pchealth/helpctr/target/obj/i386/SvcSetup.exe";
|
|
|
|
$lookup_VAR{ "BUILD_OUTPUT" } = "$ENV{_NTTREE}";
|
|
|
|
$lookup_VAR{ "HC_SRC" } = "$ENV{SDXROOT}/admin/pchealth/helpctr";
|
|
$lookup_VAR{ "HC_DATA" } = "$ENV{SDXROOT}/admin/pchealth/helpctr/Content";
|
|
$lookup_VAR{ "HC_DB" } = "$ENV{SDXROOT}/admin/pchealth/HelpCtr/Content/Database";
|
|
$lookup_VAR{ "HC_HTML" } = "$ENV{SDXROOT}/admin/pchealth/HelpCtr/Content/SystemPages";
|
|
|
|
$lookup_VAR{ "SI_HTML" } = "$ENV{SDXROOT}/admin/pchealth/SysInfo/HTML";
|
|
$lookup_VAR{ "SI_CTRL" } = "$ENV{SDXROOT}/admin/pchealth/SysInfo/Control";
|
|
|
|
################################################################################
|
|
|
|
$lookup_SKU{ "All" } = [ "", "", "" ];
|
|
|
|
#### $lookup_SKU{ "Personal_32" } = [ "Personal_32" , "p3", "\@p:\@3:" ];
|
|
#### $lookup_SKU{ "Professional_32" } = [ "Professional_32" , "w3", "\@w!p:\@3:" ];
|
|
#### $lookup_SKU{ "Server_32" } = [ "Server_32" , "s3", "\@s!e!b:\@3:" ];
|
|
#### $lookup_SKU{ "Blade_32" } = [ "Blade_32" , "b3", "\@b:\@3:" ];
|
|
#### $lookup_SKU{ "AdvancedServer_32" } = [ "AdvancedServer_32", "e3", "\@e!d:\@3:" ];
|
|
#### #lookup_SKU{ "AdvancedServer_32" } = [ "AdvancedServer_32", "e3", "\@s!d:\@3:" ];
|
|
#### $lookup_SKU{ "DataCenter_32" } = [ "DataCenter_32" , "d3", "\@d:\@3:" ];
|
|
####
|
|
#### #lookup_SKU{ "Personal_64" } = [ "Personal_64" , "p6", "\@p:\@6:" ];
|
|
#### $lookup_SKU{ "Professional_64" } = [ "Professional_64" , "w6", "\@w!p:\@6:" ];
|
|
#### #lookup_SKU{ "Server_64" } = [ "Server_64" , "s6", "\@s!e!b:\@6:" ];
|
|
#### #lookup_SKU{ "Blade_64" } = [ "Blade_64" , "b6", "\@b:\@6:" ];
|
|
#### $lookup_SKU{ "AdvancedServer_64" } = [ "AdvancedServer_64", "e6", "\@e!d:\@6:" ];
|
|
#### #lookup_SKU{ "AdvancedServer_64" } = [ "AdvancedServer_64", "e6", "\@sed:\@6:" ];
|
|
#### $lookup_SKU{ "DataCenter_64" } = [ "DataCenter_64" , "d6", "\@d:\@6:" ];
|
|
|
|
################################################################################
|
|
|
|
$SKU_32BITS = "\@\@:\@3:";
|
|
|
|
################################################################################
|
|
|
|
$BITMASK_INSTALL_CORE = 0x0001;
|
|
$BITMASK_INSTALL_WMIXMLT = 0x0002;
|
|
$BITMASK_INSTALL_LAMEBTN = 0x0004;
|
|
$BITMASK_INSTALL_UPLOADLB = 0x0008;
|
|
$BITMASK_INSTALL_HELPCTR = 0x0010;
|
|
$BITMASK_INSTALL_RCTOOL = 0x0020;
|
|
$BITMASK_INSTALL_SYSINFO = 0x0040;
|
|
$BITMASK_INSTALL_NETDIAG = 0x0080;
|
|
$BITMASK_INSTALL_DVDUPGRD = 0x0100;
|
|
|
|
|
|
$lookup_STR_to_MASK{ "ALL" } = -1;
|
|
$lookup_STR_to_MASK{ "CORE" } = $BITMASK_INSTALL_CORE;
|
|
$lookup_STR_to_MASK{ "WMIXMLT" } = $BITMASK_INSTALL_WMIXMLT;
|
|
$lookup_STR_to_MASK{ "LAMEBTN" } = $BITMASK_INSTALL_LAMEBTN;
|
|
$lookup_STR_to_MASK{ "UPLOADLB" } = $BITMASK_INSTALL_UPLOADLB;
|
|
$lookup_STR_to_MASK{ "HELPCTR" } = $BITMASK_INSTALL_HELPCTR;
|
|
$lookup_STR_to_MASK{ "RCTOOL" } = $BITMASK_INSTALL_RCTOOL;
|
|
$lookup_STR_to_MASK{ "NETDIAG" } = $BITMASK_INSTALL_NETDIAG;
|
|
$lookup_STR_to_MASK{ "SYSINFO" } = $BITMASK_INSTALL_SYSINFO;
|
|
$lookup_STR_to_MASK{ "DVDUPGRD" } = $BITMASK_INSTALL_DVDUPGRD;
|
|
|
|
################################################################################
|
|
|
|
$OPT_SKU = "";
|
|
$OPT_COPY = 0; # Force the option, NOT TO COPY FILES, INF only.
|
|
$OPT_VERBOSE = 0;
|
|
$OPT_MODE = "NORMAL";
|
|
|
|
$OPT_SIGNFILE = "";
|
|
|
|
$OPT_INSTALL_DEFAULT = 1;
|
|
$OPT_INSTALL = 0;
|
|
|
|
$OPT_INSTALL_DIR = "FilesToDrop";
|
|
$OPT_INSTALL_INF = "";
|
|
$OPT_INSTALL_INFTXT = "";
|
|
|
|
################################################################################
|
|
|
|
@SectionDefinition = (
|
|
# Tag in the INF
|
|
# | Directory where to install this tag
|
|
# | | Delayed installation?
|
|
# | | |
|
|
# V V V
|
|
[ "WINDOWS" , "%10%" , "" ],
|
|
[ "SYSTEM" , "%11%" , "" ],
|
|
|
|
[ "WMI" , "%11%\\WBEM" , "" ],
|
|
[ "WMI_DLY" , "%11%\\WBEM" , "PCHDATA" ],
|
|
[ "WMIDTD" , "%11%\\WBEM\\DTD" , "" ],
|
|
[ "UL_BIN" , "%10%\\PCHealth\\UploadLB\\Binaries" , "" ],
|
|
[ "UL_CFG" , "%10%\\PCHealth\\UploadLB\\Config" , "PCHDATA" ],
|
|
|
|
[ "HC_BIN" , "%10%\\PCHealth\\HelpCtr\\Binaries" , "" ],
|
|
[ "HC_BIN_DLY" , "%10%\\PCHealth\\HelpCtr\\Binaries" , "PCHDATA" ],
|
|
[ "HC_DB" , "%10%\\PCHealth\\HelpCtr\\Database" , "PCHDATA" ],
|
|
[ "HC_CFG" , "%10%\\PCHealth\\HelpCtr\\Config" , "PCHDATA" ],
|
|
|
|
[ "HC_HTM_SYS" , "%10%\\PCHealth\\HelpCtr\\System" , "PCHDATA" ],
|
|
[ "HC_HTM_CSS" , "%10%\\PCHealth\\HelpCtr\\System\\css" , "PCHDATA" ],
|
|
[ "HC_HTM_DLG" , "%10%\\PCHealth\\HelpCtr\\System\\dialogs" , "PCHDATA" ],
|
|
[ "HC_HTM_ERR" , "%10%\\PCHealth\\HelpCtr\\System\\errors" , "PCHDATA" ],
|
|
[ "HC_HTM_PAN" , "%10%\\PCHealth\\HelpCtr\\System\\panels" , "PCHDATA" ],
|
|
[ "HC_HTM_SUBPAN", "%10%\\PCHealth\\HelpCtr\\System\\panels\\subpanels" , "PCHDATA" ],
|
|
[ "HC_HTM_SCR" , "%10%\\PCHealth\\HelpCtr\\System\\scripts" , "PCHDATA" ],
|
|
|
|
[ "HC_HTM_IMG" , "%10%\\PCHealth\\HelpCtr\\System\\images" , "PCHDATA" ],
|
|
[ "HC_HTM_IMG16" , "%10%\\PCHealth\\HelpCtr\\System\\images\\16x16" , "PCHDATA" ],
|
|
[ "HC_HTM_IMG24" , "%10%\\PCHealth\\HelpCtr\\System\\images\\24x24" , "PCHDATA" ],
|
|
[ "HC_HTM_IMG32" , "%10%\\PCHealth\\HelpCtr\\System\\images\\32x32" , "PCHDATA" ],
|
|
[ "HC_HTM_IMG48" , "%10%\\PCHealth\\HelpCtr\\System\\images\\48x48" , "PCHDATA" ],
|
|
[ "HC_HTM_EXP" , "%10%\\PCHealth\\HelpCtr\\System\\images\\Expando" , "PCHDATA" ],
|
|
[ "HC_HTM_CTR" , "%10%\\PCHealth\\HelpCtr\\System\\images\\Centers" , "PCHDATA" ],
|
|
|
|
[ "HC_HTM_LAM" , "%10%\\PCHealth\\HelpCtr\\System\\HelpComment" , "PCHDATA" ],
|
|
[ "HC_HTM_BLB" , "%10%\\PCHealth\\HelpCtr\\System\\blurbs" , "PCHDATA" ],
|
|
[ "HC_HTM_RC" , "%10%\\PCHealth\\HelpCtr\\System\\rc" , "PCHDATA" ],
|
|
|
|
[ "HC_HTM_UPD" , "%10%\\PCHealth\\HelpCtr\\System\\UpdateCtr" , "PCHDATA" ],
|
|
[ "HC_HTM_CPT" , "%10%\\PCHealth\\HelpCtr\\System\\CompatCtr" , "PCHDATA" ],
|
|
[ "HC_HTM_DFS" , "%10%\\PCHealth\\HelpCtr\\System\\DFS" , "PCHDATA" ],
|
|
[ "HC_HTM_ERRMSG", "%10%\\PCHealth\\HelpCtr\\System\\ErrMsg" , "PCHDATA" ],
|
|
|
|
[ "SI_HTM" , "%10%\\PCHealth\\HelpCtr\\System\\sysinfo" , "PCHDATA" ],
|
|
[ "SI_GIF" , "%10%\\PCHealth\\HelpCtr\\System\\sysinfo\\graphics" , "PCHDATA" ],
|
|
[ "SI_PIE1" , "%10%\\PCHealth\\HelpCtr\\System\\sysinfo\\graphics\\33x16pie", "PCHDATA" ],
|
|
[ "SI_PIE2" , "%10%\\PCHealth\\HelpCtr\\System\\sysinfo\\graphics\\47x24pie", "PCHDATA" ],
|
|
|
|
[ "ND_HTM" , "%10%\\PCHealth\\HelpCtr\\System\\NetDiag" , "PCHDATA" ],
|
|
|
|
[ "DVD_HTM" , "%10%\\PCHealth\\HelpCtr\\System\\DVDUpgrd" , "PCHDATA" ],
|
|
);
|
|
|
|
@ComponentDefinition = (
|
|
# Tag in the INF
|
|
# | Component to map to this tag
|
|
# | | Bit mask for installation.
|
|
# | | | Flags for SKU
|
|
# | | | |
|
|
# V V V V
|
|
[ "WINDOWS" , "CompWindows" , "ALL" , "" ],
|
|
[ "SYSTEM" , "CompSystem" , "ALL" , "" ],
|
|
|
|
[ "WMI" , "CompWMI_prov" , "UPLOADLB", "" ],
|
|
[ "WMI" , "CompWMIXMLT" , "WMIXMLT" , "" ],
|
|
[ "WMIDTD" , "CompWMIDTD" , "WMIXMLT" , "" ],
|
|
[ "UL_BIN" , "CompUL" , "UPLOADLB", "" ],
|
|
[ "UL_CFG" , "CompUL_cfg" , "UPLOADLB", "" ],
|
|
|
|
[ "HC_BIN" , "CompHC_bin" , "HELPCTR" , "" ],
|
|
[ "HC_DB" , "CompHC_db" , "HELPCTR" , "" ],
|
|
[ "HC_CFG" , "CompHC_cfg" , "HELPCTR" , "" ],
|
|
|
|
[ "HC_CFG" , "CompHC_cfg" , "HELPCTR" , "" ],
|
|
|
|
[ "HC_HTM_SYS" , "CompHC_system" , "HELPCTR" , "" ],
|
|
[ "HC_HTM_CSS" , "CompHC_css" , "HELPCTR" , "" ],
|
|
[ "HC_HTM_DLG" , "CompHC_dlg" , "HELPCTR" , "" ],
|
|
[ "HC_HTM_ERR" , "CompHC_errors" , "HELPCTR" , "" ],
|
|
[ "HC_HTM_PAN" , "CompHC_panels" , "HELPCTR" , "" ],
|
|
[ "HC_HTM_SUBPAN", "CompHC_subpan" , "HELPCTR" , "" ],
|
|
[ "HC_HTM_SCR" , "CompHC_scripts", "HELPCTR" , "" ],
|
|
|
|
[ "HC_HTM_IMG" , "CompHC_images" , "HELPCTR" , "" ],
|
|
[ "HC_HTM_IMG16" , "CompHC_16x16" , "HELPCTR" , "" ],
|
|
[ "HC_HTM_IMG24" , "CompHC_24x24" , "HELPCTR" , "" ],
|
|
[ "HC_HTM_IMG32" , "CompHC_32x32" , "HELPCTR" , "" ],
|
|
[ "HC_HTM_IMG48" , "CompHC_48x48" , "HELPCTR" , "" ],
|
|
[ "HC_HTM_EXP" , "CompHC_expando", "HELPCTR" , "" ],
|
|
[ "HC_HTM_CTR" , "CompHC_centers", "HELPCTR" , "" ],
|
|
|
|
[ "HC_HTM_LAM" , "CompHC_lame" , "HELPCTR" , "" ],
|
|
[ "HC_HTM_BLB" , "CompHC_blurbs" , "HELPCTR" , "" ],
|
|
[ "HC_HTM_RC" , "CompHC_rc" , "HELPCTR" , "" ],
|
|
|
|
[ "HC_HTM_UPD" , "CompHC_update" , "HELPCTR" , "" ],
|
|
[ "HC_HTM_CPT" , "CompHC_compat" , "HELPCTR" , "" ],
|
|
[ "HC_HTM_DFS" , "CompHC_dfs" , "HELPCTR" , "" ],
|
|
[ "HC_HTM_ERRMSG", "CompHC_errmsg" , "HELPCTR" , "" ],
|
|
|
|
[ "HC_BIN" , "CompSI_bin" , "SYSINFO" , "" ],
|
|
[ "WMI_DLY" , "CompSI_mof" , "SYSINFO" , "" ],
|
|
[ "SI_HTM" , "CompSI_htm" , "SYSINFO" , "" ],
|
|
[ "SI_GIF" , "CompSI_gif" , "SYSINFO" , "" ],
|
|
[ "SI_PIE1" , "CompSI_pie1" , "SYSINFO" , "" ],
|
|
[ "SI_PIE2" , "CompSI_pie2" , "SYSINFO" , "" ],
|
|
|
|
[ "ND_HTM" , "CompND_htm" , "NETDIAG" , "" ],
|
|
|
|
[ "DVD_HTM" , "CompDVD_htm" , "DVDUPGRD", "" ],
|
|
);
|
|
|
|
${uniq_seq} = 0;
|
|
|
|
foreach $in ( @SectionDefinition )
|
|
{
|
|
$infid = $$in[0];
|
|
$dir = $$in[1];
|
|
|
|
$lookup_INFID_to_FILES__source { $infid } = {};
|
|
$lookup_INFID_to_FILES__destination{ $infid } = {};
|
|
$lookup_INFID_to_DIR { $infid } = $dir;
|
|
$lookup_DELAYED { $infid } = $$in[2] if $$in[2];
|
|
}
|
|
|
|
foreach $in ( @ComponentDefinition )
|
|
{
|
|
$infid = $$in[0];
|
|
$comp = $$in[1];
|
|
$prod = $$in[2];
|
|
$sku = $$in[3];
|
|
|
|
$lookup_COMP_to_FILES__destination{ $comp } = $lookup_INFID_to_FILES__destination{ $infid };
|
|
$lookup_COMP_to_PRODUCT { $comp } = $prod;
|
|
$lookup_COMP_to_INFID { $comp } = $infid;
|
|
$lookup_COMP_to_SKU { $comp } = $sku;
|
|
}
|
|
|
|
################################################################################
|
|
|
|
sub mysystem
|
|
{
|
|
my($cmd) = @_;
|
|
|
|
if ($OPT_VERBOSE == 1)
|
|
{
|
|
printf STDOUT ("%s\n", $cmd );
|
|
}
|
|
else
|
|
{
|
|
$cmd = qq|$cmd > nul 2>&1|;
|
|
}
|
|
|
|
return( system $cmd );
|
|
}
|
|
|
|
sub parseargs
|
|
{
|
|
$getarg="";
|
|
|
|
foreach (@ARGV)
|
|
{
|
|
$arg = $_;
|
|
|
|
if($getarg)
|
|
{
|
|
for ($getarg)
|
|
{
|
|
/^-sku$/i and do
|
|
{
|
|
$OPT_SKU=$arg;
|
|
|
|
&Usage unless $lookup_SKU{ $OPT_SKU };
|
|
|
|
last;
|
|
};
|
|
|
|
/^-install$/i and do
|
|
{
|
|
$OPT_INSTALL = 0 if $OPT_INSTALL_DEFAULT;
|
|
undef $OPT_INSTALL_DEFAULT;
|
|
|
|
$arg =~ tr/[a-z]/[A-Z]/;
|
|
|
|
&Usage unless $lookup_STR_to_MASK{ $arg };
|
|
|
|
$OPT_INSTALL |= $lookup_STR_to_MASK{ $arg };
|
|
last;
|
|
};
|
|
|
|
/^-dir$/i and do
|
|
{
|
|
$OPT_INSTALL_DIR=$arg;
|
|
last;
|
|
};
|
|
|
|
/^-inf$/i and do
|
|
{
|
|
$OPT_INSTALL_INF=$arg;
|
|
last;
|
|
};
|
|
|
|
/^-inftxt$/i and do
|
|
{
|
|
$OPT_INSTALL_INFTXT=$arg;
|
|
last;
|
|
};
|
|
|
|
/^-signfile$/i and do
|
|
{
|
|
$OPT_SIGNFILE=$arg;
|
|
last;
|
|
};
|
|
}
|
|
|
|
$getarg="";
|
|
}
|
|
else
|
|
{
|
|
for ($arg)
|
|
{
|
|
/^-normal$/i and do { $OPT_MODE = "NORMAL" ; last; };
|
|
/^-standalone$/i and do { $OPT_MODE = "STANDALONE"; last; };
|
|
|
|
/^-sku$/i and do { $getarg = $_; last; };
|
|
/^-skipcopy$/i and do { $OPT_COPY = 0; last; };
|
|
/^-docopy$/i and do { $OPT_COPY = 1; last; };
|
|
/^-verbose$/i and do { $OPT_VERBOSE = 1; last; };
|
|
|
|
/^-install$/i and do { $getarg = $_; last; };
|
|
/^-dir$/i and do { $getarg = $_; last; };
|
|
/^-inf$/i and do { $getarg = $_; last; };
|
|
/^-inftxt$/i and do { $getarg = $_; last; };
|
|
|
|
/^-signfile$/i and do { $getarg = $_; last; };
|
|
|
|
printf ("Invalid option: %s\n\n", $_);
|
|
&Usage;
|
|
}
|
|
}
|
|
}
|
|
|
|
$OPT_INSTALL_INF = $OPT_INSTALL_DIR unless $OPT_INSTALL_INF;
|
|
$OPT_INSTALL_INFTXT = $OPT_INSTALL_DIR unless $OPT_INSTALL_INFTXT;
|
|
}
|
|
|
|
sub Usage
|
|
{
|
|
print q/CreateInf - Create the setup package for PC Health
|
|
|
|
Usage: CreateInf [<options>]
|
|
Options:
|
|
-help Prints out this message.
|
|
-sku Specify the flavor of the setup (default: Server_32).
|
|
-skipcopy Do not copy files.
|
|
-verbose Output a log of the operations.
|
|
|
|
-debug Generate a setup for DEBUG. (symbols, etc.)
|
|
-retail Generate a setup for RETAIL.
|
|
-bbt Generate a setup for BBT. (instrumented exes, etc.)
|
|
-opt Generate a setup for OPT. (optimized exes, etc.)
|
|
|
|
-normal Generate an INF for NT setup. (default)
|
|
-standalone Generate an INF for direct installation.
|
|
|
|
-dir <path> The directory that will receive the files. (def: FilesToDrop)
|
|
|
|
-install <part> Include <part> in the installation. You can repeat the option
|
|
more than one to include multiple products. Valid values:
|
|
|
|
ALL - Everything.
|
|
CORE - The common modules.
|
|
HELPCTR - Help And Support Services.
|
|
NETDIAG - Network Diagnostics.
|
|
SYSINFO - System Information.
|
|
NETDIAG - Network diagnostics.
|
|
DVDUPGRD - DVD upgrade.
|
|
UPLOADLB - Upload Library..
|
|
|
|
/;
|
|
exit 1;
|
|
}
|
|
|
|
################################################################################
|
|
|
|
sub init
|
|
{
|
|
open IN, "cd |";
|
|
$CWD=<IN>; chop $CWD;
|
|
close IN;
|
|
|
|
## $SLMDIR="$ENV{SDXROOT}\\admin\\pchealth";
|
|
##
|
|
## open IN, "$ENV{SDXROOT}\\admin\\pchealth\\core\\include\\bldver.h" or die "Can't open build version file";
|
|
## @lines = grep /#define VER_PRODUCTBUILD /, <IN>;
|
|
## foreach (@lines)
|
|
## {
|
|
## $BUILDNUM=$1 if m/#define VER_PRODUCTBUILD +(\d+)/;
|
|
## }
|
|
|
|
if ($OPT_COPY)
|
|
{
|
|
mysystem( qq|rd /S /Q "$OPT_INSTALL_DIR"| );
|
|
mysystem( qq|md "$OPT_INSTALL_DIR"| );
|
|
}
|
|
}
|
|
|
|
################################################################################
|
|
|
|
sub generate_list_of_copy_sections
|
|
{
|
|
my($out) = @_;
|
|
my($infid,$list);
|
|
|
|
$list = "CopyFiles=copy.inf";
|
|
|
|
foreach $infid (sort keys %lookup_INFID_to_FILES__destination)
|
|
{
|
|
next if $lookup_DELAYED{$infid}; # Delayed installation
|
|
|
|
if(keys %{ $lookup_INFID_to_FILES__destination{ $infid } })
|
|
{
|
|
$list="$list, $infid";
|
|
}
|
|
}
|
|
printf $out ("%s\n", $list );
|
|
}
|
|
|
|
sub generate_destination_dirs
|
|
{
|
|
my($out) = @_;
|
|
my($infid,$list,$dir);
|
|
|
|
foreach $infid (sort keys %lookup_INFID_to_FILES__destination)
|
|
{
|
|
next if $lookup_DELAYED{$infid}; # Delayed installation
|
|
|
|
if(keys %{ $lookup_INFID_to_FILES__destination{ $infid } })
|
|
{
|
|
$dir = $lookup_INFID_to_DIR{ $infid };
|
|
|
|
$dir =~ s/\%([0-9]*)\%\\(.*)/$1,$2/g;
|
|
$dir =~ s/\%([0-9]*)\%/$1/g;
|
|
|
|
printf $out ("%s = %s\n", $infid, $dir );
|
|
}
|
|
}
|
|
}
|
|
|
|
sub generate_copy_sections
|
|
{
|
|
my ($out) = @_;
|
|
my ($infid,$tmpfile,$ref,$dstfile,$sku,$got);
|
|
my ($name,$ext);
|
|
|
|
foreach $infid (sort keys %lookup_INFID_to_FILES__destination)
|
|
{
|
|
next if $lookup_DELAYED{$infid}; # Delayed installation
|
|
|
|
$got=0;
|
|
foreach $tmpfile (sort keys %{ $lookup_INFID_to_FILES__destination{ $infid } })
|
|
{
|
|
printf $out ("[%s]\n", $infid ) if $got == 0;
|
|
|
|
|
|
$ref = $lookup_INFID_to_FILES__destination{ $infid }->{$tmpfile};
|
|
|
|
$tmpfile = $$ref[0];
|
|
$dstfile = $$ref[1];
|
|
$sku = $$ref[2];
|
|
|
|
($name,$ext) = $dstfile =~ m/(.*)\.(.*)/x;
|
|
|
|
printf $out ( $lookup_SKU{ $sku }[2] ) if $lookup_SKU{ $sku };
|
|
|
|
#### #
|
|
#### # If the file is 8.3 characters and should be renamed, do the renaming here.
|
|
#### #
|
|
#### if($tmpfile !~ $dstfile and length( $name ) <= 8 and length( $ext ) <= 3)
|
|
#### {
|
|
#### printf $out ("%s,%s\n", $dstfile, $tmpfile );
|
|
#### }
|
|
#### else
|
|
#### {
|
|
#### printf $out ("%s\n", $tmpfile );
|
|
#### }
|
|
|
|
#
|
|
# If the file should be renamed, do the renaming here.
|
|
#
|
|
if($tmpfile !~ $dstfile)
|
|
{
|
|
printf $out ("%s,%s\n", $dstfile, $tmpfile );
|
|
}
|
|
else
|
|
{
|
|
printf $out ("%s\n", $tmpfile );
|
|
}
|
|
|
|
$got=1;
|
|
}
|
|
printf $out ("\n" ) if $got;
|
|
}
|
|
}
|
|
|
|
sub generate_rename_section
|
|
{
|
|
my($out) = @_;
|
|
my($infid,$first,$tmpfile,$dstfile,$sku,$dir);
|
|
|
|
foreach $infid (sort keys %lookup_INFID_to_FILES__destination)
|
|
{
|
|
next if $lookup_DELAYED{$infid}; # Delayed installation
|
|
|
|
$dir = $lookup_INFID_to_DIR{ $infid };
|
|
|
|
$first=1;
|
|
foreach $tmpfile (sort keys %{ $lookup_INFID_to_FILES__destination{ $infid } })
|
|
{
|
|
$ref = $lookup_INFID_to_FILES__destination{ $infid }->{$tmpfile};
|
|
|
|
$tmpfile = $$ref[0];
|
|
$dstfile = $$ref[1];
|
|
$sku = $$ref[2];
|
|
|
|
next if $tmpfile =~ $dstfile;
|
|
|
|
#
|
|
# If the file is 8.3 charactes, don't use rename section.
|
|
#
|
|
my ($name,$ext) = $dstfile =~ m/(.*)\.(.*)/x;
|
|
next if (length( $name ) <= 8 and length( $ext ) <= 3);
|
|
|
|
if($first)
|
|
{
|
|
printf $out ( "HKLM,%%KEY_RENAME%%\\PCHealth_%s,,,\"%s\"\n", $infid, $dir );
|
|
|
|
$first=0;
|
|
}
|
|
|
|
printf $out ( $lookup_SKU{ $sku }[2] ) if $lookup_SKU{ $sku };
|
|
printf $out ( "HKLM,%%KEY_RENAME%%\\PCHealth_%s,\"%s\",,\"%s\"\n", $infid, $tmpfile, $dstfile );
|
|
}
|
|
printf $out ("\n" ) unless $first;
|
|
}
|
|
}
|
|
|
|
sub insert_disks
|
|
{
|
|
my($out) = @_;
|
|
my($key);
|
|
|
|
foreach (sort keys %list_disks)
|
|
{
|
|
$key = $_;
|
|
|
|
printf $out ( "%s=%s\n", $key, $list_disks{$key} );
|
|
}
|
|
}
|
|
|
|
################################################################################
|
|
|
|
sub process_file
|
|
{
|
|
my($srcfile,$dstfile1,$dstfile2) = @_;
|
|
my($mode,$skip,$prevskip,$white,$lastwhite);
|
|
my(@cond,$condIdx,$output);
|
|
|
|
open IN, "$srcfile" or die "Can't open input file '$srcfile'";
|
|
open OUT1, ">$dstfile1" or die "Can't open output file '$dstfile1'";
|
|
open OUT2, ">$dstfile2" or die "Can't open output file '$dstfile2'";
|
|
|
|
$mode = "";
|
|
$value = "";
|
|
$skip = 0;
|
|
$prevskip = 0;
|
|
$white = "";
|
|
$lastwhite = "";
|
|
$condIdx = 0;
|
|
$cond[0] = ($mode,$value,$skip,$prevskip);
|
|
|
|
$output = "OUT1";
|
|
|
|
while(<IN>)
|
|
{
|
|
chop;
|
|
|
|
if($condIdx > 0)
|
|
{
|
|
if(m/^\#endif/x)
|
|
{
|
|
($mode,$value,$skip,$prevskip) = $cond[$--condIdx];
|
|
next;
|
|
}
|
|
|
|
if(m/^\#else/x)
|
|
{
|
|
$skip = 1 - $skip;
|
|
next;
|
|
}
|
|
}
|
|
|
|
if(m/^\#if\s*(.*)\s+(.*)/x)
|
|
{
|
|
$cond[$condIdx++] = ($mode,$value,$skip,$prevskip);
|
|
|
|
$prevskip = $skip;
|
|
$skip = 1;
|
|
|
|
$mode = $1;
|
|
$value = $2;
|
|
|
|
$mask = $lookup_STR_to_MASK{ $mode };
|
|
|
|
|
|
$skip = 0 if $mode =~ /MODE/i and $value =~ $OPT_MODE;
|
|
$skip = 0 if $mask and (($value != 0) xor (($OPT_INSTALL & $mask) != $mask));
|
|
|
|
next;
|
|
}
|
|
|
|
next if($prevskip == 1 || $skip == 1);
|
|
|
|
$white = m/^ *$/;
|
|
next if($white && $whitelast);
|
|
$whitelast = $white;
|
|
|
|
do { insert_disks ( $output ); next; } if /___DISKS___/i;
|
|
do { generate_copy_sections ( $output ); next; } if /___COPY_SECTIONS___/i;
|
|
do { generate_destination_dirs ( $output ); next; } if /___DESTINATION_DIRS___/i;
|
|
do { generate_list_of_copy_sections( $output ); next; } if /___LIST_OF_COPY_SECTIONS___/i;
|
|
|
|
#### do { generate_rename_section ( $output ); next; } if /___RENAME___/i;
|
|
do { next; } if /___RENAME___/i;
|
|
|
|
$output = "OUT2" if /\[Strings\]/i;
|
|
|
|
printf $output ("%s\n", "$_");
|
|
}
|
|
|
|
close IN;
|
|
close OUT1;
|
|
close OUT2;
|
|
}
|
|
|
|
sub fix_path
|
|
{
|
|
my($dir) = @_;
|
|
|
|
$dir =~ s/\Q$ENV{SDXROOT}\E/\%SDXROOT\%/io;
|
|
$dir =~ s/\%10\%/\%WINDIR\%/io;
|
|
$dir =~ s/\%11\%/\%WINDIR\%\\system32/io;
|
|
$dir =~ s/\%2\%//io;
|
|
$dir =~ s/\%22\%//io;
|
|
$dir =~ s|/|\\|og;
|
|
$dir =~ s/\\[^\\]*\\\.\.\\/\\/iog;
|
|
$dir =~ s/\\\.\\/\\/iog;
|
|
|
|
return $dir;
|
|
}
|
|
|
|
sub generate_list_of_files_to_sign
|
|
{
|
|
my($outfile,$mode) = @_;
|
|
my($infid,$hash1,$hash2,$dir,$srcfile,$tmpfile,$dstfile,$sku,$purpose,$loc,%hash3);
|
|
|
|
foreach $infid (keys %lookup_DELAYED)
|
|
{
|
|
next unless $lookup_DELAYED{$infid} == $mode;
|
|
|
|
$hash1 = $lookup_INFID_to_FILES__source { $infid };
|
|
$hash2 = $lookup_INFID_to_FILES__destination{ $infid };
|
|
$dir = $lookup_INFID_to_DIR { $infid };
|
|
|
|
$dir = fix_path( $dir );
|
|
|
|
foreach $tmpfile (keys %{ $hash2 })
|
|
{
|
|
$ref = $hash2->{$tmpfile};
|
|
|
|
$tmpfile = $$ref[0];
|
|
$dstfile = $$ref[1];
|
|
$sku = $$ref[2];
|
|
$purpose = $$ref[3];
|
|
$loc = $$ref[4];
|
|
|
|
$srcfile = $hash1->{$tmpfile}; $srcfile =~ s|/|\\|g;
|
|
|
|
$srcfile = fix_path( $srcfile );
|
|
$dstfile = fix_path( $dstfile );
|
|
|
|
$hash3{ $sku . $loc . $srcfile } = [ $sku, $loc, $purpose, $srcfile, $tmpfile, $dstfile, $dir ];
|
|
}
|
|
}
|
|
|
|
open OUT, ">$outfile" or die "Can't open output file '$outfile'";
|
|
|
|
print OUT "#\n";
|
|
print OUT "# <SKU> , <localization flag> , <location of source file> , <temporary name> , <final name> , <final destination>\n";
|
|
print OUT "#\n";
|
|
|
|
foreach $tmpfile (sort keys %hash3)
|
|
{
|
|
$ref = $hash3{$tmpfile};
|
|
|
|
$sku = $$ref[0];
|
|
$loc = $$ref[1];
|
|
$purpose = $$ref[2];
|
|
$srcfile = $$ref[3];
|
|
$tmpfile = $$ref[4];
|
|
$dstfile = $$ref[5];
|
|
$dir = $$ref[6];
|
|
|
|
printf OUT ("%s,%s,%s,%s,%s,%s,%s\n", $sku, $loc, $purpose, $srcfile, $tmpfile, $dstfile, $dir );
|
|
}
|
|
|
|
close OUT;
|
|
}
|
|
|
|
################################################################################
|
|
|
|
sub resolve_variables
|
|
{
|
|
my($line) = @_;
|
|
my($got) = 1;
|
|
my($var,$value);
|
|
|
|
$in = $line;
|
|
|
|
while($got)
|
|
{
|
|
$got = 0;
|
|
|
|
foreach $key (keys %lookup_VAR)
|
|
{
|
|
if($line =~ m|\$$key|x)
|
|
{
|
|
$value = $lookup_VAR{ $key };
|
|
$value =~ s|\\|/|g;
|
|
|
|
$line =~ s|(\$$key)|$value|g;
|
|
$got = 1;
|
|
last;
|
|
}
|
|
}
|
|
}
|
|
|
|
return $line;
|
|
}
|
|
|
|
sub parse_line
|
|
{
|
|
my($line) = @_;
|
|
my($quote, $quoted, $unquoted, $delim, $word, @pieces);
|
|
|
|
while (length($line))
|
|
{
|
|
($quote, $quoted, $unquoted, $delim) =
|
|
$line =~ m/^(["']) # a $quote
|
|
((?:\\.|[^\1\\])*?) # and $quoted text
|
|
\1 # followed by the same quote
|
|
| # --OR--
|
|
^((?:\\.|[^\\"'])*?) # an $unquoted text
|
|
(\Z(?!\n)|\s+|(?!^)(?=["'])) # plus EOL, delimiter, or quote
|
|
/x; # extended layout
|
|
|
|
return() unless(length($&));
|
|
$line = $';
|
|
|
|
$unquoted =~ s/\\(.)/$1/g;
|
|
$quoted =~ s/\\(.)/$1/g if ($quote eq '"');
|
|
|
|
|
|
$word .= ($quote) ? $quoted : $unquoted;
|
|
|
|
if (length($delim))
|
|
{
|
|
push(@pieces, $word);
|
|
undef $word;
|
|
}
|
|
if (!length($line))
|
|
{
|
|
push(@pieces, $word);
|
|
}
|
|
}
|
|
|
|
return(@pieces);
|
|
}
|
|
|
|
sub parse_single_file
|
|
{
|
|
my($optcopy, $comp,$srcfile,$dstfile,$renfile,$purpose,$localize,$sku,$srcdir) = @_;
|
|
my($infid);
|
|
|
|
return unless $comp;
|
|
|
|
#
|
|
# Filter out file from products not installed.
|
|
#
|
|
return unless $lookup_STR_to_MASK{ $lookup_COMP_to_PRODUCT{ $comp } } & $OPT_INSTALL;
|
|
|
|
$infid = $lookup_COMP_to_INFID{ $comp };
|
|
|
|
#
|
|
# Filter out unwanted files.
|
|
#
|
|
return if $dont_install_file{$srcfile};
|
|
return if $dont_install_comp{$comp};
|
|
|
|
$srcdir = resolve_variables( $srcdir );
|
|
|
|
$dstfile = $srcfile unless $dstfile;
|
|
$renfile = $dstfile unless $renfile;
|
|
|
|
#
|
|
# Install the same file into the same location only once.
|
|
#
|
|
printf STDOUT ("Duplicate file %s -> %s -> %s !!\n", $srcfile, $renfile, $dstfile) if $lookup_DUPLICATE{$renfile};
|
|
$lookup_DUPLICATE{$renfile} = 1;
|
|
|
|
return if $lookup_INFID_to_FILES__source{ $infid }->{$renfile};
|
|
$lookup_INFID_to_FILES__source{ $infid }->{$renfile} = "$srcdir/$srcfile";
|
|
|
|
|
|
$srcdir =~ s(/)(\\)g;
|
|
|
|
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat "$srcdir\\$srcfile";
|
|
|
|
|
|
if(!$lookup_DELAYED{$infid})
|
|
{
|
|
#($name,$ext) = $renfile =~ m/(.*)\.(.*)/x;
|
|
#if($list_disks{$renfile} or (length( $name ) > 8 or length( $ext ) > 3))
|
|
#{
|
|
# printf STDOUT ("File name collision!! %s\n", $renfile );
|
|
# $renfile = "PCH" . $uniq_seq . ".img";
|
|
# $uniq_seq++;
|
|
#}
|
|
|
|
$list_disks{$renfile} = "1,,$size";
|
|
|
|
if($optcopy)
|
|
{
|
|
$copy_src = qq|$srcdir\\$srcfile|;
|
|
$copy_dst = qq|$OPT_INSTALL_DIR\\$renfile|;
|
|
|
|
mysystem( qq|copy "$copy_src" "$copy_dst"| ) == 0 or printf STDOUT ("Copy failed: %s -> %s\n", $copy_src, $copy_dst );
|
|
}
|
|
}
|
|
|
|
if($lookup_COMP_to_FILES__destination{ $comp })
|
|
{
|
|
$lookup_COMP_to_FILES__destination{ $comp }->{ $renfile . "#" . $dstfile . "#" . $sku } = [ $renfile, $dstfile, $sku, $purpose, $localize ];
|
|
}
|
|
}
|
|
|
|
sub parse_list_of_files
|
|
{
|
|
my($FileID,$file) = @_;
|
|
my($infid,$comp,$srcfile,$dstfile,$renfile,$srcdir);
|
|
|
|
open IN, "lst\\$file" or die "Can't open file listing '$file'";
|
|
while(<IN>)
|
|
{
|
|
next if /^#/;
|
|
chop;
|
|
next if /^$/;
|
|
|
|
parse_single_file( $OPT_COPY, parse_line( $_ ) );
|
|
}
|
|
close IN;
|
|
}
|
|
|
|
sub parse_list_of_sku
|
|
{
|
|
my($file) = @_;
|
|
my($SKU,$cabinet,$prodfilt,$desktop,$server,$embedded);
|
|
|
|
open IN, "$file" or die "Can't open SKU listing '$file'";
|
|
while(<IN>)
|
|
{
|
|
next if /^#/;
|
|
chop;
|
|
next if /^$/;
|
|
|
|
($SKU,$cabinet,$prodfilt,$desktop,$server,$embedded) = parse_line( $_ );
|
|
|
|
$lookup_SKU{ $SKU } = [ $SKU, $cabinet, $prodfilt ];
|
|
}
|
|
close IN;
|
|
}
|
|
|
|
################################################################################
|
|
|
|
parse_list_of_sku( "$ENV{SDXROOT}/admin/pchealth/redist/SKUlist.txt" );
|
|
|
|
&parseargs;
|
|
|
|
&init;
|
|
|
|
#
|
|
# Always install "atrace.dll" into %WINDIR%\system and ignore any other occurence.
|
|
#
|
|
# More, "atrace.dll" should be listed as soon as possible, so it won't be renamed.
|
|
#
|
|
parse_list_of_files( "COMMON" , "common.lst" ); $dont_install_file{"atrace.dll"} = 1;
|
|
|
|
parse_list_of_files( "UPLOADLIB", "UploadLib.lst" );
|
|
parse_list_of_files( "HELPCTR" , "HelpCtr.lst" );
|
|
parse_list_of_files( "SYSINFO" , "SysInfo.lst" );
|
|
parse_list_of_files( "NETDIAG" , "NetDiag.lst" );
|
|
parse_list_of_files( "DVDUPGRD" , "DVDUpgrade.lst" );
|
|
parse_list_of_files( "WMIXMLT" , "WmiXmlT.lst" );
|
|
|
|
foreach $sku (keys %lookup_SKU)
|
|
{
|
|
next unless $lookup_SKU{ $sku }[1];
|
|
|
|
parse_single_file( 0, "CompHC_bin", $lookup_SKU{ $sku }[1], "", "", "Database", "NoLoc", $sku, "\$HC_DATA" );
|
|
}
|
|
|
|
process_file( "inf\\PCHealth.INF", "$OPT_INSTALL_INF\\PCHealth.inx", "$OPT_INSTALL_INFTXT\\PCHealth.txt" );
|
|
|
|
|
|
|
|
|
|
if($OPT_SIGNFILE)
|
|
{
|
|
generate_list_of_files_to_sign( $OPT_SIGNFILE, "PCHDATA" );
|
|
}
|