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/);
|
