<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">Ansering my own question I guess.</SPAN></div>
<div style="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">I can't explain it but I reformatted the file that was getting complaints to break up the XML so that there was one tag per line and for some reason, that got rid of the error. Maybe it was because the internal date was messed up and modifying it corrected it. Problem solved.</SPAN></div>
<div style="RIGHT: auto"><SPAN style="RIGHT: auto"></SPAN> </div>
<div style="RIGHT: auto"><SPAN style="RIGHT: auto">Sorry to have sent up a signal because of a corrupt file.</SPAN></div>
<div style="RIGHT: auto"><SPAN style="RIGHT: auto"></SPAN> </div>
<div style="RIGHT: auto"><SPAN style="RIGHT: auto">Regards,</SPAN></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">Rich Wood</SPAN></div>
<DIV></DIV>
<DIV style="RIGHT: auto"> </DIV>
<div>Richard O. Wood<BR>Wildwood IT Consultants, Inc.<BR>wildwood_players@yahoo.com<BR>425.281.1914 mobile<BR></div>
<DIV style="FONT-FAMILY: Courier New, courier, monaco, monospace, sans-serif; FONT-SIZE: 12pt">
<DIV style="FONT-FAMILY: times new roman, new york, times, serif; FONT-SIZE: 12pt">
<DIV dir=ltr><FONT size=2 face=Arial>
<DIV style="BORDER-BOTTOM: #ccc 1px solid; BORDER-LEFT: #ccc 1px solid; PADDING-BOTTOM: 0px; LINE-HEIGHT: 0; MARGIN: 5px 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; HEIGHT: 0px; FONT-SIZE: 0px; BORDER-TOP: #ccc 1px solid; BORDER-RIGHT: #ccc 1px solid; PADDING-TOP: 0px" class=hr contentEditable=false readonly="true"></DIV><B><SPAN style="FONT-WEIGHT: bold">From:</SPAN></B> Richard Wood <wildwood_players@yahoo.com><BR><B><SPAN style="FONT-WEIGHT: bold">To:</SPAN></B> "spug-list@pm.org" <spug-list@pm.org> <BR><B><SPAN style="FONT-WEIGHT: bold">Sent:</SPAN></B> Friday, February 22, 2013 10:07 AM<BR><B><SPAN style="FONT-WEIGHT: bold">Subject:</SPAN></B> SPUG: Archive::Zip:Member::_unixToDosTime problem<BR></FONT></DIV><BR>
<META content=off http-equiv=x-dns-prefetch-control>
<DIV id=yiv2061946053>
<DIV>
<DIV style="BACKGROUND-COLOR: #fff; FONT-FAMILY: Courier New, courier, monaco, monospace, sans-serif; COLOR: #000; FONT-SIZE: 12pt">
<DIV><SPAN>Hi SPUG, </SPAN></DIV>
<DIV><SPAN></SPAN> </DIV>
<DIV><SPAN>I am using Archive::Zip to create a MS WORD docx archive on win7 running ActivePerl Build 822 [280952].</SPAN></DIV>
<DIV><SPAN>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"> </DIV>
<DIV>Example: word/_rels/document.xml.rels </DIV>
<DIV> </DIV>
<DIV>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><SPAN><VAR id=yiv2061946053yui-ie-cursor></VAR></SPAN> </DIV>
<DIV><SPAN>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"><SPAN></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"><SPAN>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=yiv2061946053tab> <SPAN class=yiv2061946053tab> </SPAN></SPAN> print STDERR "Error creating $zipname rc: $return dollar_bang:$! :\n";<BR> }<BR> else {<BR><SPAN class=yiv2061946053tab> <SPAN class=yiv2061946053tab> </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"><SPAN></SPAN> </DIV>
<DIV><SPAN>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"><SPAN></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"><SPAN>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"><SPAN>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"><SPAN></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"><SPAN>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"><SPAN></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"><SPAN>_rels<BR><SPAN class=yiv2061946053tab> </SPAN>.rels<BR>docProps<BR><SPAN class=yiv2061946053tab> </SPAN>app.xml<BR><SPAN class=yiv2061946053tab> </SPAN>core.xml<BR>word<BR><SPAN class=yiv2061946053tab> </SPAN>_rels<BR><SPAN class=yiv2061946053tab> <SPAN class=yiv2061946053tab> </SPAN></SPAN>document.xml.rels<BR><SPAN class=yiv2061946053tab> </SPAN>theme<BR><SPAN class=yiv2061946053tab> </SPAN>theme1.xml<BR><SPAN class=yiv2061946053tab> </SPAN>document.xml<BR><SPAN class=yiv2061946053tab> </SPAN>fronTable.xml<BR><SPAN
class=yiv2061946053tab> </SPAN>settings.xml<BR><SPAN class=yiv2061946053tab> </SPAN>styles.xml<BR><SPAN class=yiv2061946053tab> </SPAN>webSettings.xml</DIV></SPAN>
<DIV> </DIV>
<DIV> </DIV>
<DIV>Regards,</DIV>
<DIV> </DIV>
<DIV>Rich Wood </DIV>
<DIV>Richard O. Wood<BR>Wildwood IT Consultants, Inc.<BR>wildwood_players@yahoo.com<BR>425.281.1914 mobile</DIV></DIV></DIV></DIV>
<META content=on http-equiv=x-dns-prefetch-control><BR>_____________________________________________________________<BR>Seattle Perl Users Group Mailing List<BR> POST TO: <A href="mailto:spug-list@pm.org" ymailto="mailto:spug-list@pm.org">spug-list@pm.org</A><BR>SUBSCRIPTION: <A href="http://mail.pm.org/mailman/listinfo/spug-list" target=_blank>http://mail.pm.org/mailman/listinfo/spug-list</A><BR> MEETINGS: 3rd Tuesdays<BR> WEB PAGE: <A href="http://seattleperl.org/" target=_blank>http://seattleperl.org/</A><BR><BR></DIV></DIV></div></body></html>