futuremix

こうさぎ人気にともなって、背景画像を公開される方も増えてきました。こうさぎウィキの背景画像コーナーでもいくつか載っていますし、配布サイトへのリンがあります。Flash 形式の背景まであり、どれにしようか迷うところです。

そこで、背景画像をランダムに表示するようにしてみました。自作背景の他、愛しのまたーり: 背景画像や、eryngii::blog: こうさぎ背景に公開されているものが、アクセスのたびにランダムに切り替わります。

方法は、次のような Perl スクリプトを書いて、random.cgi として、CGI の実行が可能なディレクトリに保存します。つまり CGI が利用できる環境でなければなりません。

#!/usr/bin/perl

my $base = 'http://your_server.jp/images/';
my @files = ('file1.jpg', 'file2.jpg', 'file3.swf');
my $count = @files;
srand();
my $url = $base . $files[rand($count)];
print “Location: $url\n\n”;

$base は画像の配置ディレクトリです。@file にはファイル名をカンマで区切って記述します。改行コードはサーバの環境に合わせて下さい。このファイルを実行可能なパーミッション(通常は705)に設定します。ブラウザから CGI に直接アクセスしてランダムに画像が切り替われば OK です。こうさぎのコントロール・パネルにて、背景画像に CGI の URL を指定すれば OK です。

ちなみに背景画像に設定できる JPEG ファイルは、130×150ピクセルで、プログレッシブ JPEG は不可のようです。