// Package timer 群管定时器
package timer

import (
	"fmt"
	"io"
	"os"
	"strconv"
	"strings"
	"time"
	"unicode"

	log "github.com/sirupsen/logrus"
	zero "github.com/wdvxdr1123/ZeroBot"
	"github.com/wdvxdr1123/ZeroBot/message"
)

type (
	TimeStamp = Timer
)

const (
	// 定时器存储位置
	datapath = "data/manager/" // 数据目录
	pbfile   = datapath + "timers.pb"
)

var (
	// 记录每个定时器以便取消
	timersmap TimersMap
	// 定时器map
	Timers *(map[string]*Timer)
	// @全体成员
	atall = message.MessageSegment{
		Type: "at",
		Data: map[string]string{
			"qq": "all",
		},
	}
)

func init() {
	go func() {
		time.Sleep(time.Second)
		err := os.MkdirAll(datapath, 0755)
		if err != nil {
			panic(err)
		}
		loadTimers()
		Timers = &timersmap.Timers
	}()
}

func judgeHM(ts *TimeStamp) {
	if ts.Hour < 0 || ts.Hour == int32(time.Now().Hour()) {
		if ts.Minute < 0 || ts.Minute == int32(time.Now().Minute()) {
			zero.RangeBot(func(id int64, ctx *zero.Ctx) bool {
				ctx.Event = new(zero.Event)
				ctx.Event.GroupID = int64(ts.Grpid)
				if ts.Url == "" {
					ctx.SendChain(atall, message.Text(ts.Alert))
				} else {
					ctx.SendChain(atall, message.Text(ts.Alert), message.Image(ts.Url).Add("cache", "0"))
				}
				return false
			})
		}
	}
}

// RegisterTimer 注册计时器
func RegisterTimer(ts *TimeStamp, save bool) {
	key := GetTimerInfo(ts)
	if Timers != nil {
		t, ok := (*Timers)[key]
		if t != ts && ok { // 避免重复注册定时器
			t.Enable = false
		}
		(*Timers)[key] = ts
		if save {
			SaveTimers()
		}
	}
	log.Printf("[群管]注册计时器[%t]%s", ts.Enable, key)
	for ts.Enable {
		if ts.Month < 0 || ts.Month == int32(time.Now().Month()) {
			if ts.Day < 0 || ts.Day == int32(time.Now().Day()) {
				judgeHM(ts)
			} else if ts.Day == 0 {
				if ts.Week < 0 || ts.Week == int32(time.Now().Weekday()) {
					judgeHM(ts)
				}
			}
		}
		time.Sleep(time.Minute)
	}
}

// SaveTimers 保存当前计时器
func SaveTimers() error {
	data, err := timersmap.Marshal()
	if err != nil {
		return err
	} else if _, err := os.Stat(datapath); err == nil || os.IsExist(err) {
		f, err1 := os.OpenFile(pbfile, os.O_WRONLY|os.O_TRUNC|os.O_CREATE, 0644)
		if err1 != nil {
			return err1
		} else {
			defer f.Close()
			_, err2 := f.Write(data)
			return err2
		}
	} else {
		return nil
	}
}

// ListTimers 列出本群所有计时器
func ListTimers(grpID uint64) []string {
	// 数组默认长度为map长度,后面append时,不需要重新申请内存和拷贝,效率很高
	if Timers != nil {
		g := strconv.FormatUint(grpID, 10)
		keys := make([]string, 0, len(*Timers))
		for k := range *Timers {
			if strings.Contains(k, g) {
				start := strings.Index(k, "]")
				keys = append(keys, strings.ReplaceAll(k[start+1:]+"\n", "-1", "每"))
			}
		}
		return keys
	} else {
		return nil
	}
}

func loadTimers() {
	if _, err := os.Stat(pbfile); err == nil || os.IsExist(err) {
		f, err := os.Open(pbfile)
		if err == nil {
			data, err1 := io.ReadAll(f)
			if err1 == nil {
				if len(data) > 0 {
					timersmap.Unmarshal(data)
					for _, t := range timersmap.Timers {
						go RegisterTimer(t, false)
					}
					return
				}
			}
		}
	}
	timersmap.Timers = make(map[string]*Timer)
}

// GetTimerInfo 获得标准化定时字符串
func GetTimerInfo(ts *TimeStamp) string {
	return fmt.Sprintf("[%d]%d月%d日%d周%d:%d", ts.Grpid, ts.Month, ts.Day, ts.Week, ts.Hour, ts.Minute)
}

// GetFilledTimeStamp 获得填充好的ts
func GetFilledTimeStamp(dateStrs []string, matchDateOnly bool) *TimeStamp {
	monthStr := []rune(dateStrs[1])
	dayWeekStr := []rune(dateStrs[2])
	hourStr := []rune(dateStrs[3])
	minuteStr := []rune(dateStrs[4])

	var ts TimeStamp
	ts.Month = chineseNum2Int(monthStr)
	if (ts.Month != -1 && ts.Month <= 0) || ts.Month > 12 { // 月份非法
		log.Println("[群管]月份非法！")
		return &ts
	}
	lenOfDW := len(dayWeekStr)
	if lenOfDW == 4 { // 包括末尾的"日"
		dayWeekStr = []rune{dayWeekStr[0], dayWeekStr[2]} // 去除中间的十
		ts.Day = chineseNum2Int(dayWeekStr)
		if (ts.Day != -1 && ts.Day <= 0) || ts.Day > 31 { // 日期非法
			log.Println("[群管]日期非法1！")
			return &ts
		}
	} else if dayWeekStr[lenOfDW-1] == rune('日') { // xx日
		dayWeekStr = dayWeekStr[:lenOfDW-1]
		ts.Day = chineseNum2Int(dayWeekStr)
		if (ts.Day != -1 && ts.Day <= 0) || ts.Day > 31 { // 日期非法
			log.Println("[群管]日期非法2！")
			return &ts
		}
	} else if dayWeekStr[0] == rune('每') { // 每周
		ts.Week = -1
	} else { // 周x
		ts.Week = chineseNum2Int(dayWeekStr[1:])
		if ts.Week == 7 { // 周天是0
			ts.Week = 0
		}
		if ts.Week < 0 || ts.Week > 6 { // 星期非法
			ts.Week = -11
			log.Println("[群管]星期非法！")
			return &ts
		}
	}
	if len(hourStr) == 3 {
		hourStr = []rune{hourStr[0], hourStr[2]} // 去除中间的十
	}
	ts.Hour = chineseNum2Int(hourStr)
	if ts.Hour < -1 || ts.Hour > 23 { // 小时非法
		log.Println("[群管]小时非法！")
		return &ts
	}
	if len(minuteStr) == 3 {
		minuteStr = []rune{minuteStr[0], minuteStr[2]} // 去除中间的十
	}
	ts.Minute = chineseNum2Int(minuteStr)
	if ts.Minute < -1 || ts.Minute > 59 { // 分钟非法
		log.Println("[群管]分钟非法！")
		return &ts
	}
	if !matchDateOnly {
		urlStr := dateStrs[5]
		if urlStr != "" { // 是图片url
			ts.Url = urlStr[3:] // utf-8下用为3字节
			log.Println("[群管]" + ts.Url)
			if !strings.HasPrefix(ts.Url, "http") {
				ts.Url = "illegal"
				log.Println("[群管]url非法！")
				return &ts
			}
		}
		ts.Alert = dateStrs[6]
		ts.Enable = true
	}
	return &ts
}

// chineseNum2Int 汉字数字转int，仅支持-10～99，最多两位数，其中"每"解释为-1，"每二"为-2，以此类推
func chineseNum2Int(rs []rune) int32 {
	r := -1
	l := len(rs)
	mai := rune('每')
	if unicode.IsDigit(rs[0]) { // 默认可能存在的第二位也为int
		r, _ = strconv.Atoi(string(rs))
	} else {
		if rs[0] == mai {
			if l == 2 {
				r = -chineseChar2Int(rs[1])
			}
		} else if l == 1 {
			r = chineseChar2Int(rs[0])
		} else {
			ten := chineseChar2Int(rs[0])
			if ten != 10 {
				ten *= 10
			}
			ge := chineseChar2Int(rs[1])
			if ge == 10 {
				ge = 0
			}
			r = ten + ge
		}
	}
	return int32(r)
}

// chineseChar2Int 处理单个字符的映射0~10
func chineseChar2Int(c rune) int {
	if c == rune('日') || c == rune('天') { // 周日/周天
		return 7
	} else {
		match := []rune("零一二三四五六七八九十")
		for i, m := range match {
			if c == m {
				return i
			}
		}
		return 0
	}
}