mirror of
https://github.com/zhamao-robot/zhamao-framework.git
synced 2026-03-18 05:04:51 +08:00
324 lines
12 KiB
PHP
324 lines
12 KiB
PHP
<?php
|
||
|
||
declare(strict_types=1);
|
||
|
||
namespace ZM\Utils;
|
||
|
||
use Exception;
|
||
use ReflectionException;
|
||
use ReflectionMethod;
|
||
use ZM\Annotation\CQ\CQCommand;
|
||
use ZM\API\CQ;
|
||
use ZM\Config\ZMConfig;
|
||
use ZM\Console\Console;
|
||
use ZM\Entity\MatchResult;
|
||
use ZM\Event\EventManager;
|
||
use ZM\Requests\ZMRequest;
|
||
use ZM\Store\WorkerCache;
|
||
use ZM\Utils\Manager\WorkerManager;
|
||
|
||
class MessageUtil
|
||
{
|
||
/**
|
||
* 下载消息中 CQ 码的所有图片，通过 url
|
||
* @param $msg
|
||
* @return array|false
|
||
*/
|
||
public static function downloadCQImage($msg, ?string $path = null)
|
||
{
|
||
if ($path === null) {
|
||
$path = DataProvider::getDataFolder() . 'images/';
|
||
}
|
||
if (!is_dir($path)) {
|
||
@mkdir($path);
|
||
}
|
||
$path = realpath($path);
|
||
if ($path === false) {
|
||
Console::warning(zm_internal_errcode('E00059') . '指定的路径错误不存在！');
|
||
return false;
|
||
}
|
||
$files = [];
|
||
$cq = CQ::getAllCQ($msg, true);
|
||
foreach ($cq as $v) {
|
||
if ($v->type == 'image') {
|
||
$result = ZMRequest::downloadFile($v->params['url'], $path . '/' . $v->params['file']);
|
||
if ($result === false) {
|
||
Console::warning(zm_internal_errcode('E00060') . '图片 ' . $v->params['url'] . ' 下载失败！');
|
||
return false;
|
||
}
|
||
$files[] = $path . '/' . $v->params['file'];
|
||
}
|
||
}
|
||
return $files;
|
||
}
|
||
|
||
/**
|
||
* 检查消息中是否含有图片 CQ 码
|
||
* @param $msg
|
||
*/
|
||
public static function containsImage($msg): bool
|
||
{
|
||
$cq = CQ::getAllCQ($msg, true);
|
||
foreach ($cq as $v) {
|
||
if ($v->type == 'image') {
|
||
return true;
|
||
}
|
||
}
|
||
return false;
|
||
}
|
||
|
||
public static function isAtMe($msg, $me_id): bool
|
||
{
|
||
return strpos($msg, CQ::at($me_id)) !== false;
|
||
}
|
||
|
||
/**
|
||
* 通过本地地址返回图片的 CQ 码
|
||
* type == 0 : 返回图片的 base64 CQ 码
|
||
* type == 1 : 返回图片的 file://路径 CQ 码（路径必须为绝对路径）
|
||
* type == 2 : 返回图片的 http://xxx CQ 码（默认为 /images/ 路径就是文件对应所在的目录）
|
||
* @param $file
|
||
*/
|
||
public static function getImageCQFromLocal($file, int $type = 0): string
|
||
{
|
||
switch ($type) {
|
||
case 0:
|
||
return CQ::image('base64://' . base64_encode(file_get_contents($file)));
|
||
case 1:
|
||
return CQ::image('file://' . $file);
|
||
case 2:
|
||
$info = pathinfo($file);
|
||
return CQ::image(ZMConfig::get('global', 'http_reverse_link') . '/images/' . $info['basename']);
|
||
}
|
||
return '';
|
||
}
|
||
|
||
/**
|
||
* 分割字符，将用户消息通过空格或换行分割为数组
|
||
* @param $msg
|
||
* @return array|string[]
|
||
*/
|
||
public static function splitCommand($msg): array
|
||
{
|
||
$word = explode_msg(str_replace("\r", '', $msg));
|
||
if (empty($word)) {
|
||
$word = [''];
|
||
}
|
||
if (count(explode("\n", $word[0])) >= 2) {
|
||
$enter = explode("\n", $msg);
|
||
$first = split_explode(' ', array_shift($enter));
|
||
$word = array_merge($first, $enter);
|
||
foreach ($word as $k => $v) {
|
||
$word[$k] = trim($v);
|
||
}
|
||
}
|
||
return $word;
|
||
}
|
||
|
||
/**
|
||
* @param $msg
|
||
* @param $obj
|
||
*/
|
||
public static function matchCommand($msg, $obj): MatchResult
|
||
{
|
||
$ls = EventManager::$events[CQCommand::class] ?? [];
|
||
if (is_array($msg)) {
|
||
$msg = self::arrayToStr($msg);
|
||
}
|
||
$word = self::splitCommand($msg);
|
||
$matched = new MatchResult();
|
||
foreach ($ls as $v) {
|
||
if (array_diff([$v->match, $v->pattern, $v->regex, $v->keyword, $v->end_with, $v->start_with], ['']) == []) {
|
||
continue;
|
||
}
|
||
if (($v->user_id == 0 || ($v->user_id == $obj['user_id']))
|
||
&& ($v->group_id == 0 || ($v->group_id == ($obj['group_id'] ?? 0)))
|
||
&& ($v->message_type == '' || ($v->message_type == $obj['message_type']))
|
||
) {
|
||
if (($word[0] != '' && $v->match == $word[0]) || in_array($word[0], $v->alias)) {
|
||
array_shift($word);
|
||
$matched->match = $word;
|
||
$matched->object = $v;
|
||
$matched->status = true;
|
||
break;
|
||
}
|
||
if ($v->start_with != '' && mb_substr($msg, 0, mb_strlen($v->start_with)) === $v->start_with) {
|
||
$matched->match = [mb_substr($msg, mb_strlen($v->start_with))];
|
||
$matched->object = $v;
|
||
$matched->status = true;
|
||
break;
|
||
}
|
||
if ($v->end_with != '' && mb_substr($msg, 0 - mb_strlen($v->end_with)) === $v->end_with) {
|
||
$matched->match = [substr($msg, 0, strripos($msg, $v->end_with))];
|
||
$matched->object = $v;
|
||
$matched->status = true;
|
||
break;
|
||
}
|
||
if ($v->keyword != '' && mb_strpos($msg, $v->keyword) !== false) {
|
||
$matched->match = explode($v->keyword, $msg);
|
||
$matched->object = $v;
|
||
$matched->status = true;
|
||
break;
|
||
}
|
||
if ($v->pattern != '') {
|
||
$match = match_args($v->pattern, $msg);
|
||
if ($match !== false) {
|
||
$matched->match = $match;
|
||
$matched->object = $v;
|
||
$matched->status = true;
|
||
break;
|
||
}
|
||
} elseif ($v->regex != '') {
|
||
if (preg_match('/' . $v->regex . '/u', $msg, $word2) != 0) {
|
||
$matched->match = $word2;
|
||
$matched->object = $v;
|
||
$matched->status = true;
|
||
break;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
return $matched;
|
||
}
|
||
|
||
/**
|
||
* @param $command
|
||
* @throws Exception
|
||
*/
|
||
public static function addShortCommand($command, string $reply)
|
||
{
|
||
for ($i = 0; $i < ZM_WORKER_NUM; ++$i) {
|
||
WorkerManager::sendActionToWorker($i, 'add_short_command', [$command, $reply]);
|
||
}
|
||
}
|
||
|
||
/**
|
||
* 字符串转数组
|
||
* @param $msg
|
||
* @param false $trim_text
|
||
*/
|
||
public static function strToArray($msg, bool $ignore_space = true, bool $trim_text = false): array
|
||
{
|
||
$arr = [];
|
||
while (($rear = mb_strstr($msg, '[CQ:')) !== false && ($end = mb_strstr($rear, ']', true)) !== false) {
|
||
// 把 [CQ: 前面的文字生成段落
|
||
$front = mb_strstr($msg, '[CQ:', true);
|
||
// 如果去掉空格都还有文字，或者不去掉空格有字符，且不忽略空格，则生成段落，否则不生成
|
||
if (($trim_front = trim($front)) !== '' || ($front !== '' && !$ignore_space)) {
|
||
$arr[] = ['type' => 'text', 'data' => ['text' => CQ::decode($trim_text ? $trim_front : $front)]];
|
||
}
|
||
// 处理 CQ 码
|
||
$content = mb_substr($end, 4);
|
||
$cq = explode(',', $content);
|
||
$object_type = array_shift($cq);
|
||
$object_params = [];
|
||
foreach ($cq as $v) {
|
||
$key = mb_strstr($v, '=', true);
|
||
$object_params[$key] = CQ::decode(mb_substr(mb_strstr($v, '='), 1), true);
|
||
}
|
||
$arr[] = ['type' => $object_type, 'data' => $object_params];
|
||
$msg = mb_substr(mb_strstr($rear, ']'), 1);
|
||
}
|
||
if (($trim_msg = trim($msg)) !== '' || ($msg !== '' && !$ignore_space)) {
|
||
$arr[] = ['type' => 'text', 'data' => ['text' => CQ::decode($trim_text ? $trim_msg : $msg)]];
|
||
}
|
||
return $arr;
|
||
}
|
||
|
||
/**
|
||
* 数组转字符串
|
||
* 纪念一下，这段代码完全由AI生成，没有人知道它是怎么写的，这句话是我自己写的，不知道是不是有人知道的
|
||
* @author Copilot
|
||
*/
|
||
public static function arrayToStr(array $array): string
|
||
{
|
||
$str = '';
|
||
foreach ($array as $v) {
|
||
if ($v['type'] == 'text') {
|
||
$str .= $v['data']['text'];
|
||
} else {
|
||
$str .= '[CQ:' . $v['type'];
|
||
foreach ($v['data'] as $key => $value) {
|
||
$str .= ',' . $key . '=' . CQ::encode($value, true);
|
||
}
|
||
$str .= ']';
|
||
}
|
||
}
|
||
return $str;
|
||
}
|
||
|
||
/**
|
||
* 根据注解树生成命令列表、帮助
|
||
*
|
||
* @return array 帮助信息，每个元素对应一个命令的帮助信息，格式为：命令名（其他触发条件）：命令描述
|
||
*/
|
||
public static function generateCommandHelp(): array
|
||
{
|
||
try {
|
||
if ($cache = WorkerCache::get('command_help')) {
|
||
return $cache;
|
||
}
|
||
} catch (Exception $e) {
|
||
// 不做任何处理，尝试重新生成
|
||
}
|
||
$helps = [];
|
||
foreach (EventManager::$events[CQCommand::class] as $annotation) {
|
||
if ($annotation instanceof CQCommand) {
|
||
try {
|
||
$reflection = new ReflectionMethod($annotation->class, $annotation->method);
|
||
} catch (ReflectionException $e) {
|
||
Console::warning('注解解析错误：' . $e->getMessage());
|
||
continue;
|
||
}
|
||
$doc = $reflection->getDocComment();
|
||
if ($doc) {
|
||
// 匹配出不以@开头，且后接中文或任意非空格字符，并以换行符结尾的字符串，也就是命令描述
|
||
preg_match_all('/\*\s((?!@)[\x{4e00}-\x{9fa5}\S]+)(\r\n|\r|\n)/u', $doc, $matches);
|
||
// 多行描述用分号分隔
|
||
$help = implode('；', $matches[1]);
|
||
if (empty($help)) {
|
||
Console::warning('命令 ' . $annotation->class . '::' . $annotation->method . ' 没有描述！');
|
||
$help = '无描述';
|
||
}
|
||
} else {
|
||
Console::warning('命令 ' . $annotation->class . '::' . $annotation->method . ' 没有描述！');
|
||
$help = '无描述';
|
||
}
|
||
|
||
// 可以触发命令的参数
|
||
$possible_keys = [
|
||
'match' => '%s',
|
||
'pattern' => '符合”%s“',
|
||
'regex' => '匹配“%s”',
|
||
'start_with' => '以”%s“开头',
|
||
'end_with' => '以”%s“结尾',
|
||
'keyword' => '包含“%s”',
|
||
'alias' => '%s',
|
||
];
|
||
$command_seg = [];
|
||
foreach ($possible_keys as $key => $help_format) {
|
||
// 如果定义了该参数，则添加到帮助信息中
|
||
if (isset($annotation->{$key}) && !empty($annotation->{$key})) {
|
||
if (is_iterable($annotation->{$key})) {
|
||
foreach ($annotation->{$key} as $item) {
|
||
$command_seg[] = sprintf($help_format, $item);
|
||
}
|
||
} else {
|
||
$command_seg[] = sprintf($help_format, $annotation->{$key});
|
||
}
|
||
}
|
||
}
|
||
// 第一个触发参数为主命令名
|
||
$command = array_shift($command_seg);
|
||
if (count($command_seg) > 0) {
|
||
$command .= '（' . implode('，', $command_seg) . '）';
|
||
}
|
||
$helps[] = sprintf('%s：%s', $command, $help);
|
||
}
|
||
}
|
||
// 放到跨进程缓存以供取用
|
||
WorkerCache::set('command_helps', $helps);
|
||
return $helps;
|
||
}
|
||
}
|