/[gentoo-projects]/pax-utils/scanelf.c
Gentoo

Diff of /pax-utils/scanelf.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 1.229 Revision 1.261
1/* 1/*
2 * Copyright 2003-2007 Gentoo Foundation 2 * Copyright 2003-2012 Gentoo Foundation
3 * Distributed under the terms of the GNU General Public License v2 3 * Distributed under the terms of the GNU General Public License v2
4 * $Header: /var/cvsroot/gentoo-projects/pax-utils/Attic/scanelf.c,v 1.229 2011/09/27 19:29:19 vapier Exp $ 4 * $Header: /var/cvsroot/gentoo-projects/pax-utils/Attic/scanelf.c,v 1.261 2014/03/20 07:59:27 vapier Exp $
5 * 5 *
6 * Copyright 2003-2007 Ned Ludd - <solar@gentoo.org> 6 * Copyright 2003-2012 Ned Ludd - <solar@gentoo.org>
7 * Copyright 2004-2007 Mike Frysinger - <vapier@gentoo.org> 7 * Copyright 2004-2012 Mike Frysinger - <vapier@gentoo.org>
8 */ 8 */
9 9
10static const char *rcsid = "$Id: scanelf.c,v 1.229 2011/09/27 19:29:19 vapier Exp $"; 10static const char rcsid[] = "$Id: scanelf.c,v 1.261 2014/03/20 07:59:27 vapier Exp $";
11const char argv0[] = "scanelf"; 11const char argv0[] = "scanelf";
12 12
13#include "paxinc.h" 13#include "paxinc.h"
14 14
15#define IS_MODIFIER(c) (c == '%' || c == '#' || c == '+') 15#define IS_MODIFIER(c) (c == '%' || c == '#' || c == '+')
44static char be_quiet = 0; 44static char be_quiet = 0;
45static char be_verbose = 0; 45static char be_verbose = 0;
46static char be_wewy_wewy_quiet = 0; 46static char be_wewy_wewy_quiet = 0;
47static char be_semi_verbose = 0; 47static char be_semi_verbose = 0;
48static char *find_sym = NULL; 48static char *find_sym = NULL;
49static array_t _find_sym_arr = array_init_decl, *find_sym_arr = &_find_sym_arr;
50static array_t _find_sym_regex_arr = array_init_decl, *find_sym_regex_arr = &_find_sym_regex_arr;
49static char *find_lib = NULL; 51static char *find_lib = NULL;
50static array_t _find_lib_arr = array_init_decl, *find_lib_arr = &_find_lib_arr; 52static array_t _find_lib_arr = array_init_decl, *find_lib_arr = &_find_lib_arr;
51static char *find_section = NULL; 53static char *find_section = NULL;
52static array_t _find_section_arr = array_init_decl, *find_section_arr = &_find_section_arr; 54static array_t _find_section_arr = array_init_decl, *find_section_arr = &_find_section_arr;
53static char *out_format = NULL; 55static char *out_format = NULL;
54static char *search_path = NULL; 56static char *search_path = NULL;
55static char fix_elf = 0; 57static char fix_elf = 0;
56static char g_match = 0; 58static char g_match = 0;
57static char use_ldcache = 0; 59static char use_ldcache = 0;
60static char use_ldpath = 0;
58 61
59static char **qa_textrels = NULL; 62static char **qa_textrels = NULL;
60static char **qa_execstack = NULL; 63static char **qa_execstack = NULL;
61static char **qa_wx_load = NULL; 64static char **qa_wx_load = NULL;
62static char *root; 65static int root_fd = AT_FDCWD;
63 66
64static int match_bits = 0; 67static int match_bits = 0;
65static unsigned int match_perms = 0; 68static unsigned int match_perms = 0;
66static void *ldcache = NULL; 69static void *ldcache = NULL;
67static size_t ldcache_size = 0; 70static size_t ldcache_size = 0;
68static unsigned long setpax = 0UL; 71static unsigned long setpax = 0UL;
69 72
70static int has_objdump = 0; 73static int has_objdump = 0;
71 74
72/* find the path to a file by name */ 75/* find the path to a file by name */
73static char *which(const char *fname) 76static int bin_in_path(const char *fname)
74{ 77{
75 static char fullpath[__PAX_UTILS_PATH_MAX]; 78 char fullpath[__PAX_UTILS_PATH_MAX];
76 char *path, *p; 79 char *path, *p;
77 80
78 path = getenv("PATH"); 81 path = getenv("PATH");
79 if (!path) 82 if (!path)
80 return NULL; 83 return 0;
81 84
82 path = xstrdup(path);
83 while ((p = strrchr(path, ':')) != NULL) { 85 while ((p = strrchr(path, ':')) != NULL) {
84 snprintf(fullpath, sizeof(fullpath), "%s/%s", p + 1, fname); 86 snprintf(fullpath, sizeof(fullpath), "%s/%s", p + 1, fname);
85 *p = 0; 87 *p = 0;
86 if (access(fullpath, R_OK) != -1) { 88 if (access(fullpath, R_OK) != -1)
87 free(path); 89 return 1;
88 return fullpath;
89 } 90 }
90 } 91
91 free(path); 92 return 0;
93}
94
95static FILE *fopenat_r(int dir_fd, const char *path)
96{
97 int fd = openat(dir_fd, path, O_RDONLY|O_CLOEXEC);
98 if (fd == -1)
92 return NULL; 99 return NULL;
100 return fdopen(fd, "re");
93} 101}
94 102
95/* 1 on failure. 0 otherwise */ 103static const char *root_rel_path(const char *path)
96static int rematch(const char *regex, const char *match, int cflags)
97{ 104{
98 regex_t preg; 105 /*
99 int ret; 106 * openat() will ignore the dirfd if path starts with
100 107 * a /, so consume all of that noise
101 if ((match == NULL) || (regex == NULL)) 108 *
102 return EXIT_FAILURE; 109 * XXX: we don't handle relative paths like ../ that
103 110 * break out of the --root option, but for now, just
104 if ((ret = regcomp(&preg, regex, cflags))) { 111 * don't do that :P.
105 char err[256]; 112 */
106 113 if (root_fd != AT_FDCWD) {
107 if (regerror(ret, &preg, err, sizeof(err))) 114 while (*path == '/')
108 fprintf(stderr, "regcomp failed: %s", err); 115 ++path;
109 else 116 if (*path == '\0')
110 fprintf(stderr, "regcomp failed"); 117 path = ".";
111
112 return EXIT_FAILURE;
113 } 118 }
114 ret = regexec(&preg, match, 0, NULL, 0);
115 regfree(&preg);
116 119
117 return ret; 120 return path;
118} 121}
119 122
120/* sub-funcs for scanelf_file() */ 123/* sub-funcs for scanelf_fileat() */
121static void scanelf_file_get_symtabs(elfobj *elf, void **sym, void **tab) 124static void scanelf_file_get_symtabs(elfobj *elf, void **sym, void **str)
122{ 125{
123 /* find the best SHT_DYNSYM and SHT_STRTAB sections */ 126 /* find the best SHT_DYNSYM and SHT_STRTAB sections */
124 127
125 /* debug sections */ 128 /* debug sections */
126 void *symtab = elf_findsecbyname(elf, ".symtab"); 129 void *symtab = elf_findsecbyname(elf, ".symtab");
127 void *strtab = elf_findsecbyname(elf, ".strtab"); 130 void *strtab = elf_findsecbyname(elf, ".strtab");
128 /* runtime sections */ 131 /* runtime sections */
129 void *dynsym = elf_findsecbyname(elf, ".dynsym"); 132 void *dynsym = elf_findsecbyname(elf, ".dynsym");
130 void *dynstr = elf_findsecbyname(elf, ".dynstr"); 133 void *dynstr = elf_findsecbyname(elf, ".dynstr");
131 134
135 /*
136 * If the sections are marked NOBITS, then they don't exist, so we just
137 * skip them. This let's us work sanely with splitdebug ELFs (rather
138 * than spewing a lot of "corrupt ELF" messages later on). In malformed
139 * ELFs, the section might be wrongly set to NOBITS, but screw em.
140 */
132#define GET_SYMTABS(B) \ 141#define GET_SYMTABS(B) \
133 if (elf->elf_class == ELFCLASS ## B) { \ 142 if (elf->elf_class == ELFCLASS ## B) { \
134 if (symtab && dynsym) { \
135 Elf ## B ## _Shdr *esymtab = symtab; \ 143 Elf ## B ## _Shdr *esymtab = symtab; \
144 Elf ## B ## _Shdr *estrtab = strtab; \
136 Elf ## B ## _Shdr *edynsym = dynsym; \ 145 Elf ## B ## _Shdr *edynsym = dynsym; \
146 Elf ## B ## _Shdr *edynstr = dynstr; \
147 \
148 if (symtab && EGET(esymtab->sh_type) == SHT_NOBITS) \
149 symtab = NULL; \
150 if (dynsym && EGET(edynsym->sh_type) == SHT_NOBITS) \
151 dynsym = NULL; \
152 if (symtab && dynsym) \
137 *sym = (EGET(esymtab->sh_size) > EGET(edynsym->sh_size)) ? symtab : dynsym; \ 153 *sym = (EGET(esymtab->sh_size) > EGET(edynsym->sh_size)) ? symtab : dynsym; \
138 } else \ 154 else \
139 *sym = symtab ? symtab : dynsym; \ 155 *sym = symtab ? symtab : dynsym; \
156 \
157 if (strtab && EGET(estrtab->sh_type) == SHT_NOBITS) \
158 strtab = NULL; \
159 if (dynstr && EGET(edynstr->sh_type) == SHT_NOBITS) \
160 dynstr = NULL; \
140 if (strtab && dynstr) { \ 161 if (strtab && dynstr) \
141 Elf ## B ## _Shdr *estrtab = strtab; \
142 Elf ## B ## _Shdr *edynstr = dynstr; \
143 *tab = (EGET(estrtab->sh_size) > EGET(edynstr->sh_size)) ? strtab : dynstr; \ 162 *str = (EGET(estrtab->sh_size) > EGET(edynstr->sh_size)) ? strtab : dynstr; \
144 } else \ 163 else \
145 *tab = strtab ? strtab : dynstr; \ 164 *str = strtab ? strtab : dynstr; \
146 } 165 }
147 GET_SYMTABS(32) 166 GET_SYMTABS(32)
148 GET_SYMTABS(64) 167 GET_SYMTABS(64)
168
169 if (*sym && *str)
170 return;
171
172 /*
173 * damn, they're really going to make us work for it huh?
174 * reconstruct the section header info out of the dynamic
175 * tags so we can see what symbols this guy uses at runtime.
176 */
177#define GET_SYMTABS_DT(B) \
178 if (elf->elf_class == ELFCLASS ## B) { \
179 size_t i; \
180 static Elf ## B ## _Shdr sym_shdr, str_shdr; \
181 Elf ## B ## _Ehdr *ehdr = EHDR ## B (elf->ehdr); \
182 Elf ## B ## _Phdr *phdr = PHDR ## B (elf->phdr); \
183 Elf ## B ## _Addr vsym, vstr, vhash, vgnu_hash; \
184 Elf ## B ## _Dyn *dyn; \
185 Elf ## B ## _Off offset; \
186 \
187 /* lookup symbols used at runtime with DT_SYMTAB / DT_STRTAB */ \
188 vsym = vstr = vhash = vgnu_hash = 0; \
189 memset(&sym_shdr, 0, sizeof(sym_shdr)); \
190 memset(&str_shdr, 0, sizeof(str_shdr)); \
191 for (i = 0; i < EGET(ehdr->e_phnum); i++) { \
192 if (EGET(phdr[i].p_type) != PT_DYNAMIC) \
193 continue; \
194 \
195 offset = EGET(phdr[i].p_offset); \
196 if (offset >= elf->len - sizeof(Elf ## B ## _Dyn)) \
197 continue; \
198 \
199 dyn = DYN ## B (elf->vdata + offset); \
200 while (EGET(dyn->d_tag) != DT_NULL) { \
201 switch (EGET(dyn->d_tag)) { \
202 case DT_SYMTAB: vsym = EGET(dyn->d_un.d_val); break; \
203 case DT_SYMENT: sym_shdr.sh_entsize = dyn->d_un.d_val; break; \
204 case DT_STRTAB: vstr = EGET(dyn->d_un.d_val); break; \
205 case DT_STRSZ: str_shdr.sh_size = dyn->d_un.d_val; break; \
206 case DT_HASH: vhash = EGET(dyn->d_un.d_val); break; \
207 /*case DT_GNU_HASH: vgnu_hash = EGET(dyn->d_un.d_val); break;*/ \
208 } \
209 ++dyn; \
210 } \
211 if (vsym && vstr) \
212 break; \
213 } \
214 if (!vsym || !vstr || !(vhash || vgnu_hash)) \
215 return; \
216 \
217 /* calc offset into the ELF by finding the load addr of the syms */ \
218 for (i = 0; i < EGET(ehdr->e_phnum); i++) { \
219 Elf ## B ## _Addr vaddr = EGET(phdr[i].p_vaddr); \
220 Elf ## B ## _Addr filesz = EGET(phdr[i].p_filesz); \
221 offset = EGET(phdr[i].p_offset); \
222 \
223 if (EGET(phdr[i].p_type) != PT_LOAD) \
224 continue; \
225 \
226 if (vhash >= vaddr && vhash < vaddr + filesz) { \
227 /* Scan the hash table to see how many entries we have */ \
228 Elf32_Word max_sym_idx = 0; \
229 Elf32_Word *hashtbl = elf->vdata + offset + (vhash - vaddr); \
230 Elf32_Word b, nbuckets = EGET(hashtbl[0]); \
231 Elf32_Word nchains = EGET(hashtbl[1]); \
232 Elf32_Word *buckets = &hashtbl[2]; \
233 Elf32_Word *chains = &buckets[nbuckets]; \
234 Elf32_Word sym_idx; \
235 \
236 for (b = 0; b < nbuckets; ++b) { \
237 if (!buckets[b]) \
238 continue; \
239 for (sym_idx = buckets[b]; sym_idx < nchains && sym_idx; sym_idx = chains[sym_idx]) \
240 if (max_sym_idx < sym_idx) \
241 max_sym_idx = sym_idx; \
242 } \
243 ESET(sym_shdr.sh_size, sym_shdr.sh_entsize * max_sym_idx); \
244 } \
245 \
246 if (vsym >= vaddr && vsym < vaddr + filesz) { \
247 ESET(sym_shdr.sh_offset, offset + (vsym - vaddr)); \
248 *sym = &sym_shdr; \
249 } \
250 \
251 if (vstr >= vaddr && vstr < vaddr + filesz) { \
252 ESET(str_shdr.sh_offset, offset + (vstr - vaddr)); \
253 *str = &str_shdr; \
254 } \
255 } \
256 }
257 GET_SYMTABS_DT(32)
258 GET_SYMTABS_DT(64)
149} 259}
150 260
151static char *scanelf_file_pax(elfobj *elf, char *found_pax) 261static char *scanelf_file_pax(elfobj *elf, char *found_pax)
152{ 262{
153 static char ret[7]; 263 static char ret[7];
180 } 290 }
181 SHOW_PAX(32) 291 SHOW_PAX(32)
182 SHOW_PAX(64) 292 SHOW_PAX(64)
183 } 293 }
184 294
185 if (fix_elf && setpax) { 295 /* Note: We do not support setting EI_PAX if not PT_PAX_FLAGS
186 /* set the chpax settings */ 296 * was found. This is known to break ELFs on glibc systems,
187 if (elf->elf_class == ELFCLASS32) { 297 * and mainline PaX has deprecated use of this for a long time.
188 if (EHDR32(elf->ehdr)->e_type == ET_DYN || EHDR32(elf->ehdr)->e_type == ET_EXEC) 298 * We could support changing PT_GNU_STACK, but that doesn't
189 ESET(EHDR32(elf->ehdr)->e_ident[EI_PAX], pax_pf2hf_flags(setpax)); 299 * seem like it's worth the effort. #411919
190 } else { 300 */
191 if (EHDR64(elf->ehdr)->e_type == ET_DYN || EHDR64(elf->ehdr)->e_type == ET_EXEC)
192 ESET(EHDR64(elf->ehdr)->e_ident[EI_PAX], pax_pf2hf_flags(setpax));
193 }
194 }
195 301
196 /* fall back to EI_PAX if no PT_PAX was found */ 302 /* fall back to EI_PAX if no PT_PAX was found */
197 if (!*ret) { 303 if (!*ret) {
198 static char *paxflags; 304 static char *paxflags;
199 paxflags = pax_short_hf_flags(EI_PAX_FLAGS(elf)); 305 paxflags = pax_short_hf_flags(EI_PAX_FLAGS(elf));
213static char *scanelf_file_phdr(elfobj *elf, char *found_phdr, char *found_relro, char *found_load) 319static char *scanelf_file_phdr(elfobj *elf, char *found_phdr, char *found_relro, char *found_load)
214{ 320{
215 static char ret[12]; 321 static char ret[12];
216 char *found; 322 char *found;
217 unsigned long i, shown, multi_stack, multi_relro, multi_load; 323 unsigned long i, shown, multi_stack, multi_relro, multi_load;
218 int max_pt_load;
219 324
220 if (!show_phdr) return NULL; 325 if (!show_phdr) return NULL;
221 326
222 memcpy(ret, "--- --- ---\0", 12); 327 memcpy(ret, "--- --- ---\0", 12);
223 328
224 shown = 0; 329 shown = 0;
225 multi_stack = multi_relro = multi_load = 0; 330 multi_stack = multi_relro = multi_load = 0;
226 max_pt_load = elf_max_pt_load(elf);
227 331
228#define NOTE_GNU_STACK ".note.GNU-stack" 332#define NOTE_GNU_STACK ".note.GNU-stack"
229#define SHOW_PHDR(B) \ 333#define SHOW_PHDR(B) \
230 if (elf->elf_class == ELFCLASS ## B) { \ 334 if (elf->elf_class == ELFCLASS ## B) { \
231 Elf ## B ## _Ehdr *ehdr = EHDR ## B (elf->ehdr); \ 335 Elf ## B ## _Ehdr *ehdr = EHDR ## B (elf->ehdr); \
247 warnf("%s: multiple PT_GNU_RELRO's !?", elf->filename); \ 351 warnf("%s: multiple PT_GNU_RELRO's !?", elf->filename); \
248 found = found_relro; \ 352 found = found_relro; \
249 offset = 4; \ 353 offset = 4; \
250 check_flags = PF_X; \ 354 check_flags = PF_X; \
251 } else if (EGET(phdr[i].p_type) == PT_LOAD) { \ 355 } else if (EGET(phdr[i].p_type) == PT_LOAD) { \
252 if (EGET(ehdr->e_type) == ET_DYN || EGET(ehdr->e_type) == ET_EXEC) \
253 if (multi_load++ > max_pt_load) \
254 warnf("%s: more than %i PT_LOAD's !?", elf->filename, max_pt_load); \
255 if (file_matches_list(elf->filename, qa_wx_load)) \ 356 if (file_matches_list(elf->filename, qa_wx_load)) \
256 continue; \ 357 continue; \
257 found = found_load; \ 358 found = found_load; \
258 offset = 8; \ 359 offset = 8; \
259 check_flags = PF_W|PF_X; \ 360 check_flags = PF_W|PF_X; \
276 Elf ## B ## _Shdr *shdr = SHDR ## B (elf->shdr); \ 377 Elf ## B ## _Shdr *shdr = SHDR ## B (elf->shdr); \
277 Elf ## B ## _Shdr *strtbl = shdr + EGET(ehdr->e_shstrndx); \ 378 Elf ## B ## _Shdr *strtbl = shdr + EGET(ehdr->e_shstrndx); \
278 char *str; \ 379 char *str; \
279 if ((void*)strtbl > elf->data_end) \ 380 if ((void*)strtbl > elf->data_end) \
280 goto skip_this_shdr##B; \ 381 goto skip_this_shdr##B; \
382 /* let's flag -w/+x object files since the final ELF will most likely \
383 * need write access to the stack (who doesn't !?). so the combined \
384 * output will bring in +w automatically and that's bad. \
385 */ \
281 check_flags = SHF_WRITE|SHF_EXECINSTR; \ 386 check_flags = /*SHF_WRITE|*/SHF_EXECINSTR; \
282 for (i = 0; i < EGET(ehdr->e_shnum); ++i) { \ 387 for (i = 0; i < EGET(ehdr->e_shnum); ++i) { \
283 if (EGET(shdr[i].sh_type) != SHT_PROGBITS) continue; \ 388 if (EGET(shdr[i].sh_type) != SHT_PROGBITS) continue; \
284 offset = EGET(strtbl->sh_offset) + EGET(shdr[i].sh_name); \ 389 offset = EGET(strtbl->sh_offset) + EGET(shdr[i].sh_name); \
285 str = elf->data + offset; \ 390 str = elf->data + offset; \
286 if (str > elf->data + offset + sizeof(NOTE_GNU_STACK)) continue; \ 391 if (str > elf->data + offset + sizeof(NOTE_GNU_STACK)) continue; \
467 printf(" [0x%lX]\n", (unsigned long)offset_tmp); \ 572 printf(" [0x%lX]\n", (unsigned long)offset_tmp); \
468 if (be_verbose && has_objdump) { \ 573 if (be_verbose && has_objdump) { \
469 Elf ## B ## _Addr end_addr = offset_tmp + EGET(func->st_size); \ 574 Elf ## B ## _Addr end_addr = offset_tmp + EGET(func->st_size); \
470 char *sysbuf; \ 575 char *sysbuf; \
471 size_t syslen; \ 576 size_t syslen; \
472 int sysret; \
473 const char sysfmt[] = "objdump -r -R -d -w -l --start-address=0x%lX --stop-address=0x%lX %s | grep --color -i -C 3 '.*[[:space:]]%lX:[[:space:]]*R_.*'\n"; \ 577 const char sysfmt[] = "objdump -r -R -d -w -l --start-address=0x%lX --stop-address=0x%lX %s | grep --color -i -C 3 '.*[[:space:]]%lX:[[:space:]]*R_.*'\n"; \
474 syslen = sizeof(sysfmt) + strlen(elf->filename) + 3 * sizeof(unsigned long) + 1; \ 578 syslen = sizeof(sysfmt) + strlen(elf->filename) + 3 * sizeof(unsigned long) + 1; \
475 sysbuf = xmalloc(syslen); \ 579 sysbuf = xmalloc(syslen); \
476 if (end_addr < r_offset) \ 580 if (end_addr < r_offset) \
477 /* not uncommon when things are optimized out */ \ 581 /* not uncommon when things are optimized out */ \
480 (unsigned long)offset_tmp, \ 584 (unsigned long)offset_tmp, \
481 (unsigned long)end_addr, \ 585 (unsigned long)end_addr, \
482 elf->filename, \ 586 elf->filename, \
483 (unsigned long)r_offset); \ 587 (unsigned long)r_offset); \
484 fflush(stdout); \ 588 fflush(stdout); \
485 sysret = system(sysbuf); \ 589 if (system(sysbuf)) {/* don't care */} \
486 fflush(stdout); \ 590 fflush(stdout); \
487 free(sysbuf); \ 591 free(sysbuf); \
488 } \ 592 } \
489 } \ 593 } \
490 } } 594 } }
663 xstrcat(ret, (runpath ? runpath : rpath), ret_len); 767 xstrcat(ret, (runpath ? runpath : rpath), ret_len);
664 else if (!be_quiet) 768 else if (!be_quiet)
665 xstrcat(ret, " - ", ret_len); 769 xstrcat(ret, " - ", ret_len);
666} 770}
667 771
772/* Defines can be seen in glibc's sysdeps/generic/ldconfig.h */
668#define LDSO_CACHE_MAGIC "ld.so-" 773#define LDSO_CACHE_MAGIC "ld.so-"
669#define LDSO_CACHE_MAGIC_LEN (sizeof LDSO_CACHE_MAGIC -1) 774#define LDSO_CACHE_MAGIC_LEN (sizeof LDSO_CACHE_MAGIC -1)
670#define LDSO_CACHE_VER "1.7.0" 775#define LDSO_CACHE_VER "1.7.0"
671#define LDSO_CACHE_VER_LEN (sizeof LDSO_CACHE_VER -1) 776#define LDSO_CACHE_VER_LEN (sizeof LDSO_CACHE_VER -1)
672#define FLAG_ANY -1 777#define FLAG_ANY -1
681#define FLAG_X8664_LIB64 0x0300 786#define FLAG_X8664_LIB64 0x0300
682#define FLAG_S390_LIB64 0x0400 787#define FLAG_S390_LIB64 0x0400
683#define FLAG_POWERPC_LIB64 0x0500 788#define FLAG_POWERPC_LIB64 0x0500
684#define FLAG_MIPS64_LIBN32 0x0600 789#define FLAG_MIPS64_LIBN32 0x0600
685#define FLAG_MIPS64_LIBN64 0x0700 790#define FLAG_MIPS64_LIBN64 0x0700
791#define FLAG_X8664_LIBX32 0x0800
792#define FLAG_ARM_LIBHF 0x0900
793#define FLAG_AARCH64_LIB64 0x0a00
686 794
687#if defined(__GLIBC__) || defined(__UCLIBC__) 795#if defined(__GLIBC__) || defined(__UCLIBC__)
688 796
689static char *lookup_cache_lib(elfobj *elf, char *fname) 797static char *lookup_cache_lib(elfobj *elf, const char *fname)
690{ 798{
691 int fd; 799 int fd;
692 char *strs; 800 char *strs;
693 static char buf[__PAX_UTILS_PATH_MAX] = ""; 801 static char buf[__PAX_UTILS_PATH_MAX] = "";
694 const char cachefile[] = "/etc/ld.so.cache"; 802 const char *cachefile = root_rel_path("/etc/ld.so.cache");
695 struct stat st; 803 struct stat st;
696 804
697 typedef struct { 805 typedef struct {
698 char magic[LDSO_CACHE_MAGIC_LEN]; 806 char magic[LDSO_CACHE_MAGIC_LEN];
699 char version[LDSO_CACHE_VER_LEN]; 807 char version[LDSO_CACHE_VER_LEN];
710 818
711 if (fname == NULL) 819 if (fname == NULL)
712 return NULL; 820 return NULL;
713 821
714 if (ldcache == NULL) { 822 if (ldcache == NULL) {
715 if (stat(cachefile, &st)) 823 if (fstatat(root_fd, cachefile, &st, 0))
716 return NULL; 824 return NULL;
717 825
718 fd = open(cachefile, O_RDONLY); 826 fd = openat(root_fd, cachefile, O_RDONLY);
719 if (fd == -1) 827 if (fd == -1)
720 return NULL; 828 return NULL;
721 829
722 /* cache these values so we only map/unmap the cache file once */ 830 /* cache these values so we only map/unmap the cache file once */
723 ldcache_size = st.st_size; 831 ldcache_size = st.st_size;
762 870
763 return buf; 871 return buf;
764} 872}
765 873
766#elif defined(__NetBSD__) 874#elif defined(__NetBSD__)
767static char *lookup_cache_lib(elfobj *elf, char *fname) 875static char *lookup_cache_lib(elfobj *elf, const char *fname)
768{ 876{
769 static char buf[__PAX_UTILS_PATH_MAX] = ""; 877 static char buf[__PAX_UTILS_PATH_MAX] = "";
770 static struct stat st; 878 static struct stat st;
771 size_t n; 879 size_t n;
772 char *ldpath; 880 char *ldpath;
791} 899}
792#else 900#else
793#ifdef __ELF__ 901#ifdef __ELF__
794#warning Cache support not implemented for your target 902#warning Cache support not implemented for your target
795#endif 903#endif
796static char *lookup_cache_lib(elfobj *elf, char *fname) 904static char *lookup_cache_lib(elfobj *elf, const char *fname)
797{ 905{
798 return NULL; 906 return NULL;
799} 907}
800#endif 908#endif
909
910static char *lookup_config_lib(const char *fname)
911{
912 static char buf[__PAX_UTILS_PATH_MAX] = "";
913 const char *ldpath;
914 size_t n;
915
916 array_for_each(ldpaths, n, ldpath) {
917 snprintf(buf, sizeof(buf), "%s/%s", root_rel_path(ldpath), fname);
918 if (faccessat(root_fd, buf, F_OK, AT_SYMLINK_NOFOLLOW) == 0)
919 return buf;
920 }
921
922 return NULL;
923}
801 924
802static const char *scanelf_file_needed_lib(elfobj *elf, char *found_needed, char *found_lib, int op, char **ret, size_t *ret_len) 925static const char *scanelf_file_needed_lib(elfobj *elf, char *found_needed, char *found_lib, int op, char **ret, size_t *ret_len)
803{ 926{
804 unsigned long i; 927 unsigned long i;
805 char *needed; 928 char *needed;
843 needed = elf->data + offset; \ 966 needed = elf->data + offset; \
844 if (op == 0) { \ 967 if (op == 0) { \
845 /* -n -> print all entries */ \ 968 /* -n -> print all entries */ \
846 if (!be_wewy_wewy_quiet) { \ 969 if (!be_wewy_wewy_quiet) { \
847 if (*found_needed) xchrcat(ret, ',', ret_len); \ 970 if (*found_needed) xchrcat(ret, ',', ret_len); \
848 if (use_ldcache) \ 971 if (use_ldpath) { \
972 if ((p = lookup_config_lib(needed)) != NULL) \
973 needed = p; \
974 } else if (use_ldcache) { \
849 if ((p = lookup_cache_lib(elf, needed)) != NULL) \ 975 if ((p = lookup_cache_lib(elf, needed)) != NULL) \
850 needed = p; \ 976 needed = p; \
977 } \
851 xstrcat(ret, needed, ret_len); \ 978 xstrcat(ret, needed, ret_len); \
852 } \ 979 } \
853 *found_needed = 1; \ 980 *found_needed = 1; \
854 } else { \ 981 } else { \
855 /* -N -> print matching entries */ \ 982 /* -N -> print matching entries */ \
856 size_t n; \ 983 size_t n; \
857 const char *find_lib_name; \ 984 const char *find_lib_name; \
858 \ 985 \
859 array_for_each(find_lib_arr, n, find_lib_name) \ 986 array_for_each(find_lib_arr, n, find_lib_name) { \
987 int invert = 1; \
988 if (find_lib_name[0] == '!') \
989 invert = 0, ++find_lib_name; \
860 if (!strcmp(find_lib_name, needed)) \ 990 if (!strcmp(find_lib_name, needed) == invert) \
861 ++matched; \ 991 ++matched; \
992 } \
862 \ 993 \
863 if (matched == array_cnt(find_lib_arr)) { \ 994 if (matched == array_cnt(find_lib_arr)) { \
864 *found_lib = 1; \ 995 *found_lib = 1; \
865 return (be_wewy_wewy_quiet ? NULL : find_lib); \ 996 return (be_wewy_wewy_quiet ? NULL : find_lib); \
866 } \ 997 } \
892 *found_interp = 1; \ 1023 *found_interp = 1; \
893 return (be_wewy_wewy_quiet ? NULL : elf->data + EGET(strtbl->sh_offset)); \ 1024 return (be_wewy_wewy_quiet ? NULL : elf->data + EGET(strtbl->sh_offset)); \
894 } 1025 }
895 SHOW_INTERP(32) 1026 SHOW_INTERP(32)
896 SHOW_INTERP(64) 1027 SHOW_INTERP(64)
1028 } else {
1029 /* Walk all the program headers to find the PT_INTERP */
1030#define SHOW_PT_INTERP(B) \
1031 if (elf->elf_class == ELFCLASS ## B) { \
1032 unsigned long i; \
1033 Elf ## B ## _Ehdr *ehdr = EHDR ## B (elf->ehdr); \
1034 Elf ## B ## _Phdr *phdr = PHDR ## B (elf->phdr); \
1035 for (i = 0; i < EGET(ehdr->e_phnum); i++) { \
1036 if (EGET(phdr[i].p_type) != PT_INTERP) \
1037 continue; \
1038 *found_interp = 1; \
1039 return (be_wewy_wewy_quiet ? NULL : elf->data + EGET(phdr[i].p_offset)); \
1040 } \
897 } 1041 }
1042 SHOW_PT_INTERP(32)
1043 SHOW_PT_INTERP(64)
1044 }
1045
898 return NULL; 1046 return NULL;
899} 1047}
900static char *scanelf_file_bind(elfobj *elf, char *found_bind) 1048static const char *scanelf_file_bind(elfobj *elf, char *found_bind)
901{ 1049{
902 unsigned long i; 1050 unsigned long i;
903 struct stat s; 1051 struct stat s;
904 char dynamic = 0; 1052 bool dynamic = false;
905 1053
906 if (!show_bind) return NULL; 1054 if (!show_bind) return NULL;
907 if (!elf->phdr) return NULL; 1055 if (!elf->phdr) return NULL;
908 1056
909#define SHOW_BIND(B) \ 1057#define SHOW_BIND(B) \
912 Elf ## B ## _Ehdr *ehdr = EHDR ## B (elf->ehdr); \ 1060 Elf ## B ## _Ehdr *ehdr = EHDR ## B (elf->ehdr); \
913 Elf ## B ## _Phdr *phdr = PHDR ## B (elf->phdr); \ 1061 Elf ## B ## _Phdr *phdr = PHDR ## B (elf->phdr); \
914 Elf ## B ## _Off offset; \ 1062 Elf ## B ## _Off offset; \
915 for (i = 0; i < EGET(ehdr->e_phnum); i++) { \ 1063 for (i = 0; i < EGET(ehdr->e_phnum); i++) { \
916 if (EGET(phdr[i].p_type) != PT_DYNAMIC || EGET(phdr[i].p_filesz) == 0) continue; \ 1064 if (EGET(phdr[i].p_type) != PT_DYNAMIC || EGET(phdr[i].p_filesz) == 0) continue; \
917 dynamic = 1; \ 1065 dynamic = true; \
918 offset = EGET(phdr[i].p_offset); \ 1066 offset = EGET(phdr[i].p_offset); \
919 if (offset >= elf->len - sizeof(Elf ## B ## _Dyn)) continue; \ 1067 if (offset >= elf->len - sizeof(Elf ## B ## _Dyn)) continue; \
920 dyn = DYN ## B (elf->vdata + offset); \ 1068 dyn = DYN ## B (elf->vdata + offset); \
921 while (EGET(dyn->d_tag) != DT_NULL) { \ 1069 while (EGET(dyn->d_tag) != DT_NULL) { \
922 if (EGET(dyn->d_tag) == DT_BIND_NOW || \ 1070 if (EGET(dyn->d_tag) == DT_BIND_NOW || \
938 /* don't output anything if quiet mode and the ELF is static or not setuid */ 1086 /* don't output anything if quiet mode and the ELF is static or not setuid */
939 if (be_quiet && (!dynamic || (!fstat(elf->fd, &s) && !(s.st_mode & (S_ISUID|S_ISGID))))) { 1087 if (be_quiet && (!dynamic || (!fstat(elf->fd, &s) && !(s.st_mode & (S_ISUID|S_ISGID))))) {
940 return NULL; 1088 return NULL;
941 } else { 1089 } else {
942 *found_bind = 1; 1090 *found_bind = 1;
943 return (char *)(dynamic ? "LAZY" : "STATIC"); 1091 return dynamic ? "LAZY" : "STATIC";
944 } 1092 }
945} 1093}
946static char *scanelf_file_soname(elfobj *elf, char *found_soname) 1094static char *scanelf_file_soname(elfobj *elf, char *found_soname)
947{ 1095{
948 unsigned long i; 1096 unsigned long i;
1001 * defined symbols. If it's a minus ("-"), only match undefined symbols. 1149 * defined symbols. If it's a minus ("-"), only match undefined symbols.
1002 * Putting modifiers in between the percent signs allows for more in depth 1150 * Putting modifiers in between the percent signs allows for more in depth
1003 * filters. There are groups of modifiers. If you don't specify a member 1151 * filters. There are groups of modifiers. If you don't specify a member
1004 * of a group, then all types in that group are matched. The current 1152 * of a group, then all types in that group are matched. The current
1005 * groups and their types are: 1153 * groups and their types are:
1006 * STT group: STT_NOTYPE:n STT_OBJECT:o STT_FUNC:f SST_FILE:F 1154 * STT group: STT_NOTYPE:n STT_OBJECT:o STT_FUNC:f STT_FILE:F
1007 * STB group: STB_LOCAL:l STB_GLOBAL:g STB_WEAK:w 1155 * STB group: STB_LOCAL:l STB_GLOBAL:g STB_WEAK:w
1008 * SHN group: SHN_UNDEF:u SHN_ABS:a SHN_COMMON:c {defined}:d 1156 * SHN group: SHN_UNDEF:u SHN_ABS:a SHN_COMMON:c {defined}:d
1009 * The "defined" value in the SHN group does not correspond to a SHN_xxx define. 1157 * The "defined" value in the SHN group does not correspond to a SHN_xxx define.
1010 * You can search for multiple symbols at once by seperating with a comma (","). 1158 * You can search for multiple symbols at once by seperating with a comma (",").
1011 * 1159 *
1023 */ 1171 */
1024static void 1172static void
1025scanelf_match_symname(elfobj *elf, char *found_sym, char **ret, size_t *ret_len, const char *symname, 1173scanelf_match_symname(elfobj *elf, char *found_sym, char **ret, size_t *ret_len, const char *symname,
1026 unsigned int stt, unsigned int stb, unsigned int shn, unsigned long size) 1174 unsigned int stt, unsigned int stb, unsigned int shn, unsigned long size)
1027{ 1175{
1028 char *this_sym, *next_sym, saved = saved; 1176 const char *this_sym;
1177 size_t n;
1029 1178
1030 /* allow the user to specify a comma delimited list of symbols to search for */ 1179 array_for_each(find_sym_arr, n, this_sym) {
1031 next_sym = NULL;
1032 do {
1033 bool inc_notype, inc_object, inc_func, inc_file, 1180 bool inc_notype, inc_object, inc_func, inc_file,
1034 inc_local, inc_global, inc_weak, 1181 inc_local, inc_global, inc_weak,
1035 inc_def, inc_undef, inc_abs, inc_common; 1182 inc_def, inc_undef, inc_abs, inc_common;
1036
1037 if (next_sym) {
1038 next_sym[-1] = saved;
1039 this_sym = next_sym;
1040 } else
1041 this_sym = find_sym;
1042 if ((next_sym = strchr(this_sym, ','))) {
1043 /* make parsing easier by killing the comma temporarily */
1044 saved = *next_sym;
1045 *next_sym = '\0';
1046 next_sym += 1;
1047 }
1048 1183
1049 /* symbol selection! */ 1184 /* symbol selection! */
1050 inc_notype = inc_object = inc_func = inc_file = \ 1185 inc_notype = inc_object = inc_func = inc_file = \
1051 inc_local = inc_global = inc_weak = \ 1186 inc_local = inc_global = inc_weak = \
1052 inc_def = inc_undef = inc_abs = inc_common = \ 1187 inc_def = inc_undef = inc_abs = inc_common = \
1119 goto matched; 1254 goto matched;
1120 1255
1121 } else { 1256 } else {
1122 if (g_match) { 1257 if (g_match) {
1123 /* regex match the symbol */ 1258 /* regex match the symbol */
1124 if (rematch(this_sym, symname, REG_EXTENDED) != 0) 1259 if (regexec(find_sym_regex_arr->eles[n], symname, 0, NULL, 0) == REG_NOMATCH)
1125 continue; 1260 continue;
1126 1261
1127 } else if (*this_sym) { 1262 } else if (*this_sym) {
1128 /* give empty symbols a "pass", else do a normal compare */ 1263 /* give empty symbols a "pass", else do a normal compare */
1129 const size_t len = strlen(this_sym); 1264 const size_t len = strlen(this_sym);
1145 xstrcat(ret, symname, ret_len); 1280 xstrcat(ret, symname, ret_len);
1146 } 1281 }
1147 1282
1148 goto matched; 1283 goto matched;
1149 } 1284 }
1150 } while (next_sym); 1285 }
1151 1286
1152 return; 1287 return;
1153 1288
1154 matched: 1289 matched:
1155 *found_sym = 1; 1290 *found_sym = 1;
1156 if (next_sym)
1157 next_sym[-1] = saved;
1158} 1291}
1159 1292
1160static const char *scanelf_file_sym(elfobj *elf, char *found_sym) 1293static const char *scanelf_file_sym(elfobj *elf, char *found_sym)
1161{ 1294{
1162 unsigned long i;
1163 char *ret; 1295 char *ret;
1164 void *symtab_void, *strtab_void; 1296 void *symtab_void, *strtab_void;
1165 1297
1166 if (!find_sym) return NULL; 1298 if (!find_sym) return NULL;
1167 ret = NULL; 1299 ret = NULL;
1172#define FIND_SYM(B) \ 1304#define FIND_SYM(B) \
1173 if (elf->elf_class == ELFCLASS ## B) { \ 1305 if (elf->elf_class == ELFCLASS ## B) { \
1174 Elf ## B ## _Shdr *symtab = SHDR ## B (symtab_void); \ 1306 Elf ## B ## _Shdr *symtab = SHDR ## B (symtab_void); \
1175 Elf ## B ## _Shdr *strtab = SHDR ## B (strtab_void); \ 1307 Elf ## B ## _Shdr *strtab = SHDR ## B (strtab_void); \
1176 Elf ## B ## _Sym *sym = SYM ## B (elf->vdata + EGET(symtab->sh_offset)); \ 1308 Elf ## B ## _Sym *sym = SYM ## B (elf->vdata + EGET(symtab->sh_offset)); \
1177 unsigned long cnt = EGET(symtab->sh_entsize); \ 1309 Elf ## B ## _Word i, cnt = EGET(symtab->sh_entsize); \
1178 char *symname; \ 1310 char *symname; \
1179 size_t ret_len = 0; \ 1311 size_t ret_len = 0; \
1180 if (cnt) \ 1312 if (cnt) \
1181 cnt = EGET(symtab->sh_size) / cnt; \ 1313 cnt = EGET(symtab->sh_size) / cnt; \
1182 for (i = 0; i < cnt; ++i) { \ 1314 for (i = 0; i < cnt; ++i) { \
1199 EGET(sym->st_shndx), \ 1331 EGET(sym->st_shndx), \
1200 /* st_size can be 64bit, but no one is really that big, so screw em */ \ 1332 /* st_size can be 64bit, but no one is really that big, so screw em */ \
1201 EGET(sym->st_size)); \ 1333 EGET(sym->st_size)); \
1202 } \ 1334 } \
1203 ++sym; \ 1335 ++sym; \
1204 } } 1336 } \
1337 }
1205 FIND_SYM(32) 1338 FIND_SYM(32)
1206 FIND_SYM(64) 1339 FIND_SYM(64)
1207 } 1340 }
1208 1341
1209break_out: 1342break_out:
1300 case 'x': prints(" PAX "); break; 1433 case 'x': prints(" PAX "); break;
1301 case 'e': prints("STK/REL/PTL "); break; 1434 case 'e': prints("STK/REL/PTL "); break;
1302 case 't': prints("TEXTREL "); break; 1435 case 't': prints("TEXTREL "); break;
1303 case 'r': prints("RPATH "); break; 1436 case 'r': prints("RPATH "); break;
1304 case 'M': prints("CLASS "); break; 1437 case 'M': prints("CLASS "); break;
1438 case 'l':
1305 case 'n': prints("NEEDED "); break; 1439 case 'n': prints("NEEDED "); break;
1306 case 'i': prints("INTERP "); break; 1440 case 'i': prints("INTERP "); break;
1307 case 'b': prints("BIND "); break; 1441 case 'b': prints("BIND "); break;
1308 case 'Z': prints("SIZE "); break; 1442 case 'Z': prints("SIZE "); break;
1309 case 'S': prints("SONAME "); break; 1443 case 'S': prints("SONAME "); break;
1419 elfobj *elf; 1553 elfobj *elf;
1420 1554
1421 /* verify this is real ELF */ 1555 /* verify this is real ELF */
1422 if ((elf = _readelf_fd(filename, fd, len, !fix_elf)) == NULL) { 1556 if ((elf = _readelf_fd(filename, fd, len, !fix_elf)) == NULL) {
1423 if (be_verbose > 2) printf("%s: not an ELF\n", filename); 1557 if (be_verbose > 2) printf("%s: not an ELF\n", filename);
1424 return ret; 1558 return 2;
1425 } 1559 }
1426 switch (match_bits) { 1560 switch (match_bits) {
1427 case 32: 1561 case 32:
1428 if (elf->elf_class != ELFCLASS32) 1562 if (elf->elf_class != ELFCLASS32)
1429 goto label_done; 1563 goto label_done;
1483 munmap(ar_buffer, len); 1617 munmap(ar_buffer, len);
1484 1618
1485 return 0; 1619 return 0;
1486} 1620}
1487/* scan a file which may be an elf or an archive or some other magical beast */ 1621/* scan a file which may be an elf or an archive or some other magical beast */
1488static int scanelf_file(const char *filename, const struct stat *st_cache) 1622static int scanelf_fileat(int dir_fd, const char *filename, const struct stat *st_cache)
1489{ 1623{
1490 const struct stat *st = st_cache; 1624 const struct stat *st = st_cache;
1491 struct stat symlink_st; 1625 struct stat symlink_st;
1492 int fd; 1626 int fd;
1493 1627
1494 /* always handle regular files and handle symlinked files if no -y */ 1628 /* always handle regular files and handle symlinked files if no -y */
1495 if (S_ISLNK(st->st_mode)) { 1629 if (S_ISLNK(st->st_mode)) {
1496 if (!scan_symlink) return 1; 1630 if (!scan_symlink)
1631 return 1;
1497 stat(filename, &symlink_st); 1632 fstatat(dir_fd, filename, &symlink_st, 0);
1498 st = &symlink_st; 1633 st = &symlink_st;
1499 } 1634 }
1500 1635
1501 if (!S_ISREG(st->st_mode)) { 1636 if (!S_ISREG(st->st_mode)) {
1502 if (be_verbose > 2) printf("%s: skipping non-file\n", filename); 1637 if (be_verbose > 2) printf("%s: skipping non-file\n", filename);
1505 1640
1506 if (match_perms) { 1641 if (match_perms) {
1507 if ((st->st_mode | match_perms) != st->st_mode) 1642 if ((st->st_mode | match_perms) != st->st_mode)
1508 return 1; 1643 return 1;
1509 } 1644 }
1510 if ((fd=open(filename, (fix_elf ? O_RDWR : O_RDONLY))) == -1) 1645 fd = openat(dir_fd, filename, (fix_elf ? O_RDWR : O_RDONLY) | O_CLOEXEC);
1646 if (fd == -1) {
1647 if (fix_elf && errno == ETXTBSY)
1648 warnp("%s: could not fix", filename);
1649 else if (be_verbose > 2)
1650 printf("%s: skipping file: %s\n", filename, strerror(errno));
1511 return 1; 1651 return 1;
1652 }
1512 1653
1513 if (scanelf_elf(filename, fd, st->st_size) == 1 && scan_archives) 1654 if (scanelf_elf(filename, fd, st->st_size) == 2) {
1514 /* if it isn't an ELF, maybe it's an .a archive */ 1655 /* if it isn't an ELF, maybe it's an .a archive */
1656 if (scan_archives)
1515 scanelf_archive(filename, fd, st->st_size); 1657 scanelf_archive(filename, fd, st->st_size);
1516 1658
1659 /*
1660 * unreadelf() implicitly closes its fd, so only close it
1661 * when we are returning it in the non-ELF case
1662 */
1517 close(fd); 1663 close(fd);
1664 }
1665
1518 return 0; 1666 return 0;
1519} 1667}
1520 1668
1521static const char *maybe_add_root(const char *fname, char *buf)
1522{
1523 if (root && strncmp(fname, root, strlen(root))) {
1524 strcpy(buf, root);
1525 strncat(buf, fname, __PAX_UTILS_PATH_MAX - strlen(root) - 1);
1526 fname = buf;
1527 }
1528 return fname;
1529}
1530
1531/* scan a directory for ET_EXEC files and print when we find one */ 1669/* scan a directory for ET_EXEC files and print when we find one */
1532static int scanelf_dir(const char *path) 1670static int scanelf_dirat(int dir_fd, const char *path)
1533{ 1671{
1534 register DIR *dir; 1672 register DIR *dir;
1535 register struct dirent *dentry; 1673 register struct dirent *dentry;
1536 struct stat st_top, st; 1674 struct stat st_top, st;
1537 char buf[__PAX_UTILS_PATH_MAX]; 1675 char buf[__PAX_UTILS_PATH_MAX], *subpath;
1538 char _path[__PAX_UTILS_PATH_MAX];
1539 size_t pathlen = 0, len = 0; 1676 size_t pathlen = 0, len = 0;
1540 int ret = 0; 1677 int ret = 0;
1541 1678 int subdir_fd;
1542 path = maybe_add_root(path, _path);
1543 1679
1544 /* make sure path exists */ 1680 /* make sure path exists */
1545 if (lstat(path, &st_top) == -1) { 1681 if (fstatat(dir_fd, path, &st_top, AT_SYMLINK_NOFOLLOW) == -1) {
1546 if (be_verbose > 2) printf("%s: does not exist\n", path); 1682 if (be_verbose > 2) printf("%s: does not exist\n", path);
1547 return 1; 1683 return 1;
1548 } 1684 }
1549 1685
1550 /* ok, if it isn't a directory, assume we can open it */ 1686 /* ok, if it isn't a directory, assume we can open it */
1551 if (!S_ISDIR(st_top.st_mode)) { 1687 if (!S_ISDIR(st_top.st_mode))
1552 return scanelf_file(path, &st_top); 1688 return scanelf_fileat(dir_fd, path, &st_top);
1553 }
1554 1689
1555 /* now scan the dir looking for fun stuff */ 1690 /* now scan the dir looking for fun stuff */
1556 if ((dir = opendir(path)) == NULL) { 1691 subdir_fd = openat(dir_fd, path, O_RDONLY|O_CLOEXEC);
1557 warnf("could not opendir %s: %s", path, strerror(errno)); 1692 if (subdir_fd == -1)
1693 dir = NULL;
1694 else
1695 dir = fdopendir(subdir_fd);
1696 if (dir == NULL) {
1697 if (subdir_fd != -1)
1698 close(subdir_fd);
1699 else if (be_verbose > 2)
1700 printf("%s: skipping dir: %s\n", path, strerror(errno));
1558 return 1; 1701 return 1;
1559 } 1702 }
1560 if (be_verbose > 1) printf("%s: scanning dir\n", path); 1703 if (be_verbose > 1) printf("%s: scanning dir\n", path);
1561 1704
1562 pathlen = strlen(path); 1705 subpath = stpcpy(buf, path);
1706 if (subpath[-1] != '/')
1707 *subpath++ = '/';
1708 pathlen = subpath - buf;
1563 while ((dentry = readdir(dir))) { 1709 while ((dentry = readdir(dir))) {
1564 if (!strcmp(dentry->d_name, ".") || !strcmp(dentry->d_name, "..")) 1710 if (!strcmp(dentry->d_name, ".") || !strcmp(dentry->d_name, ".."))
1565 continue; 1711 continue;
1712
1713 if (fstatat(subdir_fd, dentry->d_name, &st, AT_SYMLINK_NOFOLLOW) == -1)
1714 continue;
1715
1566 len = (pathlen + 1 + strlen(dentry->d_name) + 1); 1716 len = strlen(dentry->d_name);
1567 if (len >= sizeof(buf)) { 1717 if (len + pathlen + 1 >= sizeof(buf)) {
1568 warnf("Skipping '%s': len > sizeof(buf); %lu > %lu\n", path, 1718 warnf("Skipping '%s%s': len > sizeof(buf); %zu > %zu\n",
1569 (unsigned long)len, (unsigned long)sizeof(buf)); 1719 path, dentry->d_name, len + pathlen + 1, sizeof(buf));
1570 continue; 1720 continue;
1571 } 1721 }
1572 snprintf(buf, sizeof(buf), "%s%s%s", path, (path[pathlen-1] == '/') ? "" : "/", dentry->d_name); 1722 memcpy(subpath, dentry->d_name, len);
1573 if (lstat(buf, &st) != -1) { 1723 subpath[len] = '\0';
1724
1574 if (S_ISREG(st.st_mode)) 1725 if (S_ISREG(st.st_mode))
1575 ret = scanelf_file(buf, &st); 1726 ret = scanelf_fileat(dir_fd, buf, &st);
1576 else if (dir_recurse && S_ISDIR(st.st_mode)) { 1727 else if (dir_recurse && S_ISDIR(st.st_mode)) {
1577 if (dir_crossmount || (st_top.st_dev == st.st_dev)) 1728 if (dir_crossmount || (st_top.st_dev == st.st_dev))
1578 ret = scanelf_dir(buf); 1729 ret = scanelf_dirat(dir_fd, buf);
1579 }
1580 } 1730 }
1581 } 1731 }
1582 closedir(dir); 1732 closedir(dir);
1733
1583 return ret; 1734 return ret;
1584} 1735}
1736static int scanelf_dir(const char *path)
1737{
1738 return scanelf_dirat(root_fd, root_rel_path(path));
1739}
1585 1740
1586static int scanelf_from_file(const char *filename) 1741static int scanelf_from_file(const char *filename)
1587{ 1742{
1588 FILE *fp = NULL; 1743 FILE *fp;
1589 char *p; 1744 char *p, *path;
1590 char path[__PAX_UTILS_PATH_MAX]; 1745 size_t len;
1591 int ret = 0; 1746 int ret;
1592 1747
1593 if (strcmp(filename, "-") == 0) 1748 if (strcmp(filename, "-") == 0)
1594 fp = stdin; 1749 fp = stdin;
1595 else if ((fp = fopen(filename, "r")) == NULL) 1750 else if ((fp = fopen(filename, "r")) == NULL)
1596 return 1; 1751 return 1;
1597 1752
1598 while ((fgets(path, __PAX_UTILS_PATH_MAX, fp)) != NULL) { 1753 path = NULL;
1754 len = 0;
1755 ret = 0;
1756 while (getline(&path, &len, fp) != -1) {
1599 if ((p = strchr(path, '\n')) != NULL) 1757 if ((p = strchr(path, '\n')) != NULL)
1600 *p = 0; 1758 *p = 0;
1601 search_path = path; 1759 search_path = path;
1602 ret = scanelf_dir(path); 1760 ret = scanelf_dir(path);
1603 } 1761 }
1762 free(path);
1763
1604 if (fp != stdin) 1764 if (fp != stdin)
1605 fclose(fp); 1765 fclose(fp);
1766
1606 return ret; 1767 return ret;
1607} 1768}
1608 1769
1609#if defined(__GLIBC__) || defined(__UCLIBC__) || defined(__NetBSD__) 1770#if defined(__GLIBC__) || defined(__UCLIBC__) || defined(__NetBSD__)
1610 1771
1611static int load_ld_cache_config(int i, const char *fname) 1772static int _load_ld_cache_config(const char *fname)
1612{ 1773{
1613 FILE *fp = NULL; 1774 FILE *fp = NULL;
1614 char *p; 1775 char *p, *path;
1615 char path[__PAX_UTILS_PATH_MAX]; 1776 size_t len;
1616 char _fname[__PAX_UTILS_PATH_MAX]; 1777 int curr_fd = -1;
1617 1778
1618 fname = maybe_add_root(fname, _fname); 1779 fp = fopenat_r(root_fd, root_rel_path(fname));
1619 1780 if (fp == NULL)
1620 if ((fp = fopen(fname, "r")) == NULL)
1621 return i; 1781 return -1;
1622 1782
1623 while ((fgets(path, __PAX_UTILS_PATH_MAX, fp)) != NULL) { 1783 path = NULL;
1784 len = 0;
1785 while (getline(&path, &len, fp) != -1) {
1624 if ((p = strrchr(path, '\r')) != NULL) 1786 if ((p = strrchr(path, '\r')) != NULL)
1625 *p = 0; 1787 *p = 0;
1626 if ((p = strchr(path, '\n')) != NULL) 1788 if ((p = strchr(path, '\n')) != NULL)
1627 *p = 0; 1789 *p = 0;
1628 1790
1629 /* recursive includes of the same file will make this segfault. */ 1791 /* recursive includes of the same file will make this segfault. */
1630 if ((memcmp(path, "include", 7) == 0) && isblank(path[7])) { 1792 if ((memcmp(path, "include", 7) == 0) && isblank(path[7])) {
1631 glob_t gl; 1793 glob_t gl;
1632 size_t x; 1794 size_t x;
1633 char gpath[__PAX_UTILS_PATH_MAX]; 1795 const char *gpath;
1634 1796
1635 memset(gpath, 0, sizeof(gpath)); 1797 /* re-use existing path buffer ... need to be creative */
1636 if (root)
1637 strcpy(gpath, root);
1638
1639 if (path[8] != '/') 1798 if (path[8] != '/')
1640 snprintf(gpath+strlen(gpath), sizeof(gpath)-strlen(gpath), "/etc/%s", &path[8]); 1799 gpath = memcpy(path + 3, "/etc/", 5);
1641 else 1800 else
1642 strncpy(gpath+strlen(gpath), &path[8], sizeof(gpath)-strlen(gpath)); 1801 gpath = path + 8;
1802 if (root_fd != AT_FDCWD) {
1803 if (curr_fd == -1) {
1804 curr_fd = open(".", O_RDONLY|O_CLOEXEC);
1805 if (fchdir(root_fd))
1806 errp("unable to change to root dir");
1807 }
1808 gpath = root_rel_path(gpath);
1809 }
1643 1810
1644 if (glob(gpath, 0, NULL, &gl) == 0) { 1811 if (glob(gpath, 0, NULL, &gl) == 0) {
1645 for (x = 0; x < gl.gl_pathc; ++x) { 1812 for (x = 0; x < gl.gl_pathc; ++x) {
1646 /* try to avoid direct loops */ 1813 /* try to avoid direct loops */
1647 if (strcmp(gl.gl_pathv[x], fname) == 0) 1814 if (strcmp(gl.gl_pathv[x], fname) == 0)
1648 continue; 1815 continue;
1649 i = load_ld_cache_config(i, gl.gl_pathv[x]); 1816 _load_ld_cache_config(gl.gl_pathv[x]);
1650 } 1817 }
1651 globfree(&gl); 1818 globfree(&gl);
1652 continue;
1653 } 1819 }
1820
1821 /* failed globs are ignored by glibc */
1822 continue;
1654 } 1823 }
1655 1824
1656 if (*path != '/') 1825 if (*path != '/')
1657 continue; 1826 continue;
1658 1827
1659 xarraypush(ldpaths, path, strlen(path)); 1828 xarraypush_str(ldpaths, path);
1660 } 1829 }
1830 free(path);
1661 1831
1662 fclose(fp); 1832 fclose(fp);
1833
1834 if (curr_fd != -1) {
1835 if (fchdir(curr_fd))
1836 {/* don't care */}
1837 close(curr_fd);
1838 }
1839
1663 return i; 1840 return 0;
1664} 1841}
1665 1842
1666#elif defined(__FreeBSD__) || defined(__DragonFly__) 1843#elif defined(__FreeBSD__) || defined(__DragonFly__)
1667 1844
1668static int load_ld_cache_config(int i, const char *fname) 1845static int _load_ld_cache_config(const char *fname)
1669{ 1846{
1670 FILE *fp = NULL; 1847 FILE *fp = NULL;
1671 char *b = NULL, *p; 1848 char *b = NULL, *p;
1672 struct elfhints_hdr hdr; 1849 struct elfhints_hdr hdr;
1673 char _fname[__PAX_UTILS_PATH_MAX];
1674 1850
1675 fname = maybe_add_root(fname, _fname); 1851 fp = fopenat_r(root_fd, root_rel_path(fname));
1676 1852 if (fp == NULL)
1677 if ((fp = fopen(fname, "r")) == NULL)
1678 return i; 1853 return -1;
1679 1854
1680 if (fread(&hdr, 1, sizeof(hdr), fp) != sizeof(hdr) || 1855 if (fread(&hdr, 1, sizeof(hdr), fp) != sizeof(hdr) ||
1681 hdr.magic != ELFHINTS_MAGIC || hdr.version != 1 || 1856 hdr.magic != ELFHINTS_MAGIC || hdr.version != 1 ||
1682 fseek(fp, hdr.strtab + hdr.dirlist, SEEK_SET) == -1) 1857 fseek(fp, hdr.strtab + hdr.dirlist, SEEK_SET) == -1)
1683 { 1858 {
1684 fclose(fp); 1859 fclose(fp);
1685 return i; 1860 return -1;
1686 } 1861 }
1687 1862
1688 b = xmalloc(hdr.dirlistlen + 1); 1863 b = xmalloc(hdr.dirlistlen + 1);
1689 if (fread(b, 1, hdr.dirlistlen+1, fp) != hdr.dirlistlen+1) { 1864 if (fread(b, 1, hdr.dirlistlen+1, fp) != hdr.dirlistlen+1) {
1690 fclose(fp); 1865 fclose(fp);
1691 free(b); 1866 free(b);
1692 return i; 1867 return -1;
1693 } 1868 }
1694 1869
1695 while ((p = strsep(&b, ":"))) { 1870 while ((p = strsep(&b, ":"))) {
1696 if (*p == '\0') 1871 if (*p == '\0')
1697 continue; 1872 continue;
1698 xarraypush(ldpaths, p, strlen(p)); 1873 xarraypush_str(ldpaths, p);
1699 } 1874 }
1700 1875
1701 free(b); 1876 free(b);
1702 fclose(fp); 1877 fclose(fp);
1703 return i; 1878 return 0;
1704} 1879}
1705 1880
1706#else 1881#else
1707#ifdef __ELF__ 1882#ifdef __ELF__
1708#warning Cache config support not implemented for your target 1883#warning Cache config support not implemented for your target
1709#endif 1884#endif
1710static int load_ld_cache_config(int i, const char *fname) 1885static int _load_ld_cache_config(const char *fname)
1711{ 1886{
1712 return 0; 1887 return 0;
1713} 1888}
1714#endif 1889#endif
1890
1891static void load_ld_cache_config(const char *fname)
1892{
1893 bool scan_l, scan_ul, scan_ull;
1894 size_t n;
1895 const char *ldpath;
1896
1897 _load_ld_cache_config(fname);
1898
1899 scan_l = scan_ul = scan_ull = false;
1900 array_for_each(ldpaths, n, ldpath) {
1901 if (!scan_l && !strcmp(ldpath, "/lib")) scan_l = true;
1902 if (!scan_ul && !strcmp(ldpath, "/usr/lib")) scan_ul = true;
1903 if (!scan_ull && !strcmp(ldpath, "/usr/local/lib")) scan_ull = true;
1904 }
1905
1906 if (!scan_l) xarraypush_str(ldpaths, "/lib");
1907 if (!scan_ul) xarraypush_str(ldpaths, "/usr/lib");
1908 if (!scan_ull) xarraypush_str(ldpaths, "/usr/local/lib");
1909}
1715 1910
1716/* scan /etc/ld.so.conf for paths */ 1911/* scan /etc/ld.so.conf for paths */
1717static void scanelf_ldpath(void) 1912static void scanelf_ldpath(void)
1718{ 1913{
1719 char scan_l, scan_ul, scan_ull;
1720 size_t n; 1914 size_t n;
1721 const char *ldpath; 1915 const char *ldpath;
1722 int i = 0;
1723 1916
1724 if (array_cnt(ldpaths) == 0)
1725 err("Unable to load any paths from ld.so.conf");
1726
1727 scan_l = scan_ul = scan_ull = 0;
1728
1729 array_for_each(ldpaths, n, ldpath) { 1917 array_for_each(ldpaths, n, ldpath)
1730 if (!scan_l && !strcmp(ldpath, "/lib")) scan_l = 1;
1731 if (!scan_ul && !strcmp(ldpath, "/usr/lib")) scan_ul = 1;
1732 if (!scan_ull && !strcmp(ldpath, "/usr/local/lib")) scan_ull = 1;
1733 scanelf_dir(ldpath); 1918 scanelf_dir(ldpath);
1734 ++i;
1735 }
1736
1737 if (!scan_l) scanelf_dir("/lib");
1738 if (!scan_ul) scanelf_dir("/usr/lib");
1739 if (!scan_ull) scanelf_dir("/usr/local/lib");
1740} 1919}
1741 1920
1742/* scan env PATH for paths */ 1921/* scan env PATH for paths */
1743static void scanelf_envpath(void) 1922static void scanelf_envpath(void)
1744{ 1923{
1761#define PARSE_FLAGS "plRmyAXz:xetrnLibSs:k:gN:TaqvF:f:o:E:M:DIYO:ZCBhV" 1940#define PARSE_FLAGS "plRmyAXz:xetrnLibSs:k:gN:TaqvF:f:o:E:M:DIYO:ZCBhV"
1762#define a_argument required_argument 1941#define a_argument required_argument
1763static struct option const long_opts[] = { 1942static struct option const long_opts[] = {
1764 {"path", no_argument, NULL, 'p'}, 1943 {"path", no_argument, NULL, 'p'},
1765 {"ldpath", no_argument, NULL, 'l'}, 1944 {"ldpath", no_argument, NULL, 'l'},
1945 {"use-ldpath",no_argument, NULL, 129},
1766 {"root", a_argument, NULL, 128}, 1946 {"root", a_argument, NULL, 128},
1767 {"recursive", no_argument, NULL, 'R'}, 1947 {"recursive", no_argument, NULL, 'R'},
1768 {"mount", no_argument, NULL, 'm'}, 1948 {"mount", no_argument, NULL, 'm'},
1769 {"symlink", no_argument, NULL, 'y'}, 1949 {"symlink", no_argument, NULL, 'y'},
1770 {"archives", no_argument, NULL, 'A'}, 1950 {"archives", no_argument, NULL, 'A'},
1805}; 1985};
1806 1986
1807static const char * const opts_help[] = { 1987static const char * const opts_help[] = {
1808 "Scan all directories in PATH environment", 1988 "Scan all directories in PATH environment",
1809 "Scan all directories in /etc/ld.so.conf", 1989 "Scan all directories in /etc/ld.so.conf",
1990 "Use ld.so.conf to show full path (use with -r/-n)",
1810 "Root directory (use with -l or -p)", 1991 "Root directory (use with -l or -p)",
1811 "Scan directories recursively", 1992 "Scan directories recursively",
1812 "Don't recursively cross mount points", 1993 "Don't recursively cross mount points",
1813 "Don't scan symlinks", 1994 "Don't scan symlinks",
1814 "Scan archives (.a files)", 1995 "Scan archives (.a files)",
1815 "Utilize ld.so.cache information (use with -r/-n)", 1996 "Utilize ld.so.cache to show full path (use with -r/-n)",
1816 "Try and 'fix' bad things (use with -r/-e)", 1997 "Try and 'fix' bad things (use with -r/-e)",
1817 "Sets EI_PAX/PT_PAX_FLAGS to <arg> (use with -Xx)\n", 1998 "Sets EI_PAX/PT_PAX_FLAGS to <arg> (use with -Xx)\n",
1818 "Print PaX markings", 1999 "Print PaX markings",
1819 "Print GNU_STACK/PT_LOAD markings", 2000 "Print GNU_STACK/PT_LOAD markings",
1820 "Print TEXTREL information", 2001 "Print TEXTREL information",
1824 "Print BIND information", 2005 "Print BIND information",
1825 "Print SONAME information", 2006 "Print SONAME information",
1826 "Find a specified symbol", 2007 "Find a specified symbol",
1827 "Find a specified section", 2008 "Find a specified section",
1828 "Find a specified library", 2009 "Find a specified library",
1829 "Use regex matching rather than string compare (use with -s)", 2010 "Use regex rather than string compare (with -s); specify twice for case insensitive",
1830 "Locate cause of TEXTREL", 2011 "Locate cause of TEXTREL",
1831 "Print only ELF files matching etype ET_DYN,ET_EXEC ...", 2012 "Print only ELF files matching etype ET_DYN,ET_EXEC ...",
1832 "Print only ELF files matching numeric bits", 2013 "Print only ELF files matching numeric bits",
1833 "Print Endianness", 2014 "Print Endianness",
1834 "Print OSABI", 2015 "Print OSABI",
1849}; 2030};
1850 2031
1851/* display usage and exit */ 2032/* display usage and exit */
1852static void usage(int status) 2033static void usage(int status)
1853{ 2034{
1854 unsigned long i; 2035 const char a_arg[] = "<arg>";
2036 size_t a_arg_len = strlen(a_arg) + 2;
2037 size_t i;
2038 int optlen;
1855 printf("* Scan ELF binaries for stuff\n\n" 2039 printf("* Scan ELF binaries for stuff\n\n"
1856 "Usage: %s [options] <dir1/file1> [dir2 dirN file2 fileN ...]\n\n", argv0); 2040 "Usage: %s [options] <dir1/file1> [dir2 dirN file2 fileN ...]\n\n", argv0);
1857 printf("Options: -[%s]\n", PARSE_FLAGS); 2041 printf("Options: -[%s]\n", PARSE_FLAGS);
2042
2043 /* prescan the --long opt length to auto-align */
2044 optlen = 0;
1858 for (i = 0; long_opts[i].name; ++i) 2045 for (i = 0; long_opts[i].name; ++i) {
2046 int l = strlen(long_opts[i].name);
2047 if (long_opts[i].has_arg == a_argument)
2048 l += a_arg_len;
2049 optlen = max(l, optlen);
2050 }
2051
2052 for (i = 0; long_opts[i].name; ++i) {
2053 /* first output the short flag if it has one */
2054 if (long_opts[i].val > '~')
2055 printf(" ");
2056 else
2057 printf(" -%c, ", long_opts[i].val);
2058
2059 /* then the long flag */
1859 if (long_opts[i].has_arg == no_argument) 2060 if (long_opts[i].has_arg == no_argument)
1860 printf(" -%c, --%-14s* %s\n", long_opts[i].val, 2061 printf("--%-*s", optlen, long_opts[i].name);
1861 long_opts[i].name, opts_help[i]);
1862 else if (long_opts[i].val > '~')
1863 printf(" --%-7s <arg> * %s\n",
1864 long_opts[i].name, opts_help[i]);
1865 else 2062 else
1866 printf(" -%c, --%-7s <arg> * %s\n", long_opts[i].val, 2063 printf("--%s %s %*s", long_opts[i].name, a_arg,
1867 long_opts[i].name, opts_help[i]); 2064 (int)(optlen - strlen(long_opts[i].name) - a_arg_len), "");
2065
2066 /* finally the help text */
2067 printf("* %s\n", opts_help[i]);
2068 }
1868 2069
1869 puts("\nFor more information, see the scanelf(1) manpage"); 2070 puts("\nFor more information, see the scanelf(1) manpage");
1870 exit(status); 2071 exit(status);
1871} 2072}
1872 2073
1882static int parseargs(int argc, char *argv[]) 2083static int parseargs(int argc, char *argv[])
1883{ 2084{
1884 int i; 2085 int i;
1885 const char *from_file = NULL; 2086 const char *from_file = NULL;
1886 int ret = 0; 2087 int ret = 0;
2088 char load_cache_config = 0;
1887 2089
1888 opterr = 0; 2090 opterr = 0;
1889 while ((i=getopt_long(argc, argv, PARSE_FLAGS, long_opts, NULL)) != -1) { 2091 while ((i=getopt_long(argc, argv, PARSE_FLAGS, long_opts, NULL)) != -1) {
1890 switch (i) { 2092 switch (i) {
1891 2093
1916 if (sscanf(optarg, "%o", &match_perms) == -1) 2118 if (sscanf(optarg, "%o", &match_perms) == -1)
1917 match_bits = 0; 2119 match_bits = 0;
1918 break; 2120 break;
1919 case 'o': { 2121 case 'o': {
1920 if (freopen(optarg, "w", stdout) == NULL) 2122 if (freopen(optarg, "w", stdout) == NULL)
1921 err("Could not open output stream '%s': %s", optarg, strerror(errno)); 2123 errp("Could not freopen(%s)", optarg);
1922 break; 2124 break;
1923 } 2125 }
1924 case 'k': 2126 case 'k':
1925 xarraypush(find_section_arr, optarg, strlen(optarg)); 2127 xarraypush_str(find_section_arr, optarg);
1926 break; 2128 break;
1927 case 's': { 2129 case 's': {
1928 if (find_sym) warn("You prob don't want to specify -s twice"); 2130 /* historically, this was comma delimited */
1929 find_sym = optarg; 2131 char *this_sym = strtok(optarg, ",");
2132 if (!this_sym) /* edge case: -s '' */
2133 xarraypush_str(find_sym_arr, "");
2134 while (this_sym) {
2135 xarraypush_str(find_sym_arr, this_sym);
2136 this_sym = strtok(NULL, ",");
2137 }
1930 break; 2138 break;
1931 } 2139 }
1932 case 'N': 2140 case 'N':
1933 xarraypush(find_lib_arr, optarg, strlen(optarg)); 2141 xarraypush_str(find_lib_arr, optarg);
1934 break; 2142 break;
1935 case 'F': { 2143 case 'F': {
1936 if (out_format) warn("You prob don't want to specify -F twice"); 2144 if (out_format) warn("You prob don't want to specify -F twice");
1937 out_format = optarg; 2145 out_format = optarg;
1938 break; 2146 break;
1979 ((flags & PF_RANDMMAP) && (flags & PF_NORANDMMAP)))) 2187 ((flags & PF_RANDMMAP) && (flags & PF_NORANDMMAP))))
1980 setpax = flags; 2188 setpax = flags;
1981 break; 2189 break;
1982 } 2190 }
1983 case 'Z': show_size = 1; break; 2191 case 'Z': show_size = 1; break;
1984 case 'g': g_match = 1; break; 2192 case 'g': ++g_match; break;
1985 case 'L': use_ldcache = 1; break; 2193 case 'L': load_cache_config = use_ldcache = 1; break;
1986 case 'y': scan_symlink = 0; break; 2194 case 'y': scan_symlink = 0; break;
1987 case 'A': scan_archives = 1; break; 2195 case 'A': scan_archives = 1; break;
1988 case 'C': color_init(true); break; 2196 case 'C': color_init(true); break;
1989 case 'B': show_banner = 0; break; 2197 case 'B': show_banner = 0; break;
1990 case 'l': scan_ldpath = 1; break; 2198 case 'l': load_cache_config = scan_ldpath = 1; break;
1991 case 'p': scan_envpath = 1; break; 2199 case 'p': scan_envpath = 1; break;
1992 case 'R': dir_recurse = 1; break; 2200 case 'R': dir_recurse = 1; break;
1993 case 'm': dir_crossmount = 0; break; 2201 case 'm': dir_crossmount = 0; break;
1994 case 'X': ++fix_elf; break; 2202 case 'X': ++fix_elf; break;
1995 case 'x': show_pax = 1; break; 2203 case 'x': show_pax = 1; break;
1999 case 'n': show_needed = 1; break; 2207 case 'n': show_needed = 1; break;
2000 case 'i': show_interp = 1; break; 2208 case 'i': show_interp = 1; break;
2001 case 'b': show_bind = 1; break; 2209 case 'b': show_bind = 1; break;
2002 case 'S': show_soname = 1; break; 2210 case 'S': show_soname = 1; break;
2003 case 'T': show_textrels = 1; break; 2211 case 'T': show_textrels = 1; break;
2004 case 'q': be_quiet = 1; break; 2212 case 'q': be_quiet = min(be_quiet, 20) + 1; break;
2005 case 'v': be_verbose = (be_verbose % 20) + 1; break; 2213 case 'v': be_verbose = min(be_verbose, 20) + 1; break;
2006 case 'a': show_perms = show_pax = show_phdr = show_textrel = show_rpath = show_bind = show_endian = 1; break; 2214 case 'a': show_perms = show_pax = show_phdr = show_textrel = show_rpath = show_bind = show_endian = 1; break;
2007 case 'D': show_endian = 1; break; 2215 case 'D': show_endian = 1; break;
2008 case 'I': show_osabi = 1; break; 2216 case 'I': show_osabi = 1; break;
2009 case 'Y': show_eabi = 1; break; 2217 case 'Y': show_eabi = 1; break;
2010 case 128: 2218 case 128:
2011 root = optarg; 2219 root_fd = open(optarg, O_RDONLY|O_CLOEXEC);
2220 if (root_fd == -1)
2221 err("Could not open root: %s", optarg);
2012 break; 2222 break;
2223 case 129: load_cache_config = use_ldpath = 1; break;
2013 case ':': 2224 case ':':
2014 err("Option '%c' is missing parameter", optopt); 2225 err("Option '%c' is missing parameter", optopt);
2015 case '?': 2226 case '?':
2016 err("Unknown option '%c' or argument missing", optopt); 2227 err("Unknown option '%c' or argument missing", optopt);
2017 default: 2228 default:
2018 err("Unhandled option '%c'; please report this", i); 2229 err("Unhandled option '%c'; please report this", i);
2019 } 2230 }
2020 } 2231 }
2021 if (show_textrels && be_verbose) { 2232 if (show_textrels && be_verbose)
2022 if (which("objdump") != NULL) 2233 has_objdump = bin_in_path("objdump");
2023 has_objdump = 1; 2234 /* precompile all the regexes */
2235 if (g_match) {
2236 regex_t preg;
2237 const char *this_sym;
2238 size_t n;
2239 int flags = REG_EXTENDED | REG_NOSUB | (g_match > 1 ? REG_ICASE : 0);
2240
2241 array_for_each(find_sym_arr, n, this_sym) {
2242 /* see scanelf_match_symname for logic info */
2243 switch (this_sym[0]) {
2244 case '%':
2245 while (*(this_sym++))
2246 if (*this_sym == '%') {
2247 ++this_sym;
2248 break;
2249 }
2250 break;
2251 case '+':
2252 case '-':
2253 ++this_sym;
2254 break;
2255 }
2256 if (*this_sym == '*')
2257 ++this_sym;
2258
2259 ret = regcomp(&preg, this_sym, flags);
2260 if (ret) {
2261 char err[256];
2262 regerror(ret, &preg, err, sizeof(err));
2263 err("regcomp of %s failed: %s", this_sym, err);
2264 }
2265 xarraypush(find_sym_regex_arr, &preg, sizeof(preg));
2266 }
2024 } 2267 }
2025 /* flatten arrays for display */ 2268 /* flatten arrays for display */
2026 if (array_cnt(find_lib_arr)) 2269 find_sym = array_flatten_str(find_sym_arr);
2027 find_lib = array_flatten_str(find_lib_arr); 2270 find_lib = array_flatten_str(find_lib_arr);
2028 if (array_cnt(find_section_arr))
2029 find_section = array_flatten_str(find_section_arr); 2271 find_section = array_flatten_str(find_section_arr);
2030 /* let the format option override all other options */ 2272 /* let the format option override all other options */
2031 if (out_format) { 2273 if (out_format) {
2032 show_pax = show_phdr = show_textrel = show_rpath = \ 2274 show_pax = show_phdr = show_textrel = show_rpath = \
2033 show_needed = show_interp = show_bind = show_soname = \ 2275 show_needed = show_interp = show_bind = show_soname = \
2034 show_textrels = show_perms = show_endian = show_size = \ 2276 show_textrels = show_perms = show_endian = show_size = \
2062 case 'i': show_interp = 1; break; 2304 case 'i': show_interp = 1; break;
2063 case 'b': show_bind = 1; break; 2305 case 'b': show_bind = 1; break;
2064 case 'S': show_soname = 1; break; 2306 case 'S': show_soname = 1; break;
2065 case 'T': show_textrels = 1; break; 2307 case 'T': show_textrels = 1; break;
2066 default: 2308 default:
2067 err("Invalid format specifier '%c' (byte %i)", 2309 err("invalid format specifier '%c' (byte %i)",
2068 out_format[i], i+1); 2310 out_format[i], i+1);
2069 } 2311 }
2070 } 2312 }
2071 2313
2072 /* construct our default format */ 2314 /* construct our default format */
2095 if (!be_quiet) xstrcat(&out_format, "%F ", &fmt_len); 2337 if (!be_quiet) xstrcat(&out_format, "%F ", &fmt_len);
2096 } 2338 }
2097 if (be_verbose > 2) printf("Format: %s\n", out_format); 2339 if (be_verbose > 2) printf("Format: %s\n", out_format);
2098 2340
2099 /* now lets actually do the scanning */ 2341 /* now lets actually do the scanning */
2100 if (scan_ldpath || use_ldcache) 2342 if (load_cache_config)
2101 load_ld_cache_config(0, __PAX_UTILS_DEFAULT_LD_CACHE_CONFIG); 2343 load_ld_cache_config(__PAX_UTILS_DEFAULT_LD_CACHE_CONFIG);
2102 if (scan_ldpath) scanelf_ldpath(); 2344 if (scan_ldpath) scanelf_ldpath();
2103 if (scan_envpath) scanelf_envpath(); 2345 if (scan_envpath) scanelf_envpath();
2104 if (!from_file && optind == argc && ttyname(0) == NULL && !scan_ldpath && !scan_envpath) 2346 if (!from_file && optind == argc && ttyname(0) == NULL && !scan_ldpath && !scan_envpath)
2105 from_file = "-"; 2347 from_file = "-";
2106 if (from_file) { 2348 if (from_file) {
2112 while (optind < argc) { 2354 while (optind < argc) {
2113 search_path = argv[optind++]; 2355 search_path = argv[optind++];
2114 ret = scanelf_dir(search_path); 2356 ret = scanelf_dir(search_path);
2115 } 2357 }
2116 2358
2359#ifdef __PAX_UTILS_CLEANUP
2117 /* clean up */ 2360 /* clean up */
2118 xarrayfree(ldpaths); 2361 xarrayfree(ldpaths);
2362 xarrayfree(find_sym_arr);
2119 xarrayfree(find_lib_arr); 2363 xarrayfree(find_lib_arr);
2120 xarrayfree(find_section_arr); 2364 xarrayfree(find_section_arr);
2365 free(find_sym);
2121 free(find_lib); 2366 free(find_lib);
2122 free(find_section); 2367 free(find_section);
2368 {
2369 size_t n;
2370 regex_t *preg;
2371 array_for_each(find_sym_regex_arr, n, preg)
2372 regfree(preg);
2373 xarrayfree(find_sym_regex_arr);
2374 }
2123 2375
2124 if (ldcache != 0) 2376 if (ldcache != 0)
2125 munmap(ldcache, ldcache_size); 2377 munmap(ldcache, ldcache_size);
2378#endif
2379
2126 return ret; 2380 return ret;
2127} 2381}
2128 2382
2129static char **get_split_env(const char *envvar) 2383static char **get_split_env(const char *envvar)
2130{ 2384{
2187 ret = parseargs(argc, argv); 2441 ret = parseargs(argc, argv);
2188 fclose(stdout); 2442 fclose(stdout);
2189#ifdef __PAX_UTILS_CLEANUP 2443#ifdef __PAX_UTILS_CLEANUP
2190 cleanup(); 2444 cleanup();
2191 warn("The calls to add/delete heap should be off:\n" 2445 warn("The calls to add/delete heap should be off:\n"
2192 "\t- 1 due to the out_buffer not being freed in scanelf_file()\n" 2446 "\t- 1 due to the out_buffer not being freed in scanelf_fileat()\n"
2193 "\t- 1 per QA_TEXTRELS/QA_EXECSTACK/QA_WX_LOAD"); 2447 "\t- 1 per QA_TEXTRELS/QA_EXECSTACK/QA_WX_LOAD");
2194#endif 2448#endif
2195 return ret; 2449 return ret;
2196} 2450}
2197 2451

Legend:
Removed from v.1.229  
changed lines
  Added in v.1.261

  ViewVC Help
Powered by ViewVC 1.1.20