Date: Sunday May 19, 2002 @ 18:07
Author: matt
Update of /home/cvs/AxKit-Provider-OpenOffice
In directory ted.sergeant.org:/home/matt/Perl/AxKit-Provider-OpenOffice
Modified Files:
Makefile.PL OpenOffice.pm
Added Files:
test.sxw
Log Message:
Updated to newer OpenOffice, added test file and tests
Index: Makefile.PL
===================================================================
RCS file: /home/cvs/AxKit-Provider-OpenOffice/Makefile.PL,v
retrieving revision 1.3
retrieving revision 1.4
diff -b -u -r1.3 -r1.4
--- Makefile.PL 2001/01/28 17:36:17 1.3
+++ Makefile.PL 2002/05/19 17:07:13 1.4
@@ -5,7 +5,7 @@
'NAME' => 'Apache::AxKit::Provider::OpenOffice',
'VERSION_FROM' => 'OpenOffice.pm', # finds $VERSION
'PREREQ_PM' => {
- AxKit => 0,
- Archive::Tar => 0.11,
+ AxKit => 1.2,
+ Archive::Zip => 0.11,
},
);
Index: OpenOffice.pm
===================================================================
RCS file: /home/cvs/AxKit-Provider-OpenOffice/OpenOffice.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -b -u -r1.3 -r1.4
--- OpenOffice.pm 2001/02/16 15:16:51 1.3
+++ OpenOffice.pm 2002/05/19 17:07:13 1.4
@@ -30,7 +30,7 @@
if ($zip->read($self->{file}) != AZ_OK) {
return $self->SUPER::get_fh;
}
- my $member = $zip->memberNamed('Content.xml');
+ my $member = $zip->memberNamed('content.xml');
my $fh = IO::File->new_tmpfile;
$member->extractToFileHandle($fh);
seek($fh, 0, 0);
@@ -43,7 +43,7 @@
if ($zip->read($self->{file}) != AZ_OK) {
return $self->SUPER::get_strref;
}
- my $member = $zip->memberNamed('Content.xml');
+ my $member = $zip->memberNamed('content.xml');
my ($data, $status) = $member->contents();
if ($status != AZ_OK) {
throw Apache::AxKit::Exception::Error(
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
