Sha256: 2cdfea9b5411c5b82c6e70f95c9c85b3561544ef234ce5dac47fbcf36f32e3ee
Contents?: true
Size: 914 Bytes
Versions: 8
Compression:
Stored size: 914 Bytes
Contents
#!/usr/bin/perl -w
# put hh.exe, hhctrl.ocx and itss.dll into this directory
# for this script to work. You can get them by downloading
# the HTML Help Workshop from Microsoft and then doing:
# $ cabextract -F 'hh*' htmlhelp.exe
# $ cabextract -F itircl.dll hhupd.exe
# $ cabextract -F itss.dll hhupd.exe
# $ cp -a itircl.dll ~/.wine/drive_c/windows/system32/
# $ cp -a itss.dll ~/.wine/drive_c/windows/system32/
# $ wine regsvr32 /s 'C:\WINDOWS\SYSTEM32\itircl.dll'
# $ wine regsvr32 /s 'C:\WINDOWS\SYSTEM32\itss.dll'
use strict;
use File::Temp qw(tempdir);
die "Usage: $0 <file.chm>\n" unless @ARGV == 1;
my $hh = $0; $hh =~ s{[^/]+$}{hh.exe};
my $dir = tempdir("./.tempXXXX", CLEANUP => 1);
$ENV{LANG} = 'C';
$ENV{WINEDLLOVERRIDES}='hhctrl.ocx,itss=n';
print "*** $ARGV[0]\n";
system("wine $hh -decompile $dir $ARGV[0] 1>&2 && " .
"cd $dir && find * -type f -print0 | xargs -0 md5sum");
Version data entries
8 entries across 8 versions & 2 rubygems