2014-07-12 17:01:11 +00:00
< ? php
/**
* wallabag , self hostable application allowing you to not miss any content anymore
*
* @ category wallabag
* @ author Nicolas Lœuillet < nicolas @ loeuillet . org >
* @ copyright 2013
* @ license http :// opensource . org / licenses / MIT see COPYING file
*/
2014-07-24 13:49:36 +00:00
class WallabagEBooks
2014-07-12 17:01:11 +00:00
{
2014-07-24 13:49:36 +00:00
protected $wallabag ;
2014-07-12 17:01:11 +00:00
protected $method ;
protected $value ;
2014-07-24 13:49:36 +00:00
protected $entries ;
protected $bookTitle ;
protected $bookFileName ;
2014-07-26 09:52:43 +00:00
protected $author = 'wallabag' ;
2014-07-12 17:01:11 +00:00
2014-07-19 22:45:45 +00:00
public function __construct ( Poche $wallabag , $method , $value )
2014-07-12 17:01:11 +00:00
{
$this -> wallabag = $wallabag ;
$this -> method = $method ;
$this -> value = $value ;
}
2014-07-24 13:49:36 +00:00
public function prepareData ()
2014-07-12 17:01:11 +00:00
{
switch ( $this -> method ) {
case 'id' :
2014-07-19 22:45:45 +00:00
$entryID = filter_var ( $this -> value , FILTER_SANITIZE_NUMBER_INT );
2014-07-12 17:01:11 +00:00
$entry = $this -> wallabag -> store -> retrieveOneById ( $entryID , $this -> wallabag -> user -> getId ());
2014-07-24 19:56:04 +00:00
$this -> entries = array ( $entry );
$this -> bookTitle = $entry [ 'title' ];
$this -> bookFileName = substr ( $this -> bookTitle , 0 , 200 );
2014-07-26 09:52:43 +00:00
$this -> author = preg_replace ( '#^w{3}.#' , '' , Tools :: getdomain ( $entry [ " url " ])); # if only one article, set author to domain name (we strip the eventual www part)
Tools :: logm ( 'Producing ebook from article ' . $this -> bookTitle );
2014-07-12 17:01:11 +00:00
break ;
case 'all' :
2014-07-24 19:56:04 +00:00
$this -> entries = $this -> wallabag -> store -> retrieveAll ( $this -> wallabag -> user -> getId ());
2014-07-24 22:33:19 +00:00
$this -> bookTitle = sprintf ( _ ( 'All my articles on %s' ), date ( _ ( 'd.m.y' ))); #translatable because each country has it's own date format system
2014-07-24 19:56:04 +00:00
$this -> bookFileName = _ ( 'Allarticles' ) . date ( _ ( 'dmY' ));
2014-07-26 09:52:43 +00:00
Tools :: logm ( 'Producing ebook from all articles' );
2014-07-12 17:01:11 +00:00
break ;
case 'tag' :
$tag = filter_var ( $this -> value , FILTER_SANITIZE_STRING );
$tags_id = $this -> wallabag -> store -> retrieveAllTags ( $this -> wallabag -> user -> getId (), $tag );
$tag_id = $tags_id [ 0 ][ " id " ]; // we take the first result, which is supposed to match perfectly. There must be a workaround.
2014-07-24 19:56:04 +00:00
$this -> entries = $this -> wallabag -> store -> retrieveEntriesByTag ( $tag_id , $this -> wallabag -> user -> getId ());
$this -> bookTitle = sprintf ( _ ( 'Articles tagged %s' ), $tag );
$this -> bookFileName = substr ( sprintf ( _ ( 'Tag %s' ), $tag ), 0 , 200 );
2014-07-26 09:52:43 +00:00
Tools :: logm ( 'Producing ebook from tag ' . $tag );
2014-07-12 17:01:11 +00:00
break ;
case 'category' :
$category = filter_var ( $this -> value , FILTER_SANITIZE_STRING );
2014-07-24 19:56:04 +00:00
$this -> entries = $this -> wallabag -> store -> getEntriesByView ( $category , $this -> wallabag -> user -> getId ());
2014-07-26 11:04:12 +00:00
$this -> bookTitle = sprintf ( _ ( 'Articles in category %s' ), $category );
2014-07-24 19:56:04 +00:00
$this -> bookFileName = substr ( sprintf ( _ ( 'Category %s' ), $category ), 0 , 200 );
2014-07-26 09:52:43 +00:00
Tools :: logm ( 'Producing ebook from category ' . $category );
2014-07-12 17:01:11 +00:00
break ;
case 'search' :
$search = filter_var ( $this -> value , FILTER_SANITIZE_STRING );
2014-07-24 19:56:04 +00:00
Tools :: logm ( $search );
$this -> entries = $this -> wallabag -> store -> search ( $search , $this -> wallabag -> user -> getId ());
2014-07-26 11:04:12 +00:00
$this -> bookTitle = sprintf ( _ ( 'Articles for search %s' ), $search );
2014-07-24 19:56:04 +00:00
$this -> bookFileName = substr ( sprintf ( _ ( 'Search %s' ), $search ), 0 , 200 );
2014-07-26 09:52:43 +00:00
Tools :: logm ( 'Producing ebook from search ' . $search );
2014-07-12 17:01:11 +00:00
break ;
case 'default' :
2014-07-26 09:52:43 +00:00
die ( _ ( 'Uh, there is a problem while generating eBook.' ));
2014-07-12 17:01:11 +00:00
}
2014-07-24 13:49:36 +00:00
}
}
2014-07-12 17:01:11 +00:00
2014-07-24 13:49:36 +00:00
class WallabagEpub extends WallabagEBooks
{
/**
* handle ePub
*/
public function produceEpub ()
{
2014-07-26 09:52:43 +00:00
Tools :: logm ( 'Starting to produce ePub 3 file' );
2014-07-12 17:01:11 +00:00
$content_start =
" <?xml version= \" 1.0 \" encoding= \" UTF-8 \" ?> \n "
. " <html xmlns= \" http://www.w3.org/1999/xhtml \" xmlns:epub= \" http://www.idpf.org/2007/ops \" > \n "
. " <head> "
. " <meta http-equiv= \" Default-Style \" content= \" text/html; charset=utf-8 \" /> \n "
2014-07-26 09:52:43 +00:00
. " <title> " . _ ( " wallabag articles book " ) . " </title> \n "
2014-07-12 17:01:11 +00:00
. " </head> \n "
. " <body> \n " ;
$bookEnd = " </body> \n </html> \n " ;
$log = new Logger ( " wallabag " , TRUE );
$fileDir = CACHE ;
$book = new EPub ( EPub :: BOOK_VERSION_EPUB3 , DEBUG_POCHE );
$log -> logLine ( " new EPub() " );
$log -> logLine ( " EPub class version: " . EPub :: VERSION );
$log -> logLine ( " EPub Req. Zip version: " . EPub :: REQ_ZIP_VERSION );
$log -> logLine ( " Zip version: " . Zip :: VERSION );
$log -> logLine ( " getCurrentServerURL: " . $book -> getCurrentServerURL ());
$log -> logLine ( " getCurrentPageURL..: " . $book -> getCurrentPageURL ());
2014-07-26 09:52:43 +00:00
Tools :: logm ( 'Filling metadata for ePub...' );
2014-07-24 19:56:04 +00:00
$book -> setTitle ( $this -> bookTitle );
2014-07-12 17:01:11 +00:00
$book -> setIdentifier ( " http:// $_SERVER[HTTP_HOST] " , EPub :: IDENTIFIER_URI ); // Could also be the ISBN number, prefered for published books, or a UUID.
//$book->setLanguage("en"); // Not needed, but included for the example, Language is mandatory, but EPub defaults to "en". Use RFC3066 Language codes, such as "en", "da", "fr" etc.
$book -> setDescription ( _ ( " Some articles saved on my wallabag " ));
2014-07-26 09:52:43 +00:00
$book -> setAuthor ( $this -> author , $this -> author );
2014-07-12 17:01:11 +00:00
$book -> setPublisher ( " wallabag " , " wallabag " ); // I hope this is a non existant address :)
$book -> setDate ( time ()); // Strictly not needed as the book date defaults to time().
//$book->setRights("Copyright and licence information specific for the book."); // As this is generated, this _could_ contain the name or licence information of the user who purchased the book, if needed. If this is used that way, the identifier must also be made unique for the book.
$book -> setSourceURL ( " http:// $_SERVER[HTTP_HOST] " );
$book -> addDublinCoreMetadata ( DublinCore :: CONTRIBUTOR , " PHP " );
$book -> addDublinCoreMetadata ( DublinCore :: CONTRIBUTOR , " wallabag " );
$cssData = " body { \n margin-left: .5em; \n margin-right: .5em; \n text-align: justify; \n } \n \n p { \n font-family: serif; \n font-size: 10pt; \n text-align: justify; \n text-indent: 1em; \n margin-top: 0px; \n margin-bottom: 1ex; \n } \n \n h1, h2 { \n font-family: sans-serif; \n font-style: italic; \n text-align: center; \n background-color: #6b879c; \n color: white; \n width: 100%; \n } \n \n h1 { \n margin-bottom: 2px; \n } \n \n h2 { \n margin-top: -2px; \n margin-bottom: 2px; \n } \n " ;
$log -> logLine ( " Add Cover " );
2014-07-24 19:56:04 +00:00
$fullTitle = " <h1> " . $this -> bookTitle . " </h1> \n " ;
2014-07-12 17:01:11 +00:00
$book -> setCoverImage ( " Cover.png " , file_get_contents ( " themes/baggy/img/apple-touch-icon-152.png " ), " image/png " , $fullTitle );
$cover = $content_start . '<div style="text-align:center;"><p>' . _ ( 'Produced by wallabag with PHPePub' ) . '</p><p>' . _ ( 'Please open <a href="https://github.com/wallabag/wallabag/issues" >an issue</a> if you have trouble with the display of this E-Book on your device.' ) . '</p></div>' . $bookEnd ;
//$book->addChapter("Table of Contents", "TOC.xhtml", NULL, false, EPub::EXTERNAL_REF_IGNORE);
$book -> addChapter ( " Notices " , " Cover2.html " , $cover );
$book -> buildTOC ();
2014-07-26 09:52:43 +00:00
Tools :: logm ( 'Adding actual content...' );
2014-07-24 19:56:04 +00:00
foreach ( $this -> entries as $entry ) { //set tags as subjects
2014-07-12 17:01:11 +00:00
$tags = $this -> wallabag -> store -> retrieveTagsByEntry ( $entry [ 'id' ]);
foreach ( $tags as $tag ) {
$book -> setSubject ( $tag [ 'value' ]);
}
$log -> logLine ( " Set up parameters " );
$chapter = $content_start . $entry [ 'content' ] . $bookEnd ;
$book -> addChapter ( $entry [ 'title' ], htmlspecialchars ( $entry [ 'title' ]) . " .html " , $chapter , true , EPub :: EXTERNAL_REF_ADD );
$log -> logLine ( " Added chapter " . $entry [ 'title' ]);
}
if ( DEBUG_POCHE ) {
$book -> addChapter ( " Log " , " Log.html " , $content_start . $log -> getLog () . " \n </pre> " . $bookEnd ); // log generation
2014-07-26 09:52:43 +00:00
Tools :: logm ( 'Production log available in produced file' );
2014-07-12 17:01:11 +00:00
}
$book -> finalize ();
2014-07-24 19:56:04 +00:00
$zipData = $book -> sendBook ( $this -> bookFileName );
2014-07-26 09:52:43 +00:00
Tools :: logm ( 'Ebook produced' );
2014-07-12 17:01:11 +00:00
}
2014-07-24 13:49:36 +00:00
}
class WallabagMobi extends WallabagEBooks
{
/**
2014-07-24 19:56:04 +00:00
* MOBI Class
* @ author Sander Kromwijk
2014-07-24 13:49:36 +00:00
*/
2014-07-24 23:33:31 +00:00
public function produceMobi ( $sendByMail = FALSE )
2014-07-24 13:49:36 +00:00
{
2014-07-26 09:52:43 +00:00
Tools :: logm ( 'Starting to produce Mobi file' );
2014-07-24 19:56:04 +00:00
$mobi = new MOBI ();
$content = new MOBIFile ();
2014-07-24 23:33:31 +00:00
$messages = new Messages (); // for later
2014-07-26 09:52:43 +00:00
Tools :: logm ( 'Filling metadata for Mobi...' );
2014-07-24 19:56:04 +00:00
$content -> set ( " title " , $this -> bookTitle );
2014-07-26 09:52:43 +00:00
$content -> set ( " author " , $this -> author );
2014-07-24 22:33:19 +00:00
$content -> set ( " subject " , $this -> bookTitle );
2014-07-24 19:56:04 +00:00
# introduction
2014-07-24 22:33:19 +00:00
$content -> appendParagraph ( '<div style="text-align:center;" ><p>' . _ ( 'Produced by wallabag with PHPMobi' ) . '</p><p>' . _ ( 'Please open <a href="https://github.com/wallabag/wallabag/issues" >an issue</a> if you have trouble with the display of this E-Book on your device.' ) . '</p></div>' );
2014-07-24 19:56:04 +00:00
$content -> appendImage ( imagecreatefrompng ( " themes/baggy/img/apple-touch-icon-152.png " ));
$content -> appendPageBreak ();
2014-07-26 09:52:43 +00:00
Tools :: logm ( 'Adding actual content...' );
2014-07-24 19:56:04 +00:00
foreach ( $this -> entries as $item ) {
$content -> appendChapterTitle ( $item [ 'title' ]);
$content -> appendParagraph ( $item [ 'content' ]);
$content -> appendPageBreak ();
2014-07-24 13:49:36 +00:00
}
2014-07-24 19:56:04 +00:00
$mobi -> setContentProvider ( $content );
2014-07-24 13:49:36 +00:00
2014-07-24 23:33:31 +00:00
if ( ! $sendByMail ) {
// we offer file to download
$mobi -> download ( $this -> bookFileName . '.mobi' );
2014-07-26 09:52:43 +00:00
Tools :: logm ( 'Mobi file produced' );
2014-07-24 23:33:31 +00:00
}
else {
2014-09-27 17:59:43 +00:00
## ##
# Not working yet !!! #
## ##
2014-07-24 23:33:31 +00:00
// we send file to kindle
2014-07-26 09:52:43 +00:00
Tools :: logm ( 'Preparing to send file by email' );
$error = FALSE ;
# testing Mail function
if ( ! function_exists ( 'mail' )) {
2014-07-26 11:04:12 +00:00
$error = _ ( " Mail function is disabled. You can't send emails from your server " );
2014-07-26 09:52:43 +00:00
}
2014-07-24 23:33:31 +00:00
$char_in = array ( '/' , '.' , ',' , ':' , '|' ); # we sanitize filename to avoid conflicts with special characters (for instance, / goes for a directory)
2014-07-24 23:38:28 +00:00
$mobiExportName = preg_replace ( '/\s+/' , '-' , str_replace ( $char_in , '-' , $this -> bookFileName )) . '.mobi' ;
2014-07-24 23:33:31 +00:00
$file = 'cache/' . $mobiExportName ;
$mobi -> save ( $file );
$file_size = filesize ( $file );
$filename = basename ( $file );
$handle = fopen ( $file , " r " );
$content = fread ( $handle , $file_size );
fclose ( $handle );
$content = chunk_split ( base64_encode ( $content ));
$uid = md5 ( uniqid ( time ()));
//generate header for mail
$header = " From: wallabag < " . $this -> wallabag -> user -> email . " > \r \n " ;
$header .= " MIME-Version: 1.0 \r \n " ;
$header .= " Content-Type: multipart/mixed; boundary= \" " . $uid . " \" \r \n \r \n " ;
$header .= " This is a multi-part message in MIME format. \r \n " ;
$header .= " -- " . $uid . " \r \n " ;
$header .= " Content-type:text/plain; charset=iso-8859-1 \r \n " ;
$header .= " Content-Transfer-Encoding: 7bit \r \n \r \n " ;
$header .= " send via wallabag \r \n \r \n " ;
$header .= " -- " . $uid . " \r \n " ;
$header .= " Content-Type: application/x-mobipocket-ebook; name= \" " . $filename . " \" \r \n " ;
$header .= " Content-Transfer-Encoding: base64 \r \n " ;
$header .= " Content-Disposition: attachment; filename= \" " . $filename . " \" \r \n \r \n " ;
$header .= $content . " \r \n \r \n " ;
$header .= " -- " . $uid . " -- " ;
# trying to get the kindle email adress
2014-07-26 09:52:43 +00:00
if ( ! $this -> wallabag -> user -> getConfigValue ( 'kindleemail' ))
2014-07-24 23:33:31 +00:00
{
2014-07-26 11:04:12 +00:00
$error = _ ( " You didn't set your kindle's email adress ! " );
2014-07-24 23:33:31 +00:00
}
2014-07-26 09:52:43 +00:00
if ( ! $error ) {
mail ( $this -> wallabag -> user -> getConfigValue ( 'kindleemail' ), '[wallabag] ' . $this -> bookTitle , " " , $header );
$messages -> add ( 's' , _ ( 'The email has been sent to your kindle !' ));
Tools :: logm ( 'Email sent' );
} else {
$messages -> add ( 'e' , $error );
Tools :: logm ( $error );
2014-07-24 23:33:31 +00:00
}
}
2014-07-24 19:56:04 +00:00
}
2014-07-24 13:49:36 +00:00
}
class WallabagPDF extends WallabagEbooks
{
public function producePDF ()
{
2014-07-26 09:52:43 +00:00
Tools :: logm ( 'Starting to produce PDF file' );
2014-07-24 19:56:04 +00:00
2014-09-27 17:34:17 +00:00
$pdf = new TCPDF ( PDF_PAGE_ORIENTATION , PDF_UNIT , PDF_PAGE_FORMAT , true , 'UTF-8' , false );
2014-07-26 09:52:43 +00:00
2014-09-27 17:34:17 +00:00
Tools :: logm ( 'Filling metadata for PDF...' );
$pdf -> SetCreator ( PDF_CREATOR );
$pdf -> SetAuthor ( '' );
$pdf -> SetTitle ( $this -> bookTitle );
$pdf -> SetSubject ( 'TCPDF Tutorial' );
$pdf -> SetKeywords ( 'TCPDF, PDF, example, test, guide' );
Tools :: logm ( 'Adding introduction...' );
$pdf -> AddPage ();
$intro = '<h1>' . $this -> bookTitle . ' </ h1 >< div style = " text-align:center; " >
< p > ' . _(' Produced by wallabag with tcpdf ') . ' </ p >
2014-07-24 22:33:19 +00:00
< p > '. _(' Please open < a href = " https://github.com/wallabag/wallabag/issues " > an issue </ a > if you have trouble with the display of this E - Book on your device . ') . ' </ p >
< img src = " themes/baggy/img/apple-touch-icon-152.png " /></ div > ' ;
2014-07-24 19:56:04 +00:00
2014-09-27 17:34:17 +00:00
$pdf -> writeHTMLCell ( 0 , 0 , '' , '' , $intro , 0 , 1 , 0 , true , '' , true );
$i = 1 ;
2014-07-26 09:52:43 +00:00
Tools :: logm ( 'Adding actual content...' );
2014-07-24 19:56:04 +00:00
foreach ( $this -> entries as $item ) {
2014-09-27 17:34:17 +00:00
$pdf -> AddPage ();
$html = '<h1>' . $item [ 'title' ] . '</h1>' ;
2014-07-24 19:56:04 +00:00
$html .= $item [ 'content' ];
2014-09-27 17:34:17 +00:00
$pdf -> writeHTMLCell ( 0 , 0 , '' , '' , $html , 0 , 1 , 0 , true , '' , true );
2014-07-24 22:33:19 +00:00
$i = $i + 1 ;
2014-07-24 19:56:04 +00:00
}
2014-09-27 17:34:17 +00:00
// set image scale factor
$pdf -> setImageScale ( PDF_IMAGE_SCALE_RATIO );
2014-07-24 22:33:19 +00:00
2014-09-27 17:34:17 +00:00
2014-07-24 22:33:19 +00:00
2014-09-27 17:59:43 +00:00
$pdf -> Output ( $this -> bookFileName , 'FD' );
2014-07-24 19:56:04 +00:00
2014-07-24 13:49:36 +00:00
}
}