first checkin; works

xwords4/dawg/mkxwdcab.pl

@@ -0,0 +1,80 @@
+#!/usr/bin/perl
+
+# Script for wrapping an xwd file as a CAB to ease installation.
+
+use strict;
+use File::Basename;
+
+my $force = 0;
+my $path;
+
+sub usage() {
+    print STDERR "Usage: $0 [-f] dictName.xwd\n";
+    exit 1;
+}
+
+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;
+}
+
+while ( my $parm = shift( @ARGV ) ) {
+    if ( $parm eq "-f" ) { $force = 1; next; }
+    else { $path = $parm; }
+}
+
+usage() if !$path;
+
+my $baseName = basename($path);
+my $dirName = dirname($path);
+print STDERR "got baseName: $baseName\n";
+
+$baseName =~ m|^(.*)\.xwd$|;
+my $name = $1;
+usage() if !$name;
+
+my $infname = $name . ".inf";
+if ( -f $infname && !$force ) {
+    print STDERR "file $infname already exists and -f flag not passed\n";
+    exit 1;
+}
+
+# build the .inf file
+open INFFILE, "> $infname";
+
+print INFFILE <<EOF;
+[CEStrings]
+InstallDir=%CE1%\\%AppName%
+AppName="Crosswords"
+
+[Strings]
+CompanyName="Fixed Innovations"    
+
+[Version]
+Signature="\$Chicago\$"
+CESignature="\$Windows CE\$"
+Provider=%CompanyName%
+
+[SourceDisksNames]
+1=,"FILES",,$dirName
+
+[SourceDisksFiles]
+$baseName=1
+
+[Files]
+$baseName
+
+[DefaultInstall]
+CopyFiles=Files
+
+[DestinationDirs]
+Files=,%InstallDir%
+EOF
+
+close INFFILE;
+
+# Then run it
+system( "$cabwiz", $infname );