#!/usr/bin/perl --
use strict;
use warnings;
use lib '/home/dsktnk/local/lib/perl5';
use Path::Class;
use CGI;
use Image::Magick;

my $obj = new CGI;
my $path = $obj->param('d');

#sort
my $sort = $obj->param('s');
$sort ||= "L";
my $view = $obj->param('i');

my $action = $obj->param('action');


#表示させる対象ファイル
my $subject = '.html$|.txt$|.md$|.jpg$|.JPG$|.jpeg$|.gif$|.png$';
my $text = '.html$|.txt$|.md$';


if($path=~/\.\./o){$path='/home/dsktnk/www/memo/'}#変なディレクトリを掘られないため
$path = "/home/dsktnk/www/memo/$path";
#$path ||= '/home/dsktnk/www/memo/';
$path //= '/home/dsktnk/www/memo/';

my $baseurl="http://dsktnk.sakura.ne.jp/memo/";
my $cgi ="http://dsktnk.sakura.ne.jp/memo/index.cgi";

###ディレクトリのリストを作成
my @dir = dir($path)->children;
my (@dirs,@files);
for my $d (@dir){
  if ($d->is_dir){
    push(@dirs, $d);
  }else{
    push(@files, $d)
  }
}


print qq|Content-type: text/html\n\n|;
print &header_html;
print qq|<h1><a href="$cgi">memo</a>|;

# パンくずリスト
if ($path){
  my $relative;
  my $path_a=$path;
  $path_a=~ s/\/home\/dsktnk\/www\/memo\///g;
  my @line = split ( /\// , $path_a );
  for my $i (@line){
    $relative .= "$i/";
    print qq|<b class="">/<a href="$baseurl\index.cgi?d=$relative">$i</a></b>|;
  }
  print qq|</h1>|;
}
#-----------------------------------------------------------------------

###ディレクトリを表示
for my $d(@dirs){
  my $basename = $d->basename;
  my $fileurl = $d->relative;
  print qq|<b class="dir"><a href="$baseurl\index.cgi?d=$fileurl/">$basename</a></b> |;
}

# サブディレクトリがある場合
if (defined $dirs[0] eq 1){
print qq|<hr>|;
}
if (defined $files[1] eq 1){
  my $aaa = dir($path);
  my $bbb = $aaa->relative;

  #/memo/memoを参照しようとするための対策
  if($path =~ /\/home\/dsktnk\/www\/memo\/$/i){$bbb=''}

  print qq|<div><a href="$baseurl\index.cgi?d=$bbb&s=N">Name</a>｜<a href="$baseurl\index.cgi?d=$bbb&s=L">Last modified</a>｜<a href="$baseurl\index.cgi?d=$bbb&s=S">Size</a><div>|;
  print qq|<hr>|;
}
if (($path =~ /\/img/i)&&(defined $files[0] eq 1)){
  my $aaa = dir($path);
  my $bbb = $aaa->relative;
  print qq|<a href="$baseurl\index.cgi?d=$bbb">list</a>｜|;
  print qq|<a href="$baseurl\index.cgi?d=$bbb&i=view">thumbnail</a>｜|;
  print qq|<a href="$baseurl\index.cgi?d=$bbb&i=gene">gene</a>|;
  print qq|<hr>|;
}
#-----------------------------------------------------------------------

#クエリに応じてファイルリストをソートする
#デフォルトはLast modified
#name
if($sort eq "N"){
  @files = sort {$a->relative cmp $b->relative} @files;
}
#Last modified
elsif($sort eq "L"){
  @files = sort {$b->stat->mtime <=> $a->stat->mtime} @files;
}
#size
elsif($sort eq "S"){
  @files = sort {$b->stat->size <=> $a->stat->size} @files;
}
elsif($sort eq "all"){
  my @files=&all;
  @files = sort {$b->stat->mtime <=> $a->stat->mtime} @files;

  if ((defined $files[0] eq 1)&&(! $view)){
    for my $d(@files){
      #ファイルネーム取得
      my $basename = $d->basename;
      my $fileurl = $d->relative;

  #時間
      my $mtime = localtime($d->stat->mtime);
      my ($sec, $min, $hour, $mday, $month, $year, $wday, $stime) = localtime($d->stat->mtime);
      $year += 1900;
      ++$month;
      my @wdays = ("日", "月", "火", "水", "木", "金", "土");
      my $file_size = $d->stat->size;

      if ( $d =~ /$text/ ) {
        #Markdown形式だった場合の処理
        if ( $d =~ (/.md$/) ){
          printf "%04d/%02d/%02d %02d:%02d\n", $year, $month, $mday, $hour, $min, $sec;
          print qq|<a href="$baseurl\md.cgi?url=$baseurl$fileurl">$basename</a>　$file_size(b)<br>|;
        }
        elsif($basename =~ /thumbnail_/){
          next;
        }else{
          printf "%04d/%02d/%02d %02d:%02d\n", $year, $month, $mday, $hour, $min, $sec;
          print qq|<a href="$baseurl$fileurl">$basename</a> $file_size(byte)<br>|;
        }
      }
    }
  }
}

#-----------------------------------------------------------------------
#表示部
if ((defined $files[0] eq 1)&&(! $view)&&($sort ne "all")){
  for my $d(@files){
    #ファイルネーム取得
    my $basename = $d->basename;
    my $fileurl = $d->relative;

#時間
    my $mtime = localtime($d->stat->mtime);
    my ($sec, $min, $hour, $mday, $month, $year, $wday, $stime) = localtime($d->stat->mtime);
    $year += 1900;
    ++$month;
    my @wdays = ("日", "月", "火", "水", "木", "金", "土");
    my $file_size = $d->stat->size;

    if ( $d =~ /$subject/ ) {
      #Markdown形式だった場合の処理
      if ( $d =~ (/.md$/) ){
        printf "%04d/%02d/%02d %02d:%02d\n", $year, $month, $mday, $hour, $min, $sec;
       # print qq|<a href="$baseurl\md.cgi?url=$baseurl$fileurl">$basename</a>　$file_size(b)<br>|;
       print qq|<a href="$baseurl$fileurl">$basename</a>　$file_size(b)<br>|;
      }
      elsif($basename =~ /thumbnail_/){
        next;
      }else{
        printf "%04d/%02d/%02d %02d:%02d\n", $year, $month, $mday, $hour, $min, $sec;
        print qq|<a href="$baseurl$fileurl">$basename</a> $file_size(byte)<br>|;
      }
    }
  }
}
#-----------------------------------------------------------------------
#imgに関する
if (($path)&&($view eq "view")){
  for my $d(@files){
    #ファイルネーム取得
    my $basename = $d->basename;
    my $fileurl = $d->relative;
    if ( $basename =~ /$subject/i ) {
      if ($basename =~/thumbnail/){
        my $cuturl = $fileurl;
        $cuturl=~ s/thumbnail_//g;
        print qq|<a href="$baseurl$cuturl" target="_blank"><img src="$baseurl$fileurl"></a>\n|;
      }
    }
  }
}

if (($path)&&($view eq "gene")){
  for my $d(@files){
    #ファイルネーム取得
    my $basename = $d->basename;
    my $fileurl = $d->relative;
    if ( $basename =~ /$subject/i ) {
      #print qq|<img src="$baseurl$fileurl">|;
      #print $fileurl;
      if($basename !~ /thumbnail_/){
        #リサイズ処理
        my $newwidth = 150;
        my $newheight = 150;
        my $i = Image::Magick->new;
        $i->Read("./$fileurl");
        #$i = $i->Transform(geometry=>$newwidth,height=>$newheight);
        $i->Resize(width => $newwidth,height => $newheight);
        binmode(STDOUT);
        my $jpgname = "thumbnail_$basename";
        $i->Write("$path/$jpgname");
        #print ("Content-type: image/jpeg\n\n");
        #$i->Write('jpg:-');
        #print qq|<img src="$baseurl$fileurl">|;
      }
    }
  }
  print "サムネイルを生成しました";
}

print qq|</article>\n|;
print qq|</body>\n|;
print qq|</html>|;
#-----------------------------------------------------------------------
#form
if ($action eq "edit"){
  print &form_html;
}
#Debug用パス表示
#print $path;



sub header_html{
my $printlines = <<"__EOF__";
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
	"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja">
<head>
	<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
	<meta http-equiv="Content-Style-Type" content="text/css" />
	<meta name="author" content="dsk" />
    <link rel="stylesheet" href="http://dsktnk.sakura.ne.jp/test/github-markdown-css/github-markdown.css" type="text/css">
  <link rel="stylesheet" type="text/css" href="http://fonts.googleapis.com/css?family=Jura">
</head>
<style>
        .markdown-body {
            min-width: 200px;
            max-width: 790px;
            margin: 0 auto;
            padding: 30px;
        }
    </style>
<body>
<article class="markdown-body">
__EOF__
return $printlines;
}


sub form_html{
my $printlines = <<"__EOF__";

<form action="/my-handling-form-page" method="post">
    <div>
        <label for="filename">Name:</label>
        <input type="text" id="name" />
    </div>
    <div>
        <label for="mail">E-mail:</label>
        <input type="email" id="mail" />
    </div>
    <div>
        <label for="msg">Message:</label>
        <textarea id="msg"></textarea>
    </div>

    <div class="button">
        <button type="submit">Send your message</button>
    </div>
</form>
__EOF__
return $printlines;
}

sub all{
my @files;
Path::Class::Dir->new("/home/dsktnk/www/memo")->recurse(
    callback => sub {
        my $file = shift;
        return if $file->is_dir; #ディレクトリはスキップ
        push(@files, $file);
    },
);
return @files;
}