ぜろちゃんねるスクリプト＠nifty対応改造

225 ：名無しさん＠ぜろちゃんねる：04/03/16 18:08 ID:METH272Y

NiftyのようにCGIと一般コンテンツで別サーバのところで
HTMLからもクッキーを登録・表示できるようにしてみました。
変更ファイルは２つ。

・varda.pl - PrintIndexPreviewサブルーチン
PrintThreadOne($T,$M,$I,$G,$E,$A,$key);
↓
PrintThreadOne($T,$M,$I,$G,$E,$A,$key,$i);

・varda.pl - PrintThreadOneサブルーチン
my ($T,$M,$I,$G,$E,$A,$key) = @_;
↓
my ($T,$M,$I,$G,$E,$A,$key,$i) = @_;

$T->Print("<input type=submit value=\"書き込む\" name=submit> ");
↓
$T->Print("<input type=submit value=\"書き込む\"
name=submit onClick=\"cookieinput($i)\"> ");

226 ：名無しさん＠ぜろちゃんねる：04/03/16 18:08 ID:???

続き。

radagast.pl - Print サブルーチン
$T->Print("//--></SCRIPT>\n");
の前に
$T->Print("function cookieinput(nNum){");
$T->Print("var j=nNum;");
$T->Print("setCookie(\"NAME\",document.forms[j].FROM.value);");
$T->Print("setCookie(\"MAIL\",document.forms[j].mail.value);}\n");
$T->Print("function setCookie(key, val, tmp){");
$T->Print("tmp=key+\"=\"+escape(val)+\"; \";");
$T->Print("tmp+=\"expires=Fri, 31-Dec-2030 23:59:59;\";");
$T->Print("tmp+=\"path=\"+location.pathname+\"; \";");
$T->Print("document.cookie=tmp;");
$T->Print("}\n");
を挿入

これでうまく動くようです。