- 電子おみくじ -

• このページでは、おみくじ、すなわち「アクセスするたびに表示を変える方法」を説明します。
• また「おみくじ」に限らず、例えばアクセスするたびにあいさつ文を変えたりと応用が様々です。

■ サンプルと特長

• おみくじはもちろん、SSIと併用してアクセス毎にあいさつ分を変える、ＢＧＭを変えるなど、応用は多彩です。サンプルは以下に２種類用意しました。

  <簡易おみくじ>		<本格的おみくじ>

• おみくじ LUCKYの機能的な特長は以下のとおりです。
  1. CGI単独でもSSIと併用でも動作します。
  2. 結果を出す確率を調整できます。（10%毎の確率で）
  3. 単なる乱数を発生するスクリプトなので、他への応用が可能です。 　

• このスクリプトを利用する上での利用規定です。必ず目を通しておいて下さい。スクリプトをダウンロードする場合、無条件に「利用規定」に同意したものとみなします。

• 以下の書庫ファイルをダウンロードします。

  Ver: 1.6
  lucky.zip

• ダウンロードがうまくできたら 解凍 して下さい。以下のファイルが展開されます。

  lucky.cgi

• スクリプトの修正個所は以下のとおりです。

  ★１行目

  　#!/usr/local/bin/perl

  　（プロバイダで定められたPerlへのパスを指定します）

  ★9-10行目

  　# 0=おみくじ 1=URLジャンプ 2=SSIモード

  　$kind = 0;

  　（簡易タイプのおみくじなら 0、アトランダムにURLへジャンプさせるなら 1、SSIと併用する場合は、2 を選択します。）

• 出力結果を指定する

  ★14-17行目

  　$luck1 = '大吉<P>運は最高です。油断は禁物。';

  　$luck2 = '中吉<P>これからますます絶好調。';

  　$luck3 = '小吉<P>幸運はすぐそこに来ています。';

  　$luck4 = '吉<P>これからが努力次第です。';

  　$luck5 = '凶<P>くよくよするな。これから上向く。';

  　（出力結果を指定します。$kind=1の設定で、URLを指定したい場合はジャンプさせたいファイルまでのパスをhttp://からはじまる絶対パスで記述をします）

  ★46-55行目

  ---------------------------------------------------------
  # 確率 20%
  if ($x < 20) { $luck = "$luck1"; }
  # 確率 20%
  elsif ($x < 40) { $luck = "$luck2"; }
  # 確率 30%
  elsif ($x < 70) { $luck = "$luck3"; }
  # 確率 20%
  elsif ($x < 90) { $luck = "$luck4"; }
  # 確率 10%
  else { $luck = "$luck5"; }
  ----------------------------------------------------------
  

  　（上記で、乱数発生の確率は以下の定義によります。好みで適当に「確率の定義数字」を調整してください。）

          $x < 20 ... 20%
     20 < $x < 40 ... 20%
     40 < $x < 70 ... 30%
     70 < $x < 90 ... 20%
     90 < $x      ... 10%
  

  
  
  
• 以上、修正が完了したら適当なディレクトリへFTP転送したのち、パーミッション を設定して下さい。

  ファイル名	パーミッション		転送モード
  	一般サーバ	suEXECサーバ CGIWrapサーバ
  lucky.cgi	755 or 705	701 or 700	アスキー

  Tips:ファイル転送の仕方は以下のページを参考にしてください。

  Windows編	Mac編

• おみくじとして利用する場合、HTMLから以下のように呼び出すといいでしょう。

  -------------------------------------------------
  <FORM ACTION="lucky.cgi">
  <INPUT TYPE="SUBMIT" VALUE="今日の運勢">
  </FORM>
  -------------------------------------------------
  

• ただし、サーバによっては上記のようなフォームタグを使用したCGIファイルの呼出しができない場合があります（BIGLOBEなど）。その場合には、以下のようなタグでCGIを起動させます。

  -------------------------------------------------
  [<a href="lucky.cgi">今日の運勢</a>]
  -------------------------------------------------
  

  
  
  

1. 本格的おみくじ編

   本格的おみくじは、ＨＴＭＬで５つのおみくじ結果（大吉〜凶）を作成し、LUCKY でアトランダムにそのおみくじ結果にジャンプさせます。

   ★10行目

   　$kind = 1;　(設定を 1 にします)

   ★14-18行目

   　$luck1 = 'http://www.host.ne.jp/~user/daikiti.html';

   　$luck2 = 'http://www.host.ne.jp/~user/chukiti.html';

   　$luck3 = 'http://www.host.ne.jp/~user/shokiti.html';

   　$luck4 = 'http://www.host.ne.jp/~user/kiti.html';

   　$luck5 = 'http://www.host.ne.jp/~user/kyou.html';

   　（ジャンプさせるURLを指定します）

   最後に、HTMLから、<a href="luck.cgi">本日の運勢</a> というようなタグでLUCKYを起動させます。

   
   
   
2. SSIとの連携編

   考え方は単純で、SSIで LUCKY を呼び出し、ＨＴＭＬ上に出力させます。

   ★10行目

   　$kind = 2;　(設定を 2 にします)

   ＨＴＭＬに以下の記述をします。(ＨＴＭＬと LUCKY が同一ディレクトリにある場合)

   ★14-18行目

   　$luck1 = '<FONT COLOR=blue><B>青</B></FONT>';

   　$luck2 = '<FONT COLOR=yellow><B>黄</B></FONT>';

   　$luck3 = '<FONT COLOR=red><B>赤</B></FONT>';

   　$luck4 = '<FONT COLOR=green><B>緑</B></FONT>';

   　$luck5 = '<FONT COLOR=hotpink><B>ピンク</B></FONT>';

   　（出力結果を適当に指定します）

   - タグの記述例 - 今日のあなたの LUCKY色は <!--#exec cmd="./lucky.cgi"--> です。

   - 出力サンプル - 今日のあなたの LUCKY色は ピンク です。

   
   
   
   
3. SSIとの連携（音楽編）

   アクセス毎にＢＧＭを変えることもできます。

   ★10行目

   　$kind = '2';　(設定を 2 にします)

   ＨＴＭＬに以下の記述をします。(ＨＴＭＬと LUCKY が同一ディレクトリにある場合)

   ★14-18行目

   　$luck1 = './bgm1.mid';

   　$luck2 = './bgm2.mid';

   　$luck3 = './bgm3.mid';

   　$luck4 = './bgm4.mid';

   　$luck5 = './bgm5.mid';

   　（ＢＧＭ曲をパス付きで指定します）

   - タグの記述例 - <EMBED SRC= <!--#exec cmd="./lucky.cgi"--> autostart=true loop=true hidden=true>

   
   
   

   サンプルは こちら に用意しました。