<?php

$templatePDF 
'560-0201_blocked2.pdf';

define('PATH_CMaps''/usr/local/pdflib7/resource/cmap');

$p PDF_new();

PDF_set_parameter($p"SearchPath"PATH_CMaps);
PDF_set_parameter($p"errorpolicy""return");

// Acrobat 5, 6, 7, 8 ¤ÇÆÉ¤á¤ë¤è¤¦¤Ë¤¹¤ë¾ì¹ç¡¢1.4 ¤ò»ØÄꤷ¤Þ¤¹¡£
// Acrobat 6, 7, 8 ¤ÇÆÉ¤á¤ë¤è¤¦¤Ë¤¹¤ë¾ì¹ç¡¢1.5 ¤ò»ØÄꤷ¤Þ¤¹¡£
// Acrobat 7, 8 ¤ÇÆÉ¤á¤ë¤è¤¦¤Ë¤¹¤ë¾ì¹ç¡¢1.6 ¤ò»ØÄꤷ¤Þ¤¹¡£
// Acrobat 8 ¤Î¤ß¤ÇÆÉ¤á¤ë¤è¤¦¤Ë¤¹¤ë¾ì¹ç¡¢1.7 ¤ò»ØÄꤷ¤Þ¤¹¡£
//   ¢¨compatibility ¥ª¥×¥·¥ç¥ó¤Î¥Ç¥Õ¥©¥ë¥ÈÃͤϠ1.6 ¤Ç¤¹¡£
PDF_begin_document($p'''compatibility=1.5');

// °Å¹æ²½¤µ¤ì¤¿ PDF ¥Õ¥¡¥¤¥ë¤òÆÉ¤ß¹þ¤à¤È¤­¤Ï²¼µ­¤Î¤è¤¦¤Ë password ¤Ë
// ¥Ñ¥¹¥ï¡¼¥É¤ò»ØÄꤷ¤Þ¤¹(PDF ¤Ë¥Þ¥¹¥¿¥Ñ¥¹¥ï¡¼¥É¤¬ÀßÄꤵ¤ì¤Æ¤¤¤ë¾ì¹ç¤Ë¤Ï
// ¥Þ¥¹¥¿¥Ñ¥¹¥ï¡¼¥É¤Î¥Ñ¥¹¥ï¡¼¥É¤ò»ØÄꤷ¤Þ¤¹¡Ë¡£
$doc PDF_open_pdi_document($p$templatePDF"pdiwarning=true");
if (
$doc == 0) {
  echo 
PDF_get_errmsg($p);
  exit;
}

$page PDF_open_pdi_page($p$doc1"");
if (
$page == 0) {
  echo 
PDF_get_errmsg($p);
  exit;
}

// ¥Ú¡¼¥¸¤Ï A4 ¥µ¥¤¥º
PDF_begin_page_ext($p595842'');

/* ÆÉ¤ß¹þ¤ó¤À¥Ú¡¼¥¸¤ò½ÐÎÏ */
PDF_fit_pdi_page($p$page00"adjustpage");

##########################
/* ¥Õ¥©¥ó¥È¤ÎÆÉ¤ß¹þ¤ß */
PDF_set_parameter($p"FontOutline""mikachan-PB=/tmp/mikafont_pb.otf");
$font PDF_load_font($p"mikachan-PB""90ms-RKSJ-H""embedding=true");

/*
  // MS¥´¥·¥Ã¥¯¥Õ¥©¥ó¥È¤òËä¤á¹þ¤à¾ì¹ç¡Ê¥Õ¥©¥ó¥È¤Î¥é¥¤¥»¥ó¥¹¤ËÃí°Õ¡ª¡Ë
PDF_set_parameter($p, "FontOutline", "msgothic=/tmp/msgothic.ttc");
$font = PDF_load_font($p, "msgothic:0", "90ms-RKSJ-H", "embedding=true");
*/

if ($font == 0) {
  echo 
PDF_get_errmsg($p);
  exit;
}
####################

/* ¥Ö¥í¥Ã¥¯¤Ë¥Æ¥­¥¹¥È¤òÀßÄê */
// ²¼µ­¤ÏÆüËܸì¤Îʸ»úÎó¤ò½ÐÎϤ¹¤ë¤¿¤á¤Î¤ª¤Þ¤¸¤Ê¤¤(ʸ»ú¥³¡¼¥É¤ÎÊÑ´¹)
$org "PDI¥µ¥ó¥×¥ëͧ¤Î²ñ(­¡­ê)";
$org mb_convert_encoding($org"SJIS-win""EUC-JP");
$ret_block PDF_fill_textblock($p$page"org"$org"fontsize 20 encoding 90ms-RKSJ-H textformat auto font=" $font);

if (
$ret_block == 0) {
  echo 
PDF_get_errmsg($p);
  exit;
}

PDF_fill_textblock($p$page"year"date("Y"), "encoding host");
PDF_fill_textblock($p$page"month"date("m"), "encoding host");
PDF_fill_textblock($p$page"day"date("d"), "encoding host");

PDF_end_page_ext($p'');

PDF_close_pdi_page($p$page);
    
PDF_close_pdi_document($p$doc);

PDF_end_document($p'');

$buf PDF_get_buffer($p);
header("Content-Type: application/pdf");
header("Content-Length: " strlen($buf));
header("Content-Disposition: inline; filename=embed_pps.pdf");
print 
$buf;

PDF_delete($p);

?>