#!/usr/bin/perl
BEGIN {
  if (exists $ENV{MOD_PERL}){
    if (Apache->request->filename() =~ m!(.*[/\\])!){
      require Cwd;
      Cwd::chdir(substr($1,0,-1));
    }
  }
}

$BASEDIR = ".";

$INDEX_X = 7;
$INDEX_Y = 7;
$INDEX_N = ($INDEX_X * $INDEX_Y) - (($INDEX_X - 2) * ($INDEX_Y -2 ));
$TBL_SX = $INDEX_X -2;
$TBL_SY = $INDEX_Y -2;
$SUM_X = 48;
$SUM_Y = 48;
$CELLSPC = 8;
$TBL_X = ($SUM_X * $INDEX_X)+ ($INDEX_X-1) * $CELLSPC;
$PRE_X = ($SUM_X * $TBL_SX) + ($TBL_SX-1) * $CELLSPC;
$PRE_Y = ($SUM_Y * $TBL_SY) + ($TBL_SY-1) * $CELLSPC;

if( -e "album.conf") {
 require "./album.conf";
}

HttpStart();
GetQueryString();
HtmlOpen();
SWITCH: for ($_) {
  /INDEX/       && do { Index(); last;  };
  /VIEW/        && do { View(); last; };
  //            && do { last; };
}
HtmlClose();

exit;
##############################################


sub GetQueryString {
 if( $ENV{'QUERY_STRING'} eq "" ) { $_="INDEX"; return; }
 @p1 = split(/&/, $ENV{'QUERY_STRING'});

 foreach $pair (@p1)
 {
   ($name, $val) = split(/=/,$pair);
   $val =~ tr$\\!\$|<>/"';:$$d;
   $QS{$name} = $val;
#   print "$name = $val<br>";
 }

 if( defined $QS{'index'} ) {
   $QS{'index'} = abs($QS{'index'});
   $_ = "INDEX";
# } elsif( $name eq "edit" ) {
#   $_ = "EDIT";
 }
# } elsif( $name eq "view" ) {
 if( $name eq "view" ) {
   $_ = "VIEW";
# } elsif( $name eq "memo" ) {
#   $_ = "MEMO";
 } elsif( $name eq "post" ) {
   $_ = "POST";
 } else {
   $QS{'index'} = 0;
   $_ = "INDEX";
 } 

}

sub Index {

 opendir(DIR, "$BASEDIR/photo/") or die;
 @files = sort {$b cmp $a} grep( !/^_|^\.\.?$/, readdir( DIR ) );
 closedir(DIR);

 $allfiles = $#files;
 if( ($allfiles-1) <  $QS{'index'} ) { return };

#BOX Init.
 for($y=0;$y<$INDEX_Y;$y++) {
  for($x=0;$x<$INDEX_X;$x++) {
   $box[$x][$y] = "1";
  }
 }
 $box[1][1] = -1;

#
#Make Box
#
$cnt = 0;

#BOX UP
for($lc=0;$lc<$INDEX_X;$lc++) {
 $box[$lc][0] = $files[$QS{'index'}+$cnt++];
}

#BOX RIGHT
for($lc=1;$lc<$INDEX_Y;$lc++) {
 $box[$INDEX_X-1][$lc] = $files[$QS{'index'}+$cnt++];
}

#BOX UNDER
for($lc=$INDEX_X-2;$lc>=0;$lc--) {
 $box[$lc][$INDEX_Y-1] = $files[$QS{'index'}+$cnt++];
}

#BOX LEFT
for($lc=$INDEX_Y-2;$lc>0;$lc--) {
 $box[0][$lc] = $files[$QS{'index'}+$cnt++];
}


 print "<table border=0 hspace=0 vspace=0 cellpadding=0 cellspacing=$CELLSPC>\n";

# if($QS{'index'} eq "" ) {
#  print "<tr><td colspan=$INDEX_X width=$TBL_X>";
#  open( MEMO, "memo");
#  print while <MEMO>;
#  close(MEMO);
#  print "<p></td></tr>\n";
# }

 for($cnt=0,$y=0;$y<$INDEX_Y;$y++) {
  print "<tr align=center valign=center height=$SUM_Y>";

  for($x=0;$x<$INDEX_X;$x++,$cnt++) {
   if($box[$x][$y] eq "1" ) { next; }
   if($box[$x][$y] eq "" ) { print "<td width=$SUM_X><br></td>"; next;}
   if($box[$x][$y] == -1 ) {
    print "<td align=center valign=center colspan=$TBL_SX rowspan=$TBL_SY>";
    if( $QS{'preview'} ne "" ) { 
      FileCount($QS{'preview'});
#      print "<a href=\"./album.cgi?view=$QS{'preview'}\"target=\"new\"><img src=\"$BASEDIR/photo/$QS{'preview'}\" border=0 width=$PRE_X height=$PRE_Y></a>";
      print "<a href=\"JavaScript:OpenWin(\'$QS{'preview'}\')\"><img src=\"$BASEDIR/photo/$QS{'preview'}\" border=0 width=$PRE_X height=$PRE_Y></a>";
     }
     print "</td>";
   } else {

    print "<td align=center valign=center width=$SUM_X><a href=\"./album.cgi?index=$QS{'index'}&preview=$box[$x][$y]\"><img src=\"$BASEDIR/sum/$box[$x][$y]\" border=0></a></td>";
   }
  }
  print "</tr>\n";

 }
 print "</table><p>\n";


 print "<table border=0 hspace=0 vspace=0 cellpadding=0 cellspacing=0 width=160><tr><td align=center>\n";
 $a = int((($allfiles-1)/$INDEX_N)+1);
 $b = int(sqrt($a*2)+0.5);
 for($cnt=0;$cnt<$a && $b > 0;$b--) {
  for($c=0;$c<$b && $cnt<$a ;$c++,$cnt++) {
   printf("<a href=\"./album.cgi?index=%d\"><font size=0>%02d </font></a>",$cnt*$INDEX_N, $cnt+1);
  }
  print "<br>";
 }
 print "</td></tr></table><p>\n";


 print "<p><table border=0 width=100%><tr><td align=center><b><font color=#ffffff>";

# Text no display 2004/11/18
# if( -e "memo" ) {
#  print "<a href=\"JavaScript:OpenMemo()\">Text</a><br>";
# }
 print "<a href=\"../../photo.html\">Return</a></font></b></td></tr></table>\n";

}



sub View {
 local $filename = $QS{'view'};

 FileCount($filename);
 if( $filename =~ m/\./ ) {
  $filename = $`;
 }

 print <<END;
<title>= $cnt = $QS{'view'}</title>
<table border=0 hspace=0 vspace=0 cellpadding=0 cellspacing=0 width=100%>
<tr><td align=center><img src=\"$BASEDIR/photo/$QS{'view'}\"></td></tr>
</table><br>
END

# memo no display 2004/11/18
# open(HTML, "$BASEDIR/text/$filename.html");
# print while <HTML>;
# close(HTML);

 print <<END;
<table border=0 hspace=0 vspace=0 cellpadding=0 cellspacing=0 width=100%><tr><td>
</td></tr></table>
END
 
}

sub FileCount {
 local $filename = $_[0],$cnt;
 if( $filename =~ m/\./ ) {
  $filename = $`;
 }
 open(CNT, "+< $BASEDIR/cnt/$filename");
 $cnt = <CNT>;

 flock(CNT, 2);
 $cnt++;
 seek(CNT, 0, 0);

 print CNT "$cnt\n";
 truncate(CNT, tell(CNT));
 close(CNT);
}


sub HttpStart {
 print "Content-type: text/html; charset=Shift_JIS\n\n";
 print "\<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2 Final//EN\"\>\n\n";

}

sub HtmlOpen {

 print <<EOP;
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<meta http-equiv="imagetoolbar" content="no">
<script language="JavaScript">
<!--
function hideScrollBar()
{
 document.body.style.overflow = "hidden";
}
function OpenWin(file){
    window.open(
    "./album.cgi?view="+file,
    "",
    "width=680,height=608,scrollbars=yes,resizable=yes");
}
function OpenMemo(){
 memowin=window.open('./memo.cgi','MemoWin','scrollbars=yes,resizable=yes,width=400,height=360')
 memowin.opener=self
 if(navigator.appVersion.charAt(0)>=3){memowin.focus()}
}
-->
</script>
</head>
EOP

 open(fn, "$BASEDIR/title");
 print "<body bgcolor=white vlink=blue text=black LEFTMARGIN=0 TOPMARGIN=0 BOTTOMMARGIN=0 RIGHTMARGIN=0>";
 print "<table width=100% height=100%><tr align=center><td><table width=640 border=0>";
 print "<tr><td><br><img src=\"../../logo.gif\"></td></tr>\n";
 print "<tr bgcolor=\"#a0a0a0\"><td align=right><b><font color=#ffffff>";
 print <fn>;
 print "</font></b></td></tr></table>\n";
 print "<table width=640 border=0><tr><td align=center valign=center>\n";
 close(fn);

}
sub HtmlClose {

 print "</td></tr></table></td></tr></table></body></html>\n\n";
}