[過去ﾛｸﾞ] キャップ開発スレ (1001ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

180(2): 名無しさん＠お腹いっぱい。 2011/01/07(金)22:26 HOST:118.83.35.34 0 AAS
これでいい〜？
bbscgi.txtを参考に。。。

&jcode::tr(\$FORM{'mail'}, '＃', '#');
if($FORM{'mail'} =~ /([^\#]*)\#(.+)/){
my $mail_message = $1;
my $handle_pass = $2;
use Digest::SHA1 qw(sha1_base64);
$handle_pass = sha1_base64($handle_pass);
$handle_pass =~ tr/\/+/./;
$handle_pass =~ s/[\.\/]//gi;
$handle_pass .= ".cgi";
my $handle_file = "../../_capArea/" . $handle_pass;
if(-e $handle_file){
open(HANDLE,"<$handle_file");
my $handle = <HANDLE>;
close(HANDLE);
chomp($handle);
if($FORM{'FROM'}){
$FORM{'FROM'} = "$FORM{'FROM'}＠$handle ★";
}else{
$FORM{'FROM'} = "$handle ★";
}
#ハンドルを使う時はプロクシ規制をキャンセルする
$FLAG = 9;
}
$FORM{'mail'} = $mail_message;
}

---

上下前次1-新書関写板覧索設栞歴

---

あと 821 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.008s