#!/usr/bin/perl require './jcode.pl'; require './perl-lib.pl'; readparts('QUERY', '<>=', ''); @NIC = split(/\0/, $QUERY{'nic'}); @DOMAIN = ('.net','.com','.jp','.org','.biz','.info'); print "Content-type: text/html\n\n"; print <<"HEAD_END"; 情報起業の為のホームページ制作|セールスレター型ホームページ制作

情報起業の為のホームページ制作|これからランディングページを制作しようと思っている方や、商材が売れずに嘆いている方へ、利益追求型ホームページ制作はお任せください!

情報商材が売れるためのホームページ制作

ドメイン取得チェック

HEAD_END print "\n"; if ($QUERY{'domain'}) { foreach (@NIC) { $domainname = "$QUERY{'domain'}$_"; $domain = whois($domainname); print "\n"; print "\n"; print "\n"; } } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "

\n"; print "$domainname\n"; if ($domain) { print "は使用できません。"; } else { print "は使用可能\です。"; } print "

\n"; print "
検索ドメイン\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "
\n"; print "\n"; print <<"BOTTOM_END";
情報商材が売れるためのホームページ制作
















BOTTOM_END exit;