#!/usr/bin/perl
#
# dcphoto.pl Ver 2.5 - 写真用 HTML作成スクリプト
#
# Morikawa Yasuhiro <morikawa_at_ep.sci.hokudai.ac.jp> 2002/12/03 dcppt.pl 作成
# Mitsuda Chihiro   <totera_at_ep.sci.hokudai.ac.jp>   2003/08/08 写真用に改良, サムネイル作成
# Mitsuda Chihiro   <totera_at_ep.sci.hokudai.ac.jp>   2003/08/10 日付情報追加
# Mitsuda Chihiro   <totera_at_ep.sci.hokudai.ac.jp>   2003/08/11 サムネイルにコメント追加. カレントディレクトリ読み込み
# Mitsuda Chihiro   <totera_at_ep.sci.hokudai.ac.jp>   2003/08/12 タイトル, 情報ファイルを自動生成, 画像サイズ変換組み込み
# Mitsuda Chihiro   <totera_at_ep.sci.hokudai.ac.jp>   2003/08/13 画像サイズ変換の場合わけ作成
# Mitsuda Chihiro   <totera_at_ep.sci.hokudai.ac.jp>   2003/08/14 画像の順番の不具合を修正
# KOMATSU Kengo     <kk-pub_at_ep.sci.hokudai.ac.jp>   2003/10/27 ファイル指定を相対パス化(cygwin でも使用可)
# Mitsuda Chihiro   <totera_at_ep.sci.hokudai.ac.jp>   2004/10/19 html 内に dcphoto サイトへのリンクを追加.
# Mitsuda Chihiro   <totera_at_ep.sci.hokudai.ac.jp>   2005/04/01 jhead のパスを指定出来るように変更
# Mitsuda Chihiro   <chihiro_at_ep.sci.hokudai.ac.jp>  2005/09/15 文字コードを EUC-jp 指定. 
# KOMATSU Kengo     <kk-pub_at_ep.sci.hokudai.ac.jp>   2006/08/01 qkc のパスを指定できるように変更
# Mitsuda Chihiro   <chihiro_at_ep.sci.hokudai.ac.jp>  2007/07/19 スタイルファイルによる色設定の導入
# Mitsuda Chihiro   <chihiro_at_ep.sci.hokudai.ac.jp>  2007/07/24 1ページあたりの写真枚数を設定可能に.
# Mitsuda Chihiro   <chihiro_at_ep.sci.hokudai.ac.jp>  2007/07/24 jhead コマンドが使用可能かどうか確認
# Mitsuda Chihiro   <chihiro_at_ep.sci.hokudai.ac.jp>  2007/08/29 リンクの貼り方を修正. 
# Murakami Shin-ya  <murashin_at_gfd-dennou.org>       2015/01/13 使用ライブラリを更新、qkcを使わないように変更、使用する文字コードをUTF-8に変更
# Murakami Shin-ya  <murashin_at_gfd-dennou.org>       2015/01/20 使用する文字コードをUTF-8に変更(修正もれ), メンテナとWeb変更
#
# ・ 概要
#
#    写真等の連番となっている画像ファイルを サムネイルを含む
#    HTML を作成するスクリプト
#
# ・ 使用法 
#
#    src ディレクトリを作成し, その中に写真ファイルを格納する.
#    その後 dcphoto.pl を実行すればよい.
#    コメントをつけたい場合は, 実行後に comment.txt に以下の書式で書き込む.
#
#    ---------------------------------------------------
#        001:今日の飲み会
#        002:かんぱ〜い
#        003:みんなのむのむ.
#             :
#    ---------------------------------------------------
#
########################################################
##  ユーザ設定
########################################################

# 写真集トップへのリンク(空白にするとリンクは表示されない)
$photoindexlink = "../../../photo/";
#$photoindexlink = "" ;

# 撮影者の名前 (空白にすると表示されない) ; now cording ...
# $photoby = "hoge hero";
# $photoby = "";

# jhead コマンド
#$jhead = "/home/username/bin/jhead";
$jhead = "jhead";

# qkc コマンド
#$qkc = "qkc" ;
# cygwin 上で実行する場合には -b オプションをつけるとよい
# $qkc = "/cygdrive/c/applications/qkc311/QKCW.EXE -b";

# サムネイル画像の横並び数
$yoko="4";


# 画像サイズ
#$size_small= "200x150"; # サムネイルページ用
#$size_big= "720x540";   # 拡大ページ用

$size_small= "188x125"; # サムネイルページ用
$size_big= "752x500";   # 拡大ページ用
#$size_big= "" ;          # 空白にすると画像サイズを変換しない. 

# html pager の作成 1: YES 2: NO -> 引数処理 (h)
# $pager= "1";

# インデックスファイル名
$indexname = "index";

# CSSファイル
$cssfile = "dcphoto.css";

# コメントファイル
$infofile = "./comment.txt";

# タイトルファイル
$titlefile = "./title.txt";

########################################################
##  開発者設定
########################################################

# DCPHOTO website
$url = "http://www.gfd-dennou.org/library/cc-env/dcphoto/";
$MAINTAINER = "Shin-ya Murakami";
$VERSION = "2.5";
$UPDATE = "2015/01/20";
    
########################################################


# 日本語処理のため, jcode を組み込む.
use Jcode; 

# オプション処理のため, getopts を組み込む.
use Getopt::Std;

# c, n のみ引数をとる.
getopts('c:n:aArRhHpPwW');

#rR オプションの場合は REAL ME を表示
if ($opt_r || $opt_R || $opt_h || $opt_H ) {
	&Help;
	exit 1;
}

# p オプションでは pager 用 html ファイルを作成しない
if ($opt_p || $opt_P ) {
	$pager= "2";
} else {
	$pager= "1";
}

# w オプションでは 画像サイズをワイド対応にする. 
if ($opt_w || $opt_W ) {
	$size_small= "188x125"; # サムネイルページ用
	$size_big= "752x500";   # 拡大ページ用
}
	
# n オプションの場合は 1 枚あたりの写真集を設定
if ($opt_n) {
	$picnum = $opt_n ;
} else {
	$picnum = $yoko * 6
}

# c オプションの場合は $COLOR を変更
if ($opt_c) {
	if ( $opt_c eq orange | $opt_c eq blue | $opt_c eq green ) {
		$color = $opt_c;
	} else {
	print "dcphoto warning:  color option list: orange blue green \n";
		$color = "blue" ;
        }
}

#
# 色設定
#

&MakeColorSet;

#
# タイトル作成
#

&MakeTitle();

#
# src ディレクトリ内から 画像ファイル名一覧を取り出し,
# @srcfiles へ代入する
#
opendir(SRCDIR, "./src")
    || die "src ディレクトリが存在しません. \n";
#@srcfiles = grep(!/^\.\.?$/, (readdir(SRCDIR));
@srcfiles = grep(!/^\.\.?$/, sort(readdir(SRCDIR)));
closedir(SRCDIR);
# src ディレクトリ内に画像があるかチェック
unless ($srcfiles[0]) {
    die "src ディレクトリ内にファイルが存在しません. \n";
}

#
# 画像ファイル数を $file_num へ代入.
# 
$file_num = @srcfiles ;

# 
# infofile が存在しない場合, ひながたを作成する
#
unless (-f "$infofile") {
     open(INFOFILE, "> $infofile") || die "$infofile に書き込むことができませんでした. \n";
     $n=001 ;
     while ($n <= $file_num ) {
     printf INFOFILE "%03d:\n" , $n ;
     $n++
     }
     close(INFOFILE);
}


#
# 情報ファイルから, ナンバーとサブジェクトを取り出す.
#
open(INFOFILE, "$infofile") || die "$infofile が見つかりませんでした. \n";
while (<INFOFILE>) {
    chomp;
    push(@info, $_);
}
close(INFOFILE);


#
# ナンバーとサブジェクトを分離しておく.
# (配列の要素の位置は同じであるため, 両者を整合することは可能)
#
foreach $key (@info){
    @info_parts = split(/:/, $key, 2);
    $info_hash{"$info_parts[0]"} = "$info_parts[1]";
    push(@number, $info_parts[0]);
    push(@subject, $info_parts[1]);
}



#
# pub ディレクトリ内から 画像ファイルのタイプを取り出す
#
#opendir(PUBDIR, "./pub")
#    || die "pub ディレクトリが存在しません. \n";
#@picfiles = grep(!/^\.\.?$/, readdir(PUBDIR));
#closedir(PUBDIR);
# pub ディレクトリ内に画像があるかチェック
#unless ($picfiles[0]) {
#    die "pub ディレクトリ内にファイルが存在しません. \n";
#}
## 一つ目のファイルだけを見る. (面倒いから)
#$samplepic = $picfiles[0];
#@picname_parts = split(/\./, $samplepic);
#$imgtype = $picname_parts[$#picname_parts];
$imgtype = jpg ;

#
# スタイルファイル作成
#

&MakeCSS();

#
# サムネイル作成
#

&MakeThumnail();

#
# 画像のサイズ変更
#

&MakeMinipic();

#
# 各 HTML の作成
#
if ( $pager == 1) {
	
    &MakeHtml();
}
##############################################################
##  以下サブルーチン
##############################################################

#
# タイトル作成 & 呼出サブルーチン
# 
sub MakeTitle {
    #
    # タイトルファイルがない場合, 標準入力より入力する.
    #
   unless  (-f "$titlefile") {
     print "タイトルを記入して下さい. \n title> ";
     $input = <> ;
     chomp($input) ;
     open(TITLE, "> $titlefile") || die "titlefile に書き込むことができませんでした. \n";
      print $input ;
     print TITLE "$input" ;
     close(TITLE);
}

    #
    # タイトルファイルからタイトルを取り出す.
    #
open(TITLEFILE, "$titlefile") || die "$titlefile が見つかりませんでした. \n";
while (<TITLEFILE>) {
    chomp;
    push(@title_lists, $_);
}
$title = $title_lists[0];
close(TITLEFILE);
d
   
}


#
# 画像の大きさを変更し, PUBDIR へ格納する.
# サムネイル用  100x75  : m001.jpg, m002.jpg, ...
# html 用       640x480 : b001.jpg, b002.jpg, ...
#
sub MakeMinipic {
    #
    # ディレクトリの削除と作成
    #
    mkdir("pub", 0755) unless -d "./pub";

     # ディレクトリの移動
     chdir("./pub");

     # 要素番号として $element_num を用意
     $element_num = 0;

     # 画像の大きさ変更
     while ( $element_num < $file_num ) {
        $picnumber = $number[$element_num];
        $picname = $srcfiles[$element_num];
	unless ( -f "./b${picnumber}.jpg") {
		if ( $size_big and $pager == 1 ) {
			system("convert -geometry $size_big ../src/${picname} b${picnumber}.jpg");
			print "b${picnumber}.jpg convert ... done \n";
		} else {
			system("ln -s ../src/${picname} b${picnumber}.jpg");
		}
	}
	unless ( -f "./m${picnumber}.jpg") {
		system("convert -geometry $size_small ../src/${picname} m${picnumber}.jpg");
        print "m${picnumber}.jpg convert ... done \n";		    
					 }
	$element_num++ ;
	}

     # ディレクトリの移動
     chdir("..");     
}

#
# サムネイル作成サブルーチン
#

sub MakeThumnail {

 	if ($opt_a || $opt_A) {
		$picnum = $file_num; 
		$loop = 1 ;
	} else {
		$loop = int(($file_num-1 )/ $picnum)  + 1 ;
	}


  	# 要素番号として $element_num を用意
	$element_num = 0;
	
	for ( $n = 1; $n <= $loop; $n++ ) {
 		if ( $n == 1 ) {
			$outputfile = "${indexname}.html" ;
		} else {
			$outputfile = "${indexname}${n}.html" ;
		}
		
		open( INDEXFILE, "> $outputfile" )
		    || die "$outputfile に書き込むことが出来ませんでした. /n";
		#
		# ヘッダの書き出し
		#
		print INDEXFILE <<EOF;
<html lang="ja">
<head>
  <meta HTTP-EQUIV="Content-Type" content="text/html; charset=UTF-8">
  <title>$title</title>
  <META http-equiv="Content-Style-Type" content="text/css">
  <LINK rel="stylesheet" href="$cssfile" type="text/css">
  </head>
 <body>
  <center>
<table BORDER="0" cellspacing="10" width="80%" align="center">
EOF

		if ($photoindexlink) {
			print INDEXFILE <<EOF;
<tr><td colspan="$yoko" align="right">
<a href="$photoindexlink"> Photo Index >> </a>
</td></tr>
EOF
		}
		
		print INDEXFILE <<EOF;
<tr><td colspan="$yoko" bgcolor="$titlebgcolor" align="center">
&nbsp; 
<br>
<B>  $title </B>
<br>&nbsp;
</td></tr>
EOF

               #
               # pager 作成
               #
              if ($loop > 1) {
                    print INDEXFILE <<EOF;
<tr><td colspan="$yoko" align="center">
EOF
                    for ($m = 1; $m <= $loop; $m++) {
			    if ( $m == $n ) {
				  print INDEXFILE <<EOF;
| page $m |
EOF
                            } elsif ( $m == 1 ) {
				  print INDEXFILE <<EOF;    
| <a href="./$indexname.html">page $m</a> |
EOF
                            } else {
				    print INDEXFILE <<EOF;    	
| <a href="./$indexname$m.html">page $m</a> |
EOF
			} 
		    }
                    print INDEXFILE <<EOF;
</td></tr>
EOF
}

#
# サムネイル部分作成
#
		for ($element_num = $picnum*($n-1);
		     $element_num <= $picnum * $n - 1 and $element_num < $file_num;
		     $element_num++ )  { 
			$htmlnumber = $number[$element_num];	    
			$amari = ( $htmlnumber - $picnum*($n-1) ) % $yoko;
			$width = int(80.0/$yoko) ;
#
# テーブルの配置によって <tr> のつけたしをおこなう.
# 左端 : ($amari == 1)
# 右端 : ($amari == 0)
			if ($amari == 1) {
				print INDEXFILE <<EOF;    
      <tr align="center" VALIGN="bottom">
EOF
	}
			print INDEXFILE <<EOF;    
       <td align="center" width="$width%" valign="top">
EOF
                        # $pager = 1 ; html へリンク
                        # $pager = 2 ; jpg へリンク
			if ( $pager == 1) {
				print INDEXFILE <<EOF;    
       <A HREF="./html/${htmlnumber}.html">
EOF
			} else {
				print INDEXFILE <<EOF;    
       <A HREF="./pub/b${htmlnumber}.${imgtype}">
EOF
			}
			print INDEXFILE <<EOF;    
         <img src="./pub/m${htmlnumber}.${imgtype}" border="0">
        </A>
        <br><br>
        <small>
         $info_hash{$htmlnumber}
        </small>
       </td>
EOF
			if ($amari == 0) {
				print INDEXFILE <<EOF;    
   </tr>
EOF
			}
		}
		
		#
		# テーブルで欠けている部分を追加
		#
		$add = ( $yoko - $amari );

		    if ( $add > 0 ) {
			    while ( $add  > 0 ) {
				    print INDEXFILE <<EOF;
       <td>
        &nbsp;
       </td>
EOF
				    $add-- ;
		    }
     </tr>
}
               #
               # pager 作成
               #
              if ($loop > 1) {
                    print INDEXFILE <<EOF;
<tr><td colspan="$yoko" align="center">
EOF
                    for ($m = 1; $m <= $loop; $m++) {
			    if ( $m == $n ) {
				  print INDEXFILE <<EOF;
| page $m |
EOF
                            } elsif ( $m == 1 ) {
				    print INDEXFILE <<EOF;    
| <a href="./$indexname.html">page $m</a> |
EOF
                            } else {
				    print INDEXFILE <<EOF;    	
| <a href="./$indexname$m.html">page $m</a> |
EOF
			} 
		    }
                    print INDEXFILE <<EOF;
</td></tr>
EOF
}

		
#
# フッター
#
		print INDEXFILE <<EOF;
 </table>
 <font size="-1">
This page is generated by <a href="$url">dcphoto Version $VERSION</a>
</font>   
 </center>
 </body>
</html>
EOF
		close(INDEXFILE);
	}
    # 文字コード変換
    # system("$qkc -u -e ./*.html");
 }

#
# 各 HTML ファイル作成サブルーチン
#
sub MakeHtml {
    #
    # ディレクトリの削除と作成
    #
    system("/bin/rm -rf ./html/") if -d "./html";
    mkdir("html", 0755);
    
    # ディレクトリの移動
    chdir("./html");
    
    # 要素番号として $element_num を用意
    $element_num = 0;

    # jhead コマンドが利用可能かチェック
    $jhead_exist_tmpfile = "/tmp/dcphoto_jhead_exist_check-$$";
    $jhead_exist_stat = system("which $jhead > $jhead_exist_tmpfile 2>&1");
    unlink("$jhead_exist_tmpfile");
    if ( !(-x $jhead) && $jhead_exist_stat != 0 ) {
	    die "$jhead コマンドは利用できません.\n";
    }
	
    while ($number[$element_num]) {
#	$allpage_num = $#number + 1;
	$previous_num = $element_num - 1;
	$next_num = $element_num + 1;
	$htmlnumber = $number[$element_num];
	$htmlfile = "${htmlnumber}.html";
	open(EXIF, "$jhead ../pub/b${htmlnumber}.${imgtype} 2>&1 |")
	    || die "./pub/b${htmlnumber}.${imgtype} is not found. \n";
	while ($status = <EXIF>){
		if ($status =~ /^Date/){
			@date = split(/:/, $status, 2);
		}
	}
#        print STDOUT "$status \n";	
	close EXIF;
#	print STDOUT "open 後\n";
	#exit 1;
	#
	# ヘッダの作成
	#
	open(HTMLFILE, "> $htmlfile")
	    || die "$htmlfile に書き込むことが出来ませんでした. /n";
	print HTMLFILE <<EOF;
<html lang="ja">
<head>
  <meta HTTP-EQUIV="Content-Type" content="text/html; charset=UTF-8">
  <title>$title</title>
  <META http-equiv="Content-Style-Type" content="text/css">
  <LINK rel="stylesheet" href="../$cssfile" type="text/css">
</head>
<body>
<center>
<table><tr><td align="center">
EOF
	#
	# 画像貼りつけ部分, フッタの作成
	#
	print HTMLFILE <<EOF;
<img src="../pub/b${htmlnumber}.${imgtype}">
<br><br>
$info_hash{$htmlnumber}<br>[$date[1]]
<br>&nbsp;
</td></tr></table>
EOF
	#
	# 前後のページへのリンク, 現ページ/ページ総数, 小題の書き出し
	#

	 if (  ${htmlnumber} <=  $picnum   ) {  
		$indexlink ="${indexname}.html";
	} else {
		$n = int( ( ${htmlnumber}-1 ) / $picnum ) + 1 ;
		$indexlink ="${indexname}${n}.html" ;
	}
		
	print HTMLFILE <<EOF;

<table width="80%">
  <tr>
    <td bgcolor="$titlebgcolor" align="center">
EOF
	# 最初のページと最後ページの場合はリンクを貼れないので
	# 条件分岐する.

	# 最初のページは [前頁] にリンクを貼らない
	if ($previous_num < 0) {
	    print HTMLFILE <<EOF;
      [ PRE ] &nbsp;&nbsp;
      [ <A HREF="../$indexlink">index</A> ] &nbsp;&nbsp;
      [ <A HREF="./$number["$next_num"].html"> NEXT </A>]
EOF
	}
	# 最後のページは [後頁] にリンクを貼らない
	elsif ($next_num > $#number) {
	    print HTMLFILE <<EOF;
      [ <A HREF="./$number["$previous_num"].html">PRE</A> ] &nbsp;&nbsp;
      [ <A HREF="../$indexlink">index</A> ] &nbsp;&nbsp;
      [ NEXT ]
EOF
	}
	# その他の頁は両方にリンク
	else {
	    print HTMLFILE <<EOF;
      [ <A HREF="./$number["$previous_num"].html">PRE</A> ] &nbsp;&nbsp;
      [ <A HREF="../$indexlink">index</A> ] &nbsp;&nbsp;
      [ <A HREF="./$number["$next_num"].html">NEXT</A> ]
EOF
	}
	print HTMLFILE <<EOF;
    </td>
  </tr>
</table>

EOF
	#
	# フッタの作成
	#
	print HTMLFILE <<EOF;
</td></tr></table>
<font size="-1">
This page is generated by <a href="$url">dcphoto Version $VERSION</a>
</font>
</center>
</body>
</html>
EOF
	close(HTMLFILE);
	$element_num++;
    }
         # 文字コードの修正
    #system("$qkc -u -e ./???.html");
         # ディレクトリの移動
     chdir("..");     

}

#
# スタイルファイル作成サブルーチン
#
sub MakeCSS {
    #
    # ディレクトリの削除と作成    #
    system("/bin/rm -rf $cssfile") if -f "$cssfile" ;
	open(CSSFILE, "> $cssfile")
	    || die "$cssfile に書き込むことが出来ませんでした. /n";

     print CSSFILE <<EOF;
BODY {
      font-style:osaka;
      color:$titlefontcolor;
     }
a:link { color:$linkfontcolor }
a:visited { color:$linkfontcolor }
A{text-decoration:none; font-weight:bold; }
A:hover {color:$linkhovercolor}
EOF
	close(CSSFILE);

    }

#
# スタイルファイル作成サブルーチン
#
sub MakeColorSet {
    $titlebgcolor="#B5D3F0";
    $titlefontcolor="#8B4513";
    $linkfontcolor="#8B4513";
   $linkhovercolor="red";
if ( $color eq orange ) {		
    $titlebgcolor = "orange"; 
    $titlefontcolor="#999900";
    $linkfontcolor="#269900";
    $linkhovercolor="#99FF33";
  } elsif ( $color eq blue ) {
    $titlebgcolor="#B5D3F0";
    $titlefontcolor="#8B4513";
    $linkfontcolor="#8B4513";
    $linkhovercolor="red";
  } elsif ( $color eq green ) {
    $titlebgcolor="#99ff99";
    $titlefontcolor="#003300";
    $linkfontcolor="#003300";
    $linkhovercolor="orange";
  }

}

sub Help() {
    print STDOUT <<EOF;
  dcphoto.pl:
    USAGE:
      dcphoto.pl [-arRhH] [-n number] [-c color]

    OPTION:
      -r, -R, -h, -H : display this help and exit
      -c color       : set display color (orange, blue, green only)
      -p, -P         : make html pager
      -n number      : set figure file number on thumbnail pages
      -a             : no split thumbnail page


EOF
    &PrintVersion;
}

sub PrintVersion() {
    print STDOUT <<EOF;
  dcphoto.pl Version $VERSION, Last Update: $UPDATE.

EOF
    print STDOUT "  $MAINTAINER \n";
    print STDOUT "    All Right Reserved.\n\n";
}