import os
import re
import time
import json
import shutil
import base64
import signal
import requests
import traceback
from PIL import Image
from datetime import datetime
from django.core.management import BaseCommand
from multiprocessing import Process, Queue
from openpyxl import load_workbook, Workbook

from settings import conf
from common.mixins import LoggerMixin
from common.tools.pdf_to_img import PDFHandler
from apps.doc import consts
from apps.doc.exceptions import OCR1Exception, OCR2Exception, LTGTException
from apps.doc.ocr.wb import BSWorkbook


class TIFFHandler:

    def __init__(self, path, img_save_path):
        self.path = path
        self.img_save_path = img_save_path
        self.img_path_list = []

    def extract_image(self):
        os.makedirs(self.img_save_path, exist_ok=True)
        tiff = Image.open(self.path)
        tiff.load()

        for i in range(tiff.n_frames):
            try:
                save_path = os.path.join(self.img_save_path, 'page_{0}.jpeg'.format(i))
                tiff.seek(i)
                tiff.save(save_path)
                self.img_path_list.append(save_path)
            except EOFError:
                break


class Command(BaseCommand, LoggerMixin):

    def __init__(self):
        super().__init__()
        self.log_base = '[folder dda process]'
        # 处理文件开关
        self.switch = True
        self.DATE_KEY = 'date'
        self.CLASSIFY_KEY = 'classify'
        self.RESULT_KEY = 'result'
        self.daily_wb_name = 'Output_{0}.xlsx'
        self.short_sleep_time = 10
        self.long_sleep_time = 3600
        # 睡眠时间
        self.sleep_time = float(conf.SLEEP_SECOND_FOLDER)
        # input folder
        self.input_dirs = conf.get_namespace('DDA_DIR_')
        self.field_map = {
            consts.IC_CLASSIFY: (consts.IC_CN_NAME, '有效期限', consts.IC_FIELD_ORDER_3, consts.IC_FIELD_ORDER_2),
            consts.BC_CLASSIFY: (consts.BC_CN_NAME, None, None, consts.BC_FIELD_ORDER_2),
            consts.PP_CLASSIFY: (consts.PP_CN_NAME, None, None, consts.PP_FIELD_ORDER),
            consts.EEP_CLASSIFY: (consts.EEP_CN_NAME, None, None, consts.EEP_FIELD_ORDER),
        }
        # ocr相关
        self.ocr_url = conf.OCR_URL_FOLDER
        self.ocr_url_2 = conf.OCR2_URL_FOLDER
        # self.ocr_url_4 = conf.IC_URL
        self.classify_set = {consts.IC_CLASSIFY, consts.PP_CLASSIFY, consts.EEP_CLASSIFY, consts.BC_CLASSIFY}
        # 优雅退出信号：15
        signal.signal(signal.SIGTERM, self.signal_handler)

    def signal_handler(self, sig, frame):
        self.switch = False  # 停止处理文件

    def license1_process(self, ocr_data, all_res, classify):
        # 类别：'0'身份证， '1'居住证
        license_data = ocr_data.get('data')
        if not license_data:
            return
        if isinstance(license_data, dict):
            license_data.pop('base64_img', '')
        if classify == consts.IC_CLASSIFY:
            id_card_dict = {}
            card_type = license_data.get('type', '')
            is_ic = card_type.startswith('身份证')
            is_info_side = card_type.endswith('信息面')
            id_card_dict['类别'] = '0' if is_ic else '1'
            if is_ic:
                field_map = consts.IC_MAP_0 if is_info_side else consts.IC_MAP_1
            else:
                field_map = consts.RP_MAP_0 if is_info_side else consts.RP_MAP_1
            for write_field, search_field in field_map:
                id_card_dict[write_field] = license_data.get('words_result', {}).get(search_field, {}).get('words', '')
            if not is_info_side:
                start_time = license_data.get('words_result', {}).get('签发日期', {}).get('words', '')
                end_time = license_data.get('words_result', {}).get('失效日期', {}).get('words', '')
                id_card_dict['有效期限'] = '{0}-{1}'.format(start_time, end_time)
            all_res.setdefault(classify, []).append(id_card_dict)
        else:
            all_res.setdefault(classify, []).extend(license_data)

    def license2_process(self, ocr_data, all_res, classify, img_path):
        pid, _, _, _, _, _ = consts.LICENSE_CLASSIFY_MAPPING.get(classify)
        file_data = ocr_data.get('section_img')
        if file_data is None:
            with open(img_path, 'rb') as f:
                base64_data = base64.b64encode(f.read())
                # 获取解码后的base64值
                file_data = base64_data.decode()
        json_data_2 = {
            "pid": str(pid),
            "filedata": file_data
        }

        for times in range(consts.RETRY_TIMES):
            try:
                start_time = time.time()
                ocr_2_response = requests.post(self.ocr_url_2, data=json_data_2)
                if ocr_2_response.status_code != 200:
                    raise OCR2Exception('ocr_2 status code: {0}'.format(ocr_2_response.status_code))
            except Exception as e:
                self.folder_log.warn(
                    '{0} [ocr_2 failed] [times={1}] [img_path={2}] [error={3}]'.format(
                        self.log_base, times, img_path, traceback.format_exc()))
            else:
                ocr_res_2 = json.loads(ocr_2_response.text)
                end_time = time.time()
                speed_time = int(end_time - start_time)
                self.folder_log.info(
                    '{0} [ocr_2 success] [img={1}] [speed_time={2}]'.format(
                        self.log_base, img_path, speed_time))

                if ocr_res_2.get('ErrorCode') in consts.SUCCESS_CODE_SET:
                    if pid == consts.BC_PID:
                        all_res.setdefault(classify, []).append(ocr_res_2)
                    else:
                        # 营业执照等
                        for result_dict in ocr_res_2.get('ResultList', []):
                            res_dict = {}
                            for field_dict in result_dict.get('FieldList', []):
                                res_dict[field_dict.get('chn_key', '')] = field_dict.get('value', '')
                            all_res.setdefault(classify, []).append(res_dict)
                break

    @staticmethod
    def parse_img_path(img_path):
        # 'page_{0}_img_{1}.{2}'.format(pno, img_index, ext)
        img_name, _ = os.path.splitext(os.path.basename(img_path))
        if re.match(r'page_\d+_img_\d+', img_name):
            part_list = img_name.split('_')
            return img_name, int(part_list[1])+1, int(part_list[3])+1
        else:
            return img_name, 1, 1

    @staticmethod
    def get_path(name, img_output_dir, wb_output_dir, pdf_output_dir):
        time_stamp = datetime.now().strftime('%Y-%m-%d_%H:%M:%S')
        new_name = '{0}_{1}'.format(time_stamp, name)
        img_save_path = os.path.join(img_output_dir, new_name)
        pdf_save_path = os.path.join(pdf_output_dir, new_name)
        excel_name = '{0}.xlsx'.format(os.path.splitext(new_name)[0])
        excel_path = os.path.join(wb_output_dir, excel_name)
        return img_save_path, excel_path, pdf_save_path

    def res_process(self, all_res, excel_path):
        try:
            wb = BSWorkbook(set(), set(), set(), set(), set())
            for classify, ress in all_res.items():
                sheet_name, key_field, side_field_order, src_field_order = self.field_map.get(classify)
                ws = wb.create_sheet(sheet_name)
                for res in ress:
                    if key_field is not None and key_field in res:
                        field_order = side_field_order
                    else:
                        field_order = src_field_order
                    for search_field, write_field in field_order:
                        field_value = res.get(search_field, '')
                        if isinstance(field_value, list):
                            ws.append((write_field, *field_value))
                        else:
                            ws.append((write_field, field_value))
                    ws.append((None,))
            wb.remove_base_sheet()
            wb.save(excel_path)
        except Exception as e:
            self.folder_log.error('{0} [wb build error] [path={1}] [error={2}]'.format(
                self.log_base, excel_path, traceback.format_exc()))

    def basename(self, path):
        # A basename() variant which first strips the trailing slash, if present.
        # Thus we always get the last component of the path, even for directories.
        sep = os.path.sep + (os.path.altsep or '')
        return os.path.basename(path.rstrip(sep))

    def ocr_process(self, img_path, all_res):
        if os.path.exists(img_path):
            # TODO 图片验证
            with open(img_path, 'rb') as f:
                base64_data = base64.b64encode(f.read())
                # 获取解码后的base64值
                file_data = base64_data.decode()
            json_data = {
                "file": file_data,
            }
            for times in range(consts.RETRY_TIMES):
                try:
                    start_time = time.time()
                    ocr_response = requests.post(self.ocr_url, json=json_data)
                    if ocr_response.status_code != 200:
                        raise OCR1Exception('{0} ocr status code: {1}'.format(self.log_base, ocr_response.status_code))
                except Exception as e:
                    self.folder_log.warn('{0} [ocr failed] [times={1}] [img_path={2}] [error={3}]'.format(
                        self.log_base, times, img_path, traceback.format_exc()))
                else:
                    ocr_res = ocr_response.json()
                    end_time = time.time()
                    speed_time = int(end_time - start_time)
                    self.folder_log.info('{0} [ocr success] [img={1}] [speed_time={2}]'.format(
                        self.log_base, img_path, speed_time))

                    if isinstance(ocr_res, dict):
                        if ocr_res.get('code') == 1:
                            data_list = ocr_res.get('data', [])
                            if isinstance(data_list, list):
                                for ocr_data in data_list:
                                    classify = ocr_data.get('classify')
                                    if classify not in self.classify_set:
                                        continue
                                    if classify in consts.LICENSE_CLASSIFY_SET_1:
                                        self.license1_process(ocr_data, all_res, classify)
                                    elif classify in consts.LICENSE_CLASSIFY_SET_2:
                                        self.license2_process(ocr_data, all_res, classify, img_path)
                    break
            else:
                self.folder_log.warn('{0} [ocr failed] [img_path={1}]'.format(self.log_base, img_path))
        
    def images_process(self, img_path_list, excel_path):
        all_res = {}
        for img_path in img_path_list:
            self.ocr_process(img_path, all_res)
        # if len(all_res) > 0:
        self.res_process(all_res, excel_path)
        return all_res

    def pdf_process(self, name, path, img_output_dir, wb_output_dir, pdf_output_dir):
        if os.path.exists(path):
            rebuild_res = None
            try:
                img_save_path, excel_path, pdf_save_path = self.get_path(
                    name, img_output_dir, wb_output_dir, pdf_output_dir)
                self.folder_log.info('{0} [pdf to img start] [path={1}]'.format(self.log_base, path))
                pdf_handler = PDFHandler(path, img_save_path)
                pdf_handler.extract_image()
                self.folder_log.info('{0} [pdf to img end] [path={1}]'.format(self.log_base, path))
            except Exception as e:
                self.folder_log.error('{0} [pdf to img error] [path={1}] [error={2}]'.format(
                    self.log_base, path, traceback.format_exc()))
                raise e
            else:
                rebuild_res = self.images_process(pdf_handler.img_path_list, excel_path)
                shutil.move(path, pdf_save_path)
                return rebuild_res

    def tif_process(self, name, path, img_output_dir, wb_output_dir, tiff_output_dir):
        if os.path.exists(path):
            rebuild_res = None
            try:
                img_save_path, excel_path, tiff_save_path = self.get_path(
                    name, img_output_dir, wb_output_dir, tiff_output_dir)
                self.folder_log.info('{0} [tiff to img start] [path={1}]'.format(self.log_base, path))
                tiff_handler = TIFFHandler(path, img_save_path)
                tiff_handler.extract_image()
                self.folder_log.info('{0} [tiff to img end] [path={1}]'.format(self.log_base, path))
            except Exception as e:
                self.folder_log.error('{0} [tiff to img error] [path={1}] [error={2}]'.format(
                    self.log_base, path, traceback.format_exc()))
                raise e
            else:
                rebuild_res = self.images_process(tiff_handler.img_path_list, excel_path)
                shutil.move(path, tiff_save_path)
                return rebuild_res

    def img_process(self, name, path, wb_output_dir, img_output_dir, pdf_output_dir):
        rebuild_res = None
        try:
            img_save_path, excel_path, _ = self.get_path(name, img_output_dir, wb_output_dir, pdf_output_dir)
        except Exception as e:
            self.folder_log.error('{0} [get path error] [path={1}] [error={2}]'.format(
                self.log_base, path, traceback.format_exc()))
        else:
            rebuild_res = self.images_process([path], excel_path)
            shutil.move(path, img_save_path)
            return rebuild_res

    def wb_process(self, wb_dir, result_queue):
        while self.switch:
            result_list = []
            date_str = None
            for i in range(100):
                try:
                    result = result_queue.get(block=False)
                except Exception as e:
                    time.sleep(self.short_sleep_time)
                else:
                    if date_str is None:
                        date_str = result[self.DATE_KEY]
                        result_list.append(result)
                    elif result[self.DATE_KEY] == date_str:
                        result_list.append(result)
                    else:
                        break
            if date_str is None:
                time.sleep(self.long_sleep_time)
                continue
            else:
                wb_name = self.daily_wb_name.format(date_str)
                wb_path = os.path.join(wb_dir, wb_name)
                if os.path.isfile(wb_path):
                    wb = load_workbook(wb_path)
                else:
                    wb = Workbook()
                for result in result_list:
                    try:
                        sheet_name, key_field, side_field_order, field_order = self.field_map[result[self.CLASSIFY_KEY]]
                        if key_field is not None and key_field in result[self.RESULT_KEY]:
                            head_fields = [a for a, _ in side_field_order]
                        else:
                            head_fields = [a for a, _ in field_order]
                        row = []
                        for field in head_fields:
                            row.append(result[self.RESULT_KEY].get(field))
                        if sheet_name in wb.sheetnames:
                            ws = wb.get_sheet_by_name(sheet_name)
                        else:
                            ws = wb.create_sheet(sheet_name)
                            ws.append(head_fields)
                        ws.append(row)
                    except Exception as e:
                        self.folder_log.info('{0} [daily wb failed] [result={1}] [error={2}]'.format(
                            self.log_base, result, traceback.format_exc()))
                if len(wb.sheetnames) > 1 and 'Sheet' in wb.sheetnames:
                    wb.remove(wb.get_sheet_by_name('Sheet'))
                wb.save(wb_path)

    def folder_process(self, input_dir, result_queue):
        while not os.path.isdir(input_dir):
            self.folder_log.info('{0} [input dir is not dir] [input_dir={1}]'.format(self.log_base, input_dir))
            if self.switch:
                time.sleep(self.sleep_time)
                continue
            else:
                return
        output_dir = os.path.join(os.path.dirname(input_dir), 'Output')
        img_output_dir = os.path.join(output_dir, 'image')
        wb_output_dir = os.path.join(output_dir, 'excel')
        pdf_output_dir = os.path.join(output_dir, 'pdf')
        tiff_output_dir = os.path.join(output_dir, 'tiff')
        failed_output_dir = os.path.join(output_dir, 'failed')
        os.makedirs(output_dir, exist_ok=True)
        os.makedirs(img_output_dir, exist_ok=True)
        os.makedirs(wb_output_dir, exist_ok=True)
        os.makedirs(pdf_output_dir, exist_ok=True)
        os.makedirs(tiff_output_dir, exist_ok=True)
        os.makedirs(failed_output_dir, exist_ok=True)
        os_error_filename_set = set()
        while self.switch:
            # if not os.path.isdir(input_dir):
            #     self.folder_log.info('{0} [input dir is not dir] [input_dir={1}]'.format(self.log_base, input_dir))
            #     time.sleep(self.sleep_time)
            #     continue
            # 1. 从input dir获取pdf or image
            list_dir = os.listdir(input_dir)
            if not list_dir and len(os_error_filename_set) == 0:
                self.folder_log.info('{0} [input dir empty] [input_dir={1}]'.format(self.log_base, input_dir))
                time.sleep(self.sleep_time)
                continue
            all_file_set = set(list_dir)
            true_file_set = all_file_set - os_error_filename_set
            if len(true_file_set) == 0 and len(os_error_filename_set) > 0:
                true_file_set.add(os_error_filename_set.pop())
            for name in true_file_set:
                path = os.path.join(input_dir, name)
                try:
                    if not os.path.exists(path):
                        self.folder_log.info('{0} [path is not exists] [path={1}]'.format(self.log_base, path))
                        continue
                    elif os.path.isfile(path):
                        self.folder_log.info('{0} [file start] [path={1}]'.format(self.log_base, path))
                        if name.endswith('.pdf') or name.endswith('.PDF'):
                            result = self.pdf_process(name, path, img_output_dir, wb_output_dir,
                                                      pdf_output_dir)
                        elif name.endswith('.tif') or name.endswith('.TIF') or name.endswith('.tiff') or \
                                name.endswith('.TIFF'):
                            result = self.tif_process(name, path, img_output_dir, wb_output_dir,
                                                      tiff_output_dir)
                        else:
                            result = self.img_process(name, path, wb_output_dir, img_output_dir,
                                                      pdf_output_dir)
                        self.folder_log.info('{0} [file end] [path={1}]'.format(self.log_base, path))
                    else:
                        result = None
                        self.folder_log.info('{0} [path is dir] [path={1}]'.format(self.log_base, path))
                        failed_path = os.path.join(failed_output_dir, '{0}_{1}'.format(time.time(), name))
                        shutil.move(path, failed_path)
                except OSError:
                    os_error_filename_set.add(name)
                    self.folder_log.error('{0} [os error] [path={1}] [error={2}]'.format(
                        self.log_base, path, traceback.format_exc()))
                except Exception as e:
                    try:
                        self.folder_log.error('{0} [file error] [path={1}] [error={2}]'.format(self.log_base, path,
                                                                                               traceback.format_exc()))
                        failed_path = os.path.join(failed_output_dir, '{0}_{1}'.format(time.time(), name))
                        shutil.move(path, failed_path)
                    except Exception as e:
                        os_error_filename_set.add(name)
                        self.folder_log.error('{0} [file move error] [path={1}] [error={2}]'.format(
                            self.log_base, path, traceback.format_exc()))
                else:
                    if isinstance(result, dict) and len(result) > 0:
                        date_str = time.strftime("%Y-%m-%d")
                        for classify, res_list in result.items():
                            for res in res_list:
                                result_queue.put(
                                    {
                                        self.CLASSIFY_KEY: classify,
                                        self.RESULT_KEY: res,
                                        self.DATE_KEY: date_str
                                    }
                                )

    def handle(self, *args, **kwargs):
        if len(self.input_dirs) == 0:
            return
        result_queue = Queue()
        process_list = []
        one_input_dir = None
        for _, input_dir in self.input_dirs.items():
            if one_input_dir is None:
                one_input_dir = input_dir
            process = Process(target=self.folder_process, args=(input_dir, result_queue))
            process_list.append(process)

        wb_dir = os.path.dirname(one_input_dir)
        wb_process = Process(target=self.wb_process, args=(wb_dir, result_queue, ))
        process_list.append(wb_process)

        for p in process_list:
            p.start()
        for p in process_list:
            p.join()

        self.folder_log.info('{0} [stop safely]'.format(self.log_base))