office/mobiperl: Added (MobiPocket tools).
Signed-off-by: Willy Sudiarto Raharjo <willysr@slackbuilds.org>
This commit is contained in:
B. Watson
Willy Sudiarto Raharjo
parent
52f1d52ad1
commit
7f99e446f8
|
|
@ -0,0 +1,19 @@
|
||||||
|
mobiperl (tools for generating and manipulating MobiPocket files)
|
||||||
|
|
||||||
|
MobiPocket (.mobi) is a file format used by e-book readers on desktop
|
||||||
|
PCs and platforms such as the Kindle.
|
||||||
|
|
||||||
|
Included tools:
|
||||||
|
|
||||||
|
html2mobi - convert HTML files to .mobi
|
||||||
|
lit2mobi - convert LIT files to .mobi [1]
|
||||||
|
mobi2html - convert .mobi files to HTML
|
||||||
|
mobi2mobi - manipulate metadata in .mobi files
|
||||||
|
mobils - list contents (metadata) of .mobi files
|
||||||
|
opf2mobi - convert OPF files to .mobi [2]
|
||||||
|
|
||||||
|
[1] For lit2mobi to work, office/convertlit must be installed. Even then,
|
||||||
|
it doesn't seem to work particularly well.
|
||||||
|
|
||||||
|
[2] opf2mobi doesn't seem to actually work. If someone manages to fix
|
||||||
|
it, please let the maintainer know.
|
||||||
|
|
@ -0,0 +1,72 @@
|
||||||
|
#!/bin/sh
|
||||||
|
|
||||||
|
# Slackware build script for mobiperl
|
||||||
|
|
||||||
|
# Written by B. Watson (yalhcru@gmail.com)
|
||||||
|
|
||||||
|
# Licensed under the WTFPL. See http://www.wtfpl.net/txt/copying/ for details.
|
||||||
|
|
||||||
|
PRGNAM=mobiperl
|
||||||
|
VERSION=${VERSION:-0.0.43}
|
||||||
|
BUILD=${BUILD:-1}
|
||||||
|
TAG=${TAG:-_SBo}
|
||||||
|
|
||||||
|
ARCH=noarch
|
||||||
|
|
||||||
|
CWD=$(pwd)
|
||||||
|
TMP=${TMP:-/tmp/SBo}
|
||||||
|
PKG=$TMP/package-$PRGNAM
|
||||||
|
OUTPUT=${OUTPUT:-/tmp}
|
||||||
|
|
||||||
|
set -e
|
||||||
|
|
||||||
|
rm -rf $PKG
|
||||||
|
mkdir -p $TMP $PKG $OUTPUT
|
||||||
|
cd $TMP
|
||||||
|
rm -rf $PRGNAM-$VERSION
|
||||||
|
tar xvf $CWD/$PRGNAM-$VERSION.tar
|
||||||
|
cd $PRGNAM-$VERSION
|
||||||
|
chown -R root:root .
|
||||||
|
find -L . \
|
||||||
|
\( -perm 777 -o -perm 775 -o -perm 750 -o -perm 711 -o -perm 555 \
|
||||||
|
-o -perm 511 \) -exec chmod 755 {} \; -o \
|
||||||
|
\( -perm 666 -o -perm 664 -o -perm 640 -o -perm 600 -o -perm 444 \
|
||||||
|
-o -perm 440 -o -perm 400 \) -exec chmod 644 {} \;
|
||||||
|
|
||||||
|
# Get rid of some perl module dependencies, replacing with stuff that's
|
||||||
|
# shipped with Slackware's perl package. Specifically:
|
||||||
|
# The obsolete Getopt::Mixed module is replaced by Getopt::Long.
|
||||||
|
# Date::Format is only used for ctime(), which is replaced by POSIX::ctime().
|
||||||
|
# Date::Parse is supposedly required, but is never used (removed it).
|
||||||
|
# For anyone reading this, no, this didn't break opf2mobi (it was
|
||||||
|
# already broken).
|
||||||
|
patch -p1 < $CWD/reduce_dependency_hell.diff
|
||||||
|
|
||||||
|
# lit2mobi calls convertlit by its old name, which might trigger
|
||||||
|
# stupid content filters. Replace with modern inoffensive name, in
|
||||||
|
# silly obfuscated way so this script doesn't contain the old name.
|
||||||
|
# (In case you're wondering, I'm not offended by this, I just don't want
|
||||||
|
# to get complaints from easily-offended people).
|
||||||
|
sed -i 's,\<cl[^\000-\150\152-]t\>,convertlit,g' MobiPerl/Util.pm lit2mobi
|
||||||
|
|
||||||
|
# It's pure Perl code (no shared libs), but not packaged as a perl module.
|
||||||
|
# We'll install the modules in the standard place for 3rd-party perl modules.
|
||||||
|
mkdir -p $PKG/usr/share/perl5/vendor_perl
|
||||||
|
cp -a Palm MobiPerl $PKG/usr/share/perl5/vendor_perl
|
||||||
|
|
||||||
|
mkdir -p $PKG/usr/man/man1 $PKG/usr/bin
|
||||||
|
EXES="html2mobi lit2mobi mobi2html mobi2mobi opf2mobi mobils"
|
||||||
|
for exe in $EXES; do
|
||||||
|
pod2man -c 'SlackBuilds.org' -r $VERSION $exe | gzip -9c > $PKG/usr/man/man1/$exe.1.gz
|
||||||
|
install -m0755 -oroot -groot $exe $PKG/usr/bin/$exe
|
||||||
|
done
|
||||||
|
|
||||||
|
mkdir -p $PKG/usr/doc/$PRGNAM-$VERSION
|
||||||
|
cp -a README *.txt $PKG/usr/doc/$PRGNAM-$VERSION
|
||||||
|
cat $CWD/$PRGNAM.SlackBuild > $PKG/usr/doc/$PRGNAM-$VERSION/$PRGNAM.SlackBuild
|
||||||
|
|
||||||
|
mkdir -p $PKG/install
|
||||||
|
cat $CWD/slack-desc > $PKG/install/slack-desc
|
||||||
|
|
||||||
|
cd $PKG
|
||||||
|
/sbin/makepkg -l y -c n $OUTPUT/$PRGNAM-$VERSION-$ARCH-$BUILD$TAG.${PKGTYPE:-tgz}
|
||||||
|
|
@ -0,0 +1,10 @@
|
||||||
|
PRGNAM="mobiperl"
|
||||||
|
VERSION="0.0.43"
|
||||||
|
HOMEPAGE="http://www.ida.liu.se/~tompe44/mobiperl/"
|
||||||
|
DOWNLOAD="http://www.ida.liu.se/~tompe44/mobiperl/downloads/mobiperl-0.0.43.tar"
|
||||||
|
MD5SUM="39a7c5d416ff34e7572881fd35df9368"
|
||||||
|
DOWNLOAD_x86_64=""
|
||||||
|
MD5SUM_x86_64=""
|
||||||
|
REQUIRES="perl-Image-Size perl-GD perl-HTML-Tree perl-palm-pdb perl-image-bmp perl-xml-parser-lite-tree"
|
||||||
|
MAINTAINER="B. Watson"
|
||||||
|
EMAIL="yalhcru@gmail.com"
|
||||||
|
|
@ -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/);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -0,0 +1,19 @@
|
||||||
|
# HOW TO EDIT THIS FILE:
|
||||||
|
# The "handy ruler" below makes it easier to edit a package description.
|
||||||
|
# Line up the first '|' above the ':' following the base package name, and
|
||||||
|
# the '|' on the right side marks the last column you can put a character in.
|
||||||
|
# You must make exactly 11 lines for the formatting to be correct. It's also
|
||||||
|
# customary to leave one space after the ':' except on otherwise blank lines.
|
||||||
|
|
||||||
|
|-----handy-ruler------------------------------------------------------|
|
||||||
|
mobiperl: mobiperl (tools for generating and manipulating MobiPocket files)
|
||||||
|
mobiperl:
|
||||||
|
mobiperl: MobiPocket (.mobi) is a file format used by e-book readers on desktop
|
||||||
|
mobiperl: PCs and platforms such as the Kindle.
|
||||||
|
mobiperl:
|
||||||
|
mobiperl: Included tools:
|
||||||
|
mobiperl: html2mobi lit2mobi mobi2html mobi2mobi opf2mobi mobils
|
||||||
|
mobiperl:
|
||||||
|
mobiperl:
|
||||||
|
mobiperl:
|
||||||
|
mobiperl:
|
||||||
Loading…
Reference in New Issue