데이터베이스를 사랑하는 사람들의 모임 데이터베이스 사랑넷

추가 질문 입니다.

라이브러리는 구조를 바꾸는 방식으로 해결하려 합니다.

그전에 쿼리 질문 드리겠습니다.

아래 쿼리는 오라클 쿼리입니다.

CREATE OR REPLACE PACKAGE SPXDB AS

--Digest Algo

ALGO_SHA1 CONSTANT INTEGER := 1;

--Ciper Algo

ALGO_SEED CONSTANT INTEGER := 256;

FUNCTION INIT RETURN INTEGER;

FUNCTION FINAL RETURN INTEGER;

FUNCTION GetAlgoSize(IN algoID INTEGER,IN Base64 INTEGER, IN len INTEGER) RETURN INTEGER;

FUNCTION ENCRYPT(IN pData VARCHAR , IN keyID VARCHAR, IN algoID INTEGER) RETURN VARCHAR;

FUNCTION DECRYPT(IN eData VARCHAR , IN keyID VARCHAR, IN algoID INTEGER) RETURN VARCHAR;

FUNCTION HASH(IN pData VARCHAR , IN keyID VARCHAR, IN algoID INTEGER) RETURN VARCHAR;

FUNCTION HASHEX(IN pData VARCHAR , IN keyID VARCHAR, IN algoID INTEGER) RETURN VARCHAR;

FUNCTION HMAC(IN pData VARCHAR , IN keyID VARCHAR, IN algoID INTEGER) RETURN VARCHAR;

END SPXDB;

위쿼리가 postgresql 에서는 생성이 되질 않네요. 상수 선언 부에대한 부분이 잘못된건가요???

노진광(kite20)님이 2012-07-17 14:30에 작성한 댓글입니다.

CREATE OR REPLACE PACKAGE BODY SPXDB AS

--Digest Algo

DECLARE

ALGO_SHA1 INTEGER := 1;

ALGO_SHA256 INTEGER := 2;

ALGO_SHA384 INTEGER := 3;

ALGO_SHA512 INTEGER := 4;

ALGO_MD5 INTEGER := 5;

--Ciper Algo

ALGO_SEED INTEGER := 256;

ALGO_ARIA128 INTEGER := 512;

ALGO_ARIA256 INTEGER := 1024;

ALGO_AES128 INTEGER := 1280;

spxdb_init_check INTEGER := 0;

--begin

--INIT

FUNCTION INIT()

RETURN INTEGER is

BEGIN

spxdb_init_check := SPXO_Initialize();

RETURN spxdb_init_check;

--dbms_output.put_line('INIT'); 오라클용

END;

--FINAL

FUNCTION FINAL()

RETURN INTEGER is

BEGIN

spxdb_init_check := SPXO_Finalize();

RETURN spxdb_init_check;

--dbms_output.put_line('FINAL'); 오라클용

END;

--GetLength

FUNCTION GetAlgoSize(algoID INTEGER, Base64 INTEGER, len INTEGER)

RETURN INTEGER is

DECLARE nLength INTEGER;

BEGIN

nLength := SPXO_AlgoSize(algoID, Base64, len);

RETURN nLength;

END;

--ENCRYPT

FUNCTION ENCRYPT(pData VARCHAR , keyID VARCHAR, algoID INTEGER)

RETURN VARCHAR is

DECLARE plain VARCHAR(1024);

Enc VARCHAR(1024);

strEnc VARCHAR(512);

result INTEGER;

dKeyID VARCHAR(30);

BEGIN

-- KEY ID Select (NULL : DEFAULT KEY)

IF keyID IS NULL THEN

dKeyID := 'MCURIX_NULL';

ELSE

dKeyID := keyID;

END IF;

--plain := UTL_VARCHAR.CAST_TO_VARCHAR(pData); 오라클용

plain := text2varchar(pData); -- text - > varchar

result := SPXO_EncryptData(plain, Enc, 0, dKeyID, algoID);

IF result < 0 THEN

--insert into sphinxdb (col1) values ('INIT ERROR');

RETURN NULL;

END IF;

--strEnc := UTL_VARCHAR.CAST_TO_VARCHAR(Enc); 오라클용

strEnc := Enc;

RETURN strEnc;

END;

END SPXDB;

위 쿼리는 제가 패키지쿼리 오라클용을 수정한 쿼리입니다.

DECLARE

ALGO_SHA1 INTEGER := 1; 이런 식의 선언부는 샘플 함수로 정상 생성되는것을 확인 했습니다. 위 쿼리 실행시

ERROR: syntax error at or near "PACKAGE" 위치: 19

줄 1: CREATE OR REPLACE PACKAGE BODY acs

라는 구문 자체가 문제가 있는듯합니다.

아래는 postgresql 에서 제공하는 샘플입니다.

CREATE OR REPLACE PACKAGE BODY acs
AS
  FUNCTION add_user (
    user_id     IN users.user_id%TYPE DEFAULT NULL,
    object_type     IN acs_objects.object_type%TYPE DEFAULT 'user',
    creation_date   IN acs_objects.creation_date%TYPE DEFAULT sysdate,
    creation_user   IN acs_objects.creation_user%TYPE DEFAULT NULL,
    creation_ip     IN acs_objects.creation_ip%TYPE DEFAULT NULL,
  ...
  ) RETURN users.user_id%TYPE
  IS
    v_user_id       users.user_id%TYPE;
    v_rel_id        membership_rels.rel_id%TYPE;
  BEGIN
    v_user_id := acs_user.new (user_id, object_type, creation_date,
                creation_user, creation_ip, email, ...
    RETURN v_user_id;
  END;
END acs;
/
show errors

변수 선언 테스트 샘플

CREATE FUNCTION somefunc() RETURNS integer AS $$

DECLARE

quantity integer := 30;

BEGIN

RAISE NOTICE 'Quantity here is %', quantity; -- Quantity here is 30

quantity := 50;

-- Create a subblock

DECLARE

quantity integer := 80;

BEGIN

RAISE NOTICE 'Quantity here is %', quantity; -- Quantity here is 80

END;

RAISE NOTICE 'Quantity here is %', quantity; -- Quantity here is 50

RETURN quantity;

END;

$$ LANGUAGE plpgsql;

어디가 문젠지 기초부터 헤매이고 있는듯 합니다. 고수님들 조언을 부탁 합니다.~

노진광(kite20)님이 2012-07-18 11:20에 작성한 댓글입니다.
이 댓글은 2012-07-18 15:55에 마지막으로 수정되었습니다.