epub_convert_text

   1 #!/usr/bin/perl -w
   2 # $Id$
   3 use strict;
   4 require v5.10.0;
   5 our $VERSION = 'v0.1';
   6
   7 BEGIN
   8 {
   9     my $PROGRAM_DIR = $0;
  10     $PROGRAM_DIR =~ s/[^\/\\]+$//;
  11     $PROGRAM_DIR = "./" unless($PROGRAM_DIR);
  12     unshift @INC,
  13         map "$PROGRAM_DIR$_",qw{modules lib ../modules ..lib};
  14 }
  15
  16 unless(@ARGV)
  17 {
  18     require MyPlace::Usage;
  19     MyPlace::Usage::PrintHelp();
  20 }
  21
  22 sub run
  23 {
  24     my $cmd = shift;
  25     print STDERR $cmd," ",join(" ",map "\'$_\'",@_),"\n";
  26     system($cmd,@_) == 0;
  27 }
  28
  29
  30 my $input = shift;
  31 my $output = shift;
  32 if($output =~ m/^--/) {
  33     unshift @ARGV,$output;
  34     $output = undef;
  35 }
  36 die("Usage: input_file [[output_file] [options...]]\n") unless($input);
  37
  38 my %def_arg = ();
  39
  40 my $source_base = $input;
  41 $source_base =~ s/\.[^.]+$//;
  42 my $target_base = $output || $input;
  43 $target_base =~ s/\.[^.]+$//;
  44 my $input_file_xhtml = "content.xhtml";
  45 $output = $target_base . ".epub" unless($output);
  46 my $title = $target_base;
  47 $title =~ s/^.*\///;
  48
  49 print STDERR "Convert $input to $input_file_xhtml...\n";
  50 unlink $input_file_xhtml if(-f $input_file_xhtml);
  51 system(
  52     "epub_text2xhtml",
  53     "-t",$title,
  54     "-i",$input,
  55     "-o",$input_file_xhtml,
  56     );
  57 die("Failed!") unless(-f $input_file_xhtml);
  58 $def_arg{"--title"}=$title;
  59 foreach my $img_ext qw/.jpg .png .jpeg/
  60 {
  61     if (-f "${source_base}${img_ext}")
  62     {
  63         $def_arg{"--cover"}="$source_base$img_ext";
  64     }
  65     elsif(-f "cover$img_ext")
  66     {
  67         $def_arg{"--cover"}="cover$img_ext";
  68     }
  69 }
  70 {
  71     my $last_arg="";
  72     foreach(@ARGV)
  73     {
  74         if(m/^-/) {
  75             $def_arg{$_} = "!EMPTY!_!MARK!";
  76             $last_arg = $_;
  77         }
  78         elsif($last_arg) {
  79             $def_arg{$last_arg} = $_;
  80         }
  81     }
  82 }
  83 print STDERR "Convert $input_file_xhtml to $output...\n";
  84 unlink $output if(-f $output);
  85 my @calibre_args = ();
  86 foreach (keys %def_arg) {
  87     if($def_arg{$_} eq '!EMPTY!_!MARK!') {
  88         push @calibre_args,$_;
  89     }
  90     else {
  91         push @calibre_args,$_,$def_arg{$_};
  92     }
  93 }
  94
  95 &run("epub_convert",$input_file_xhtml,$output,@calibre_args);
  96
  97 __END__
  98
  99 =pod
 100
 101 =head1  NAME
 102
 103 epub_convert_text - Covert plain text file to EPUB book
 104
 105 =head1  SYNOPSIS
 106
 107 epub_convert_text input_file [[output_file] [options...]]
 108
 109 =head1  OPTIONS
 110
 111 options are passing to calibre 'B<ebook-convert>'
 112
 113 =head1  DESCRIPTION
 114
 115 Covert plain text file to EPUB, Implemented
 116 using "epub_text2xhtml" and "epub_convert"
 117 which depends on "ebook-convert" privided
 118 by "calibre".
 119
 120 =head1  CHANGELOG
 121
 122     2010-06-07  xiaoranzzz  <xiaoranzzz@myplace.hell>
 123
 124         * file created.
 125
 126 =head1  AUTHOR
 127
 128 xiaoranzzz <xiaoranzzz@myplace.hell>
 129
 130 =cut
 131
 132