Miroirs/xwords
1
0
Fork 0
mirror of git://xwords.git.sourceforge.net/gitroot/xwords/xwords synced 2024-11-16 07:48:07 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Friendlier warning when CAB builder file not found.

Browse source
This commit is contained in:
ehouse 2004-07-11 16:52:29 +00:00
parent a5fbad009f
commit 6143e80c2b
1 changed files with 13 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
xwords4/dawg/mkxwdcab.pl
View file

@ -15,10 +15,17 @@ sub usage() {
my $cabwiz = $ENV{"CABWIZPATH"};
if ( ! -x $cabwiz ) {
print STDERR "Cabwiz app not found or not executable; " .
"please define environment variable CABWIZPATH.\n" .
"(Hint: search for a file called \"Cabwiz.exe\".)\n";
exit 1;
print STDERR <<EOF;
******************************************************************************
* Unable to locate Cabwiz.exe. If you are on a windoze system and
* that file exists, please define the environment variable CABWIZPATH
* to its complete pathname. If you do not have that binary and don\'t
* want to see this warning set CABWIZPATH to something like /bin/true.
*
* This error is non-fatal, but no .CAB file will be built.
******************************************************************************
EOF
exit 0;
}
while ( my $parm = shift( @ARGV ) ) {
@ -30,7 +37,6 @@ usage() if !$path;
my $baseName = basename($path);
my $dirName = dirname($path);
print STDERR "got baseName: $baseName\n";
$baseName =~ m|^(.*)\.xwd$|;
my $name = $1;
@ -38,7 +44,8 @@ usage() if !$name;
my $infname = $name . ".inf";
if ( -f $infname && !$force ) {
print STDERR "file $infname already exists and -f flag not passed\n";
print STDERR "file $infname already exists and -f (clobber) flag "
. "not passed\n";
exit 1;
}