1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License (the "License").
6  * You may not use this file except in compliance with the License.
7  *
8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9  * or http://www.opensolaris.org/os/licensing.
10  * See the License for the specific language governing permissions
11  * and limitations under the License.
12  *
13  * When distributing Covered Code, include this CDDL HEADER in each
14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15  * If applicable, add the following below this CDDL HEADER, with the
16  * fields enclosed by brackets "[]" replaced with your own identifying
17  * information: Portions Copyright [yyyy] [name of copyright owner]
18  *
19  * CDDL HEADER END
20  */
21 
22 /*
23  * Copyright (c) 1995, 2010, Oracle and/or its affiliates. All rights reserved.
24  */
25 
26 #include	<dlfcn.h>
27 #include	<stdio.h>
28 #include	"_debug.h"
29 #include	"msg.h"
30 #include	"libld.h"
31 
32 void
Dbg_audit_lib(Rt_map * clmp,const char * lib,int type)33 Dbg_audit_lib(Rt_map *clmp, const char *lib, int type)
34 {
35 	Lm_list		*clml = LIST(clmp);
36 	const char	*str;
37 
38 	if (DBG_NOTCLASS(DBG_C_AUDITING))
39 		return;
40 
41 	Dbg_util_nl(clml, DBG_NL_STD);
42 	switch (type) {
43 	case DBG_AUD_PRELOAD:
44 		str = MSG_ORIG(MSG_AUD_PRELOAD);
45 		break;
46 	case DBG_AUD_GLOBAL:
47 		str = MSG_ORIG(MSG_AUD_GLOBAL);
48 		break;
49 	case DBG_AUD_LOCAL:
50 		/* FALLTHROUGH */
51 	default:
52 		str = MSG_ORIG(MSG_STR_EMPTY);
53 	}
54 
55 	dbg_print(clml, MSG_INTL(MSG_AUD_LIB), lib, NAME(clmp), str);
56 }
57 
58 void
Dbg_audit_interface(Lm_list * lml,const char * lib,const char * interface)59 Dbg_audit_interface(Lm_list *lml, const char *lib, const char *interface)
60 {
61 	if (DBG_NOTCLASS(DBG_C_AUDITING))
62 		return;
63 
64 	dbg_print(lml, MSG_INTL(MSG_AUD_INTERFACE), lib, interface);
65 }
66 
67 void
Dbg_audit_version(Lm_list * lml,const char * lib,uint_t overs,uint_t nvers)68 Dbg_audit_version(Lm_list *lml, const char *lib, uint_t overs, uint_t nvers)
69 {
70 	if (DBG_NOTCLASS(DBG_C_AUDITING))
71 		return;
72 
73 	dbg_print(lml, MSG_INTL(MSG_AUD_VERSION), lib, overs, nvers);
74 }
75 
76 void
Dbg_audit_activity(Lm_list * lml,const char * lib,const char * obj,uint_t flags)77 Dbg_audit_activity(Lm_list *lml, const char *lib, const char *obj, uint_t flags)
78 {
79 	Conv_inv_buf_t	inv_buf;
80 
81 	if (DBG_NOTCLASS(DBG_C_AUDITING))
82 		return;
83 
84 	Dbg_util_nl(lml, DBG_NL_STD);
85 	dbg_print(lml, MSG_INTL(MSG_AUD_ACTIVITY), lib, obj,
86 	    conv_la_activity(flags, CONV_FMT_ALT_DEFAULT, &inv_buf));
87 }
88 
89 void
Dbg_audit_preinit(Lm_list * lml,const char * lib,const char * obj)90 Dbg_audit_preinit(Lm_list *lml, const char *lib, const char *obj)
91 {
92 	if (DBG_NOTCLASS(DBG_C_AUDITING))
93 		return;
94 
95 	Dbg_util_nl(lml, DBG_NL_STD);
96 	dbg_print(lml, MSG_INTL(MSG_AUD_PREINIT), lib, obj);
97 }
98 
99 void
Dbg_audit_objsearch(Lm_list * lml,int call,const char * lib,const char * oobj,uint_t flags,const char * nobj)100 Dbg_audit_objsearch(Lm_list *lml, int call, const char *lib,
101     const char *oobj, uint_t flags, const char *nobj)
102 {
103 	Conv_la_search_buf_t	la_search_buf;
104 
105 	if (DBG_NOTCLASS(DBG_C_AUDITING))
106 		return;
107 
108 	if (call == DBG_AUD_CALL) {
109 		Dbg_util_nl(lml, DBG_NL_STD);
110 		dbg_print(lml, MSG_INTL(MSG_AUD_OBJSEARCH), lib, oobj,
111 		    conv_la_search(flags, &la_search_buf));
112 	} else {
113 		if (nobj)
114 			dbg_print(lml, MSG_INTL(MSG_AUD_OBJSEARCH_R), lib,
115 			    oobj, nobj);
116 		else
117 			dbg_print(lml, MSG_INTL(MSG_AUD_OBJSEARCH_S), lib,
118 			    oobj);
119 	}
120 }
121 
122 void
Dbg_audit_objfilter(Lm_list * lml,int call,const char * lib,const char * filter,const char * filtee,const char * ref)123 Dbg_audit_objfilter(Lm_list *lml, int call, const char *lib,
124     const char *filter, const char *filtee, const char *ref)
125 {
126 	if (DBG_NOTCLASS(DBG_C_AUDITING))
127 		return;
128 
129 	if (call == DBG_AUD_CALL) {
130 		Dbg_util_nl(lml, DBG_NL_STD);
131 		dbg_print(lml, MSG_INTL(MSG_AUD_OBJFILTER), lib, filter,
132 		    filtee, ref);
133 	} else
134 		dbg_print(lml, MSG_INTL(MSG_AUD_OBJFILTER_R), lib, filter);
135 }
136 
137 void
Dbg_audit_objopen(Lm_list * lml,int call,const char * lib,const char * obj,uint_t flags,Boolean ignore)138 Dbg_audit_objopen(Lm_list *lml, int call, const char *lib, const char *obj,
139     uint_t flags, Boolean ignore)
140 {
141 	Conv_la_bind_buf_t	la_bind_buf;
142 
143 	if (DBG_NOTCLASS(DBG_C_AUDITING))
144 		return;
145 
146 	if (call == DBG_AUD_CALL) {
147 		Dbg_util_nl(lml, DBG_NL_STD);
148 		dbg_print(lml, MSG_INTL(MSG_AUD_OBJOPEN), lib, obj);
149 	} else {
150 		if (ignore)
151 			dbg_print(lml, MSG_INTL(MSG_AUD_OBJOPEN_RI), lib, obj,
152 			    conv_la_bind(flags, &la_bind_buf));
153 		else
154 			dbg_print(lml, MSG_INTL(MSG_AUD_OBJOPEN_R), lib, obj,
155 			    conv_la_bind(flags, &la_bind_buf));
156 	}
157 }
158 
159 void
Dbg_audit_objclose(Lm_list * lml,const char * lib,const char * obj)160 Dbg_audit_objclose(Lm_list *lml, const char *lib, const char *obj)
161 {
162 	if (DBG_NOTCLASS(DBG_C_AUDITING))
163 		return;
164 
165 	Dbg_util_nl(lml, DBG_NL_STD);
166 	dbg_print(lml, MSG_INTL(MSG_AUD_OBJCLOSE), lib, obj);
167 }
168 
169 void
Dbg_audit_symbind(Lm_list * lml,int call,const char * lib,const char * name,Addr value,uint_t flags)170 Dbg_audit_symbind(Lm_list *lml, int call, const char *lib, const char *name,
171     Addr value, uint_t flags)
172 {
173 	Conv_la_symbind_buf_t	la_symbind_buf;
174 
175 	if (DBG_NOTCLASS(DBG_C_AUDITING))
176 		return;
177 
178 	if (call == DBG_AUD_CALL) {
179 		Dbg_util_nl(lml, DBG_NL_STD);
180 		dbg_print(lml, MSG_INTL(MSG_AUD_SYMBIND), lib, name,
181 		    EC_XWORD(value), conv_la_symbind(flags, &la_symbind_buf));
182 	} else {
183 		dbg_print(lml, MSG_INTL(MSG_AUD_SYMBIND_R), lib, name,
184 		    EC_XWORD(value), conv_la_symbind(flags, &la_symbind_buf));
185 	}
186 }
187 
188 void
Dbg_audit_pltenter(Lm_list * lml,int call,const char * lib,const char * name,Addr value)189 Dbg_audit_pltenter(Lm_list *lml, int call, const char *lib, const char *name,
190     Addr value)
191 {
192 	if (DBG_NOTCLASS(DBG_C_AUDITING))
193 		return;
194 
195 	if (call == DBG_AUD_CALL) {
196 		Dbg_util_nl(lml, DBG_NL_STD);
197 		dbg_print(lml, MSG_INTL(MSG_AUD_PLTENTER), lib, name,
198 		    EC_XWORD(value));
199 	} else {
200 		dbg_print(lml, MSG_INTL(MSG_AUD_PLTENTER_R), lib, name,
201 		    EC_XWORD(value));
202 	}
203 }
204 
205 void
Dbg_audit_pltexit(Lm_list * lml,const char * lib,const char * name)206 Dbg_audit_pltexit(Lm_list *lml, const char *lib, const char *name)
207 {
208 	if (DBG_NOTCLASS(DBG_C_AUDITING))
209 		return;
210 
211 	dbg_print(lml, MSG_INTL(MSG_AUD_PLTEXIT), lib, name);
212 }
213 
214 void
Dbg_audit_skip(Lm_list * lml,const char * name,const char * lmid)215 Dbg_audit_skip(Lm_list *lml, const char *name, const char *lmid)
216 {
217 	if (DBG_NOTCLASS(DBG_C_AUDITING | DBG_C_FILES))
218 		return;
219 
220 	dbg_print(lml, MSG_INTL(MSG_AUD_SKIP), name, lmid);
221 }
222 
223 void
Dbg_audit_terminate(Lm_list * lml,const char * name)224 Dbg_audit_terminate(Lm_list *lml, const char *name)
225 {
226 	if (DBG_NOTCLASS(DBG_C_FILES))
227 		return;
228 
229 	dbg_print(lml, MSG_INTL(MSG_AUD_TERM), name);
230 }
231 
232 void
Dbg_audit_ignore(Rt_map * lmp)233 Dbg_audit_ignore(Rt_map *lmp)
234 {
235 	if (DBG_NOTCLASS(DBG_C_AUDITING | DBG_C_FILES))
236 		return;
237 
238 	dbg_print(LIST(lmp), MSG_INTL(MSG_AUD_IGNORE), NAME(lmp));
239 }
240