オリジナルフレームの種類も結構出てきたので色々楽しめたらいいなということで「オリジナルフレームもランダムに楽しもう」ということでやってみました。
基本は、以前からあるランダム背景CGI（津田ふみかの日記様の「こうさぎの背景画像をランダムに変更する」）がそのまま使えます。
オリジナルフレームの場合は、使える画像はFLASHだけになります。そのまま使えるのだから、そのままでもいいのですが、オリジナルフレームを設定しない事を逆手にとってはみ出し背景画像も配布されています。これを考慮してオリジナルフレームの場合は、「画像なし」も対応してみます。
my @files = ('NONE', 'file1.swf', 'file2.swf', 'file3.swf');
ファイルの一覧に「NONE」を追加しておきます。
で、実際に出力する場所で
<変更前>
my $url = $base . $files[rand($count)];
print "Location: $url\n\n";
<変更後>
my $filename = $files[rand($count)];
my $url = $base . $filename;
if( $filename eq "NONE" ) {
print "\n";
} else {
print "Location: $url\n\n";
}
上記の青文字の部分を追加して、'NONE'の場合は背景画像のURL出力しないようにします。
これで一応動作しているみたいなので大丈夫だと思います。
本当は、背景画像とオリジナルフレームが連携できればよいんだけどな。例えば、オリジナルフレーム無しの場合は、はみ出し背景画像が選択されるとか・・・。
【追記 2007/8/22】
2007年7月12日のBlogPet大幅リニューアルにより上記の方法は使えなくなりました。
« 続きを隠す "オリジナルフレームもランダムに楽しむ"
の13文字です。エントリーとコメントにも使えるようにしました。
