LÁZÁR Imre AI Agent
c2cf6dab13
common_cadline_libraries (CRM hardlock/db/users classes; upstream cadline_web/cadcommonlib), maintenance/ (ARCHLine.XP license backend; upstream cadline_web/maintenance), maintenance2/. Vetted live files (byte-truth); upstream repos in PROVENANCE.md. NOTE: could be git submodules — kept as live files for byte-fidelity. Signed-off-by: LÁZÁR Imre <imre@illusion.hu> Assisted-by: claude-code@claude-opus-4-8
26 lines
1.0 KiB
PHP
26 lines
1.0 KiB
PHP
<?php
|
|
|
|
/*******************************************************************************
|
|
* Megkeresendő / Non-profit / Felhasználó beállítása,
|
|
******************************************************************************/
|
|
if (!isset($config)) require_once('config.php');
|
|
|
|
$msh->query("TRUNCATE TABLE " . CRMADATBAZIS . ".switch");
|
|
$msh->query("INSERT INTO `" . CRMADATBAZIS . "`.switch
|
|
SELECT h.hlUser,CONCAT(',',group_concat(p.prVerID),',') AS prVerID
|
|
FROM (
|
|
SELECT hlUser,hlNum
|
|
FROM `" . CRMADATBAZIS . "`.`hardlock`
|
|
WHERE hlStat=1 AND CONVERT(hlUser,UNSIGNED)>0 AND LENGTH(hlUser)<=6 AND hlUser>=1 AND hlUser<=999999
|
|
) h
|
|
LEFT OUTER JOIN (
|
|
SELECT prHlNum AS hlNum,MAX(prVerID) AS prVerID
|
|
FROM (SELECT * FROM `" . CRMADATBAZIS . "`.`h_programs` WHERE prStat=0) AS `h_programs`
|
|
GROUP BY prHlNum
|
|
) p ON h.hlNum=p.hlNum
|
|
WHERE prVerID IS NOT NULL
|
|
GROUP BY h.hlUser
|
|
ORDER BY hlUser;");
|
|
|
|
$msh->query("DELETE FROM `" . CRMADATBAZIS . "`.writelog WHERE `datum`<date_add(CURRENT_TIMESTAMP,INTERVAL -30 day) LIMIT 1000;");
|