test

PLSQL (nu)cas client の使い方. $Id: Document.txt,v 1.3 2005-11-12 14:00:29+09 naito Exp $ 1. インストールが必要なもの PACKAGE_NUAPPS_CAS.sql PACKAGE_URL_ENCODE.sql 2. サンプルソース以下のように, プログラム内で利用しているパラメータを "parameter" に格納します. その後, nuapps_cas.do_login_by_param を呼び出します. 呼び出し後には, nuapps_cas.findValue を用いて該当の値を表示します. パラメータの値の中に以下のものが含まれる場合にはこの方法をとる必要があります. ・ '"' (0x22), "<", ">", "&" ・ textarea 内の改行文字 ---------------------------------------------------------------------------------------------------- -------- $Id: Document.txt,v 1.3 2005-11-12 14:00:29+09 naito Exp $ CREATE OR REPLACE PROCEDURE TEST0022(text1 in varchar2 default null, textarea0 in varchar2 default null, textarea1 in varchar2 default null, ticket in varchar default null, casrequestmethod in varchar default null, encoding in varchar default null) IS rc nuapps_cas.casrc ; parameter nuapps_cas.URLparameterTable ; BEGIN parameter := nuapps_cas.URLparameterTable() ; parameter.extend(3) ; parameter(1).param := 'text1' ; parameter(1).value := text1 ; parameter(2).param := 'textarea0' ; parameter(2).value := textarea0 ; parameter(3).param := 'textarea1' ; parameter(3).value := textarea1 ; rc := nuapps_cas.do_login_by_param(ticket, parameter) ; htp.p('') ; htp.p('') ; htp.p('') ; htp.p('test') ; htp.p('') ; if rc.status = nuapps_cas.SUCCESS then htp.p('

Please Input

') ; htp.p('') ; htp.p('

') ; htp.p('Ticket = ' || rc.nextticket || '
') ; htp.p('NetID = ' || rc.netid || '
') ; htp.p('Mail = ' || rc.mail || '
') ; htp.p('FullName = ' || rc.fullNameJ || '
') ; htp.p('UID = ' || rc.uid || '
') ; -- htp.p('RESULT =

 ' || rc.result || '

') ; end if; htp.p('') ; END; / ---------------------------------------------------------------------------------------------------- この呼び出し以外にも do_login_3 を使った呼び出しが可能です. この場合には url_in にパラメータを書き並べます. ---------------------------------------------------------------------------------------------------- -------- $Id: Document.txt,v 1.3 2005-11-12 14:00:29+09 naito Exp $ CREATE OR REPLACE PROCEDURE TEST0022(text1 in varchar2 default null, textarea0 in varchar2 default null, textarea1 in varchar2 default null, ticket in varchar default null, casrequestmethod in varchar default null, encoding in varchar default null) IS rc nuapps_cas.casrc ; url_in varchar2(32767) ; BEGIN url_in := '/TEST0022?ticket=' || ticket || '&' || 'text1=' || text1 || '&' || 'textarea0=' || textarea0 || '&' || 'textarea1=' || textarea1 ; rc := nuapps_cas.do_login_3(ticket, url_in, 'TEST0022') ; htp.p('') ; htp.p('') ; htp.p('') ; htp.p('test') ; htp.p('') ; if rc.status = nuapps_cas.SUCCESS then htp.p('

Please Input

') ; htp.p('') ; htp.p('

 ' || rc.result || '

') ; end if; htp.p('') ; END; / ---------------------------------------------------------------------------------------------------- 以上.