<?

/*###################################################################
	共通関数
	Chk_UserAgent    ユーザーエージェント判定
	SQL_Con          データベースコネクション
	Chk_Email        メールアドレスチェック
	GetTempPath      テンプレートファイルパス設定
	Get_template     テンプレートデータ取得
	DSP_Error        汎用エラーメッセージ出力
	PartsGet         テンプレートの一部の取得
	EDT_Hidden       隠し属性のフォーム送信HTMLの編集
	Remove_Emoji_I   I-Mode用絵文字の削除
	Remove_Emoji_J   J-Phone用絵文字の削除
	Set_HTMLSelect   Select,CheckBox,Radioの選択項目のセット
	Get_Week         曜日算出
###################################################################*/
/*-------------------------------------------------------------------
	Chk_UserAgent    ユーザーエージェント判定

	戻り値：
		DoCoMo		2
		J-Phone		3
		Wap			4
		Smartphone	5
		Other		1

-------------------------------------------------------------------*/
function Chk_UserAgent ()
{
	if (substr($_SERVER['HTTP_USER_AGENT'], 0, 6) == "DoCoMo") {
		return 2;
	} elseif (substr($_SERVER['HTTP_USER_AGENT'], 0, 7) == "J-PHONE") {
		return 3;
	} elseif (substr($_SERVER['HTTP_USER_AGENT'], 0, 8) == "Vodafone") {
		return 3;
	} elseif (substr($_SERVER['HTTP_USER_AGENT'], 0, 4) == "MOT-") {
		return 3;
	} elseif (substr($_SERVER['HTTP_USER_AGENT'], 0, 8) == "SoftBank") {
		return 3;
//	} elseif (substr($_SERVER['HTTP_USER_AGENT'], 0, 10) == "UP.Browser") {
	} elseif (strstr($_SERVER['HTTP_USER_AGENT'], "UP.Browser") != false) {
		return 4;
	} elseif(strpos($_SERVER['HTTP_USER_AGENT'], "iPhone") > -1){
		return 5;
	} elseif(strpos($_SERVER['HTTP_USER_AGENT'], "iPod") > -1){
		return 5;
	} elseif(strpos($_SERVER['HTTP_USER_AGENT'], "Android") > -1){
		if(strpos($_SERVER['HTTP_USER_AGENT'], "Mobile") > -1){
			return 5;
		}else{
			return 1;
		}
	} elseif(strpos($_SERVER['HTTP_USER_AGENT'], "BlackBerry") > -1){
		return 5;
	} elseif(strpos($_SERVER['HTTP_USER_AGENT'], "Windows Phone") > -1){
		return 5;
	} else {
		return 1;
	}
}
/*-------------------------------------------------------------------
	SQL_Con      データベースコネクション

	グローバル定義：
		$cPG_Host     ホスト情報
		$cPG_DBname   データベース名
	引数：
		無し
	戻り値：
		コネクション
-------------------------------------------------------------------*/
function SQL_Con()
{
	global $cPG_Host;
	global $cPG_DBname;
//	$con = pg_Connect($cPG_Host,"","","",$cPG_DBname);
	global $cPG_Connect_String;
	$con = pg_Connect($cPG_Connect_String);

	if (!$con) {
		DSP_Error("データベースの接続に失敗しました");
	} else {
		return $con;
	}
}
/*-------------------------------------------------------------------
	Chk_Email      メールアドレスチェック

	引数：
		$strEmail	E-Mail
	戻り値：
		OK:True NG:False
-------------------------------------------------------------------*/
function Chk_Email($strEmail)
{

	if (ereg("^.+@.+\\..+$", $strEmail)) {
	} else {
		return false;
	}
	$ret = substr($strEmail, strpos($strEmail, "@", 0) + 1);
	if (getmxrr($ret, $str[0])) {
		return true;
	} else {
		if (!checkdnsrr($ret, "A")) {
			return false;
		} else {
			return true;
		}
	}
}
/*-------------------------------------------------------------------
	GetTempPath      テンプレートファイルパス設定

	グローバル定義：
		$cTEMPLATEPATH   パス情報
	引数：
		$strFname	ファイル名
	戻り値：
		絶対パス
-------------------------------------------------------------------*/
function GetTempPath ($strFname)
{
	global $cTEMPLATEPATH;

	switch (Chk_UserAgent()) {
	case 1:
	case 5:
		return $cTEMPLATEPATH . "pc/" . $strFname . ".html";
		break;
	case 2:
		return $cTEMPLATEPATH . "i/" . $strFname . ".html";
		break;
	case 3:
		return $cTEMPLATEPATH . "j/" . $strFname . ".html";
		break;
	case 4:
		return $cTEMPLATEPATH . "w/" . $strFname . ".html";
		break;
	}
}
/*-------------------------------------------------------------------
	Get_template      テンプレートデータ取得
		GetTempFile,GetTempPathを使用し、テンプレートファイルの絶対パス
		を取得し、テンプレートファイルデータを取得する。

	引数：
		テンプレートファイル識別
	戻り値：
		テンプレートファイルデータ
-------------------------------------------------------------------*/
function Get_template($strData)
{
	$strFileName = GetTempPath($strData);
	$fso = @fopen($strFileName, "r");
	if ($fso) {
		$ReadText = fread($fso, filesize($strFileName));
		fclose( $fso );
	}
	return $ReadText;

}
/*-------------------------------------------------------------------
	DSP_Error      汎用エラーメッセージ出力

	引数：
		$strData		メッセージ内容
	戻り値：
		無し

-------------------------------------------------------------------*/
function DSP_Error($strData)
{
	$fso = "";
	$strFileName = "";
	$ReadText = "";

	$strFileName = GetTempPath("error");
	$fso = fopen($strFileName, "r");
	$ReadText =  fread( $fso, filesize( $strFileName ) );
	fclose( $fso );
	$fso = fopen($strFileName, "r");
	$ReadText1 = Get_template("menu");
	fclose( $fso );
	$ReadText = str_replace("<!-- Menu -->", $ReadText1, $ReadText);
	if ($_SESSION[PAYMENT] == 4 && date("Ymd") >= "20040401")  {
		$ReadText_l = PartsGet("<!-- visiter_s -->", "<!-- visiter_e -->", 18, 18, "", $ReadText);
	}
	print (str_replace("%MSG%", mb_convert_encoding($strData, "SJIS", "EUC-JP"), $ReadText));

	exit();
}
/*-------------------------------------------------------------------
	PartsGet        テンプレートの一部の取得
		開始文字列と終了文字列に囲まれた文字列をテンプレートデータから
		抜き出し、変わりの文字列を挿入する。
	引数：
		$strStart		抜出し開始文字列
		$strEnd			抜出し終了文字列
		$intStartSize	抜出し開始文字数
		$intEndSize		抜出し終了文字数
		$strRepData		抜出し部分の置換え文字列
		$strAllData		テンプレートデータ(参照渡し)

	戻り値：
		抜出した文字列
-------------------------------------------------------------------*/
function PartsGet($strStart,$strEnd,$intStartSize,$intEndSize,$strRepData,&$strAllData)
{
	$i = 0;
	$j = 0;
	$k = 0;
	$strWork = "";

	$i = strpos($strAllData,$strStart);

	if ($i != 0) {
		$j = strpos($strAllData,$strEnd);
		$k = $j - $intStartSize - $i;
		$strWork = substr($strAllData,$i + $intStartSize,$k);
		$strAllData = substr($strAllData,0,$i) . $strRepData . substr($strAllData,$j + $intEndSize);

		return $strWork;
	}
}
/*-------------------------------------------------------------------
	EDT_Hidden      隠し属性のフォーム送信HTMLの編集

	引数：
		$strDataName	データ項目名
		$strData		データ値
	戻り値：
		隠し属性Inputタグデータ
-------------------------------------------------------------------*/
function EDT_Hidden($strDataName, $strData)
{
	return "<INPUT type=\"" . "hidden" . "\" NAME=" . '"' . $strDataName . "\" VALUE=" . '"' . $strData . "\">";
}
/*-------------------------------------------------------------------
	Remove_Emoji_I      I-Mode用絵文字の削除

	引数：
		$strData		データ値
	戻り値：
		削除済みデータ
-------------------------------------------------------------------*/
function Remove_Emoji_I($strData)
{
	$strWord = "";
	$strOutput = "";

	$strData = mb_convert_encoding($strData, "EUC-JP", "SJIS");
	$iMax = strlen($strData);
	for ($i = 0; $i <= $iMax; $i++) {
		$strWord = substr($strData,$i,1);
//		$strOutput .= ereg_replace("s/\G((?:[\x80-\x9f\xe0-\xf7\xfa-\xfc][\x40-\xff]|[\x00-\x7f])*?)([\xf8\xf9][\x40-\xff])/eg","a",$strWord);
		$strOutput .= preg_replace("(\xf8[\x9f-\xff]|\xf9[\x40-\x49\x72-\xb0])" , "", $strWord);
	}
	$strOutput = mb_convert_encoding($strOutput, "SJIS", "EUC-JP");
	return $strOutput;
}
/*-------------------------------------------------------------------
	Remove_Emoji_J      J-Phone用絵文字の削除

	引数：
		$strData		データ値
	戻り値：
		削除済みデータ
-------------------------------------------------------------------*/
function Remove_Emoji_J($strData)
{
	$strData = mb_convert_encoding($strData, "EUC-JP", "SJIS");
	$strData = preg_replace("/\33\44[^\17]*\17/","",$strData);
	return $strData = mb_convert_encoding($strData, "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Set_HTMLSelect      Select,CheckBox,Radioの選択項目のセット

	引数：
		$strHTML		HTMLデータ(参照渡し)
		$strData		比較データ(セットされたデータと同じ値のValue値
						を持つ部分に選択文字がセットされる。
		$strSelec		選択文字(selected,checked)
	戻り値：
		無し
-------------------------------------------------------------------*/
function Set_HTMLSelect (&$strHTML, $strData, $strSelect)
{
	if ($strData != "") {
		$strHTML = str_replace( '"' . $strData . '">', '"' . $strData . '" ' . $strSelect . ">", $strHTML);
	}
}
/*-------------------------------------------------------------------
	Get_Week      曜日を算出する

	引数：
		$strDate		西暦年月日
		$strMode		西暦年月日の形態
						0:UNIX のタイムスタンプ
						1:8桁数字(20010101)
						2:スラッシュ付き日付(2002/01/01)
		$strKbn			結果種別
						0:数字で返す(0,1...)
						1:英語で返すフル桁(Sunday...)
						2:英語で返す3文字(Sun...)
						3:日本語(日...)
	戻り値：
		曜日
-------------------------------------------------------------------*/
function Get_Week ($strDate, $strMode, $strKbn)
{
	switch ($strMode) {
	case "0":
		$strWork = $strDate;
		break;
	case "1":
		$strWork = mktime(0,0,0,substr($strDate,4,2),substr($strDate,6,2),substr($strDate,0,4));
		break;
	case "2":
		$strWork = mktime(0,0,0,substr($strDate,4,2),substr($strDate,6,2),substr($strDate,0,4));
		break;
	}
	switch ($strKbn) {
	case "0":
		return date("w",$strWork);
	case "1":
		return date("l",$strWork);
	case "2":
		return date("D",$strWork);
	case "3":
		$cWork = array("日","月","火","水","木","金","土");

		return mb_convert_encoding($cWork[date("w",$strWork)], "SJIS", "EUC-JP");
	}
}
/*-------------------------------------------------------------------
	sqlescape    SQLエスケープ
-------------------------------------------------------------------*/
function sqlescape($data) {
	return mb_convert_encoding(pg_escape_string(mb_convert_encoding($data,"eucJP-win","SJIS-WIN")),"SJIS-WIN","eucJP-win");
}
?>
<?
/*###################################################################
 *  Const.inc
 * 
 */

//DataBase 
$cPG_Host = "";
$cPG_DBname = "mp17_brid";
//$cPG_Connect_String = "dbname=bridal user=cs101800001 password=";
//$cPG_Connect_String = "dbname=mp17_brid_01 user=mp17_brid password=ee1Voh4k";
$cPG_Connect_String = "dbname=mp17_brid user=mp17_brid password=ee1Voh4k";
$cMESSAGEPATH = "/home/sites/site002/web/";
//HTMLTemplate
if (substr($_SERVER["SCRIPT_NAME"], 0, 8) == "/develop") {
//	$cTEMPLATEPATH = "/home/sites/site002/web/develop/tmp/";
	$cTEMPLATEPATH = "//home/httpd/webmaster-brid/public_html/develop/tmp/";
} else {
//	$cTEMPLATEPATH = "/home/sites/site002/web/tmp/";
	$cTEMPLATEPATH = "/home/httpd/webmaster-brid/public_html/tmp/";
}
//  $cTEMPLATEPATH = "/home/sites/www.premarri.com/web/tmp/";
//E-Mail
$cWEBMASTER_EMAIL = "ad@premarri.com";
$cPARTY_EMAIL = "ad@premarri.com";
?>
<?
/*###################################################################
	プレマリ共通関数
	Get_Pref         都道府県名取得
	Get_Weight       体重取得
	Get_Job          職種取得
	Get_Hobby        趣味取得
	Get_Purpose      出会い目的取得
	Get_Education    最終学歴取得
	Get_Income       年収取得
	Get_Visit        訪問取得
	Get_Events       イベント取得
	Get_IdealSTS     理想の人ステータス
	Login_Chk        ログインチェック
	Get_HelpMail     助けてメール
	Go_Redirect      リダイレクト処理
	Set_Menu         メニュー付加
	Set_Menu_top     トップメニュー付加
	RLogin_Chk       管理者ログインチェック
	Chk_Campaign     キャンペーンチェック
	Get_Constants    定数取得
	Get_Point        ポイント取得
###################################################################*/
/*-------------------------------------------------------------------
	Get_Pref    都道府県名取得

	引数：
		都道府県コード
	戻り値：
		都道府県名
-------------------------------------------------------------------*/
function Get_Pref ($strPref)
{
	$cPref = array("","北海道","青森県","秋田県","岩手県","宮城県","山形県","福島県","東京都","神奈川県","千葉県","埼玉県","栃木県","群馬県","茨城県","新潟県","富山県","石川県","福井県","山梨県","長野県","岐阜県","静岡県","愛知県","三重県","滋賀県","京都府","大阪府","兵庫県","奈良県","和歌山県","鳥取県","島根県","岡山県","広島県","山口県","徳島県","香川県","愛媛県","高知県","福岡県","佐賀県","長崎県","大分県","熊本県","宮崎県","鹿児島県","沖縄県","海外");
	$intPref = (integer)$strPref;
	return mb_convert_encoding($cPref[$intPref], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Get_PrefCd    都道府県コード取得

	引数：
		都道府県コード
	戻り値：
		都道府県名
-------------------------------------------------------------------*/
function Get_PrefCd ($strPref)
{
	$cPrefCD = array("","01","02","04","05","03","06","07","14","12","13","11","10","08","09","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31","32","33","34","35","36","37","38","39","40","41","42","44","43","45","46","47");
	$intPref = (integer)$strPref;
	return $cPrefCD[$intPref];
}
/*-------------------------------------------------------------------
	Get_Weight    体重取得

	引数：
		体重コード
	戻り値：
		体重
-------------------------------------------------------------------*/
function Get_Weight ($strWeight)
{
	$cWeight = array("ひみつ","やせている","少しやせている","ふつう","体格がよい","ダイエット中");
	$intWeight = (integer)$strWeight;
	return mb_convert_encoding($cWeight[$intWeight], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Get_Job    職種取得

	引数：
		職種コード
	戻り値：
		職種
-------------------------------------------------------------------*/
function Get_Job ($strJob)
{
	$cJob = array("会社員（事務系）","会社員（技術系）","会社員（管理職）","公務員","自営業","医師・弁護士","会社経営","学生","その他","会社員（営業職）","その他（専門資格職）");
	$intJob = (integer)$strJob;
	return mb_convert_encoding($cJob[$intJob], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Get_Hobby    趣味取得

	引数：
		趣味コード
	戻り値：
		趣味
-------------------------------------------------------------------*/
function Get_Hobby ($strHobby)
{
	$cHobby = array("","ドライブ","コミック・アニメ","読書","パソコン","音楽","映画","ゲーム","旅行","ショッピング","ペット","スポーツ","ファッション","占い","カラオケ","アウトドア","料理","ガーデニング","生け花");
	$intHobby = (integer)$strHobby;
	return mb_convert_encoding($cHobby[$intHobby], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Get_Purpose    出会い目的取得

	引数：
		出会い目的コード
	戻り値：
		出会い目的
-------------------------------------------------------------------*/
function Get_Purpose ($strPurpose)
{
	$cPurpose = array("友達","友達","恋人","結婚相手");
	$intPurpose = (integer)$strPurpose;
	return mb_convert_encoding($cPurpose[$intPurpose], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Get_Education    最終学歴取得

	引数：
		最終学歴コード
	戻り値：
		最終学歴
-------------------------------------------------------------------*/
function Get_Education ($strEducation)
{
	$cEducation = array("その他","高校卒業","専門学校卒業","短大卒業","大学卒業","大学院卒業");
	$intEducation = (integer)$strEducation;
	return mb_convert_encoding($cEducation[$intEducation], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Get_Income    年収取得

	引数：
		年収コード
	戻り値：
		年収
-------------------------------------------------------------------*/
function Get_Income ($strIncome)
{
	$cIncome = array("?・200万円","201?・300万円","301?・400万円","401?・500万円","501?・600万円","601?・700万円","701?・800万円","801?・900万円","901?・1000万円","1001?・1200万円","1201万円?・3000万円","3001万円?・");
	$intIncome = (integer)$strIncome;
	return mb_convert_encoding($cIncome[$intIncome], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Get_Visit        訪問取得

	引数：
		年収コード
	戻り値：
		年収
-------------------------------------------------------------------*/
function Get_Visit ($strVisit)
{
	$cVisit = array("ネットマイルから","検索サイトから","インターネット広告から","新聞・雑誌を見て","その他","メールマガジンから","懸賞サイトから","検索エンジン(Yahoo)","検索エンジン(エキサイト)","検索エンジン(MSN)","検索エンジン(Google)","検索エンジン(その他)","その他メール広告から","プレマリ友達紹介から","デイリースポーツを見て");
	if ($strVisit == "a") {
		$strVisit = 10;
	} elseif ($strVisit == "b") {
		$strVisit = 11;
	} elseif ($strVisit == "c") {
		$strVisit = 12;
	} elseif ($strVisit == "d") {
		$strVisit = 13;
	} elseif ($strVisit == "e") {
		$strVisit = 14;
	}
	$intVisit = (integer)$strVisit;
	return mb_convert_encoding($cVisit[$intVisit], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Get_blod     血液型
	引数：
		血液型コード
	戻り値：
		血液型
-------------------------------------------------------------------*/
function Get_blod ($strblod)
{
	$cblod = array("","A型","B型","O型","AB型","不明");
	$intblod = (integer)$strblod;
	return mb_convert_encoding($cblod[$intblod], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Get_constellation     星座
	引数：
		星座コード
	戻り値：
		星座
-------------------------------------------------------------------*/
function Get_constellation ($strconstellation)
{
	$cconstellation = array("","おひつじ座","おうし座","ふたご座","かに座","しし座","おとめ座","てんびん座","さそり座","いて座","やぎ座","みずがめ座","うお座");
	$intconstellation = (integer)$strconstellation;
	return mb_convert_encoding($cconstellation[$intconstellation], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Get_m_hpref     結婚後の居住地
	引数：
		居住地コード
	戻り値：
		居住地
-------------------------------------------------------------------*/
function Get_m_hpref ($strm_hpref)
{
	$cm_hpref = array("こだわらない","北海道","東北","関東","甲信越","北陸","東海","近畿","中国","四国","九州","沖縄","海外");
	$intm_hpref = (integer)$strm_hpref;
	return mb_convert_encoding($cm_hpref[$intm_hpref], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Get_type     性格
	引数：
		性格コード
	戻り値：
		性格
-------------------------------------------------------------------*/
function Get_type ($strtype)
{
	$ctype = array("","やさしい","明るい","几帳面","おおらか","社交的","チャーミング","頼りになる","前向き","理論的","可愛い","積極的","おとなしい","寂しがり","意地っ張り","リーダー的","家庭的","仕事人","甘えん坊");
	$inttype = (integer)$strtype;
	return mb_convert_encoding($ctype[$inttype], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Get_m_place     デートしたい場所
	引数：
		デートしたい場所コード
	戻り値：
		デートしたい場所
-------------------------------------------------------------------*/
function Get_m_place ($strm_place)
{
	$cm_place = array("","海や山（アウトドア）","映画や食事など室内","テーマパークなど","ドライブ","スポーツ観戦");
	$intm_place= (integer)$strm_place;
	return mb_convert_encoding($cm_place[$intm_place], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Get_alcohol     お酒
	引数：
		お酒コード
	戻り値：
		お酒
-------------------------------------------------------------------*/
function Get_alcohol ($stralcohol)
{
	$calcohol = array("","お酒は好き","付き合い程度","あまり飲まない","飲まない");
	$intalcohol= (integer)$stralcohol;
	return mb_convert_encoding($calcohol[$intalcohol], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Get_stance     会うまでのスタンス
	引数：
		会うまでのスタンスコード
	戻り値：
		会うまでのスタンス
-------------------------------------------------------------------*/
function Get_stance ($strstance)
{
	$cstance = array("","結婚前提を確認してから交際したい","写真交換やメールでお相手を理解してから会う","とりあえず、しっかりメール交換してから始めたい","まず、お会いして、お話してから決めたい…","価値観が似ている方なら積極的に結婚を考えたい");
	$intstance= (integer)$strstance;
	return mb_convert_encoding($cstance[$intstance], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Get_m_after     結婚したら
	引数：
		結婚したらコード
	戻り値：
		結婚したら
-------------------------------------------------------------------*/
function Get_m_after ($strm_after)
{
	$cm_after = array("","出来るだけ一緒にいて、二人だけの思い出を創りたい","早く子供が欲しい","家庭を中心に家事も完璧にこなす【あるいは家事も手伝う】","お互い仕事を持って、一緒に楽しめるパートナーになりたい","家業を手伝ってもらって一緒に事業を大きくしたい","両親の面倒を見て欲しい","転勤もあるので、ついてきて欲しい","海外へ行く可能性が高いので、外国生活を楽しみたい");
	$intm_after= (integer)$strm_after;
	return mb_convert_encoding($cm_after[$intm_after], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Get_together     同居
	引数：
		同居コード
	戻り値：
		同居
-------------------------------------------------------------------*/
function Get_together ($strtogether)
{
	$ctogether = array("","自分の両親との同居は考えなくてよい","今は無いが、いずれそんな時が来るかもしれない","2世帯同居を考えている","相手のご両親との同居は考えられない","相手のご両親との同居は考えても良い");
	$inttogether = (integer)$strtogether;
	return mb_convert_encoding($ctogether[$inttogether], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Get_m_housekeep     結婚後の家事
	引数：
		結婚後の家事コード
	戻り値：
		結婚後の家事
-------------------------------------------------------------------*/
function Get_m_housekeep ($strm_housekeep)
{
	$cm_housekeep = array("","手伝う","頼まれればやってみる","出来ない");
	$intm_housekeep = (integer)$strm_housekeep;
	return mb_convert_encoding($cm_housekeep[$intm_housekeep], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Get_m_job     結婚後の仕事
	引数：
		結婚後の仕事コード
	戻り値：
		結婚後の仕事
-------------------------------------------------------------------*/
function Get_m_job ($strm_job)
{
	$cm_job = array("","こだわらない","家庭に専念","仕事も可能");
	$intm_job = (integer)$strm_job;
	return mb_convert_encoding($cm_job[$intm_job], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Get_smoke     煙草
	引数：
		煙草コード
	戻り値：
		煙草
-------------------------------------------------------------------*/
function Get_smoke ($strsmoke)
{
	$csmoke = array("","喫煙しない","喫煙する");
	$intsmoke = (integer)$strsmoke;
	return mb_convert_encoding($csmoke[$intsmoke], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Get_foster_child     養子
	引数：
		養子コード
	戻り値：
		養子
-------------------------------------------------------------------*/
function Get_foster_child ($strfoster_child)
{
	$cfoster_child = array("","可能","不可","名前を変えないなら可能","希望する","不問");
	$intfoster_child = (integer)$strfoster_child;
	return mb_convert_encoding($cfoster_child[$intfoster_child], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Get_nationality     国籍
	引数：
		国籍コード
	戻り値：
		国籍
-------------------------------------------------------------------*/
function Get_nationality ($strnationality)
{
	$cnationality = array("","こだわらない","こだわる");
	$intnationality = (integer)$strnationality;
	return mb_convert_encoding($cnationality[$intnationality], "SJIS", "EUC-JP");
}

/*-------------------------------------------------------------------
	Get_Events    イベント取得

	引数：
		イベントコード
	戻り値：
		イベント
-------------------------------------------------------------------*/
function Get_Events ($strEvents)
{
	$cEvents = array("","ワイワイ型","結婚型","仲間型","プチ旅行型","一泊旅行型","海外旅行型");
	$intEvents = (integer)$strEvents;
	return mb_convert_encoding($cEvents[$intEvents], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Get_IdealSTS    理想の人ステータス

	引数：
		ステータス
	戻り値：
		イベント
-------------------------------------------------------------------*/
function Get_IdealSTS ($strReply)
{
	$cReply = array("--","保","×","○");
	$intReply = (integer)$strReply;
	return mb_convert_encoding($cReply[$intReply], "SJIS", "EUC-JP");
}
/*-------------------------------------------------------------------
	Login_Chk    ログインチェック

	引数：
		ログインID
		パスワード
	戻り値：
		なし
-------------------------------------------------------------------*/
function Login_Chk()
{
	// HTTPSでない場合、HTTPSのURLにリダイレクト
	$strScript = getenv("SCRIPT_NAME");

	if ($strScript != "/cl/login.php" && $strScript != "/cl/club.php") {
		https_chk();
	}
	if ($_SESSION["credit"] == 1) {
		header("Location: https://www.premarri.com/pf/credit.php");
		exit;
	}

	if ($_REQUEST[loginid] == "") {
		$loginid = $_SESSION[ID];
	} else {
		$loginid = $_REQUEST[loginid];
	}
	if ($_REQUEST[pass] == "") {
		$pass = $_SESSION[PASS];
	} else {
		$pass = $_REQUEST[pass];
	}
	if ($_REQUEST[loginid] == "premarri") {
		$_REQUEST[loginid] = "";
	}
	$_REQUEST[loginid] = str_replace("'", "", $_REQUEST[loginid]);
	$_REQUEST[loginid] = str_replace('"', "", $_REQUEST[loginid]);
	$_REQUEST[loginid] = str_replace(';', "", $_REQUEST[loginid]);
	$_REQUEST[loginid] = mb_convert_kana($_REQUEST[loginid], "a", "SJIS");

	if ($_REQUEST[loginid] != "" || $_REQUEST[pass] != "") {
		$con = SQL_Con();
		$strSQL = "SELECT member.loginid,pass,payment,money,sex,money_date,accounts,member.memberno,nickname,ident,photo,del_flg,c_tel FROM member INNER JOIN profile ON member.loginid = profile.loginid WHERE member.loginid = '" . sqlescape($_REQUEST[loginid]) . "' AND (del_flg = '0' OR del_flg = '7') AND kind <> 9";
		$rec = pg_Exec($con, $strSQL);

		$intRow = pg_NumRows($rec);
		if ($intRow == 0) {
			$ReadText = Get_template("login");
			$ReadText = str_replace("%url%", $strScript, $ReadText);
			$ReadText = str_replace("%loginid%", $_REQUEST[loginid], $ReadText);
			$ReadText = str_replace("%pass%", $_REQUEST[pass], $ReadText);
			$ReadText = str_replace("%MSG%", mb_convert_encoding("このログインIDは登録されていません。", "SJIS", "EUC-JP") . "-" . $_REQUEST[loginid], $ReadText);
//			$ret = mail("ayu@drive.co.jp", mb_convert_encoding("Error", "JIS", "EUC-JP"), $_REQUEST[loginid] . "-" . $_REQUEST[pass] , "From: " . "shin@premarri.com" . "\nReply-To: " . $cWEBMASTER_EMAIL . "\nX-Mailer: PHP/" . phpversion());
			print Set_Menu_top($ReadText);
			pg_close($con);
			exit;
		} else {
			if (pg_Result($rec, 0 ,"pass") != $_REQUEST[pass]) {
				$ReadText = Get_template("login");
				$ReadText = str_replace("%url%", $strScript, $ReadText);
				$ReadText = str_replace("%loginid%", $_REQUEST[loginid], $ReadText);
				$ReadText = str_replace("%pass%", $_REQUEST[pass], $ReadText);
				$ReadText = str_replace("%MSG%", mb_convert_encoding("パスワードが間違っています", "SJIS", "EUC-JP"), $ReadText);
				print Set_Menu_top($ReadText);
				pg_close($con);
				exit;
			} else {
				if (pg_Result($rec, 0 ,"del_flg") == 7) {
					$ReadText = Get_template("login");
					$ReadText = str_replace("%url%", $strScript, $ReadText);
					$ReadText = str_replace("%loginid%", $_REQUEST[loginid], $ReadText);
					$ReadText = str_replace("%pass%", $_REQUEST[pass], $ReadText);
					$ReadText = str_replace("%MSG%", mb_convert_encoding("銀行支払による会費のお支払いが完了しておりません。お支払い後にログインしてください。", "SJIS", "EUC-JP"), $ReadText);
					print Set_Menu_top($ReadText);
					pg_close($con);
					exit;
				}
				if (pg_Result($rec, 0 ,"accounts") == 1 && pg_Result($rec, 0 ,"c_tel") == "") {
					$_SESSION[ID] = $_REQUEST[loginid];
//					$_SESSION[PASS] = $_REQUEST[pass];
					$_SESSION[PAYMENT] = pg_Result($rec, 0 ,"payment");
					$_SESSION["credit"] = 1;
					header("Location: https://www.premarri.com/pf/credit.php");
					exit;
				}
				$strID = substr($_REQUEST[loginid], 0, 4);
				if ($strID != "pre3") {
					$strSQL = "UPDATE profile SET login_date = '" . date("YmdHis") . "' WHERE loginid = '" . $_REQUEST[loginid] . "'";
					pg_Exec($con, $strSQL);
				}
				if (pg_Result($rec, 0 ,"accounts") == "" && pg_Result($rec, 0 ,"money_date") != "" && pg_Result($rec, 0 ,"money_date") <= date("Y-m-d H:i:s", mktime(0,0,0,date("m"),date("d"),date("Y"))) . "+09") {
					pg_close($con);
					session_register("account_flg");
					$_SESSION[account_flg] = "1";
					Go_Redirect("en/comp.php?ID=" . $_REQUEST[loginid]);
					exit;
				} else {
					if (session_is_registered("ID")) {
					} else {
						session_register("ID");
						session_register("PASS");
						session_register("PAYMENT");
					}
					$_SESSION[ID] = $_REQUEST[loginid];
					$_SESSION[PASS] = $_REQUEST[pass];
					$_SESSION[PAYMENT] = pg_Result($rec, 0 ,"payment");
					if (pg_Result($rec, 0 ,"photo") != 1 || pg_Result($rec, 0 ,"ident") == 0) {
						$_SESSION[LIMIT] = 1;
					} else {
						$_SESSION[LIMIT] = "";
					}
					if (pg_Result($rec, 0 ,"ident") == 0) {
						$_SESSION["LIMIT2"] = "1";
					} else {
						$_SESSION["LIMIT2"] = "";
					}
					$_SESSION[nickname] = pg_Result($rec, 0 ,"nickname");
					$_SESSION[sex] = pg_Result($rec, 0 ,"sex");
					$memberno = pg_Result($rec, 0 ,"memberno");
					if (pg_Result($rec, 0 ,"ident") == "1") {
						$nickname = mb_convert_encoding("★", "SJIS", "EUC-JP") . pg_Result($rec, 0 ,"nickname");
					} else {
						$nickname = pg_Result($rec, 0 ,"nickname");
					}
//					if ($memberno == 3) {
//						$nickname = mb_convert_encoding("運用者", "SJIS", "EUC-JP");
//						$memberno = "clubmaster";
//					}
					$r = setcookie("cfyuid", $memberno , 0, "/" , "premarri.com");
					$r = setcookie("cfyunm", $nickname , 0, "/" , "premarri.com");
					$strSex = pg_Result($rec, 0 ,"sex");
					if (pg_Result($rec, 0 ,"money") != "") {
						$strSQL = "SELECT * FROM money_m WHERE money = " . pg_Result($rec, 0 ,"money");
						pg_FreeResult($rec);
						$rec = pg_Exec($con, $strSQL);
						if ($strSex == "1") {
							$_SESSION[CHARGE_J] = pg_Result($rec, 0 ,"m_money_j");
						} else {
							$_SESSION[CHARGE_J] = pg_Result($rec, 0 ,"w_money_j");
						}
					}
				}
			}
		}
		if ($_SESSION[PAYMENT] == "3") {
			Session_Data($con);
		}
		pg_close($con);
		if ($strScript == "/cl/login.php") {
//			header("location: http://61.196.98.150/");
			header("location: http://club.premarri.com/");
		}
	} elseif ($_REQUEST[loginid] == "" && $_REQUEST[pass] == "" && $_SESSION[ID] == "" && $_SESSION[PASS] == "") {
		$ReadText = Get_template("login");
//2002/09/27
//		$UserAgent = Chk_UserAgent();
//		if ($strScript == "/ml/mail.php" && $UserAgent == "1") {
//			$strScript = "/sr/newsearch.php";
//		}
		$ReadText = str_replace("%url%", $strScript, $ReadText);
		$ReadText = str_replace("%loginid%", $_REQUEST[loginid], $ReadText);
		$ReadText = str_replace("%pass%", $_REQUEST[pass], $ReadText);
		$ReadText = str_replace("%MSG%", "", $ReadText);
		print Set_Menu_top($ReadText);
		exit;
	} else {
		if ($_SESSION[PAYMENT] == "3") {
			$con = SQL_Con();
			Session_Data($con);
			pg_close($con);
		}
		if ($strScript == "/cl/login.php") {
//			header("location: http://61.196.98.150/");
			header("location: http://club.premarri.com/");
		}
	}
}
function Session_Data($con)
{
	$strN_Date = date("YmdHis");
	$strE_Date = date("YmdHis", mktime(date("H") + 9, date("i"), date("s"), date("m"), date("d"), date("Y")));
	$strSQL ="SELECT * FROM session_ctl WHERE loginid = '" . $_SESSION[ID] . "' ORDER BY e_dt DESC";
	$rec = pg_Exec($con, $strSQL);
	$intRow = pg_NumRows($rec);
	if ($intRow == 0) {
		$strSQL = "INSERT INTO session_ctl values ('" . $_SESSION[ID] . "','" . $strN_Date . "','" . $strE_Date . "'," . $_SESSION[CHARGE_J] . ")";
		$rec = pg_Exec($con, $strSQL);
	} else {
		if (pg_Result($rec, 0 ,"e_dt") < $strN_Date) {
			$strSQL = "INSERT INTO session_ctl values ('" . $_SESSION[ID] . "','" . $strN_Date . "','" . $strE_Date . "'," . $_SESSION[CHARGE_J] . ")";
			$rec = pg_Exec($con, $strSQL);
		}
	}

}
/*-------------------------------------------------------------------
	Get_HelpMail     助けてメール

	引数：
		なし
	戻り値：
		タイトル
		本文

-------------------------------------------------------------------*/
function Get_HelpMail(&$strTitle,&$strDetail)
{
	global $cTEMPLATEPATH;
	mt_srand((double)microtime()*1000000);
	$strFileName = $cTEMPLATEPATH. "help_mail" . rand(1, 5) . ".txt";
	$fso = fopen($strFileName, "r");
	$ReadText = file($strFileName);
	fclose( $fso );

	$strTitle = $ReadText[0];
	$intMax = count($ReadText);
	for ($i = 1; $i < $intMax; $i++) {
			$strDetail .= next($ReadText);
	}
}
/*-------------------------------------------------------------------
	https_chk      SSLチェック

	引数：
		無し
	戻り値：
		無し
-------------------------------------------------------------------*/
function https_chk()
{
	if ( isset($_SERVER["HTTPS"]) && ($_SERVER["HTTPS"] == "on") ) {
		return "";
	} elseif (Chk_UserAgent() == 1) {
		$hostname	= $_SERVER["SERVER_NAME"];
		$strURL		= $_SERVER["SCRIPT_NAME"];
		$param = array();
		foreach ( $_REQUEST as $key => $value ) {
			if ( is_array($value) ) {
				for ( $i=0; $i<count($value); $i++ ) {
					$param[] = $key . '=' . urlencode($value[$i]);
				}
			} else {
				$param[] = $key . '=' . urlencode($value);
			}
		}
		if (strstr($_SERVER['HTTP_USER_AGENT'], "Mac") != false) {
			return "";
		} else {
			header("Location: https://" . $hostname . $strURL. '?'. join('&', $param));
			exit;
		}

	} else {
		return "";
	}
}
/*-------------------------------------------------------------------
	Go_Redirect      リダイレクト処理

	引数：
		リダイレクト先
	戻り値：
		無し
-------------------------------------------------------------------*/
function Go_Redirect($strURL)
{
	if ( isset($_SERVER["HTTPS"]) && ($_SERVER["HTTPS"] == "on") ) {
		$scheme = 'https';
	} else {
		$scheme = 'http';
	}
	$ua = Chk_UserAgent();
	if ($ua == 2 || $ua == 3 || $ua == 4) {
		$scheme = 'http';
		if (!strpos($strURL, "?")) {
			$strURL .= "?SS=" . $_REQUEST[SS];
		} else {
			$strURL .= "&SS=" . $_REQUEST[SS];
		}
	}

	header("location:" . $scheme. "://". $_SERVER["SERVER_NAME"] . "/" . $strURL);
}
/*-------------------------------------------------------------------
	Set_Menu         メニュー付加

	引数：
		付加元情報
	戻り値：
		付加済み情報
-------------------------------------------------------------------*/
function Set_Menu($strText)
{
	if (date("Ymd") >= "20030401") {
		$ReadText = Get_template("menu");
	} else {
		$ReadText = Get_template("menu");
	}
/*	if (!strpos(getenv("SCRIPT_NAME"), "/pf/")) {
		$ReadText = str_replace("=\"./", "=\"../ml/", $ReadText);
		$ReadText = str_replace("=\"../pf/", "=\"./", $ReadText);
	} elseif (!strpos(getenv("SCRIPT_NAME"), "/ev/")) {
		$ReadText = str_replace("=\"./", "=\"../ml/", $ReadText);
		$ReadText = str_replace("=\"../ev/", "=\"./", $ReadText);
	} elseif (!strpos(getenv("SCRIPT_NAME"), "/sr/")) {
		$ReadText = str_replace("=\"./", "=\"../ml/", $ReadText);
		$ReadText = str_replace("=\"../sr/", "=\"./", $ReadText);
	}
*/
	$strText = str_replace("<!-- Menu -->", $ReadText, $strText);
	if (Chk_UserAgent() == 2) {
		$intLength = strlen(str_replace(".php", ".php?SS=" . $_SESSION[SS] . " /", $strText));
	} elseif (Chk_UserAgent() == 4) {
		header("Expires: ". gmdate("D, d M Y H:i:s") . " GMT");
		header("Cache-Control: no-cache, must-revalidate");
//	} else {
//		$intLength = strlen($strText);
	}
	if ($_SESSION[PAYMENT] == 4 && date("Ymd") >= "20040401")  {
		$ReadText_l = PartsGet("<!-- visiter_s -->", "<!-- visiter_e -->", 18, 18, "", $strText);
	}
	$banner = '<hr><a href="http://www.bridaldiamond.co.jp/" target="_new"><img src="/img/ring.gif" width="165" height="100"></a><hr><a href="https://www.ai-lifelab.com/kojin" target="_new"><img src="/img/banner_premarri.jpg" width="165" height="100"></a><hr><a href="https://www.premarri.com/event/song_and_music/"><img src="/img/banner.gif" width="164px" height=""></a>';
	$strText = str_replace("<!-- banner -->", $banner, $strText);
//	header("Content-Length: " . $intLength);

	return $strText;
}
/*-------------------------------------------------------------------
	Set_Menu_top         トップメニュー付加

	引数：
		付加元情報
	戻り値：
		付加済み情報
-------------------------------------------------------------------*/
function Set_Menu_top($strText)
{
	if (Chk_UserAgent() == "1") {
		if (date("Ymd") >= "20030401") {
			$ReadText = Get_template("topmenu");
		} else {
			$ReadText = Get_template("topmenu");
		}
		$strText = str_replace("<!-- Menu -->", $ReadText, $strText);
	}
	return $strText;
}
/*-------------------------------------------------------------------
	RLogin_Chk    管理者ログインチェック

	引数：
		ログインID
		パスワード
	戻り値：
		なし
-------------------------------------------------------------------*/
function RLogin_Chk()
{
	// HTTPSでない場合、HTTPSのURLにリダイレクト
//	https_chk();

	$strScript = getenv("SCRIPT_NAME");
	if ($_REQUEST[rid] == "") {
		$loginid = $_SESSION[RID];
		$loginid_chk = "'" . str_replace("'", "''", str_replace("\\", "\\\\", $loginid )) . "'";
	} else {
		$loginid = $_REQUEST[rid];
		$loginid_chk = "'" . str_replace("'", "''", str_replace("\\", "\\\\", $loginid )) . "'";
	}
	if ($_REQUEST[rpass] == "") {
		$pass = $_SESSION[RPASS];
	} else {
		$pass = $_REQUEST[rpass];
	}

	if ($loginid != "" && $pass != "") {
		$con = SQL_Con();
		$strSQL = "SELECT id,pass FROM control WHERE id = " . $loginid_chk;
		$rec = pg_Exec($con, $strSQL);

		$intRow = pg_NumRows($rec);
		if ($intRow == 0) {
			$ReadText = Get_template("admin/rlogin");
			$ReadText = str_replace("%url%", $strScript, $ReadText);
			$ReadText = str_replace("%MSG%", mb_convert_encoding("ログインIDが間違っています", "SJIS", "EUC-JP"), $ReadText);
			print $ReadText;
			pg_close($con);
			exit;
		} else {
			if (pg_Result($rec, 0 ,"pass") != $pass) {
				$ReadText = Get_template("admin/rlogin");
				$ReadText = str_replace("%url%", $strScript, $ReadText);
				$ReadText = str_replace("%MSG%", mb_convert_encoding("パスワードが間違っています", "SJIS", "EUC-JP"), $ReadText);
				print $ReadText;
				pg_close($con);
				exit;
			} else {
				if (session_is_registered("RID")) {
				} else {
					session_register("RID");
					session_register("RPASS");
				}
				$_SESSION[RID] = $loginid;
				$_SESSION[RPASS] = $pass;
			}
		}
	} else {
		$ReadText = Get_template("admin/rlogin");
		$ReadText = str_replace("%url%", $strScript, $ReadText);
		$ReadText = str_replace("%MSG%", "", $ReadText);
		print $ReadText;
		exit;
	}
}
/*-----------------------------------------------------
 *	Sub Chk_Campaign		キャンペーンチェック
 *---------------------------------------------------*/
function Chk_Campaign($con)
{

	if (!session_is_registered("email")) {
		session_register("email");
	}
	if (!session_is_registered("name1")) {
		session_register("name1");
	}
	if (!session_is_registered("name2")) {
		session_register("name2");
	}
	if (!session_is_registered("campaign_no")) {
		session_register("campaign_no");
	}
	if (!session_is_registered("kind")) {
		session_register("kind");
	}
	if (!session_is_registered("camp_charge")) {
		session_register("camp_charge");
	}
	if (!session_is_registered("end_charge")) {
		session_register("end_charge");
	}
	if (!session_is_registered("target_month")) {
		session_register("target_month");
	}
	if (!session_is_registered("fee")) {
		session_register("fee");
	}
	if (!session_is_registered("camp_comment")) {
		session_register("camp_comment");
	}
	$strSQL = "";
	$strDate = date("Ymd");

	$strSQL = "SELECT * FROM campaign WHERE sex = '" . $_SESSION[sex] . "' AND camp_fdate <= '" . $strDate . "' AND camp_tdate >= '" . $strDate . "'";

	$ret = pg_Exec($con, $strSQL);
	$n = pg_NumRows($ret);
	if ($n == 0) {
		$_SESSION[campaign_no] = "";
		$_SESSION[kind] = 1;
		$_SESSION[camp_charge] = 1;
		$_SESSION[end_charge] = 1;
		$_SESSION[target_month] = 0;
		$_SESSION[fee] = 3000;

	} else {
		$_SESSION[campaign_no] = pg_Result($ret, 0 ,"campaign_no");
		$_SESSION[kind] = 5;
		$_SESSION[camp_charge] = pg_Result($ret, 0 ,"camp_charge");
		$_SESSION[end_charge] = pg_Result($ret, 0 ,"end_charge");
		$_SESSION[target_month] = pg_Result($ret, 0 ,"target_month");
		$_SESSION[fee] = pg_Result($ret, 0 ,"entrance_fee");
		$_SESSION[camp_comment] = pg_Result($ret, 0 ,"camp_comment");
	}
}
/*-----------------------------------------------------
 *	Sub Club_Regist		プレクラブ登録
 *---------------------------------------------------*/
function Club_Regist($strNickname,$intMemberno,$strByy,$strBmm,$strBdd,$strSex,$strEmail)
{
	$strCLUB_URL = "http://61.196.98.150/rx/join_exec.asp";
//$strCLUB_URL = "http://www.drive.co.jp/take-a/asp/zeus.asp";

	$strString = "username=";
	$strString .= $strNickname;
	$strString .= "&userid=" . $intMemberno;
	$strString .= "&byear=" . $strByy;
	$strString .= "&bmonth=" . $strBmm;
	$strString .= "&bday=" . $strBdd;
	if ($strSex == "1") {
		$strString .= "&gender=M";
	} else {
		$strString .= "&gender=F";
	}

//$ret = mail("ayu@drive.co.jp", "preclub", $strString , "From: " . "ayu@drive.co.jp" . "\nReply-To: " . $cWEBMASTER_EMAIL . "\nX-Mailer: PHP/" . phpversion());

	$ch = curl_init();
	curl_setopt($ch, CURLOPT_URL, $strCLUB_URL);
	curl_setopt($ch, CURLOPT_POST, 1);
	curl_setopt($ch, CURLOPT_TIMEOUT, 10);
	curl_setopt($ch, CURLOPT_POSTFIELDS, $strString);

	curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
	$strData = curl_exec($ch);

#$fp = fopen("/home/cs10180/premarri.com/clublog/log.txt", "a");
#fwrite($fp, date("YmdHis") . " " . $strString . " " . $strData . "\r\n");
#fclose($fp);

	curl_close ($ch);

	return $strData;

}
/*-----------------------------------------------------
 *	Sub Club_Modify		プレクラブ更新
 *---------------------------------------------------*/
function Club_Modify($strNickname,$intMemberno,$strByy,$strBmm,$strBdd)
{
	$strCLUB_URL = "http://61.196.98.150/rx/modify_exec.asp";
//$strCLUB_URL = "http://www.drive.co.jp/take-a/asp/zeus.asp";

	$strString = "username=";
	$strString .= $strNickname;
	$strString .= "&userid=" . $intMemberno;
	$strString .= "&byear=" . $strByy;
	$strString .= "&bmonth=" . $strBmm;
	$strString .= "&bday=" . $strBdd;

	$ch = curl_init();
	curl_setopt($ch, CURLOPT_URL, $strCLUB_URL);
	curl_setopt($ch, CURLOPT_POST, 1);
	curl_setopt($ch, CURLOPT_TIMEOUT, 10);
	curl_setopt($ch, CURLOPT_POSTFIELDS, $strString);

	curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
	$strData = curl_exec($ch);
	curl_close ($ch);

	return $strData;
}
/*-----------------------------------------------------
 *	Sub Club_Quit		プレクラブ解除
 *---------------------------------------------------*/
function Club_Quit($intMemberno)
{
	$strCLUB_URL = "http://61.196.98.150/rx/quit_exec.asp";
//$strCLUB_URL = "http://www.drive.co.jp/take-a/asp/zeus.asp";

	$strString = "userid=" . $intMemberno;

	$ch = curl_init();
	curl_setopt($ch, CURLOPT_URL, $strCLUB_URL);
	curl_setopt($ch, CURLOPT_POST, 1);
	curl_setopt($ch, CURLOPT_TIMEOUT, 10);
	curl_setopt($ch, CURLOPT_POSTFIELDS, $strString);

	curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
	$strData = curl_exec($ch);
	curl_close ($ch);

	return $strData;
}
/*-------------------------------------------------------------------
	Get_Constants    定数取得

	引数：
		name
	戻り値：
		定数
-------------------------------------------------------------------*/
function Get_Constants($con,$name)
{
	$flg = False;
	if ($con == "") {
		$flg = True;
		$con = SQL_Con();
	}
	$strSQL = "SELECT value FROM constants WHERE name ='" . $name . "'";

	$rec = pg_Exec($con, $strSQL);
	$intRow = pg_NumRows($rec);

	if ($intRow != 0) {
		if ($flg) {
			$strValuse = pg_Result($rec, 0 ,"value");
			pg_close($con);
			return $strValue;
		} else {
			return pg_Result($rec, 0 ,"value");
		}
	}

}
/*-------------------------------------------------------------------
	Get_Point    ポイント取得

	引数：
		種別
	戻り値：
		ポイント
-------------------------------------------------------------------*/
function Get_Point ($con,$kind)
{
	if ($kind == "SEND") {
		$strDate = Get_Constants($con,"MAIL_POINT_SEND_NEW_DATE");
		if ($strDate == "") {
			return Get_Constants($con,"MAIL_POINT_SEND");
		} elseif ($strDate > date("Ymd")) {
			return Get_Constants($con,"MAIL_POINT_SEND");
		} else {
			return Get_Constants($con,"MAIL_POINT_SEND_NEW");
		}
	} elseif ($kind == "RECV") {
		$strDate = Get_Constants($con,"MAIL_POINT_RECV_NEW_DATE");
		if ($strDate == "") {
			return Get_Constants($con,"MAIL_POINT_RECV");
		} elseif ($strDate > date("Ymd")) {
			return Get_Constants($con,"MAIL_POINT_RECV");
		} else {
			return Get_Constants($con,"MAIL_POINT_RECV_NEW");
		}
	}
}
?>