Miroirs/xwords
1
0
Fork 0
mirror of git://xwords.git.sourceforge.net/gitroot/xwords/xwords synced 2025-01-04 23:02:02 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Install into /My Documents/Crosswords since that's the only place the

Browse source 
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.
This commit is contained in:
ehouse 2006-04-16 05:49:59 +00:00
parent 6680edebb6
commit ddb21c3cfc
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
xwords4/wince/xwd2cab.pl
View file

@ -6,7 +6,7 @@
use strict; use strict;
my $provider = "-p \"Crosswords project\""; my $provider = "\"Crosswords project\"";
usage() if 0 == @ARGV; usage() if 0 == @ARGV;
@ -23,17 +23,21 @@ while ( my $path = shift @ARGV ) {
my $fname = "/tmp/file$$.list"; 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"; open FILE, "> $fname";
print FILE "$path "; print FILE "$path ";
print FILE '%CE1%\\Crosswords', "\n"; print FILE '%CE5%\\Crosswords', "\n";
close FILE; close FILE;
my $cabname = `basename $path`; my $cabname = `basename $path`;
chomp $cabname; chomp $cabname;
$cabname =~ s/.xwd$/_xwd/; $cabname =~ s/.xwd$//;
$cabname .= ".cab"; my $appname = $cabname;
$cabname .= "_xwd.cab";
`pocketpc-cab $provider $fname $cabname`; `pocketpc-cab -p $provider -a $appname $fname $cabname`;
print STDERR "$cabname done\n"; print STDERR "$cabname done\n";
unlink $fname; unlink $fname;