From ddb21c3cfced4dcbeb73f7ad2383f86371e4858f Mon Sep 17 00:00:00 2001
From: ehouse <ehouse@0782aaa5-4710-0410-8820-a96bf9123855>
Date: Sun, 16 Apr 2006 05:49:59 +0000
Subject: [PATCH] Install into /My Documents/Crosswords since that's the only
 place the OpenFile dialog will let you browse.  And use filename as -a option
 so more than one dictionary can be installed -- without that the installer
 treats all dicts as versions of the same app and removes the old before
 installing the new.

---
 xwords4/wince/xwd2cab.pl | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/xwords4/wince/xwd2cab.pl b/xwords4/wince/xwd2cab.pl
index 9ed8f18d9..40b4991d2 100755
--- a/xwords4/wince/xwd2cab.pl
+++ b/xwords4/wince/xwd2cab.pl
@@ -6,7 +6,7 @@
 
 use strict;
 
-my $provider = "-p \"Crosswords project\"";
+my $provider = "\"Crosswords project\"";
 
 usage() if 0 == @ARGV;
 
@@ -23,17 +23,21 @@ while ( my $path = shift @ARGV ) {
 
     my $fname = "/tmp/file$$.list";
 
+    # see this url for %CE5% and other definitions:
+    # http://msdn.microsoft.com/library/default.asp?url=/library/en-us/DevGuideSP/html/sp_wce51consmartphonewindowscestringsozup.asp
+
     open FILE, "> $fname";
     print FILE "$path ";
-    print FILE '%CE1%\\Crosswords', "\n";
+    print FILE '%CE5%\\Crosswords', "\n";
     close FILE;
 
     my $cabname = `basename $path`;
     chomp $cabname;
-    $cabname =~ s/.xwd$/_xwd/;
-    $cabname .= ".cab";
+    $cabname =~ s/.xwd$//;
+    my $appname = $cabname;
+    $cabname .= "_xwd.cab";
 
-    `pocketpc-cab $provider $fname $cabname`;
+    `pocketpc-cab -p $provider -a $appname $fname $cabname`;
 
     print STDERR "$cabname done\n";
     unlink $fname;