#!/usr/bin/perl #ADPLAN #('03 12/11) local($ENV{'TZ'})="JST-9"; $param=$ENV{'QUERY_STRING'}; read(STDIN,$param,$ENV{'CONTENT_LENGTH'}) unless $param; for(split(/&/,$param)){ local($n, $v)=split(/=/); $n=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $v=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $v=~s/\r\n/\n/g; $$n=$v unless $n=~/\W/; } $link=$rurl; if($rurl=~/\?/){ $rurl.="&email=$email"; } else{ $rurl.="?email=$email"; } if($email){ print <
移動しない場合はこちらをクリックしてください。 HTML } else{ print < HTML } exit;