Skip to content

Instantly share code, notes, and snippets.

@fddcddhdd

fddcddhdd/gist:6819140

Last active Dec 24, 2015
Embed
What would you like to do?
MailformProの修正箇所(mailformpro/librarys/core.cgi 667行目) 表示項目が「確認メールアドレス」「プライバシーポリシー」なら無視する(表示しない)
sub _POST {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
#メール項目が「確認メールアドレス」「プライバシーポリシー」なら無視する。
if ($name eq "confirm_email" || $name eq "privacy_policy"){
}else {
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<br \/>/\n/ig;
$value =~ s/<_.*?_>//g;
&_CheckProcess($name,$value);
if($_POST{$name} ne $null){
$_POST{$name} .= "\n${value}";
}
else {
$_POST{$name} = $value;
push @ELEMENTS,$name;
}
}
}
&_POST_REBUILD;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.