xwords/wince/xwd2cab.pl

#!/usr/bin/perl

# Script for turning Crosswords .xwd files into .cab files that, when
# run on a PPC device, will install the enclosed .xwd file into a
# Crosswords directory in "c:\Program Files\Crosswords".

use strict;

my $provider = "-p \"Crosswords project\"";

usage() if 0 == @ARGV;

while ( my $path = shift @ARGV ) {

    unless ( $path =~ m|.xwd$| ) {
        print STDERR "skipping $path: doesn't end in .xwd\n";
        next;
    }
    unless (-f $path ) {
        print STDERR "skipping $path: not found\n";
        next;
    }

    my $fname = "/tmp/file$$.list";

    open FILE, "> $fname";
    print FILE "$path ";
    print FILE '%CE1%\\Crosswords', "\n";
    close FILE;

    my $cabname = `basename $path`;
    chomp $cabname;
    $cabname =~ s/.xwd$/_xwd/;
    $cabname .= ".cab";

    `pocketpc-cab $provider $fname $cabname`;

    print STDERR "$cabname done\n";
    unlink $fname;
}

sub usage() {
    print STDERR "usage: $0 xwdfile[ xwdfile]*\n";
    exit 2;
}