LOGON_RECORD LOGON_RECORD_TYPE;

BEGIN

SQL_STATEMENT := '0';

V_EXIST := 0;

SELECT SEQ_LOGON.NEXTVAL id,

SYSDATE,

SYS_CONTEXT ('USERENV', 'SESSIONID'),

SYS_CONTEXT ('USERENV', 'OS_USER'),

SYS_CONTEXT ('USERENV', 'IP_ADDRESS'),

SYS_CONTEXT ('USERENV', 'TERMINAL'),

SYS_CONTEXT ('USERENV', 'HOST'),

ORA_LOGIN_USER

INTO LOGON_RECORD

FROM DUAL;

INSERT INTO TAB_AUDIT_LOGON_RECORD

VALUES LOGON_RECORD;

SELECT COUNT ( * )

INTO V_EXIST

FROM TAB_AUTHORIZATION_LOGON_USER

WHERE ip_address = LOGON_RECORD.ip_address

AND terminal = LOGON_RECORD.terminal

AND valid = 1;

IF V_EXIST IS NULL

THEN

V_EXIST := 0;

END IF;

IF V_EXIST > 0

THEN

DBMS_OUTPUT.put_line ('Authorized user, please be careful operation!');

ELSE

SP_KILL_SESSION (LOGON_RECORD.HOST_NAME);

raise_application_error (-20001,

'Restricted LOGON! Please contact DBA');

END IF;

EXCEPTION

WHEN NO_DATA_FOUND

THEN

DBMS_OUTPUT.put_line ('Login session does not exist');

WHEN OTHERS

THEN

RAISE_APPLICATION_ERROR (-20002,

'Restricted LOGON! Please contact DBA!');

END;

/

CREATE OR REPLACE PROCEDURE SYS.SP_KILL_SESSION (P_HOST_NAME IN VARCHAR)

AS

SQL_STATEMENT VARCHAR2 (500);

BEGIN

SQL_STATEMENT := '0';

--定义游标