555 lines
16 KiB
Perl
555 lines
16 KiB
Perl
# ---------------------------------------------------------------------------
|
|
# Script: snapbin.pl
|
|
#
|
|
# (c) 2000 Microsoft Corporation. All rights reserved.
|
|
#
|
|
# Purpose: Snapshot US binaries tree to INTL.
|
|
#
|
|
# Version: 1.00 (05/10/2000) : (bensont) Snap the binaries tree
|
|
# 1.01 (05/10/2000) : (bensont) Create __BldInfo__usa__ file
|
|
#---------------------------------------------------------------------
|
|
|
|
# Set Package
|
|
package SnapBin;
|
|
|
|
# Set the script name
|
|
$ENV{script_name} = 'snapbin.pl';
|
|
|
|
# Set version
|
|
$VERSION = '1.01';
|
|
$DEBUG = 0;
|
|
# Set required perl version
|
|
require 5.003;
|
|
|
|
# Use section
|
|
use lib $ENV{ RazzleToolPath };
|
|
use lib "$ENV{ RazzleToolPath }\\PostBuildScripts";
|
|
use GetParams;
|
|
use LocalEnvEx;
|
|
use Logmsg;
|
|
use strict;
|
|
no strict 'vars';
|
|
use HashText;
|
|
|
|
($SourceTree, $TargetTree, $SnapList, $machines, $BldInfo, $RoboCopyLog, $BuildNum, %SnapList, @machines, $RoboCopyCmd, $LogRoboCopy)=(
|
|
"\\\\ntdev\\release\\main\\usa\\<BuildNum>\\<_BuildArch><_BuildType>\\bin",
|
|
"$ENV{_NTTREE}",
|
|
"$ENV{RazzleToolPath}\\PostBuildScripts\\SnapList.txt",
|
|
"machines.txt",
|
|
"$ENV{_NTROOT}\\__BldInfo__usa__",
|
|
".Robocopy"
|
|
);
|
|
|
|
($Mirror, $OtherOptions, $Incremental)=("/MIR");
|
|
|
|
($ROBOCOPY_ERROR, $ROBOCOPY_SERIOS_ERROR)=(8, 16);
|
|
|
|
|
|
# Require section
|
|
|
|
# Main Function
|
|
|
|
|
|
|
|
|
|
sub CmdMain {
|
|
# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
|
|
# Begin CmdMain code section
|
|
# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
|
|
# Return when you want to exit on error
|
|
|
|
&PrepareRoboCopyCmd || return;
|
|
print "$RoboCopyCmd\n";
|
|
$DEBUG or &ExecuteRoboCopy;
|
|
|
|
{
|
|
my @stack = ($RoboCopyCmd, $RoboCopyCmd, $SourceTree, $TargetTree);
|
|
open (F, "$SnapList");
|
|
my $startParse = 0;
|
|
my @blist = ();
|
|
my $flist = ();
|
|
my @a = <F>;
|
|
foreach (@a){
|
|
next if /^;/;
|
|
if (/^Additional *$/){
|
|
print "Robocopy: found additional directories to snap\n";
|
|
$startParse = 1;
|
|
}
|
|
$startParse=0 if ($startParse && $_ !~ /\S/);
|
|
if ($startParse && /\S/){
|
|
my @alist =
|
|
split(" ", $_);
|
|
if ($#alist>=2){
|
|
#
|
|
$f_ = undef;
|
|
$alist[0] =~ s/(.*)\\([^\\]+)/$1/g and $f_=$2 if $alist[1]=~/F/;
|
|
push @flist, $f_;
|
|
push @blist, $alist[0];
|
|
$DEBUG and print STDERR scalar(@blist),"\n";
|
|
}
|
|
}
|
|
}
|
|
close(F);
|
|
foreach $cnt (0..$#blist){
|
|
$dir = $blist[$cnt];
|
|
$file = $flist[$cnt];
|
|
$DEBUG and print STDERR "$dir\n";
|
|
($RoboCopyCmd, $RoboCopyLog, $SourceTree, $TargetTree) = @stack;
|
|
$RoboCopyCmd =~ s/\\\\.*$//g;
|
|
$RoboCopyLog =~ s|^.*(/LOG\+.*)$|$1.ADDED|g;
|
|
chomp $RoboCopyLog;
|
|
$SourceTree .= "\\$dir";
|
|
$TargetTree .= "\\$dir";
|
|
print "$SourceTree skipped\n" and next unless -d $SourceTree;
|
|
$RoboCopyCmd = join(" ",$RoboCopyCmd, $SourceTree, $TargetTree, $RoboCopyLog, $file);
|
|
print "$RoboCopyCmd\n";
|
|
$DEBUG or &ExecuteRoboCopy;
|
|
}
|
|
($RoboCopyCmd, $RoboCopyLog, $SourceTree, $TargetTree) = @stack;
|
|
}
|
|
|
|
&CreateBldInfo;
|
|
# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
|
|
# End CmdMain code section
|
|
# /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
|
|
}
|
|
|
|
|
|
# PrepareRoboCopyCmd
|
|
# Purpose : Reference $SourceTree, $TargetTree and file $SnapList to create Robocopy statement
|
|
#
|
|
# Input : none
|
|
# Output : 0 for fails, 1 for success
|
|
#
|
|
# Note : The Robocopy statement is stored in $RoboCopyCmd
|
|
sub PrepareRoboCopyCmd {
|
|
|
|
my ($Excludedirs, $Excludefiles, $exclude, $Cmd)=();
|
|
-d $TargetTree or qx("md $TargetTree");
|
|
|
|
HashText::Read_Text_Hash(0, $SnapList, \%snaplist) if ((defined $SnapList) && ($SnapList ne '-'));
|
|
# HashText::Read_Text_Hash(1, $machines, \@machines);
|
|
|
|
# If <var> defined in string, evaluate by the order: global variable, environment variable. Report error if can not evaluate
|
|
|
|
$SourceTree =~ s/\<(\w+)\>/(eval "defined \$SnapBin::$1")?eval "\$SnapBin::$1":((exists $ENV{$1})?$ENV{$1}:errmsg("Unable to eval $1 in $SourceTree; verify your params and your razzle."))/ge;
|
|
$TargetTree =~ s/\<(\w+)\>/(eval "defined \$SnapBin::$1")?eval "\$SnapBin::$1":((exists $ENV{$1})?$ENV{$1}:errmsg("Unable to eval $1 in $TargetTree; verify your params an your razzle."))/ge;
|
|
|
|
# If source tree not exist
|
|
if (!-e $SourceTree) {
|
|
errmsg("Source Tree: $SourceTree not found.");
|
|
}
|
|
|
|
# Any above error should stop (Fail)
|
|
if ($ENV{errors} > 0) {return 0;}
|
|
|
|
# Parse the hash-hash table snaplist
|
|
for $exclude (keys %snaplist) {
|
|
|
|
$_ = $snaplist{$exclude}->{Type};
|
|
$Excludedirs .= ($exclude=~/\\/)? "$SourceTree\\$exclude ": "$exclude " if /\bD\b/;
|
|
$Excludefiles .= "$exclude " if (/\bF\b/);
|
|
}
|
|
# Check if incremental run.
|
|
&ChkBabTree($TargetTree, \%snaplist) and exit;
|
|
# Create RoboCopyLogName as %logfile%.RoboCopy
|
|
$RoboCopyLog = `uniqfile $ENV{logfile}\.Robocopy`;
|
|
|
|
if (defined $Incremental) {
|
|
$Mirror = ""; # non-Mirror
|
|
$OtherOptions = "/XO"; # Exclude Older files
|
|
}
|
|
|
|
# Prepare the robocopy statement
|
|
$Cmd = "Robocopy $Mirror /S /E $SourceTree $TargetTree $OtherOptions ";
|
|
$Cmd .= "/XD $Excludedirs " if ($Excludedirs ne '');
|
|
$Cmd .= "/XF $Excludefiles " if ($Excludefiles ne '');
|
|
|
|
$RoboCopyCmd = $Cmd . " /LOG+:$RoboCopyLog";
|
|
|
|
# Success
|
|
return 1;
|
|
}
|
|
|
|
# Verify that the snaplist.txt file does not contradict with
|
|
# the actual contents of the %_NTTREE%.
|
|
# usage:
|
|
# &ChkBabTree($TargetTreel, \%SnapList)
|
|
|
|
sub ChkBabTree{
|
|
|
|
my $parent = shift;
|
|
my $snaplist = shift;
|
|
my @children = grep {/\S/} split ("\n", qx ("dir /s/b/ad $parent"));
|
|
|
|
$DEBUG and print STDERR "checking existing \%_NTTREE% subdirs: ",scalar (@children), "\n";
|
|
return 0 unless @children;
|
|
|
|
print "Robocopy: \"$parent\" is not empty, possibly incremental run\n"
|
|
if scalar(@children);
|
|
|
|
map {$_ =~ s/\Q$parent\E\\//} @children;
|
|
my %hashchildren = map {$_=>$_} @children;
|
|
|
|
$childrenkeys = \%hashchildren;
|
|
map {$childrenkeys->{$_} =~ s/^.*\\//} @children;
|
|
|
|
my @report = ();
|
|
foreach $subdir (@children){
|
|
my $lastdir = $childrenkeys->{$subdir};
|
|
push @report, sprintf("%-30s%-30s",$lastdir,$subdir) # and delete ($snaplist->{$lastdir})
|
|
if ($snaplist->{$lastdir}->{Type}=~/\bD\b$/) or () ;
|
|
}
|
|
foreach $lastdir (keys(%$snaplist)){
|
|
next unless $snaplist->{$lastdir}->{Type}=~/\bD\b/ && $lastdir=~/\\/;
|
|
my @subdir = grep {/\Q$lastdir\E/} @children;
|
|
push @report, sprintf("%-30s%-30s",$lastdir,$subdir[0]) if scalar (@subdir);
|
|
}
|
|
|
|
unshift @report, "snaplist.txt %_NTTREE%\n".
|
|
"-----------------------------------------------------"
|
|
and print join ("\n", @report ), "\n\n"
|
|
if scalar(@report);
|
|
|
|
scalar(@report);
|
|
0;
|
|
}
|
|
|
|
# ExecuteRoboCopy
|
|
# Purpose : Execute Robocopy Command ($RoboCopyCmd)
|
|
#
|
|
# Input : none
|
|
# Output : none
|
|
#
|
|
# Note : The serious error or fatal error will be logged.
|
|
sub ExecuteRoboCopy {
|
|
|
|
my $r;
|
|
|
|
logmsg("RoboCopyCmd : $RoboCopyCmd");
|
|
logmsg("SOURCE : $SourceTree");
|
|
logmsg("TARGET : $TargetTree");
|
|
logmsg("RoboCopy LOGFILE : $RoboCopyLog");
|
|
|
|
$r = system($RoboCopyCmd) / 256;
|
|
|
|
# Determine the return value
|
|
if ($r > $ROBOCOPY_SERIOS_ERROR) {
|
|
errmsg("Serious error while running robocopy."); # Robocopy did not copy all files. This is either a usage error or an error due to insufficient access privileges on the source or destination directions.";
|
|
} elsif ($r > $ROBOCOPY_ERROR) {
|
|
errmsg("Robocopy was not able to copy some files or directories.");
|
|
}
|
|
|
|
}
|
|
|
|
# ParseLogFile
|
|
# Purpose : Parse the log file which from argument and store to $ENV{logfile} with fully path
|
|
#
|
|
# Input : templogfile
|
|
# Output : none
|
|
#
|
|
# Note : The log file will contain all file get copied and extra files removed.
|
|
sub ParseLogFile {
|
|
|
|
my ($templogfile) = @_;
|
|
|
|
my ($type, $file, %slots, %fails)=();
|
|
local *F;
|
|
|
|
# Read temp logfile
|
|
open(F, $templogfile) || return;
|
|
|
|
for(<F>) {
|
|
next if (/^\s*\-*\s*$/);
|
|
if (/^ROBOCOPY/) {(%slots,%fails)=(); next;}
|
|
|
|
chomp;
|
|
|
|
# If is error message, add to previous line
|
|
if (!/^\s/) {
|
|
if ($#{$fails{$type}} eq '-1') {
|
|
errmsg($_);
|
|
} else {
|
|
${$fails{$type}}[$#{$fails{$type}}] .= "\n$_";
|
|
}
|
|
next;
|
|
}
|
|
|
|
logmsg($_) if (defined $LogRoboCopy);
|
|
|
|
# Parse information according the format of robocopy log
|
|
if (/^\s+(?:New Dir\s+)?(\d+)\s+([\w\:\\]+)$/) {
|
|
$path = $2;
|
|
next;
|
|
}
|
|
if (/^\s+((?:New File)|(?:Newer)|(?:\*EXTRA File)|(?:Older))\s+(\d+)\s+([\w\.]+)/) {
|
|
($type, $file) = ($1, $3);
|
|
|
|
((/100\%/)||(/\*EXTRA File/))?push(@{$slots{$type}}, $path . $file):push(@{$fails{$type}}, $path . $file);
|
|
}
|
|
}
|
|
close(F);
|
|
|
|
# Separate the log to success and fail
|
|
logmsg("\n\[Copy Success\]");
|
|
|
|
for $type (keys %slots) {
|
|
logmsg(" \[$type\]");
|
|
|
|
for $file (@{$slots{$type}}) {
|
|
logmsg("\t$file");
|
|
}
|
|
}
|
|
|
|
if (scalar(%fails) ne 0) {
|
|
errmsg("\n\[Copy Fails\]");
|
|
for $type (keys %fails) {
|
|
errmsg(" \[$type\]");
|
|
|
|
for $file (@{$fails{$type}}) {
|
|
errmsg("\t$file");
|
|
}
|
|
}
|
|
}
|
|
|
|
# If Robocopy log include into the logfile, remove the robocopy its logfile
|
|
if (defined $LogRoboCopy) {
|
|
unlink($templogfile);
|
|
} else {
|
|
logmsg("See Robocopy's logfile for more details: $templogfile");
|
|
}
|
|
}
|
|
|
|
# CreateBldInfo
|
|
# Purpose : Create build number and time stamps to $BldInfo
|
|
#
|
|
# Input : none
|
|
# Output : none
|
|
#
|
|
# Note : The file $BldInfo contain one line: '<Build Number>,<Time Stamp>'
|
|
sub CreateBldInfo {
|
|
local *F;
|
|
my @file;
|
|
|
|
if ($ENV{errors} > 0) {return 0;}
|
|
|
|
# Search the matched filename in $SourceTree's parent folder
|
|
@file = glob("${SourceTree}\\..\\${BuildNum}.*.bld");
|
|
|
|
if (defined $file[1]) {
|
|
errmsg("non-unique .BLD file exists. " . join(",", @files));
|
|
} elsif (!defined $file[0]) {
|
|
errmsg(".BLD file not found. Please make sure the US path ${SourceTree}\\..\\${BuildNum}.*.bld exists. ");
|
|
}
|
|
|
|
if ($file[0]!~/$BuildNum\.\w+\.\w+\.([\d|\-]+).bld/i) {
|
|
errmsg(".BLD Filename ($file[0]) is incorrect format! It should be as \$BuildNum.\$_BuildArch\$_BuildType.\$_BuildBranch.\$_BuildTimeStamp.BLD");
|
|
} else {
|
|
open(F, ">$BldInfo");
|
|
print F "$BuildNum,$1";
|
|
close(F);
|
|
}
|
|
###Copy __blddate__ and __bldnum__ from US release server
|
|
@file=glob("${SourceTree}\\congeal_scripts\\__bld*__");
|
|
for my $theFile ( @file )
|
|
{
|
|
system( "echo F|xcopy /V /F /R /Y $theFile $ENV{sdxroot}" );
|
|
}
|
|
|
|
}
|
|
|
|
sub ValidateParams {
|
|
#<Add your code for validating the parameters here>
|
|
errmsg("Please run under razzle or RazzleToolPath undefined") if (!exists $ENV{RazzleToolPath});
|
|
errmsg("Build Number ($BuildNum) contains non-digital or dot character") if ($BuildNum !~ /^[\d\.]+$/);
|
|
}
|
|
|
|
sub Usage {
|
|
print <<USAGE;
|
|
$0 - Snap Tree from US to INTL
|
|
============================================================================
|
|
Usage: $0 -n buildnum [-s SourceTree] [-t TargetTree] [-f SnapList]
|
|
[-B bldinfo] [-L] [-i] [-d]
|
|
-n Build Number : The Build Number you snapshot
|
|
-s Source Tree : Source Tree
|
|
-t Target Tree : Target Tree
|
|
-f SnapList : A snaplist file contain which files or dirs excluded
|
|
-B bldinfo : A bldinfo file should be create after snapshot
|
|
-L : Include robocopy log into logfile
|
|
-i : Incremental
|
|
-d : Debug. Display the robocopy command without running it.
|
|
-? Displays usage
|
|
|
|
Example:
|
|
1. Snapshot US 2121
|
|
$0 -n 2121
|
|
2. Snapshot US 2222 with userlst.txt incrementally
|
|
$0 -n 2222 -f userlst.txt -i
|
|
3. Snapshot US 2233 from d:\\nt8.binaries.x86fre to f:\\nt9.binaries.x86fre
|
|
with userlst.txt and store buildnumber and time stamp to mynote.txt.
|
|
$0 -n 2233 -s d:\\nt8.binaries.x86fre -t f:\\nt9.binaries.x86fre -f userlst.txt -B mynote.txt
|
|
USAGE
|
|
}
|
|
|
|
sub GetParams {
|
|
# Step 1: Call pm getparams with specified arguments
|
|
&GetParams::getparams(@_);
|
|
|
|
# Step 2: Set the language into the enviroment
|
|
$ENV{lang}=$lang;
|
|
|
|
# Step 3: Call the usage if specified by /?
|
|
if ($HELP) {
|
|
&Usage();
|
|
exit 1;
|
|
}
|
|
}
|
|
|
|
sub LocalEnvEx {
|
|
my ($Option)=(@_);
|
|
|
|
if ($Option=~/^initalize$/i) {
|
|
my $LocalEnvEx=LocalEnvEx->new;
|
|
&{$LocalEnvEx->{-Initialize}};
|
|
}
|
|
if ($Option=~/^end$/i) {
|
|
my $LocalEnvEx=LocalEnvEx->new;
|
|
&{$LocalEnvEx->{-End}};
|
|
}
|
|
}
|
|
|
|
# cmd entry point for script.
|
|
if (eval("\$0 =~ /" . __PACKAGE__ . "\\.pl\$/i")) {
|
|
|
|
@syntax=(
|
|
'-n' => 'n:',
|
|
'-o' => 's:t:f:Lid',
|
|
'-p' => 'BuildNum SourceTree TargetTree SnapList LogRoboCopy Incremental DEBUG'
|
|
);
|
|
|
|
# Step 1: Parse the command line
|
|
&GetParams (@syntax, @ARGV);
|
|
|
|
# Include local environment extensions
|
|
&LocalEnvEx('initalize');
|
|
|
|
# Validate the option given as parameter.
|
|
&ValidateParams;
|
|
|
|
# Step 4: Call the CmdMain function
|
|
&CmdMain();
|
|
|
|
# End local environment extensions.
|
|
&LocalEnvEx('end');
|
|
}
|
|
|
|
# -------------------------------------------------------------------------------------------
|
|
# Script: snapbin.pl
|
|
# Purpose: Snapshot US binaries tree to INTL.
|
|
# SD Location: %sdxroot%\tools\postbuildscripts
|
|
#
|
|
# (1) Code section description:
|
|
# CmdMain - Prepare the robocopyCmd, execute and parse its log
|
|
# PrepareRoboCopyCmd - Prepare the Robocopy command
|
|
# ExecuteRoboCopy - Execute the Robocopy command and test the return value
|
|
# ParseLogFile - Parse the logfile, append logfile from temp logfile
|
|
#
|
|
# (2) Reserved Variables -
|
|
# $ENV{HELP} - Flag that specifies usage.
|
|
# $ENV{lang} - The specified language. Defaults to USA.
|
|
# $ENV{logfile} - The path and filename of the logs file.
|
|
# $ENV{logfile_bak} - The path and filename of the logfile.
|
|
# $ENV{errfile} - The path and filename of the error file.
|
|
# $ENV{tmpfile} - The path and filename of the temp file.
|
|
# $ENV{errors} - The scripts errorlevel.
|
|
# $ENV{script_name} - The script name.
|
|
# $ENV{_NTPostBld} - Abstracts the language from the files path that
|
|
# postbuild operates on.
|
|
#
|
|
# (3) Reserved Subs -
|
|
# Usage - Use this sub to discribe the scripts usage.
|
|
# ValidateParams - Use this sub to verify the parameters passed to the script.
|
|
#
|
|
# (4) Call other executables or command scripts by using:
|
|
# system "foo.exe";
|
|
# Note that the executable/script you're calling with system must return a
|
|
# non-zero value on errors to make the error checking mechanism work.
|
|
#
|
|
# Example
|
|
# if (system("perl.exe foo.pl -l $lang")){
|
|
# errmsg("perl.exe foo.pl -l $lang failed.");
|
|
# # If you need to terminate function's execution on this error
|
|
# goto End;
|
|
# }
|
|
#
|
|
# (5) Log non-error information by using:
|
|
# logmsg "<log message>";
|
|
# and log error information by using:
|
|
# errmsg "<error message>";
|
|
#
|
|
# (6) Have your changes reviewed by a member of the US build team (ntbusa) and
|
|
# by a member of the international build team (ntbintl).
|
|
#
|
|
# -------------------------------------------------------------------------------------------
|
|
|
|
=head1 NAME
|
|
B<SnapBin> - Snapshot US Binaries tree to INTL
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
&SnapBin::PrepareRoboCopyCmd;
|
|
&SnapBin::ExecuteRoboCopy;
|
|
&SnapBin::ParseLogFile;
|
|
&SnapBin::CreateBldInfo;
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
According SnapList,
|
|
PrepareRoboCopyCmd will prepare the command, such as:
|
|
Robocopy /MIR /S /E $SourceTree $TargetTree /XD xxxx /XF xxxx /LOG+:$ENV{logfile}.temp
|
|
ExecuteRoboCopy execute the command and verify its log.
|
|
And, ParseLogFile will append temp logfile to $ENV{logfile} and generate a separate list into log.
|
|
Final, create BldInfo file in nt root.
|
|
|
|
=head1 INSTANCES
|
|
|
|
=head2 $SourceTree
|
|
US Tree, default is \\\\ntdev\\release\\main\\usa\\<BuildNum>\\<_BuildArch><_BuildType>\\bin
|
|
=head2 $TargetTree
|
|
INTL Tree, default is _NTTREE
|
|
=head2 $SnapList
|
|
Snap List FileName, default is SnapList.txt
|
|
=head2 $BuildNum
|
|
Build Number, necessary defined. No default value
|
|
=head2 %SnapList
|
|
The hash stored by HashText::Read_Text_Hash from file $SnapList.
|
|
=head2 $RoboCopyCmd
|
|
The command for ExecuteRoboCopy execute
|
|
=head1 METHODS
|
|
|
|
=head2 PrepareRoboCopyCmd
|
|
$SnapBin::SourceTree = "f:\\foo";
|
|
$SnapBin::TargetTree = "f:\\bar";
|
|
$SnapBin::SnapList = "mylist.txt"; # equal to '-' if no exclude list file
|
|
&SnapBin::PrepareRoboCopyCmd;
|
|
system("$SnapBin::RoboCopyCmd");
|
|
|
|
=head2 ExecuteRoboCopy
|
|
$SnapBin::SourceTree = "f:\\foo";
|
|
$SnapBin::TargetTree = "f:\\bar";
|
|
$SnapBin::RoboCopyCmd = "Robocopy /S $SnapBin::SourceTree $SnapBin::TargetTree";
|
|
&SnapBin::ExecuteRoboCopy;
|
|
|
|
=head2 ParseLogFile
|
|
system("robocopy f:\\temp F:\\tempbak /LOG:abc.log");
|
|
&SnapBin::ParseLogFile("abc.log");
|
|
|
|
=head1 SEE ALSO
|
|
|
|
HashText.pm
|
|
|
|
=head1 AUTHOR
|
|
Benson Tan <bensont@microsoft.com>
|
|
|
|
=cut
|
|
1; |