1 PACKAGE BODY IEM_DIAG_ACT_AUTHENTICATE_PVT AS
2 /* $Header: iemdautb.pls 115.2 2003/01/20 22:40:17 chtang noship $ */
3
4 PROCEDURE init IS
5 BEGIN
6 null;
7 END init;
8
9
10 PROCEDURE cleanup IS
11 BEGIN
12 null;
13 END cleanup;
14
15 PROCEDURE runTest(inputs IN JTF_DIAG_INPUTTBL,
16 reports OUT NOCOPY JTF_DIAG_REPORT,
17 reportClob OUT NOCOPY CLOB) IS
18 reportStr LONG;
19 counter NUMBER;
20 dummy_v2t JTF_DIAGNOSTIC_COREAPI.v2t;
21 c_userid VARCHAR2(50);
22 statusStr VARCHAR2(50) := 'SUCCESS';
23 errStr VARCHAR2(4000);
24 fixInfo VARCHAR2(4000);
25 isFatal VARCHAR2(50);
26 l_accounts varchar2(5000);
27 l_succeed_accounts varchar2(5000);
28 l_db_link iem_db_connections.db_link%type;
29 l_db_name iem_db_servers.db_name%type;
30 l_db_server_tbl jtf_varchar2_Table_100:=jtf_varchar2_Table_100();
31 l_count number;
32 l_link_count number;
33
34 l_account_rec iem_diag_act_authenticate_pvt.account_type;
35 Type get_account_rec is REF CURSOR ;
36 email_account_cur get_account_rec;
37 l_string varchar2(2000);
38 l_str VARCHAR2(2000);
39 l_ret NUMBER;
40 l_stat varchar2(10);
41 l_data varchar2(255);
42 l_im_link varchar2(200);
43 l_im_link1 varchar2(200);
44 BEGIN
45 JTF_DIAGNOSTIC_ADAPTUTIL.setUpVars;
46 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport('@html');
47 JTF_DIAGNOSTIC_COREAPI.insert_style_sheet;
48
49 l_string := 'select email_user, domain, db_server_id, email_password from iem_email_accounts';
50
51 -- Start looping through all email accounts defined in SSA
52 OPEN email_account_cur FOR l_string;
53 LOOP
54
55 FETCH email_account_cur into l_account_rec;
56 EXIT WHEN email_account_cur%NOTFOUND;
57
58 IEM_DB_CONNECTIONS_PVT.select_item(
59 p_api_version_number =>1.0,
60 p_db_server_id =>l_account_rec.db_server_id,
61 p_is_admin =>'A',
62 x_db_link=>l_im_link1,
63 x_return_status =>l_stat,
64 x_msg_count => l_count,
65 x_msg_data => l_data);
66
67
68 If l_im_link1 is null then
69 l_im_link:=null;
70 else
71 l_im_link:='@'||l_im_link1;
72 end if;
73
74 l_str:='begin :l_ret:=im_api.authenticate'||l_im_link||'(:a_user,:a_domain,:a_password);end; ';
75 EXECUTE IMMEDIATE l_str using OUT l_ret,l_account_rec.email_user,l_account_rec.domain,l_account_rec.email_password;
76 IF l_ret<>0 THEN
77 l_accounts := l_accounts || l_account_rec.email_user || '@' || l_account_rec.domain || ', ';
78 statusStr := 'FAILURE';
79 fixInfo := FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_HELP');
80 isFatal := 'FALSE';
81 --ELSE
82 -- l_succeed_accounts := l_succeed_accounts || l_account_rec.email_user || '@' || l_account_rec.domain || ', ';
83 END IF;
84
85
86
87 END LOOP; -- for each email account
88
89 close email_account_cur;
90
91 if (statusStr = 'SUCCESS') then
92 reportStr := '<font color=blue> ' || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC2_SUCCESS') || ' </font><p>';
93 else
94 l_accounts := RTRIM(l_accounts, ', ');
95 --l_accounts := RTRIM(l_succeed_accounts, ', ');
96 errStr := errStr || l_accounts || ' ' || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC2_ERROR1');
97 --errStr := errStr || l_accounts || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC2_ERROR1') || ' ' ||
98 -- l_succeed_accounts || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC2_ERROR2');
99 JTF_DIAGNOSTIC_COREAPI.ActionErrorPrint(FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC2_SUM1'));
100 end if;
101
102 JTF_DIAGNOSTIC_ADAPTUTIL.addStringToReport(reportClob,reportStr);
103
104 reports := JTF_DIAGNOSTIC_ADAPTUTIL.constructReport(statusStr,errStr,fixInfo,isFatal);
105 reportClob := JTF_DIAGNOSTIC_ADAPTUTIL.getReportClob;
106 END runTest;
107
108
109 PROCEDURE getComponentName(name OUT NOCOPY VARCHAR2) IS
110 BEGIN
111 name := FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_COMPONENT1');
112 END getComponentName;
113
114 PROCEDURE getTestDesc(descStr OUT NOCOPY VARCHAR2) IS
115 BEGIN
116 descStr := '<ul><li> ' || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC2_DESC') || ' <li> ' || FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TC2_DESC1') || ' </ul>';
117 END getTestDesc;
118
119 PROCEDURE getTestName(name OUT NOCOPY VARCHAR2) IS
120 BEGIN
121 name := FND_MESSAGE.GET_STRING('IEM', 'IEM_DIAG_TESTCASE_NAME2');
122 END getTestName;
123
124 FUNCTION getTestMode RETURN INTEGER IS
125 BEGIN
126 return JTF_DIAGNOSTIC_ADAPTUTIL.BOTH_MODE;
127 END getTestMode;
128
129 PROCEDURE getDefaultTestParams(defaultInputvalues OUT NOCOPY JTF_DIAG_INPUTTBL) IS
130 tempInput JTF_DIAG_INPUTTBL;
131 BEGIN
132 null;
133 END getDefaultTestParams;
134
135 END;
|
|
|