Mail Directory ver3.01→3.1 バージョンアップ用アップデータテキスト

まず、740行目辺りに空きがあるので、以下のルーチンを追加して下さい。

###----------------------------------------------
### クッキー操作
###----------------------------------------------
### 発行
sub cookieset {
local($sec,$min,$hour,$mday,$mon,$yy,$wday) = gmtime(time+60*24*60*60);
@week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
$yy = 1900 + $yy;$mon++;
# 有効期限の定義
$gmt = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT",$week[$wday],$mday,$month[$mon],$yy,$hour,$min,$sec);
# ↓の変数に情報をまとめて入れる
$cookstate = "namae::$Fm{'namae'}<>mail::$Fm{'mail'}<>url::$Fm{'url'}";
print "Set-Cookie: state=$cookstate; expires=$gmt\n";
}
### 取得
sub cookieget {
	local($ck_nm,$ck_vl,@ckdata);
	@ckdata = split(/;/, $ENV{'HTTP_COOKIE'});
	foreach (@ckdata) {
		($ck_nm,$ck_vl) = split(/=/);
		$ck_nm =~ s/\s//g;
		$ckget{$ck_nm} = $ck_vl;
	}
	@ckdata = split(/<>/, $ckget{'state'});
	foreach (@ckdata) {
		($ck_nm,$ck_vl) = split(/::/);
		$cook{$ck_nm} = $ck_vl;
	}
}

------------------------------------------------------------

103行目辺りの

sub top {

の下に

&cookieget;
if(!$Fm{'fmpath'}){$Fm{'fmpath'} = "$cook{'mail'}";}
if(!$cook{'url'}){$cook{'url'} = "http://";}

を追加して下さい。
また、114〜116行目のフォーム

<tr><td>お名前</td><td><input type=text size=20 name=namae><font color=#999999 class=c>($maxnamaeバイトまで)</font></td></tr>
<tr><td>メール</td><td><input type=text size=40 name=mail value=$Fm{'fmpath'}><font color=#999999 class=c>($maxmailバイトまで)</font><BR><font color=#555555 class=c>(↑メールフォームのURLを入れても結構\です)</font></td></tr>
<tr><td>URL</td><td><input type=text size=40 name=url><font color=#999999 class=c>($maxurlバイトまで)</font></td></tr>

を

<tr><td>お名前</td><td><input type=text size=20 name=namae value=$cook{'namae'}><font color=#999999 class=c>($maxnamaeバイトまで)</font></td></tr>
<tr><td>メール</td><td><input type=text size=40 name=mail value=$Fm{'fmpath'}><font color=#999999 class=c>($maxmailバイトまで)</font><BR><font color=#555555 class=c>(↑メールフォームのURLを入れても結構\です)</font></td></tr>
<tr><td>URL</td><td><input type=text size=40 name=url value=$cook{'url'}><font color=#999999 class=c>($maxurlバイトまで)</font></td></tr>

に書き換えて下さい。

------------------------------------------------------------

202行目辺りの

&load($newfile);

の下に

&cookieset;

を追加して下さい。

------------------------------------------------------------

最後に6行目の$verの値を 3.1 に変更して下さい。

以上です。