Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

163 lines
4.2 KiB

#! /usr/bin/perl
#
# Create the copywowlist file given the result of wowlist filtering.
# To be called from copywow64.cmd.
#
# sergueik - 03/07/01
#
# Perl CopyWowlist.pl <Input_DirectoryMappingFile> <Input_Filelist> <Output_Copywowlist>
#
#
my $self = $0;
$self =~ s/^.*\\([^\\]*)$/$1/g;
my $pos = -1;
my %mapping = ();
my $section;
if ( $ENV{ "_BuildArch" } =~ /amd64/i ) {
$section = q(\[SourceDisksNames\.amd64\]);
} else {
$section = q(\[SourceDisksNames\.ia64\]);
}
my $DEBUG = 0;
&usage and exit 0 if grep /[\/\-][\h?]/, @ARGV;
my $status = &VerifyCommandLine(
{"argv"=>\@ARGV,
"argc"=>3,
0 => "-e \"FILE\"",
1 => "-e \"FILE\""});
$status and die "$self: wrong call";
my $Input_DirectoryMappingFile = $ARGV[0];
my $Input_Filelist = $ARGV[1];
my $Output_Copywowlist = $ARGV[2];
open (HINT, $Input_DirectoryMappingFile) or die "cannot read Input_DirectoryMappingFile $Input_DirectoryMappingFile: $!";
{
my $mapping = 0;
my @mapping = ();
my @mappingpart = ();
# Put in the @mapping array all entries from the [SourceDisksNames] section.
while (<HINT>){
chomp;
do{
$mapping = 1; @mappingpart = ();
}if /^$section/;
do{
push @mapping, @mappingpart;
$mapping = 0;
}if $mapping && scalar (@mappingpart) && $_!~/\S/;
push @mappingpart, $_ if $mapping && /=/;
}
# The keys in the %mapping hash are the directory numbers
# and the relative path is the value.
%mapping = map {split /\s*=\s*/, $_} @mapping;
foreach (keys (%mapping)){
my $data = $mapping{$_};
$mapping{$_}=[split(/\s*,\s*/,$data)];
}
foreach (keys (%mapping)){
my $data = $mapping{$_}->[$pos];
$data =~ s/^\\[^\\]+(\\)?//;
$mapping{$_}->[$pos]=$data;
}
map { $mapping{$_} = $mapping{$_}->[$pos]} keys (%mapping);
print STDERR join( "\n",
map
{"\"".$_."\"\t=>\t\"".$mapping{$_}."\""}
keys (%mapping)),
"\n" if $DEBUG;
}
close(HINT);
my @data=();
my $pos2 = 0;
# Read the filenames and their directories from the second argument.
open (UNFIXED, $Input_Filelist) or die "cannot read Input_Filelist $Input_Filelist : $!";
do {push @data, $_ unless ($_!~/\S/); }while(<UNFIXED>);
close(UNFIXED);
print STDERR "$#data\n" if $DEBUG;
foreach $row (0..$#data){
my $line = $data[$row];
chomp $line;
my ($file, $rest) = split(/\s*=\s*/, $line);
my @rest = split (/,/, $rest);
my $index = $rest[$pos2];
my $path = $mapping{$index};
$file = join ("\\", $path, $file) if $path;
$data[$row] = $file;
}
# Write the output
open (FIXED, ">".$Output_Copywowlist) or die "canot write to Output_Copywowlist $Output_Copywowlist: $!";
select FIXED;
$|=1;
map {print "$_\n"} @data;
select STDOUT;
close(FIXED);
sub VerifyCommandLine{
my $messages = {"-e \"FILE\"" => "file \"FILE\" does not exist\n",
"!-e \"FILE\"" => "cannot clobber existing file: \"FILE\"\n" };
my $named = shift;
my %named = %$named;
my $argv = $named->{"argv"};
my $argc = $named->{"argc"};
my $result = 0;
$result = 1 if scalar(@$argv) != $argc;
if ($result ){
print STDERR "$self: wrong number of args\n";
} else{
foreach $one (keys(%named)){
if ($one !~ /\D/){
$test = $named->{$one};
$test =~ s/FILE/$argv->[$one]/g;
$test =~ s/\\/\//g;
do { my $message = $messages->{$named->{$one}};
$message =~ s/FILE/$argv->[$one]/g;
print STDERR "$self: $message";
$result = 1;
last;} if (!eval($test));
}
}
}
$result;
}
sub usage{
print <<USAGE;
Usage:
perl $self <MappingFile> <Input> <Output>
Create the copywowlist file given the result of wowlist filtering.
To be called from copywow64.cmd.
USAGE
}