#!/usr/local/bin/perl

# ランダムに画像を変える（３枚）

# id=gazo2.cgi

# update  97.8.5 

# フォームからの？以降のデータを受ける
# &ReadParse命令で、$in{ }の変数にフォーム入力データが格納される		
require 'cgi-lib.pl';
require 'jcode.pl';
&ReadParse;

$no = $in{'no'};
# 乱数発生
@x=(1,2,3);
srand;
$n=$x[rand(@x)];
if ($no == 1)  { $n++; } 
if ($no == 3)  { $n--; } 
#
if     ($n == 1) { $img = "/dialup/chichibu/gazo/gal1.jpg"; }
elsif  ($n == 2) { $img = "/dialup/chichibu/gazo/gal2.jpg"; }
else             { $img = "/dialup/chichibu/gazo/gal3.jpg"; }

# 画像ファイルを開く
open (GIF, $img);
flock(GIF,2);
# 画像ファイルの情報（ファイルサイズ）を取り出す
@gifdata = stat($img);
$byte = $gifdata[7];

# ヘッダを出力
print "Content-type: image/jpeg\n";
print "Content-length: $byte\n";
# ヘッダの終わりを出力
print "\n";

# 画像ファイルの中味を表示
print <GIF>;
# 画像ファイルを閉じる
flock(GIF,8);
close(GIF);