#!/usr/local/bin/perl require 'kaisyanin.pl'; require 'meadck.pl'; require 'jcode.pl'; require 'mimew.pl'; $sendmail="/usr/lib/sendmail"; $mailfrom="info\@c21.to"; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $QUERY_DATA, $ENV{'CONTENT_LENGTH'}); } else { $QUERY_DATA = $ENV{'QUERY_STRING'}; } @pairs = split(/&/,$QUERY_DATA); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; if($name eq "sensen" && $value ne ""){push(@sensen,$value."\n");} $QUERY{$name} = $value; } local($flag)=0; $host=""; @ips = split ( "," , $ENV{'HTTP_X_FORWARDED_FOR'} ); foreach $x(@ips){ $hostname = ''; if ($x =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/) { $ip = "$1.$2.$3.$4"; $hostname = gethostbyaddr(pack('C4',split(/\./,$ip)),2); if ($hostname eq '') { $hostname = $ip; } $host=$host . $hostname . "[" . $ip . "] "; if ($flag==0) { $remote_host=$host; $host=$host . "
Use Proxy: "; $flag=1; } } } $x=$ENV{'REMOTE_ADDR'}; $hostname = ''; if ($x =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/) { $ip = "$1.$2.$3.$4"; $hostname = gethostbyaddr(pack('C4',split(/\./,$ip)),2); if ($hostname eq '') { $hostname = $ip; } $host=$host . $hostname . "[" . $ip . "]"; } $ENV{'TZ'} = "JST-9"; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $year -= 88; $month = sprintf("%02d",$mon + 1); $mday = sprintf("%02d",$mday); $hour = sprintf("%02d",$hour); $min = sprintf("%02d",$min); $sec = sprintf("%02d",$sec); if(!open(dat,"touroku.txt")){exit;} @dum=; close (dat); $ninsyo=0; unless ($QUERY{'refe'}) {$userref=$ENV{'HTTP_REFERER'};} else{$userref=$QUERY{'refe'};} &kaisyanin; if ($ninsyo==0) {exit;} $fdmei=~ s/\n//; open(dat,"$fdmei/foot.txt"); foreach(){ $footer.=$_; } close(dat); print "Content-type: text/html\n\n"; if($QUERY{'form'} eq "uritai"){&uri;exit;} elsif($QUERY{'form'} eq "kashitai"){&kashi;exit;} elsif($QUERY{'form'} eq 'uri'){&send;exit;} elsif($QUERY{'form'} eq 'kashi'){&send;exit;} else{exit;} exit; sub uri{ print <売却のご相談を承ります
売却のご相談を承ります。下記のシートに必要事項をご記入の上、送信して下さい。お問合せは1日以内にお答えします。

教えたくないことや分からないことは記入されなくても大丈夫。（但し、※印の個所は必須記入項目です。）

住まいのプロがいます。ぜひ当社にお任せ下さい。

●いくら位で売れるか知りたい。●どの位の期間で売れるか知りたい。●売却に要する費用が知りたい。●すでに売却を依頼しているが、思うように売れない。●買い取って欲しいが、いくら位か知りたい。　どんなご質問でもどうぞ！
　 　
■種　別 ※
■売りたい物件の所在地 ※
■売りたい物件の名称 ※
■土地・戸建の場合は土地面積 平米　※
■建物面積/専有面積 平米　※
■間取り ※
■築年数 ※
　 　
　 　
■お名前 ※
■郵便番号 -
■住　所
■電話番号 - -
■FAX番号 - -
■E-Mailアドレス ※
■通信欄・なんでもお書きください。
　 　

　

　

戻る　

$footer
end } sub kashi{ print <賃貸のご相談を承ります
賃貸のご相談を承ります。下記のシートに必要事項をご記入の上、送信して下さい。お問合せは1日以内にお答えします。

教えたくないことや分からないことは記入されなくても大丈夫。（但し、※印の個所は必須記入項目です。）

■空き室大募集！１０人中８人以上がセンチュリー２１を知っています。TVCMでもおなじみだから、多くのお客様が安心してご来店されるのです。お客様の不動産、ぜひ当社にお任せ下さい。

●いくら位で貸せるか知りたい。●どの位の期間で貸せるか知りたい。●すでに仲介を依頼しているが、思うように貸せない。●駐車場にしたいが、いくら位必要か知りたい。●予\定はないが相談したい　どんなご質問でもどうぞ！
　 　
■種　別 ※
■貨したい物件の所在地 ※
■貨したい物件の名称 ※
■土地・戸建の場合は土地面積 平米　※
■建物面積/専有面積 平米　※
■間取り ※
■築年数 ※
　 　
　 　
■お名前 ※
■郵便番号 -
■住　所
■電話番号 - -
■FAX番号 - -
■E-Mailアドレス ※
■通信欄・なんでもお書きください。
　 　

　

　

戻る　

$footer
end } #-------------------------------------------------------- sub send{ if(&meadck($QUERY{'mail'})!=1){print <

メールアドレスが間違っています
戻って再入力してください


戻る end exit; } $message=""; open(dat,"$fdmei/mailto.txt"); $mail=; close(dat); $mail=~s/[\n\r ]//gi; if($QUERY{'mail'}){$mailfrom=$QUERY{'mail'};}else{$QUERY{'mail'}='無し　電話連絡';$mailfrom='t@takt.tk';} if($QUERY{'form'} eq 'uri'){$dum="売却相談";} if($QUERY{'form'} eq 'kashi'){$dum="賃貸相談";} if (open(ML,"| $sendmail -t -f$mailfrom")) { $head="Return-Path: <$mailfrom>\n"; $head.="X-Received: from ($host) by $ENV{'HTTP_REFERER'}\n"; $head.="To: $mail\n"; $head.="From: <$mailfrom>\n"; $head.="Subject: ホームページから$dumメール\n"; $head.="Content-Type: text/plain;\n"; $head.=" charset=\"iso-2022-jp\"\n"; $head.="X-User-Agent: $ENV{'HTTP_USER_AGENT'}\n"; $head.="\n"; $message="このメールはジオネットワークフォームメールシステムから送られています。\n"; $message.="お客様の入力をそのまま転送します。\n"; $message.="$year/$month/$mday $hour:$min:$sec　に、送信がありました。\n\n"; $message.="相談種類：$dum\n"; $message.="物件種別：$QUERY{'syubetu'}\n"; $message.="物件所在地：$QUERY{'place'}\n"; $message.="物件名称：$QUERY{'name2'}\n"; $message.="土地・戸建の場合の土地面積：$QUERY{'area1'}\n"; $message.="建物面積/専有面積：$QUERY{'area11'}\n"; $message.="間取り：$QUERY{'madori'}\n"; $message.="築年数：$QUERY{'year'}\n"; $message.="お名前：$QUERY{'name'}\n"; $message.="郵便番号：$QUERY{'zip1'}-$QUERY{'zip2'}\n"; $message.="住　所：$QUERY{'stay'}\n"; $message.="電話番号：$QUERY{'tel_a_1'}-$QUERY{'tel_a_2'}-$QUERY{'tel_a_3'}\n"; $message.="FAX番号：$QUERY{'fax_a_1'}-$QUERY{'fax_a_2'}-$QUERY{'fax_a_3'}\n"; $message.="E-Mailアドレス：$QUERY{'mail'}\n"; $message.="通信欄：$QUERY{'textfield2'}\n"; $message.="以上です。\n"; $head=&mimeencode($head); print ML "$head"; &jcode'convert(*message,"jis"); print ML "$message"; close(ML); print <


入力された情報を送信しました。ありがとうございました。
お返事をお待ちください。
$footer
end } }