#!/usr/local/bin/perl # ライブラリ require './lib/jcode.pl'; require './lib/teikei.pl'; require './lib/descrypt.pl'; # このスクリプト $script = 'joinPC.html'; &form(); #----------# # HTML表示 # #----------# sub form { $center .= <
会員登録して激アツ情報をGETしよう！
特典
特典１
ユーザーの皆様のご期待に応える為、各ホールが激アツ情報を会員限定で公開しています。まずは「本日激ぱっち」を見てホールへ足を運んで下さい。本物の激アツを体感してください！
特典２
サイトでは紹介しきれない激アツイベント情報をメールにて随時配信！イベント開催中、PGクィーンも応援に駆けつけてホールを更にアツくしてくれます。そんなお得な情報を無料でGET！
今すぐ会員登録
※会員登録ご希望の方はコチラをクリックして空メールを送ってね！
携帯の登録はQRからが簡単！
QRコードで登録！
携帯から登録したい方はQRコードから空メール送信して下さい。
※『ドメイン指定受信サービス』を利用されている方は当サイトへの登録の前に「p-guu.net」のドメイン指定をお願いします。
EOF &html; exit; } #--------# # エラー # #--------# sub error { print "Content-type: text/html; charset=Shift_JIS\n\n"; print "\n"; print "エラー\n"; print "\n"; print "\n"; print "\n"; print "※$_[0]($_[1])

\n"; print "\n"; exit; }