office/mobiperl: Added (MobiPocket tools).

Signed-off-by: Willy Sudiarto Raharjo <willysr@slackbuilds.org>

1 files changed, 155 insertions, 0 deletions

diff --git a/office/mobiperl/reduce_dependency_hell.diff b/office/mobiperl/reduce_dependency_hell.diff
new file mode 100644
index 0000000000..440a8707eb
--- /dev/null
+++ b/office/mobiperl/reduce_dependency_hell.diff
@@ -0,0 +1,155 @@
+diff -Naur mobiperl-0.0.43/html2mobi mobiperl-0.0.43.patched/html2mobi
+--- mobiperl-0.0.43/html2mobi	2009-07-18 17:52:02.000000000 -0400
++++ mobiperl-0.0.43.patched/html2mobi	2017-04-10 01:51:43.440363698 -0400
+@@ -24,7 +24,7 @@
+ use MobiPerl::LinksInfo;
+ 
+ use HTML::TreeBuilder;
+-use Getopt::Mixed;
++use Getopt::Long;
+ 
+ use strict;
+ 
+@@ -34,12 +34,12 @@
+ 	     $opt_imagerescale $opt_removejavascript $opt_scaleallimages
+ 	     $opt_imagemaxbytes);
+ 
+-Getopt::Mixed::getOptions ("title=s author=s htmlfile=s mobifile=s gentoc
++Getopt::Long::GetOptions (qw/title=s author=s htmlfile=s mobifile=s gentoc
+                             coverimage=s addthumbnail=s noimages addcoverlink
+                             prefixtitle=s fixhtml fixhtmlbr keepbr
+                             removejavascript
+                             scaleallimages=s
+-                            imagerescale=s imagemaxbytes=s");
++                            imagerescale=s imagemaxbytes=s/);
+ 
+ #
+ # expand html document with links...
+diff -Naur mobiperl-0.0.43/lit2mobi mobiperl-0.0.43.patched/lit2mobi
+--- mobiperl-0.0.43/lit2mobi	2009-07-18 17:52:02.000000000 -0400
++++ mobiperl-0.0.43.patched/lit2mobi	2017-04-10 01:51:53.602363787 -0400
+@@ -27,7 +27,7 @@
+ use MobiPerl::Config;
+ use MobiPerl::LinksInfo;
+ 
+-use Getopt::Mixed;
++use Getopt::Long;
+ use File::Copy;
+ 
+ use vars qw ($opt_title $opt_author $opt_htmlfile $opt_mobifile
+@@ -35,10 +35,10 @@
+ 	     $opt_tocfirst $opt_addcoverlink
+ 	     $opt_prefixtitle $opt_fixhtml $opt_fixhtmlbr $opt_imagerescale);
+ 
+-Getopt::Mixed::getOptions ("title=s author=s htmlfile=s mobifile=s
++Getopt::Long::GetOptions (qw/title=s author=s htmlfile=s mobifile=s
+                             coverimage=s addthumbnail=s 
+                             noimages tocfirst addcoverlink
+-                            prefixtitle=s fixhtml fixhtmlbr imagerescale=s");
++                            prefixtitle=s fixhtml fixhtmlbr imagerescale=s/);
+ 
+ 
+ 
+diff -Naur mobiperl-0.0.43/mobi2html mobiperl-0.0.43.patched/mobi2html
+--- mobiperl-0.0.43/mobi2html	2009-07-18 17:52:02.000000000 -0400
++++ mobiperl-0.0.43.patched/mobi2html	2017-04-10 01:52:02.969363870 -0400
+@@ -28,9 +28,8 @@
+ use Palm::PDB;
+ use Palm::Doc;
+ use Image::Size;
+-use Date::Parse;
+-use Date::Format;
+-use Getopt::Mixed;
++use POSIX q/ctime/;
++use Getopt::Long;
+ 
+ use MobiPerl::EXTH;
+ 
+@@ -38,7 +37,7 @@
+ 
+ use vars qw ($opt_rawhtml $opt_record0 $opt_saveallrecords $opt_mobihtml);
+ 
+-Getopt::Mixed::getOptions ("rawhtml record0 saveallrecords mobihtml");
++Getopt::Long::GetOptions (qw/rawhtml record0 saveallrecords mobihtml/);
+ 
+ my $globalcodepage = 0;
+ my $fullpathfilename = shift;
+diff -Naur mobiperl-0.0.43/mobi2mobi mobiperl-0.0.43.patched/mobi2mobi
+--- mobiperl-0.0.43/mobi2mobi	2009-07-18 17:52:02.000000000 -0400
++++ mobiperl-0.0.43.patched/mobi2mobi	2017-04-10 01:52:15.693363982 -0400
+@@ -36,8 +36,8 @@
+ 
+ use Palm::PDB;
+ use Palm::Doc;
+-use Date::Format;  # for ctime call
+-use Getopt::Mixed;
++use POSIX q/ctime/;
++use Getopt::Long;
+ use Image::Size;   # Used to recognize the first record that is an image
+ 
+ #
+@@ -67,7 +67,7 @@
+ 	     $opt_imagerescale
+ 	     $opt_allowtts $opt_deleteclippinglimit $opt_imagemaxbytes);
+ 
+-Getopt::Mixed::getOptions ("outfile=s title=s updatedtitle=s 
++Getopt::Long::GetOptions (qw/outfile=s title=s updatedtitle=s 
+                             prefixtitle=s author=s addauthor=s
+                             description=s language=s subject=s
+                             publisher=s databasename=s patch fiximagesizes
+@@ -78,7 +78,7 @@
+                             mbpfile=s savecover=s savethumb=s imagerescale=s
+                             allowtts deleteclippinglimit
+                             imagemaxbytes=s
+-                            ");
++                            /);
+ 
+ if (not defined $opt_outfile) {
+     if (defined $opt_title or defined $opt_updatedtitle or
+diff -Naur mobiperl-0.0.43/mobils mobiperl-0.0.43.patched/mobils
+--- mobiperl-0.0.43/mobils	2009-07-18 17:52:02.000000000 -0400
++++ mobiperl-0.0.43.patched/mobils	2017-04-10 01:43:39.062359426 -0400
+@@ -23,8 +23,8 @@
+ 
+ use Palm::PDB;
+ use Palm::Doc;
+-use Date::Format;  # for ctime call
+-use Getopt::Mixed;
++use POSIX q/ctime/;
++use Getopt::Long;
+ 
+ use MobiPerl::MobiHeader; # The MobiHeader package file is in the distribution
+ use MobiPerl::Util;
+@@ -33,7 +33,7 @@
+ 
+ use vars qw ($opt_R);
+ 
+-Getopt::Mixed::getOptions ("R");
++Getopt::Long::GetOptions ("R");
+ 
+ my $author = "";
+ my $publisher = "";
+diff -Naur mobiperl-0.0.43/opf2mobi mobiperl-0.0.43.patched/opf2mobi
+--- mobiperl-0.0.43/opf2mobi	2009-07-18 17:52:02.000000000 -0400
++++ mobiperl-0.0.43.patched/opf2mobi	2017-04-10 01:52:30.947364117 -0400
+@@ -27,7 +27,7 @@
+ use MobiPerl::Config;
+ use MobiPerl::LinksInfo;
+ 
+-use Getopt::Mixed;
++use Getopt::Long;
+ use File::Copy;
+ use File::Spec;
+ 
+@@ -39,9 +39,9 @@
+ 	     $opt_tocfirst $opt_addcoverlink
+ 	     $opt_prefixtitle $opt_imagerescale $opt_imagemaxbytes);
+ 
+-Getopt::Mixed::getOptions ("title=s author=s htmlfile=s mobifile=s
++Getopt::Long::GetOptions (qw/title=s author=s htmlfile=s mobifile=s
+                             coverimage=s noimages tocfirst addcoverlink
+-                            prefixtitle=s imagerescale=s imagemaxbytes=s");
++                            prefixtitle=s imagerescale=s imagemaxbytes=s/);
+ 
+ 
+