間違いないね。
それで俺もこまってるんだもの。

一応、$user_nameはなんちゃって正規表現で、チェックはしているつもり、
コレでも汚染は取れきれないのかな？
ドットとスラッシュ許可してるからな・・・


sub Address_Check {
@addresss = ("$user_name" , "$tenso_address_1" , "$tenso_address_2");
foreach $buf (@addresss) {
if ( $buf =~ /[^\w.\-\/\@]/ ) {
&Error_Print('00',$buf);
} elsif ( $buf eq "" ) {
&Error_Print('01',$buf);
}
}
}

はたして、この正規表現であってるかはわからんが・・・・

要はやりたいことは
CGIフォームで転送アドレスを受け取って、それを.qmailに追記したいのよ。
ユーザーの認証は、すでに持っているアドレス（＠より前の部分）とメールパスワード
で認証させる。ってことで、

全部のソース載せてもいいんだけど、載せきれないしね。