<html><body><div style="color:#000; background-color:#fff; font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:12pt"><div style="RIGHT: auto"><SPAN style="RIGHT: auto">Hi SPUG, </SPAN></div>
<div style="RIGHT: auto"><SPAN style="RIGHT: auto"></SPAN> </div>
<div style="RIGHT: auto"><SPAN style="RIGHT: auto">I am using Archive::Zip to create a MS WORD docx archive on win7 running ActivePerl Build 822 [280952].</SPAN></div>
<div style="RIGHT: auto"><SPAN style="RIGHT: auto">It works mostly, but I think it is having problems with files that contain multiple full stops.</SPAN></div>
<div style="BACKGROUND-COLOR: transparent; FONT-STYLE: normal; FONT-FAMILY: Courier New, courier, monaco, monospace, sans-serif; COLOR: rgb(0,0,0); FONT-SIZE: 16px; RIGHT: auto"> </div>
<div style="RIGHT: auto">Example: word/_rels/document.xml.rels </div>
<div style="RIGHT: auto"> </div>
<div style="RIGHT: auto">The docx file is created, and I can even open it (sometimes with errors) which I suspect might be related to the complaining that Archive::Zip::Member::_unixToDosTime is doing about the one file that has a funny name (at least for WIN).</div>
<div style="RIGHT: auto"><SPAN style="RIGHT: auto"><VAR id=yui-ie-cursor></VAR></SPAN> </div>
<div style="RIGHT: auto"><SPAN style="RIGHT: auto">The code isn't much:</SPAN></div>
<div style="BACKGROUND-COLOR: transparent; FONT-STYLE: normal; FONT-FAMILY: Courier New, courier, monaco, monospace, sans-serif; COLOR: rgb(0,0,0); FONT-SIZE: 16px; RIGHT: auto"><SPAN style="RIGHT: auto"></SPAN> </div>
<div style="BACKGROUND-COLOR: transparent; FONT-STYLE: normal; FONT-FAMILY: Courier New, courier, monaco, monospace, sans-serif; COLOR: rgb(0,0,0); FONT-SIZE: 16px; RIGHT: auto"><SPAN style="RIGHT: auto">sub zip_docx {<BR>    $zip = Archive::Zip->new();<BR>    $zip->addTree('.');<BR>    $zipname = "$id".".docx";<BR>    print STDERR "trying to create $zipname\n";<BR>    $return = $zip->writeToFileNamed($zipname);<BR>    if ($return ne AZ_OK) {<BR><SPAN class=tab>    <SPAN class=tab>    </SPAN></SPAN> print STDERR "Error creating $zipname rc: $return dollar_bang:$! :\n";<BR>    }<BR>    else {<BR><SPAN class=tab>    <SPAN class=tab>    </SPAN></SPAN> print STDOUT "$zipname created\n";<BR>    }<BR>}<BR></SPAN></div>
<div style="BACKGROUND-COLOR: transparent; FONT-STYLE: normal; FONT-FAMILY: Courier New, courier, monaco, monospace, sans-serif; COLOR: rgb(0,0,0); FONT-SIZE: 16px; RIGHT: auto"><SPAN style="RIGHT: auto"></SPAN> </div>
<div style="RIGHT: auto"><SPAN style="RIGHT: auto">Here are the errors:</SPAN></div>
<div style="BACKGROUND-COLOR: transparent; FONT-STYLE: normal; FONT-FAMILY: Courier New, courier, monaco, monospace, sans-serif; COLOR: rgb(0,0,0); FONT-SIZE: 16px; RIGHT: auto"><SPAN style="RIGHT: auto"></SPAN> </div>
<div style="BACKGROUND-COLOR: transparent; FONT-STYLE: normal; FONT-FAMILY: Courier New, courier, monaco, monospace, sans-serif; COLOR: rgb(0,0,0); FONT-SIZE: 16px; RIGHT: auto"><SPAN style="RIGHT: auto">C:\Users\nm040a\Desktop\FlatCQ>perl -w ../myperl/ddps/write_word.pl short.xml<BR>IO error: Unsupported date before 1980 encountered, moving to 1980 : at C:/perl/lib/Archive/Zip/Member.pm line 491<BR>        Archive::Zip::Member::_unixToDosTime(315561600) called at C:/perl/lib/Archive/Zip/Member.pm line 180<BR>        Archive::Zip::Member::setLastModFileDateTimeFromUnix('Archive::Zip::NewFileMember=HASH(0x38913b4)', 315561600) called at C:/perl/lib/Archive/Zip/NewFileMember.pm line 36<BR>        Archive::Zip::NewFileMember::_newFromFileNamed('Archive::Zip::NewFileMember', './word/_rels/document.xml.rels', 'word/_rels/document.xml.rels') called at
 C:/perl/lib/Archive/Zip/Member.pm line 54<BR>        Archive::Zip::Member::newFromFile('Archive::Zip::Member', './word/_rels/document.xml.rels', 'word/_rels/document.xml.rels') called at C:/perl/lib/Archive/Zip/Archive.pm line 202<BR>        Archive::Zip::Archive::addFile('Archive::Zip::Archive=HASH(0x386316c)','./word/_rels/document.xml.rels', 'word/_rels/document.xml.rels') called at C:/perl/lib/Archive/Zip/Archive.pm line 607<BR>        Archive::Zip::Archive::addTree('Archive::Zip::Archive=HASH(0x386316c)',.) called at ../myperl/ddps/write_word.pl line 476<BR>        main::zip_docx() called at ../myperl/ddps/write_word.pl line 126</SPAN></div>
<div style="BACKGROUND-COLOR: transparent; FONT-STYLE: normal; FONT-FAMILY: Courier New, courier, monaco, monospace, sans-serif; COLOR: rgb(0,0,0); FONT-SIZE: 16px; RIGHT: auto"><SPAN style="RIGHT: auto">trying to create cms00002173.docx<BR>Error creating cms00002173.docx rc: 0 dollar_bang: :</SPAN></div>
<div style="BACKGROUND-COLOR: transparent; FONT-STYLE: normal; FONT-FAMILY: Courier New, courier, monaco, monospace, sans-serif; COLOR: rgb(0,0,0); FONT-SIZE: 16px; RIGHT: auto"><SPAN style="RIGHT: auto"></SPAN> </div>
<div style="BACKGROUND-COLOR: transparent; FONT-STYLE: normal; FONT-FAMILY: Courier New, courier, monaco, monospace, sans-serif; COLOR: rgb(0,0,0); FONT-SIZE: 16px; RIGHT: auto"><SPAN style="RIGHT: auto">The direcory structure of the folder is this:</SPAN></div>
<div style="BACKGROUND-COLOR: transparent; FONT-STYLE: normal; FONT-FAMILY: Courier New, courier, monaco, monospace, sans-serif; COLOR: rgb(0,0,0); FONT-SIZE: 16px; RIGHT: auto"><SPAN style="RIGHT: auto"></SPAN> </div>
<div style="BACKGROUND-COLOR: transparent; FONT-STYLE: normal; FONT-FAMILY: Courier New, courier, monaco, monospace, sans-serif; COLOR: rgb(0,0,0); FONT-SIZE: 16px; RIGHT: auto"><SPAN style="RIGHT: auto">_rels<BR><SPAN class=tab>    </SPAN>.rels<BR>docProps<BR><SPAN class=tab>    </SPAN>app.xml<BR><SPAN class=tab>    </SPAN>core.xml<BR>word<BR><SPAN class=tab>    </SPAN>_rels<BR><SPAN class=tab>    <SPAN class=tab>    </SPAN></SPAN>document.xml.rels<BR><SPAN class=tab>    </SPAN>theme<BR><SPAN class=tab>    </SPAN>theme1.xml<BR><SPAN class=tab>    </SPAN>document.xml<BR><SPAN class=tab>    </SPAN>fronTable.xml<BR><SPAN class=tab>    </SPAN>settings.xml<BR><SPAN class=tab>    </SPAN>styles.xml<BR><SPAN
 class=tab>    </SPAN>webSettings.xml</div></SPAN>
<DIV style="RIGHT: auto"> </DIV>
<DIV style="RIGHT: auto"> </DIV>
<DIV style="RIGHT: auto">Regards,</DIV>
<DIV style="RIGHT: auto"> </DIV>
<DIV style="RIGHT: auto">Rich Wood </DIV>
<div style="RIGHT: auto">Richard O. Wood<BR>Wildwood IT Consultants, Inc.<BR>wildwood_players@yahoo.com<BR>425.281.1914 mobile</div></div></body></html>