Nevar pievienot vairāk kā 25 tēmas Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.

69 rindas
2.2KB

  1. package main
  2. import "time"
  3. func onClick(ss *openIDSessionData, in *InWechatMsg) {
  4. e := in.body.(EventMsg)
  5. openid := in.header.FromUserName
  6. switch e.EventKey {
  7. case "MEMBER_MYPROFILE":
  8. //kfSendTxtAs(openid, "profile", "孙鹏")
  9. startProc(AllProc["用户信息"], ss, in)
  10. case "MEMBER_CREDITS":
  11. onMembeCredits(ss, in)
  12. case "MEMBER_SEARCH":
  13. startProc(AllProc["搜索校友"], ss, in)
  14. case "MEMBER_FEEDBACK":
  15. startProc(AllProc["投诉反馈"], ss, in)
  16. case "EVENT_STARTONE":
  17. kfSendTxtAs(openid, "开启活动", "孙鹏")
  18. case "EVENT_LIVE":
  19. kfSendTxtAs(openid, "当前暂无直播,如果你报名了直播活动,会自动收到直播", "孙鹏")
  20. case "EVENT_CHECKIN":
  21. kfSendTxtAs(openid, "签到", "孙鹏")
  22. case "EVENT_LUCKYDRAW":
  23. kfSendTxtAs(openid, "抽奖", "孙鹏")
  24. case "EVENTS_UPCOMING":
  25. kfSendTxtAs(openid, "活动s", "孙鹏")
  26. case "CAREERDEV_JOBS":
  27. kfSendTxtAs(openid, "工作", "孙鹏")
  28. case "CAREERDEV_INDUSTRY":
  29. kfSendTxtAs(openid, "业界", "孙鹏")
  30. case "CAREERDEV_OUTREACH":
  31. kfSendTxtAs(openid, "out", "孙鹏")
  32. case "CAREERDEV_HIT":
  33. kfSendTxtAs(openid, "母校", "孙鹏")
  34. case "CAREERDEV_HELP":
  35. kfSendTxtAs(openid, "互助", "孙鹏")
  36. default:
  37. kfSendTxt(openid, e.EventKey)
  38. }
  39. in.replyText("")
  40. }
  41. func onMembeCredits(ss *openIDSessionData, in *InWechatMsg) {
  42. msg := `
  43. 积分是您对校友会的贡献记录,积分越高对校友会的贡献越大,也是对所有对校友会无私奉献的一种公开认可。
  44. 积分可以通过校友会兑换成奖金或纪念品。
  45. 余额是您在校友会活动中的奖金余额,根据活动内容,以现金,卡,或者礼物的形式兑现。
  46. `
  47. kfSendTxtAs(ss.OpenID, msg, "孙鹏")
  48. info, found, err := crmFindLeadByOpenID(ss.OpenID)
  49. if found && err == nil {
  50. url := ""
  51. first := "截至" + time.Now().Format("2006-01-02 15:04:06 Mon MST -07") + " 您的积分,奖品,余额,如下\n\n" +
  52. "积分:无"
  53. name := info.LastName
  54. addr := info.EmailAddress
  55. card := info.ID
  56. balance := "澳币 $0 "
  57. remark := "奖品:无\n\n余额可联络财务兑现,奖品余额30过期" + "\n请确保您的姓名,地址信息正确"
  58. templateSendAccountBalance(ss.OpenID, url, first, remark, name, addr, card, balance)
  59. }
  60. }