perl - Archive::Zip、EBook::Epub 和 IIS6 - "desiredCompressionLevel"错误

Question

我正在尝试使用 EBook::Epub 将 html 文件转换为 epub。我写的脚本很简单，像这样:

my $epub = EBook::EPUB->new;
$epub->add_title('title');
$epub->add_author('author');
$epub->add_language('en');
$epub->copy_xhtml("d:/path/to/file.html" , "file.html");
$epub->pack_zip("d:/path/to/file.epub");

当我从命令行运行它时，效果很好。但是，我试图将它部署为 IIS6 服务器上的 CGI 脚本——它在同一台计算机上运行——它失败并显示以下消息:

Can't call method "desiredCompressionLevel" on an undefined value at C:/strawberry/perl/vendor/lib/Archive/Zip/Archive.pm line 252.

我查看了 Archive.pm，第 252 行在 sub addFile 中。它使用了三个变量——$fileName、$newName、$compressionLevel——并且我使用了一些打印语句来从第 252 行之前显示它们的值。($compressionLevel 总是空白)

这是来自命令行，它的工作原理:

filename: C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\7QiqzzNiN5/OPS/file.html 
newname: OPS/Advanced8247.html
filename: C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\7QiqzzNiN5/OPS/content.opf 
newname: OPS/content.opf
filename: C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\7QiqzzNiN5/OPS/toc.ncx 
newname: OPS/toc.ncx
filename: C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\DkgiQN_pTq 
newname: META-INF/container.xml

这是来自服务器的炸弹:

filename: C:\WINDOWS\TEMP\8rxbvOVkKy/OPS/file.html 
newname: OPS/Advanced6575.html
filename: C:\WINDOWS\TEMP\8rxbvOVkKy/OPS/content.opf 
newname: OPS/content.opf
filename: C:\WINDOWS\TEMP\8rxbvOVkKy/OPS/toc.ncx 
newname: OPS/toc.ncx
filename: C:\WINDOWS\TEMP\WqS7fskWi0 
newname: META-INF/container.xml

所以我猜我的问题与临时文件的写入位置有关，但我真的对服务器和 Archive::Zip 了解得不够多，无法弄清楚。有任何想法吗？

Answer 1

确保正在写入的临时目录可由运行 IIS 的 IIS 用户(IIS_IUSRS 和/或 IUSR)写入。当您在命令行上运行时，您以不同的用户身份运行，该用户可能有权写入 C:\Windows\Temp。我有一个类似的问题(写入同一个临时目录)并且能够通过将临时目录更改为我的 Web 应用程序的已发布文档根目录更本地的内容来解决该问题，该目录在“属性”>“安全性”下已经具有正确的权限。

在我的情况下，我能够在我的脚本中设置环境变量 TMPDIR:

$ENV{TMPDIR} = 'C:\Inetpub\tmp'

并且 C:\Inetpub\tmp 的文件夹权限已更新为可由 IIS_IUSRS 和 IUSR 写入。

这是来自 http://metacpan.org/pod/Archive::Zip 的片段讨论临时文件和设置 $ENV{TMPDIR}

Archive::Zip::tempFile( [$tmpdir] )

Create a uniquely named temp file. It will be returned open for read/write. If $tmpdir
is given, it is used as the name of a directory to create the file in. If not given, 
creates the file using File::Spec::tmpdir(). Generally, you can override this choice
using the

    $ENV{TMPDIR}

environment variable. But see the File::Spec documentation for your system. Note that 
on many systems, if you're running in taint mode, then you must make sure that 
$ENV{TMPDIR} is untainted for it to be used. Will NOT create $tmpdir if it doesn't 
exist (this is a change from prior versions!). Returns file handle and name:

    my ($fh, $name) = Archive::Zip::tempFile();
    my ($fh, $name) = Archive::Zip::tempFile('myTempDir');
    my $fh = Archive::Zip::tempFile();  # if you don't need the name