windows-xp/Source/XPSP1/NT/tools/sp/hnw.cmd

@echo off
REM  ------------------------------------------------------------------
REM
REM  hnw.cmd
REM     This will call iexpress to generate a self-extracting CAB that
REM     will be used when running our tool off of a floppy disk.
REM
REM  Copyright (c) Microsoft Corporation. All rights reserved.
REM
REM  ------------------------------------------------------------------
if defined _CPCMAGIC goto CPCBegin
perl -x "%~f0" %*
goto :EOF
#!perl
use strict;
use lib $ENV{RAZZLETOOLPATH} . "\\PostBuildScripts";
use lib $ENV{RAZZLETOOLPATH};
use PbuildEnv;
use ParseArgs;
use Logmsg;

sub Usage { print<<USAGE; exit(1) }
hnw.cmd [-l <language>]

This is for the Home Networking Wizard. It runs iexpress to generate
a self-extracting CAB and install into support\tools.
USAGE

sub Dependencies {
   if ( !open DEPEND, ">>$ENV{_NTPOSTBLD}\\..\\build_logs\\dependencies.txt" ) {
      errmsg("Unable to open dependency list file.");
      die;
   }
   print DEPEND<<DEPENDENCIES;
\[$0\]
IF { NetSetup.EXE } ADD { hnw.sed }

DEPENDENCIES
   close DEPEND;
   exit;
}

my $qfe;
parseargs('?'    => \&Usage,
          'plan' => \&Dependencies,
          'qfe:' => \$qfe);

if ( -f "$ENV{_NTPOSTBLD}\\..\\build_logs\\skip.txt" ) {
   if ( !open SKIP, "$ENV{_NTPOSTBLD}\\..\\build_logs\\skip.txt" ) {
      errmsg("Unable to open skip list file.");
      die;
   }
   while (<SKIP>) {
      chomp;
      exit if lc$_ eq lc$0;
   }
   close SKIP;
}


#            *** NEXT FEW LINES ARE TEMPLATE ***
$ENV{"_CPCMAGIC"}++;exit(system($0)>>8);
__END__
:CPCBegin
set _CPCMAGIC=
setlocal ENABLEDELAYEDEXPANSION ENABLEEXTENSIONS
REM          *** BEGIN YOUR CMD SCRIPT BELOW ***

REM
REM x86 only!
REM

if not defined x86 goto end

REM
REM Use iexpress.exe to generate the self-extracting executable;
REM

REM first update the sed with the proper binaries directory
set nswtemp=%temp%\nsw
set hnw.sed=%nswtemp%\hnw.sed
set hnw.sed2=%nswtemp%\hnw.sed2
set hnw.sed3=%nswtemp%\hnw.sed3
set doubledpath=%_NtPostBld:\=\\%
set doubledtemppath=%nswtemp:\=\\%

call logmsg.cmd "Deleting old netsetup.exe unpacked binaries from %nswtemp%"
del /q /f %nswtemp%

perl -n -e "s/BINARIES_DIR/%doubledpath%/g;print $_;" < %_NtPostBld%\hnw.sed > %hnw.sed%

call logmsg.cmd "Unpack Gold netsetup.exe into %nswtemp%"
%RazzleToolPath%\sp\data\GoldFiles\%Lang%\%_BuildArch%%_BuildType%\netsetup.exe -Q -C -T:%nswtemp%

call logmsg.cmd "Overlay new service pack files to %nswtemp%"
perl "%RazzleToolPath%\sp\hnw.pl" %hnw.sed% %nswtemp%

perl -n -e "s/TargetName=BINARIES_DIR/TargetName=%doubledpath%/g;print $_;" < %_NtPostBld%\hnw.sed > %hnw.sed2%
perl -n -e "s/BINARIES_DIR/%doubledtemppath%/g;print $_;" < %hnw.sed2% > %hnw.sed3%
perl -n -e "s/UPnPDown\\//g;print $_;" < %hnw.sed3% > %hnw.sed%

REM Now call iexpress on the new sed

if not exist %hnw.sed% (
  call errmsg.cmd "File %hnw.sed% not found."
  popd& goto end
)

set outpath=%_NTPostBld%
if exist %outpath%\netsetup.exe del /f %outpath%\netsetup.exe



REM
REM Munge the path so we use the correct wextract.exe to build the package with...
REM NOTE: We *want* to use the one we just built (and for Intl localized)!
REM
set _NEW_PATH_TO_PREPEND=%RazzleToolPath%\%PROCESSOR_ARCHITECTURE%\loc\%LANG%
set _OLD_PATH_BEFORE_PREPENDING=%PATH%
set PATH=%_NEW_PATH_TO_PREPEND%;%PATH%

call logmsg.cmd "Package all binaries from %nswtemp% into new netsetup.exe"
call ExecuteCmd.cmd "start /min /wait iexpress.exe /M /N /Q %hnw.sed%"


REM
REM Return the path to what it was before...
REM
set PATH=%_OLD_PATH_BEFORE_PREPENDING%




if not exist %outpath%\netsetup.exe (
  call errmsg.cmd "IExpress.exe failed on %hnw.sed%."
  popd& goto end
)
popd

:end
seterror.exe "%errors%"& goto :EOF