#! c:/perl/bin/perl
#
# phdisp.cgi
#
# 1.001 : 6/11/06 : CGI.pmを削除
# 1.0 : 6/10/06 : Created
#
# $Id: phdisp.cgi,v 1.3 2006/06/11 00:03:09 Hideki Kanayama Exp $
# Copyright(c) 2006 Hideki Kanayama, all rights reserved
#
# SSIで呼び出す。
#
# で起動できます。
# $imagedirにある写真をランダムに表示
#
#
use strict;
use CGI::Carp qw(fatalsToBrowser);
# image directory
# CGIからみた相対パス、または絶対パス
my $imagedir_from_cgi = "../image";
# SSIを入れるshtmlファイルからみた相対パス、または絶対パス
my $imagedir_from_shtml = "image";
my $version = "1.001";
my $lastupdatedyear = "2006";
my $script = "phdisp.cgi";
my $lang = 0;
my $charset = "Shift_JIS";
if (! -d "$imagedir_from_cgi") {
&error("ディレクトリ$imagedir_from_cgiが存在しません。");
}
&display;
exit;
sub display {
my $imagefile;
my @newlist;
opendir(IMGDIR,"$imagedir_from_cgi") or &error("ディレクトリ$imagedir_from_cgiが開けません");
my @filelist = grep !/^\./, readdir IMGDIR;
closedir(IMGDIR);
@newlist = ( grep /\.jpe?g$/i, @filelist);
@newlist = (@newlist, grep /\.gif$/i, @filelist);
@newlist = (@newlist, grep /\.png$/i, @filelist);
@newlist = (@newlist, grep /\.bmp$/i, @filelist);
@newlist = (@newlist, grep /\.tiff?$/i, @filelist);
@newlist = (@newlist, grep /\.ief$/i, @filelist);
@newlist = (@newlist, grep /\.cgm$/i, @filelist);
@newlist = (@newlist, grep /\.pcx$/i, @filelist);
&error("画像ファイルが$imagedir_from_shtmlにありません。") if ($#newlist == -1);
$imagefile = $newlist[rand($#newlist+1)];
&error("画像ファイル$imagefileが$imagedir_from_shtmlにありません。") if (! -e "$imagedir_from_cgi/$imagefile");
print "Content-Type: text/html\n\n";
print "![](\"$imagedir_from_shtml/$imagefile\")
\n";
}
sub error {
my ($msg) = shift;
&htmlhead($msg);
print "
$msg\n";
print "
";
©right;
print "
";
&htmltail;
exit;
}
sub htmlhead {
my $title = shift;
my $bgimage = "bgcolor=\"white\"";
print "Content-Type: text/html\n\n";
print "\n";
print "\n";
print "\n";
print "$title\n";
print "\n";
print "\n";
}
sub copyright {
my $mysite = ('http://www.hidekik.com/','http://www.hidekik.com/en/')[$lang];
print "phdisp.cgi Ver. $version
\n";
print "Copyright(C) $lastupdatedyear, hidekik.com\n";
}
sub htmltail {
print "\n";
exit;
}