------------------------------ --- upload-------------------- ------------------------------ use TWiki::UI; use TWiki::UI::UploadAndConvert; #use TWiki::Plugins::OODocConverter::UploadAndConvert; TWiki::UI::run( \&TWiki::UI::UploadAndConvert::upload ); ------------------------------ --- UploadAndConvert --------- ------------------------------ package TWiki::UI::UploadAndConvert; use strict; use TWiki; use TWiki::UI; use Error qw( :try ); use TWiki::OopsException; use File::Spec; use TWiki::Plugins::OODocConverter::OODoc2Twiki; ------------------------------ --- OODoc2Twiki -------------- ------------------------------ use TWiki::Plugins::OODocConverter::OODocReader; package TWiki::Plugins::OODocConverter::OODoc2Twiki; use strict; our @ISA = qw( TWiki::Plugins::OODocConverter::OODocReader ); ---- ------------------------------ --- OODocReader -------------- ------------------------------ use OpenOffice::OODoc; use TWiki::Plugins::OODocConverter::OODocStyles; package TWiki::Plugins::OODocConverter::OODocReader; use strict; our @ISA = qw( TWiki::Plugins::OODocConverter::OODocStyles OpenOffice::OODoc::Text OpenOffice::OODoc::Image ); . . . package OpenOffice::OODoc::Element; sub isTextBox { } sub isImage { } ---- ------------------------------ --- OODocStyles -------------- ------------------------------ package TWiki::Plugins::OODocConverter::OODocStyles; use OpenOffice::OODoc::Styles; require Exporter; use strict; our @ISA = qw(OpenOffice::OODoc::Styles); ---- ------------------------------ --- Styles -------------- ------------------------------ package OpenOffice::OODoc::Element; . . . package OpenOffice::OODoc::Element; sub isTextBox { } sub isImage { }