[PR]子育てママさんへ:3年毎に15万円うけとれる保険?



CGI Script Market トップページCGIスクリプトのサンプルとダウンロードQ&Aラウンジ掲示板

お誕生日

「すえぽんさいと」さんで無料配布されているbirthdayをinfoseekでの設定する方法です。 (バージョンは5.10です)

誕生日登録所
***************************************************

◎階層とバーミッション(カッコ)

サーバー:infoseek web

........│test3.html 今月の誕生日を表示するページ(このページ)
........│
........└cgi-bin  スクリプト設置ディレクトリ
.............│
.............└ birthday CGIセットを収納しているディレクトリ
...................│
...................├ birthday.cgi (755)CGI本体 
...................├ data.cgi (666)登録されたデータの置き場所
...................├ jcode.pl (644)日本語コード変換プログラム
...................│
...................├ home.gif
...................├ home_off.gif
...................├ mail.gif
...................├ mail_off.gif
...................├ msg.gif
...................├ msg_off.gif
...................├ memo.gif
...................├ lupe.gif
...................└ key.gif

********************************
◎biethday.cgiの設定:

#!/usr/local/bin/perl

#↑各プロバイダで指定しているパスを記述
#
# birthday v.3.03(フリーソフト)
#
# Last Modified:2002/11/19
# Copyright (C) 2000-2002 suepon , All rights reserved.
#

http://CGIScriptMarket.com/
#
# ---------------------- 初期設定ここから ---------------------- #

# 管理者モードログイン時のパスワードの設定(半角英数で文字数に制限はありません)
$pass = "abc123";

# このファイルのURLをフルパスで記述
$script = " http://netharukaze.hp.infoseek.co.jp/cgi-bin/birthday/birthday.cgi";

# 今月の誕生日リストを表示するページのURLをフルパスで記述
$base = " http://netharukaze.hp.infoseek.co.jp/cgi-bin/test3.html";

# 記録ファイルの設置ディレクトリの位置と名前
# このファイルから見た位置(基本ディレクトリ構成の通りならこのまま)
$dir = "./";

# データ記録ファイルの名前
$file = "data.cgi";

# 画像ファイルの設置ディレクトリの位置と名前
# 表示ファイルから見た位置(基本ディレクトリ構成通りならこのまま)
# よく判らなければ

http:// からのフルパスでも可
$img_dir = " http://netharukaze.hp.infoseek.co.jp/cgi-bin/birthday/";

# メールの登録がない場合のアイコン用画像
$mailimg1 = "mail_off.gif";

# メールの登録がある場合のアイコン用画像
$mailimg2 = "mail.gif";

# ホームページの登録がない場合のアイコン用画像
$homeimg1 = "home_off.gif";

# ホームページの登録がある場合のアイコン用画像
$homeimg2 = "home.gif";

# メッセージの登録がない場合のアイコン用画像
$msgimg1 = "msg_off.gif";

# メッセージの登録がある場合のアイコン用画像
$msgimg2 = "msg.gif";

# 登録画面表示用アイコン画像
$icon1 = "memo.gif";
# 登録者一覧表示画面表示用アイコン
$icon2 = "lupe.gif";

# 管理者モード表示用アイコン
$icon3 = "key.gif";

# 各ページの背景色
$back = "#ffffff";

# 各ページの文字色
$font = "#0000ff";
# 表示欄上部に表示する文字列
$title = "今月の誕生日メンバー";

$view_font = "#ffffff";

# 表示欄全体の背景色 $view_back = "#ff6347";
# 今月の誕生日表示フォームの縦サイズ(行数)
$vew_size = 6;

# 今月の誕生日表示フォームの背景色(この色設定はIEにのみ有効)
$t_back = "#3cb371";

# 今月の誕生日表示フォームの文字色(この色設定はIEにのみ有効)
$t_font = "#ffffff";

# 今月の誕生日表示フォームでの名前の表示文字数の制限
$name_len = 16; # 名前の文字数がこれ以上の場合カットする(半角で数える)
# 月初めから表示する = 0; 本日から表示する = 1;
$sort_mode = 1;

# jcode.pl へのパス(基本ディレクトリ構成通りならこのまま)
require './jcode.pl';

# ---------------------- 初期設定ここまで ---------------------- #

これで、表示したいところに <script src="http://netharukaze.hp.infoseek.co.jp/cgi-bin/birthday/birthday.cgi"></script>

  http://netharukaze.hp.infoseek.co.jp/cgi-bin/birthday/birthday.cgi?mode=inputこれで入力。
  http://netharukaze.hp.infoseek.co.jp/cgi-bin/birthday/birthday.cgi?mode=viewこれで登録一覧。
http://netharukaze.hp.infoseek.co.jp/cgi-bin/birthday/birthday.cgi?mode=edit編集で削除も可

例えば、
http://netharukaze.hp.infoseek.co.jp/cgi-bin/birthday/mail_off.gif
この形式で画像(メールのアイコン)が表示されたら、転送は正しく行われています。

初期設定が正しいとして、次にスクリプトの後半にありますが
print "Content-type:text/plain\n";を探して、
text/plainを削除しprint "Content-type:\n";に変更してください。


補足(サポート掲示板における岡さんの解答)
Birthdayの登録者一覧で、一覧表内に表示される「登録日」の項目を、
できれば表示させたくありません。

>「登録日」の項目
CGIの原作は、いわば宝石の原石といってもいいのでは。
原石で完成状態のすえぽんさんの作品ですが、それぞれの
ウェブデザインの中で光る作品にするには、さらに「研磨」
を加えてフィンチューンニングする必要があります。


その1)377行目(viewall ルーチン内)に#記号を行頭につけ
       て無効にします。この行をコピーして378行目とします。
登録日
        を378行目から削除します。
          -----------------------------例
377 # print "お名前誕生日E-mailURLメッセージ登録日\n";

378 print "お名前誕生日E-mailURLメッセージ\n";
               ------------------------

その2)402行目は登録日を使わないことから、無効にする#記号を
       行頭につけます。
-------------------------------------
402 # $date = substr($num,2,2) . "\/" . substr($num,4,2) . "\/" . substr($num,6,2);
-------------------------------------

その3)404行目をコピーして407行目とします。
       404行目は#をつけて無効にします。コピーした
       407行目から
$date
       を削除します。
------------------------------------------------
404 # print "$name$wrt_b$mail$url$msg$date\n";

407 print "$name$wrt_b$mail$url$msg\n";
--------------------------------------------------
行番号というのは、当方のエディタで表示したものです。
cgiの修正には、エラーが付き物。念のために、運用中の
birthday.cgiをbirthdaymoto.cgiなど適当な名前で
バックアップを保存してください。

[PR]三井住友海上きらめき生命:医療保険のご案内と資料請求はこちらから