|
|
###
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" );}
|
