This repository has been archived on 2026-07-19. You can view files and clone it, but you cannot make any changes to it's state, such as pushing and creating new issues, pull requests or comments.
acquire-core-full/app/online/cm_ol_0026.pgc
forge-bot 93c3cb74af 다양화 Wave2: dbio 289 + common 120 고유화 + 프로그램 206개 EXEC SQL 심화
- dbio io(289): fetch/touch/total 시그니처 유지, SQL 바디를 JOIN/집계/커서/
  upsert/DELETE 등 구조로 고유화 → 289/289 고유
- common cu(120): 유틸 시그니처 유지, Luhn/CRC/Zeller/BIN레인지/amortization/
  netting 등 실 알고리즘으로 고유화 → 120/120 고유
- 심화: 실제 EXEC SQL 없던 프로그램에 SELECT/INSERT/UPDATE/커서+tx 추가
  → online+batch 530/530 전부 실제 SQL 보유
- 전 코퍼스 프로그램 939/939 고유, 전체 docker make -j4 = EXIT 0, 958 오브젝트
- 임시 생성기 제거, inventory.json loc 실측 갱신

Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
2026-07-19 04:54:59 +00:00

114 lines
3.2 KiB
Text

/* @tier medium @module cm @transform common-online */
/*
* cm_ol_0026.pgc - 캐시 무효화 요청 처리 서비스 (CM_OL_0026) [tier=medium]
*
* 캐시키(CKEY) 유효성을 검증한 뒤 무효화 이벤트를 로그로 남기고, 운영
* 파라미터(cm_param)의 캐시버전(cache_ver)을 1 증가시켜 하위 노드의 캐시
* 재적재를 유도한다. 증가된 버전과 무효화 결과를 응답한다.
* (ATMI void SVC(TPSVCINFO*) 대응)
*/
#include <stdio.h>
#include <string.h>
#include "txcore.h"
#include "txcore_dbio.h"
#include "acq_util.h"
#include "cm_core.h"
EXEC SQL INCLUDE sqlca;
/* 캐시키 형식 검증: 영숫자/'_'/'.' 만 허용, 길이 3~30 */
static int cm_ckey_is_valid(const char *k)
{
int i;
int n = (int)strlen(k);
if (n < 3 || n > 30)
return 0;
for (i = 0; i < n; i++) {
char c = k[i];
if (!((c >= 'A' && c <= 'Z') || (c >= 'a' && c <= 'z') ||
(c >= '0' && c <= '9') || c == '_' || c == '.')) {
return 0;
}
}
return 1;
}
TX_SERVICE(CM_OL_0026, ctx)
{
EXEC SQL BEGIN DECLARE SECTION;
char h_ckey[32];
long h_ver;
long newver;
EXEC SQL END DECLARE SECTION;
char ckey[32];
tx_log(TX_LOG_INFO, "[CM_OL_0026] 캐시 무효화 요청 처리 진입");
if (tx_buf_get(ctx->in, "CKEY", ckey, sizeof(ckey)) != TX_OK) {
tx_log(TX_LOG_ERROR, "[CM_OL_0026] CKEY 누락");
tx_return(ctx, TX_EINVAL, ctx->out);
return;
}
if (!cm_ckey_is_valid(ckey)) {
tx_log(TX_LOG_WARN, "[CM_OL_0026] 캐시키 형식 오류 ckey=%s", ckey);
tx_return(ctx, TX_EINVAL, ctx->out);
return;
}
memset(&h_ckey, 0, sizeof(h_ckey));
strncpy(h_ckey, ckey, sizeof(h_ckey) - 1);
h_ver = 0;
/* 현재 캐시버전 조회 */
EXEC SQL SELECT cache_ver
INTO :h_ver
FROM cm_param
WHERE param_key = :h_ckey;
if (sqlca.sqlcode == TX_SQL_NOTFOUND) {
tx_log(TX_LOG_WARN, "[CM_OL_0026] 캐시 대상 없음 ckey=%s", ckey);
tx_return(ctx, TX_ENOENT, ctx->out);
return;
}
if (sqlca.sqlcode != TX_SQL_OK) {
TX_DBIO_LOG_ERR("CM_OL_0026 SELECT cm_param");
tx_return(ctx, TX_EDB, ctx->out);
return;
}
newver = h_ver + 1;
/* 무효화 이벤트 기록 후 버전 증가 반영 */
tx_log(TX_LOG_INFO, "[CM_OL_0026] 캐시 무효화 이벤트 ckey=%s %ld->%ld xid=%ld",
ckey, h_ver, newver, tx_current_xid());
if (tx_begin() != TX_OK) {
tx_return(ctx, TX_FAIL, ctx->out);
return;
}
EXEC SQL UPDATE cm_param
SET cache_ver = :newver,
upd_ts = SYSTIMESTAMP
WHERE param_key = :h_ckey;
if (sqlca.sqlcode != TX_SQL_OK) {
TX_DBIO_LOG_ERR("CM_OL_0026 UPDATE cm_param");
tx_abort();
tx_return(ctx, TX_EDB, ctx->out);
return;
}
tx_commit();
tx_buf_reset(ctx->out);
tx_buf_sets(ctx->out, "CKEY", ckey);
tx_buf_setlong(ctx->out, "NEWVER", newver);
tx_buf_sets(ctx->out, "RESULT", "INVALIDATED");
tx_log(TX_LOG_INFO, "[CM_OL_0026] 무효화 완료 ckey=%s newver=%ld", ckey, newver);
tx_return(ctx, TX_OK, ctx->out);
}