#!/usr/bin/perl ###################################### # #ローン計算用ＣＧＩ # #無断転載、無断転用、再販禁止 # #改造は自由ですが　著作表示の改竄を禁じます # #クオリティー　システム開発 # #１行目は各プロバイダによって書き換えてください # ####################################### require 'jcode.pl'; print "Content-type: text/html\n\n"; read(STDIN, $form_data, $ENV{'CONTENT_LENGTH'}); &decode(); $kinngaku = $cgi{'kinngaku'}; $atamakinn = $cgi{'atamakinn'}; $sitadorikakaku = $cgi{'sitadorikakaku'}; $zannsai = $cgi{'zannsai'}; $kaisuu = $cgi{'kaisuu'}; $bonasu = $cgi{'bonasu'}; $gannkinn = $kinngaku-$atamakinn-$sitadorikakaku+$zannsai; $keisuu = 26.8926; $tesuuryou = $gannkinn/100*$keisuu; $honntesuuryou = int( $tesuuryou ); $sougaku = $gannkinn+$honntesuuryou; $bkaisuu = $kaisuu/12*2; $honnbkaisuu = int( $bkaisuu ); $nikaime = ($sougaku-($bonasu*$honnbkaisuu))/$kaisuu/100; $ikou = int( $nikaime ); $nikaimeikou = $ikou*100; $syokai = ($sougaku-($bonasu*$honnbkaisuu))-($nikaimeikou*($kaisuu-1)); $sirabe = $gannkinn/2; $sirabeni = $honnbkaisuu*$bonasu; if($sirabe < $sirabeni) {$err = "設定オーバー";} else {$err = $bonasu;} &print_browser(); exit; sub print_browser{ print <シュミレーション結果

ローンシュミレーション

あなたのローンシュミレーション結果は以下のようになりました。

実際にご利用になる場合と金額の差がある時がございますので参考資料とお考え下さい。

記入された条件（円）

販売込価格	$kinngaku
－頭金	$atamakinn
－下取価格	$sitadorikakaku
＋ローン残債	$zannsai
＝ローン元金	$gannkinn
お支払い回数	$kaisuu
ボーナス加算額	$bonasu

計算結果（円）

ローン金額	$gannkinn
初回お支払額	$syokai
以降月々	$nikaimeikou
ボーナス加算額	$err

※ボーナス加算額に設定オーバーと書いてある
場合設定金額が高すぎますので減らして下さい
ボーナス加算で支払える額はローン元金の５０％
までです

もう一度計算する
EOF } sub decode{ @part = split('&', $form_data); foreach $i (@part) { ($valiable, $value) = split('=', $i); $value =~ tr/+/ /; $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg; jcode'convert(*value,$mycode);#←漢字コードを統一' $value =~ s/&/&/g; $value =~ s/"/"/g; $value =~ s//>/g; $value =~ tr/\r\n//d; $cgi{$valiable}=$value; } }