ランダム表示のまま留守番背景を使う方法

昨夜こうさぎが落ちたとき、「留守番背景が表示されない」ということを書きました。
一晩考えて、ランダム背景にしたまま留守番背景を表示する回避策を思いつきました。

上手く行かないのは、ランダム背景にするために、カスタマイズしたスクリプトを呼び出しているからでした。
つまり、呼び出しスクリプトはこうさぎオリジナルのままで、ランダム背景にすればいいわけです。

そこで、津田ふみかの日記さまの「こうさぎの背景画像をランダムに変更する」を利用することにしました。
既に「こうさぎ背景をランダム表示にする二つの方法」でもご紹介していますが、ランダム表示のためにCGIを使う方法です。
そのCGIは、こうさぎのコントロールパネルの背景に設定するので、呼び出しスクリプトはオリジナルのままでOKなのです。

設置方法は以下の通りです。

1.1行目を、御自分のCGI環境に合わせた記述に書き換えます。
niftyでは、以下の通りです。

#!/usr/local/bin/perl

2.1行空けて、こうさぎ背景を置いているフォルダのURLを記述します。

my $base = 'http://koroppy.cocolog-nifty.com/blog/';

3.表示させたいファイル名を列挙します。

my @files = ('cousagi1.swf', 'cousagi2.swf', 'cousagi3.swf', 'cousagi4.swf', 'cousagi5.jpg', 'cousagi6.swf', 'cousagi7.swf, 'cousagi8.swf', 'cousagi9.swf', 'cousagi10.swf');

4.残りの部分もコピー＆ペーストします。

my $count = @files;
srand();
my $url = $base . $files[rand($count)];
print "Location: $url¥n¥n";

5.適当なファイル名（例》bgchange.cgi）をつけて保存し、サーバにアップロードします。
パーミッションは、705にします。

6.この状態で、CGIにアクセスしてみてください。
正しく設置できていれば、ランダムに背景が表示されます。

7.あとはこのCGIのURLを、こうさぎのコントロールパネルの背景に設定するだけです。
するとあら不思議。
コンパネにある呼び出しスクリプトを使っても、リロードするたびに違った背景が表示されます♪

あとは、「こうさぎサーバダウン時に留守番背景を表示する」を設定すればOK。

これでたぶん、留守番背景も使えると思うのです。
こればかりは、こうさぎが落ちているときじゃないとテストできませんね^^;

【2005.1.25　追記】
只今、こうさぎサーバが落ちているようです。
この方法で、きちんと留守番背景が表示されましたv(*'-^*)ｂぶいっ♪

【2005.5.21　追記】
ペット別背景を利用しつつ、背景の設定ファイルを共有化しました。
「ペット別背景を加えたランダムスクリプトで、共通背景を一元管理」をご覧ください。