#!/usr/bin/python
# -*- coding: utf-8 -*-
#
##@package
#
# @todo: 激活码
#
# @author: Alee
# @date 2018-5-4 22:10:51
# @version 1.0
#
# @note: 中文必须传utf8，收到的为urlencode内容  .decode('gbk').encode('utf8')
# 1.生成礼包批次
# 2.查询礼包批次
# 3.删除礼包批次
# 4.下载礼包批次
# 5.查询礼包卡号/使用礼包卡号
#---------------------------------------------------------------------

from bottle import Bottle, request, static_file
import random
import time
import md5
import CouponDB
import datetime
from lib import ReadConfig
import json
import urllib2
import urllib
from lib import mylog, CommFunc
import os.path
import zipfile

# get: request.query.username request.GET.get('username','')
# post: request.forms.get('username')  request.POST.get('username')
#===============================================================================
# @myapp.route('/cool/kk/:name3/:count#\\d+#')
# def maybe(name3, count):
# client_ip = request.environ.get('REMOTE_ADDR')
# client_ip = request.environ.get('HTTP_X_FORWARDED_FOR') or request.environ.get('REMOTE_ADDR')
#===============================================================================

ConfigIO = ReadConfig.ReadConfig(os.getcwd() + "\\config.ini")

# 应用端口
CenterPort = ConfigIO.GetValue("Coupon", "CenterPort")
#mobiletest.173on.com:55000
Def_ExportUrl = ConfigIO.GetValue("Coupon", "exporturl") + "/Coupon/CouponLoad.php?couponid=%s&channel=%s"

# GM端口
PushPort = ConfigIO.GetValue("Coupon", "PushPort")
PushKey = ConfigIO.GetValue("Coupon", "PushKey")
CommonCards = eval(ConfigIO.GetValue("Coupon", "CommonCards"))
                
        
Def_CardMsg = {
               0:"CodeRewardSys2", #  兑换码无效
               1: "CodeRewardSys1", #   兑换卡奖励已发至邮件
               2:"CodeRewardSys3", #  兑换码已使用过
               3:"CodeRewardSys4",  # 同类型兑换码只能使用一次
         }
                
                
                
myapp = Bottle()

#申请礼包卡批次
@myapp.route('/Coupon/CouponBatch.php', method='POST')
def CouponBatch():
    dataDict = request.POST
    for key, value in dataDict.items():
        mylog.debug("key:%s  value:%s"%(key, value))

    appid = dataDict.get("channel", "")     # 运营提供的APPID，即渠道
    if not appid:
        mylog.debug("no appid")
        return json.dumps({"error":"param appid"}, ensure_ascii=False)
    couponType = dataDict.get("coupontype", "")    # 礼包卡类型
    if not couponType:
        mylog.debug("no couponType")
        return json.dumps({"error":"param couponType"}, ensure_ascii=False)
    
    if not ConfigIO.HasSection(couponType):
        return json.dumps({"error":"no couponType"}, ensure_ascii=False)
    
    minSNo = CommFunc.ToIntDef(dataDict.get("minserverno", 0), 0)   # 若只选中一个则代表只有单服使用
    maxSNo = CommFunc.ToIntDef(dataDict.get("maxserverno", 0), 0)
    amount = int(dataDict.get("amount", 0))     # 礼包数量
    expireTime = dataDict.get("expiretime", "") # 过期时间
    
    # 不可重复即可  生成卡号批次标志，随机
    coupon_id = md5.md5("%s%s%s%s"%(appid, random.randint(1, 10000), time.time(), couponType)).hexdigest()
    
    dbController = CouponDB.GetDBEventCon()
    if not dbController:
        # 无法获取数据库
        mylog.debug("no dbController")
        return json.dumps({"error":"db"}, ensure_ascii=False)
    
    tmpDict = {}
    #新增
    tmpDict['createtime'] = str(datetime.datetime.today()).split(".")[0]   #创建时间
    tmpDict['exportUrl'] = Def_ExportUrl%(coupon_id, appid)  # 卡批次下载地址 提供给运营商获取
    tmpDict['couponid'] = coupon_id  # 卡批次，用于控制这一批次卡的使用权限和下载依据
    
    # 若只选中一个则代表只有单服使用,0则不限制使用范围
    if minSNo == 0 or maxSNo == 0:
        minSNo = max(minSNo, maxSNo)
        maxSNo = minSNo
    tmpDict["minserverno"] = minSNo  #  使用区服限制
    tmpDict["maxserverno"] = maxSNo
    tmpDict["amount"] = amount  #此批次卡的总数量
    tmpDict["coupontype"] = couponType  # 卡类型 开头字母做标识如 g代表此卡只能使用一次 h卡可以重复使用
    tmpDict["expiretime"] = expireTime  # 结束时间 ""空为无限制，具体时间格式为2018-06-07   
    tmpDict["channel"] = appid
    tmpDict["status"] = 0   # 0正常 1不可用
    
    # 插入表1批次清单，表2为具体卡号
    result = dbController.insert(CouponDB.CouponBatchColName, tmpDict)
    if not result:
        mylog.debug("insert error-%s"%(dbController.lastError))
        mylog.debug("insert error-%s-%s"%(coupon_id, tmpDict))
        return json.dumps({"error":"insert couponid"}, ensure_ascii=False)
    
    #===========================================================================
    # { "_id" : ObjectId("5b1a3e474eb1001100f7ad55"), "status" : 0, "code" : "m069cafd
    # 8ea1b30ajn", "coupontype" : "3", "couponid" : "0300229afaa52bbce59e7e6c104f307
    # e", "createtime" : "2018-06-08 16:28:55", "channel" : "asd" }
    #===========================================================================
    #批量插入卡号，暂且一次性插入十万
    tmpCodeList = []
    for i in xrange(amount):
        tmpCodeDoc = {}
        # 前3位为类型标识
        tmpCodeDoc['code'] = tmpDict["coupontype"][0] + md5.md5(tmpDict['channel'] + str(tmpDict['createtime']) + str(i) + \
                                     str(random.randint(1000, 2000000))).hexdigest()[2:14] + \
                                     random.choice('1234567890abcdefghijklmnopqrstuvwxyz') +\
                                     random.choice('1234567890abcdefghijklmnopqrstuvwxyz') 
        tmpCodeDoc['coupontype'] = tmpDict['coupontype']
        tmpCodeDoc['couponid'] = tmpDict['couponid']
        
        tmpCodeDoc['channel'] = tmpDict['channel']
        tmpCodeDoc['status'] = 0
        tmpCodeDoc['usetime'] = ""
        tmpCodeDoc['accid'] = ""
        tmpCodeList.append(tmpCodeDoc)

    result = dbController.insert(CouponDB.CouponCodeColName + "_" + tmpDict['channel'], tmpCodeList)
    if not result:
        return json.dumps({"error":"insert card"}, ensure_ascii=False)
    if "_id" in tmpDict:
        del tmpDict["_id"]

    mylog.debug("插入成功%s"%json.dumps(tmpDict, ensure_ascii=False))
        
    return json.dumps(tmpDict, ensure_ascii=False)

# 查询此平台礼包批次或者指定礼包批次查询
@myapp.route('/Coupon/CouponQuery.php')
def QueryCouponBatch():
    dataDict = request.GET
    appid = dataDict.get("channel", "")     # 运营提供的APPID，即渠道
    if not appid:
        mylog.debug("no appid")
        return json.dumps({"error":"param channel"}, ensure_ascii=False)
    couponid = dataDict.get("couponid", "")
    # 单查
    dbController = CouponDB.GetDBEventCon()
    if not dbController:
        # 无法获取数据库
        mylog.debug("no dbController")
        return json.dumps({"error":"db"}, ensure_ascii=False)
    if couponid:
        result, findList = dbController.find(CouponDB.CouponBatchColName, {'channel':appid, 'couponid':couponid})
    else:
        result, findList = dbController.find(CouponDB.CouponBatchColName, {'channel':appid})
    
    if not findList:
        return json.dumps({"error":"no couponid"}, ensure_ascii=False)
    
    return json.dumps(findList, ensure_ascii=False)


# 更新指定礼包批次 0:正常  其他异常
@myapp.route('/Coupon/CouponUpdate.php')
def UpdateCouponBatch():
    dataDict = request.GET
    appid = dataDict.get("channel", "")     # 运营提供的APPID，即渠道
    if not appid:
        mylog.debug("no appid")
        return json.dumps({"error":"param appid"}, ensure_ascii=False)
    couponid = dataDict.get("couponid", "")
    if not couponid:
        return json.dumps({"error":"param couponid"}, ensure_ascii=False)
    
    status = CommFunc.ToIntDef(dataDict.get("status", 0), 0)
    
    dbController = CouponDB.GetDBEventCon()
    if not dbController:
        # 无法获取数据库
        mylog.debug("no dbController")
        return json.dumps({"error":"db"}, ensure_ascii=False)
    
    result, data = dbController.find_one(CouponDB.CouponBatchColName, {'channel':appid, 'couponid':couponid})
    if not data:
        return json.dumps({"error":"no couponid"}, ensure_ascii=False)
    
    data['status'] = status
    dbController.update(CouponDB.CouponBatchColName, {'channel':appid, 'couponid':couponid}, data)
    
    
    return json.dumps({"success":couponid}, ensure_ascii=False)

#/api/Coupon/index.php?couponBatchId=%s&agentName=%s"
# 下载指定礼包批次 
@myapp.route('/Coupon/CouponLoad.php')
def LoadCouponBatch():
    dataDict = request.GET
    appid = dataDict.get("channel", "")     # 运营提供的APPID，即渠道
    if not appid:
        mylog.debug("no appid")
        return json.dumps({"error":"param appid"}, ensure_ascii=False)
    couponid = dataDict.get("couponid", "")
    if not couponid:
        return json.dumps({"error":"param couponid"}, ensure_ascii=False)
    
    downFile = r".\download\%s.zip"%couponid
    if os.path.isfile(downFile):
        return static_file("%s.zip"%couponid, r".\download", download=True)
    
    dbController = CouponDB.GetDBEventCon()
    if not dbController:
        # 无法获取数据库
        mylog.debug("no dbController")
        return json.dumps({"error":"db"}, ensure_ascii=False)
    result, data = dbController.find(CouponDB.CouponCodeColName + "_" + appid, {'channel':appid, 'couponid':couponid})
    if not data:
        return json.dumps({"error":"no couponid"}, ensure_ascii=False)
    
    fileIO = open(r".\download\%s.txt"%couponid, 'w')

    for codeInfo in data:
        fileIO.write(codeInfo["code"] + "\n")
    fileIO.close() 
    
    f = zipfile.ZipFile(downFile, 'w', zipfile.ZIP_DEFLATED)
    f.write(r".\download\%s.txt"%couponid)
    f.close()
    return static_file("%s.zip"%couponid, r".\download", download=True)

# 查询卡使用情况
@myapp.route('/Coupon/QueryCouponCode.php')
def QueryCouponCode():
    dataDict = request.GET
    appid = dataDict.get("channel", "")     # 运营提供的APPID，即渠道
    if not appid:
        mylog.debug("no appid")
        return json.dumps({"error":"param appid"}, ensure_ascii=False)
    codeStr = dataDict.get("code", "")
    if not codeStr:
        return json.dumps({"error":"param code"}, ensure_ascii=False)
    
    dbController = CouponDB.GetDBEventCon()
    if not dbController:
        # 无法获取数据库
        mylog.debug("no dbController")
        return json.dumps({"error":"db"}, ensure_ascii=False)
    result, data = dbController.find(CouponDB.CouponCodeColName + "_" + appid, {'channel':appid, 'code':codeStr})
    if not data:
        return json.dumps({"error":"no code"}, ensure_ascii=False)
    
    return json.dumps(data, ensure_ascii=False)

# 卡类型 开头字母做标识如 g1~999代表此卡只能使用一次 h1~999卡可以重复使用 z开头代表固定码
# 玩家使用卡号 参数 平台 区服 账号 区服链接（GM用）卡号
# http://center.xxx.com:53003/Coupon/CouponCode.php?channel=appid&code=XXX&accid=YYY&sid=222&pushurl=s222.xxx.com
@myapp.route('/Coupon/CouponCode.php')
def CouponCode():
    dataDict = request.GET
    
    for key, value in dataDict.items():
        mylog.debug("CouponCode key:%s  value:%s"%(key, value))
    
    agentName = dataDict.get("channel", "")     # 运营提供的APPID，即渠道
    if not agentName:
        mylog.debug("no appid")
        return
    codeStr = dataDict.get("code", "")
    if not codeStr:
        return
    
    accid = dataDict.get("accid", "")
    if not accid:
        return
    
    sid = CommFunc.ToIntDef(dataDict.get("sid", 0), 0)
    if not sid:
        return
    pushurl = dataDict.get("pushurl", "")
    if not pushurl:
        return
    
    # 转化为游戏账号 
    accid = "%s@%s@s%s"%(accid, agentName, sid)
    
    dbController = CouponDB.GetDBEventCon()
    if not dbController:
        # 无法获取数据库
        mylog.debug("no dbController")
        return

    #通过GM接口告知玩家使用情况
    gmresult = {'accID':accid, 'sid':sid, 'channel':agentName}

    #-----------统一固定码处理----------------------
    if codeStr in CommonCards:
        # 不同固定码各自只能领一次
        result, commondata = dbController.find_one(CouponDB.CouponCodeColName + "_Common", {"code":codeStr, "accid":accid})
        if commondata:
            # 已使用
            gmresult['status'] = 2
            mylog.debug("common status=2")
            return SendGm(gmresult, pushurl)
        
        gmresult['status'] = 1
        gmresult['code'] = codeStr
        gmresult['coupontype'] = codeStr  # 统一格式，服务器不一定有用，固定码根据 codeStr 发奖励
        
        dbController.insert(CouponDB.CouponCodeColName + "_Common", {"code":codeStr, "accid":accid})
        mylog.debug("common ok")
        return SendGm(gmresult, pushurl)

    result, data = dbController.find_one(CouponDB.CouponCodeColName + "_" + agentName, {"code":codeStr, "channel":agentName})

    if not data:
        #无此卡
        gmresult['status'] = 0
        mylog.debug("no card")
        return SendGm(gmresult, pushurl)
    if int(data['status']) == 1:
        #已使用，同卡号记录默认可用，避免断线发送失败的情况（未返回结果验证情况下）
        gmresult['status'] = 2
        mylog.debug("card used!")
        return SendGm(gmresult, pushurl)
    
    result, data2 = dbController.find_one(CouponDB.CouponBatchColName, {"couponid":data["couponid"]})
    if not data2:
        #此批次卡已删除
        gmresult['status'] = 0
        mylog.debug("no couponid")
        return SendGm(gmresult, pushurl)
    if int(data2['status']) == 1:
        #暂停使用该批次卡
        gmresult['status'] = 0
        mylog.debug("couponid frozed")
        return SendGm(gmresult, pushurl)
    if (data2["minserverno"] != 0 and data2["maxserverno"] != 0):
        if int(data2["minserverno"]) > sid or int(data2["maxserverno"]) < sid:
            #不在指定区
            gmresult['status'] = 0
            mylog.debug("no sid")
            return SendGm(gmresult, pushurl)
    if data2["expiretime"] != "" and datetime.datetime.today() > GetDateTimeByStr(data2["expiretime"]):
        #已过期
        gmresult['status'] = 0
        mylog.debug("time pass")
        return SendGm(gmresult, pushurl)
    #再查一次是否用过此批次的其他卡, 
    result, data3 = dbController.find_one(CouponDB.CouponCodeColName + "_" + agentName, \
                                          {"couponid":data["couponid"], "accid":accid})
    if data3:
        #用过同类卡，已记录过不再做新记录
        gmresult['status'] = 3
        gmresult['coupontype'] = data["coupontype"]
        gmresult['code'] = codeStr
        mylog.debug("use again")
        return SendGm(gmresult, pushurl)
    
    data['status'] = 1
    data['accid'] = accid
    data['usetime'] = str(datetime.datetime.today())
    
    dbController.update(CouponDB.CouponCodeColName + "_" + agentName, {"code":codeStr, "channel":agentName}, data)
    # 0 不可用，1.可用发放奖励 ，2.已使用 3.同类型卡不能使用两次
    gmresult['status'] = 1
    gmresult['code'] = codeStr
    gmresult['coupontype'] = data["coupontype"]
    
    mylog.debug("card ok!")
    return SendGm(gmresult, pushurl)



def SendGm(gmresult, pushurl):
    try:
        # GM推送地址
        #GMToolPage = http://s1.yhlz.09ge.com:30001/Server/Tool.php
        gmurl = "http://%s:%s/Server/Tool.php"%(pushurl, PushPort)
        gmkey = PushKey
        if not gmkey or not gmurl:
            return
        
        useStatus = gmresult['status']
        
        gmresult['notifyMsg'] = Def_CardMsg.get(useStatus, "CodeRewardSys2")
        
        
        if useStatus != 1:
            #失败系统提示
            pack_data = {};
            pack_data["queryType"] = "accID"
            pack_data["playerFind"] = gmresult["accID"]
            pack_data["pack_type"] = "GMT_MediaCard"
            pack_data["notifyMsg"] = gmresult['notifyMsg']
        
            pack_data["key"] = gmkey;
            pack_data['coding'] = "utf8";
        
            #使用key加密
            pack_data_dict = json.dumps(pack_data)
            sign = md5.md5(pack_data_dict+gmkey).hexdigest()
            post = {}
            post['pack'] = pack_data_dict;
            post['sign'] = sign;
            urllib2.urlopen(gmurl, urllib.urlencode(post), 3)
            return
        
        mylog.debug("SendGm:%s"%gmurl)
        pack_data = {};
        pack_data["queryType"] = "accID"
        pack_data["playerList"] = gmresult["accID"]
        pack_data["Title"] = ConfigIO.GetValue(gmresult["coupontype"], "MailTitle").decode("gbk")
        pack_data["Text"] = ConfigIO.GetValue(gmresult["coupontype"], "MailText").decode("gbk")
        pack_data["EndTime"] = str(datetime.datetime.today() + datetime.timedelta(days=15)).split('.')[0]
        pack_data["Sender"] = ConfigIO.GetValue(gmresult["coupontype"], "MailSender").decode("gbk")

        
        Items =  eval(ConfigIO.GetValue(gmresult["coupontype"], "Items"))
        pack_data["itemNums"] = ','.join([str(i) for i in range(len(Items))])
        i = 0
        for itemList in Items:
            pack_data["ItemID%s"%i] = str(itemList[0])
            pack_data["ItemCnt%s"%i] = str(itemList[1])
            pack_data["IsBind%s"%i] = '1'
            i += 1
            
        pack_data["pack_type"] = "GMT_AddPersonalCompensation"
        pack_data["Detail"] = "cardCode:" + gmresult["code"]

        pack_data["key"] = gmkey;
        pack_data['coding'] = "utf8";
    
        #使用key加密
        pack_data_dict = json.dumps(pack_data)
        sign = md5.md5(pack_data_dict+gmkey).hexdigest()
        post = {}
        post['pack'] = pack_data_dict;
        post['sign'] = sign;
        result = urllib2.urlopen(gmurl, urllib.urlencode(post), 10)

        content = result.read()
        result.close()
        
        # 成功提示
        pack_data = {};
        pack_data["queryType"] = "accID"
        pack_data["playerFind"] = gmresult["accID"]
        pack_data["pack_type"] = "GMT_MediaCard"
        pack_data["notifyMsg"] = gmresult['notifyMsg']
    
        pack_data["key"] = gmkey;
        pack_data['coding'] = "utf8";
    
        #使用key加密
        pack_data_dict = json.dumps(pack_data)
        sign = md5.md5(pack_data_dict+gmkey).hexdigest()
        post = {}
        post['pack'] = pack_data_dict;
        post['sign'] = sign;
        urllib2.urlopen(gmurl, urllib.urlencode(post), 3)
        
        return content
    except Exception, e:
        mylog.debug("gm error %s"%e)
    return
    
    
def GetDateTimeByStr(timeStr, timeFomat="%Y-%m-%d"):
    try:
        return datetime.datetime.strptime(timeStr, timeFomat)
    
    except:
        mylog.debug("GetDateTimeByStr error %s"%timeStr)
    
    return