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.
52 lines
1.3 KiB
52 lines
1.3 KiB
@REM -----------------------------------------------------------------
|
|
@REM
|
|
@REM errmsg.cmd - JeremyD
|
|
@REM Logs error messages to the screen and in a log file
|
|
@REM
|
|
@REM Copyright (c) Microsoft Corporation. All rights reserved.
|
|
@REM
|
|
@REM -----------------------------------------------------------------
|
|
@perl -x "%~f0" %*
|
|
@set /a errors=errors+1
|
|
@goto :EOF
|
|
#!perl
|
|
use strict;
|
|
use lib $ENV{RAZZLETOOLPATH};
|
|
use ParseArgs;
|
|
use Logmsg;
|
|
|
|
sub Usage { print<<USAGE; exit(1) }
|
|
Prints the given string to the screen and into a file. Used by command
|
|
scripts to log messages.
|
|
|
|
usage: errmsg.cmd <message> [logfile]
|
|
|
|
message Specifies the text to be logged, should be quoted
|
|
|
|
logfile Specifies the name of the log file. LOGFILE, if
|
|
defined, is the default. If this parameter is not
|
|
specified and LOGFILE is not defined, the message is
|
|
displayed on the screen only.
|
|
|
|
The output message has the format:
|
|
[yyyy/mm/dd-hh:mm:ss] (%SCRIPT_NAME%) : message
|
|
|
|
Example:
|
|
|
|
call errmsg.cmd "This is the message to display."
|
|
|
|
USAGE
|
|
|
|
my ($message, $logfile, $foo);
|
|
|
|
parseargs('?' => \&Usage,
|
|
\$message,
|
|
\$logfile);
|
|
|
|
if ($logfile) {
|
|
$ENV{LOGFILE} = $logfile;
|
|
}
|
|
|
|
$ENV{SCRIPT_NAME} ||= '????';
|
|
|
|
errmsg($message);
|