おみくじ機能追加しますた！

44 ：はりねずみ ◆HaRinezUmI ：04/02/01 17:47 ID:???

キャップのID変え。
（あんまりいろんな所弄りたくないのでやり方が変だけどｷﾆｼﾅｲ）

varda.pl 339行目あたり
　my ($name,$mail,$text,$subj,$flag);
を
　my ($name,$mail,$text,$subj,$flag,$capid);
に変更

389行目あたり
　$date = $G->ConvertDate($U,$I,$S,$date,$id);
の下に
　$capid = $S->Get('capid');
　if ($U->HasAuthority(17,$S->Get('bbs')) && $capid ne ''){
　　$date =~ s/ID:.+/ID:$capid/;
　}
を追加

435行目あたり
　$mail =~ s/＃/#/; # パス部分の削除
　$mail =~ s/#(.+)//;
　$pass = $1;
の下に
　if ($pass =~ /(.+)\@ID:(.+)/){
　　$pass = $1;
　　$S->Set('capid',$2);
　}
を追加