src/libexec004075500011300000175000000000001522207755000131415ustar00srcmastrnetbsdsrc/libexec/CVS004075500011300000175000000000001522207755000135745ustar00srcmastrnetbsdsrc/libexec/CVS/Root010064400011300000175000000000441504273240700145130ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/CVS/Repository010064400011300000175000000000141504273240700157440ustar00srcmastrnetbsdsrc/libexec src/libexec/CVS/Entries010066400011300000175000000007511522207755000152110ustar00srcmastrnetbsd/Makefile/1.64/Mon Jun 6 10:56:28 2022//Tnetbsd-11 /Makefile.inc/1.9/Tue Jun 19 06:10:09 2012//Tnetbsd-11 D/atrun//// D/comsat//// D/fingerd//// D/ftpd//// D/getNAME//// D/getty//// D/httpd//// D/identd//// D/ld.aout_so//// D/ld.elf_so//// D/lfs_cleanerd//// D/mail.local//// D/makekey//// D/makewhatis//// D/rexecd//// D/rlogind//// D/rpc.rquotad//// D/rpc.rstatd//// D/rpc.rusersd//// D/rpc.rwalld//// D/rpc.sprayd//// D/rshd//// D/talkd//// D/telnetd//// D/tftpd//// D/utmp_update//// src/libexec/CVS/Tag010064400011300000175000000000131522207752200142770ustar00srcmastrnetbsdTnetbsd-11 src/libexec/Makefile010064400011300000175000000006621424735653400146710ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.64 2022/06/06 10:56:28 nia Exp $ # @(#)Makefile 8.1 (Berkeley) 6/4/93 .include SUBDIR= atrun \ comsat fingerd ftpd getty httpd identd ld.aout_so \ ld.elf_so lfs_cleanerd mail.local makekey rexecd \ rlogind rshd rpc.rquotad rpc.rstatd rpc.rusersd rpc.rwalld \ rpc.sprayd talkd telnetd tftpd utmp_update .if ${MKMAKEMANDB} == "no" SUBDIR+= getNAME makewhatis .endif .include src/libexec/Makefile.inc010064400011300000175000000002561177001370100154200ustar00srcmastrnetbsd# $NetBSD: Makefile.inc,v 1.9 2012/06/19 06:10:09 dholland Exp $ # @(#)Makefile.inc 8.1 (Berkeley) 6/4/93 USE_FORT?= yes # network server BINDIR?= /usr/libexec WARNS?= 5 src/libexec/atrun004075500011300000175000000000001504273240700142715ustar00srcmastrnetbsdsrc/libexec/atrun/CVS004075500011300000175000000000001504273240700147245ustar00srcmastrnetbsdsrc/libexec/atrun/CVS/Root010064400011300000175000000000441504273240700156440ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/atrun/CVS/Repository010064400011300000175000000000221504273240700170740ustar00srcmastrnetbsdsrc/libexec/atrun src/libexec/atrun/CVS/Entries010064400011300000175000000003161504273240700163340ustar00srcmastrnetbsd/Makefile/1.15/Sun Mar 13 00:32:09 2016//Tnetbsd-11 /atrun.8/1.14/Tue Mar 18 18:20:38 2014//Tnetbsd-11 /atrun.c/1.23/Tue Jan 10 20:29:48 2017//Tnetbsd-11 /atrun.h/1.8/Mon Oct 31 15:46:50 2005//Tnetbsd-11 D src/libexec/atrun/CVS/Tag010064400011300000175000000000131522207752200154300ustar00srcmastrnetbsdTnetbsd-11 src/libexec/atrun/Makefile010064400011300000175000000004561267113241100160040ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.15 2016/03/13 00:32:09 dholland Exp $ .include PROG= atrun SRCS= atrun.c BINDIR= /usr/libexec MAN= atrun.8 .PATH.c: ${NETBSDSRCDIR}/usr.bin/at SRCS+= privs.c CPPFLAGS+= -I${NETBSDSRCDIR}/usr.bin/at COPTS.atrun.c = -Wno-format-nonliteral .include src/libexec/atrun/atrun.8010064400011300000175000000026171231210716600155700ustar00srcmastrnetbsd.\" $NetBSD: atrun.8,v 1.14 2014/03/18 18:20:38 riastradh Exp $ .\" $OpenBSD: atrun.8,v 1.4 1998/05/22 22:16:29 deraadt Exp $ .\" $FreeBSD: atrun.man,v 1.3 1997/02/22 14:20:55 peter Exp $ .Dd April 12, 1995 .Dt ATRUN 8 .Os .Sh NAME .Nm atrun .Nd run jobs queued for later execution .Sh SYNOPSIS .Nm .Op Fl l Ar load_avg .Op Fl d .Sh DESCRIPTION .Nm runs jobs queued by .Xr at 1 . Root's .Xr crontab 5 must contain the line: .Bd -literal */10 * * * * /usr/libexec/atrun .Ed .Pp so that .Nm gets called every ten minutes. .Pp At every invocation, every job in lowercase queues whose starting time has passed is started. A maximum of one batch job (denoted by uppercase queues) is started each time .Nm is invoked. .Sh OPTIONS .Bl -tag -width indent .It Fl l Ar load_avg Specifies a limiting load factor, over which batch jobs should not be run, instead of the compiled-in value of 1.5. .It Fl d Debug; print error messages to standard error instead of using .Xr syslog 3 . .El .Sh WARNINGS For .Nm to work, a .Xr cron 8 daemon needs to be running. .Sh FILES .Bl -tag -width /var/at/spool -compact .It Pa /var/at/spool Directory containing output spool files .It Pa /var/at/jobs Directory containing job files .El .Sh SEE ALSO .Xr at 1 , .Xr crontab 1 , .Xr syslog 3 , .Xr crontab 5 , .Xr cron 8 .Sh AUTHORS .An Thomas Koenig Aq Mt ig25@rz.uni-karlsruhe.de .Sh BUGS The functionality of .Nm should be merged into .Xr cron 8 . src/libexec/atrun/atrun.c010064400011300000175000000310741303524207400156430ustar00srcmastrnetbsd/* $NetBSD: atrun.c,v 1.23 2017/01/10 20:29:48 christos Exp $ */ /* * atrun.c - run jobs queued by at; run with root privileges. * Copyright (C) 1993, 1994 Thomas Koenig * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. The name of the author(s) may not be used to endorse or promote * products derived from this software without specific prior written * permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR(S) ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR(S) BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ /* System Headers */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include /* Local headers */ #include "privs.h" #include "pathnames.h" #include "atrun.h" /* File scope variables */ #if 0 static char rcsid[] = "$OpenBSD: atrun.c,v 1.7 1997/09/08 22:12:10 millert Exp $"; #else __RCSID("$NetBSD: atrun.c,v 1.23 2017/01/10 20:29:48 christos Exp $"); #endif static int debug = 0; /* Local functions */ static void perr(const char *, ...) __dead; static void perrx(const char *, ...) __dead; static int write_string(int, const char *); static void run_file(const char *, uid_t, gid_t); static void become_user(struct passwd *, uid_t); static const char nobody[] = "nobody"; static void perr(const char *fmt, ...) { char buf[2048]; va_list ap; va_start(ap, fmt); (void)vsnprintf(buf, sizeof(buf), fmt, ap); va_end(ap); if (debug) warn("%s", buf); else syslog(LOG_ERR, "%s: %m", buf); exit(EXIT_FAILURE); } static void perrx(const char *fmt, ...) { va_list ap; va_start(ap, fmt); if (debug) vwarnx(fmt, ap); else vsyslog(LOG_ERR, fmt, ap); va_end(ap); exit(EXIT_FAILURE); } __dead void privs_fail(const char *msg) { perr("%s", msg); } static int write_string(int fd, const char *a) { return write(fd, a, strlen(a)); } static void become_user(struct passwd *pentry, uid_t uid) { if (initgroups(pentry->pw_name, pentry->pw_gid) == -1) perr("Cannot init group list for `%s'", pentry->pw_name); if (setegid(pentry->pw_gid) == -1 || setgid(pentry->pw_gid) == -1) perr("Cannot change primary group to %lu", (unsigned long)pentry->pw_gid); if (setsid() == -1) perr("Cannot create a session"); if (setlogin(pentry->pw_name) == -1) perr("Cannot set login name to `%s'", pentry->pw_name); if (setuid(uid) == -1 || seteuid(uid) == -1) perr("Cannot set user id to %lu", (unsigned long)uid); if (chdir(pentry->pw_dir) == -1) (void)chdir("/"); } static void run_file(const char *filename, uid_t uid, gid_t gid) { /* * Run a file by by spawning off a process which redirects I/O, * spawns a subshell, then waits for it to complete and spawns another * process to send mail to the user. */ pid_t pid; int fd_out, fd_in; int queue; char mailbuf[LOGIN_NAME_MAX], fmt[49]; char *mailname = NULL; FILE *stream; int send_mail = 0; struct stat buf, lbuf; off_t size; struct passwd *pentry; int fflags; uid_t nuid; gid_t ngid; int serrno; privs_enter(); if (chmod(filename, S_IRUSR) == -1) perr("Cannot change file permissions to `%s'", filename); privs_exit(); pid = fork(); if (pid == -1) perr("Cannot fork"); else if (pid != 0) return; /* * Let's see who we mail to. Hopefully, we can read it from the * command file; if not, send it to the owner, or, failing that, to * root. */ pentry = getpwuid(uid); if (pentry == NULL) perrx("Userid %lu not found - aborting job `%s'", (unsigned long)uid, filename); privs_enter(); stream = fopen(filename, "r"); serrno = errno; privs_exit(); if (stream == NULL) { errno = serrno; perr("Cannot open input file"); } if (pentry->pw_expire && time(NULL) >= pentry->pw_expire) perrx("Userid %lu has expired - aborting job `%s'", (unsigned long)uid, filename); if ((fd_in = dup(fileno(stream))) == -1) perr("Error duplicating input file descriptor"); if (fstat(fd_in, &buf) == -1) perr("Error in fstat of input file descriptor"); privs_enter(); if (lstat(filename, &lbuf) == -1) perr("Error in lstat of `%s'", filename); privs_exit(); if (S_ISLNK(lbuf.st_mode)) perrx("Symbolic link encountered in job `%s' - aborting", filename); if ((lbuf.st_dev != buf.st_dev) || (lbuf.st_ino != buf.st_ino) || (lbuf.st_uid != buf.st_uid) || (lbuf.st_gid != buf.st_gid) || (lbuf.st_size!=buf.st_size)) perrx("Somebody changed files from under us for job `%s' " "- aborting", filename); if (buf.st_nlink > 1) perrx("Somebody is trying to run a linked script for job `%s'", filename); if ((fflags = fcntl(fd_in, F_GETFD)) < 0) perr("Error in fcntl"); (void)fcntl(fd_in, F_SETFD, fflags & ~FD_CLOEXEC); (void)snprintf(fmt, sizeof(fmt), "#!/bin/sh\n# atrun uid=%%u gid=%%u\n# mail %%%ds %%d", LOGIN_NAME_MAX); if (fscanf(stream, fmt, &nuid, &ngid, mailbuf, &send_mail) != 4) perrx("File `%s' is in wrong format - aborting", filename); if (mailbuf[0] == '-') perrx("Illegal mail name `%s' in `%s'", mailbuf, filename); mailname = mailbuf; if (nuid != uid) perrx("Job `%s' - userid %lu does not match file uid %lu", filename, (unsigned long)nuid, (unsigned long)uid); if (ngid != gid) perrx("Job `%s' - groupid %lu does not match file gid %lu", filename, (unsigned long)ngid, (unsigned long)gid); (void)fclose(stream); privs_enter(); if (chdir(_PATH_ATSPOOL) == -1) perr("Cannot chdir to `%s'", _PATH_ATSPOOL); /* * Create a file to hold the output of the job we are about to * run. Write the mail header. */ if ((fd_out = open(filename, O_WRONLY | O_CREAT | O_EXCL, S_IWUSR | S_IRUSR)) == -1) perr("Cannot create output file `%s'", filename); privs_exit(); write_string(fd_out, "To: "); write_string(fd_out, mailname); write_string(fd_out, "\nSubject: Output from your job "); write_string(fd_out, filename); write_string(fd_out, "\n\n"); if (fstat(fd_out, &buf) == -1) perr("Error in fstat of output file descriptor"); size = buf.st_size; (void)close(STDIN_FILENO); (void)close(STDOUT_FILENO); (void)close(STDERR_FILENO); pid = fork(); if (pid < 0) perr("Error in fork"); else if (pid == 0) { char *nul = NULL; char **nenvp = &nul; /* * Set up things for the child; we want standard input from * the input file, and standard output and error sent to * our output file. */ if (lseek(fd_in, (off_t) 0, SEEK_SET) == (off_t)-1) perr("Error in lseek"); if (dup(fd_in) != STDIN_FILENO) perr("Error in I/O redirection"); if (dup(fd_out) != STDOUT_FILENO) perr("Error in I/O redirection"); if (dup(fd_out) != STDERR_FILENO) perr("Error in I/O redirection"); (void)close(fd_in); (void)close(fd_out); privs_enter(); if (chdir(_PATH_ATJOBS) == -1) perr("Cannot chdir to `%s'", _PATH_ATJOBS); queue = *filename; if (queue > 'b') nice(queue - 'b'); become_user(pentry, uid); (void)execle("/bin/sh", "sh", (char *)NULL, nenvp); perr("Exec failed for /bin/sh"); } /* We're the parent. Let's wait. */ (void)close(fd_in); (void)close(fd_out); (void)waitpid(pid, NULL, 0); /* * Send mail. Unlink the output file first, so it is deleted * after the run. */ privs_enter(); if (stat(filename, &buf) == -1) perr("Error in stat of output file `%s'", filename); if (open(filename, O_RDONLY) != STDIN_FILENO) perr("Open of jobfile `%s' failed", filename); (void)unlink(filename); privs_exit(); if ((buf.st_size != size) || send_mail) { /* Fork off a child for sending mail */ privs_enter(); become_user(pentry, uid); execl(_PATH_SENDMAIL, "sendmail", "-F", "Atrun Service", "-odi", "-oem", "-t", (char *) NULL); perr("Exec failed for mail command `%s'", _PATH_SENDMAIL); privs_exit(); } exit(EXIT_SUCCESS); } /* Global functions */ int main(int argc, char *argv[]) { /* * Browse through _PATH_ATJOBS, checking all the jobfiles whether * they should be executed and or deleted. The queue is coded into * the first byte of the job filename, the date (in minutes since * Eon) as a hex number in the following eight bytes, followed by * a dot and a serial number. A file which has not been executed * yet is denoted by its execute - bit set. For those files which * are to be executed, run_file() is called, which forks off a * child which takes care of I/O redirection, forks off another * child for execution and yet another one, optionally, for sending * mail. Files which already have run are removed during the * next invocation. */ DIR *spool; struct dirent *dirent; struct stat buf; unsigned long ctm; int jobno; char queue; time_t now, run_time; char batch_name[] = "Z2345678901234"; uid_t batch_uid; gid_t batch_gid; int c; int run_batch; double la, load_avg = ATRUN_MAXLOAD; struct group *grp; struct passwd *pwd; openlog("atrun", LOG_PID, LOG_CRON); if ((grp = getgrnam(nobody)) == NULL) perrx("Cannot get gid for `%s'", nobody); if ((pwd = getpwnam(nobody)) == NULL) perrx("Cannot get uid for `%s'", nobody); /* * We don't need root privileges all the time; running under uid * and gid nobody is fine except for privileged operations. */ privs_relinquish_root(pwd->pw_uid, grp->gr_gid); opterr = 0; errno = 0; while ((c = getopt(argc, argv, "dl:")) != -1) { switch (c) { case 'l': if (sscanf(optarg, "%lf", &load_avg) != 1) perrx("Bad argument to option -l: ", optarg); if (load_avg <= 0) load_avg = ATRUN_MAXLOAD; break; case 'd': debug++; break; case '?': perrx("Usage: %s [-l ] [-d]", getprogname()); /*NOTREACHED*/ default: perrx("Invalid option: %c", c); /*NOTREACHED*/ } } privs_enter(); if (chdir(_PATH_ATJOBS) == -1) perr("Cannot change directory to `%s'", _PATH_ATJOBS); /* * Main loop. Open spool directory for reading and look over all * the files in there. If the filename indicates that the job * should be run and the x bit is set, fork off a child which sets * its user and group id to that of the files and exec a /bin/sh * which executes the shell script. Unlink older files if they * should no longer be run. For deletion, their r bit has to be * turned on. * * Also, pick the oldest batch job to run, at most one per * invocation of atrun. */ if ((spool = opendir(".")) == NULL) perr("Cannot open `%s'", _PATH_ATJOBS); privs_exit(); now = time(NULL); run_batch = 0; batch_uid = (uid_t) -1; batch_gid = (gid_t) -1; while ((dirent = readdir(spool)) != NULL) { privs_enter(); if (stat(dirent->d_name, &buf) == -1) perr("Cannot stat `%s' in `%s'", dirent->d_name, _PATH_ATJOBS); privs_exit(); /* We don't want directories */ if (!S_ISREG(buf.st_mode)) continue; if (sscanf(dirent->d_name, "%c%5x%8lx", &queue, &jobno, &ctm) != 3) continue; run_time = (time_t) ctm * 60; if ((S_IXUSR & buf.st_mode) && (run_time <= now)) { if (isupper((unsigned char)queue) && (strcmp(batch_name, dirent->d_name) > 0)) { run_batch = 1; (void)strlcpy(batch_name, dirent->d_name, sizeof(batch_name)); batch_uid = buf.st_uid; batch_gid = buf.st_gid; } /* The file is executable and old enough */ if (islower((unsigned char)queue)) run_file(dirent->d_name, buf.st_uid, buf.st_gid); } /* Delete older files */ if ((run_time < now) && !(S_IXUSR & buf.st_mode) && (S_IRUSR & buf.st_mode)) { privs_enter(); (void)unlink(dirent->d_name); privs_exit(); } } /* Run the single batch file, if any */ if (run_batch && ((getloadavg(&la, 1) == 1) && la < load_avg)) run_file(batch_name, batch_uid, batch_gid); closelog(); return EXIT_SUCCESS; } src/libexec/atrun/atrun.h010064400011300000175000000037021033143615200156430ustar00srcmastrnetbsd/* $NetBSD: atrun.h,v 1.8 2005/10/31 15:46:50 christos Exp $ */ /* * Copyright (c) 1993 Christopher G. Demetriou * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed for the * NetBSD Project. See http://www.NetBSD.org/ for * information about NetBSD. * 4. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. * * <> * * From: $OpenBSD: atrun.h,v 1.2 1997/03/01 23:39:44 millert Exp $ */ #define ATRUN_MAXLOAD 1.5 src/libexec/comsat004075500011300000175000000000001504273241000144205ustar00srcmastrnetbsdsrc/libexec/comsat/CVS004075500011300000175000000000001504273241000150535ustar00srcmastrnetbsdsrc/libexec/comsat/CVS/Root010064400011300000175000000000441504273240700160010ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/comsat/CVS/Repository010064400011300000175000000000231504273240700172320ustar00srcmastrnetbsdsrc/libexec/comsat src/libexec/comsat/CVS/Entries010064400011300000175000000002351504273241000164630ustar00srcmastrnetbsd/Makefile/1.7/Mon Mar 16 02:24:56 2009//Tnetbsd-11 /comsat.8/1.15/Tue Dec 20 09:22:18 2016//Tnetbsd-11 /comsat.c/1.42/Sat May 29 23:12:30 2010//Tnetbsd-11 D src/libexec/comsat/CVS/Tag010064400011300000175000000000131522207752200155650ustar00srcmastrnetbsdTnetbsd-11 src/libexec/comsat/Makefile010064400011300000175000000004701115733417000161410ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.7 2009/03/16 02:24:56 lukem Exp $ # from: @(#)Makefile 8.1 (Berkeley) 6/4/93 .include PROG= comsat SRCS= comsat.c utmpentry.c MAN= comsat.8 .PATH.c: ${NETBSDSRCDIR}/usr.bin/who CPPFLAGS+=-I${NETBSDSRCDIR}/usr.bin/who -DSUPPORT_UTMPX -DSUPPORT_UTMP .include src/libexec/comsat/comsat.8010064400011300000175000000066001302617411200160540ustar00srcmastrnetbsd.\" $NetBSD: comsat.8,v 1.15 2016/12/20 09:22:18 abhinav Exp $ .\" .\" Copyright (c) 1983, 1991, 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. Neither the name of the University nor the names of its contributors .\" may be used to endorse or promote products derived from this software .\" without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF .\" SUCH DAMAGE. .\" .\" from: @(#)comsat.8 8.1 (Berkeley) 6/4/93 .\" .Dd May 29, 2010 .Dt COMSAT 8 .Os .Sh NAME .Nm comsat .Nd biff server .Sh SYNOPSIS .Nm .Op Fl l .Sh DESCRIPTION .Nm is the server process which receives reports of incoming mail and notifies users if they have requested this service. .Nm receives messages on a datagram port associated with the .Dq biff service specification (see .Xr services 5 and .Xr inetd 8 ) . The one line messages are of the form: .Pp .Dl user@mailbox-offset .Pp If the .Em user specified is logged in to the system and the associated terminal has the owner execute bit turned on (by a .Dq Li biff y ) , the .Em offset is used as a seek offset into the appropriate mailbox file and the first 7 lines or 560 characters of the message are printed on the user's terminal. Lines which appear to be part of the message header other than the .Dq From or .Dq Subject lines are not included in the displayed message. .Sh OPTIONS The .Nm program supports this option: .Bl -tag -width 12345 .It Fl l The .Fl l option turns on .Xr syslogd 8 log messages. .El .Sh FILES To find out who's logged on and on what terminals .Nm consults: .Pp .Bl -tag -width /var/run/utmpx -compact .It Pa /var/run/utmp .It Pa /var/run/utmpx .El .Sh SEE ALSO .Xr biff 1 , .Xr services 5 , .Xr inetd 8 , .Xr syslogd 8 .Sh HISTORY The .Nm command appeared in .Bx 4.2 . .Sh BUGS The message header filtering is prone to error. The density of the information presented is near the theoretical minimum. .Pp Users should be notified of mail which arrives on other machines than the one to which they are currently logged in. .Pp The notification should appear in a separate window so it does not mess up the screen. .Pp .Nm runs as root so that it can open the user's maildrop. src/libexec/comsat/comsat.c010064400011300000175000000212511140031753600161310ustar00srcmastrnetbsd/* $NetBSD: comsat.c,v 1.42 2010/05/29 23:12:30 dholland Exp $ */ /* * Copyright (c) 1980, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint __COPYRIGHT("@(#) Copyright (c) 1980, 1993\ The Regents of the University of California. All rights reserved."); #if 0 static char sccsid[] = "from: @(#)comsat.c 8.1 (Berkeley) 6/4/93"; #else __RCSID("$NetBSD: comsat.c,v 1.42 2010/05/29 23:12:30 dholland Exp $"); #endif #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #ifdef SUPPORT_UTMP #include #endif #ifdef SUPPORT_UTMPX #include #endif #include "utmpentry.h" #if !defined(SUPPORT_UTMP) && !defined(SUPPORT_UTMPX) #error "SUPPORT_UTMP and/or SUPPORT_UTMPX must be defined" #endif #define dsyslog if (debug) syslog #define MAXIDLE 120 static int logging; static int debug; static char hostname[MAXHOSTNAMELEN + 1]; static int nutmp; static struct utmpentry *utmp = NULL; static time_t lastmsgtime; static volatile sig_atomic_t needupdate; int main(int, char *[]); static void jkfprintf(FILE *, const char *, off_t, const char *); static void mailfor(char *); static void notify(const struct utmpentry *, off_t); static void onalrm(int); static void checkutmp(void); int main(int argc, char *argv[]) { struct sockaddr_storage from; int cc, ch; socklen_t fromlen; char msgbuf[100]; sigset_t nsigset, osigset; /* verify proper invocation */ fromlen = sizeof(from); if (getsockname(0, (struct sockaddr *)(void *)&from, &fromlen) == -1) err(1, "getsockname"); openlog("comsat", LOG_PID, LOG_DAEMON); while ((ch = getopt(argc, argv, "l")) != -1) switch (ch) { case 'l': logging = 1; break; default: syslog(LOG_ERR, "Usage: %s [-l]", getprogname()); exit(1); } if (chdir(_PATH_MAILDIR) == -1) { syslog(LOG_ERR, "chdir: %s: %m", _PATH_MAILDIR); (void)recv(0, msgbuf, sizeof(msgbuf) - 1, 0); exit(1); } (void)time(&lastmsgtime); (void)gethostname(hostname, sizeof(hostname)); hostname[sizeof(hostname) - 1] = '\0'; (void)signal(SIGALRM, onalrm); (void)signal(SIGTTOU, SIG_IGN); (void)signal(SIGCHLD, SIG_IGN); (void)sigemptyset(&nsigset); (void)sigaddset(&nsigset, SIGALRM); if (sigprocmask(SIG_SETMASK, NULL, &osigset) == -1) { syslog(LOG_ERR, "sigprocmask get failed (%m)"); exit(1); } needupdate = 1; for (;;) { cc = recv(0, msgbuf, sizeof(msgbuf) - 1, 0); if (cc <= 0) { if (errno != EINTR) sleep(1); errno = 0; checkutmp(); continue; } else checkutmp(); if (!nutmp) /* no one has logged in yet */ continue; if (sigprocmask(SIG_SETMASK, &nsigset, NULL) == -1) { syslog(LOG_ERR, "sigprocmask set failed (%m)"); exit(1); } msgbuf[cc] = '\0'; (void)time(&lastmsgtime); mailfor(msgbuf); if (sigprocmask(SIG_SETMASK, &osigset, NULL) == -1) { syslog(LOG_ERR, "sigprocmask restore failed (%m)"); exit(1); } } } static void /*ARGSUSED*/ onalrm(int signo) { needupdate = 1; } static void checkutmp(void) { if (!needupdate) return; needupdate = 0; if (time(NULL) - lastmsgtime >= MAXIDLE) exit(0); (void)alarm((u_int)15); nutmp = getutentries(NULL, &utmp); } static void mailfor(char *name) { struct utmpentry *ep; char *cp, *fn; off_t offset; intmax_t val; if (!(cp = strchr(name, '@'))) return; *cp = '\0'; errno = 0; offset = val = strtoimax(cp + 1, &fn, 10); if (errno == ERANGE || offset != val) return; if (fn && *fn && *fn != '\n') { /* * Procmail sends messages to comsat with a trailing colon * and a pathname to the folder where the new message was * deposited. Since we can't reliably open only regular * files, we need to ignore these. With one exception: * if it mentions the user's system mailbox. */ char maildir[MAXPATHLEN]; int l = snprintf(maildir, sizeof(maildir), ":%s/%s", _PATH_MAILDIR, name); if (l >= (int)sizeof(maildir) || strcmp(maildir, fn) != 0) return; } for (ep = utmp; ep != NULL; ep = ep->next) if (strcmp(ep->name, name) == 0) notify(ep, offset); } static void notify(const struct utmpentry *ep, off_t offset) { FILE *tp; struct passwd *p; struct stat stb; struct termios ttybuf; char tty[sizeof(_PATH_DEV) + sizeof(ep->line) + 1]; const char *cr = ep->line; if (strncmp(cr, "pts/", 4) == 0) cr += 4; if (strchr(cr, '/')) { /* A slash is an attempt to break security... */ syslog(LOG_AUTH | LOG_NOTICE, "Unexpected `/' in `%s'", ep->line); return; } (void)snprintf(tty, sizeof(tty), "%s%s", _PATH_DEV, ep->line); if (stat(tty, &stb) == -1 || !(stb.st_mode & S_IEXEC)) { dsyslog(LOG_DEBUG, "%s: wrong mode on %s", ep->name, tty); return; } dsyslog(LOG_DEBUG, "notify %s on %s", ep->name, tty); switch (fork()) { case -1: syslog(LOG_NOTICE, "fork failed (%m)"); return; case 0: break; default: return; } (void)signal(SIGALRM, SIG_DFL); (void)alarm(30); if ((tp = fopen(tty, "w")) == NULL) { dsyslog(LOG_ERR, "open `%s' (%s)", tty, strerror(errno)); _exit(1); } if (tcgetattr(fileno(tp), &ttybuf) == -1) { dsyslog(LOG_ERR, "tcgetattr `%s' (%s)", tty, strerror(errno)); _exit(1); } cr = (ttybuf.c_oflag & ONLCR) && (ttybuf.c_oflag & OPOST) ? "\n" : "\n\r"; /* Set uid/gid/groups to user's in case mail drop is on nfs */ if ((p = getpwnam(ep->name)) == NULL || initgroups(p->pw_name, p->pw_gid) == -1 || setgid(p->pw_gid) == -1 || setuid(p->pw_uid) == -1) _exit(1); if (logging) syslog(LOG_INFO, "biff message for %s", ep->name); (void)fprintf(tp, "%s\007New mail for %s@%.*s\007 has arrived:%s----%s", cr, ep->name, (int)sizeof(hostname), hostname, cr, cr); jkfprintf(tp, ep->name, offset, cr); (void)fclose(tp); _exit(0); } static void jkfprintf(FILE *tp, const char *name, off_t offset, const char *cr) { FILE *fi; int linecnt, charcnt, inheader; char line[BUFSIZ], visline[BUFSIZ * 4 + 1], *nl; if ((fi = fopen(name, "r")) == NULL) return; (void)fseeko(fi, offset, SEEK_SET); /* * Print the first 7 lines or 560 characters of the new mail * (whichever comes first). Skip header crap other than * From and Subject. */ linecnt = 7; charcnt = 560; inheader = 1; while (fgets(line, sizeof(line), fi) != NULL) { line[sizeof(line) - 1] = '\0'; if (inheader) { if (line[0] == '\n') { inheader = 0; continue; } if (line[0] == ' ' || line[0] == '\t' || (strncasecmp(line, "From:", 5) && strncasecmp(line, "Subject:", 8))) continue; } if (strncmp(line, "From ", 5) == 0) { (void)fprintf(tp, "----%s", cr); (void)fclose(fi); return; } if (linecnt <= 0 || charcnt <= 0) { (void)fprintf(tp, "...more...%s", cr); (void)fclose(fi); return; } if ((nl = strchr(line, '\n')) != NULL) *nl = '\0'; /* strip weird stuff so can't trojan horse stupid terminals */ (void)strvis(visline, line, VIS_CSTYLE); (void)fputs(visline, tp); (void)fputs(cr, tp); --linecnt; } (void)fprintf(tp, "----%s\n", cr); (void)fclose(fi); } src/libexec/fingerd004075500011300000175000000000001504273241000145505ustar00srcmastrnetbsdsrc/libexec/fingerd/CVS004075500011300000175000000000001504273241000152035ustar00srcmastrnetbsdsrc/libexec/fingerd/CVS/Root010064400011300000175000000000441504273241000161230ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/fingerd/CVS/Repository010064400011300000175000000000241504273241000173550ustar00srcmastrnetbsdsrc/libexec/fingerd src/libexec/fingerd/CVS/Entries010064400011300000175000000003251504273241000166130ustar00srcmastrnetbsd/Makefile/1.9/Mon Jan 10 02:58:58 2005//Tnetbsd-11 /fingerd.8/1.22/Sat Dec 24 05:40:49 2016//Tnetbsd-11 /fingerd.c/1.27/Thu Mar 15 02:02:21 2012//Tnetbsd-11 /pathnames.h/1.4/Thu Aug 7 09:46:38 2003//Tnetbsd-11 D src/libexec/fingerd/CVS/Tag010064400011300000175000000000131522207752200157150ustar00srcmastrnetbsdTnetbsd-11 src/libexec/fingerd/Makefile010064400011300000175000000003471017036756200163010ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.9 2005/01/10 02:58:58 lukem Exp $ # from: @(#)Makefile 8.1 (Berkeley) 6/4/93 .include PROG= fingerd MAN= fingerd.8 .if (${USE_INET6} != "no") CPPFLAGS+=-DINET6 .endif .include src/libexec/fingerd/fingerd.8010064400011300000175000000116671302740514100163450ustar00srcmastrnetbsd.\" $NetBSD: fingerd.8,v 1.22 2016/12/24 05:40:49 abhinav Exp $ .\" .\" Copyright (c) 1980, 1991, 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. Neither the name of the University nor the names of its contributors .\" may be used to endorse or promote products derived from this software .\" without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF .\" SUCH DAMAGE. .\" .\" from: @(#)fingerd.8 8.1 (Berkeley) 6/4/93 .\" .Dd September 12, 2002 .Dt FINGERD 8 .Os .Sh NAME .Nm fingerd .Nd remote user information server .Sh SYNOPSIS .Nm .Op Fl 8ghlmpSsu .Op Fl P Ar filename .Sh DESCRIPTION .Nm is a simple protocol based on RFC 1288 that provides an interface to the .Xr finger 1 program at several network sites. The program is supposed to return a friendly, human-oriented status report on either the system at the moment or a particular person in depth. There is no required format and the protocol consists mostly of specifying a single .Dq command line . .Pp .Nm is started by .Xr inetd 8 , which listens for .Tn TCP requests at port 79. Once handed a connection, .Nm reads a single command line terminated by a .Aq Tn CRLF which it then passes to .Xr finger 1 . .Nm closes its connections as soon as the output is finished. .Pp If the line is null (i.e., just a .Aq Tn CRLF is sent) then .Xr finger 1 returns a .Dq default report that lists all people logged into the system at that moment. .Pp If a user name is specified (e.g., .Pf eric Aq Tn CRLF ) then the response lists more extended information for only that particular user, whether logged in or not. Allowable .Dq names in the command line include both .Dq login names and .Dq user names . If a name is ambiguous, all possible derivations are returned. .Pp The following options may be passed to .Nm as server program arguments in .Pa /etc/inetd.conf : .Bl -tag -width XPXfilenameX .It Fl 8 Enable 8-bit output. .It Fl g Do not show any gecos information besides the users' real names. .It Fl h Display the name of the remote host in short mode, instead of the office location and office phone. .It Fl l Enable logging. The name of the host originating the query, and the actual request is reported via .Xr syslog 3 at LOG_NOTICE priority. A request of the form .Sq /W or .Sq /w will return long output. Empty requests will return all currently logged in users. All other requests look for specific users. See RFC 1288 for details. .It Fl m Prevent matching of .Ar user names. .Ar User is usually a login name; however, matching will also be done on the users' real names, unless the .Fl m option is supplied. .It Fl P Ar filename Use an alternate program as the local information provider. The default local program executed by .Nm is .Xr finger 1 . By specifying a customized local server, this option allows a system manager to have more control over what information is provided to remote sites. .It Fl p Prevents .Xr finger 1 from displaying the contents of the .Dq Pa .plan and .Dq Pa .project files. .It Fl S Prints user information in short mode, one line per user. This overrides the .Dq Pa Whois switch that may be passed in from the remote client. .It Fl s Disable forwarding of queries to other remote hosts. .It Fl u Queries without a user name are rejected. .El .Sh SEE ALSO .Xr finger 1 , .Xr inetd 8 .Sh HISTORY The .Nm command appeared in .Bx 4.3 . .Sh BUGS Connecting directly to the server from a .Tn TIP or an equally narrow-minded .Tn TELNET Ns -protocol user program can result in meaningless attempts at option negotiation being sent to the server, which will foul up the command line interpretation. .Nm should be taught to filter out .Tn IAC Ns 's and perhaps even respond negatively .Pq Tn IAC WON'T to all option commands received. src/libexec/fingerd/fingerd.c010064400011300000175000000132211173024665500164200ustar00srcmastrnetbsd/* $NetBSD: fingerd.c,v 1.27 2012/03/15 02:02:21 joerg Exp $ */ /* * Copyright (c) 1983, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint __COPYRIGHT("@(#) Copyright (c) 1983, 1993\ The Regents of the University of California. All rights reserved."); #endif /* not lint */ #ifndef lint #if 0 static char sccsid[] = "from: @(#)fingerd.c 8.1 (Berkeley) 6/4/93"; #else __RCSID("$NetBSD: fingerd.c,v 1.27 2012/03/15 02:02:21 joerg Exp $"); #endif #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include #include #include #include "pathnames.h" __dead static void my_err(const char *, ...) __printflike(1, 2); int main(int argc, char *argv[]) { FILE *fp; int ch, ac = 2; char *lp = NULL /* XXX gcc */; struct sockaddr_storage ss; int p[2], logging, no_forward, user_required, short_list; socklen_t sval; #define ENTRIES 50 char **ap, *av[ENTRIES + 1], **comp, line[1024], *prog, *s; #if 0 const char *av[ENTRIES + 1], **comp; const char *prog; #endif char hostbuf[MAXHOSTNAMELEN]; prog = __UNCONST(_PATH_FINGER); logging = no_forward = user_required = short_list = 0; openlog("fingerd", LOG_PID, LOG_DAEMON); opterr = 0; while ((ch = getopt(argc, argv, "gsluShmpP:8")) != -1) { switch (ch) { case 'l': logging = 1; break; case 'P': prog = optarg; break; case 's': no_forward = 1; break; case 'u': user_required = 1; break; case 'S': short_list = 1; av[ac++] = __UNCONST("-s"); break; case 'h': av[ac++] = __UNCONST("-h"); break; case 'm': av[ac++] = __UNCONST("-m"); break; case 'p': av[ac++] = __UNCONST("-p"); break; case 'g': av[ac++] = __UNCONST("-g"); break; case '8': av[ac++] = __UNCONST("-8"); break; case '?': default: my_err("illegal option -- %c", optopt); } if (ac >= ENTRIES) my_err("Too many options provided"); } if (logging) { sval = sizeof(ss); if (getpeername(0, (struct sockaddr *)&ss, &sval) < 0) my_err("getpeername: %s", strerror(errno)); (void)getnameinfo((struct sockaddr *)&ss, sval, hostbuf, sizeof(hostbuf), NULL, 0, 0); lp = hostbuf; } if (!fgets(line, sizeof(line), stdin)) { if (logging) syslog(LOG_NOTICE, "query from %s", lp); exit(1); } while ((s = strrchr(line, '\n')) != NULL || (s = strrchr(line, '\r')) != NULL) *s = '\0'; if (logging) { if (*line == '\0') syslog(LOG_NOTICE, "query from %s", lp); else syslog(LOG_NOTICE, "query from %s: %s", lp, line); } if (ac >= ENTRIES) my_err("Too many options provided"); av[ac++] = __UNCONST("--"); comp = &av[1]; for (lp = line, ap = &av[ac]; ac < ENTRIES;) { if ((*ap = strtok(lp, " \t\r\n")) == NULL) break; lp = NULL; if (no_forward && strchr(*ap, '@')) { (void) puts("forwarding service denied\r\n"); exit(1); } ch = strlen(*ap); while ((*ap)[ch-1] == '@') (*ap)[--ch] = '\0'; if (**ap == '\0') continue; /* RFC1196: "/[Ww]" == "-l" */ if ((*ap)[0] == '/' && ((*ap)[1] == 'W' || (*ap)[1] == 'w')) { if (!short_list) { av[1] = __UNCONST("-l"); comp = &av[0]; } } else { ap++; ac++; } } av[ENTRIES - 1] = NULL; if ((lp = strrchr(prog, '/'))) *comp = ++lp; else *comp = prog; if (user_required) { for (ap = comp + 1; strcmp("--", *(ap++)); ); if (*ap == NULL) { (void) puts("must provide username\r\n"); exit(1); } } if (pipe(p) < 0) my_err("pipe: %s", strerror(errno)); switch(fork()) { case 0: (void) close(p[0]); if (p[1] != 1) { (void) dup2(p[1], 1); (void) close(p[1]); } execv(prog, comp); my_err("execv: %s: %s", prog, strerror(errno)); _exit(1); case -1: my_err("fork: %s", strerror(errno)); } (void) close(p[1]); if (!(fp = fdopen(p[0], "r"))) my_err("fdopen: %s", strerror(errno)); while ((ch = getc(fp)) != EOF) { if (ch == '\n') putchar('\r'); putchar(ch); } exit(0); } static void my_err(const char *fmt, ...) { va_list ap; va_start(ap, fmt); (void) vsyslog(LOG_ERR, fmt, ap); va_end(ap); exit(1); /* NOTREACHED */ } src/libexec/fingerd/pathnames.h010064400011300000175000000033150771441777600170050ustar00srcmastrnetbsd/* $NetBSD: pathnames.h,v 1.4 2003/08/07 09:46:38 agc Exp $ */ /* * Copyright (c) 1989 The Regents of the University of California. * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * * from: @(#)pathnames.h 5.3 (Berkeley) 6/1/90 */ #define _PATH_FINGER "/usr/bin/finger" src/libexec/ftpd004075500011300000175000000000001504273241000140675ustar00srcmastrnetbsdsrc/libexec/ftpd/CVS004075500011300000175000000000001504273241000145225ustar00srcmastrnetbsdsrc/libexec/ftpd/CVS/Root010064400011300000175000000000441504273241000154420ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/ftpd/CVS/Repository010064400011300000175000000000211504273241000166710ustar00srcmastrnetbsdsrc/libexec/ftpd src/libexec/ftpd/CVS/Entries010064400011300000175000000015051504273241000161330ustar00srcmastrnetbsd/Makefile/1.70/Sat Nov 25 15:39:51 2023//Tnetbsd-11 /cmds.c/1.35/Sun Jan 17 14:46:07 2016//Tnetbsd-11 /conf.c/1.65/Fri Sep 29 14:49:03 2023//Tnetbsd-11 /extern.h/1.66/Sun Apr 17 21:24:53 2022//Tnetbsd-11 /ftpcmd.y/1.96/Fri Feb 16 19:32:38 2024//Tnetbsd-11 /ftpd.8/1.87/Sat Apr 28 13:38:00 2018//Tnetbsd-11 /ftpd.c/1.211/Fri Jun 27 21:36:23 2025//Tnetbsd-11 /ftpd.conf.5/1.38/Sat Aug 22 08:08:47 2020//Tnetbsd-11 /ftpusers.5/1.17/Sat Sep 13 02:41:52 2008//Tnetbsd-11 /logutmp.c/1.12/Fri Sep 16 16:13:17 2011//Tnetbsd-11 /logwtmp.c/1.27/Sun Aug 9 20:34:24 2015//Tnetbsd-11 /pathnames.h/1.12/Sat Dec 11 18:37:26 2004//Tnetbsd-11 /pfilter.c/1.4/Sat Jul 4 05:18:37 2020//Tnetbsd-11 /pfilter.h/1.2/Sat Jul 4 05:18:37 2020//Tnetbsd-11 /popen.c/1.38/Thu Mar 17 00:17:58 2016//Tnetbsd-11 /version.h/1.80/Sat Sep 30 18:10:55 2023//Tnetbsd-11 D src/libexec/ftpd/CVS/Tag010064400011300000175000000000131522207752200152340ustar00srcmastrnetbsdTnetbsd-11 src/libexec/ftpd/Makefile010064400011300000175000000023371453041250700156130ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.70 2023/11/25 15:39:51 prlw1 Exp $ # @(#)Makefile 8.2 (Berkeley) 4/4/94 .include PROG= ftpd SRCS= cmds.c conf.c ftpd.c ftpcmd.y logutmp.c logwtmp.c popen.c CPPFLAGS+=-I${.CURDIR} -DSUPPORT_UTMP -DSUPPORT_UTMPX -DLOGIN_CAP DPADD+= ${LIBCRYPT} ${LIBUTIL} LDADD+= -lcrypt -lutil MAN= ftpd.conf.5 ftpusers.5 ftpd.8 MLINKS= ftpusers.5 ftpchroot.5 SRCS+= pfilter.c LDADD+= -lblocklist DPADD+= ${LIBBLOCKLIST} .if defined(NO_INTERNAL_LS) CPPFLAGS+=-DNO_INTERNAL_LS .else # for `internal' ls SRCS+= ls.c cmp.c print.c util.c .PATH: ${NETBSDSRCDIR}/bin/ls .endif .if (${USE_INET6} != "no") CPPFLAGS+=-DINET6 .endif .if (${USE_PAM} != "no") CPPFLAGS+=-DUSE_PAM DPADD+= ${LIBPAM} ${PAM_STATIC_DPADD} LDADD+= -lpam ${PAM_STATIC_LDADD} .else # USE_PAM == no .if (${USE_SKEY} != "no") CPPFLAGS+=-DSKEY DPADD+= ${LIBSKEY} LDADD+= -lskey .endif .endif # USE_PAM == no ftpd.o ftpcmd.o: version.h #.if (${USE_KERBEROS} != "no") # #.PATH: ${NETBSDSRCDIR}/usr.bin/login # #SRCS+= k5login.c #CPPFLAGS+=-DKERBEROS5 #LDADD+= ${LIBKRB5_LDADD} #DPADD+= ${LIBKRB5_DPADD} # #.endif COPTS.ftpd.c+= ${CC_WNO_STRINGOP_TRUNCATION} ${CC_WNO_FORMAT_TRUNCATION} COPTS.logwtmp.c+= ${CC_WNO_STRINGOP_TRUNCATION} .include src/libexec/ftpd/cmds.c010064400011300000175000000572421264672445700152720ustar00srcmastrnetbsd/* $NetBSD: cmds.c,v 1.35 2016/01/17 14:46:07 christos Exp $ */ /* * Copyright (c) 1999-2009 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Luke Mewburn. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ /* * Copyright (c) 1985, 1988, 1990, 1992, 1993, 1994 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ /* * Copyright (C) 1997 and 1998 WIDE Project. * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the project nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint __RCSID("$NetBSD: cmds.c,v 1.35 2016/01/17 14:46:07 christos Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include #include #ifdef KERBEROS5 #include #endif #include "extern.h" typedef enum { FE_MLSD = 1<<0, /* if op is MLSD (MLST otherwise ) */ FE_ISCURDIR = 1<<1, /* if name is the current directory */ } factflag_t; typedef struct { const char *path; /* full pathname */ const char *display; /* name to display */ struct stat *stat; /* stat of path */ struct stat *pdirstat; /* stat of path's parent dir */ factflag_t flags; /* flags */ } factelem; static void ack(const char *); static void base64_encode(const char *, size_t, char *, int); static void fact_type(const char *, FILE *, factelem *); static void fact_size(const char *, FILE *, factelem *); static void fact_modify(const char *, FILE *, factelem *); static void fact_perm(const char *, FILE *, factelem *); static void fact_unique(const char *, FILE *, factelem *); static int matchgroup(gid_t); static void mlsname(FILE *, factelem *); static void replydirname(const char *, const char *); struct ftpfact { const char *name; /* name of fact */ int enabled; /* if fact is enabled */ void (*display)(const char *, FILE *, factelem *); /* function to display fact */ }; struct ftpfact facttab[] = { { "Type", 1, fact_type }, #define FACT_TYPE 0 { "Size", 1, fact_size }, { "Modify", 1, fact_modify }, { "Perm", 1, fact_perm }, { "Unique", 1, fact_unique }, /* "Create" */ /* "Lang" */ /* "Media-Type" */ /* "CharSet" */ }; #define FACTTABSIZE (sizeof(facttab) / sizeof(struct ftpfact)) static char cached_path[MAXPATHLEN + 1] = "/"; static void discover_path(char *, const char *); void cwd(const char *path) { if (chdir(path) < 0) perror_reply(550, path); else { show_chdir_messages(250); ack("CWD"); if (getcwd(cached_path, MAXPATHLEN) == NULL) { discover_path(cached_path, path); } } } void delete(const char *name) { char *p = NULL; if (remove(name) < 0) { p = strerror(errno); perror_reply(550, name); } else ack("DELE"); logxfer("delete", -1, name, NULL, NULL, p); } void feat(void) { size_t i; reply(-211, "Features supported"); cprintf(stdout, " MDTM\r\n"); cprintf(stdout, " MLST "); for (i = 0; i < FACTTABSIZE; i++) cprintf(stdout, "%s%s;", facttab[i].name, facttab[i].enabled ? "*" : ""); cprintf(stdout, "\r\n"); cprintf(stdout, " REST STREAM\r\n"); cprintf(stdout, " SIZE\r\n"); cprintf(stdout, " TVFS\r\n"); reply(211, "End"); } void makedir(const char *name) { char *p = NULL; if (mkdir(name, 0777) < 0) { p = strerror(errno); perror_reply(550, name); } else replydirname(name, "directory created."); logxfer("mkdir", -1, name, NULL, NULL, p); } void mlsd(const char *path) { struct dirent *dp; struct stat sb, pdirstat; factelem f; FILE *dout; DIR *dirp; char name[MAXPATHLEN]; int hastypefact; hastypefact = facttab[FACT_TYPE].enabled; if (path == NULL) path = "."; if (stat(path, &pdirstat) == -1) { mlsdperror: perror_reply(550, path); return; } if (! S_ISDIR(pdirstat.st_mode)) { errno = ENOTDIR; perror_reply(501, path); return; } if ((dirp = opendir(path)) == NULL) goto mlsdperror; dout = dataconn("MLSD", (off_t)-1, "w"); if (dout == NULL) { (void) closedir(dirp); return; } memset(&f, 0, sizeof(f)); f.stat = &sb; f.flags |= FE_MLSD; while ((dp = readdir(dirp)) != NULL) { snprintf(name, sizeof(name), "%s/%s", path, dp->d_name); if (ISDOTDIR(dp->d_name)) { /* special case curdir: */ if (! hastypefact) continue; f.pdirstat = NULL; /* require stat of parent */ f.display = path; /* set name to real name */ f.flags |= FE_ISCURDIR; /* flag name is curdir */ } else { if (ISDOTDOTDIR(dp->d_name)) { if (! hastypefact) continue; f.pdirstat = NULL; } else f.pdirstat = &pdirstat; /* cache parent stat */ f.display = dp->d_name; f.flags &= ~FE_ISCURDIR; } if (stat(name, &sb) == -1) continue; f.path = name; mlsname(dout, &f); } (void)closedir(dirp); if (ferror(dout) != 0) perror_reply(550, "Data connection"); else reply(226, "MLSD complete."); closedataconn(dout); total_xfers_out++; total_xfers++; } void mlst(const char *path) { struct stat sb; factelem f; if (path == NULL) path = "."; if (stat(path, &sb) == -1) { perror_reply(550, path); return; } reply(-250, "MLST %s", path); memset(&f, 0, sizeof(f)); f.path = path; f.display = path; f.stat = &sb; f.pdirstat = NULL; CPUTC(' ', stdout); mlsname(stdout, &f); reply(250, "End"); } void opts(const char *command) { struct tab *c; char *ep; if ((ep = strchr(command, ' ')) != NULL) *ep++ = '\0'; c = lookup(cmdtab, command); if (c == NULL) { reply(502, "Unknown command '%s'.", command); return; } if (! CMD_IMPLEMENTED(c)) { reply(502, "%s command not implemented.", c->name); return; } if (! CMD_HAS_OPTIONS(c)) { reply(501, "%s command does not support persistent options.", c->name); return; } /* special case: MLST */ if (strcasecmp(command, "MLST") == 0) { int enabled[FACTTABSIZE]; size_t i, onedone; size_t len; char *p; for (i = 0; i < sizeof(enabled) / sizeof(int); i++) enabled[i] = 0; if (ep == NULL || *ep == '\0') goto displaymlstopts; /* don't like spaces, and need trailing ; */ len = strlen(ep); if (strchr(ep, ' ') != NULL || ep[len - 1] != ';') { badmlstopt: reply(501, "Invalid MLST options"); return; } ep[len - 1] = '\0'; while ((p = strsep(&ep, ";")) != NULL) { if (*p == '\0') goto badmlstopt; for (i = 0; i < FACTTABSIZE; i++) if (strcasecmp(p, facttab[i].name) == 0) { enabled[i] = 1; break; } } displaymlstopts: for (i = 0; i < FACTTABSIZE; i++) facttab[i].enabled = enabled[i]; cprintf(stdout, "200 MLST OPTS"); for (i = onedone = 0; i < FACTTABSIZE; i++) { if (facttab[i].enabled) { cprintf(stdout, "%s%s;", onedone ? "" : " ", facttab[i].name); onedone++; } } cprintf(stdout, "\r\n"); fflush(stdout); return; } /* default cases */ if (ep != NULL && *ep != '\0') REASSIGN(c->options, ftpd_strdup(ep)); if (c->options != NULL) reply(200, "Options for %s are '%s'.", c->name, c->options); else reply(200, "No options defined for %s.", c->name); } void pwd(void) { char path[MAXPATHLEN]; if (getcwd(path, sizeof(path) - 1) == NULL) { if (chdir(cached_path) < 0) { reply(550, "Can't get the current directory: %s.", strerror(errno)); return; } (void)strlcpy(path, cached_path, MAXPATHLEN); } replydirname(path, "is the current directory."); } void removedir(const char *name) { char *p = NULL; if (rmdir(name) < 0) { p = strerror(errno); perror_reply(550, name); } else ack("RMD"); logxfer("rmdir", -1, name, NULL, NULL, p); } char * renamefrom(const char *name) { struct stat st; if (stat(name, &st) < 0) { perror_reply(550, name); return (NULL); } reply(350, "File exists, ready for destination name"); return (ftpd_strdup(name)); } void renamecmd(const char *from, const char *to) { char *p = NULL; if (rename(from, to) < 0) { p = strerror(errno); perror_reply(550, "rename"); } else ack("RNTO"); logxfer("rename", -1, from, to, NULL, p); } void sizecmd(const char *filename) { switch (type) { case TYPE_L: case TYPE_I: { struct stat stbuf; if (stat(filename, &stbuf) < 0 || !S_ISREG(stbuf.st_mode)) reply(550, "%s: not a plain file.", filename); else reply(213, ULLF, (ULLT)stbuf.st_size); break; } case TYPE_A: { FILE *fin; int c; off_t count; struct stat stbuf; fin = fopen(filename, "r"); if (fin == NULL) { perror_reply(550, filename); return; } if (fstat(fileno(fin), &stbuf) < 0 || !S_ISREG(stbuf.st_mode)) { reply(550, "%s: not a plain file.", filename); (void) fclose(fin); return; } if (stbuf.st_size > 10240) { reply(550, "%s: file too large for SIZE.", filename); (void) fclose(fin); return; } count = 0; while((c = getc(fin)) != EOF) { if (c == '\n') /* will get expanded to \r\n */ count++; count++; } (void) fclose(fin); reply(213, LLF, (LLT)count); break; } default: reply(504, "SIZE not implemented for Type %c.", "?AEIL"[type]); } } void statfilecmd(const char *filename) { FILE *fin; int c; int atstart; const char *argv[] = { INTERNAL_LS, "-lgA", "", NULL }; argv[2] = filename; fin = ftpd_popen(argv, "r", STDOUT_FILENO); reply(-211, "status of %s:", filename); /* XXX: use fgetln() or fparseln() here? */ atstart = 1; while ((c = getc(fin)) != EOF) { if (c == '\n') { if (ferror(stdout)){ perror_reply(421, "control connection"); (void) ftpd_pclose(fin); dologout(1); /* NOTREACHED */ } if (ferror(fin)) { perror_reply(551, filename); (void) ftpd_pclose(fin); return; } CPUTC('\r', stdout); } if (atstart && isdigit(c)) CPUTC(' ', stdout); CPUTC(c, stdout); atstart = (c == '\n'); } (void) ftpd_pclose(fin); reply(211, "End of Status"); } /* -- */ static void ack(const char *s) { reply(250, "%s command successful.", s); } /* * Encode len bytes starting at clear using base64 encoding into encoded, * which should be at least ((len + 2) * 4 / 3 + 1) in size. * If nulterm is non-zero, terminate with \0 otherwise pad to 3 byte boundary * with `='. */ static void base64_encode(const char *clear, size_t len, char *encoded, int nulterm) { static const char base64[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"; const char *c; char *e, termchar; int i; /* determine whether to pad with '=' or NUL terminate */ termchar = nulterm ? '\0' : '='; c = clear; e = encoded; /* convert all but last 2 bytes */ for (i = len; i > 2; i -= 3, c += 3) { *e++ = base64[(c[0] >> 2) & 0x3f]; *e++ = base64[((c[0] << 4) & 0x30) | ((c[1] >> 4) & 0x0f)]; *e++ = base64[((c[1] << 2) & 0x3c) | ((c[2] >> 6) & 0x03)]; *e++ = base64[(c[2]) & 0x3f]; } /* handle slop at end */ if (i > 0) { *e++ = base64[(c[0] >> 2) & 0x3f]; *e++ = base64[((c[0] << 4) & 0x30) | (i > 1 ? ((c[1] >> 4) & 0x0f) : 0)]; *e++ = (i > 1) ? base64[(c[1] << 2) & 0x3c] : termchar; *e++ = termchar; } *e = '\0'; } static void fact_modify(const char *fact, FILE *fd, factelem *fe) { struct tm *t; t = gmtime(&(fe->stat->st_mtime)); cprintf(fd, "%s=%04d%02d%02d%02d%02d%02d;", fact, TM_YEAR_BASE + t->tm_year, t->tm_mon+1, t->tm_mday, t->tm_hour, t->tm_min, t->tm_sec); } static void fact_perm(const char *fact, FILE *fd, factelem *fe) { int rok, wok, xok, pdirwok; struct stat *pdir, dir; if (fe->stat->st_uid == geteuid()) { rok = ((fe->stat->st_mode & S_IRUSR) != 0); wok = ((fe->stat->st_mode & S_IWUSR) != 0); xok = ((fe->stat->st_mode & S_IXUSR) != 0); } else if (matchgroup(fe->stat->st_gid)) { rok = ((fe->stat->st_mode & S_IRGRP) != 0); wok = ((fe->stat->st_mode & S_IWGRP) != 0); xok = ((fe->stat->st_mode & S_IXGRP) != 0); } else { rok = ((fe->stat->st_mode & S_IROTH) != 0); wok = ((fe->stat->st_mode & S_IWOTH) != 0); xok = ((fe->stat->st_mode & S_IXOTH) != 0); } cprintf(fd, "%s=", fact); /* * if parent info not provided, look it up, but * only if the current class has modify rights, * since we only need this info in such a case. */ pdir = fe->pdirstat; if (pdir == NULL && CURCLASS_FLAGS_ISSET(modify)) { size_t len; char realdir[MAXPATHLEN], *p; len = strlcpy(realdir, fe->path, sizeof(realdir)); if (len < sizeof(realdir) - 4) { if (S_ISDIR(fe->stat->st_mode)) strlcat(realdir, "/..", sizeof(realdir)); else { /* if has a /, move back to it */ /* otherwise use '..' */ if ((p = strrchr(realdir, '/')) != NULL) { if (p == realdir) p++; *p = '\0'; } else strlcpy(realdir, "..", sizeof(realdir)); } if (stat(realdir, &dir) == 0) pdir = &dir; } } pdirwok = 0; if (pdir != NULL) { if (pdir->st_uid == geteuid()) pdirwok = ((pdir->st_mode & S_IWUSR) != 0); else if (matchgroup(pdir->st_gid)) pdirwok = ((pdir->st_mode & S_IWGRP) != 0); else pdirwok = ((pdir->st_mode & S_IWOTH) != 0); } /* 'a': can APPE to file */ if (wok && CURCLASS_FLAGS_ISSET(upload) && S_ISREG(fe->stat->st_mode)) CPUTC('a', fd); /* 'c': can create or append to files in directory */ if (wok && CURCLASS_FLAGS_ISSET(modify) && S_ISDIR(fe->stat->st_mode)) CPUTC('c', fd); /* 'd': can delete file or directory */ if (pdirwok && CURCLASS_FLAGS_ISSET(modify)) { int candel; candel = 1; if (S_ISDIR(fe->stat->st_mode)) { DIR *dirp; struct dirent *dp; if ((dirp = opendir(fe->display)) == NULL) candel = 0; else { while ((dp = readdir(dirp)) != NULL) { if (ISDOTDIR(dp->d_name) || ISDOTDOTDIR(dp->d_name)) continue; candel = 0; break; } closedir(dirp); } } if (candel) CPUTC('d', fd); } /* 'e': can enter directory */ if (xok && S_ISDIR(fe->stat->st_mode)) CPUTC('e', fd); /* 'f': can rename file or directory */ if (pdirwok && CURCLASS_FLAGS_ISSET(modify)) CPUTC('f', fd); /* 'l': can list directory */ if (rok && xok && S_ISDIR(fe->stat->st_mode)) CPUTC('l', fd); /* 'm': can create directory */ if (wok && CURCLASS_FLAGS_ISSET(modify) && S_ISDIR(fe->stat->st_mode)) CPUTC('m', fd); /* 'p': can remove files in directory */ if (wok && CURCLASS_FLAGS_ISSET(modify) && S_ISDIR(fe->stat->st_mode)) CPUTC('p', fd); /* 'r': can RETR file */ if (rok && S_ISREG(fe->stat->st_mode)) CPUTC('r', fd); /* 'w': can STOR file */ if (wok && CURCLASS_FLAGS_ISSET(upload) && S_ISREG(fe->stat->st_mode)) CPUTC('w', fd); CPUTC(';', fd); } static void fact_size(const char *fact, FILE *fd, factelem *fe) { if (S_ISREG(fe->stat->st_mode)) cprintf(fd, "%s=" LLF ";", fact, (LLT)fe->stat->st_size); } static void fact_type(const char *fact, FILE *fd, factelem *fe) { cprintf(fd, "%s=", fact); switch (fe->stat->st_mode & S_IFMT) { case S_IFDIR: if (fe->flags & FE_MLSD) { if ((fe->flags & FE_ISCURDIR) || ISDOTDIR(fe->display)) cprintf(fd, "cdir"); else if (ISDOTDOTDIR(fe->display)) cprintf(fd, "pdir"); else cprintf(fd, "dir"); } else { cprintf(fd, "dir"); } break; case S_IFREG: cprintf(fd, "file"); break; case S_IFIFO: cprintf(fd, "OS.unix=fifo"); break; case S_IFLNK: /* XXX: probably a NO-OP with stat() */ cprintf(fd, "OS.unix=slink"); break; case S_IFSOCK: cprintf(fd, "OS.unix=socket"); break; case S_IFBLK: case S_IFCHR: cprintf(fd, "OS.unix=%s-" ULLF "/" ULLF, S_ISBLK(fe->stat->st_mode) ? "blk" : "chr", (ULLT)major(fe->stat->st_rdev), (ULLT)minor(fe->stat->st_rdev)); break; default: cprintf(fd, "OS.unix=UNKNOWN(0%o)", fe->stat->st_mode & S_IFMT); break; } CPUTC(';', fd); } static void fact_unique(const char *fact, FILE *fd, factelem *fe) { char obuf[(sizeof(dev_t) + sizeof(ino_t) + 2) * 4 / 3 + 2]; char tbuf[sizeof(dev_t) + sizeof(ino_t)]; memcpy(tbuf, (char *)&(fe->stat->st_dev), sizeof(dev_t)); memcpy(tbuf + sizeof(dev_t), (char *)&(fe->stat->st_ino), sizeof(ino_t)); base64_encode(tbuf, sizeof(dev_t) + sizeof(ino_t), obuf, 1); cprintf(fd, "%s=%s;", fact, obuf); } static int matchgroup(gid_t gid) { int i; for (i = 0; i < gidcount; i++) if (gid == gidlist[i]) return(1); return (0); } static void mlsname(FILE *fp, factelem *fe) { char realfile[MAXPATHLEN]; int userf = 0; size_t i; for (i = 0; i < FACTTABSIZE; i++) { if (facttab[i].enabled) (facttab[i].display)(facttab[i].name, fp, fe); } if ((fe->flags & FE_MLSD) && !(fe->flags & FE_ISCURDIR) && !ISDOTDIR(fe->display)) { /* if MLSD and not "." entry, display as-is */ userf = 0; } else { /* if MLST, or MLSD and "." entry, realpath(3) it */ if (realpath(fe->display, realfile) != NULL) userf = 1; } cprintf(fp, " %s\r\n", userf ? realfile : fe->display); } static void replydirname(const char *name, const char *message) { char *p, *ep; char npath[MAXPATHLEN * 2]; p = npath; ep = &npath[sizeof(npath) - 1]; while (*name) { if (*name == '"') { if (ep - p < 2) break; *p++ = *name++; *p++ = '"'; } else { if (ep - p < 1) break; *p++ = *name++; } } *p = '\0'; reply(257, "\"%s\" %s", npath, message); } static void discover_path(char *last_path, const char *new_path) { char tp[MAXPATHLEN + 1] = ""; char tq[MAXPATHLEN + 1] = ""; char *cp; char *cq; int sz1, sz2; int nomorelink; struct stat st1, st2; if (new_path[0] != '/') { (void)strlcpy(tp, last_path, MAXPATHLEN); (void)strlcat(tp, "/", MAXPATHLEN); } (void)strlcat(tp, new_path, MAXPATHLEN); (void)strlcat(tp, "/", MAXPATHLEN); /* * resolve symlinks. A symlink may introduce another symlink, so we * loop trying to resolve symlinks until we don't find any of them. */ do { /* Collapse any // into / */ while ((cp = strstr(tp, "//")) != NULL) (void)memmove(cp, cp + 1, strlen(cp) - 1 + 1); /* Collapse any /./ into / */ while ((cp = strstr(tp, "/./")) != NULL) (void)memmove(cp, cp + 2, strlen(cp) - 2 + 1); cp = tp; nomorelink = 1; while ((cp = strstr(cp + 1, "/")) != NULL) { sz1 = (unsigned long)cp - (unsigned long)tp; if (sz1 > MAXPATHLEN) goto bad; *cp = 0; sz2 = readlink(tp, tq, MAXPATHLEN); *cp = '/'; /* If this is not a symlink, move to next / */ if (sz2 <= 0) continue; /* * We found a symlink, so we will have to * do one more pass to check there is no * more symlink in the path */ nomorelink = 0; /* * Null terminate the string and remove trailing / */ tq[sz2] = 0; sz2 = strlen(tq); if (tq[sz2 - 1] == '/') tq[--sz2] = 0; /* * Is this an absolute link or a relative link? */ if (tq[0] == '/') { /* absolute link */ if (strlen(cp) + sz2 > MAXPATHLEN) goto bad; memmove(tp + sz2, cp, strlen(cp) + 1); memcpy(tp, tq, sz2); } else { /* relative link */ for (cq = cp - 1; *cq != '/'; cq--); if (strlen(tp) - ((unsigned long)cq - (unsigned long)cp) + 1 + sz2 > MAXPATHLEN) goto bad; (void)memmove(cq + 1 + sz2, cp, strlen(cp) + 1); (void)memcpy(cq + 1, tq, sz2); } /* * start over, looking for new symlinks */ break; } } while (nomorelink == 0); /* Collapse any /foo/../ into /foo/ */ while ((cp = strstr(tp, "/../")) != NULL) { /* ^/../foo/ becomes ^/foo/ */ if (cp == tp) { (void)memmove(cp, cp + 3, strlen(cp) - 3 + 1); } else { for (cq = cp - 1; *cq != '/'; cq--); (void)memmove(cq, cp + 3, strlen(cp) - 3 + 1); } } /* strip strailing / */ if (strlen(tp) != 1) tp[strlen(tp) - 1] = '\0'; /* check that the path is correct */ if (stat(tp, &st1) == -1 || stat(".", &st2) == -1) goto bad; if ((st1.st_dev != st2.st_dev) || (st1.st_ino != st2.st_ino)) goto bad; (void)strlcpy(last_path, tp, MAXPATHLEN); return; bad: (void)strlcat(last_path, "/", MAXPATHLEN); (void)strlcat(last_path, new_path, MAXPATHLEN); return; } src/libexec/ftpd/conf.c010064400011300000175000000552711450556173700152650ustar00srcmastrnetbsd/* $NetBSD: conf.c,v 1.65 2023/09/29 14:49:03 shm Exp $ */ /*- * Copyright (c) 1997-2009 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Simon Burge and Luke Mewburn. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include #ifndef lint __RCSID("$NetBSD: conf.c,v 1.65 2023/09/29 14:49:03 shm Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #ifdef KERBEROS5 #include #endif #include "extern.h" #include "pathnames.h" static char *strend(const char *, char *); static int filetypematch(char *, int); /* class defaults */ #define DEFAULT_LIMIT -1 /* unlimited connections */ #define DEFAULT_MAXFILESIZE -1 /* unlimited file size */ #define DEFAULT_MAXTIMEOUT 7200 /* 2 hours */ #define DEFAULT_TIMEOUT 900 /* 15 minutes */ #define DEFAULT_UMASK 027 /* rw-r----- */ /* * Initialise curclass to an `empty' state */ void init_curclass(void) { struct ftpconv *conv, *cnext; for (conv = curclass.conversions; conv != NULL; conv = cnext) { REASSIGN(conv->suffix, NULL); REASSIGN(conv->types, NULL); REASSIGN(conv->disable, NULL); REASSIGN(conv->command, NULL); cnext = conv->next; free(conv); } memset((char *)&curclass.advertise, 0, sizeof(curclass.advertise)); curclass.advertise.su_len = 0; /* `not used' */ REASSIGN(curclass.chroot, NULL); REASSIGN(curclass.classname, NULL); curclass.conversions = NULL; REASSIGN(curclass.display, NULL); REASSIGN(curclass.homedir, NULL); curclass.limit = DEFAULT_LIMIT; REASSIGN(curclass.limitfile, NULL); curclass.maxfilesize = DEFAULT_MAXFILESIZE; curclass.maxrateget = 0; curclass.maxrateput = 0; curclass.maxtimeout = DEFAULT_MAXTIMEOUT; REASSIGN(curclass.motd, ftpd_strdup(_NAME_FTPLOGINMESG)); REASSIGN(curclass.notify, NULL); curclass.portmin = 0; curclass.portmax = 0; curclass.rateget = 0; curclass.rateput = 0; curclass.timeout = DEFAULT_TIMEOUT; /* curclass.type is set elsewhere */ curclass.umask = DEFAULT_UMASK; curclass.mmapsize = 0; curclass.readsize = 0; curclass.writesize = 0; curclass.sendbufsize = 0; curclass.sendlowat = 0; CURCLASS_FLAGS_SET(checkportcmd); CURCLASS_FLAGS_CLR(denyquick); CURCLASS_FLAGS_CLR(hidesymlinks); CURCLASS_FLAGS_SET(modify); CURCLASS_FLAGS_SET(passive); CURCLASS_FLAGS_CLR(private); CURCLASS_FLAGS_CLR(sanenames); CURCLASS_FLAGS_SET(upload); } /* * Parse the configuration file, looking for the named class, and * define curclass to contain the appropriate settings. */ void parse_conf(const char *findclass) { FILE *f; char *buf, *p; size_t len; LLT llval; int none, match; char *endp, errbuf[100]; char *class, *word, *arg, *template; const char *infile; size_t line; struct ftpconv *conv, *cnext; init_curclass(); REASSIGN(curclass.classname, ftpd_strdup(findclass)); /* set more guest defaults */ if (strcasecmp(findclass, "guest") == 0) { CURCLASS_FLAGS_CLR(modify); curclass.umask = 0707; } infile = conffilename(_NAME_FTPDCONF); if ((f = fopen(infile, "r")) == NULL) return; line = 0; template = NULL; for (; (buf = fparseln(f, &len, &line, NULL, FPARSELN_UNESCCOMM | FPARSELN_UNESCCONT | FPARSELN_UNESCESC)) != NULL; free(buf)) { none = match = 0; p = buf; if (len < 1) continue; if (p[len - 1] == '\n') p[--len] = '\0'; if (EMPTYSTR(p)) continue; NEXTWORD(p, word); NEXTWORD(p, class); NEXTWORD(p, arg); if (EMPTYSTR(word) || EMPTYSTR(class)) continue; if (strcasecmp(class, "none") == 0) none = 1; if (! (strcasecmp(class, findclass) == 0 || (template != NULL && strcasecmp(class, template) == 0) || none || strcasecmp(class, "all") == 0) ) continue; #define CONF_FLAG(Field) \ do { \ if (none || \ (!EMPTYSTR(arg) && strcasecmp(arg, "off") == 0)) \ CURCLASS_FLAGS_CLR(Field); \ else \ CURCLASS_FLAGS_SET(Field); \ } while (0) #define CONF_STRING(Field) \ do { \ if (none || EMPTYSTR(arg)) \ arg = NULL; \ else \ arg = ftpd_strdup(arg); \ REASSIGN(curclass.Field, arg); \ } while (0) #define CONF_LL(Field,Arg,Min,Max) \ do { \ if (none || EMPTYSTR(Arg)) \ goto nextline; \ llval = strsuftollx(#Field, Arg, Min, Max, \ errbuf, sizeof(errbuf)); \ if (errbuf[0]) { \ syslog(LOG_WARNING, "%s line %d: %s", \ infile, (int)line, errbuf); \ goto nextline; \ } \ curclass.Field = llval; \ } while(0) if (0) { /* no-op */ } else if ((strcasecmp(word, "advertise") == 0) || (strcasecmp(word, "advertize") == 0)) { struct addrinfo hints, *res; int error; memset((char *)&curclass.advertise, 0, sizeof(curclass.advertise)); curclass.advertise.su_len = 0; if (none || EMPTYSTR(arg)) continue; res = NULL; memset(&hints, 0, sizeof(hints)); /* * only get addresses of the family * that we're listening on */ hints.ai_family = ctrl_addr.su_family; hints.ai_socktype = SOCK_STREAM; error = getaddrinfo(arg, "0", &hints, &res); if (error) { syslog(LOG_WARNING, "%s line %d: %s", infile, (int)line, gai_strerror(error)); advertiseparsefail: if (res) freeaddrinfo(res); continue; } if (res->ai_next) { syslog(LOG_WARNING, "%s line %d: multiple addresses returned for `%s'; please be more specific", infile, (int)line, arg); goto advertiseparsefail; } if (sizeof(curclass.advertise) < res->ai_addrlen || ( #ifdef INET6 res->ai_family != AF_INET6 && #endif res->ai_family != AF_INET)) { syslog(LOG_WARNING, "%s line %d: unsupported protocol %d for `%s'", infile, (int)line, res->ai_family, arg); goto advertiseparsefail; } memcpy(&curclass.advertise, res->ai_addr, res->ai_addrlen); curclass.advertise.su_len = res->ai_addrlen; freeaddrinfo(res); } else if (strcasecmp(word, "checkportcmd") == 0) { CONF_FLAG(checkportcmd); } else if (strcasecmp(word, "chroot") == 0) { CONF_STRING(chroot); } else if (strcasecmp(word, "classtype") == 0) { if (!none && !EMPTYSTR(arg)) { if (strcasecmp(arg, "GUEST") == 0) curclass.type = CLASS_GUEST; else if (strcasecmp(arg, "CHROOT") == 0) curclass.type = CLASS_CHROOT; else if (strcasecmp(arg, "REAL") == 0) curclass.type = CLASS_REAL; else { syslog(LOG_WARNING, "%s line %d: unknown class type `%s'", infile, (int)line, arg); continue; } } } else if (strcasecmp(word, "conversion") == 0) { char *suffix, *types, *disable, *convcmd; if (EMPTYSTR(arg)) { syslog(LOG_WARNING, "%s line %d: %s requires a suffix", infile, (int)line, word); continue; /* need a suffix */ } NEXTWORD(p, types); NEXTWORD(p, disable); convcmd = p; if (convcmd) convcmd += strspn(convcmd, " \t"); suffix = ftpd_strdup(arg); if (none || EMPTYSTR(types) || EMPTYSTR(disable) || EMPTYSTR(convcmd)) { types = NULL; disable = NULL; convcmd = NULL; } else { types = ftpd_strdup(types); disable = ftpd_strdup(disable); convcmd = ftpd_strdup(convcmd); } for (conv = curclass.conversions; conv != NULL; conv = conv->next) { if (strcmp(conv->suffix, suffix) == 0) break; } if (conv == NULL) { conv = (struct ftpconv *) calloc(1, sizeof(struct ftpconv)); if (conv == NULL) { syslog(LOG_WARNING, "can't malloc"); continue; } conv->next = NULL; for (cnext = curclass.conversions; cnext != NULL; cnext = cnext->next) if (cnext->next == NULL) break; if (cnext != NULL) cnext->next = conv; else curclass.conversions = conv; } REASSIGN(conv->suffix, suffix); REASSIGN(conv->types, types); REASSIGN(conv->disable, disable); REASSIGN(conv->command, convcmd); } else if (strcasecmp(word, "denyquick") == 0) { CONF_FLAG(denyquick); } else if (strcasecmp(word, "display") == 0) { CONF_STRING(display); } else if (strcasecmp(word, "hidesymlinks") == 0) { CONF_FLAG(hidesymlinks); } else if (strcasecmp(word, "homedir") == 0) { CONF_STRING(homedir); } else if (strcasecmp(word, "limit") == 0) { curclass.limit = DEFAULT_LIMIT; REASSIGN(curclass.limitfile, NULL); CONF_LL(limit, arg, -1, LLTMAX); REASSIGN(curclass.limitfile, EMPTYSTR(p) ? NULL : ftpd_strdup(p)); } else if (strcasecmp(word, "maxfilesize") == 0) { curclass.maxfilesize = DEFAULT_MAXFILESIZE; CONF_LL(maxfilesize, arg, -1, LLTMAX); } else if (strcasecmp(word, "maxtimeout") == 0) { curclass.maxtimeout = DEFAULT_MAXTIMEOUT; CONF_LL(maxtimeout, arg, MIN(30, curclass.timeout), LLTMAX); } else if (strcasecmp(word, "mmapsize") == 0) { curclass.mmapsize = 0; CONF_LL(mmapsize, arg, 0, SSIZE_MAX); } else if (strcasecmp(word, "readsize") == 0) { curclass.readsize = 0; CONF_LL(readsize, arg, 0, SSIZE_MAX); } else if (strcasecmp(word, "writesize") == 0) { curclass.writesize = 0; CONF_LL(writesize, arg, 0, SSIZE_MAX); } else if (strcasecmp(word, "recvbufsize") == 0) { curclass.recvbufsize = 0; CONF_LL(recvbufsize, arg, 0, INT_MAX); } else if (strcasecmp(word, "sendbufsize") == 0) { curclass.sendbufsize = 0; CONF_LL(sendbufsize, arg, 0, INT_MAX); } else if (strcasecmp(word, "sendlowat") == 0) { curclass.sendlowat = 0; CONF_LL(sendlowat, arg, 0, INT_MAX); } else if (strcasecmp(word, "modify") == 0) { CONF_FLAG(modify); } else if (strcasecmp(word, "motd") == 0) { CONF_STRING(motd); } else if (strcasecmp(word, "notify") == 0) { CONF_STRING(notify); } else if (strcasecmp(word, "passive") == 0) { CONF_FLAG(passive); } else if (strcasecmp(word, "portrange") == 0) { long minport, maxport; curclass.portmin = 0; curclass.portmax = 0; if (none || EMPTYSTR(arg)) continue; if (EMPTYSTR(p)) { syslog(LOG_WARNING, "%s line %d: missing maxport argument", infile, (int)line); continue; } minport = strsuftollx("minport", arg, IPPORT_RESERVED, IPPORT_ANONMAX, errbuf, sizeof(errbuf)); if (errbuf[0]) { syslog(LOG_WARNING, "%s line %d: %s", infile, (int)line, errbuf); continue; } maxport = strsuftollx("maxport", p, IPPORT_RESERVED, IPPORT_ANONMAX, errbuf, sizeof(errbuf)); if (errbuf[0]) { syslog(LOG_WARNING, "%s line %d: %s", infile, (int)line, errbuf); continue; } if (minport >= maxport) { syslog(LOG_WARNING, "%s line %d: minport %ld >= maxport %ld", infile, (int)line, minport, maxport); continue; } curclass.portmin = (int)minport; curclass.portmax = (int)maxport; } else if (strcasecmp(word, "private") == 0) { CONF_FLAG(private); } else if (strcasecmp(word, "rateget") == 0) { curclass.maxrateget = curclass.rateget = 0; CONF_LL(rateget, arg, 0, LLTMAX); curclass.maxrateget = curclass.rateget; } else if (strcasecmp(word, "rateput") == 0) { curclass.maxrateput = curclass.rateput = 0; CONF_LL(rateput, arg, 0, LLTMAX); curclass.maxrateput = curclass.rateput; } else if (strcasecmp(word, "sanenames") == 0) { CONF_FLAG(sanenames); } else if (strcasecmp(word, "timeout") == 0) { curclass.timeout = DEFAULT_TIMEOUT; CONF_LL(timeout, arg, 30, curclass.maxtimeout); } else if (strcasecmp(word, "template") == 0) { if (none) continue; REASSIGN(template, EMPTYSTR(arg) ? NULL : ftpd_strdup(arg)); } else if (strcasecmp(word, "umask") == 0) { unsigned long fumask; curclass.umask = DEFAULT_UMASK; if (none || EMPTYSTR(arg)) continue; errno = 0; endp = NULL; fumask = strtoul(arg, &endp, 8); if (errno || *arg == '\0' || *endp != '\0' || fumask > 0777) { syslog(LOG_WARNING, "%s line %d: invalid umask %s", infile, (int)line, arg); continue; } curclass.umask = (mode_t)fumask; } else if (strcasecmp(word, "upload") == 0) { CONF_FLAG(upload); if (! CURCLASS_FLAGS_ISSET(upload)) CURCLASS_FLAGS_CLR(modify); } else { syslog(LOG_WARNING, "%s line %d: unknown directive '%s'", infile, (int)line, word); continue; } nextline: ; } REASSIGN(template, NULL); fclose(f); } /* * Show file listed in curclass.display first time in, and list all the * files named in curclass.notify in the current directory. * Send back responses with the prefix `code' + "-". * If code == -1, flush the internal cache of directory names and return. */ void show_chdir_messages(int code) { static StringList *slist = NULL; struct stat st; struct tm *t; glob_t gl; time_t now, then; int age; char curwd[MAXPATHLEN]; char *cp, **rlist; if (code == -1) { if (slist != NULL) sl_free(slist, 1); slist = NULL; return; } if (quietmessages) return; /* Setup list for directory cache */ if (slist == NULL) slist = sl_init(); if (slist == NULL) { syslog(LOG_WARNING, "can't allocate memory for stringlist"); return; } /* Check if this directory has already been visited */ if (getcwd(curwd, sizeof(curwd) - 1) == NULL) { syslog(LOG_WARNING, "can't getcwd: %s", strerror(errno)); return; } if (sl_find(slist, curwd) != NULL) return; cp = ftpd_strdup(curwd); if (sl_add(slist, cp) == -1) syslog(LOG_WARNING, "can't add `%s' to stringlist", cp); /* First check for a display file */ (void)display_file(curclass.display, code); /* Now see if there are any notify files */ if (EMPTYSTR(curclass.notify)) return; memset(&gl, 0, sizeof(gl)); if (glob(curclass.notify, GLOB_BRACE|GLOB_LIMIT, NULL, &gl) != 0 || gl.gl_matchc == 0) { globfree(&gl); return; } time(&now); for (rlist = gl.gl_pathv; *rlist != NULL; rlist++) { if (stat(*rlist, &st) != 0) continue; if (!S_ISREG(st.st_mode)) continue; then = st.st_mtime; if (code != 0) { reply(-code, "%s", ""); code = 0; } reply(-code, "Please read the file %s", *rlist); t = localtime(&now); age = 365 * t->tm_year + t->tm_yday; t = localtime(&then); age -= 365 * t->tm_year + t->tm_yday; reply(-code, " it was last modified on %.24s - %d day%s ago", ctime(&then), age, PLURAL(age)); } globfree(&gl); } int display_file(const char *file, int code) { FILE *f; char *buf, *p; char curwd[MAXPATHLEN]; size_t len; off_t lastnum; time_t now; lastnum = 0; if (quietmessages) return (0); if (EMPTYSTR(file)) return(0); if ((f = fopen(file, "r")) == NULL) return (0); reply(-code, "%s", ""); for (; (buf = fparseln(f, &len, NULL, "\0\0\0", 0)) != NULL; free(buf)) { if (len > 0) if (buf[len - 1] == '\n') buf[--len] = '\0'; cprintf(stdout, " "); for (p = buf; *p; p++) { if (*p == '%') { p++; switch (*p) { case 'c': cprintf(stdout, "%s", curclass.classname ? curclass.classname : ""); break; case 'C': if (getcwd(curwd, sizeof(curwd)-1) == NULL){ syslog(LOG_WARNING, "can't getcwd: %s", strerror(errno)); continue; } cprintf(stdout, "%s", curwd); break; case 'E': if (! EMPTYSTR(emailaddr)) cprintf(stdout, "%s", emailaddr); break; case 'L': cprintf(stdout, "%s", hostname); break; case 'M': if (curclass.limit == -1) { cprintf(stdout, "unlimited"); lastnum = 0; } else { cprintf(stdout, LLF, (LLT)curclass.limit); lastnum = curclass.limit; } break; case 'N': cprintf(stdout, "%d", connections); lastnum = connections; break; case 'R': cprintf(stdout, "%s", remotehost); break; case 's': if (lastnum != 1) cprintf(stdout, "s"); break; case 'S': if (lastnum != 1) cprintf(stdout, "S"); break; case 'T': now = time(NULL); cprintf(stdout, "%.24s", ctime(&now)); break; case 'U': cprintf(stdout, "%s", pw ? pw->pw_name : ""); break; case '%': CPUTC('%', stdout); break; } } else CPUTC(*p, stdout); } cprintf(stdout, "\r\n"); } (void)fflush(stdout); (void)fclose(f); return (1); } /* * Parse src, expanding '%' escapes, into dst (which must be at least * MAXPATHLEN long). */ void format_path(char *dst, const char *src) { size_t len; const char *p; dst[0] = '\0'; len = 0; if (src == NULL) return; for (p = src; *p && len < MAXPATHLEN; p++) { if (*p == '%') { p++; switch (*p) { case 'c': len += strlcpy(dst + len, curclass.classname, MAXPATHLEN - len); break; case 'd': len += strlcpy(dst + len, pw->pw_dir, MAXPATHLEN - len); break; case 'u': len += strlcpy(dst + len, pw->pw_name, MAXPATHLEN - len); break; case '%': dst[len++] = '%'; break; } } else dst[len++] = *p; } if (len < MAXPATHLEN) dst[len] = '\0'; dst[MAXPATHLEN - 1] = '\0'; } /* * Find s2 at the end of s1. If found, return a string up to (but * not including) s2, otherwise returns NULL. */ static char * strend(const char *s1, char *s2) { static char buf[MAXPATHLEN]; char *start; size_t l1, l2; l1 = strlen(s1); l2 = strlen(s2); if (l2 >= l1 || l1 >= sizeof(buf)) return(NULL); strlcpy(buf, s1, sizeof(buf)); start = buf + (l1 - l2); if (strcmp(start, s2) == 0) { *start = '\0'; return(buf); } else return(NULL); } static int filetypematch(char *types, int mode) { for ( ; types[0] != '\0'; types++) switch (*types) { case 'd': if (S_ISDIR(mode)) return(1); break; case 'f': if (S_ISREG(mode)) return(1); break; } return(0); } /* * Look for a conversion. If we succeed, return a pointer to the * command to execute for the conversion. * * The command is stored in a static array so there's no memory * leak problems, and not too much to change in ftpd.c. This * routine doesn't need to be re-entrant unless we start using a * multi-threaded ftpd, and that's not likely for a while... */ const char ** do_conversion(const char *fname) { struct ftpconv *cp; struct stat st; int o_errno; char *base = NULL; char *cmd, *p, *lp; char **argv; StringList *sl; o_errno = errno; sl = NULL; cmd = NULL; for (cp = curclass.conversions; cp != NULL; cp = cp->next) { if (cp->suffix == NULL) { syslog(LOG_WARNING, "cp->suffix==NULL in conv list; SHOULDN'T HAPPEN!"); continue; } if ((base = strend(fname, cp->suffix)) == NULL) continue; if (cp->types == NULL || cp->disable == NULL || cp->command == NULL) continue; /* Is it enabled? */ if (strcmp(cp->disable, ".") != 0 && stat(cp->disable, &st) == 0) continue; /* Does the base exist? */ if (stat(base, &st) < 0) continue; /* Is the file type ok */ if (!filetypematch(cp->types, st.st_mode)) continue; break; /* "We have a winner!" */ } /* If we got through the list, no conversion */ if (cp == NULL) goto cleanup_do_conv; /* Split up command into an argv */ if ((sl = sl_init()) == NULL) goto cleanup_do_conv; cmd = ftpd_strdup(cp->command); p = cmd; while (p) { NEXTWORD(p, lp); if (strcmp(lp, "%s") == 0) lp = base; if (sl_add(sl, ftpd_strdup(lp)) == -1) goto cleanup_do_conv; } if (sl_add(sl, NULL) == -1) goto cleanup_do_conv; argv = sl->sl_str; free(cmd); free(sl); return (void *)(intptr_t)argv; cleanup_do_conv: if (sl) sl_free(sl, 1); free(cmd); errno = o_errno; return(NULL); } /* * Count the number of current connections, reading from * /var/run/ftpd.pids- * Does a kill -0 on each pid in that file, and only counts * processes that exist (or frees the slot if it doesn't). * Adds getpid() to the first free slot. Truncates the file * if possible. */ void count_users(void) { char fn[MAXPATHLEN]; int fd; size_t i, last, count; ssize_t scount; pid_t *pids, mypid; struct stat sb; struct flock fl; (void)strlcpy(fn, _PATH_CLASSPIDS, sizeof(fn)); (void)strlcat(fn, curclass.classname, sizeof(fn)); pids = NULL; connections = 1; fl.l_start = 0; fl.l_len = 0; fl.l_pid = 0; fl.l_type = F_WRLCK; fl.l_whence = SEEK_SET; if ((fd = open(fn, O_RDWR | O_CREAT, 0600)) == -1) return; if (fcntl(fd, F_SETLK, &fl) == -1) goto cleanup_count; if (fstat(fd, &sb) == -1) goto cleanup_count; if ((pids = calloc(sb.st_size + sizeof(pid_t), 1)) == NULL) goto cleanup_count; /* XXX: implement a better read loop */ scount = read(fd, pids, sb.st_size); if (scount == -1 || scount != sb.st_size || scount < 0) goto cleanup_count; count = (size_t)scount / sizeof(pid_t); mypid = getpid(); last = 0; for (i = 0; i < count; i++) { if (pids[i] == 0) continue; if (kill(pids[i], 0) == -1 && errno != EPERM) { if (mypid != 0) { pids[i] = mypid; mypid = 0; last = i; } } else { connections++; last = i; } } if (mypid != 0) { if (pids[last] != 0) last++; pids[last] = mypid; } count = (last + 1) * sizeof(pid_t); if (lseek(fd, 0, SEEK_SET) == -1) goto cleanup_count; /* XXX: implement a better write loop */ scount = write(fd, pids, count); if (scount == -1 || (size_t)scount != count) goto cleanup_count; (void)ftruncate(fd, count); cleanup_count: fl.l_type = F_UNLCK; (void)fcntl(fd, F_SETLK, &fl); close(fd); REASSIGN(pids, NULL); } src/libexec/ftpd/extern.h010064400011300000175000000321021422710264500156240ustar00srcmastrnetbsd/* $NetBSD: extern.h,v 1.66 2022/04/17 21:24:53 andvar Exp $ */ /*- * Copyright (c) 1992, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * * @(#)extern.h 8.2 (Berkeley) 4/4/94 */ /*- * Copyright (c) 1997-2009 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Luke Mewburn. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ /* * Copyright (C) 1997 and 1998 WIDE Project. * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the project nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #ifdef NO_LONG_LONG # define LLF "%ld" # define LLFP(x) "%" x "ld" # define LLT long # define ULLF "%lu" # define ULLFP(x) "%" x "lu" # define ULLT unsigned long # define STRTOLL(x,y,z) strtol(x,y,z) # define LLTMIN LONG_MIN # define LLTMAX LONG_MAX #else # define LLF "%lld" # define LLFP(x) "%" x "lld" # define LLT long long # define ULLF "%llu" # define ULLFP(x) "%" x "llu" # define ULLT unsigned long long # define STRTOLL(x,y,z) strtoll(x,y,z) # define LLTMIN LLONG_MIN # define LLTMAX LLONG_MAX #endif #define FTP_BUFLEN 512 void abor(void); void closedataconn(FILE *); char *conffilename(const char *); void count_users(void); void cprintf(FILE *, const char *, ...) __printflike(2, 3); void cwd(const char *); FILE *dataconn(const char *, off_t, const char *); void delete(const char *); int display_file(const char *, int); const char **do_conversion(const char *); __dead void dologout(int); __dead void fatal(const char *); void feat(void); void format_path(char *, const char *); int ftpd_pclose(FILE *); FILE *ftpd_popen(const char *[], const char *, int); int get_line(char *, int, FILE *); void init_curclass(void); void logxfer(const char *, off_t, const char *, const char *, const struct timeval *, const char *); struct tab *lookup(struct tab *, const char *); void makedir(const char *); void mlsd(const char *); void mlst(const char *); void opts(const char *); void parse_conf(const char *); void pass(const char *); void passive(void); int lpsvproto2af(int); int af2lpsvproto(int); int epsvproto2af(int); int af2epsvproto(int); void long_passive(const char *, int); int extended_port(const char *); void epsv_protounsupp(const char *); void perror_reply(int, const char *); void pwd(void); void removedir(const char *); void renamecmd(const char *, const char *); char *renamefrom(const char *); void reply(int, const char *, ...) __printflike(2, 3); void retrieve(const char *[], const char *); void send_file_list(const char *); void show_chdir_messages(int); void sizecmd(const char *); void statcmd(void); void statfilecmd(const char *); void statxfer(void); void store(const char *, const char *, int); void user(const char *); char *ftpd_strdup(const char *); void yyerror(const char *); #ifdef SUPPORT_UTMP struct utmp; void ftpd_initwtmp(void); void ftpd_logwtmp(const char *, const char *, const char *); void ftpd_login(const struct utmp *); int ftpd_logout(const char *); #endif #ifdef SUPPORT_UTMPX struct utmpx; struct sockinet; void ftpd_initwtmpx(void); void ftpd_logwtmpx(const char *, const char *, const char *, struct sockinet *, int, int); void ftpd_loginx(const struct utmpx *); int ftpd_logoutx(const char *, int, int); #endif #include #if defined(__NetBSD__) # define HAVE_SETPROCTITLE 1 # define HAVE_STRUCT_SOCKADDR_SA_LEN 1 # define HAVE_SOCKADDR_SNPRINTF 1 #endif struct sockinet { union sockunion { struct sockaddr_in su_sin; #ifdef INET6 struct sockaddr_in6 su_sin6; #endif } si_su; #if !defined(HAVE_STRUCT_SOCKADDR_SA_LEN) int si_len; #endif }; #if !defined(HAVE_STRUCT_SOCKADDR_SA_LEN) # define su_len si_len #else # define su_len si_su.su_sin.sin_len #endif #define su_addr si_su.su_sin.sin_addr #define su_family si_su.su_sin.sin_family #define su_port si_su.su_sin.sin_port #ifdef INET6 # define su_6addr si_su.su_sin6.sin6_addr # define su_scope_id si_su.su_sin6.sin6_scope_id #endif struct tab { const char *name; short token; short state; short flags; /* 1 if command implemented, 2 if has options, 4 if can occur OOB */ const char *help; char *options; }; struct ftpconv { struct ftpconv *next; char *suffix; /* Suffix of requested name */ char *types; /* Valid file types */ char *disable; /* File to disable conversions */ char *command; /* Command to do the conversion */ }; typedef enum { CLASS_GUEST, CLASS_CHROOT, CLASS_REAL } class_ft; typedef enum { FLAG_checkportcmd = 1<<0, /* Check port commands */ FLAG_denyquick = 1<<1, /* Check ftpusers(5) before PASS */ FLAG_hidesymlinks = 1<<2, /* For symbolic links, list the file or directory the link references rather than the link itself */ FLAG_modify = 1<<3, /* Allow CHMOD, DELE, MKD, RMD, RNFR, UMASK */ FLAG_passive = 1<<4, /* Allow PASV mode */ FLAG_private = 1<<5, /* Don't publish class info in STAT */ FLAG_sanenames = 1<<6, /* Restrict names of uploaded files */ FLAG_upload = 1<<7, /* As per modify, but also allow APPE, STOR, STOU */ } classflag_t; #define CURCLASS_FLAGS_SET(x) (curclass.flags |= (FLAG_ ## x)) #define CURCLASS_FLAGS_CLR(x) (curclass.flags &= ~(FLAG_ ## x)) #define CURCLASS_FLAGS_ISSET(x) (curclass.flags & (FLAG_ ## x)) struct ftpclass { struct sockinet advertise; /* PASV address to advertise as */ char *chroot; /* Directory to chroot(2) to at login */ char *classname; /* Current class */ struct ftpconv *conversions; /* List of conversions */ char *display; /* File to display upon chdir */ char *homedir; /* Directory to chdir(2) to at login */ classflag_t flags; /* Flags; see classflag_t above */ LLT limit; /* Max connections (-1 = unlimited) */ char *limitfile; /* File to display if limit reached */ LLT maxfilesize; /* Maximum file size of uploads */ LLT maxrateget; /* Maximum get transfer rate throttle */ LLT maxrateput; /* Maximum put transfer rate throttle */ LLT maxtimeout; /* Maximum permitted timeout */ char *motd; /* MotD file to display after login */ char *notify; /* Files to notify about upon chdir */ LLT portmin; /* Minimum port for passive mode */ LLT portmax; /* Maximum port for passive mode */ LLT rateget; /* Get (RETR) transfer rate throttle */ LLT rateput; /* Put (STOR) transfer rate throttle */ LLT timeout; /* Default timeout */ class_ft type; /* Class type */ mode_t umask; /* Umask to use */ LLT mmapsize; /* mmap window size */ LLT readsize; /* data read size */ LLT writesize; /* data write size */ LLT recvbufsize; /* SO_RCVBUF size */ LLT sendbufsize; /* SO_SNDBUF size */ LLT sendlowat; /* SO_SNDLOWAT size */ }; __dead extern void ftp_loop(void); extern void ftp_handle_line(char *); #ifndef GLOBAL #define GLOBAL extern #endif GLOBAL struct sockinet ctrl_addr; GLOBAL struct sockinet data_dest; GLOBAL struct sockinet data_source; GLOBAL struct sockinet his_addr; GLOBAL struct sockinet pasv_addr; GLOBAL int connections; GLOBAL struct ftpclass curclass; GLOBAL int ftpd_debug; GLOBAL char *emailaddr; GLOBAL int form; GLOBAL int gidcount; /* number of entries in gidlist[] */ GLOBAL gid_t *gidlist; GLOBAL int hasyyerrored; GLOBAL char hostname[MAXHOSTNAMELEN+1]; GLOBAL char homedir[MAXPATHLEN]; #ifdef KERBEROS5 GLOBAL krb5_context kcontext; #endif GLOBAL int logged_in; GLOBAL int logging; GLOBAL int pdata; /* for passive mode */ #if defined(HAVE_SETPROCTITLE) GLOBAL char proctitle[BUFSIZ]; /* initial part of title */ #endif GLOBAL struct passwd *pw; GLOBAL int quietmessages; GLOBAL char remotehost[MAXHOSTNAMELEN+1]; GLOBAL char remoteloghost[2 * MAXHOSTNAMELEN + 4]; GLOBAL off_t restart_point; GLOBAL char tmpline[FTP_BUFLEN]; GLOBAL int type; GLOBAL int usedefault; /* for data transfers */ GLOBAL const char *version; GLOBAL int is_oob; /* total file data bytes */ GLOBAL off_t total_data_in, total_data_out, total_data; /* total number of data files */ GLOBAL off_t total_files_in, total_files_out, total_files; /* total bytes */ GLOBAL off_t total_bytes_in, total_bytes_out, total_bytes; /* total number of xfers */ GLOBAL off_t total_xfers_in, total_xfers_out, total_xfers; extern struct tab cmdtab[]; #define INTERNAL_LS "/bin/ls" #define CMD_IMPLEMENTED(x) ((x)->flags != 0) #define CMD_HAS_OPTIONS(x) ((x)->flags & 0x2) #define CMD_OOB(x) ((x)->flags & 0x4) #define CPUTC(c, f) do { \ putc(c, f); total_bytes++; total_bytes_out++; \ } while (0) #define CURCLASSTYPE curclass.type == CLASS_GUEST ? "GUEST" : \ curclass.type == CLASS_CHROOT ? "CHROOT" : \ curclass.type == CLASS_REAL ? "REAL" : \ "" #define ISDOTDIR(x) (x[0] == '.' && x[1] == '\0') #define ISDOTDOTDIR(x) (x[0] == '.' && x[1] == '.' && x[2] == '\0') #define EMPTYSTR(p) ((p) == NULL || *(p) == '\0') #define NEXTWORD(P, W) do { \ (W) = strsep(&(P), " \t"); \ } while ((W) != NULL && *(W) == '\0') #define PLURAL(s) ((s) == 1 ? "" : "s") #define REASSIGN(X,Y) do { if (X) free(X); (X)=(Y); } while (/*CONSTCOND*/0) #ifndef IPPORT_ANONMAX # define IPPORT_ANONMAX 65535 #endif src/libexec/ftpd/ftpcmd.y010064400011300000175000001126501456373412600156340ustar00srcmastrnetbsd/* $NetBSD: ftpcmd.y,v 1.96 2024/02/16 19:32:38 jkoshy Exp $ */ /*- * Copyright (c) 1997-2009 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Luke Mewburn. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ /* * Copyright (c) 1985, 1988, 1993, 1994 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * * @(#)ftpcmd.y 8.3 (Berkeley) 4/6/94 */ /* * Grammar for FTP commands. * See RFC 959. */ %{ #include #ifndef lint #if 0 static char sccsid[] = "@(#)ftpcmd.y 8.3 (Berkeley) 4/6/94"; #else __RCSID("$NetBSD: ftpcmd.y,v 1.96 2024/02/16 19:32:38 jkoshy Exp $"); #endif #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #ifdef KERBEROS5 #include #endif #include "extern.h" #include "version.h" static int cmd_type; static int cmd_form; static int cmd_bytesz; char cbuf[FTP_BUFLEN]; char *cmdp; char *fromname; extern int epsvall; struct tab sitetab[]; static int check_write(const char *, int); static void help(struct tab *, const char *); static void port_check(const char *, int); int yylex(void); %} %union { struct { LLT ll; int i; } u; char *s; const char *cs; } %token A B C E F I L N P R S T SP CRLF COMMA ALL USER PASS ACCT CWD CDUP SMNT QUIT REIN PORT PASV TYPE STRU MODE RETR STOR STOU APPE ALLO REST RNFR RNTO ABOR DELE RMD MKD PWD LIST NLST SITE SYST STAT HELP NOOP AUTH ADAT PROT PBSZ CCC MIC CONF ENC FEAT OPTS SIZE MDTM MLST MLSD LPRT LPSV EPRT EPSV MAIL MLFL MRCP MRSQ MSAM MSND MSOM CHMOD IDLE RATEGET RATEPUT UMASK LEXERR %token STRING %token NUMBER %type check_login octal_number byte_size %type struct_code mode_code type_code form_code decimal_integer %type pathstring pathname password username %type mechanism_name base64data prot_code %start cmd_sel %% cmd_sel : cmd { REASSIGN(fromname, NULL); restart_point = (off_t) 0; } | rcmd ; cmd /* RFC 959 */ : USER SP username CRLF { user($3); free($3); } | PASS SP password CRLF { pass($3); explicit_memset($3, 0, strlen($3)); free($3); } | CWD check_login CRLF { if ($2) cwd(homedir); } | CWD check_login SP pathname CRLF { if ($2 && $4 != NULL) cwd($4); if ($4 != NULL) free($4); } | CDUP check_login CRLF { if ($2) cwd(".."); } | QUIT CRLF { if (logged_in) { reply(-221, "%s", ""); reply(0, "Data traffic for this session was " LLF " byte%s in " LLF " file%s.", (LLT)total_data, PLURAL(total_data), (LLT)total_files, PLURAL(total_files)); reply(0, "Total traffic for this session was " LLF " byte%s in " LLF " transfer%s.", (LLT)total_bytes, PLURAL(total_bytes), (LLT)total_xfers, PLURAL(total_xfers)); } reply(221, "Thank you for using the FTP service on %s.", hostname); if (logged_in && logging) { syslog(LOG_INFO, "Data traffic: " LLF " byte%s in " LLF " file%s", (LLT)total_data, PLURAL(total_data), (LLT)total_files, PLURAL(total_files)); syslog(LOG_INFO, "Total traffic: " LLF " byte%s in " LLF " transfer%s", (LLT)total_bytes, PLURAL(total_bytes), (LLT)total_xfers, PLURAL(total_xfers)); } dologout(0); } | PORT check_login SP host_port CRLF { if ($2) port_check("PORT", AF_INET); } | LPRT check_login SP host_long_port4 CRLF { if ($2) port_check("LPRT", AF_INET); } | LPRT check_login SP host_long_port6 CRLF { #ifdef INET6 if ($2) port_check("LPRT", AF_INET6); #else reply(500, "IPv6 support not available."); #endif } | EPRT check_login SP STRING CRLF { if ($2) { if (extended_port($4) == 0) port_check("EPRT", -1); } free($4); } | PASV check_login CRLF { if ($2) { if (CURCLASS_FLAGS_ISSET(passive)) passive(); else reply(500, "PASV mode not available."); } } | LPSV check_login CRLF { if ($2) { if (CURCLASS_FLAGS_ISSET(passive)) { if (epsvall) reply(501, "LPSV disallowed after EPSV ALL"); else long_passive("LPSV", PF_UNSPEC); } else reply(500, "LPSV mode not available."); } } | EPSV check_login SP NUMBER CRLF { if ($2) { if (CURCLASS_FLAGS_ISSET(passive)) long_passive("EPSV", epsvproto2af($4.i)); else reply(500, "EPSV mode not available."); } } | EPSV check_login SP ALL CRLF { if ($2) { if (CURCLASS_FLAGS_ISSET(passive)) { reply(200, "EPSV ALL command successful."); epsvall++; } else reply(500, "EPSV mode not available."); } } | EPSV check_login CRLF { if ($2) { if (CURCLASS_FLAGS_ISSET(passive)) long_passive("EPSV", PF_UNSPEC); else reply(500, "EPSV mode not available."); } } | TYPE check_login SP type_code CRLF { if ($2) { switch (cmd_type) { case TYPE_A: if (cmd_form == FORM_N) { reply(200, "Type set to A."); type = cmd_type; form = cmd_form; } else reply(504, "Form must be N."); break; case TYPE_E: reply(504, "Type E not implemented."); break; case TYPE_I: reply(200, "Type set to I."); type = cmd_type; break; case TYPE_L: #if NBBY == 8 if (cmd_bytesz == 8) { reply(200, "Type set to L (byte size 8)."); type = cmd_type; } else reply(504, "Byte size must be 8."); #else /* NBBY == 8 */ UNIMPLEMENTED for NBBY != 8 #endif /* NBBY == 8 */ } } } | STRU check_login SP struct_code CRLF { if ($2) { switch ($4) { case STRU_F: reply(200, "STRU F ok."); break; default: reply(504, "Unimplemented STRU type."); } } } | MODE check_login SP mode_code CRLF { if ($2) { switch ($4) { case MODE_S: reply(200, "MODE S ok."); break; default: reply(502, "Unimplemented MODE type."); } } } | RETR check_login SP pathname CRLF { if ($2 && $4 != NULL) retrieve(NULL, $4); if ($4 != NULL) free($4); } | STOR SP pathname CRLF { if (check_write($3, 1)) store($3, "w", 0); if ($3 != NULL) free($3); } | STOU SP pathname CRLF { if (check_write($3, 1)) store($3, "w", 1); if ($3 != NULL) free($3); } | APPE SP pathname CRLF { if (check_write($3, 1)) store($3, "a", 0); if ($3 != NULL) free($3); } | ALLO check_login SP NUMBER CRLF { if ($2) reply(202, "ALLO command ignored."); } | ALLO check_login SP NUMBER SP R SP NUMBER CRLF { if ($2) reply(202, "ALLO command ignored."); } | RNTO SP pathname CRLF { if (check_write($3, 0)) { if (fromname) { renamecmd(fromname, $3); REASSIGN(fromname, NULL); } else { reply(503, "Bad sequence of commands."); } } if ($3 != NULL) free($3); } | ABOR check_login CRLF { if (is_oob) abor(); else if ($2) reply(225, "ABOR command successful."); } | DELE SP pathname CRLF { if (check_write($3, 0)) delete($3); if ($3 != NULL) free($3); } | RMD SP pathname CRLF { if (check_write($3, 0)) removedir($3); if ($3 != NULL) free($3); } | MKD SP pathname CRLF { if (check_write($3, 0)) makedir($3); if ($3 != NULL) free($3); } | PWD check_login CRLF { if ($2) pwd(); } | LIST check_login CRLF { const char *argv[] = { INTERNAL_LS, "-lgA", NULL }; if (CURCLASS_FLAGS_ISSET(hidesymlinks)) argv[1] = "-LlgA"; if ($2) retrieve(argv, ""); } | LIST check_login SP pathname CRLF { const char *argv[] = { INTERNAL_LS, "-lgA", NULL, NULL }; if (CURCLASS_FLAGS_ISSET(hidesymlinks)) argv[1] = "-LlgA"; if ($2 && $4 != NULL) { argv[2] = $4; retrieve(argv, $4); } if ($4 != NULL) free($4); } | NLST check_login CRLF { if ($2) send_file_list("."); } | NLST check_login SP pathname CRLF { if ($2) send_file_list($4); free($4); } | SITE SP HELP CRLF { help(sitetab, NULL); } | SITE SP CHMOD SP octal_number SP pathname CRLF { if (check_write($7, 0)) { if (($5 == -1) || ($5 > 0777)) reply(501, "CHMOD: Mode value must be between 0 and 0777"); else if (chmod($7, $5) < 0) perror_reply(550, $7); else reply(200, "CHMOD command successful."); } if ($7 != NULL) free($7); } | SITE SP HELP SP STRING CRLF { help(sitetab, $5); free($5); } | SITE SP IDLE check_login CRLF { if ($4) { reply(200, "Current IDLE time limit is " LLF " seconds; max " LLF, (LLT)curclass.timeout, (LLT)curclass.maxtimeout); } } | SITE SP IDLE check_login SP NUMBER CRLF { if ($4) { if ($6.i < 30 || $6.i > curclass.maxtimeout) { reply(501, "IDLE time limit must be between 30 and " LLF " seconds", (LLT)curclass.maxtimeout); } else { curclass.timeout = $6.i; (void) alarm(curclass.timeout); reply(200, "IDLE time limit set to " LLF " seconds", (LLT)curclass.timeout); } } } | SITE SP RATEGET check_login CRLF { if ($4) { reply(200, "Current RATEGET is " LLF " bytes/sec", (LLT)curclass.rateget); } } | SITE SP RATEGET check_login SP STRING CRLF { char errbuf[100]; char *p = $6; LLT rate; if ($4) { rate = strsuftollx("RATEGET", p, 0, curclass.maxrateget ? curclass.maxrateget : LLTMAX, errbuf, sizeof(errbuf)); if (errbuf[0]) reply(501, "%s", errbuf); else { curclass.rateget = rate; reply(200, "RATEGET set to " LLF " bytes/sec", (LLT)curclass.rateget); } } free($6); } | SITE SP RATEPUT check_login CRLF { if ($4) { reply(200, "Current RATEPUT is " LLF " bytes/sec", (LLT)curclass.rateput); } } | SITE SP RATEPUT check_login SP STRING CRLF { char errbuf[100]; char *p = $6; LLT rate; if ($4) { rate = strsuftollx("RATEPUT", p, 0, curclass.maxrateput ? curclass.maxrateput : LLTMAX, errbuf, sizeof(errbuf)); if (errbuf[0]) reply(501, "%s", errbuf); else { curclass.rateput = rate; reply(200, "RATEPUT set to " LLF " bytes/sec", (LLT)curclass.rateput); } } free($6); } | SITE SP UMASK check_login CRLF { int oldmask; if ($4) { oldmask = umask(0); (void) umask(oldmask); reply(200, "Current UMASK is %03o", oldmask); } } | SITE SP UMASK check_login SP octal_number CRLF { int oldmask; if ($4 && check_write("", 0)) { if (($6 == -1) || ($6 > 0777)) { reply(501, "Bad UMASK value"); } else { oldmask = umask($6); reply(200, "UMASK set to %03o (was %03o)", $6, oldmask); } } } | SYST CRLF { if (EMPTYSTR(version)) reply(215, "UNIX Type: L%d", NBBY); else reply(215, "UNIX Type: L%d Version: %s", NBBY, version); } | STAT check_login SP pathname CRLF { if ($2 && $4 != NULL) statfilecmd($4); if ($4 != NULL) free($4); } | STAT CRLF { if (is_oob) statxfer(); else statcmd(); } | HELP CRLF { help(cmdtab, NULL); } | HELP SP STRING CRLF { char *cp = $3; if (strncasecmp(cp, "SITE", 4) == 0) { cp = $3 + 4; if (*cp == ' ') cp++; if (*cp) help(sitetab, cp); else help(sitetab, NULL); } else help(cmdtab, $3); free($3); } | NOOP CRLF { reply(200, "NOOP command successful."); } /* RFC 2228 */ | AUTH SP mechanism_name CRLF { reply(502, "RFC 2228 authentication not implemented."); free($3); } | ADAT SP base64data CRLF { reply(503, "Please set authentication state with AUTH."); free($3); } | PROT SP prot_code CRLF { reply(503, "Please set protection buffer size with PBSZ."); free($3); } | PBSZ SP decimal_integer CRLF { reply(503, "Please set authentication state with AUTH."); } | CCC CRLF { reply(533, "No protection enabled."); } | MIC SP base64data CRLF { reply(502, "RFC 2228 authentication not implemented."); free($3); } | CONF SP base64data CRLF { reply(502, "RFC 2228 authentication not implemented."); free($3); } | ENC SP base64data CRLF { reply(502, "RFC 2228 authentication not implemented."); free($3); } /* RFC 2389 */ | FEAT CRLF { feat(); } | OPTS SP STRING CRLF { opts($3); free($3); } /* RFC 3659 */ /* * Return size of file in a format suitable for * using with RESTART (we just count bytes). */ | SIZE check_login SP pathname CRLF { if ($2 && $4 != NULL) sizecmd($4); if ($4 != NULL) free($4); } /* * Return modification time of file as an ISO 3307 * style time. E.g. YYYYMMDDHHMMSS or YYYYMMDDHHMMSS.xxx * where xxx is the fractional second (of any precision, * not necessarily 3 digits) */ | MDTM check_login SP pathname CRLF { if ($2 && $4 != NULL) { struct stat stbuf; if (stat($4, &stbuf) < 0) perror_reply(550, $4); else if (!S_ISREG(stbuf.st_mode)) { reply(550, "%s: not a plain file.", $4); } else { struct tm *t; t = gmtime(&stbuf.st_mtime); reply(213, "%04d%02d%02d%02d%02d%02d", TM_YEAR_BASE + t->tm_year, t->tm_mon+1, t->tm_mday, t->tm_hour, t->tm_min, t->tm_sec); } } if ($4 != NULL) free($4); } | MLST check_login SP pathname CRLF { if ($2 && $4 != NULL) mlst($4); if ($4 != NULL) free($4); } | MLST check_login CRLF { if ($2) mlst(NULL); } | MLSD check_login SP pathname CRLF { if ($2 && $4 != NULL) mlsd($4); if ($4 != NULL) free($4); } | MLSD check_login CRLF { if ($2) mlsd(NULL); } | error CRLF { yyerrok; } ; rcmd : REST check_login SP NUMBER CRLF { if ($2) { REASSIGN(fromname, NULL); restart_point = (off_t)$4.ll; reply(350, "Restarting at " LLF ". Send STORE or RETRIEVE to initiate transfer.", (LLT)restart_point); } } | RNFR SP pathname CRLF { restart_point = (off_t) 0; if (check_write($3, 0)) { REASSIGN(fromname, NULL); fromname = renamefrom($3); } if ($3 != NULL) free($3); } ; username : STRING ; password : /* empty */ { $$ = (char *)calloc(1, sizeof(char)); } | STRING ; byte_size : NUMBER { $$ = $1.i; } ; host_port : NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER { char *a, *p; memset(&data_dest, 0, sizeof(data_dest)); data_dest.su_len = sizeof(struct sockaddr_in); data_dest.su_family = AF_INET; p = (char *)&data_dest.su_port; p[0] = $9.i; p[1] = $11.i; a = (char *)&data_dest.su_addr; a[0] = $1.i; a[1] = $3.i; a[2] = $5.i; a[3] = $7.i; } ; host_long_port4 : NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER { char *a, *p; memset(&data_dest, 0, sizeof(data_dest)); data_dest.su_len = sizeof(struct sockaddr_in); data_dest.su_family = AF_INET; p = (char *)&data_dest.su_port; p[0] = $15.i; p[1] = $17.i; a = (char *)&data_dest.su_addr; a[0] = $5.i; a[1] = $7.i; a[2] = $9.i; a[3] = $11.i; /* reject invalid LPRT command */ if ($1.i != 4 || $3.i != 4 || $13.i != 2) memset(&data_dest, 0, sizeof(data_dest)); } ; host_long_port6 : NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER COMMA NUMBER { #ifdef INET6 unsigned char buf[16]; (void)memset(&data_dest, 0, sizeof(data_dest)); data_dest.su_len = sizeof(struct sockaddr_in6); data_dest.su_family = AF_INET6; buf[0] = $39.i; buf[1] = $41.i; (void)memcpy(&data_dest.su_port, buf, sizeof(data_dest.su_port)); buf[0] = $5.i; buf[1] = $7.i; buf[2] = $9.i; buf[3] = $11.i; buf[4] = $13.i; buf[5] = $15.i; buf[6] = $17.i; buf[7] = $19.i; buf[8] = $21.i; buf[9] = $23.i; buf[10] = $25.i; buf[11] = $27.i; buf[12] = $29.i; buf[13] = $31.i; buf[14] = $33.i; buf[15] = $35.i; (void)memcpy(&data_dest.si_su.su_sin6.sin6_addr, buf, sizeof(data_dest.si_su.su_sin6.sin6_addr)); if (his_addr.su_family == AF_INET6) { /* XXX: more sanity checks! */ data_dest.su_scope_id = his_addr.su_scope_id; } #else memset(&data_dest, 0, sizeof(data_dest)); #endif /* INET6 */ /* reject invalid LPRT command */ if ($1.i != 6 || $3.i != 16 || $37.i != 2) memset(&data_dest, 0, sizeof(data_dest)); } ; form_code : N { $$ = FORM_N; } | T { $$ = FORM_T; } | C { $$ = FORM_C; } ; type_code : A { cmd_type = TYPE_A; cmd_form = FORM_N; } | A SP form_code { cmd_type = TYPE_A; cmd_form = $3; } | E { cmd_type = TYPE_E; cmd_form = FORM_N; } | E SP form_code { cmd_type = TYPE_E; cmd_form = $3; } | I { cmd_type = TYPE_I; } | L { cmd_type = TYPE_L; cmd_bytesz = NBBY; } | L SP byte_size { cmd_type = TYPE_L; cmd_bytesz = $3; } /* this is for a bug in the BBN ftp */ | L byte_size { cmd_type = TYPE_L; cmd_bytesz = $2; } ; struct_code : F { $$ = STRU_F; } | R { $$ = STRU_R; } | P { $$ = STRU_P; } ; mode_code : S { $$ = MODE_S; } | B { $$ = MODE_B; } | C { $$ = MODE_C; } ; pathname : pathstring { /* * Problem: this production is used for all pathname * processing, but only gives a 550 error reply. * This is a valid reply in some cases but not in * others. */ if (logged_in && $1 && *$1 == '~') { char *path, *home, *result; size_t len; path = strchr($1 + 1, '/'); if (path != NULL) *path++ = '\0'; if ($1[1] == '\0') home = homedir; else { struct passwd *hpw; if ((hpw = getpwnam($1 + 1)) != NULL) home = hpw->pw_dir; else home = $1; } len = strlen(home) + 1; if (path != NULL) len += strlen(path) + 1; if ((result = malloc(len)) == NULL) fatal("Local resource failure: malloc"); strlcpy(result, home, len); if (path != NULL) { strlcat(result, "/", len); strlcat(result, path, len); } $$ = result; free($1); } else $$ = $1; } ; pathstring : STRING ; octal_number : NUMBER { int ret, dec, multby, digit; /* * Convert a number that was read as decimal number * to what it would be if it had been read as octal. */ dec = $1.i; multby = 1; ret = 0; while (dec) { digit = dec%10; if (digit > 7) { ret = -1; break; } ret += digit * multby; multby *= 8; dec /= 10; } $$ = ret; } ; mechanism_name : STRING ; base64data : STRING ; prot_code : STRING ; decimal_integer : NUMBER { $$ = $1.i; } ; check_login : /* empty */ { if (logged_in) $$ = 1; else { reply(530, "Please login with USER and PASS."); $$ = 0; hasyyerrored = 1; } } ; %% #define CMD 0 /* beginning of command */ #define ARGS 1 /* expect miscellaneous arguments */ #define STR1 2 /* expect SP followed by STRING */ #define STR2 3 /* expect STRING */ #define OSTR 4 /* optional SP then STRING */ #define ZSTR1 5 /* SP then optional STRING */ #define ZSTR2 6 /* optional STRING after SP */ #define SITECMD 7 /* SITE command */ #define NSTR 8 /* Number followed by a string */ #define NOARGS 9 /* No arguments allowed */ #define EOLN 10 /* End of line */ struct tab cmdtab[] = { /* From RFC 959, in order defined (5.3.1) */ { "USER", USER, STR1, 1, " username", 0, }, { "PASS", PASS, ZSTR1, 1, " password", 0, }, { "ACCT", ACCT, STR1, 0, "(specify account)", 0, }, { "CWD", CWD, OSTR, 1, "[ directory-name ]", 0, }, { "CDUP", CDUP, NOARGS, 1, "(change to parent directory)", 0, }, { "SMNT", SMNT, ARGS, 0, "(structure mount)", 0, }, { "QUIT", QUIT, NOARGS, 1, "(terminate service)", 0, }, { "REIN", REIN, NOARGS, 0, "(reinitialize server state)", 0, }, { "PORT", PORT, ARGS, 1, " b0, b1, b2, b3, b4, b5", 0, }, { "LPRT", LPRT, ARGS, 1, " af, hal, h1, h2, h3,..., pal, p1, p2...", 0, }, { "EPRT", EPRT, STR1, 1, " |af|addr|port|", 0, }, { "PASV", PASV, NOARGS, 1, "(set server in passive mode)", 0, }, { "LPSV", LPSV, ARGS, 1, "(set server in passive mode)", 0, }, { "EPSV", EPSV, ARGS, 1, "[ af|ALL]", 0, }, { "TYPE", TYPE, ARGS, 1, " [ A | E | I | L ]", 0, }, { "STRU", STRU, ARGS, 1, "(specify file structure)", 0, }, { "MODE", MODE, ARGS, 1, "(specify transfer mode)", 0, }, { "RETR", RETR, STR1, 1, " file-name", 0, }, { "STOR", STOR, STR1, 1, " file-name", 0, }, { "STOU", STOU, STR1, 1, " file-name", 0, }, { "APPE", APPE, STR1, 1, " file-name", 0, }, { "ALLO", ALLO, ARGS, 1, "allocate storage (vacuously)", 0, }, { "REST", REST, ARGS, 1, " offset (restart command)", 0, }, { "RNFR", RNFR, STR1, 1, " file-name", 0, }, { "RNTO", RNTO, STR1, 1, " file-name", 0, }, { "ABOR", ABOR, NOARGS, 4, "(abort operation)", 0, }, { "DELE", DELE, STR1, 1, " file-name", 0, }, { "RMD", RMD, STR1, 1, " path-name", 0, }, { "MKD", MKD, STR1, 1, " path-name", 0, }, { "PWD", PWD, NOARGS, 1, "(return current directory)", 0, }, { "LIST", LIST, OSTR, 1, "[ path-name ]", 0, }, { "NLST", NLST, OSTR, 1, "[ path-name ]", 0, }, { "SITE", SITE, SITECMD, 1, "site-cmd [ arguments ]", 0, }, { "SYST", SYST, NOARGS, 1, "(get type of operating system)", 0, }, { "STAT", STAT, OSTR, 4, "[ path-name ]", 0, }, { "HELP", HELP, OSTR, 1, "[ ]", 0, }, { "NOOP", NOOP, NOARGS, 2, "", 0, }, /* From RFC 2228, in order defined */ { "AUTH", AUTH, STR1, 1, " mechanism-name", 0, }, { "ADAT", ADAT, STR1, 1, " base-64-data", 0, }, { "PROT", PROT, STR1, 1, " prot-code", 0, }, { "PBSZ", PBSZ, ARGS, 1, " decimal-integer", 0, }, { "CCC", CCC, NOARGS, 1, "(Disable data protection)", 0, }, { "MIC", MIC, STR1, 4, " base64data", 0, }, { "CONF", CONF, STR1, 4, " base64data", 0, }, { "ENC", ENC, STR1, 4, " base64data", 0, }, /* From RFC 2389, in order defined */ { "FEAT", FEAT, NOARGS, 1, "(display extended features)", 0, }, { "OPTS", OPTS, STR1, 1, " command [ options ]", 0, }, /* From RFC 3659, in order defined */ { "MDTM", MDTM, OSTR, 1, " path-name", 0, }, { "SIZE", SIZE, OSTR, 1, " path-name", 0, }, { "MLST", MLST, OSTR, 2, "[ path-name ]", 0, }, { "MLSD", MLSD, OSTR, 1, "[ directory-name ]", 0, }, /* obsolete commands */ { "MAIL", MAIL, OSTR, 0, "(mail to user)", 0, }, { "MLFL", MLFL, OSTR, 0, "(mail file)", 0, }, { "MRCP", MRCP, STR1, 0, "(mail recipient)", 0, }, { "MRSQ", MRSQ, OSTR, 0, "(mail recipient scheme question)", 0, }, { "MSAM", MSAM, OSTR, 0, "(mail send to terminal and mailbox)", 0, }, { "MSND", MSND, OSTR, 0, "(mail send to terminal)", 0, }, { "MSOM", MSOM, OSTR, 0, "(mail send to terminal or mailbox)", 0, }, { "XCUP", CDUP, NOARGS, 1, "(change to parent directory)", 0, }, { "XCWD", CWD, OSTR, 1, "[ directory-name ]", 0, }, { "XMKD", MKD, STR1, 1, " path-name", 0, }, { "XPWD", PWD, NOARGS, 1, "(return current directory)", 0, }, { "XRMD", RMD, STR1, 1, " path-name", 0, }, { NULL, 0, 0, 0, 0, 0, } }; struct tab sitetab[] = { { "CHMOD", CHMOD, NSTR, 1, " mode file-name", 0, }, { "HELP", HELP, OSTR, 1, "[ ]", 0, }, { "IDLE", IDLE, ARGS, 1, "[ maximum-idle-time ]", 0, }, { "RATEGET", RATEGET,OSTR, 1, "[ get-throttle-rate ]", 0, }, { "RATEPUT", RATEPUT,OSTR, 1, "[ put-throttle-rate ]", 0, }, { "UMASK", UMASK, ARGS, 1, "[ umask ]", 0, }, { NULL, 0, 0, 0, 0, 0, } }; /* * Check if a filename is allowed to be modified (isupload == 0) or * uploaded (isupload == 1), and if necessary, check the filename is `sane'. * If the filename is NULL, fail. * If the filename is "", don't do the sane name check. */ static int check_write(const char *file, int isupload) { if (file == NULL) return (0); if (! logged_in) { reply(530, "Please login with USER and PASS."); return (0); } /* checking modify */ if (! isupload && ! CURCLASS_FLAGS_ISSET(modify)) { reply(502, "No permission to use this command."); return (0); } /* checking upload */ if (isupload && ! CURCLASS_FLAGS_ISSET(upload)) { reply(502, "No permission to use this command."); return (0); } /* checking sanenames */ if (file[0] != '\0' && CURCLASS_FLAGS_ISSET(sanenames)) { const char *p; if (file[0] == '.') goto insane_name; for (p = file; *p; p++) { if (isalnum((unsigned char)*p) || *p == '-' || *p == '+' || *p == ',' || *p == '.' || *p == '_') continue; insane_name: reply(553, "File name `%s' not allowed.", file); return (0); } } return (1); } struct tab * lookup(struct tab *p, const char *cmd) { for (; p->name != NULL; p++) if (strcasecmp(cmd, p->name) == 0) return (p); return (0); } #include /* * get_line - a hacked up version of fgets to ignore TELNET escape codes. * `s' is the buffer to read into. * `n' is the 1 less than the size of the buffer, to allow trailing NUL * `iop' is the FILE to read from. * Returns 0 on success, -1 on EOF, -2 if the command was too long. */ int get_line(char *s, int n, FILE *iop) { int c; char *cs; cs = s; /* tmpline may contain saved command from urgent mode interruption */ for (c = 0; tmpline[c] != '\0' && --n > 0; ++c) { *cs++ = tmpline[c]; if (tmpline[c] == '\n') { *cs++ = '\0'; if (ftpd_debug) syslog(LOG_DEBUG, "command: %s", s); tmpline[0] = '\0'; return(0); } if (c == 0) tmpline[0] = '\0'; } while ((c = getc(iop)) != EOF) { total_bytes++; total_bytes_in++; c &= 0377; if (c == IAC) { if ((c = getc(iop)) != EOF) { total_bytes++; total_bytes_in++; c &= 0377; switch (c) { case WILL: case WONT: c = getc(iop); total_bytes++; total_bytes_in++; cprintf(stdout, "%c%c%c", IAC, DONT, 0377&c); (void) fflush(stdout); continue; case DO: case DONT: c = getc(iop); total_bytes++; total_bytes_in++; cprintf(stdout, "%c%c%c", IAC, WONT, 0377&c); (void) fflush(stdout); continue; case IAC: break; default: continue; /* ignore command */ } } } *cs++ = c; if (--n <= 0) { /* * If command doesn't fit into buffer, discard the * rest of the command and indicate truncation. * This prevents the command to be split up into * multiple commands. */ if (ftpd_debug) syslog(LOG_DEBUG, "command too long, last char: %d", c); while (c != '\n' && (c = getc(iop)) != EOF) continue; return (-2); } if (c == '\n') break; } if (c == EOF && cs == s) return (-1); *cs++ = '\0'; if (ftpd_debug) { if ((curclass.type != CLASS_GUEST && strncasecmp(s, "PASS ", 5) == 0) || strncasecmp(s, "ACCT ", 5) == 0) { /* Don't syslog passwords */ syslog(LOG_DEBUG, "command: %.4s ???", s); } else { char *cp; int len; /* Don't syslog trailing CR-LF */ len = strlen(s); cp = s + len - 1; while (cp >= s && (*cp == '\n' || *cp == '\r')) { --cp; --len; } syslog(LOG_DEBUG, "command: %.*s", len, s); } } return (0); } void ftp_handle_line(char *cp) { cmdp = cp; yyparse(); } void ftp_loop(void) { int ret; while (1) { (void) alarm(curclass.timeout); ret = get_line(cbuf, sizeof(cbuf)-1, stdin); (void) alarm(0); if (ret == -1) { reply(221, "You could at least say goodbye."); dologout(0); } else if (ret == -2) { reply(500, "Command too long."); } else { ftp_handle_line(cbuf); } } /*NOTREACHED*/ } int yylex(void) { static int cpos, state; char *cp, *cp2; struct tab *p; int n; char c; switch (state) { case CMD: hasyyerrored = 0; if ((cp = strchr(cmdp, '\r'))) { *cp = '\0'; #if defined(HAVE_SETPROCTITLE) if (strncasecmp(cmdp, "PASS", 4) != 0 && strncasecmp(cmdp, "ACCT", 4) != 0) setproctitle("%s: %s", proctitle, cmdp); #endif /* defined(HAVE_SETPROCTITLE) */ *cp++ = '\n'; *cp = '\0'; } if ((cp = strpbrk(cmdp, " \n"))) cpos = cp - cmdp; if (cpos == 0) cpos = 4; c = cmdp[cpos]; cmdp[cpos] = '\0'; p = lookup(cmdtab, cmdp); cmdp[cpos] = c; if (p != NULL) { if (is_oob && ! CMD_OOB(p)) { /* command will be handled in-band */ return (0); } else if (! CMD_IMPLEMENTED(p)) { reply(502, "%s command not implemented.", p->name); hasyyerrored = 1; break; } state = p->state; yylval.cs = p->name; return (p->token); } break; case SITECMD: if (cmdp[cpos] == ' ') { cpos++; return (SP); } cp = &cmdp[cpos]; if ((cp2 = strpbrk(cp, " \n"))) cpos = cp2 - cmdp; c = cmdp[cpos]; cmdp[cpos] = '\0'; p = lookup(sitetab, cp); cmdp[cpos] = c; if (p != NULL) { if (!CMD_IMPLEMENTED(p)) { reply(502, "SITE %s command not implemented.", p->name); hasyyerrored = 1; break; } state = p->state; yylval.cs = p->name; return (p->token); } break; case OSTR: if (cmdp[cpos] == '\n') { state = EOLN; return (CRLF); } /* FALLTHROUGH */ case STR1: case ZSTR1: dostr1: if (cmdp[cpos] == ' ') { cpos++; state = state == OSTR ? STR2 : state+1; return (SP); } break; case ZSTR2: if (cmdp[cpos] == '\n') { state = EOLN; return (CRLF); } /* FALLTHROUGH */ case STR2: cp = &cmdp[cpos]; n = strlen(cp); cpos += n - 1; /* * Make sure the string is nonempty and \n terminated. */ if (n > 1 && cmdp[cpos] == '\n') { cmdp[cpos] = '\0'; yylval.s = ftpd_strdup(cp); cmdp[cpos] = '\n'; state = ARGS; return (STRING); } break; case NSTR: if (cmdp[cpos] == ' ') { cpos++; return (SP); } if (isdigit((unsigned char)cmdp[cpos])) { cp = &cmdp[cpos]; while (isdigit((unsigned char)cmdp[++cpos])) ; c = cmdp[cpos]; cmdp[cpos] = '\0'; yylval.u.i = atoi(cp); cmdp[cpos] = c; state = STR1; return (NUMBER); } state = STR1; goto dostr1; case ARGS: if (isdigit((unsigned char)cmdp[cpos])) { cp = &cmdp[cpos]; while (isdigit((unsigned char)cmdp[++cpos])) ; c = cmdp[cpos]; cmdp[cpos] = '\0'; yylval.u.i = atoi(cp); yylval.u.ll = STRTOLL(cp, NULL, 10); cmdp[cpos] = c; return (NUMBER); } if (strncasecmp(&cmdp[cpos], "ALL", 3) == 0 && !isalnum((unsigned char)cmdp[cpos + 3])) { cpos += 3; return (ALL); } switch (cmdp[cpos++]) { case '\n': state = EOLN; return (CRLF); case ' ': return (SP); case ',': return (COMMA); case 'A': case 'a': return (A); case 'B': case 'b': return (B); case 'C': case 'c': return (C); case 'E': case 'e': return (E); case 'F': case 'f': return (F); case 'I': case 'i': return (I); case 'L': case 'l': return (L); case 'N': case 'n': return (N); case 'P': case 'p': return (P); case 'R': case 'r': return (R); case 'S': case 's': return (S); case 'T': case 't': return (T); } break; case NOARGS: if (cmdp[cpos] == '\n') { state = EOLN; return (CRLF); } c = cmdp[cpos]; cmdp[cpos] = '\0'; reply(501, "'%s' command does not take any arguments.", cmdp); hasyyerrored = 1; cmdp[cpos] = c; break; case EOLN: state = CMD; return (0); default: fatal("Unknown state in scanner."); } yyerror(NULL); state = CMD; return (0); } /* ARGSUSED */ void yyerror(const char *s) { char *cp; if (hasyyerrored || is_oob) return; if ((cp = strchr(cmdp,'\n')) != NULL) *cp = '\0'; reply(500, "'%s': command not understood.", cmdp); hasyyerrored = 1; } static void help(struct tab *ctab, const char *s) { struct tab *c; int width, NCMDS; const char *htype; if (ctab == sitetab) htype = "SITE "; else htype = ""; width = 0, NCMDS = 0; for (c = ctab; c->name != NULL; c++) { int len = strlen(c->name); if (len > width) width = len; NCMDS++; } width = (width + 8) &~ 7; if (s == 0) { int i, j, w; int columns, lines; reply(-214, "%s", ""); reply(0, "The following %scommands are recognized.", htype); reply(0, "(`-' = not implemented, `+' = supports options)"); columns = 76 / width; if (columns == 0) columns = 1; lines = (NCMDS + columns - 1) / columns; for (i = 0; i < lines; i++) { cprintf(stdout, " "); for (j = 0; j < columns; j++) { c = ctab + j * lines + i; cprintf(stdout, "%s", c->name); w = strlen(c->name); if (! CMD_IMPLEMENTED(c)) { CPUTC('-', stdout); w++; } if (CMD_HAS_OPTIONS(c)) { CPUTC('+', stdout); w++; } if (c + lines >= &ctab[NCMDS]) break; while (w < width) { CPUTC(' ', stdout); w++; } } cprintf(stdout, "\r\n"); } (void) fflush(stdout); reply(214, "Direct comments to ftp-bugs@%s.", hostname); return; } c = lookup(ctab, s); if (c == (struct tab *)0) { reply(502, "Unknown command '%s'.", s); return; } if (CMD_IMPLEMENTED(c)) reply(214, "Syntax: %s%s %s", htype, c->name, c->help); else reply(504, "%s%-*s\t%s; not implemented.", htype, width, c->name, c->help); } /* * Check that the structures used for a PORT, LPRT or EPRT command are * valid (data_dest, his_addr), and if necessary, detect ftp bounce attacks. * If family != -1 check that his_addr.su_family == family. */ static void port_check(const char *cmd, int family) { char h1[NI_MAXHOST], h2[NI_MAXHOST]; char s1[NI_MAXHOST], s2[NI_MAXHOST]; const int niflags = NI_NUMERICHOST | NI_NUMERICSERV; if (epsvall) { reply(501, "%s disallowed after EPSV ALL", cmd); return; } if (family != -1 && his_addr.su_family != family) { port_check_fail: reply(500, "Illegal %s command rejected", cmd); return; } if (data_dest.su_family != his_addr.su_family) goto port_check_fail; /* be paranoid, if told so */ if (CURCLASS_FLAGS_ISSET(checkportcmd)) { #ifdef INET6 /* * be paranoid, there are getnameinfo implementation that does * not present scopeid portion */ if (data_dest.su_family == AF_INET6 && data_dest.su_scope_id != his_addr.su_scope_id) goto port_check_fail; #endif if (getnameinfo((struct sockaddr *)&data_dest, data_dest.su_len, h1, sizeof(h1), s1, sizeof(s1), niflags)) goto port_check_fail; if (getnameinfo((struct sockaddr *)&his_addr, his_addr.su_len, h2, sizeof(h2), s2, sizeof(s2), niflags)) goto port_check_fail; if (atoi(s1) < IPPORT_RESERVED || strcmp(h1, h2) != 0) goto port_check_fail; } usedefault = 0; if (pdata >= 0) { (void) close(pdata); pdata = -1; } reply(200, "%s command successful.", cmd); } src/libexec/ftpd/ftpd.8010064400011300000175000000541771327107447000152160ustar00srcmastrnetbsd.\" $NetBSD: ftpd.8,v 1.87 2018/04/28 13:38:00 riastradh Exp $ .\" .\" Copyright (c) 1997-2008 The NetBSD Foundation, Inc. .\" All rights reserved. .\" .\" This code is derived from software contributed to The NetBSD Foundation .\" by Luke Mewburn. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" .\" THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS .\" ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED .\" TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR .\" PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS .\" BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR .\" CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF .\" SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS .\" INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN .\" CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) .\" ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE .\" POSSIBILITY OF SUCH DAMAGE. .\" .\" Copyright (c) 1985, 1988, 1991, 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. Neither the name of the University nor the names of its contributors .\" may be used to endorse or promote products derived from this software .\" without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF .\" SUCH DAMAGE. .\" .\" @(#)ftpd.8 8.2 (Berkeley) 4/19/94 .\" .Dd May 1, 2009 .Dt FTPD 8 .Os .Sh NAME .Nm ftpd .Nd Internet File Transfer Protocol server .Sh SYNOPSIS .Nm .Op Fl 46DdfHlnQqrsUuWwX .Op Fl a Ar anondir .Op Fl C Ar user Ns Op @ Ns Ar host .Op Fl c Ar confdir .Op Fl e Ar emailaddr .Op Fl h Ar hostname .Op Fl L Ar xferlogfile .Op Fl P Ar dataport .Op Fl V Ar version .Sh DESCRIPTION .Nm is the Internet File Transfer Protocol server process. The server uses the .Tn TCP protocol and listens at the port specified in the .Dq ftp service specification; see .Xr services 5 . .Pp Available options: .Bl -tag -width Ds .It Fl 4 When .Fl D is specified, bind to IPv4 addresses only. .It Fl 6 When .Fl D is specified, bind to IPv6 addresses only. .It Fl a Ar anondir Define .Ar anondir as the directory to .Xr chroot 2 into for anonymous logins. Default is the home directory for the ftp user. This can also be specified with the .Xr ftpd.conf 5 .Sy chroot directive. .It Fl C Ar user Ns Op @ Ns Ar host Check whether .Ar user .Po as if connecting from .Ar host , if provided .Pc would be granted access under the restrictions given in .Xr ftpusers 5 , and exit without attempting a connection. .Nm exits with an exit code of 0 if access would be granted, or 1 otherwise. This can be useful for testing configurations. .It Fl c Ar confdir Change the root directory of the configuration files from .Dq Pa /etc to .Ar confdir . This changes the directory for the following files: .Pa /etc/ftpchroot , .Pa /etc/ftpusers , .Pa /etc/ftpwelcome , .Pa /etc/motd , and the file specified by the .Xr ftpd.conf 5 .Sy limit directive. .It Fl D Run as daemon. .Nm will listen on the default FTP port for incoming connections and fork a child for each connection. This is lower overhead than starting .Nm from .Xr inetd 8 and thus might be useful on busy servers to reduce load. .It Fl d Debugging information is written to the syslog using a facility of .Dv LOG_FTP . .It Fl e Ar emailaddr Use .Ar emailaddr for the .Dq "\&%E" escape sequence (see .Sx Display file escape sequences ) .It Fl f Stops the .Fl D flag from detaching from the tty and going into the background. .It Fl H Equivalent to .Do -h `hostname` .Dc . .It Fl h Ar hostname Explicitly set the hostname to advertise as to .Ar hostname . The default is the hostname associated with the IP address that .Nm is listening on. This ability (with or without .Fl h ) , in conjunction with .Fl c Ar confdir , is useful when configuring .Sq virtual .Tn FTP servers, each listening on separate addresses as separate names. Refer to .Xr inetd.conf 5 for more information on starting services to listen on specific IP addresses. .It Fl L Ar xferlogfile Log .Tn wu-ftpd style .Sq xferlog entries to .Ar xferlogfile . .It Fl l Each successful and failed .Tn FTP session is logged using syslog with a facility of .Dv LOG_FTP . If this option is specified more than once, the retrieve (get), store (put), append, delete, make directory, remove directory and rename operations and their file name arguments are also logged. .It Fl n Don't attempt translation of IP addresses to hostnames. .It Fl P Ar dataport Use .Ar dataport as the data port, overriding the default of using the port one less that the port .Nm is listening on. .It Fl Q Disable the use of pid files for keeping track of the number of logged-in users per class. This may reduce the load on heavily loaded .Tn FTP servers. .It Fl q Enable the use of pid files for keeping track of the number of logged-in users per class. This is the default. .It Fl r Permanently drop root privileges once the user is logged in. The use of this option may result in the server using a port other than the (listening-port - 1) for .Sy PORT style commands, which is contrary to the .Cm RFC 959 specification, but in practice very few clients rely upon this behaviour. See .Sx SECURITY CONSIDERATIONS below for more details. .It Fl s Require a secure authentication mechanism like Kerberos or S/Key to be used. .It Fl U Don't log each concurrent .Tn FTP session to .Pa /var/run/utmp . This is the default. .It Fl u Log each concurrent .Tn FTP session to .Pa /var/run/utmp , making them visible to commands such as .Xr who 1 . .It Fl V Ar version Use .Ar version as the version to advertise in the login banner and in the output of .Sy STAT and .Sy SYST instead of the default version information. If .Ar version is empty or .Sq - then don't display any version information. .It Fl W Don't log each .Tn FTP session to .Pa /var/log/wtmp . .It Fl w Log each .Tn FTP session to .Pa /var/log/wtmp , making them visible to commands such as .Xr last 1 . This is the default. .It Fl X Log .Tn wu-ftpd style .Sq xferlog entries to the syslog, prefixed with .Dq "xferlog:\ " , using a facility of .Dv LOG_FTP . These syslog entries can be converted to a .Tn wu-ftpd style .Pa xferlog file suitable for input into a third-party log analysis tool with a command similar to: .Dl "sed -ne 's/^.*xferlog: //p' /var/log/xferlog > wuxferlog" .El .Pp The file .Pa /etc/nologin can be used to disable .Tn FTP access. If the file exists, .Nm displays it and exits. If the file .Pa /etc/ftpwelcome exists, .Nm prints it before issuing the .Dq ready message. If the file .Pa /etc/motd exists (under the chroot directory if applicable), .Nm prints it after a successful login. This may be changed with the .Xr ftpd.conf 5 directive .Sy motd . .Pp The .Nm server currently supports the following .Tn FTP requests. The case of the requests is ignored. .Bl -column "Request" "Description" -offset indent .It Sy Request Ta Sy Description .It ABOR Ta "abort previous command" .It ACCT Ta "specify account (ignored)" .It ALLO Ta "allocate storage (vacuously)" .It APPE Ta "append to a file" .It CDUP Ta "change to parent of current working directory" .It CWD Ta "change working directory" .It DELE Ta "delete a file" .It EPSV Ta "prepare for server-to-server transfer" .It EPRT Ta "specify data connection port" .It FEAT Ta "list extra features that are not defined in" Cm "RFC 959" .It HELP Ta "give help information" .It LIST Ta "give list files in a directory" Pq Dq Li "ls -lA" .It LPSV Ta "prepare for server-to-server transfer" .It LPRT Ta "specify data connection port" .It MLSD Ta "list contents of directory in a machine-processable form" .It MLST Ta "show a pathname in a machine-processable form" .It MKD Ta "make a directory" .It MDTM Ta "show last modification time of file" .It MODE Ta "specify data transfer" Em mode .It NLST Ta "give name list of files in directory" .It NOOP Ta "do nothing" .It OPTS Ta "define persistent options for a given command" .It PASS Ta "specify password" .It PASV Ta "prepare for server-to-server transfer" .It PORT Ta "specify data connection port" .It PWD Ta "print the current working directory" .It QUIT Ta "terminate session" .It REST Ta "restart incomplete transfer" .It RETR Ta "retrieve a file" .It RMD Ta "remove a directory" .It RNFR Ta "specify rename-from file name" .It RNTO Ta "specify rename-to file name" .It SITE Ta "non-standard commands (see next section)" .It SIZE Ta "return size of file" .It STAT Ta "return status of server" .It STOR Ta "store a file" .It STOU Ta "store a file with a unique name" .It STRU Ta "specify data transfer" Em structure .It SYST Ta "show operating system type of server system" .It TYPE Ta "specify data transfer" Em type .It USER Ta "specify user name" .It XCUP Ta "change to parent of current working directory (deprecated)" .It XCWD Ta "change working directory (deprecated)" .It XMKD Ta "make a directory (deprecated)" .It XPWD Ta "print the current working directory (deprecated)" .It XRMD Ta "remove a directory (deprecated)" .El .Pp The following non-standard or .Ux specific commands are supported by the SITE request. .Pp .Bl -column Request Description -offset indent .It Sy Request Ta Sy Description .It CHMOD Ta "change mode of a file, e.g. ``SITE CHMOD 755 filename''" .It HELP Ta "give help information." .It IDLE Ta "set idle-timer, e.g. ``SITE IDLE 60''" .It RATEGET Ta "set maximum get rate throttle in bytes/second, e.g. ``SITE RATEGET 5k''" .It RATEPUT Ta "set maximum put rate throttle in bytes/second, e.g. ``SITE RATEPUT 5k''" .It UMASK Ta "change umask, e.g. ``SITE UMASK 002''" .El .Pp The following .Tn FTP requests (as specified in .Cm RFC 959 and .Cm RFC 2228 ) are recognized, but are not implemented: .Sy ACCT , .Sy ADAT , .Sy AUTH , .Sy CCC , .Sy CONF , .Sy ENC , .Sy MIC , .Sy PBSZ , .Sy PROT , .Sy REIN , and .Sy SMNT . .Pp The .Nm server will abort an active file transfer only when the .Sy ABOR command is preceded by a Telnet "Interrupt Process" (IP) signal and a Telnet "Synch" signal in the command Telnet stream, as described in Internet .Cm RFC 959 . If a .Sy STAT command is received during a data transfer, preceded by a Telnet IP and Synch, transfer status will be returned. .Pp .Nm interprets file names according to the .Dq globbing conventions used by .Xr csh 1 . This allows users to use the metacharacters .Dq Li \&*?[]{}~ . .Ss User authentication .Nm authenticates users according to five rules. .Pp .Bl -enum -offset indent .It The login name must be in the password data base, .Xr passwd 5 , and not have a null password. In this case a password must be provided by the client before any file operations may be performed. If the user has an S/Key key, the response from a successful .Sy USER command will include an S/Key challenge. The client may choose to respond with a .Sy PASS command giving either a standard password or an S/Key one-time password. The server will automatically determine which type of password it has been given and attempt to authenticate accordingly. See .Xr skey 1 for more information on S/Key authentication. S/Key is a Trademark of Bellcore. .It The login name must be allowed based on the information in .Xr ftpusers 5 . .It The user must have a standard shell returned by .Xr getusershell 3 . If the user's shell field in the password database is empty, the shell is assumed to be .Pa /bin/sh . As per .Xr shells 5 , the user's shell must be listed with full path in .Pa /etc/shells . .It If directed by the file .Xr ftpchroot 5 the session's root directory will be changed by .Xr chroot 2 to the directory specified in the .Xr ftpd.conf 5 .Sy chroot directive (if set), or to the home directory of the user. This facility may also be triggered by enabling the boolean .Sy ftp-chroot in .Xr login.conf 5 . However, the user must still supply a password. This feature is intended as a compromise between a fully anonymous account and a fully privileged account. The account should also be set up as for an anonymous account. .It If the user name is .Dq anonymous or .Dq ftp , an anonymous .Tn FTP account must be present in the password file (user .Dq ftp ) . In this case the user is allowed to log in by specifying any password (by convention an email address for the user should be used as the password). .Pp The server performs a .Xr chroot 2 to the directory specified in the .Xr ftpd.conf 5 .Sy chroot directive (if set), the .Fl a Ar anondir directory (if set), or to the home directory of the .Dq ftp user. .Pp The server then performs a .Xr chdir 2 to the directory specified in the .Xr ftpd.conf 5 .Sy homedir directive (if set), otherwise to .Pa / . .Pp If other restrictions are required (such as disabling of certain commands and the setting of a specific umask), then appropriate entries in .Xr ftpd.conf 5 are required. .Pp If the first character of the password supplied by an anonymous user is .Dq - , then the verbose messages displayed at login and upon a .Sy CWD command are suppressed. .El .Ss Display file escape sequences When .Nm displays various files back to the client (such as .Pa /etc/ftpwelcome and .Pa /etc/motd ) , various escape strings are replaced with information pertinent to the current connection. .Pp The supported escape strings are: .Bl -tag -width "Escape" -offset indent -compact .It Sy "Escape" .Sy Description .It "\&%c" Class name. .It "\&%C" Current working directory. .It "\&%E" Email address given with .Fl e . .It "\&%L" Local hostname. .It "\&%M" Maximum number of users for this class. Displays .Dq unlimited if there's no limit. .It "\&%N" Current number of users for this class. .It "\&%R" Remote hostname. .It "\&%s" If the result of the most recent .Dq "\&%M" or .Dq "\&%N" was not .Dq Li 1 , print an .Dq s . .It "\&%S" If the result of the most recent .Dq "\&%M" or .Dq "\&%N" was not .Dq Li 1 , print an .Dq S . .It "\&%T" Current time. .It "\&%U" User name. .It "\&%\&%" A .Dq \&% character. .El .Ss Setting up a restricted ftp subtree In order that system security is not breached, it is recommended that the subtrees for the .Dq ftp and .Dq chroot accounts be constructed with care, following these rules (replace .Dq ftp in the following directory names with the appropriate account name for .Sq chroot users): .Bl -tag -width "~ftp/incoming" -offset indent .It Pa ~ftp Make the home directory owned by .Dq root and unwritable by anyone. .It Pa ~ftp/bin Make this directory owned by .Dq root and unwritable by anyone (mode 555). Generally any conversion commands should be installed here (mode 111). .It Pa ~ftp/etc Make this directory owned by .Dq root and unwritable by anyone (mode 555). The files .Pa pwd.db (see .Xr passwd 5 ) and .Pa group (see .Xr group 5 ) must be present for the .Sy LIST command to be able to display owner and group names instead of numbers. The password field in .Xr passwd 5 is not used, and should not contain real passwords. The file .Pa motd , if present, will be printed after a successful login. These files should be mode 444. .It Pa ~ftp/pub This directory and the subdirectories beneath it should be owned by the users and groups responsible for placing files in them, and be writable only by them (mode 755 or 775). They should .Em not be owned or writable by ftp or its group. .It Pa ~ftp/incoming This directory is where anonymous users place files they upload. The owners should be the user .Dq ftp and an appropriate group. Members of this group will be the only users with access to these files after they have been uploaded; these should be people who know how to deal with them appropriately. If you wish anonymous .Tn FTP users to be able to see the names of the files in this directory the permissions should be 770, otherwise they should be 370. .Pp The following .Xr ftpd.conf 5 directives should be used: .Dl "modify guest off" .Dl "umask guest 0707" .Dl "upload guest on" .Pp This will result in anonymous users being able to upload files to this directory, but they will not be able to download them, delete them, or overwrite them, due to the umask and disabling of the commands mentioned above. .It Pa ~ftp/tmp This directory is used to create temporary files which contain the error messages generated by a conversion or .Sy LIST command. The owner should be the user .Dq ftp . The permissions should be 300. .Pp If you don't enable conversion commands, or don't want anonymous users uploading files here (see .Pa ~ftp/incoming above), then don't create this directory. However, error messages from conversion or .Sy LIST commands won't be returned to the user. (This is the traditional behaviour.) Note that the .Xr ftpd.conf 5 directive .Sy upload can be used to prevent users uploading here. .El .Pp To set up "ftp-only" accounts that provide only .Tn FTP , but no valid shell login, you can copy/link .Pa /sbin/nologin to .Pa /sbin/ftplogin , and enter .Pa /sbin/ftplogin to .Pa /etc/shells to allow logging-in via .Tn FTP into the accounts, which must have .Pa /sbin/ftplogin as login shell. .Sh FILES .Bl -tag -width /etc/ftpwelcome -compact .It Pa /etc/ftpchroot List of normal users whose root directory should be changed via .Xr chroot 2 . .It Pa /etc/ftpd.conf Configure file conversions and other settings. .It Pa /etc/ftpusers List of unwelcome/restricted users. .It Pa /etc/ftpwelcome Welcome notice before login. .It Pa /etc/motd Welcome notice after login. .It Pa /etc/nologin If it exists, displayed and access is refused. .It Pa /var/run/ftpd.pids-CLASS State file of logged-in processes for the .Nm class .Sq CLASS . .It Pa /var/run/utmp List of logged-in users on the system. .It Pa /var/log/wtmp Login history database. .El .Sh SEE ALSO .Xr ftp 1 , .Xr skey 1 , .Xr who 1 , .Xr getusershell 3 , .Xr ftpchroot 5 , .Xr ftpd.conf 5 , .Xr ftpusers 5 , .Xr login.conf 5 , .Xr syslogd 8 .Sh STANDARDS .Nm recognizes all commands in .Cm RFC 959 , follows the guidelines in .Cm RFC 1123 , recognizes all commands in .Cm RFC 2228 (although they are not supported yet), and supports the extensions from .Cm RFC 2389 , .Cm RFC 2428 , and .Cm RFC 3659 . .Sh HISTORY The .Nm command appeared in .Bx 4.2 . .Pp Various features such as the .Xr ftpd.conf 5 functionality, .Cm RFC 2389 , and .Cm RFC 3659 support was implemented in .Nx 1.3 and later releases by Luke Mewburn. .Sh BUGS The server must run as the super-user to create sockets with privileged port numbers (i.e, those less than .Dv IPPORT_RESERVED , which is 1024). If .Nm is listening on a privileged port it maintains an effective user id of the logged in user, reverting to the super-user only when binding addresses to privileged sockets. The .Fl r option can be used to override this behaviour and force privileges to be permanently revoked; see .Sx SECURITY CONSIDERATIONS below for more details. .Pp .Nm may have trouble handling connections from scoped IPv6 addresses, or IPv4 mapped addresses .Po IPv4 connection on .Dv AF_INET6 socket .Pc . For the latter case, running two daemons, one for IPv4 and one for IPv6, will avoid the problem. .Sh SECURITY CONSIDERATIONS .Cm RFC 959 provides no restrictions on the .Sy PORT command, and this can lead to security problems, as .Nm can be fooled into connecting to any service on any host. With the .Dq checkportcmd feature of the .Xr ftpd.conf 5 , .Sy PORT commands with different host addresses, or TCP ports lower than .Dv IPPORT_RESERVED will be rejected. This also prevents .Sq third-party proxy ftp from working. Use of this option is .Em strongly recommended, and enabled by default. .Pp By default .Nm uses a port that is one less than the port it is listening on to communicate back to the client for the .Sy EPRT , .Sy LPRT , and .Sy PORT commands, unless overridden with .Fl P Ar dataport . As the default port for .Nm (21) is a privileged port below .Dv IPPORT_RESERVED , .Nm retains the ability to switch back to root privileges to bind these ports. In order to increase security by reducing the potential for a bug in .Nm providing a remote root compromise, .Nm will permanently drop root privileges if one of the following is true: .Bl -enum -offset indent .It .Nm is running on a port greater than .Dv IPPORT_RESERVED and the user has logged in as a .Sq guest or .Sq chroot user. .It .Nm was invoked with .Fl r . .El .Pp Don't create .Pa ~ftp/tmp if you don't want anonymous users to upload files there. That directory is only necessary if you want to display the error messages of conversion commands to the user. Note that if uploads are disabled with the .Xr ftpd.conf 5 directive .Sy upload , then this directory cannot be abused by the user in this way, so it should be safe to create. .Pp To avoid possible denial-of-service attacks, .Sy SIZE requests against files larger than 10240 bytes will be denied if the current transfer .Sy TYPE is .Sq Li A (ASCII). src/libexec/ftpd/ftpd.c010064400011300000175000002777301502760732700152770ustar00srcmastrnetbsd/* $NetBSD: ftpd.c,v 1.211 2025/06/27 21:36:23 andvar Exp $ */ /* * Copyright (c) 1997-2023 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Luke Mewburn. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ /* * Copyright (c) 1985, 1988, 1990, 1992, 1993, 1994 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ /* * Copyright (C) 1997 and 1998 WIDE Project. * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the project nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint __COPYRIGHT("@(#) Copyright (c) 1985, 1988, 1990, 1992, 1993, 1994\ The Regents of the University of California. All rights reserved."); #endif /* not lint */ #ifndef lint #if 0 static char sccsid[] = "@(#)ftpd.c 8.5 (Berkeley) 4/28/95"; #else __RCSID("$NetBSD: ftpd.c,v 1.211 2025/06/27 21:36:23 andvar Exp $"); #endif #endif /* not lint */ /* * FTP server. */ #include #include #include #include #include #include #include #include #include #include #define FTP_NAMES #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #ifdef SUPPORT_UTMP #include #endif #ifdef SUPPORT_UTMPX #include #endif #ifdef SKEY #include #endif #ifdef KERBEROS5 #include #include #endif #ifdef LOGIN_CAP #include #endif #ifdef USE_PAM #include #endif #include "pfilter.h" #define GLOBAL #include "extern.h" #include "pathnames.h" #include "version.h" static sig_atomic_t transflag; static sig_atomic_t urgflag; int data; int Dflag; int fflag; int sflag; int stru; /* avoid C keyword */ int mode; int dataport; /* use specific data port */ int dopidfile; /* maintain pid file */ int doutmp; /* update utmp file */ int dowtmp; /* update wtmp file */ int doxferlog; /* syslog/write wu-ftpd style xferlog entries */ int xferlogfd; /* fd to write wu-ftpd xferlog entries to */ int getnameopts; /* flags for use with getname() */ int dropprivs; /* if privileges should or have been dropped */ int mapped; /* IPv4 connection on AF_INET6 socket */ off_t file_size; off_t byte_count; static char ttyline[20]; #ifdef USE_PAM static int auth_pam(void); pam_handle_t *pamh = NULL; #endif #ifdef SUPPORT_UTMP static struct utmp utmp; /* for utmp */ #endif #ifdef SUPPORT_UTMPX static struct utmpx utmpx; /* for utmpx */ #endif static const char *anondir = NULL; static const char *confdir = _DEFAULT_CONFDIR; static char *curname; /* current USER name */ static size_t curname_len; /* length of curname (include NUL) */ #if defined(KERBEROS) || defined(KERBEROS5) int has_ccache = 0; int notickets = 1; char *krbtkfile_env = NULL; char *tty = ttyline; int login_krb5_forwardable_tgt = 0; #endif int epsvall = 0; /* * Timeout intervals for retrying connections * to hosts that don't accept PORT cmds. This * is a kludge, but given the problems with TCP... */ #define SWAITMAX 90 /* wait at most 90 seconds */ #define SWAITINT 5 /* interval between retries */ int swaitmax = SWAITMAX; int swaitint = SWAITINT; enum send_status { SS_SUCCESS, SS_ABORTED, /* transfer aborted */ SS_NO_TRANSFER, /* no transfer made yet */ SS_FILE_ERROR, /* file read error */ SS_DATA_ERROR /* data send error */ }; static int bind_pasv_addr(void); static int checkuser(const char *, const char *, int, int, char **); static int checkaccess(const char *); static int checkpassword(const struct passwd *, const char *); static void do_pass(int, int, const char *); static void end_login(void); static FILE *getdatasock(const char *); static char *gunique(const char *); static void login_utmp(const char *, const char *, const char *, struct sockinet *); static void logremotehost(struct sockinet *); __dead static void lostconn(int); __dead static void toolong(int); __dead static void sigquit(int); static void sigurg(int); static int handleoobcmd(void); static int receive_data(FILE *, FILE *); static int send_data(FILE *, FILE *, const struct stat *, int); static struct passwd *sgetpwnam(const char *); static int write_data(int, char *, size_t, off_t *, struct timeval *, int); static enum send_status send_data_with_read(int, int, const struct stat *, int); static enum send_status send_data_with_mmap(int, int, const struct stat *, int); static void logrusage(const struct rusage *, const struct rusage *); static void logout_utmp(void); int main(int, char *[]); #if defined(KERBEROS) int klogin(struct passwd *, char *, char *, char *); void kdestroy(void); #endif #if defined(KERBEROS5) int k5login(struct passwd *, char *, char *, char *); void k5destroy(void); #endif int main(int argc, char *argv[]) { int ch, on = 1, tos, keepalive; socklen_t addrlen; #ifdef KERBEROS5 krb5_error_code kerror; #endif char *p; const char *xferlogname = NULL; long l; struct sigaction sa; sa_family_t af = AF_UNSPEC; connections = 1; ftpd_debug = 0; logging = 0; pdata = -1; Dflag = 0; fflag = 0; sflag = 0; dataport = 0; dopidfile = 1; /* default: DO use a pid file to count users */ doutmp = 0; /* default: Do NOT log to utmp */ dowtmp = 1; /* default: DO log to wtmp */ doxferlog = 0; /* default: Do NOT syslog xferlog */ xferlogfd = -1; /* default: Do NOT write xferlog file */ getnameopts = 0; /* default: xlate addrs to name */ dropprivs = 0; mapped = 0; usedefault = 1; emailaddr = NULL; hostname[0] = '\0'; homedir[0] = '\0'; gidcount = 0; is_oob = 0; version = FTPD_VERSION; /* * LOG_NDELAY sets up the logging connection immediately, * necessary for anonymous ftp's that chroot and can't do it later. */ openlog("ftpd", LOG_PID | LOG_NDELAY, LOG_FTP); while ((ch = getopt(argc, argv, "46a:c:C:Dde:fh:HlL:nP:qQrst:T:uUvV:wWX")) != -1) { switch (ch) { case '4': af = AF_INET; break; case '6': af = AF_INET6; break; case 'a': anondir = optarg; break; case 'c': confdir = optarg; break; case 'C': if ((p = strchr(optarg, '@')) != NULL) { *p++ = '\0'; strlcpy(remotehost, p, MAXHOSTNAMELEN + 1); if (inet_pton(AF_INET, p, &his_addr.su_addr) == 1) { his_addr.su_family = AF_INET; his_addr.su_len = sizeof(his_addr.si_su.su_sin); #ifdef INET6 } else if (inet_pton(AF_INET6, p, &his_addr.su_6addr) == 1) { his_addr.su_family = AF_INET6; his_addr.su_len = sizeof(his_addr.si_su.su_sin6); #endif } else his_addr.su_family = AF_UNSPEC; } pw = sgetpwnam(optarg); exit(checkaccess(optarg) ? 0 : 1); /* NOTREACHED */ case 'D': Dflag = 1; break; case 'd': case 'v': /* deprecated */ ftpd_debug = 1; break; case 'e': emailaddr = optarg; break; case 'f': fflag = 1; break; case 'h': strlcpy(hostname, optarg, sizeof(hostname)); break; case 'H': if (gethostname(hostname, sizeof(hostname)) == -1) hostname[0] = '\0'; hostname[sizeof(hostname) - 1] = '\0'; break; case 'l': logging++; /* > 1 == extra logging */ break; case 'L': xferlogname = optarg; break; case 'n': getnameopts = NI_NUMERICHOST; break; case 'P': errno = 0; p = NULL; l = strtol(optarg, &p, 10); if (errno || *optarg == '\0' || *p != '\0' || l < IPPORT_RESERVED || l > IPPORT_ANONMAX) { syslog(LOG_WARNING, "Invalid dataport %s", optarg); dataport = 0; } dataport = (int)l; break; case 'q': dopidfile = 1; break; case 'Q': dopidfile = 0; break; case 'r': dropprivs = 1; break; case 's': sflag = 1; break; case 't': case 'T': syslog(LOG_WARNING, "-%c has been deprecated in favour of ftpd.conf", ch); break; case 'u': doutmp = 1; break; case 'U': doutmp = 0; break; case 'V': if (EMPTYSTR(optarg) || strcmp(optarg, "-") == 0) version = NULL; else version = ftpd_strdup(optarg); break; case 'w': dowtmp = 1; break; case 'W': dowtmp = 0; break; case 'X': doxferlog |= 1; break; default: if (optopt == 'a' || optopt == 'C') exit(1); syslog(LOG_WARNING, "unknown flag -%c ignored", optopt); break; } } if (EMPTYSTR(confdir)) confdir = _DEFAULT_CONFDIR; pfilter_open(); if (dowtmp) { #ifdef SUPPORT_UTMPX ftpd_initwtmpx(); #endif #ifdef SUPPORT_UTMP ftpd_initwtmp(); #endif } errno = 0; l = sysconf(_SC_LOGIN_NAME_MAX); if (l == -1 && errno != 0) { syslog(LOG_ERR, "sysconf _SC_LOGIN_NAME_MAX: %m"); exit(1); } else if (l <= 0) { syslog(LOG_WARNING, "using conservative LOGIN_NAME_MAX value"); curname_len = _POSIX_LOGIN_NAME_MAX; } else curname_len = (size_t)l; curname = malloc(curname_len); if (curname == NULL) { syslog(LOG_ERR, "malloc: %m"); exit(1); } curname[0] = '\0'; if (Dflag) { int error, fd, i, n, *socks; struct pollfd *fds; struct addrinfo hints, *res, *res0; if (!fflag && daemon(1, 0) == -1) { syslog(LOG_ERR, "failed to daemonize: %m"); exit(1); } (void)memset(&sa, 0, sizeof(sa)); sa.sa_handler = SIG_IGN; sa.sa_flags = SA_NOCLDWAIT; sigemptyset(&sa.sa_mask); (void)sigaction(SIGCHLD, &sa, NULL); (void)memset(&hints, 0, sizeof(hints)); hints.ai_flags = AI_PASSIVE; hints.ai_family = af; hints.ai_socktype = SOCK_STREAM; error = getaddrinfo(NULL, "ftp", &hints, &res0); if (error) { syslog(LOG_ERR, "getaddrinfo: %s", gai_strerror(error)); exit(1); } for (n = 0, res = res0; res != NULL; res = res->ai_next) n++; if (n == 0) { syslog(LOG_ERR, "no addresses available"); exit(1); } socks = malloc(n * sizeof(int)); fds = malloc(n * sizeof(struct pollfd)); if (socks == NULL || fds == NULL) { syslog(LOG_ERR, "malloc: %m"); exit(1); } for (n = 0, res = res0; res != NULL; res = res->ai_next) { socks[n] = socket(res->ai_family, res->ai_socktype, res->ai_protocol); if (socks[n] == -1) continue; (void)setsockopt(socks[n], SOL_SOCKET, SO_REUSEADDR, &on, sizeof(on)); if (bind(socks[n], res->ai_addr, res->ai_addrlen) == -1) { (void)close(socks[n]); continue; } if (listen(socks[n], 12) == -1) { (void)close(socks[n]); continue; } fds[n].fd = socks[n]; fds[n].events = POLLIN; n++; } if (n == 0) { syslog(LOG_ERR, "%m"); exit(1); } freeaddrinfo(res0); if (pidfile(NULL) == -1) syslog(LOG_ERR, "failed to write a pid file: %m"); for (;;) { if (poll(fds, n, INFTIM) == -1) { if (errno == EINTR) continue; syslog(LOG_ERR, "poll: %m"); exit(1); } for (i = 0; i < n; i++) { if (fds[i].revents & POLLIN) { fd = accept(fds[i].fd, NULL, NULL); if (fd == -1) { syslog(LOG_ERR, "accept: %m"); continue; } switch (fork()) { case -1: syslog(LOG_ERR, "fork: %m"); break; case 0: goto child; /* NOTREACHED */ } (void)close(fd); } } } child: (void)dup2(fd, STDIN_FILENO); (void)dup2(fd, STDOUT_FILENO); (void)dup2(fd, STDERR_FILENO); for (i = 0; i < n; i++) (void)close(socks[i]); } memset((char *)&his_addr, 0, sizeof(his_addr)); addrlen = sizeof(his_addr.si_su); if (getpeername(0, (struct sockaddr *)&his_addr.si_su, &addrlen) < 0) { syslog((errno == ENOTCONN) ? LOG_NOTICE : LOG_ERR, "getpeername (%s): %m",argv[0]); exit(1); } his_addr.su_len = addrlen; memset((char *)&ctrl_addr, 0, sizeof(ctrl_addr)); addrlen = sizeof(ctrl_addr.si_su); if (getsockname(0, (struct sockaddr *)&ctrl_addr, &addrlen) < 0) { syslog(LOG_ERR, "getsockname (%s): %m",argv[0]); exit(1); } ctrl_addr.su_len = addrlen; #ifdef INET6 if (his_addr.su_family == AF_INET6 && IN6_IS_ADDR_V4MAPPED(&his_addr.su_6addr)) { #if 1 /* * IPv4 control connection arrived to AF_INET6 socket. * I hate to do this, but this is the easiest solution. * * The assumption is untrue on SIIT environment. */ struct sockinet tmp_addr; const int off = sizeof(struct in6_addr) - sizeof(struct in_addr); tmp_addr = his_addr; memset(&his_addr, 0, sizeof(his_addr)); his_addr.su_family = AF_INET; his_addr.su_len = sizeof(his_addr.si_su.su_sin); memcpy(&his_addr.su_addr, &tmp_addr.su_6addr.s6_addr[off], sizeof(his_addr.su_addr)); his_addr.su_port = tmp_addr.su_port; tmp_addr = ctrl_addr; memset(&ctrl_addr, 0, sizeof(ctrl_addr)); ctrl_addr.su_family = AF_INET; ctrl_addr.su_len = sizeof(ctrl_addr.si_su.su_sin); memcpy(&ctrl_addr.su_addr, &tmp_addr.su_6addr.s6_addr[off], sizeof(ctrl_addr.su_addr)); ctrl_addr.su_port = tmp_addr.su_port; #else while (fgets(line, sizeof(line), fd) != NULL) { if ((cp = strchr(line, '\n')) != NULL) *cp = '\0'; reply(-530, "%s", line); } (void) fflush(stdout); (void) fclose(fd); reply(530, "Connection from IPv4 mapped address is not supported."); exit(0); #endif mapped = 1; } else #endif /* INET6 */ mapped = 0; #ifdef IP_TOS if (!mapped && his_addr.su_family == AF_INET) { tos = IPTOS_LOWDELAY; if (setsockopt(0, IPPROTO_IP, IP_TOS, (char *)&tos, sizeof(int)) < 0) syslog(LOG_WARNING, "setsockopt (IP_TOS): %m"); } #endif /* if the hostname hasn't been given, attempt to determine it */ if (hostname[0] == '\0') { if (getnameinfo((struct sockaddr *)&ctrl_addr.si_su, ctrl_addr.su_len, hostname, sizeof(hostname), NULL, 0, getnameopts) != 0) (void)gethostname(hostname, sizeof(hostname)); hostname[sizeof(hostname) - 1] = '\0'; } /* set this here so klogin can use it... */ (void)snprintf(ttyline, sizeof(ttyline), "ftp%d", getpid()); (void) freopen(_PATH_DEVNULL, "w", stderr); memset(&sa, 0, sizeof(sa)); sa.sa_handler = SIG_DFL; sa.sa_flags = SA_RESTART; sigemptyset(&sa.sa_mask); (void) sigaction(SIGCHLD, &sa, NULL); sa.sa_handler = sigquit; sa.sa_flags = SA_RESTART; sigfillset(&sa.sa_mask); /* block all sigs in these handlers */ (void) sigaction(SIGHUP, &sa, NULL); (void) sigaction(SIGINT, &sa, NULL); (void) sigaction(SIGQUIT, &sa, NULL); (void) sigaction(SIGTERM, &sa, NULL); sa.sa_handler = lostconn; (void) sigaction(SIGPIPE, &sa, NULL); sa.sa_handler = toolong; (void) sigaction(SIGALRM, &sa, NULL); sa.sa_handler = sigurg; (void) sigaction(SIGURG, &sa, NULL); /* Try to handle urgent data inline */ #ifdef SO_OOBINLINE if (setsockopt(0, SOL_SOCKET, SO_OOBINLINE, (char *)&on, sizeof(on)) < 0) syslog(LOG_WARNING, "setsockopt: %m"); #endif /* Set keepalives on the socket to detect dropped connections. */ #ifdef SO_KEEPALIVE keepalive = 1; if (setsockopt(0, SOL_SOCKET, SO_KEEPALIVE, (char *)&keepalive, sizeof(int)) < 0) syslog(LOG_WARNING, "setsockopt (SO_KEEPALIVE): %m"); #endif #ifdef F_SETOWN if (fcntl(fileno(stdin), F_SETOWN, getpid()) == -1) syslog(LOG_WARNING, "fcntl F_SETOWN: %m"); #endif logremotehost(&his_addr); /* * Set up default state */ data = -1; type = TYPE_A; form = FORM_N; stru = STRU_F; mode = MODE_S; tmpline[0] = '\0'; hasyyerrored = 0; #ifdef KERBEROS5 kerror = krb5_init_context(&kcontext); if (kerror) { syslog(LOG_ERR, "%s when initializing Kerberos context", error_message(kerror)); exit(0); } #endif /* KERBEROS5 */ init_curclass(); curclass.timeout = 300; /* 5 minutes, as per login(1) */ curclass.type = CLASS_REAL; /* If logins are disabled, print out the message. */ if (display_file(_PATH_NOLOGIN, 530)) { reply(530, "System not available."); exit(0); } (void)display_file(conffilename(_NAME_FTPWELCOME), 220); /* reply(220,) must follow */ if (EMPTYSTR(version)) reply(220, "%s FTP server ready.", hostname); else reply(220, "%s FTP server (%s) ready.", hostname, version); if (xferlogname != NULL) { xferlogfd = open(xferlogname, O_WRONLY | O_APPEND | O_CREAT, 0660); if (xferlogfd == -1) syslog(LOG_WARNING, "open xferlog `%s': %m", xferlogname); else doxferlog |= 2; } ftp_loop(); /* NOTREACHED */ } static void lostconn(int signo __unused) { if (ftpd_debug) syslog(LOG_DEBUG, "lost connection"); dologout(1); } static void toolong(int signo __unused) { /* XXXSIGRACE */ reply(421, "Timeout (" LLF " seconds): closing control connection.", (LLT)curclass.timeout); if (logging) syslog(LOG_INFO, "User %s timed out after " LLF " seconds", (pw ? pw->pw_name : "unknown"), (LLT)curclass.timeout); dologout(1); } static void sigquit(int signo) { if (ftpd_debug) syslog(LOG_DEBUG, "got signal %d", signo); dologout(1); } static void sigurg(int signo __unused) { urgflag = 1; } /* * Save the result of a getpwnam. Used for USER command, since * the data returned must not be clobbered by any other command * (e.g., globbing). */ static struct passwd * sgetpwnam(const char *name) { static struct passwd save; struct passwd *p; if ((p = getpwnam(name)) == NULL) return (p); if (save.pw_name) { free((char *)save.pw_name); memset(save.pw_passwd, 0, strlen(save.pw_passwd)); free((char *)save.pw_passwd); free((char *)save.pw_gecos); free((char *)save.pw_dir); free((char *)save.pw_shell); } save = *p; save.pw_name = ftpd_strdup(p->pw_name); save.pw_passwd = ftpd_strdup(p->pw_passwd); save.pw_gecos = ftpd_strdup(p->pw_gecos); save.pw_dir = ftpd_strdup(p->pw_dir); save.pw_shell = ftpd_strdup(p->pw_shell); return (&save); } static int login_attempts; /* number of failed login attempts */ static int askpasswd; /* had USER command, ask for PASSwd */ static int permitted; /* USER permitted */ /* * USER command. * Sets global passwd pointer pw if named account exists and is acceptable; * sets askpasswd if a PASS command is expected. If logged in previously, * need to reset state. If name is "ftp" or "anonymous", the name is not in * _NAME_FTPUSERS, and ftp account exists, set guest and pw, then just return. * If account doesn't exist, ask for passwd anyway. Otherwise, check user * requesting login privileges. Disallow anyone who does not have a standard * shell as returned by getusershell(). Disallow anyone mentioned in the file * _NAME_FTPUSERS to allow people such as root and uucp to be avoided. */ void user(const char *name) { char *class; #ifdef LOGIN_CAP login_cap_t *lc = NULL; #endif #ifdef USE_PAM int e; #endif class = NULL; if (logged_in) { switch (curclass.type) { case CLASS_GUEST: reply(530, "Can't change user from guest login."); return; case CLASS_CHROOT: reply(530, "Can't change user from chroot user."); return; case CLASS_REAL: if (dropprivs) { reply(530, "Can't change user."); return; } end_login(); break; default: abort(); } } #if defined(KERBEROS) kdestroy(); #endif #if defined(KERBEROS5) k5destroy(); #endif curclass.type = CLASS_REAL; askpasswd = 0; permitted = 0; if (strcmp(name, "ftp") == 0 || strcmp(name, "anonymous") == 0) { /* need `pw' setup for checkaccess() and checkuser () */ if ((pw = sgetpwnam("ftp")) == NULL) reply(530, "User %s unknown.", name); else if (! checkaccess("ftp") || ! checkaccess("anonymous")) reply(530, "User %s access denied.", name); else { curclass.type = CLASS_GUEST; askpasswd = 1; reply(331, "Guest login ok, type your name as password."); } if (!askpasswd) { if (logging) syslog(LOG_NOTICE, "ANONYMOUS FTP LOGIN REFUSED FROM %s", remoteloghost); end_login(); goto cleanup_user; } name = "ftp"; } else pw = sgetpwnam(name); strlcpy(curname, name, curname_len); /* check user in /etc/ftpusers, and setup class */ permitted = checkuser(_NAME_FTPUSERS, curname, 1, 0, &class); /* check user in /etc/ftpchroot */ #ifdef LOGIN_CAP lc = login_getpwclass(pw); #endif if (checkuser(_NAME_FTPCHROOT, curname, 0, 0, NULL) #ifdef LOGIN_CAP /* Allow login.conf configuration as well */ || login_getcapbool(lc, "ftp-chroot", 0) #endif ) { if (curclass.type == CLASS_GUEST) { syslog(LOG_NOTICE, "Can't change guest user to chroot class; remove entry in %s", _NAME_FTPCHROOT); exit(1); } curclass.type = CLASS_CHROOT; } /* determine default class */ if (class == NULL) { switch (curclass.type) { case CLASS_GUEST: class = ftpd_strdup("guest"); break; case CLASS_CHROOT: class = ftpd_strdup("chroot"); break; case CLASS_REAL: class = ftpd_strdup("real"); break; default: syslog(LOG_ERR, "unknown curclass.type %d; aborting", curclass.type); abort(); } } /* parse ftpd.conf, setting up various parameters */ parse_conf(class); /* if not guest user, check for valid shell */ if (pw == NULL) permitted = 0; else { const char *cp, *shell; if ((shell = pw->pw_shell) == NULL || *shell == 0) shell = _PATH_BSHELL; while ((cp = getusershell()) != NULL) if (strcmp(cp, shell) == 0) break; endusershell(); if (cp == NULL && curclass.type != CLASS_GUEST) permitted = 0; } /* deny quickly (after USER not PASS) if requested */ if (CURCLASS_FLAGS_ISSET(denyquick) && !permitted) { reply(530, "User %s may not use FTP.", curname); if (logging) syslog(LOG_NOTICE, "FTP LOGIN REFUSED FROM %s, %s", remoteloghost, curname); end_login(); goto cleanup_user; } /* if haven't asked yet (i.e, not anon), ask now */ if (!askpasswd) { askpasswd = 1; #ifdef USE_PAM e = auth_pam(); /* this does reply(331, ...) */ do_pass(1, e, ""); goto cleanup_user; #else /* !USE_PAM */ #ifdef SKEY if (skey_haskey(curname) == 0) { const char *myskey; myskey = skey_keyinfo(curname); reply(331, "Password [ %s ] required for %s.", myskey ? myskey : "error getting challenge", curname); } else #endif reply(331, "Password required for %s.", curname); #endif /* !USE_PAM */ } cleanup_user: #ifdef LOGIN_CAP login_close(lc); #endif /* * Delay before reading passwd after first failed * attempt to slow down passwd-guessing programs. */ if (login_attempts) sleep((unsigned) login_attempts); if (class) free(class); } /* * Determine whether something is to happen (allow access, chroot) * for a user. Each line is a shell-style glob followed by * `yes' or `no'. * * For backward compatibility, `allow' and `deny' are synonymns * for `yes' and `no', respectively. * * Each glob is matched against the username in turn, and the first * match found is used. If no match is found, the result is the * argument `def'. If a match is found but without and explicit * `yes'/`no', the result is the opposite of def. * * If the file doesn't exist at all, the result is the argument * `nofile' * * Any line starting with `#' is considered a comment and ignored. * * Returns 0 if the user is denied, or 1 if they are allowed. * * NOTE: needs struct passwd *pw setup before use. */ static int checkuser(const char *fname, const char *name, int def, int nofile, char **retclass) { FILE *fd; int retval; char *word, *perm, *class, *buf, *p; size_t len, line; retval = def; if (retclass != NULL) *retclass = NULL; if ((fd = fopen(conffilename(fname), "r")) == NULL) return nofile; line = 0; for (; (buf = fparseln(fd, &len, &line, NULL, FPARSELN_UNESCCOMM | FPARSELN_UNESCCONT | FPARSELN_UNESCESC)) != NULL; free(buf), buf = NULL) { word = perm = class = NULL; p = buf; if (len < 1) continue; if (p[len - 1] == '\n') p[--len] = '\0'; if (EMPTYSTR(p)) continue; NEXTWORD(p, word); NEXTWORD(p, perm); NEXTWORD(p, class); if (EMPTYSTR(word)) continue; if (!EMPTYSTR(class)) { if (strcasecmp(class, "all") == 0 || strcasecmp(class, "none") == 0) { syslog(LOG_WARNING, "%s line %d: illegal user-defined class `%s' - skipping entry", fname, (int)line, class); continue; } } /* have a host specifier */ if ((p = strchr(word, '@')) != NULL) { unsigned char net[16], mask[16], *addr; int addrlen, bits, bytes, a; *p++ = '\0'; /* check against network or CIDR */ memset(net, 0x00, sizeof(net)); if ((bits = inet_net_pton(his_addr.su_family, p, net, sizeof(net))) != -1) { #ifdef INET6 if (his_addr.su_family == AF_INET) { #endif addrlen = 4; addr = (unsigned char *)&his_addr.su_addr; #ifdef INET6 } else { addrlen = 16; addr = (unsigned char *)&his_addr.su_6addr; } #endif bytes = bits / 8; bits = bits % 8; if (bytes > 0) memset(mask, 0xFF, bytes); if (bytes < addrlen) mask[bytes] = 0xFF << (8 - bits); if (bytes + 1 < addrlen) memset(mask + bytes + 1, 0x00, addrlen - bytes - 1); for (a = 0; a < addrlen; a++) if ((addr[a] & mask[a]) != net[a]) break; if (a < addrlen) continue; /* check against hostname glob */ } else if (fnmatch(p, remotehost, FNM_CASEFOLD) != 0) continue; } /* have a group specifier */ if ((p = strchr(word, ':')) != NULL) { gid_t *groups, *ng; int gsize, i, found; if (pw == NULL) continue; /* no match for unknown user */ *p++ = '\0'; groups = NULL; gsize = 16; do { ng = realloc(groups, gsize * sizeof(gid_t)); if (ng == NULL) fatal( "Local resource failure: realloc"); groups = ng; } while (getgrouplist(pw->pw_name, pw->pw_gid, groups, &gsize) == -1); found = 0; for (i = 0; i < gsize; i++) { struct group *g; if ((g = getgrgid(groups[i])) == NULL) continue; if (fnmatch(p, g->gr_name, 0) == 0) { found = 1; break; } } free(groups); if (!found) continue; } /* check against username glob */ if (fnmatch(word, name, 0) != 0) continue; if (perm != NULL && ((strcasecmp(perm, "allow") == 0) || (strcasecmp(perm, "yes") == 0))) retval = 1; else if (perm != NULL && ((strcasecmp(perm, "deny") == 0) || (strcasecmp(perm, "no") == 0))) retval = 0; else retval = !def; if (!EMPTYSTR(class) && retclass != NULL) *retclass = ftpd_strdup(class); free(buf); break; } (void) fclose(fd); return (retval); } /* * Check if user is allowed by /etc/ftpusers * returns 1 for yes, 0 for no * * NOTE: needs struct passwd *pw setup (for checkuser()) */ static int checkaccess(const char *name) { return (checkuser(_NAME_FTPUSERS, name, 1, 0, NULL)); } static void login_utmp(const char *line, const char *name, const char *host, struct sockinet *haddr) { #if defined(SUPPORT_UTMPX) || defined(SUPPORT_UTMP) struct timeval tv; (void)gettimeofday(&tv, NULL); #endif #ifdef SUPPORT_UTMPX if (doutmp) { (void)memset(&utmpx, 0, sizeof(utmpx)); utmpx.ut_tv = tv; utmpx.ut_pid = getpid(); utmpx.ut_id[0] = 'f'; utmpx.ut_id[1] = 't'; utmpx.ut_id[2] = 'p'; utmpx.ut_id[3] = '*'; utmpx.ut_type = USER_PROCESS; (void)strncpy(utmpx.ut_name, name, sizeof(utmpx.ut_name)); (void)strncpy(utmpx.ut_line, line, sizeof(utmpx.ut_line)); (void)strncpy(utmpx.ut_host, host, sizeof(utmpx.ut_host)); (void)memcpy(&utmpx.ut_ss, &haddr->si_su, haddr->su_len); ftpd_loginx(&utmpx); } if (dowtmp) ftpd_logwtmpx(line, name, host, haddr, 0, USER_PROCESS); #endif #ifdef SUPPORT_UTMP if (doutmp) { (void)memset(&utmp, 0, sizeof(utmp)); (void)time(&utmp.ut_time); (void)strncpy(utmp.ut_name, name, sizeof(utmp.ut_name)); (void)strncpy(utmp.ut_line, line, sizeof(utmp.ut_line)); (void)strncpy(utmp.ut_host, host, sizeof(utmp.ut_host)); ftpd_login(&utmp); } if (dowtmp) ftpd_logwtmp(line, name, host); #endif } static void logout_utmp(void) { #ifdef SUPPORT_UTMPX int okwtmpx = dowtmp; #endif #ifdef SUPPORT_UTMP int okwtmp = dowtmp; #endif if (logged_in) { #ifdef SUPPORT_UTMPX if (doutmp) okwtmpx &= ftpd_logoutx(ttyline, 0, DEAD_PROCESS); if (okwtmpx) ftpd_logwtmpx(ttyline, "", "", NULL, 0, DEAD_PROCESS); #endif #ifdef SUPPORT_UTMP if (doutmp) okwtmp &= ftpd_logout(ttyline); if (okwtmp) ftpd_logwtmp(ttyline, "", ""); #endif } } /* * Terminate login as previous user (if any), resetting state; * used when USER command is given or login fails. */ static void end_login(void) { #ifdef USE_PAM int e; #endif logout_utmp(); show_chdir_messages(-1); /* flush chdir cache */ if (pw != NULL && pw->pw_passwd != NULL) memset(pw->pw_passwd, 0, strlen(pw->pw_passwd)); pw = NULL; logged_in = 0; askpasswd = 0; permitted = 0; quietmessages = 0; gidcount = 0; curclass.type = CLASS_REAL; if (!dropprivs) { if (seteuid((uid_t)0) < 0) { syslog(LOG_NOTICE, "end_login: can't seteuid 0: %m"); fatal("Can't reset privileges."); } } #ifdef LOGIN_CAP setusercontext(NULL, getpwuid(0), 0, LOGIN_SETPRIORITY|LOGIN_SETRESOURCES|LOGIN_SETUMASK); #endif #ifdef USE_PAM if (pamh) { if ((e = pam_setcred(pamh, PAM_DELETE_CRED)) != PAM_SUCCESS) syslog(LOG_ERR, "pam_setcred: %s", pam_strerror(pamh, e)); if ((e = pam_close_session(pamh,0)) != PAM_SUCCESS) syslog(LOG_ERR, "pam_close_session: %s", pam_strerror(pamh, e)); if ((e = pam_end(pamh, e)) != PAM_SUCCESS) syslog(LOG_ERR, "pam_end: %s", pam_strerror(pamh, e)); pamh = NULL; } #endif } void pass(const char *passwd) { do_pass(0, 0, passwd); } /* * Perform the passwd confirmation and login. * * If pass_checked is zero, confirm passwd is correct, & ignore pass_rval. * This is the traditional PASS implementation. * * If pass_checked is non-zero, use pass_rval and ignore passwd. * This is used by auth_pam() which has already parsed PASS. * This only applies to curclass.type != CLASS_GUEST. */ static void do_pass(int pass_checked, int pass_rval, const char *passwd) { int rval; char root[MAXPATHLEN]; #ifdef LOGIN_CAP login_cap_t *lc = NULL; #endif #ifdef USE_PAM int e; #endif rval = 1; if (logged_in || askpasswd == 0) { reply(503, "Login with USER first."); return; } askpasswd = 0; if (curclass.type != CLASS_GUEST) { /* "ftp" is the only account allowed with no password */ if (pw == NULL) { rval = 1; /* failure below */ goto skip; } if (pass_checked) { /* password validated in user() */ rval = pass_rval; goto skip; } #ifdef USE_PAM syslog(LOG_ERR, "do_pass: USE_PAM shouldn't get here"); rval = 1; goto skip; #endif #if defined(KERBEROS) if (klogin(pw, "", hostname, (char *)passwd) == 0) { rval = 0; goto skip; } #endif #if defined(KERBEROS5) if (k5login(pw, "", hostname, (char *)passwd) == 0) { rval = 0; goto skip; } #endif #ifdef SKEY if (skey_haskey(pw->pw_name) == 0) { char *p; int r; p = ftpd_strdup(passwd); r = skey_passcheck(pw->pw_name, p); free(p); if (r != -1) { rval = 0; goto skip; } } #endif if (!sflag) rval = checkpassword(pw, passwd); else rval = 1; skip: /* * If rval > 0, the user failed the authentication check * above. If rval == 0, either Kerberos or local * authentication succeeded. */ if (rval) { reply(530, "%s", rval == 2 ? "Password expired." : "Login incorrect."); pfilter_notify(1, rval == 2 ? "exppass" : "badpass"); if (logging) { syslog(LOG_NOTICE, "FTP LOGIN FAILED FROM %s", remoteloghost); syslog(LOG_AUTHPRIV | LOG_NOTICE, "FTP LOGIN FAILED FROM %s, %s", remoteloghost, curname); } pw = NULL; if (login_attempts++ >= 5) { syslog(LOG_NOTICE, "repeated login failures from %s", remoteloghost); exit(0); } return; } else pfilter_notify(0, "success"); } /* password ok; check if anything else prevents login */ if (! permitted) { reply(530, "User %s may not use FTP.", pw->pw_name); if (logging) syslog(LOG_NOTICE, "FTP LOGIN REFUSED FROM %s, %s", remoteloghost, pw->pw_name); goto bad; } login_attempts = 0; /* this time successful */ if (setegid((gid_t)pw->pw_gid) < 0) { syslog(LOG_NOTICE, "user %s: can't setegid: %m", pw->pw_name); fatal("Can't drop privileges."); } #ifdef LOGIN_CAP if ((lc = login_getpwclass(pw)) != NULL) { #ifdef notyet char remote_ip[NI_MAXHOST]; if (getnameinfo((struct sockaddr *)&his_addr, his_addr.su_len, remote_ip, sizeof(remote_ip) - 1, NULL, 0, NI_NUMERICHOST)) *remote_ip = 0; remote_ip[sizeof(remote_ip) - 1] = 0; if (!auth_hostok(lc, remotehost, remote_ip)) { pfilter_notify(1, "bannedhost"); syslog(LOG_INFO|LOG_AUTH, "FTP LOGIN FAILED (HOST) as %s: permission denied.", pw->pw_name); reply(530, "Permission denied."); pw = NULL; return; } if (!auth_timeok(lc, time(NULL))) { reply(530, "Login not available right now."); pw = NULL; return; } #endif } setsid(); setusercontext(lc, pw, 0, LOGIN_SETLOGIN|LOGIN_SETGROUP|LOGIN_SETPRIORITY| LOGIN_SETRESOURCES|LOGIN_SETUMASK); #else (void) initgroups(pw->pw_name, pw->pw_gid); /* cache groups for cmds.c::matchgroup() */ #endif #ifdef USE_PAM if (pamh) { if ((e = pam_open_session(pamh, 0)) != PAM_SUCCESS) { syslog(LOG_ERR, "pam_open_session: %s", pam_strerror(pamh, e)); } else if ((e = pam_setcred(pamh, PAM_ESTABLISH_CRED)) != PAM_SUCCESS) { syslog(LOG_ERR, "pam_setcred: %s", pam_strerror(pamh, e)); } } #endif gidcount = getgroups(0, NULL); if (gidlist) free(gidlist); gidlist = malloc(gidcount * sizeof *gidlist); gidcount = getgroups(gidcount, gidlist); /* open utmp/wtmp before chroot */ login_utmp(ttyline, pw->pw_name, remotehost, &his_addr); logged_in = 1; connections = 1; if (dopidfile) count_users(); if (curclass.limit != -1 && connections > curclass.limit) { if (! EMPTYSTR(curclass.limitfile)) (void)display_file(conffilename(curclass.limitfile), 530); reply(530, "User %s access denied, connection limit of " LLF " reached.", pw->pw_name, (LLT)curclass.limit); syslog(LOG_NOTICE, "Maximum connection limit of " LLF " for class %s reached, login refused for %s", (LLT)curclass.limit, curclass.classname, pw->pw_name); goto bad; } homedir[0] = '/'; switch (curclass.type) { case CLASS_GUEST: /* * We MUST do a chdir() after the chroot. Otherwise * the old current directory will be accessible as "." * outside the new root! */ format_path(root, curclass.chroot ? curclass.chroot : anondir ? anondir : pw->pw_dir); format_path(homedir, curclass.homedir ? curclass.homedir : "/"); if (EMPTYSTR(homedir)) homedir[0] = '/'; if (EMPTYSTR(root) || chroot(root) < 0) { syslog(LOG_NOTICE, "GUEST user %s: can't chroot to %s: %m", pw->pw_name, root); goto bad_guest; } if (chdir(homedir) < 0) { syslog(LOG_NOTICE, "GUEST user %s: can't chdir to %s: %m", pw->pw_name, homedir); bad_guest: fatal("Can't set guest privileges."); } break; case CLASS_CHROOT: format_path(root, curclass.chroot ? curclass.chroot : pw->pw_dir); format_path(homedir, curclass.homedir ? curclass.homedir : "/"); if (EMPTYSTR(homedir)) homedir[0] = '/'; if (EMPTYSTR(root) || chroot(root) < 0) { syslog(LOG_NOTICE, "CHROOT user %s: can't chroot to %s: %m", pw->pw_name, root); goto bad_chroot; } if (chdir(homedir) < 0) { syslog(LOG_NOTICE, "CHROOT user %s: can't chdir to %s: %m", pw->pw_name, homedir); bad_chroot: fatal("Can't change root."); } break; case CLASS_REAL: /* only chroot REAL if explicitly requested */ if (! EMPTYSTR(curclass.chroot)) { format_path(root, curclass.chroot); if (EMPTYSTR(root) || chroot(root) < 0) { syslog(LOG_NOTICE, "REAL user %s: can't chroot to %s: %m", pw->pw_name, root); goto bad_chroot; } } format_path(homedir, curclass.homedir ? curclass.homedir : pw->pw_dir); if (EMPTYSTR(homedir) || chdir(homedir) < 0) { if (chdir("/") < 0) { syslog(LOG_NOTICE, "REAL user %s: can't chdir to %s: %m", pw->pw_name, !EMPTYSTR(homedir) ? homedir : "/"); reply(530, "User %s: can't change directory to %s.", pw->pw_name, !EMPTYSTR(homedir) ? homedir : "/"); goto bad; } else { reply(-230, "No directory! Logging in with home=/"); homedir[0] = '/'; } } break; } #ifndef LOGIN_CAP setsid(); setlogin(pw->pw_name); #endif if (dropprivs || (curclass.type != CLASS_REAL && ntohs(ctrl_addr.su_port) > IPPORT_RESERVED + 1)) { dropprivs++; if (setgid((gid_t)pw->pw_gid) < 0) { syslog(LOG_NOTICE, "user %s: can't setgid: %m", pw->pw_name); fatal("Can't drop privileges."); } if (setuid((uid_t)pw->pw_uid) < 0) { syslog(LOG_NOTICE, "user %s: can't setuid: %m", pw->pw_name); fatal("Can't drop privileges."); } } else { if (seteuid((uid_t)pw->pw_uid) < 0) { syslog(LOG_NOTICE, "user %s: can't seteuid: %m", pw->pw_name); fatal("Can't drop privileges."); } } setenv("HOME", homedir, 1); if (curclass.type == CLASS_GUEST && passwd[0] == '-') quietmessages = 1; /* * Display a login message, if it exists. * N.B. reply(230,) must follow the message. */ if (! EMPTYSTR(curclass.motd)) (void)display_file(conffilename(curclass.motd), 230); show_chdir_messages(230); if (curclass.type == CLASS_GUEST) { char *p; reply(230, "Guest login ok, access restrictions apply."); #if defined(HAVE_SETPROCTITLE) snprintf(proctitle, sizeof(proctitle), "%s: anonymous/%s", remotehost, passwd); setproctitle("%s", proctitle); #endif /* defined(HAVE_SETPROCTITLE) */ if (logging) syslog(LOG_INFO, "ANONYMOUS FTP LOGIN FROM %s, %s (class: %s, type: %s)", remoteloghost, passwd, curclass.classname, CURCLASSTYPE); /* store guest password reply into pw_passwd */ REASSIGN(pw->pw_passwd, ftpd_strdup(passwd)); for (p = pw->pw_passwd; *p; p++) if (!isgraph((unsigned char)*p)) *p = '_'; } else { reply(230, "User %s logged in.", pw->pw_name); #if defined(HAVE_SETPROCTITLE) snprintf(proctitle, sizeof(proctitle), "%s: %s", remotehost, pw->pw_name); setproctitle("%s", proctitle); #endif /* defined(HAVE_SETPROCTITLE) */ if (logging) syslog(LOG_INFO, "FTP LOGIN FROM %s as %s (class: %s, type: %s)", remoteloghost, pw->pw_name, curclass.classname, CURCLASSTYPE); } (void) umask(curclass.umask); #ifdef LOGIN_CAP login_close(lc); #endif return; bad: #ifdef LOGIN_CAP login_close(lc); #endif /* Forget all about it... */ end_login(); } void retrieve(const char *argv[], const char *name) { FILE *fin, *dout; struct stat st; int (*closefunc)(FILE *) = NULL; int dolog, sendrv, closerv, stderrfd, isconversion, isdata, isls; struct timeval start, finish, td, *tdp; struct rusage rusage_before, rusage_after; const char *dispname; const char *error; sendrv = closerv = stderrfd = -1; isconversion = isdata = isls = dolog = 0; tdp = NULL; dispname = name; fin = dout = NULL; error = NULL; if (argv == NULL) { /* if not running a command ... */ dolog = 1; isdata = 1; fin = fopen(name, "r"); closefunc = fclose; if (fin == NULL) /* doesn't exist?; try a conversion */ argv = do_conversion(name); if (argv != NULL) { isconversion++; syslog(LOG_DEBUG, "get command: '%s' on '%s'", argv[0], name); } } if (argv != NULL) { char temp[MAXPATHLEN]; if (strcmp(argv[0], INTERNAL_LS) == 0) { isls = 1; stderrfd = -1; } else { (void)snprintf(temp, sizeof(temp), "%s", TMPFILE); stderrfd = mkstemp(temp); if (stderrfd != -1) (void)unlink(temp); } dispname = argv[0]; fin = ftpd_popen(argv, "r", stderrfd); closefunc = ftpd_pclose; st.st_size = -1; st.st_blksize = BUFSIZ; } if (fin == NULL) { if (errno != 0) { perror_reply(550, dispname); if (dolog) logxfer("get", -1, name, NULL, NULL, strerror(errno)); } goto cleanupretrieve; } byte_count = -1; if (argv == NULL && (fstat(fileno(fin), &st) < 0 || !S_ISREG(st.st_mode))) { error = "Not a plain file"; reply(550, "%s: %s.", dispname, error); goto done; } if (restart_point) { if (type == TYPE_A) { off_t i; int c; for (i = 0; i < restart_point; i++) { if ((c=getc(fin)) == EOF) { error = strerror(errno); perror_reply(550, dispname); goto done; } if (c == '\n') i++; } } else if (lseek(fileno(fin), restart_point, SEEK_SET) < 0) { error = strerror(errno); perror_reply(550, dispname); goto done; } } dout = dataconn(dispname, st.st_size, "w"); if (dout == NULL) goto done; (void)getrusage(RUSAGE_SELF, &rusage_before); (void)gettimeofday(&start, NULL); sendrv = send_data(fin, dout, &st, isdata); (void)gettimeofday(&finish, NULL); (void)getrusage(RUSAGE_SELF, &rusage_after); closedataconn(dout); /* close now to affect timing stats */ timersub(&finish, &start, &td); tdp = &td; done: if (dolog) { logxfer("get", byte_count, name, NULL, tdp, error); if (tdp != NULL) logrusage(&rusage_before, &rusage_after); } closerv = (*closefunc)(fin); if (sendrv == 0) { FILE *errf; struct stat sb; if (!isls && argv != NULL && closerv != 0) { reply(-226, "Command returned an exit status of %d", closerv); if (isconversion) syslog(LOG_WARNING, "retrieve command: '%s' returned %d", argv[0], closerv); } if (!isls && argv != NULL && stderrfd != -1 && (fstat(stderrfd, &sb) == 0) && sb.st_size > 0 && ((errf = fdopen(stderrfd, "r")) != NULL)) { char *cp, line[LINE_MAX]; reply(-226, "Command error messages:"); rewind(errf); while (fgets(line, sizeof(line), errf) != NULL) { if ((cp = strchr(line, '\n')) != NULL) *cp = '\0'; reply(0, " %s", line); } (void) fflush(stdout); (void) fclose(errf); /* a reply(226,) must follow */ } reply(226, "Transfer complete."); } cleanupretrieve: if (stderrfd != -1) (void)close(stderrfd); if (isconversion) free(argv); } void store(const char *name, const char *fmode, int unique) { FILE *fout, *din; struct stat st; int (*closefunc)(FILE *); struct timeval start, finish, td, *tdp; const char *desc, *error; din = NULL; desc = (*fmode == 'w') ? "put" : "append"; error = NULL; if (unique && stat(name, &st) == 0 && (name = gunique(name)) == NULL) { logxfer(desc, -1, name, NULL, NULL, "cannot create unique file"); goto cleanupstore; } if (restart_point) fmode = "r+"; fout = fopen(name, fmode); closefunc = fclose; tdp = NULL; if (fout == NULL) { perror_reply(553, name); logxfer(desc, -1, name, NULL, NULL, strerror(errno)); goto cleanupstore; } byte_count = -1; if (restart_point) { if (type == TYPE_A) { off_t i; int c; for (i = 0; i < restart_point; i++) { if ((c=getc(fout)) == EOF) { error = strerror(errno); perror_reply(550, name); goto done; } if (c == '\n') i++; } /* * We must do this seek to "current" position * because we are changing from reading to * writing. */ if (fseek(fout, 0L, SEEK_CUR) < 0) { error = strerror(errno); perror_reply(550, name); goto done; } } else if (lseek(fileno(fout), restart_point, SEEK_SET) < 0) { error = strerror(errno); perror_reply(550, name); goto done; } } din = dataconn(name, (off_t)-1, "r"); if (din == NULL) goto done; (void)gettimeofday(&start, NULL); if (receive_data(din, fout) == 0) { if (unique) reply(226, "Transfer complete (unique file name:%s).", name); else reply(226, "Transfer complete."); } (void)gettimeofday(&finish, NULL); closedataconn(din); /* close now to affect timing stats */ timersub(&finish, &start, &td); tdp = &td; done: logxfer(desc, byte_count, name, NULL, tdp, error); (*closefunc)(fout); cleanupstore: ; } static FILE * getdatasock(const char *fmode) { int on, s, t, tries; in_port_t port; on = 1; if (data >= 0) return (fdopen(data, fmode)); if (! dropprivs) { if (seteuid((uid_t)0) < 0) { syslog(LOG_NOTICE, "getdatasock: can't seteuid 0: %m"); fatal("Can't reset privileges."); } } s = socket(ctrl_addr.su_family, SOCK_STREAM, 0); if (s < 0) goto bad; if (setsockopt(s, SOL_SOCKET, SO_REUSEADDR, (char *) &on, sizeof(on)) < 0) goto bad; if (setsockopt(s, SOL_SOCKET, SO_KEEPALIVE, (char *) &on, sizeof(on)) < 0) goto bad; /* anchor socket to avoid multi-homing problems */ data_source = ctrl_addr; /* * By default source port for PORT connections is * ctrlport-1 (see RFC959 section 5.2). * However, if privs have been dropped and that * would be < IPPORT_RESERVED, use a random port * instead. */ if (dataport) port = dataport; else port = ntohs(ctrl_addr.su_port) - 1; if (dropprivs && port < IPPORT_RESERVED) port = 0; /* use random port */ data_source.su_port = htons(port); for (tries = 1; ; tries++) { if (bind(s, (struct sockaddr *)&data_source.si_su, data_source.su_len) >= 0) break; if (errno != EADDRINUSE || tries > 10) goto bad; sleep(tries); } if (! dropprivs) { if (seteuid((uid_t)pw->pw_uid) < 0) { syslog(LOG_NOTICE, "user %s: can't seteuid: %m", pw->pw_name); fatal("Can't drop privileges."); } } #ifdef IP_TOS if (!mapped && ctrl_addr.su_family == AF_INET) { on = IPTOS_THROUGHPUT; if (setsockopt(s, IPPROTO_IP, IP_TOS, (char *)&on, sizeof(int)) < 0) syslog(LOG_WARNING, "setsockopt (IP_TOS): %m"); } #endif return (fdopen(s, fmode)); bad: /* Return the real value of errno (close may change it) */ t = errno; if (! dropprivs) { if (seteuid((uid_t)pw->pw_uid) < 0) { syslog(LOG_NOTICE, "user %s: can't seteuid: %m", pw->pw_name); fatal("Can't drop privileges."); } } if (s >= 0) (void) close(s); errno = t; return (NULL); } FILE * dataconn(const char *name, off_t size, const char *fmode) { char sizebuf[32]; FILE *file; int retry, tos, keepalive, conerrno; file_size = size; byte_count = 0; if (size != (off_t) -1) (void)snprintf(sizebuf, sizeof(sizebuf), " (" LLF " byte%s)", (LLT)size, PLURAL(size)); else sizebuf[0] = '\0'; if (pdata >= 0) { struct sockinet from; int s; socklen_t fromlen = sizeof(from.su_len); (void) alarm(curclass.timeout); s = accept(pdata, (struct sockaddr *)&from.si_su, &fromlen); (void) alarm(0); if (s < 0) { reply(425, "Can't open data connection."); (void) close(pdata); pdata = -1; return (NULL); } (void) close(pdata); pdata = s; switch (from.su_family) { case AF_INET: #ifdef IP_TOS if (!mapped) { tos = IPTOS_THROUGHPUT; (void) setsockopt(s, IPPROTO_IP, IP_TOS, (char *)&tos, sizeof(int)); } break; #endif } /* Set keepalives on the socket to detect dropped conns. */ #ifdef SO_KEEPALIVE keepalive = 1; (void) setsockopt(s, SOL_SOCKET, SO_KEEPALIVE, (char *)&keepalive, sizeof(int)); #endif reply(150, "Opening %s mode data connection for '%s'%s.", type == TYPE_A ? "ASCII" : "BINARY", name, sizebuf); return (fdopen(pdata, fmode)); } if (data >= 0) { reply(125, "Using existing data connection for '%s'%s.", name, sizebuf); usedefault = 1; return (fdopen(data, fmode)); } if (usedefault) data_dest = his_addr; usedefault = 1; retry = conerrno = 0; do { file = getdatasock(fmode); if (file == NULL) { char hbuf[NI_MAXHOST]; char pbuf[NI_MAXSERV]; conerrno = errno; if (getnameinfo((struct sockaddr *)&data_source.si_su, data_source.su_len, hbuf, sizeof(hbuf), pbuf, sizeof(pbuf), NI_NUMERICHOST | NI_NUMERICSERV)) strlcpy(hbuf, "?", sizeof(hbuf)); reply(425, "Can't create data socket (%s,%s): %s.", hbuf, pbuf, strerror(conerrno)); return (NULL); } data = fileno(file); conerrno = 0; if (connect(data, (struct sockaddr *)&data_dest.si_su, data_dest.su_len) == 0) break; conerrno = errno; (void) fclose(file); file = NULL; data = -1; if (conerrno == EADDRINUSE) { sleep((unsigned) swaitint); retry += swaitint; } else { break; } } while (retry <= swaitmax); if (conerrno != 0) { perror_reply(425, "Can't build data connection"); return (NULL); } reply(150, "Opening %s mode data connection for '%s'%s.", type == TYPE_A ? "ASCII" : "BINARY", name, sizebuf); return (file); } void closedataconn(FILE *fd) { if (fd == NULL) return; (void)fclose(fd); data = -1; if (pdata >= 0) (void)close(pdata); pdata = -1; } int write_data(int fd, char *buf, size_t size, off_t *bufrem, struct timeval *then, int isdata) { struct timeval now, td; ssize_t c; while (size > 0) { c = size; if (curclass.writesize) { if (curclass.writesize < c) c = curclass.writesize; } if (curclass.rateget) { if (*bufrem < c) c = *bufrem; } (void) alarm(curclass.timeout); c = write(fd, buf, c); if (c <= 0) return (1); buf += c; size -= c; byte_count += c; if (isdata) { total_data_out += c; total_data += c; } total_bytes_out += c; total_bytes += c; if (curclass.rateget) { *bufrem -= c; if (*bufrem == 0) { (void)gettimeofday(&now, NULL); timersub(&now, then, &td); if (td.tv_sec == 0) { usleep(1000000 - td.tv_usec); (void)gettimeofday(then, NULL); } else *then = now; *bufrem = curclass.rateget; } } } return (0); } static enum send_status send_data_with_read(int filefd, int netfd, const struct stat *st, int isdata) { struct timeval then; off_t bufrem; ssize_t readsize; char *buf; int c, error; if (curclass.readsize > 0) readsize = curclass.readsize; else readsize = st->st_blksize; if ((buf = malloc(readsize)) == NULL) { perror_reply(451, "Local resource failure: malloc"); return (SS_NO_TRANSFER); } if (curclass.rateget) { bufrem = curclass.rateget; (void)gettimeofday(&then, NULL); } else bufrem = readsize; for (;;) { (void) alarm(curclass.timeout); c = read(filefd, buf, readsize); if (c == 0) error = SS_SUCCESS; else if (c < 0) error = SS_FILE_ERROR; else if (write_data(netfd, buf, c, &bufrem, &then, isdata)) error = SS_DATA_ERROR; else if (urgflag && handleoobcmd()) error = SS_ABORTED; else continue; free(buf); return (error); } } static enum send_status send_data_with_mmap(int filefd, int netfd, const struct stat *st, int isdata) { struct timeval then; off_t bufrem, filesize, off, origoff; ssize_t mapsize, winsize; int error, sendbufsize, sendlowat; void *win; bufrem = 0; if (curclass.sendbufsize) { sendbufsize = curclass.sendbufsize; if (setsockopt(netfd, SOL_SOCKET, SO_SNDBUF, &sendbufsize, sizeof(int)) == -1) syslog(LOG_WARNING, "setsockopt(SO_SNDBUF, %d): %m", sendbufsize); } if (curclass.sendlowat) { sendlowat = curclass.sendlowat; if (setsockopt(netfd, SOL_SOCKET, SO_SNDLOWAT, &sendlowat, sizeof(int)) == -1) syslog(LOG_WARNING, "setsockopt(SO_SNDLOWAT, %d): %m", sendlowat); } winsize = curclass.mmapsize; filesize = st->st_size; if (ftpd_debug) syslog(LOG_INFO, "mmapsize = " LLF ", writesize = " LLF, (LLT)winsize, (LLT)curclass.writesize); if (winsize <= 0) goto try_read; off = lseek(filefd, (off_t)0, SEEK_CUR); if (off == -1) goto try_read; origoff = off; if (curclass.rateget) { bufrem = curclass.rateget; (void)gettimeofday(&then, NULL); } else bufrem = winsize; while (1) { mapsize = MIN(filesize - off, winsize); if (mapsize == 0) break; win = mmap(NULL, mapsize, PROT_READ, MAP_FILE|MAP_SHARED, filefd, off); if (win == MAP_FAILED) { if (off == origoff) goto try_read; return (SS_FILE_ERROR); } (void) madvise(win, mapsize, MADV_SEQUENTIAL); error = write_data(netfd, win, mapsize, &bufrem, &then, isdata); (void) madvise(win, mapsize, MADV_DONTNEED); munmap(win, mapsize); if (urgflag && handleoobcmd()) return (SS_ABORTED); if (error) return (SS_DATA_ERROR); off += mapsize; } return (SS_SUCCESS); try_read: return (send_data_with_read(filefd, netfd, st, isdata)); } /* * Transfer the contents of "instr" to "outstr" peer using the appropriate * encapsulation of the data subject to Mode, Structure, and Type. * * NB: Form isn't handled. */ static int send_data(FILE *instr, FILE *outstr, const struct stat *st, int isdata) { int c, filefd, netfd, rval; urgflag = 0; transflag = 1; rval = -1; switch (type) { case TYPE_A: /* XXXLUKEM: rate limit ascii send (get) */ (void) alarm(curclass.timeout); while ((c = getc(instr)) != EOF) { if (urgflag && handleoobcmd()) goto cleanup_send_data; byte_count++; if (c == '\n') { if (ferror(outstr)) goto data_err; (void) putc('\r', outstr); if (isdata) { total_data_out++; total_data++; } total_bytes_out++; total_bytes++; } (void) putc(c, outstr); if (isdata) { total_data_out++; total_data++; } total_bytes_out++; total_bytes++; if ((byte_count % 4096) == 0) (void) alarm(curclass.timeout); } (void) alarm(0); fflush(outstr); if (ferror(instr)) goto file_err; if (ferror(outstr)) goto data_err; rval = 0; goto cleanup_send_data; case TYPE_I: case TYPE_L: filefd = fileno(instr); netfd = fileno(outstr); switch (send_data_with_mmap(filefd, netfd, st, isdata)) { case SS_SUCCESS: break; case SS_ABORTED: case SS_NO_TRANSFER: goto cleanup_send_data; case SS_FILE_ERROR: goto file_err; case SS_DATA_ERROR: goto data_err; } rval = 0; goto cleanup_send_data; default: reply(550, "Unimplemented TYPE %d in send_data", type); goto cleanup_send_data; } data_err: (void) alarm(0); perror_reply(426, "Data connection"); goto cleanup_send_data; file_err: (void) alarm(0); perror_reply(551, "Error on input file"); goto cleanup_send_data; cleanup_send_data: (void) alarm(0); transflag = 0; urgflag = 0; if (isdata) { total_files_out++; total_files++; } total_xfers_out++; total_xfers++; return (rval); } /* * Transfer data from peer to "outstr" using the appropriate encapsulation of * the data subject to Mode, Structure, and Type. * * N.B.: Form isn't handled. */ static int receive_data(FILE *instr, FILE *outstr) { int c, netfd, filefd, rval; int volatile bare_lfs; off_t byteswritten; char *buf; ssize_t readsize; struct sigaction sa, sa_saved; struct stat st; memset(&sa, 0, sizeof(sa)); sigfillset(&sa.sa_mask); sa.sa_flags = SA_RESTART; sa.sa_handler = lostconn; (void) sigaction(SIGALRM, &sa, &sa_saved); bare_lfs = 0; urgflag = 0; transflag = 1; rval = -1; byteswritten = 0; buf = NULL; #define FILESIZECHECK(x) \ do { \ if (curclass.maxfilesize != -1 && \ (x) > curclass.maxfilesize) { \ errno = EFBIG; \ goto file_err; \ } \ } while (0) switch (type) { case TYPE_I: case TYPE_L: netfd = fileno(instr); filefd = fileno(outstr); (void) alarm(curclass.timeout); if (curclass.readsize) readsize = curclass.readsize; else if (fstat(filefd, &st) != -1) readsize = (ssize_t)st.st_blksize; else readsize = BUFSIZ; if ((buf = malloc(readsize)) == NULL) { perror_reply(451, "Local resource failure: malloc"); goto cleanup_recv_data; } if (curclass.rateput) { while (1) { int d; struct timeval then, now, td; off_t bufrem; (void)gettimeofday(&then, NULL); errno = c = d = 0; for (bufrem = curclass.rateput; bufrem > 0; ) { if ((c = read(netfd, buf, MIN(readsize, bufrem))) <= 0) goto recvdone; if (urgflag && handleoobcmd()) goto cleanup_recv_data; FILESIZECHECK(byte_count + c); if ((d = write(filefd, buf, c)) != c) goto file_err; (void) alarm(curclass.timeout); bufrem -= c; byte_count += c; total_data_in += c; total_data += c; total_bytes_in += c; total_bytes += c; } (void)gettimeofday(&now, NULL); timersub(&now, &then, &td); if (td.tv_sec == 0) usleep(1000000 - td.tv_usec); } } else { while ((c = read(netfd, buf, readsize)) > 0) { if (urgflag && handleoobcmd()) goto cleanup_recv_data; FILESIZECHECK(byte_count + c); if (write(filefd, buf, c) != c) goto file_err; (void) alarm(curclass.timeout); byte_count += c; total_data_in += c; total_data += c; total_bytes_in += c; total_bytes += c; } } recvdone: if (c < 0) goto data_err; rval = 0; goto cleanup_recv_data; case TYPE_E: reply(553, "TYPE E not implemented."); goto cleanup_recv_data; case TYPE_A: (void) alarm(curclass.timeout); /* XXXLUKEM: rate limit ascii receive (put) */ while ((c = getc(instr)) != EOF) { if (urgflag && handleoobcmd()) goto cleanup_recv_data; byte_count++; total_data_in++; total_data++; total_bytes_in++; total_bytes++; if ((byte_count % 4096) == 0) (void) alarm(curclass.timeout); if (c == '\n') bare_lfs++; while (c == '\r') { if (ferror(outstr)) goto data_err; if ((c = getc(instr)) != '\n') { byte_count++; total_data_in++; total_data++; total_bytes_in++; total_bytes++; if ((byte_count % 4096) == 0) (void) alarm(curclass.timeout); byteswritten++; FILESIZECHECK(byteswritten); (void) putc ('\r', outstr); if (c == '\0' || c == EOF) goto contin2; } } byteswritten++; FILESIZECHECK(byteswritten); (void) putc(c, outstr); contin2: ; } (void) alarm(0); fflush(outstr); if (ferror(instr)) goto data_err; if (ferror(outstr)) goto file_err; if (bare_lfs) { reply(-226, "WARNING! %d bare linefeeds received in ASCII mode", bare_lfs); reply(0, "File may not have transferred correctly."); } rval = 0; goto cleanup_recv_data; default: reply(550, "Unimplemented TYPE %d in receive_data", type); goto cleanup_recv_data; } #undef FILESIZECHECK data_err: (void) alarm(0); perror_reply(426, "Data Connection"); goto cleanup_recv_data; file_err: (void) alarm(0); perror_reply(452, "Error writing file"); goto cleanup_recv_data; cleanup_recv_data: (void) alarm(0); (void) sigaction(SIGALRM, &sa_saved, NULL); if (buf) free(buf); transflag = 0; urgflag = 0; total_files_in++; total_files++; total_xfers_in++; total_xfers++; return (rval); } void statcmd(void) { struct sockinet *su = NULL; static char hbuf[NI_MAXHOST], sbuf[NI_MAXSERV]; unsigned char *a, *p; int ispassive, af; off_t otbi, otbo, otb; a = p = NULL; reply(-211, "%s FTP server status:", hostname); reply(0, "Version: %s", EMPTYSTR(version) ? "" : version); hbuf[0] = '\0'; if (!getnameinfo((struct sockaddr *)&his_addr.si_su, his_addr.su_len, hbuf, sizeof(hbuf), NULL, 0, NI_NUMERICHOST) && strcmp(remotehost, hbuf) != 0) reply(0, "Connected to %s (%s)", remotehost, hbuf); else reply(0, "Connected to %s", remotehost); if (logged_in) { if (curclass.type == CLASS_GUEST) reply(0, "Logged in anonymously"); else reply(0, "Logged in as %s%s", pw->pw_name, curclass.type == CLASS_CHROOT ? " (chroot)" : ""); } else if (askpasswd) reply(0, "Waiting for password"); else reply(0, "Waiting for user name"); cprintf(stdout, " TYPE: %s", typenames[type]); if (type == TYPE_A || type == TYPE_E) cprintf(stdout, ", FORM: %s", formnames[form]); if (type == TYPE_L) { #if NBBY == 8 cprintf(stdout, " %d", NBBY); #else /* XXX: `bytesize' needs to be defined in this case */ cprintf(stdout, " %d", bytesize); #endif } cprintf(stdout, "; STRUcture: %s; transfer MODE: %s\r\n", strunames[stru], modenames[mode]); ispassive = 0; if (data != -1) { reply(0, "Data connection open"); su = NULL; } else if (pdata != -1) { reply(0, "in Passive mode"); if (curclass.advertise.su_len != 0) su = &curclass.advertise; else su = &pasv_addr; ispassive = 1; goto printaddr; } else if (usedefault == 0) { su = (struct sockinet *)&data_dest; if (epsvall) { reply(0, "EPSV only mode (EPSV ALL)"); goto epsvonly; } printaddr: /* PASV/PORT */ if (su->su_family == AF_INET) { a = (unsigned char *) &su->su_addr; p = (unsigned char *) &su->su_port; #define UC(b) (((int) b) & 0xff) reply(0, "%s (%d,%d,%d,%d,%d,%d)", ispassive ? "PASV" : "PORT" , UC(a[0]), UC(a[1]), UC(a[2]), UC(a[3]), UC(p[0]), UC(p[1])); } /* LPSV/LPRT */ { int alen, i; alen = 0; switch (su->su_family) { case AF_INET: a = (unsigned char *) &su->su_addr; p = (unsigned char *) &su->su_port; alen = sizeof(su->su_addr); af = 4; break; #ifdef INET6 case AF_INET6: a = (unsigned char *) &su->su_6addr; p = (unsigned char *) &su->su_port; alen = sizeof(su->su_6addr); af = 6; break; #endif default: af = 0; break; } if (af) { cprintf(stdout, " %s (%d,%d", ispassive ? "LPSV" : "LPRT", af, alen); for (i = 0; i < alen; i++) cprintf(stdout, ",%d", UC(a[i])); cprintf(stdout, ",%d,%d,%d)\r\n", 2, UC(p[0]), UC(p[1])); #undef UC } } /* EPRT/EPSV */ epsvonly: af = af2epsvproto(su->su_family); hbuf[0] = '\0'; if (af > 0) { struct sockinet tmp; tmp = *su; #ifdef INET6 if (tmp.su_family == AF_INET6) tmp.su_scope_id = 0; #endif if (getnameinfo((struct sockaddr *)&tmp.si_su, tmp.su_len, hbuf, sizeof(hbuf), sbuf, sizeof(sbuf), NI_NUMERICHOST | NI_NUMERICSERV) == 0) reply(0, "%s (|%d|%s|%s|)", ispassive ? "EPSV" : "EPRT", af, hbuf, sbuf); } } else reply(0, "No data connection"); if (logged_in) { reply(0, "Data sent: " LLF " byte%s in " LLF " file%s", (LLT)total_data_out, PLURAL(total_data_out), (LLT)total_files_out, PLURAL(total_files_out)); reply(0, "Data received: " LLF " byte%s in " LLF " file%s", (LLT)total_data_in, PLURAL(total_data_in), (LLT)total_files_in, PLURAL(total_files_in)); reply(0, "Total data: " LLF " byte%s in " LLF " file%s", (LLT)total_data, PLURAL(total_data), (LLT)total_files, PLURAL(total_files)); } otbi = total_bytes_in; otbo = total_bytes_out; otb = total_bytes; reply(0, "Traffic sent: " LLF " byte%s in " LLF " transfer%s", (LLT)otbo, PLURAL(otbo), (LLT)total_xfers_out, PLURAL(total_xfers_out)); reply(0, "Traffic received: " LLF " byte%s in " LLF " transfer%s", (LLT)otbi, PLURAL(otbi), (LLT)total_xfers_in, PLURAL(total_xfers_in)); reply(0, "Total traffic: " LLF " byte%s in " LLF " transfer%s", (LLT)otb, PLURAL(otb), (LLT)total_xfers, PLURAL(total_xfers)); if (logged_in && !CURCLASS_FLAGS_ISSET(private)) { struct ftpconv *cp; reply(0, "%s", ""); reply(0, "Class: %s, type: %s", curclass.classname, CURCLASSTYPE); reply(0, "Check PORT/LPRT commands: %sabled", CURCLASS_FLAGS_ISSET(checkportcmd) ? "en" : "dis"); if (! EMPTYSTR(curclass.display)) reply(0, "Display file: %s", curclass.display); if (! EMPTYSTR(curclass.notify)) reply(0, "Notify fileglob: %s", curclass.notify); reply(0, "Idle timeout: " LLF ", maximum timeout: " LLF, (LLT)curclass.timeout, (LLT)curclass.maxtimeout); reply(0, "Current connections: %d", connections); if (curclass.limit == -1) reply(0, "Maximum connections: unlimited"); else reply(0, "Maximum connections: " LLF, (LLT)curclass.limit); if (curclass.limitfile) reply(0, "Connection limit exceeded message file: %s", conffilename(curclass.limitfile)); if (! EMPTYSTR(curclass.chroot)) reply(0, "Chroot format: %s", curclass.chroot); reply(0, "Deny bad ftpusers(5) quickly: %sabled", CURCLASS_FLAGS_ISSET(denyquick) ? "en" : "dis"); if (! EMPTYSTR(curclass.homedir)) reply(0, "Homedir format: %s", curclass.homedir); if (curclass.maxfilesize == -1) reply(0, "Maximum file size: unlimited"); else reply(0, "Maximum file size: " LLF, (LLT)curclass.maxfilesize); if (! EMPTYSTR(curclass.motd)) reply(0, "MotD file: %s", conffilename(curclass.motd)); reply(0, "Modify commands (CHMOD, DELE, MKD, RMD, RNFR, UMASK): %sabled", CURCLASS_FLAGS_ISSET(modify) ? "en" : "dis"); reply(0, "Upload commands (APPE, STOR, STOU): %sabled", CURCLASS_FLAGS_ISSET(upload) ? "en" : "dis"); reply(0, "Sanitize file names: %sabled", CURCLASS_FLAGS_ISSET(sanenames) ? "en" : "dis"); reply(0, "PASV/LPSV/EPSV connections: %sabled", CURCLASS_FLAGS_ISSET(passive) ? "en" : "dis"); if (curclass.advertise.su_len != 0) { char buf[50]; /* big enough for IPv6 address */ const char *bp; bp = inet_ntop(curclass.advertise.su_family, (void *)&curclass.advertise.su_addr, buf, sizeof(buf)); if (bp != NULL) reply(0, "PASV advertise address: %s", bp); } if (curclass.portmin && curclass.portmax) reply(0, "PASV port range: " LLF " - " LLF, (LLT)curclass.portmin, (LLT)curclass.portmax); if (curclass.rateget) reply(0, "Rate get limit: " LLF " bytes/sec", (LLT)curclass.rateget); else reply(0, "Rate get limit: disabled"); if (curclass.rateput) reply(0, "Rate put limit: " LLF " bytes/sec", (LLT)curclass.rateput); else reply(0, "Rate put limit: disabled"); if (curclass.mmapsize) reply(0, "Mmap size: " LLF, (LLT)curclass.mmapsize); else reply(0, "Mmap size: disabled"); if (curclass.readsize) reply(0, "Read size: " LLF, (LLT)curclass.readsize); else reply(0, "Read size: default"); if (curclass.writesize) reply(0, "Write size: " LLF, (LLT)curclass.writesize); else reply(0, "Write size: default"); if (curclass.recvbufsize) reply(0, "Receive buffer size: " LLF, (LLT)curclass.recvbufsize); else reply(0, "Receive buffer size: default"); if (curclass.sendbufsize) reply(0, "Send buffer size: " LLF, (LLT)curclass.sendbufsize); else reply(0, "Send buffer size: default"); if (curclass.sendlowat) reply(0, "Send low water mark: " LLF, (LLT)curclass.sendlowat); else reply(0, "Send low water mark: default"); reply(0, "Umask: %.04o", curclass.umask); for (cp = curclass.conversions; cp != NULL; cp=cp->next) { if (cp->suffix == NULL || cp->types == NULL || cp->command == NULL) continue; reply(0, "Conversion: %s [%s] disable: %s, command: %s", cp->suffix, cp->types, cp->disable, cp->command); } } reply(211, "End of status"); } void fatal(const char *s) { reply(451, "Error in server: %s\n", s); reply(221, "Closing connection due to server error."); dologout(0); /* NOTREACHED */ } /* * reply() -- * depending on the value of n, display fmt with a trailing CRLF and * prefix of: * n < -1 prefix the message with abs(n) + "-" (initial line) * n == 0 prefix the message with 4 spaces (middle lines) * n > 0 prefix the message with n + " " (final line) */ void reply(int n, const char *fmt, ...) { char msg[MAXPATHLEN * 2 + 100]; size_t b; va_list ap; if (n == 0) b = snprintf(msg, sizeof(msg), " "); else if (n < 0) b = snprintf(msg, sizeof(msg), "%d-", -n); else b = snprintf(msg, sizeof(msg), "%d ", n); va_start(ap, fmt); vsnprintf(msg + b, sizeof(msg) - b, fmt, ap); va_end(ap); cprintf(stdout, "%s\r\n", msg); (void)fflush(stdout); if (ftpd_debug) syslog(LOG_DEBUG, "<--- %s", msg); } static void logremotehost(struct sockinet *who) { #if defined(HAVE_SOCKADDR_SNPRINTF) char abuf[MAXHOSTNAMELEN]; #endif struct sockaddr *sa = (struct sockaddr *)&who->si_su; if (getnameinfo(sa, who->su_len, remotehost, sizeof(remotehost), NULL, 0, getnameopts)) strlcpy(remotehost, "?", sizeof(remotehost)); #if defined(HAVE_SOCKADDR_SNPRINTF) sockaddr_snprintf(abuf, sizeof(abuf), "%a", sa); snprintf(remoteloghost, sizeof(remoteloghost), "%s(%s)", remotehost, abuf); #else strlcpy(remoteloghost, remotehost, sizeof(remoteloghost)); #endif #if defined(HAVE_SETPROCTITLE) snprintf(proctitle, sizeof(proctitle), "%s: connected", remotehost); setproctitle("%s", proctitle); #endif /* defined(HAVE_SETPROCTITLE) */ if (logging) syslog(LOG_INFO, "connection from %s to %s", remoteloghost, hostname); } /* * Record logout in wtmp file and exit with supplied status. * NOTE: because this is called from signal handlers it cannot * use stdio (or call other functions that use stdio). */ void dologout(int status) { /* * Prevent reception of SIGURG from resulting in a resumption * back to the main program loop. */ transflag = 0; logout_utmp(); if (logged_in) { #ifdef KERBEROS if (!notickets && krbtkfile_env) unlink(krbtkfile_env); #endif } /* beware of flushing buffers after a SIGPIPE */ if (xferlogfd != -1) close(xferlogfd); _exit(status); } void abor(void) { if (!transflag) return; tmpline[0] = '\0'; is_oob = 0; reply(426, "Transfer aborted. Data connection closed."); reply(226, "Abort successful"); transflag = 0; /* flag that the transfer has aborted */ } void statxfer(void) { if (!transflag) return; tmpline[0] = '\0'; is_oob = 0; if (file_size != (off_t) -1) reply(213, "Status: " LLF " of " LLF " byte%s transferred", (LLT)byte_count, (LLT)file_size, PLURAL(byte_count)); else reply(213, "Status: " LLF " byte%s transferred", (LLT)byte_count, PLURAL(byte_count)); } /* * Call when urgflag != 0 to handle Out Of Band commands. * Returns non zero if the OOB command aborted the transfer * by setting transflag to 0. (c.f., "ABOR"). */ static int handleoobcmd(void) { char *cp; int ret; if (!urgflag) return (0); urgflag = 0; /* only process if transfer occurring */ if (!transflag) return (0); cp = tmpline; ret = get_line(cp, sizeof(tmpline)-1, stdin); if (ret == -1) { reply(221, "You could at least say goodbye."); dologout(0); } else if (ret == -2) { /* Ignore truncated command */ /* XXX: abort xfer with "500 command too long", & return 1 ? */ return 0; } /* * Manually parse OOB commands, because we can't * recursively call the yacc parser... */ if (strcasecmp(cp, "ABOR\r\n") == 0) { abor(); } else if (strcasecmp(cp, "STAT\r\n") == 0) { statxfer(); } else { /* XXX: error with "500 unknown command" ? */ } return (transflag == 0); } static int bind_pasv_addr(void) { static int passiveport; int port, len; len = pasv_addr.su_len; if (curclass.portmin == 0 && curclass.portmax == 0) { pasv_addr.su_port = 0; return (bind(pdata, (struct sockaddr *)&pasv_addr.si_su, len)); } if (passiveport == 0) { srand(getpid()); passiveport = rand() % (curclass.portmax - curclass.portmin) + curclass.portmin; } port = passiveport; while (1) { port++; if (port > curclass.portmax) port = curclass.portmin; else if (port == passiveport) { errno = EAGAIN; return (-1); } pasv_addr.su_port = htons(port); if (bind(pdata, (struct sockaddr *)&pasv_addr.si_su, len) == 0) break; if (errno != EADDRINUSE) return (-1); } passiveport = port; return (0); } /* * Note: a response of 425 is not mentioned as a possible response to * the PASV command in RFC959. However, it has been blessed as * a legitimate response by Jon Postel in a telephone conversation * with Rick Adams on 25 Jan 89. */ void passive(void) { socklen_t len; int recvbufsize; char *p, *a; if (pdata >= 0) close(pdata); pdata = socket(AF_INET, SOCK_STREAM, 0); if (pdata < 0 || !logged_in) { perror_reply(425, "Can't open passive connection"); return; } pasv_addr = ctrl_addr; if (bind_pasv_addr() < 0) goto pasv_error; len = pasv_addr.su_len; if (getsockname(pdata, (struct sockaddr *) &pasv_addr.si_su, &len) < 0) goto pasv_error; pasv_addr.su_len = len; if (curclass.recvbufsize) { recvbufsize = curclass.recvbufsize; if (setsockopt(pdata, SOL_SOCKET, SO_RCVBUF, &recvbufsize, sizeof(int)) == -1) syslog(LOG_WARNING, "setsockopt(SO_RCVBUF, %d): %m", recvbufsize); } if (listen(pdata, 1) < 0) goto pasv_error; if (curclass.advertise.su_len != 0) a = (char *) &curclass.advertise.su_addr; else a = (char *) &pasv_addr.su_addr; p = (char *) &pasv_addr.su_port; #define UC(b) (((int) b) & 0xff) reply(227, "Entering Passive Mode (%d,%d,%d,%d,%d,%d)", UC(a[0]), UC(a[1]), UC(a[2]), UC(a[3]), UC(p[0]), UC(p[1])); return; pasv_error: (void) close(pdata); pdata = -1; perror_reply(425, "Can't open passive connection"); return; } /* * convert protocol identifier to/from AF */ int lpsvproto2af(int proto) { switch (proto) { case 4: return AF_INET; #ifdef INET6 case 6: return AF_INET6; #endif default: return -1; } } int af2lpsvproto(int af) { switch (af) { case AF_INET: return 4; #ifdef INET6 case AF_INET6: return 6; #endif default: return -1; } } int epsvproto2af(int proto) { switch (proto) { case 1: return AF_INET; #ifdef INET6 case 2: return AF_INET6; #endif default: return -1; } } int af2epsvproto(int af) { switch (af) { case AF_INET: return 1; #ifdef INET6 case AF_INET6: return 2; #endif default: return -1; } } /* * 228 Entering Long Passive Mode (af, hal, h1, h2, h3,..., pal, p1, p2...) * 229 Entering Extended Passive Mode (|||port|) */ void long_passive(const char *cmd, int pf) { socklen_t len; char *p, *a; if (!logged_in) { syslog(LOG_NOTICE, "long passive but not logged in"); reply(503, "Login with USER first."); return; } if (pf != PF_UNSPEC && ctrl_addr.su_family != pf) { /* * XXX: only EPRT/EPSV ready clients will understand this */ if (strcmp(cmd, "EPSV") != 0) reply(501, "Network protocol mismatch"); /*XXX*/ else epsv_protounsupp("Network protocol mismatch"); return; } if (pdata >= 0) close(pdata); pdata = socket(ctrl_addr.su_family, SOCK_STREAM, 0); if (pdata < 0) { perror_reply(425, "Can't open passive connection"); return; } pasv_addr = ctrl_addr; if (bind_pasv_addr() < 0) goto pasv_error; len = pasv_addr.su_len; if (getsockname(pdata, (struct sockaddr *) &pasv_addr.si_su, &len) < 0) goto pasv_error; pasv_addr.su_len = len; if (listen(pdata, 1) < 0) goto pasv_error; p = (char *) &pasv_addr.su_port; #define UC(b) (((int) b) & 0xff) if (strcmp(cmd, "LPSV") == 0) { struct sockinet *advert; if (curclass.advertise.su_len != 0) advert = &curclass.advertise; else advert = &pasv_addr; switch (advert->su_family) { case AF_INET: a = (char *) &advert->su_addr; reply(228, "Entering Long Passive Mode (%d,%d,%d,%d,%d,%d,%d,%d,%d)", 4, 4, UC(a[0]), UC(a[1]), UC(a[2]), UC(a[3]), 2, UC(p[0]), UC(p[1])); return; #ifdef INET6 case AF_INET6: a = (char *) &advert->su_6addr; reply(228, "Entering Long Passive Mode (%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d)", 6, 16, UC(a[0]), UC(a[1]), UC(a[2]), UC(a[3]), UC(a[4]), UC(a[5]), UC(a[6]), UC(a[7]), UC(a[8]), UC(a[9]), UC(a[10]), UC(a[11]), UC(a[12]), UC(a[13]), UC(a[14]), UC(a[15]), 2, UC(p[0]), UC(p[1])); return; #endif } #undef UC } else if (strcmp(cmd, "EPSV") == 0) { switch (pasv_addr.su_family) { case AF_INET: #ifdef INET6 case AF_INET6: #endif reply(229, "Entering Extended Passive Mode (|||%d|)", ntohs(pasv_addr.su_port)); return; } } else { /* more proper error code? */ } pasv_error: (void) close(pdata); pdata = -1; perror_reply(425, "Can't open passive connection"); return; } int extended_port(const char *arg) { char *tmp = NULL; char *result[3]; char *p, *q; char delim; struct addrinfo hints; struct addrinfo *res = NULL; int i; unsigned long proto; tmp = ftpd_strdup(arg); p = tmp; delim = p[0]; p++; memset(result, 0, sizeof(result)); for (i = 0; i < 3; i++) { q = strchr(p, delim); if (!q || *q != delim) goto parsefail; *q++ = '\0'; result[i] = p; p = q; } /* some more sanity checks */ errno = 0; p = NULL; (void)strtoul(result[2], &p, 10); if (errno || !*result[2] || *p) goto parsefail; errno = 0; p = NULL; proto = strtoul(result[0], &p, 10); if (errno || !*result[0] || *p) goto protounsupp; memset(&hints, 0, sizeof(hints)); hints.ai_family = epsvproto2af((int)proto); if (hints.ai_family < 0) goto protounsupp; hints.ai_socktype = SOCK_STREAM; hints.ai_flags = AI_NUMERICHOST; if (getaddrinfo(result[1], result[2], &hints, &res)) goto parsefail; if (res->ai_next) goto parsefail; if (sizeof(data_dest) < res->ai_addrlen) goto parsefail; memcpy(&data_dest.si_su, res->ai_addr, res->ai_addrlen); data_dest.su_len = res->ai_addrlen; #ifdef INET6 if (his_addr.su_family == AF_INET6 && data_dest.su_family == AF_INET6) { /* XXX: more sanity checks! */ data_dest.su_scope_id = his_addr.su_scope_id; } #endif if (tmp != NULL) free(tmp); if (res) freeaddrinfo(res); return 0; parsefail: reply(500, "Invalid argument, rejected."); usedefault = 1; if (tmp != NULL) free(tmp); if (res) freeaddrinfo(res); return -1; protounsupp: epsv_protounsupp("Protocol not supported"); usedefault = 1; if (tmp != NULL) free(tmp); return -1; } /* * 522 Protocol not supported (proto,...) * as we assume address family for control and data connections are the same, * we do not return the list of address families we support - instead, we * return the address family of the control connection. */ void epsv_protounsupp(const char *message) { int proto; proto = af2epsvproto(ctrl_addr.su_family); if (proto < 0) reply(501, "%s", message); /* XXX */ else reply(522, "%s, use (%d)", message, proto); } /* * Generate unique name for file with basename "local". * The file named "local" is already known to exist. * Generates failure reply on error. * * XXX: this function should under go changes similar to * the mktemp(3)/mkstemp(3) changes. */ static char * gunique(const char *local) { static char new[MAXPATHLEN]; struct stat st; char *cp; int count; cp = strrchr(local, '/'); if (cp) *cp = '\0'; if (stat(cp ? local : ".", &st) < 0) { perror_reply(553, cp ? local : "."); return (NULL); } if (cp) *cp = '/'; for (count = 1; count < 100; count++) { (void)snprintf(new, sizeof(new) - 1, "%s.%d", local, count); if (stat(new, &st) < 0) return (new); } reply(452, "Unique file name cannot be created."); return (NULL); } /* * Format and send reply containing system error number. */ void perror_reply(int code, const char *string) { int save_errno; save_errno = errno; reply(code, "%s: %s.", string, strerror(errno)); errno = save_errno; } static char *onefile[] = { NULL, 0 }; void send_file_list(const char *whichf) { struct stat st; DIR *dirp; struct dirent *dir; FILE *volatile dout; char **volatile dirlist; char *dirname, *p; char *notglob; int volatile simple; int volatile freeglob; glob_t gl; dirp = NULL; dout = NULL; notglob = NULL; simple = 0; freeglob = 0; urgflag = 0; p = NULL; if (strpbrk(whichf, "~{[*?") != NULL) { int flags = GLOB_BRACE|GLOB_NOCHECK|GLOB_TILDE|GLOB_LIMIT; memset(&gl, 0, sizeof(gl)); freeglob = 1; if (glob(whichf, flags, 0, &gl)) { reply(450, "Not found"); goto cleanup_send_file_list; } else if (gl.gl_pathc == 0) { errno = ENOENT; perror_reply(450, whichf); goto cleanup_send_file_list; } dirlist = gl.gl_pathv; } else { notglob = ftpd_strdup(whichf); onefile[0] = notglob; dirlist = onefile; simple = 1; } /* XXX: } for vi sm */ while ((dirname = *dirlist++) != NULL) { int trailingslash = 0; if (stat(dirname, &st) < 0) { /* * If user typed "ls -l", etc, and the client * used NLST, do what the user meant. */ /* XXX: nuke this support? */ if (dirname[0] == '-' && *dirlist == NULL && transflag == 0) { const char *argv[] = { INTERNAL_LS, "", NULL }; argv[1] = dirname; retrieve(argv, dirname); goto cleanup_send_file_list; } perror_reply(450, whichf); goto cleanup_send_file_list; } if (S_ISREG(st.st_mode)) { /* * XXXRFC: * should we follow RFC959 and not work * for non directories? */ if (dout == NULL) { dout = dataconn("file list", (off_t)-1, "w"); if (dout == NULL) goto cleanup_send_file_list; transflag = 1; } cprintf(dout, "%s%s\n", dirname, type == TYPE_A ? "\r" : ""); continue; } else if (!S_ISDIR(st.st_mode)) continue; if (dirname[strlen(dirname) - 1] == '/') trailingslash++; if ((dirp = opendir(dirname)) == NULL) continue; while ((dir = readdir(dirp)) != NULL) { char nbuf[MAXPATHLEN]; if (urgflag && handleoobcmd()) { (void) closedir(dirp); goto cleanup_send_file_list; } if (ISDOTDIR(dir->d_name) || ISDOTDOTDIR(dir->d_name)) continue; (void)snprintf(nbuf, sizeof(nbuf), "%s%s%s", dirname, trailingslash ? "" : "/", dir->d_name); /* * We have to do a stat to ensure it's * not a directory or special file. */ /* * XXXRFC: * should we follow RFC959 and filter out * non files ? lukem - NO!, or not until * our ftp client uses MLS{T,D} for completion. */ if (simple || (stat(nbuf, &st) == 0 && S_ISREG(st.st_mode))) { if (dout == NULL) { dout = dataconn("file list", (off_t)-1, "w"); if (dout == NULL) { (void) closedir(dirp); goto cleanup_send_file_list; } transflag = 1; } p = nbuf; if (nbuf[0] == '.' && nbuf[1] == '/') p = &nbuf[2]; cprintf(dout, "%s%s\n", p, type == TYPE_A ? "\r" : ""); } } (void) closedir(dirp); } if (dout == NULL) reply(450, "No files found."); else if (ferror(dout) != 0) perror_reply(451, "Data connection"); else reply(226, "Transfer complete."); cleanup_send_file_list: closedataconn(dout); transflag = 0; urgflag = 0; total_xfers++; total_xfers_out++; if (notglob) free(notglob); if (freeglob) globfree(&gl); } char * conffilename(const char *s) { static char filename[MAXPATHLEN]; if (*s == '/') strlcpy(filename, s, sizeof(filename)); else (void)snprintf(filename, sizeof(filename), "%s/%s", confdir ,s); return (filename); } /* * logxfer -- * if logging > 1, then based on the arguments, syslog a message: * if bytes != -1 " = bytes" * else if file2 != NULL " " * else " " * if elapsed != NULL, append "in xxx.yyy seconds" * if error != NULL, append ": " + error * * if doxferlog != 0, bytes != -1, and command is "get", "put", * or "append", syslog and/or write a wu-ftpd style xferlog entry */ void logxfer(const char *command, off_t bytes, const char *file1, const char *file2, const struct timeval *elapsed, const char *error) { char buf[MAXPATHLEN * 2 + 100]; char realfile1[MAXPATHLEN], realfile2[MAXPATHLEN]; const char *r1, *r2; char direction; size_t len; time_t now; if (logging <=1 && !doxferlog) return; r1 = r2 = NULL; if ((r1 = realpath(file1, realfile1)) == NULL) r1 = file1; if (file2 != NULL) if ((r2 = realpath(file2, realfile2)) == NULL) r2 = file2; /* * syslog command */ if (logging > 1) { len = snprintf(buf, sizeof(buf), "%s %s", command, r1); if (bytes != (off_t)-1) len += snprintf(buf + len, sizeof(buf) - len, " = " LLF " byte%s", (LLT) bytes, PLURAL(bytes)); else if (r2 != NULL) len += snprintf(buf + len, sizeof(buf) - len, " %s", r2); if (elapsed != NULL) len += snprintf(buf + len, sizeof(buf) - len, " in " LLF ".%.03ld seconds", (LLT)elapsed->tv_sec, (long)(elapsed->tv_usec / 1000)); if (error != NULL) len += snprintf(buf + len, sizeof(buf) - len, ": %s", error); syslog(LOG_INFO, "%s", buf); } /* * syslog wu-ftpd style log entry, prefixed with "xferlog: " */ if (!doxferlog || bytes == -1) return; if (strcmp(command, "get") == 0) direction = 'o'; else if (strcmp(command, "put") == 0 || strcmp(command, "append") == 0) direction = 'i'; else return; time(&now); len = snprintf(buf, sizeof(buf), "%.24s " LLF " %s " LLF " %s %c %s %c %c %s FTP 0 * %c\n", /* * XXX: wu-ftpd puts ' (send)' or ' (recv)' in the syslog message, and removes * the full date. This may be problematic for accurate log parsing, * given that syslog messages don't contain the full date. */ ctime(&now), (LLT) (elapsed == NULL ? 0 : elapsed->tv_sec + (elapsed->tv_usec > 0)), remotehost, (LLT) bytes, r1, type == TYPE_A ? 'a' : 'b', "_", /* XXX: take conversions into account? */ direction, curclass.type == CLASS_GUEST ? 'a' : curclass.type == CLASS_CHROOT ? 'g' : curclass.type == CLASS_REAL ? 'r' : '?', curclass.type == CLASS_GUEST ? pw->pw_passwd : pw->pw_name, error != NULL ? 'i' : 'c' ); if ((doxferlog & 2) && xferlogfd != -1) write(xferlogfd, buf, len); if ((doxferlog & 1)) { buf[len-1] = '\n'; /* strip \n from syslog message */ syslog(LOG_INFO, "xferlog: %s", buf); } } /* * Log the resource usage. * * XXX: more resource usage to logging? */ void logrusage(const struct rusage *rusage_before, const struct rusage *rusage_after) { struct timeval usrtime, systime; if (logging <= 1) return; timersub(&rusage_after->ru_utime, &rusage_before->ru_utime, &usrtime); timersub(&rusage_after->ru_stime, &rusage_before->ru_stime, &systime); syslog(LOG_INFO, LLF ".%.03ldu " LLF ".%.03lds %ld+%ldio %ldpf+%ldw", (LLT)usrtime.tv_sec, (long)(usrtime.tv_usec / 1000), (LLT)systime.tv_sec, (long)(systime.tv_usec / 1000), rusage_after->ru_inblock - rusage_before->ru_inblock, rusage_after->ru_oublock - rusage_before->ru_oublock, rusage_after->ru_majflt - rusage_before->ru_majflt, rusage_after->ru_nswap - rusage_before->ru_nswap); } /* * Determine if `password' is valid for user given in `pw'. * Returns 2 if password expired, 1 if otherwise failed, 0 if ok */ int checkpassword(const struct passwd *pwent, const char *password) { const char *orig; char *new; time_t change, expire, now; change = expire = 0; if (pwent == NULL) return 1; time(&now); orig = pwent->pw_passwd; /* save existing password */ expire = pwent->pw_expire; change = pwent->pw_change; if (change == _PASSWORD_CHGNOW) change = now; if (orig[0] == '\0') /* don't allow empty passwords */ return 1; new = crypt(password, orig); /* encrypt given password */ if (strcmp(new, orig) != 0) /* compare */ return 1; if ((expire && now >= expire) || (change && now >= change)) return 2; /* check if expired */ return 0; /* OK! */ } char * ftpd_strdup(const char *s) { char *new = strdup(s); if (new == NULL) fatal("Local resource failure: malloc"); /* NOTREACHED */ return (new); } /* * As per fprintf(), but increment total_bytes and total_bytes_out, * by the appropriate amount. */ void cprintf(FILE *fd, const char *fmt, ...) { off_t b; va_list ap; va_start(ap, fmt); b = vfprintf(fd, fmt, ap); va_end(ap); total_bytes += b; total_bytes_out += b; } #ifdef USE_PAM /* * the following code is stolen from imap-uw PAM authentication module and * login.c */ typedef struct { const char *uname; /* user name */ int triedonce; /* if non-zero, tried before */ } ftpd_cred_t; static int auth_conv(int num_msg, const struct pam_message **msg, struct pam_response **resp, void *appdata) { int i, ret; size_t n; ftpd_cred_t *cred = (ftpd_cred_t *) appdata; struct pam_response *myreply; char pbuf[FTP_BUFLEN]; if (num_msg <= 0 || num_msg > PAM_MAX_NUM_MSG) return (PAM_CONV_ERR); myreply = calloc(num_msg, sizeof *myreply); if (myreply == NULL) return PAM_BUF_ERR; for (i = 0; i < num_msg; i++) { myreply[i].resp_retcode = 0; myreply[i].resp = NULL; switch (msg[i]->msg_style) { case PAM_PROMPT_ECHO_ON: /* user */ myreply[i].resp = ftpd_strdup(cred->uname); /* PAM frees resp. */ break; case PAM_PROMPT_ECHO_OFF: /* authtok (password) */ /* * Only send a single 331 reply and * then expect a PASS. */ if (cred->triedonce) { syslog(LOG_ERR, "auth_conv: already performed PAM_PROMPT_ECHO_OFF"); goto fail; } cred->triedonce++; if (msg[i]->msg[0] == '\0') { (void)strlcpy(pbuf, "password", sizeof(pbuf)); } else { /* Uncapitalize msg */ (void)strlcpy(pbuf, msg[i]->msg, sizeof(pbuf)); if (isupper((unsigned char)pbuf[0])) pbuf[0] = tolower( (unsigned char)pbuf[0]); /* Remove trailing ':' and whitespace */ n = strlen(pbuf); while (n-- > 0) { if (isspace((unsigned char)pbuf[n]) || pbuf[n] == ':') pbuf[n] = '\0'; else break; } } /* Send reply, wait for a response. */ reply(331, "User %s accepted, provide %s.", cred->uname, pbuf); (void) alarm(curclass.timeout); ret = get_line(pbuf, sizeof(pbuf)-1, stdin); (void) alarm(0); if (ret == -1) { reply(221, "You could at least say goodbye."); dologout(0); } else if (ret == -2) { /* XXX: should we do this reply(-530, ..) ? */ reply(-530, "Command too long."); goto fail; } /* Ensure it is PASS */ if (strncasecmp(pbuf, "PASS ", 5) != 0) { syslog(LOG_ERR, "auth_conv: unexpected reply '%.4s'", pbuf); /* XXX: should we do this reply(-530, ..) ? */ reply(-530, "Unexpected reply '%.4s'.", pbuf); goto fail; } /* Strip CRLF from "PASS" reply */ n = strlen(pbuf); while (--n >= 5 && (pbuf[n] == '\r' || pbuf[n] == '\n')) pbuf[n] = '\0'; /* Copy password into reply */ myreply[i].resp = ftpd_strdup(pbuf+5); /* PAM frees resp. */ break; case PAM_TEXT_INFO: case PAM_ERROR_MSG: break; default: /* unknown message style */ goto fail; } } *resp = myreply; return PAM_SUCCESS; fail: free(myreply); *resp = NULL; return PAM_CONV_ERR; } /* * Attempt to authenticate the user using PAM. Returns 0 if the user is * authenticated, or 1 if not authenticated. If some sort of PAM system * error occurs (e.g., the "/etc/pam.conf" file is missing) then this * function returns -1. This can be used as an indication that we should * fall back to a different authentication mechanism. * pw maybe be updated to a new user if PAM_USER changes from curname. */ static int auth_pam(void) { const char *tmpl_user; const void *item; int rval; int e; ftpd_cred_t auth_cred = { curname, 0 }; struct pam_conv conv = { &auth_conv, &auth_cred }; struct sockaddr_storage ss; e = pam_start("ftpd", curname, &conv, &pamh); if (e != PAM_SUCCESS) { /* * In OpenPAM, it's OK to pass NULL to pam_strerror() * if context creation has failed in the first place. */ syslog(LOG_ERR, "pam_start: %s", pam_strerror(NULL, e)); return -1; } e = pam_set_item(pamh, PAM_RHOST, remotehost); if (e != PAM_SUCCESS) { syslog(LOG_ERR, "pam_set_item(PAM_RHOST): %s", pam_strerror(pamh, e)); if ((e = pam_end(pamh, e)) != PAM_SUCCESS) { syslog(LOG_ERR, "pam_end: %s", pam_strerror(pamh, e)); } pamh = NULL; return -1; } memset(&ss, 0, sizeof(ss)); memcpy(&ss, &his_addr.si_su, his_addr.su_len); e = pam_set_item(pamh, PAM_SOCKADDR, &ss); if (e != PAM_SUCCESS) { syslog(LOG_ERR, "pam_set_item(PAM_SOCKADDR): %s", pam_strerror(pamh, e)); if ((e = pam_end(pamh, e)) != PAM_SUCCESS) { syslog(LOG_ERR, "pam_end: %s", pam_strerror(pamh, e)); } pamh = NULL; return -1; } e = pam_authenticate(pamh, 0); if (ftpd_debug) syslog(LOG_DEBUG, "pam_authenticate: user '%s' returned %d", curname, e); switch (e) { case PAM_SUCCESS: /* * With PAM we support the concept of a "template" * user. The user enters a login name which is * authenticated by PAM, usually via a remote service * such as RADIUS or TACACS+. If authentication * succeeds, a different but related "template" name * is used for setting the credentials, shell, and * home directory. The name the user enters need only * exist on the remote authentication server, but the * template name must be present in the local password * database. * * This is supported by two various mechanisms in the * individual modules. However, from the application's * point of view, the template user is always passed * back as a changed value of the PAM_USER item. */ if ((e = pam_get_item(pamh, PAM_USER, &item)) == PAM_SUCCESS) { tmpl_user = (const char *) item; if (pw == NULL || strcmp(pw->pw_name, tmpl_user) != 0) { pw = sgetpwnam(tmpl_user); if (ftpd_debug) syslog(LOG_DEBUG, "auth_pam: PAM changed " "user from '%s' to '%s'", curname, pw->pw_name); (void)strlcpy(curname, pw->pw_name, curname_len); } } else syslog(LOG_ERR, "Couldn't get PAM_USER: %s", pam_strerror(pamh, e)); rval = 0; break; case PAM_AUTH_ERR: case PAM_USER_UNKNOWN: case PAM_MAXTRIES: rval = 1; break; default: syslog(LOG_ERR, "pam_authenticate: %s", pam_strerror(pamh, e)); rval = -1; break; } if (rval == 0) { e = pam_acct_mgmt(pamh, 0); if (e != PAM_SUCCESS) { syslog(LOG_ERR, "pam_acct_mgmt: %s", pam_strerror(pamh, e)); rval = 1; } } if (rval != 0) { if ((e = pam_end(pamh, e)) != PAM_SUCCESS) { syslog(LOG_ERR, "pam_end: %s", pam_strerror(pamh, e)); } pamh = NULL; } return rval; } #endif /* USE_PAM */ src/libexec/ftpd/ftpd.conf.5010064400011300000175000000365501372015121700161240ustar00srcmastrnetbsd.\" $NetBSD: ftpd.conf.5,v 1.38 2020/08/22 08:08:47 lukem Exp $ .\" .\" Copyright (c) 1997-2020 The NetBSD Foundation, Inc. .\" All rights reserved. .\" .\" This code is derived from software contributed to The NetBSD Foundation .\" by Luke Mewburn. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" .\" THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS .\" ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED .\" TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR .\" PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS .\" BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR .\" CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF .\" SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS .\" INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN .\" CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) .\" ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE .\" POSSIBILITY OF SUCH DAMAGE. .\" .Dd August 22, 2020 .Dt FTPD.CONF 5 .Os .Sh NAME .Nm ftpd.conf .Nd .Xr ftpd 8 configuration file .Sh DESCRIPTION The .Nm file specifies various configuration options for .Xr ftpd 8 that apply once a user has authenticated their connection. .Pp .Nm consists of a series of lines, each of which may contain a configuration directive, a comment, or a blank line. Directives that appear later in the file override settings by previous directives. This allows .Sq wildcard entries to define defaults, and then have class-specific overrides. .Pp A directive line has the format: .Dl command class [arguments] .Pp A .Dq \e is the escape character; it can be used to escape the meaning of the comment character, or if it is the last character on a line, extends a configuration directive across multiple lines. A .Dq # is the comment character, and all characters from it to the end of line are ignored (unless it is escaped with the escape character). .Pp Each authenticated user is a member of a .Em class , which is determined by .Xr ftpusers 5 . .Em class is used to determine which .Nm entries apply to the user. The following special classes exist when parsing entries in .Nm : .Bl -tag -width "chroot" -compact -offset indent .It Sy all Matches any class. .It Sy none Matches no class. .El .Pp Each class has a type, which may be one of: .Bl -tag -width "CHROOT" -offset indent .It Sy GUEST Guests (as per the .Dq anonymous and .Dq ftp logins). A .Xr chroot 2 is performed after login. .It Sy CHROOT .Xr chroot 2 Ns ed users (as per .Xr ftpchroot 5 ) . A .Xr chroot 2 is performed after login. .It Sy REAL Normal users. .El .Pp The .Xr ftpd 8 .Sy STAT command will return the class settings for the current user as defined by .Nm , unless the .Sy private directive is set for the class. .Pp Each configuration line may be one of: .Bl -tag -width 4n .It Sy advertize Ar class Op Ar host Set the address to advertise in the response to the .Sy PASV and .Sy LPSV commands to the address for .Ar host (which may be either a host name or IP address). This may be useful in some firewall configurations, although many ftp clients may not work if the address being advertised is different to the address that they've connected to. If .Ar class is .Dq none or .Ar host not is specified, disable this. .It Sy checkportcmd Ar class Op Sy off Check the .Sy PORT command for validity. The .Sy PORT command will fail if the IP address specified does not match the .Tn FTP command connection, or if the remote TCP port number is less than .Dv IPPORT_RESERVED . It is .Em strongly encouraged that this option be used, especially for sites concerned with potential security problems with .Tn FTP bounce attacks. If .Ar class is .Dq none or .Sy off is specified, disable this feature, otherwise enable it. .It Sy chroot Ar class Op Sy pathformat If .Ar pathformat is not specified or .Ar class is .Dq none , use the default behavior (see below). Otherwise, .Ar pathformat is parsed to create a directory to create as the root directory with .Xr chroot 2 into upon login. .Pp .Ar pathformat can contain the following escape strings: .Bl -tag -width "Escape" -offset indent -compact .It Sy "Escape" .Sy Description .It "\&%c" Class name. .It "\&%d" Home directory of user. .It "\&%u" User name. .It "\&%\&%" A .Dq \&% character. .El .Pp The default root directory is: .Bl -tag -width "CHROOT" -offset indent -compact .It Sy CHROOT The user's home directory. .It Sy GUEST If .Fl a Ar anondir is specified, use .Ar anondir , otherwise the home directory of the .Sq ftp user. .It Sy REAL By default no .Xr chroot 2 is performed. .El .It Sy classtype Ar class Ar type Set the class type of .Ar class to .Ar type (see above). .It Sy conversion Ar class Ar suffix Op Ar "type disable command" Define an automatic in-line file conversion. If a file to retrieve ends in .Ar suffix , and a real file (sans .Ar suffix ) exists, then the output of .Ar command is returned instead of the contents of the file. .Pp .Bl -tag -width "disable" -offset indent .It Ar suffix The suffix to initiate the conversion. .It Ar type A list of valid file types for the conversion. Valid types are: .Sq f (file), and .Sq d (directory). .It Ar disable The name of file that will prevent conversion if it exists. A file name of .Dq Pa \&. will prevent this disabling action (i.e., the conversion is always permitted.) .It Ar command The command to run for the conversion. The first word should be the full path name of the command, as .Xr execv 3 is used to execute the command. All instances of the word .Dq %s in .Ar command are replaced with the requested file (sans .Ar suffix ) . .El .Pp Conversion directives specified later in the file override earlier conversions with the same suffix. .It Sy denyquick Ar class Op Sy off Enforce .Xr ftpusers 5 rules after the .Sy USER command is received, rather than after the .Sy PASS command is received. Whilst enabling this feature may allow information leakage about available accounts (for example, if you allow some users of a .Sy REAL or .Sy CHROOT class but not others), it is useful in preventing a denied user (such as .Sq root ) from entering their password across an insecure connection. This option is .Em strongly recommended for servers which run an anonymous-only service. If .Ar class is .Dq none or .Sy off is specified, disable this feature, otherwise enable it. .It Sy display Ar class Op Ar file If .Ar file is not specified or .Ar class is .Dq none , disable this. Otherwise, each time the user enters a new directory, check if .Ar file exists, and if so, display its contents to the user. Escape sequences are supported; refer to .Sx Display file escape sequences in .Xr ftpd 8 for more information. .It Sy hidesymlinks Ar class Op Sy off If .Ar class is .Dq none or .Sy off is specified, disable this feature. Otherwise, the .Sy LIST command lists symbolic links as the file or directory the link references .Pq Dq Li "ls -LlA" . Servers which run an anonymous service may wish to enable this feature for .Sy GUEST users, so that symbolic links do not leak names in directories that are not searchable by .Sy GUEST users. .It Sy homedir Ar class Op Sy pathformat If .Ar pathformat is not specified or .Ar class is .Dq none , use the default behavior (see below). Otherwise, .Ar pathformat is parsed to create a directory to change into upon login, and to use as the .Sq home directory of the user for tilde expansion in pathnames, etc. .Ar pathformat is parsed as per the .Sy chroot directive. .Pp The default home directory is the home directory of the user for .Sy REAL users, and .Pa / for .Sy GUEST and .Sy CHROOT users. .It Sy limit Ar class Op Ar count Op Ar file Limit the maximum number of concurrent connections for .Ar class to .Ar count , with .Sq \-1 meaning unlimited connections. If the limit is exceeded and .Ar file is specified, display its contents to the user. If .Ar class is .Dq none or .Ar count is not specified, disable this. If .Ar file is a relative path, it will be searched for in .Pa /etc (which can be overridden with .Fl c Ar confdir ) . .It Sy maxfilesize Ar class Op Ar size Set the maximum size of an uploaded file to .Ar size , with .Sq \-1 meaning unlimited connections. If .Ar class is .Dq none or .Ar size is not specified, disable this. .It Sy maxtimeout Ar class Op Ar time Set the maximum timeout period that a client may request, defaulting to two hours. This cannot be less than 30 seconds, or the value for .Sy timeout . If .Ar class is .Dq none or .Ar time is not specified, use the default. .It Sy mmapsize Ar class Op Ar size Set the size of the sliding window to map a file using .Xr mmap 2 . If zero, .Xr ftpd 8 will use .Xr read 2 instead. The default is zero. This option affects only binary transfers. If .Ar class is .Dq none or .Ar size is not specified, use the default. .It Sy modify Ar class Op Sy off If .Ar class is .Dq none or .Sy off is specified, disable the following commands: .Sy CHMOD , .Sy DELE , .Sy MKD , .Sy RMD , .Sy RNFR , and .Sy UMASK . Otherwise, enable them. .It Sy motd Ar class Op Ar file If .Ar file is not specified or .Ar class is .Dq none , disable this. Otherwise, use .Ar file as the message of the day file to display after login. Escape sequences are supported; refer to .Sx Display file escape sequences in .Xr ftpd 8 for more information. If .Ar file is a relative path, it will be searched for in .Pa /etc (which can be overridden with .Fl c Ar confdir ) . .It Sy notify Ar class Op Ar fileglob If .Ar fileglob is not specified or .Ar class is .Dq none , disable this. Otherwise, each time the user enters a new directory, notify the user of any files matching .Ar fileglob . .It Sy passive Ar class Op Sy off If .Ar class is .Dq none or .Sy off is specified, prevent passive .Sy ( PASV , .Sy LPSV , and .Sy EPSV ) connections. Otherwise, enable them. .It Sy portrange Ar class Op Ar min Ar max Set the range of port number which will be used for the passive data port. .Ar max must be greater than .Ar min , and both numbers must be between .Dv IPPORT_RESERVED (1024) and 65535. If .Ar class is .Dq none or no arguments are specified, disable this. .It Sy private Ar class Op Sy off If .Ar class is .Dq none or .Sy off is specified, do not display class information in the output of the .Sy STAT command. Otherwise, display the information. .It Sy rateget Ar class Op Ar rate Set the maximum get .Pq Sy RETR transfer rate throttle for .Ar class to .Ar rate bytes per second. If .Ar rate is 0, the throttle is disabled. If .Ar class is .Dq none or .Ar rate is not specified, disable this. .It Sy rateput Ar class Op Ar rate Set the maximum put .Pq Sy STOR transfer rate throttle for .Ar class to .Ar rate bytes per second. If .Ar rate is 0, the throttle is disabled. If .Ar class is .Dq none or .Ar rate is not specified, disable this. .It Sy readsize Ar class Op Ar size Set the size of the read buffer to .Xr read 2 a file. The default is the file system block size. This option affects only binary transfers. If .Ar class is .Dq none or .Ar size is not specified, use the default. .It Sy recvbufsize Ar class Op Ar size Set the size of the socket receive buffer. The default is zero and the system default value will be used. This option affects only passive transfers. If .Ar class is .Dq none or .Ar size is not specified, use the default. .It Sy sanenames Ar class Op Sy off If .Ar class is .Dq none or .Sy off is specified, allow uploaded file names to contain any characters valid for a file name. Otherwise, only permit file names which don't start with a .Sq \&. and only comprise of characters from the set .Dq [-+,._A-Za-z0-9] . .It Sy sendbufsize Ar class Op Ar size Set the size of the socket send buffer. The default is zero and the system default value will be used. This option affects only binary transfers. If .Ar class is .Dq none or .Ar size is not specified, use the default. .It Sy sendlowat Ar class Op Ar size Set the low water mark of socket send buffer. The default is zero and system default value will be used. This option affects only for binary transfer. If .Ar class is .Dq none or .Ar size is not specified, use the default. .It Sy template Ar class Op Ar refclass Define .Ar refclass as the .Sq template for .Ar class ; any reference to .Ar refclass in following directives will also apply to members of .Ar class . This is useful to define a template class so that other classes which are to share common attributes can be easily defined without unnecessary duplication. There can be only one template defined at a time. If .Ar refclass is not specified, disable the template for .Ar class . .It Sy timeout Ar class Op Ar time Set the inactivity timeout period. (the default is fifteen minutes). This cannot be less than 30 seconds, or greater than the value for .Sy maxtimeout . If .Ar class is .Dq none or .Ar time is not specified, use the default. .It Sy umask Ar class Op Ar umaskval Set the umask to .Ar umaskval . If .Ar class is .Dq none or .Ar umaskval is not specified, set to the default of .Li 027 . .It Sy upload Ar class Op Sy off If .Ar class is .Dq none or .Sy off is specified, disable the following commands: .Sy APPE , .Sy STOR , and .Sy STOU , as well as the modify commands: .Sy CHMOD , .Sy DELE , .Sy MKD , .Sy RMD , .Sy RNFR , and .Sy UMASK . Otherwise, enable them. .It Sy writesize Ar class Op Ar size Limit the number of bytes to .Xr write 2 at a time. The default is zero, which means all the data available as a result of .Xr mmap 2 or .Xr read 2 will be written at a time. This option affects only binary transfers. If .Ar class is .Dq none or .Ar size is not specified, use the default. .El .Ss Numeric argument suffix parsing Where command arguments are numeric, a decimal number is expected. Two or more numbers may be separated by an .Dq x to indicate a product. Each number may have one of the following optional suffixes: .Bl -tag -width 3n -offset indent -compact .It b Block; multiply by 512 .It k Kibi; multiply by 1024 (1 KiB) .It m Mebi; multiply by 1048576 (1 MiB) .It g Gibi; multiply by 1073741824 (1 GiB) .It t Tebi; multiply by 1099511627776 (1 TiB) .It w Word; multiply by the number of bytes in an integer .El .Pp See .Xr strsuftoll 3 for more information. .Sh DEFAULTS The following defaults are used: .Pp .Bd -literal -offset indent -compact checkportcmd all classtype chroot CHROOT classtype guest GUEST classtype real REAL display none limit all \-1 # unlimited connections maxtimeout all 7200 # 2 hours modify all motd all motd notify none passive all timeout all 900 # 15 minutes umask all 027 upload all modify guest off umask guest 0707 .Ed .Sh FILES .Bl -tag -width /usr/share/examples/ftpd/ftpd.conf -compact .It Pa /etc/ftpd.conf This file. .It Pa /usr/share/examples/ftpd/ftpd.conf A sample .Nm file. .El .Sh SEE ALSO .Xr strsuftoll 3 , .Xr ftpchroot 5 , .Xr ftpusers 5 , .Xr ftpd 8 .Sh HISTORY The .Nm functionality was implemented in .Nx 1.3 and later releases by Luke Mewburn, based on work by Simon Burge. src/libexec/ftpd/ftpusers.5010064400011300000175000000112371106262416000161100ustar00srcmastrnetbsd.\" $NetBSD: ftpusers.5,v 1.17 2008/09/13 02:41:52 lukem Exp $ .\" .\" Copyright (c) 1997-2008 The NetBSD Foundation, Inc. .\" All rights reserved. .\" .\" This code is derived from software contributed to The NetBSD Foundation .\" by Luke Mewburn. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" .\" THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS .\" ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED .\" TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR .\" PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS .\" BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR .\" CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF .\" SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS .\" INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN .\" CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) .\" ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE .\" POSSIBILITY OF SUCH DAMAGE. .\" .Dd July 17, 2000 .Dt FTPUSERS 5 .Os .Sh NAME .Nm ftpusers , .Nm ftpchroot .Nd .Xr ftpd 8 access control file .Sh DESCRIPTION The .Nm file provides user access control for .Xr ftpd 8 by defining which users may login. .Pp If the .Nm file does not exist, all users are denied access. .Pp A .Dq \e is the escape character; it can be used to escape the meaning of the comment character, or if it is the last character on a line, extends a configuration directive across multiple lines. A .Dq # is the comment character, and all characters from it to the end of line are ignored (unless it is escaped with the escape character). .Pp The syntax of each line is: .Dl userglob[:groupglob][@host] [directive [class]] .Pp These elements are: .Bl -tag -width "groupglob" -offset indent .It Sy userglob matched against the user name, using .Xr fnmatch 3 glob matching (e.g, .Sq f* ) . .It Sy groupglob matched against all the groups that the user is a member of, using .Xr fnmatch 3 glob matching (e.g, .Sq *src ) . .It Sy host either a CIDR address (refer to .Xr inet_net_pton 3 ) to match against the remote address (e.g, .Sq 1.2.3.4/24 ) , or an .Xr fnmatch 3 glob to match against the remote hostname (e.g, .Sq *.NetBSD.org ) . .It Sy directive If .Dq allow or .Dq yes the user is allowed access. If .Dq deny or .Dq no , or .Sy directive is not given, the user is denied access. .It Sy class defines the class to use in .Xr ftpd.conf 5 . .El .Pp If .Sy class is not given, it defaults to one of the following: .Bl -tag -width "chroot" -offset indent .It Sy chroot If there is a match in .Sx /etc/ftpchroot for the user. .It Sy guest If the user name is .Dq anonymous or .Sq ftp . .It Sy real If neither of the above is true. .El .Pp No further comparisons are attempted after the first successful match. If no match is found, the user is granted access. This syntax is backward-compatible with the old syntax. .Pp If a user requests a guest login, the .Xr ftpd 8 server checks to see that both .Dq anonymous and .Dq ftp have access, so if you deny all users by default, you will need to add both .Dq "anonymous allow" and .Dq "ftp allow" to .Pa /etc/ftpusers in order to allow guest logins. .Ss /etc/ftpchroot The file .Pa /etc/ftpchroot is used to determine which users will have their session's root directory changed (using .Xr chroot 2 ) , either to the directory specified in the .Xr ftpd.conf 5 .Sy chroot directive (if set), or to the home directory of the user. If the file does not exist, the root directory change is not performed. .Pp The syntax is similar to .Nm , except that the .Sy class argument is ignored. If there's a positive match, the session's root directory is changed. No further comparisons are attempted after the first successful match. This syntax is backward-compatible with the old syntax. .Sh FILES .Bl -tag -width /usr/share/examples/ftpd/ftpusers -compact .It Pa /etc/ftpchroot List of normal users who should have their ftp session's root directory changed by using .Xr chroot 2 . .It Pa /etc/ftpusers This file. .It Pa /usr/share/examples/ftpd/ftpusers A sample .Nm file. .El .Sh SEE ALSO .Xr fnmatch 3 , .Xr inet_net_pton 3 , .Xr ftpd.conf 5 , .Xr ftpd 8 src/libexec/ftpd/logutmp.c010064400011300000175000000120551163467263500160200ustar00srcmastrnetbsd/* $NetBSD: logutmp.c,v 1.12 2011/09/16 16:13:17 plunky Exp $ */ /* * Portions Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ /* * Portions Copyright (c) 1996, Jason Downs. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR(S) ``AS IS'' AND ANY EXPRESS * OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR(S) BE LIABLE FOR ANY DIRECT, * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint __RCSID("$NetBSD: logutmp.c,v 1.12 2011/09/16 16:13:17 plunky Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include #include #include #ifdef SUPPORT_UTMPX #include #endif #include #include "extern.h" #ifdef SUPPORT_UTMP typedef struct utmp UTMP; static int fd = -1; static int topslot = -1; /* * Special versions of login()/logout() which hold the utmp file open, * for use with ftpd. */ void ftpd_login(const struct utmp *ut) { UTMP ubuf; /* * First, loop through /etc/ttys, if needed, to initialize the * top of the tty slots, since ftpd has no tty. */ if (topslot < 0) { topslot = 0; while (getttyent() != NULL) topslot++; } if ((topslot < 0) || ((fd < 0) && (fd = open(_PATH_UTMP, O_RDWR|O_CREAT, 0644)) < 0)) return; /* * Now find a slot that's not in use... */ (void)lseek(fd, (off_t)(topslot * sizeof(UTMP)), SEEK_SET); while (1) { if (read(fd, &ubuf, sizeof(UTMP)) == sizeof(UTMP)) { if (!ubuf.ut_name[0]) { (void)lseek(fd, -(off_t)sizeof(UTMP), SEEK_CUR); break; } topslot++; } else { (void)lseek(fd, (off_t)(topslot * sizeof(UTMP)), SEEK_SET); break; } } (void)write(fd, ut, sizeof(UTMP)); } int ftpd_logout(const char *line) { UTMP ut; int rval; rval = 0; if (fd < 0) return(rval); (void)lseek(fd, 0, SEEK_SET); while (read(fd, &ut, sizeof(UTMP)) == sizeof(UTMP)) { if (!ut.ut_name[0] || strncmp(ut.ut_line, line, UT_LINESIZE)) continue; memset(ut.ut_name, 0, UT_NAMESIZE); memset(ut.ut_host, 0, UT_HOSTSIZE); (void)time(&ut.ut_time); (void)lseek(fd, -(off_t)sizeof(UTMP), SEEK_CUR); (void)write(fd, &ut, sizeof(UTMP)); rval = 1; } return(rval); } #endif /* SUPPORT_UTMP */ #ifdef SUPPORT_UTMPX /* * special version of loginx which updates utmpx only. */ void ftpd_loginx(const struct utmpx *ut) { (void)pututxline(ut); } int ftpd_logoutx(const char *line, int status, int mode) { return logoutx(line, status, mode); } #endif src/libexec/ftpd/logwtmp.c010064400011300000175000000101431256173452000160060ustar00srcmastrnetbsd/* $NetBSD: logwtmp.c,v 1.27 2015/08/09 20:34:24 shm Exp $ */ /* * Copyright (c) 1988, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * */ #include #ifndef lint #if 0 static char sccsid[] = "@(#)logwtmp.c 8.1 (Berkeley) 6/4/93"; #else __RCSID("$NetBSD: logwtmp.c,v 1.27 2015/08/09 20:34:24 shm Exp $"); #endif #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include #include #include #ifdef SUPPORT_UTMP #include #endif #ifdef SUPPORT_UTMPX #include #endif #include #ifdef KERBEROS5 #include #endif #include "extern.h" #ifdef SUPPORT_UTMP static int fd = -1; void ftpd_initwtmp(void) { const char *wf = _PATH_WTMP; if ((fd = open(wf, O_WRONLY|O_APPEND, 0)) == -1) syslog(LOG_ERR, "Cannot open `%s' (%m)", wf); } /* * Modified version of logwtmp that holds wtmp file open * after first call, for use with ftp (which may chroot * after login, but before logout). */ void ftpd_logwtmp(const char *line, const char *name, const char *host) { struct utmp ut; struct stat buf; if (fd < 0) return; if (fstat(fd, &buf) == 0) { (void)strncpy(ut.ut_line, line, sizeof(ut.ut_line)); (void)strncpy(ut.ut_name, name, sizeof(ut.ut_name)); (void)strncpy(ut.ut_host, host, sizeof(ut.ut_host)); (void)time(&ut.ut_time); if (write(fd, (char *)&ut, sizeof(struct utmp)) != sizeof(struct utmp)) (void)ftruncate(fd, buf.st_size); } } #endif #ifdef SUPPORT_UTMPX static int fdx = -1; void ftpd_initwtmpx(void) { const char *wf = _PATH_WTMPX; if ((fdx = open(wf, O_WRONLY|O_APPEND, 0)) == -1) syslog(LOG_ERR, "Cannot open `%s' (%m)", wf); } void ftpd_logwtmpx(const char *line, const char *name, const char *host, struct sockinet *haddr, int status, int utx_type) { struct utmpx ut; struct stat buf; if (fdx < 0) return; if (fstat(fdx, &buf) == 0) { (void)memset(&ut, 0, sizeof(ut)); (void)strncpy(ut.ut_line, line, sizeof(ut.ut_line)); (void)strncpy(ut.ut_name, name, sizeof(ut.ut_name)); (void)strncpy(ut.ut_host, host, sizeof(ut.ut_host)); if (haddr) (void)memcpy(&ut.ut_ss, &haddr->si_su, haddr->su_len); ut.ut_type = utx_type; if (WIFEXITED(status)) ut.ut_exit.e_exit = (uint16_t)WEXITSTATUS(status); if (WIFSIGNALED(status)) ut.ut_exit.e_termination = (uint16_t)WTERMSIG(status); (void)gettimeofday(&ut.ut_tv, NULL); if(write(fdx, (char *)&ut, sizeof(struct utmpx)) != sizeof(struct utmpx)) (void)ftruncate(fdx, buf.st_size); } } #endif src/libexec/ftpd/pathnames.h010064400011300000175000000040141015663714600163060ustar00srcmastrnetbsd/* $NetBSD: pathnames.h,v 1.12 2004/12/11 18:37:26 christos Exp $ */ /* * Copyright (c) 1989, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * * @(#)pathnames.h 8.1 (Berkeley) 6/4/93 */ #include #ifndef _DEFAULT_CONFDIR #define _DEFAULT_CONFDIR "/etc" #endif #define _NAME_FTPCHROOT "ftpchroot" #define _NAME_FTPDCONF "ftpd.conf" #define _NAME_FTPLOGINMESG "motd" #define _NAME_FTPUSERS "ftpusers" #define _NAME_FTPWELCOME "ftpwelcome" #define _PATH_CLASSPIDS "/var/run/ftpd.pids-" #define TMPFILE "/tmp/ftpdXXXXXXX" src/libexec/ftpd/pfilter.c010064400011300000175000000006371370001045500157570ustar00srcmastrnetbsd/* $NetBSD: pfilter.c,v 1.4 2020/07/04 05:18:37 lukem Exp $ */ #include #include #include #include "pfilter.h" static struct blocklist *blstate; void pfilter_open(void) { if (blstate == NULL) blstate = blocklist_open(); } void pfilter_notify(int what, const char *msg) { pfilter_open(); if (blstate == NULL) return; blocklist_r(blstate, what, STDIN_FILENO, msg); } src/libexec/ftpd/pfilter.h010064400011300000175000000002011370001045500157470ustar00srcmastrnetbsd/* $NetBSD: pfilter.h,v 1.2 2020/07/04 05:18:37 lukem Exp $ */ void pfilter_open(void); void pfilter_notify(int, const char *); src/libexec/ftpd/popen.c010064400011300000175000000157411267237366600154640ustar00srcmastrnetbsd/* $NetBSD: popen.c,v 1.38 2016/03/17 00:17:58 christos Exp $ */ /*- * Copyright (c) 1999-2009 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Luke Mewburn. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ /* * Copyright (c) 1988, 1993, 1994 * The Regents of the University of California. All rights reserved. * * This code is derived from software written by Ken Arnold and * published in UNIX Review, Vol. 6, No. 8. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * */ #include #ifndef lint #if 0 static char sccsid[] = "@(#)popen.c 8.3 (Berkeley) 4/6/94"; #else __RCSID("$NetBSD: popen.c,v 1.38 2016/03/17 00:17:58 christos Exp $"); #endif #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include #include #include #ifdef KERBEROS5 #include #endif #include "extern.h" #define INCR 100 /* * Special version of popen which avoids call to shell. This ensures no-one * may create a pipe to a hidden program as a side effect of a list or dir * command. * If stderrfd != -1, then send stderr of a read command there, * otherwise close stderr. */ static int *pids; static int fds; extern int ls_main(int, char *[]); FILE * ftpd_popen(const char *argv[], const char *ptype, int stderrfd) { FILE * volatile iop; int argc, pdes[2], pid; volatile int isls; char **pop; StringList *sl; iop = NULL; isls = 0; if ((*ptype != 'r' && *ptype != 'w') || ptype[1]) return (NULL); if (!pids) { if ((fds = getdtablesize()) <= 0) return (NULL); if ((pids = (int *)malloc((unsigned int)(fds * sizeof(int)))) == NULL) return (NULL); memset(pids, 0, fds * sizeof(int)); } if (pipe(pdes) < 0) return (NULL); if ((sl = sl_init()) == NULL) goto pfree; /* glob each piece */ if (sl_add(sl, ftpd_strdup(argv[0])) == -1) goto pfree; for (argc = 1; argv[argc]; argc++) { glob_t gl; int flags = GLOB_BRACE|GLOB_NOCHECK|GLOB_TILDE|GLOB_LIMIT; memset(&gl, 0, sizeof(gl)); if (glob(argv[argc], flags, NULL, &gl) || gl.gl_pathv == NULL) { if (sl_add(sl, ftpd_strdup(argv[argc])) == -1) { globfree(&gl); goto pfree; } } else { for (pop = gl.gl_pathv; *pop; pop++) { if (sl_add(sl, ftpd_strdup(*pop)) == -1) { globfree(&gl); goto pfree; } } } globfree(&gl); } if (sl_add(sl, NULL) == -1) goto pfree; #ifndef NO_INTERNAL_LS isls = (strcmp(sl->sl_str[0], INTERNAL_LS) == 0); #endif pid = isls ? fork() : vfork(); switch (pid) { case -1: /* error */ (void)close(pdes[0]); (void)close(pdes[1]); goto pfree; /* NOTREACHED */ case 0: /* child */ if (*ptype == 'r') { if (pdes[1] != STDOUT_FILENO) { dup2(pdes[1], STDOUT_FILENO); (void)close(pdes[1]); } if (stderrfd == -1) (void)close(STDERR_FILENO); else dup2(stderrfd, STDERR_FILENO); (void)close(pdes[0]); } else { if (pdes[0] != STDIN_FILENO) { dup2(pdes[0], STDIN_FILENO); (void)close(pdes[0]); } (void)close(pdes[1]); } #ifndef NO_INTERNAL_LS if (isls) { /* use internal ls */ optreset = optind = optopt = 1; closelog(); exit(ls_main(sl->sl_cur - 1, sl->sl_str)); } #endif execv(sl->sl_str[0], sl->sl_str); _exit(1); } /* parent; assume fdopen can't fail... */ if (*ptype == 'r') { iop = fdopen(pdes[0], ptype); (void)close(pdes[1]); } else { iop = fdopen(pdes[1], ptype); (void)close(pdes[0]); } pids[fileno(iop)] = pid; pfree: if (sl) sl_free(sl, 1); return (iop); } int ftpd_pclose(FILE *iop) { int fdes, status; pid_t pid; sigset_t nsigset, osigset; /* * pclose returns -1 if stream is not associated with a * `popened' command, or, if already `pclosed'. */ if (pids == 0 || pids[fdes = fileno(iop)] == 0) return (-1); (void)fclose(iop); sigemptyset(&nsigset); sigaddset(&nsigset, SIGINT); sigaddset(&nsigset, SIGQUIT); sigaddset(&nsigset, SIGHUP); sigprocmask(SIG_BLOCK, &nsigset, &osigset); while ((pid = waitpid(pids[fdes], &status, 0)) < 0 && errno == EINTR) continue; sigprocmask(SIG_SETMASK, &osigset, NULL); pids[fdes] = 0; if (pid < 0) return (pid); if (WIFEXITED(status)) return (WEXITSTATUS(status)); return (1); } src/libexec/ftpd/version.h010064400011300000175000000031341450606225700160130ustar00srcmastrnetbsd/* $NetBSD: version.h,v 1.80 2023/09/30 18:10:55 shm Exp $ */ /*- * Copyright (c) 1999-2023 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Luke Mewburn. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #ifndef FTPD_VERSION #define FTPD_VERSION "NetBSD-ftpd 20230930" #endif src/libexec/getNAME004075500011300000175000000000001504273241000143525ustar00srcmastrnetbsdsrc/libexec/getNAME/CVS004075500011300000175000000000001504273241000150055ustar00srcmastrnetbsdsrc/libexec/getNAME/CVS/Root010064400011300000175000000000441504273241000157250ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/getNAME/CVS/Repository010064400011300000175000000000241504273241000171570ustar00srcmastrnetbsdsrc/libexec/getNAME src/libexec/getNAME/CVS/Entries010064400011300000175000000002371504273241000164170ustar00srcmastrnetbsd/Makefile/1.6/Sat Nov 1 15:03:51 1997//Tnetbsd-11 /getNAME.8/1.12/Thu May 29 14:51:25 2008//Tnetbsd-11 /getNAME.c/1.27/Mon Aug 29 20:41:06 2011//Tnetbsd-11 D src/libexec/getNAME/CVS/Tag010064400011300000175000000000131522207752200155170ustar00srcmastrnetbsdTnetbsd-11 src/libexec/getNAME/Makefile010064400011300000175000000002310642664232700160770ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.6 1997/11/01 15:03:51 mrg Exp $ # from: @(#)Makefile 8.1 (Berkeley) 6/4/93 PROG= getNAME MAN= getNAME.8 .include src/libexec/getNAME/getNAME.8010064400011300000175000000054051101754135500157470ustar00srcmastrnetbsd.\" $NetBSD: getNAME.8,v 1.12 2008/05/29 14:51:25 mrg Exp $ .\" .\" Copyright (c) 1997 Matthew R. Green .\" All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" .\" THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR .\" IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES .\" OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. .\" IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, .\" INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, .\" BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; .\" LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED .\" AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, .\" OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF .\" SUCH DAMAGE. .\" .Dd October 31, 1997 .Dt GETNAME 8 .Os .Sh NAME .Nm getNAME .Nd "get NAME sections from manual source for whatis/apropos data base" .Sh SYNOPSIS .Nm .Op Fl itvw .Ar path Op Ar path ... .Sh DESCRIPTION The .Nm utility looks inside manual page sources to find the name of the page. It can be used to create a table of contents, report the style of manual, or to create an introductory manual page. By default, .Nm returns data for use in an .Xr apropos 1 database. .Nm is designed to be called from manual grovelling tools, not to be used directly. .Pp Historically, .Xr makewhatis 8 used to use .Nm to get manpage names, but that's no longer the case. .Sh OPTIONS The following options are available: .Bl -tag -width Ds .It Fl i Print information useful in creating an introduction manual. See .Xr intro 1 , .Xr intro 2 , etc. for examples. .It Fl t Print information useful for creating a table of contents. .It Fl v Complain about incorrectly formatted man pages. .It Fl w Print information whether the manpage uses traditional man .Pq Dq OLD , new mandoc .Pq Dq NEW , or some unknown .Pq Dq UNKNOWN macros. .El .Sh SEE ALSO .Xr man 1 , .Xr catman 8 , .Xr makewhatis 8 .Sh HISTORY The .Nm command first appeared in .Bx 2.0 . .Sh BUGS It would be nice if .Nm could deal with compressed and/or preformatted manual pages. Looks for .S[Hh] NAME for consistency checking, but that breaks man pages in other languages. src/libexec/getNAME/getNAME.c010064400011300000175000000262461162677454200160440ustar00srcmastrnetbsd/* $NetBSD: getNAME.c,v 1.27 2011/08/29 20:41:06 joerg Exp $ */ /*- * Copyright (c) 1997, Christos Zoulas. All rights reserved. * Copyright (c) 1980, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint __COPYRIGHT("@(#) Copyright (c) 1980, 1993\ The Regents of the University of California. All rights reserved."); #if 0 static char sccsid[] = "@(#)getNAME.c 8.1 (Berkeley) 6/30/93"; #else __RCSID("$NetBSD: getNAME.c,v 1.27 2011/08/29 20:41:06 joerg Exp $"); #endif #endif /* not lint */ /* * Get name sections from manual pages. * -t for building toc * -i for building intro entries * -w for querying type of manual source * -v verbose * other apropos database */ #include #include #include #include #include #include static int tocrc; static int intro; static int typeflag; static int verbose; #define SLOP 10 /* strlen(" () - ") < 10 */ static char *linebuf = NULL; static size_t maxlen = 0; static void doname(char *); static void dorefname(char *); static void getfrom(char *); static void oldman(char *, char *); static void newman(char *, char *); static void remcomma(char *, size_t *); static void remquote(char *, size_t *); static void fixxref(char *, size_t *); static void split(char *, char *); __dead static void usage(void); int main(int, char *[]); /* The .SH NAMEs that are allowed. */ static const char *names[] = { "name", "namn", 0 }; int main(int argc, char *argv[]) { int ch; while ((ch = getopt(argc, argv, "itvw")) != -1) switch (ch) { case 'i': intro = 1; break; case 't': tocrc = 1; break; case 'v': verbose = 1; break; case 'w': typeflag = 1; break; case '?': default: usage(); } argc -= optind; argv += optind; if (!*argv) usage(); for (; *argv; ++argv) getfrom(*argv); return 0; } static void getfrom(char *pathname) { char *name; char *line; size_t len; if (freopen(pathname, "r", stdin) == 0) { warn("Cannot open `%s'", pathname); return; } if ((name = strrchr(pathname, '/')) != NULL) name++; else name = pathname; for (;;) { if ((line = fgetln(stdin, &len)) == NULL) { if (typeflag) (void)printf("%-60s\tUNKNOWN\n", pathname); if (verbose) warnx("missing .TH or .Dt section in `%s'", pathname); return; } if (len < 3) continue; if (line[0] != '.') continue; if ((line[1] == 'T' && line[2] == 'H') || (line[1] == 't' && line[2] == 'h')) { oldman(pathname, name); return; } if (line[1] == 'D' && line[2] == 't') { newman(pathname, name); return; } } } static void oldman(char *pathname, char *name) { char *line, *ext, *s, *newlinebuf; size_t len, i, extlen; size_t curlen = 0; size_t newmaxlen; size_t ocurlen = -1; if (typeflag) { (void)printf("%-60s\tOLD\n", pathname); return; } for (;;) { if ((line = fgetln(stdin, &len)) == NULL) { if (verbose) warnx("missing .SH section in `%s'", pathname); return; } if (len < 4) continue; if (line[0] != '.') continue; if (line[1] == 'S' && line[2] == 'H') break; if (line[1] == 's' && line[2] == 'h') break; } for (s = &line[3]; s < &line[len] && (isspace((unsigned char) *s) || *s == '"' || *s == '\''); s++) continue; if (s == &line[len]) { warnx("missing argument to .SH in `%s'", pathname); return; } for (i = 0; names[i]; i++) if (strncasecmp(s, names[i], strlen(names[i])) == 0) break; if (names[i] == NULL) { warnx("first .SH section is not \"NAME\" in `%s'", pathname); return; } again: if (tocrc) doname(name); for (i = 0;; i++) { if ((line = fgetln(stdin, &len)) == NULL) break; if (line[0] == '.') { if (line[1] == '\\' && line[2] == '"') continue; /* [nt]roff comment */ if (line[1] == 'S' && line[2] == 'H') break; if (line[1] == 's' && line[2] == 'h') break; if (line[1] == 'P' && line[2] == 'P') break; if (line[1] == 'b' && line[2] == 'r') { if (intro) split(linebuf, name); else (void)printf("%s\n", linebuf); curlen = ocurlen; goto again; } } if (line[len - 1] == '\n') { line[len - 1] = '\0'; len--; } if ((ext = strrchr(name, '.')) != NULL) { ext++; extlen = strlen(ext); } else extlen = 0; if (maxlen + extlen < curlen + len + SLOP) { newmaxlen = 2 * (curlen + len) + SLOP + extlen; if ((newlinebuf = realloc(linebuf, newmaxlen)) == NULL) err(1, NULL); linebuf = newlinebuf; maxlen = newmaxlen; } if (i != 0) linebuf[curlen++] = ' '; (void)memcpy(&linebuf[curlen], line, len); ocurlen = curlen; curlen += len; linebuf[curlen] = '\0'; if(!tocrc && !intro) { /* change the \- into (N) - */ if ((s = strstr(linebuf, "\\-")) != NULL) { (void)memmove(s + extlen + 3, s + 1, curlen - (s + 1 - linebuf)); curlen--; if (extlen) { *s++ = '('; while (*ext) *s++ = *ext++; *s++ = ')'; *s++ = ' '; curlen += extlen + 3; } linebuf[curlen] = '\0'; } } } if (intro) split(linebuf, name); else (void)printf("%s\n", linebuf); return; } static void newman(char *pathname, char *name) { char *line, *ext, *s, *newlinebuf; size_t len, i, extlen; size_t curlen = 0; size_t newmaxlen; if (typeflag) { (void)printf("%-60s\tNEW\n", pathname); return; } for (;;) { if ((line = fgetln(stdin, &len)) == NULL) { if (verbose) warnx("missing .Sh section in `%s'", pathname); return; } if (line[0] != '.') continue; if (line[1] == 'S' && line[2] == 'h') break; } for (s = &line[3]; s < &line[len] && isspace((unsigned char) *s); s++) continue; if (s == &line[len]) { warnx("missing argument to .Sh in `%s'", pathname); return; } for (i = 0; names[i]; i++) if (strncasecmp(s, names[i], strlen(names[i])) == 0) break; if (names[i] == NULL) { warnx("first .SH section is not \"NAME\" in `%s'", pathname); return; } if (tocrc) doname(name); for (i = 0;; i++) { if ((line = fgetln(stdin, &len)) == NULL) break; if (line[0] == '.') { if (line[1] == '\\' && line[2] == '"') continue; /* [nt]roff comment */ if (line[1] == 'S' && line[2] == 'h') break; } if (line[len - 1] == '\n') { line[len - 1] = '\0'; len--; } if ((ext = strrchr(name, '.')) != NULL) { ext++; extlen = strlen(ext); } else extlen = 0; if (maxlen + extlen < curlen + len + SLOP) { newmaxlen = 2 * (curlen + len) + SLOP + extlen; if ((newlinebuf = realloc(linebuf, newmaxlen)) == NULL) err(1, NULL); linebuf = newlinebuf; maxlen = newmaxlen; } if (i != 0) linebuf[curlen++] = ' '; remcomma(line, &len); if (line[0] != '.') { (void)memcpy(&linebuf[curlen], line, len); curlen += len; } else { remquote(line, &len); fixxref(line, &len); /* * Put section and dash between names and description. */ if (line[1] == 'N' && line[2] == 'd') { if(!tocrc && !intro) { if (extlen) { linebuf[curlen++] = '('; while (*ext) linebuf[curlen++] = *ext++; linebuf[curlen++] = ')'; linebuf[curlen++] = ' '; } } linebuf[curlen++] = '-'; linebuf[curlen++] = ' '; } /* * Skip over macro names. */ if (len <= 4) continue; (void)memcpy(&linebuf[curlen], &line[4], len - 4); curlen += len - 4; } } linebuf[curlen] = '\0'; if (intro) split(linebuf, name); else (void)printf("%s\n", linebuf); } /* * convert " ," -> " " */ static void remcomma(char *line, size_t *len) { char *pline = line, *loc; size_t plen = *len; while ((loc = memchr(pline, ' ', plen)) != NULL) { plen -= loc - pline + 1; pline = loc; if (loc[1] == ',') { (void)memcpy(loc, &loc[1], plen); (*len)--; } else pline++; } } /* * Get rid of quotes in macros. */ static void remquote(char *line, size_t *len) { char *loc; char *pline = &line[4]; size_t plen = *len - 4; if (*len < 4) return; while ((loc = memchr(pline, '"', plen)) != NULL) { plen -= loc - pline + 1; pline = loc; (void)memcpy(loc, &loc[1], plen); (*len)--; } } /* * Handle cross references */ static void fixxref(char *line, size_t *len) { char *loc; char *pline = &line[4]; size_t plen = *len - 4; if (*len < 4) return; if (line[1] == 'X' && line[2] == 'r') { if ((loc = memchr(pline, ' ', plen)) != NULL) { *loc++ = '('; loc++; *loc++ = ')'; *len = loc - line; } } } static void doname(char *name) { char *dp = name, *ep; again: while (*dp && *dp != '.') (void)putchar(*dp++); if (*dp) for (ep = dp+1; *ep; ep++) if (*ep == '.') { (void)putchar(*dp++); goto again; } (void)putchar('('); if (*dp) dp++; while (*dp) (void)putchar(*dp++); (void)putchar(')'); (void)putchar(' '); } static void split(char *line, char *name) { char *cp, *dp; char *sp; const char *sep; cp = strchr(line, '-'); if (cp == 0) return; sp = cp + 1; for (--cp; *cp == ' ' || *cp == '\t' || *cp == '\\'; cp--) ; *++cp = '\0'; while (*sp && (*sp == ' ' || *sp == '\t')) sp++; for (sep = "", dp = line; dp && *dp; dp = cp, sep = "\n") { cp = strchr(dp, ','); if (cp) { char *tp; for (tp = cp - 1; *tp == ' ' || *tp == '\t'; tp--) ; *++tp = '\0'; for (++cp; *cp == ' ' || *cp == '\t'; cp++) ; } (void)printf("%s%s\t", sep, dp); dorefname(name); (void)printf("\t- %s", sp); } (void)putchar('\n'); } static void dorefname(char *name) { char *dp = name, *ep; again: while (*dp && *dp != '.') (void)putchar(*dp++); if (*dp) for (ep = dp+1; *ep; ep++) if (*ep == '.') { (void)putchar(*dp++); goto again; } (void)putchar('.'); if (*dp) dp++; while (*dp) (void)putchar(*dp++); } static void usage(void) { (void)fprintf(stderr, "Usage: %s [-itw] file ...\n", getprogname()); exit(1); } src/libexec/getty004075500011300000175000000000001504273241000142665ustar00srcmastrnetbsdsrc/libexec/getty/CVS004075500011300000175000000000001504273241000147215ustar00srcmastrnetbsdsrc/libexec/getty/CVS/Root010064400011300000175000000000441504273241000156410ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/getty/CVS/Repository010064400011300000175000000000221504273241000170710ustar00srcmastrnetbsdsrc/libexec/getty src/libexec/getty/CVS/Entries010064400011300000175000000010061504273241000163260ustar00srcmastrnetbsd/Makefile/1.20/Sun Aug 11 05:42:41 2013//Tnetbsd-11 /extern.h/1.7/Sun Aug 11 05:42:41 2013//Tnetbsd-11 /getty.8/1.19/Wed Feb 26 15:44:57 2020//Tnetbsd-11 /gettytab.5/1.40/Mon Jul 15 01:26:15 2019//Tnetbsd-11 /gettytab.h/1.17/Sun Aug 11 05:42:41 2013//Tnetbsd-11 /init.c/1.18/Sun Aug 11 05:42:41 2013//Tnetbsd-11 /main.c/1.68/Tue Oct 12 23:40:38 2021//Tnetbsd-11 /pathnames.h/1.9/Mon Feb 4 15:27:20 2008//Tnetbsd-11 /subr.c/1.35/Sun Aug 11 16:36:30 2013//Tnetbsd-11 /ttys.5/1.24/Sat Jul 6 07:24:01 2024//Tnetbsd-11 D src/libexec/getty/CVS/Tag010064400011300000175000000000131522207752200154330ustar00srcmastrnetbsdTnetbsd-11 src/libexec/getty/Makefile010064400011300000175000000004041220162212100157670ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.20 2013/08/11 05:42:41 dholland Exp $ # from: @(#)Makefile 8.1 (Berkeley) 6/4/93 PROG= getty SRCS= main.c init.c subr.c DPADD+= ${LIBUTIL} ${LIBTERMINFO} LDADD+= -lutil -lterminfo MAN= getty.8 gettytab.5 ttys.5 .include src/libexec/getty/extern.h010064400011300000175000000041761220162212100160170ustar00srcmastrnetbsd/* $NetBSD: extern.h,v 1.7 2013/08/11 05:42:41 dholland Exp $ */ /* * Copyright (c) 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * * from: @(#)extern.h 8.1 (Berkeley) 6/4/93 */ struct delayval; int adelay(int, struct delayval *); const char *autobaud(void); int delaybits(void); void edithost(const char *); void gendefaults(void); int getent(char *, char *); int getflag(char *); long getnum(char *); char *getstr(char *, char **); void gettable(const char *, char *); void makeenv(char *[]); const char *portselector(void); void set_ttydefaults(int); void setchars(void); void setdefaults(void); void setflags(int); int speed(int); src/libexec/getty/getty.8010064400011300000175000000103431362551117100155740ustar00srcmastrnetbsd.\" $NetBSD: getty.8,v 1.19 2020/02/26 15:44:57 riastradh Exp $ .\" .\" Copyright (c) 1980, 1991, 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. Neither the name of the University nor the names of its contributors .\" may be used to endorse or promote products derived from this software .\" without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF .\" SUCH DAMAGE. .\" .\" from: @(#)getty.8 8.1 (Berkeley) 6/4/93 .\" .Dd May 29, 2013 .Dt GETTY 8 .Os .Sh NAME .Nm getty .Nd set terminal modes for system access .Sh SYNOPSIS .Nm .Oo .Ar type .Op Ar tty .Oc .Sh DESCRIPTION The .Nm program is called by .Xr init 8 to open and initialize the tty line, read a login name, and invoke .Xr login 1 . The devices on which to run .Nm are normally determined by .Xr ttys 5 . .Pp The .Nm program can also recognize a Point to Point Protocol .Pq Tn PPP negotiation, and, if the .Sy pp attribute in .Xr gettytab 5 is set, invoke the program given by that string, e.g., .Xr pppd 8 , instead of .Xr login 1 . This makes it possible to use a single serial port for either a .Qq shell account with command line interface, or a .Tn PPP network link. .Pp The argument .Ar tty is the special device file in .Pa /dev to open for the terminal .Po for example, .Qq ttyh0 .Pc . If there is no argument or the argument is .Ql Fl , the tty line is assumed to be open as file descriptor 0. .Pp The .Ar type argument can be used to make .Nm treat the terminal line specially. This argument is used as an index into the .Xr gettytab 5 database, to determine the characteristics of the line. If there is no argument, or there is no such table, the .Em default table is used. If there is no .Pa /etc/gettytab a set of system defaults is used. If indicated by the table located, .Nm will clear the terminal screen, print a banner heading, and prompt for a login name. Usually either the banner or the login prompt will include the system hostname. .Pp .Nm uses the .Xr ttyaction 3 facility with an action of .Qq getty and user .Qq root to execute site-specific commands when it starts. .Pp Most of the default actions of .Nm can be circumvented, or modified, by a suitable .Xr gettytab 5 table. .Pp The .Nm program can be set to timeout after some interval, which will cause dial up lines to hang up if the login name is not entered reasonably quickly. .Sh FILES .Bl -tag -width /usr/libexec/getty -compact .It Pa /etc/gettytab .It Pa /etc/ttys .It Pa /usr/libexec/getty .El .Sh DIAGNOSTICS .Bl -diag .It "ttyxx: No such device or address." .It "ttyxx: No such file or address." A terminal which is turned on in the .Xr ttys 5 file cannot be opened, likely because the requisite lines are either not configured into the system, the associated device was not attached during boot-time system configuration, or the special file in .Pa /dev does not exist. .El .Sh SEE ALSO .Xr login 1 , .Xr ioctl 2 , .Xr ttyaction 3 , .Xr tty 4 , .Xr gettytab 5 , .Xr ttys 5 , .Xr init 8 , .Xr pppd 8 .Sh HISTORY A .Nm program appeared in .At v6 . src/libexec/getty/gettytab.5010064400011300000175000000323141351275306700162710ustar00srcmastrnetbsd.\" $NetBSD: gettytab.5,v 1.40 2019/07/15 01:26:15 uwe Exp $ .\" .\" Copyright (c) 1983, 1991, 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. Neither the name of the University nor the names of its contributors .\" may be used to endorse or promote products derived from this software .\" without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF .\" SUCH DAMAGE. .\" .\" from: @(#)gettytab.5 8.4 (Berkeley) 4/19/94 .\" .Dd April 5, 2012 .Dt GETTYTAB 5 .Os .Sh NAME .Nm gettytab .Nd terminal configuration data base .Sh SYNOPSIS .Nm .Sh DESCRIPTION The .Nm file is a simplified version of the .Xr capfile 5 data base used to describe terminal lines. The initial terminal login process .Xr getty 8 accesses the .Nm file each time it starts, allowing simpler reconfiguration of terminal characteristics. Each entry in the data base is used to describe one class of terminals. .Pp Where to run .Xr getty 8 processes is normally defined by .Xr ttys 5 . .Pp There is a default terminal class, .Ic default , that is used to set global defaults for all other classes. (That is, the .Ic default entry is read, then the entry for the class required is used to override particular settings.) The .Ic default entry is also normally read by other programs that present login prompts to the user, such as .Xr telnetd 8 , in order to retrieve the values of the .Ic \&he , .Ic \&hn , .Ic \&im , and .Ic \&if capabilities. .Sh CAPABILITIES Refer to .Xr capfile 5 for a description of the file layout. The .Sq Sy Default column below lists defaults obtained if there is no entry in the table obtained, nor one in the special .Ic default table. .Bl -column ".Sy Name" ".Sy Type" "/usr/bin/login" .It Sy Name Ta Sy Type Ta Sy Default Ta Sy Description .It Ic \&ab Ta bool Ta false Ta Auto-baud speed select mechanism for the Micom 600 portselector. Selection is done by looking at how the character .Ql \er is garbled at 300, 1200, 4800, and 9600 baud. .It Ic \&al Ta str Ta Dv NULL Ta user to auto-login instead of prompting .It Ic \&ap Ta bool Ta false Ta terminal uses any parity .It Ic \&bk Ta str Ta Li \e377 Ta alternative end of line character (input break) .Pq Dv VEOL .It Ic \&b2 Ta str Ta Li \e377 Ta alternative end of line character (input break) .Pq Dv VEOL2 .It Ic \&c0 Ta num Ta unused Ta tty control flags to write messages .It Ic \&c1 Ta num Ta unused Ta tty control flags to read login name .It Ic \&c2 Ta num Ta unused Ta tty control flags to leave terminal as .It Ic \&ce Ta bool Ta false Ta use Tn CRT erase algorithm .It Ic \&ck Ta bool Ta false Ta use Tn CRT kill algorithm .It Ic \&cl Ta str Ta Dv NULL Ta screen clear sequence .It Ic \&co Ta bool Ta false Ta console \(en add .Ql \er\en after login prompt .It Ic \&cs Ta bool Ta false Ta clear screen based on terminal type in .Pa /etc/ttys .It Ic \&ds Ta str Ta So Li "^Y" Sc Ta delayed suspend character .Pq Dv VDSUSP .It Ic \&dx Ta bool Ta false Ta set Dv DECCTLQ .It Ic \&ec Ta bool Ta false Ta leave echo .Tn OFF .It Ic \&ep Ta bool Ta false Ta terminal uses even parity .It Ic \&er Ta str Ta So Li ^? Sc Ta erase character .Pq Dv VERASE .It Ic \&et Ta str Ta So Li ^D Sc Ta end of text .Pq Dv VEOF character .It Ic \&ev Ta str Ta Dv NULL Ta initial environment .It Ic \&f0 Ta num Ta unused Ta tty mode flags to write messages .It Ic \&f1 Ta num Ta unused Ta tty mode flags to read login name .It Ic \&f2 Ta num Ta unused Ta tty mode flags to leave terminal as .It Ic \&fl Ta str Ta So Li ^O Sc Ta output flush character .Pq Dv VDISCARD .It Ic \&hc Ta bool Ta false Ta do .Tn NOT hangup line on last close .It Ic \&he Ta str Ta Dv NULL Ta hostname editing string .It Ic \&hn Ta str Ta hostname Ta hostname .It Ic \&ht Ta bool Ta false Ta terminal has real tabs .It Ic \&i0 Ta num Ta unused Ta tty input flags to write messages .It Ic \&i1 Ta num Ta unused Ta tty input flags to read login name .It Ic \&i2 Ta num Ta unused Ta tty input flags to leave terminal as .It Ic \&if Ta str Ta Dv NULL Ta display named file before prompt, like .Pa /etc/issue .It Ic \&ig Ta bool Ta false Ta ignore garbage characters in login name .It Ic \&im Ta str Ta Dv NULL Ta initial (banner) message .It Ic \&in Ta str Ta So Li ^C Sc Ta interrupt character .Pq Dv VINTR .It Ic \&is Ta num Ta unused Ta input speed .It Ic \&kl Ta str Ta So Li ^U Sc Ta kill character .Pq Dv VKILL .It Ic \&l0 Ta num Ta unused Ta tty local flags to write messages .It Ic \&l1 Ta num Ta unused Ta tty local flags to read login name .It Ic \&l2 Ta num Ta unused Ta tty local flags to leave terminal as .It Ic \&lc Ta bool Ta false Ta terminal has lower case .It Ic \&lm Ta str Ta login: Ta login prompt .It Ic \&ln Ta str Ta So Li ^V Sc Ta So literal next Sc character .Pq Dv VLNEXT .It Ic \&lo Ta str Ta /usr/bin/login Ta program to exec when name obtained .It Ic \&mb Ta bool Ta false Ta do flow control based on carrier .It Ic \&nl Ta bool Ta false Ta terminal has (or might have) a newline character .It Ic \&nn Ta bool Ta false Ta do not prompt for a login name .It Ic \&np Ta bool Ta false Ta terminal uses no parity (i.e. 8-bit characters) .It Ic \&nx Ta str Ta default Ta next table (for auto speed selection) .It Ic \&o0 Ta num Ta unused Ta tty output flags to write messages .It Ic \&o1 Ta num Ta unused Ta tty output flags to read login name .It Ic \&o2 Ta num Ta unused Ta tty output flags to leave terminal as .It Ic \&op Ta bool Ta false Ta terminal uses odd parity .It Ic \&os Ta num Ta unused Ta output speed .It Ic \&pc Ta str Ta So Li \e0 Sc Ta pad character .It Ic \&pe Ta bool Ta false Ta use printer (hard copy) erase algorithm .It Ic \&pf Ta num Ta 0 Ta delay between first prompt and following flush (seconds) .It Ic \&pp Ta str Ta unused Ta Tn PPP authentication program .It Ic \&ps Ta bool Ta false Ta line connected to a .Tn MICOM port selector .It Ic \&qu Ta str Ta So Li \&^\e Sc Ta quit character .Pq Dv VQUIT .It Ic \&rp Ta str Ta So Li ^R Sc Ta line retype character .Pq Dv VREPRINT .It Ic \&rw Ta bool Ta false Ta do .Tn NOT use .Dv RAW for input, use .Dv CBREAK .It Ic \&sp Ta num Ta unused Ta line speed (input and output) .It Ic \&st Ta str Ta So Li ^T Sc Ta status character .Pq Dv VSTATUS .It Ic \&su Ta str Ta So Li ^Z Sc Ta suspend character .Pq Dv VSUSP .It Ic \&tc Ta str Ta none Ta table continuation .It Ic \&to Ta num Ta 0 Ta timeout (seconds) .It Ic \&tt Ta str Ta Dv NULL Ta terminal type (for environment) .It Ic \&ub Ta bool Ta false Ta do unbuffered output (of prompts etc) .It Ic \&we Ta str Ta So Li ^W Sc Ta word erase character .Pq Dv VWERASE .It Ic \&xc Ta bool Ta false Ta do .Tn NOT echo control chars as .Ql ^X .It Ic \&xf Ta str Ta So Li ^S Sc Ta Tn XOFF (stop output) character .Pq Dv VSTOP .It Ic \&xn Ta str Ta So Li ^Q Sc Ta Tn XON (start output) character .Pq Dv VSTART .El .Pp The following capabilities are no longer supported by .Xr getty 8 : .Bl -column ".Sy Name" ".Sy Type" "/usr/bin/login" .It Ic \&bd Ta num Ta 0 Ta backspace delay .It Ic \&cb Ta bool Ta false Ta use Tn CRT backspace mode .It Ic \&cd Ta num Ta 0 Ta carriage-return delay .It Ic \&fd Ta num Ta 0 Ta form-feed (vertical motion) delay .It Ic \&nd Ta num Ta 0 Ta newline (line-feed) delay .It Ic \&uc Ta bool Ta false Ta terminal is known upper case only .El .Pp If no line speed is specified, speed will not be altered from that which prevails when getty is entered. Specifying an input or output speed will override line speed for stated direction only. .Pp Terminal modes to be used for the output of the message, for input of the login name, and to leave the terminal set as upon completion, are derived from the boolean flags specified. If the derivation should prove inadequate, any (or all) of these three may be overridden with one of the .Ic \&c0 , .Ic \&c1 , .Ic \&c2 , .Ic \&i0 , .Ic \&i1 , .Ic \&i2 , .Ic \&l0 , .Ic \&l1 , .Ic \&l2 , .Ic \&o0 , .Ic \&o1 , or .Ic \&o2 numeric specifications, which can be used to specify (usually in octal, with a leading .Ql 0 ) the exact values of the flags. These flags correspond to the termios .Fa c_cflag , .Fa c_iflag , .Fa c_lflag , and .Fa c_oflag fields, respectively. Each these sets must be completely specified to be effective. The .Ic \&f0 , .Ic \&f1 , and .Ic \&f2 are excepted for backwards compatibility with a previous incarnation of the TTY sub-system. In these flags the bottom 16 bits of the (32 bits) value contain the .Vt sgttyb .Fa sg_flags field, while the top 16 bits represent the local mode word. .Pp Should .Xr getty 8 receive a null character (presumed to indicate a line break) it will restart using the table indicated by the .Ic nx entry. If there is none, it will re-use its original table. .Pp Delays are specified in milliseconds, the nearest possible delay available in the tty driver will be used. Should greater certainty be desired, delays with values 0, 1, 2, and 3 are interpreted as choosing that particular delay algorithm from the driver. .Pp The .Ic \&cl screen clear string may be preceded by a (decimal) number of milliseconds of delay required (a la termcap). This delay is simulated by repeated use of the pad character .Ic \&pc . .Pp The initial message .Ic \&im\^ , and login message .Ic \&lm may include any of the following character sequences, which expand to information about the environment in which .Xr getty 8 is running. .Bl -tag -width ".Li XXXX" .It Li \&%d The current date. .It Li \&%h The hostname of the machine, which is normally obtained from the system using .Xr gethostname 3 , but may also be overridden by the .Ic \&hn table entry. In either case it may be edited with the .Ic \&he string. A .Ql @ in the .Ic \&he string causes one character from the real hostname to be copied to the final hostname. A .Ql # in the .Ic \&he string causes the next character of the real hostname to be skipped. Each character that is neither .Ql @ nor .Ql # is copied into the final hostname. Surplus .Ql @ and .Ql # characters are ignored. .It Li \&%t The tty name. .It Li \&%m , \&%r , \&%s , \&%v The type of machine, release of the operating system, name of the operating system, and version of the kernel, respectively, as returned by .Xr uname 3 . .It Li \&%% A .Ql % character. .El .Pp When getty execs the login process, given in the .Ic \&lo string (usually .Dq Pa /usr/bin/login ) , it will have set the environment to include the terminal type, as indicated by the .Ic \&tt string (if it exists). The .Ic \&ev string, can be used to enter additional data into the environment. It is a list of comma separated strings, each of which will presumably be of the form .Ar name Ns Li \^= Ns Ar value . .Pp If a non-zero timeout is specified, with .Ic \&to , then getty will exit within the indicated number of seconds, either having received a login name and passed control to .Xr login 1 , or having received an alarm signal, and exited. This may be useful to hangup dial in lines. .Pp Output from .Xr getty 8 is even parity unless .Ic \&op or .Ic \&np is specified. The .Ic \&op string may be specified with .Ic \&ap to allow any parity on input, but generate odd parity output. Note: this only applies while getty is being run, terminal driver limitations prevent a more complete implementation. .Xr getty 8 does not check parity of input characters in .Dv RAW mode. .Pp If .Ic \&pp string is specified and a Point to Point Protocol .Pq Tn PPP link bringup sequence is recognized, .Xr getty 8 will invoke the program referenced by the .Ic \&pp string, e.g.\& .Xr pppd 8 . This can be used to handle incoming .Tn PPP calls. .Sh SEE ALSO .Xr login 1 , .Xr gethostname 3 , .Xr uname 3 , .Xr capfile 5 , .Xr ttys 5 , .Xr getty 8 , .Xr pppd 8 , .Xr telnetd 8 .Sh HISTORY The .Nm file format appeared in .Bx 4.2 . .Sh BUGS The special characters (erase, kill, etc.) are reset to system defaults by .Xr login 1 . In .Em all cases, .Ql # or .Ql ^H typed in a login name will be treated as an erase character, and .Ql @ will be treated as a kill character. .Pp The delay stuff is a real crock. Apart from its general lack of flexibility, some of the delay algorithms are not implemented. The terminal driver should support sane delay settings. .Pp The .Ic \&he capability is stupid. src/libexec/getty/gettytab.h010064400011300000175000000130241220162212100163250ustar00srcmastrnetbsd/* $NetBSD: gettytab.h,v 1.17 2013/08/11 05:42:41 dholland Exp $ */ /* * Copyright (c) 1983, 1993, 1994 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * * from: @(#)gettytab.h 8.2 (Berkeley) 3/30/94 */ /* * Getty description definitions. */ struct gettystrs { const char *field; /* name to lookup in gettytab */ const char *defalt; /* value we find by looking in defaults */ char *value; /* value that we find there */ }; struct gettynums { const char *field; /* name to lookup */ long defalt; /* number we find in defaults */ long value; /* number we find there */ int set; /* we actually got this one */ }; struct gettyflags { const char *field; /* name to lookup */ char invrt; /* name existing in gettytab --> false */ char defalt; /* true/false in defaults */ char value; /* true/false flag */ char set; /* we found it */ }; /* * See init.c for the arrays indexed by these values. */ /* * String values. */ #define NX gettystrs[0].value #define CL gettystrs[1].value #define IM gettystrs[2].value #define LM gettystrs[3].value #define ER gettystrs[4].value #define KL gettystrs[5].value #define ET gettystrs[6].value #define PC gettystrs[7].value #define TT gettystrs[8].value #define EV gettystrs[9].value #define LO gettystrs[10].value #define HN gettystrs[11].value #define HE gettystrs[12].value #define IN gettystrs[13].value #define QU gettystrs[14].value #define XN gettystrs[15].value #define XF gettystrs[16].value #define BK gettystrs[17].value #define SU gettystrs[18].value #define DS gettystrs[19].value #define RP gettystrs[20].value #define FL gettystrs[21].value #define WE gettystrs[22].value #define LN gettystrs[23].value #define ST gettystrs[24].value #define B2 gettystrs[25].value #define PP gettystrs[26].value #define IF gettystrs[27].value #define AL gettystrs[28].value /* * Numeric definitions. */ #define IS gettynums[0].value #define OS gettynums[1].value #define SP gettynums[2].value #define ND gettynums[3].value #define CD gettynums[4].value #define TD gettynums[5].value #define FD gettynums[6].value #define BD gettynums[7].value #define TO gettynums[8].value #define F0 gettynums[9].value #define F0set gettynums[9].set #define F1 gettynums[10].value #define F1set gettynums[10].set #define F2 gettynums[11].value #define F2set gettynums[11].set #define PF gettynums[12].value #define C0 gettynums[13].value #define C0set gettynums[13].set #define C1 gettynums[14].value #define C1set gettynums[14].set #define C2 gettynums[15].value #define C2set gettynums[15].set #define I0 gettynums[16].value #define I0set gettynums[16].set #define I1 gettynums[17].value #define I1set gettynums[17].set #define I2 gettynums[18].value #define I2set gettynums[18].set #define L0 gettynums[19].value #define L0set gettynums[19].set #define L1 gettynums[20].value #define L1set gettynums[20].set #define L2 gettynums[21].value #define L2set gettynums[21].set #define O0 gettynums[22].value #define O0set gettynums[22].set #define O1 gettynums[23].value #define O1set gettynums[23].set #define O2 gettynums[24].value #define O2set gettynums[24].set /* * Boolean values. */ #define HT gettyflags[0].value #define NL gettyflags[1].value #define EP gettyflags[2].value #define EPset gettyflags[2].set #define OP gettyflags[3].value #define OPset gettyflags[3].set #define AP gettyflags[4].value #define APset gettyflags[4].set #define EC gettyflags[5].value #define CO gettyflags[6].value #define CB gettyflags[7].value #define CK gettyflags[8].value #define CE gettyflags[9].value #define PE gettyflags[10].value #define RW gettyflags[11].value #define XC gettyflags[12].value #define LC gettyflags[13].value #define UC gettyflags[14].value #define IG gettyflags[15].value #define PS gettyflags[16].value #define HC gettyflags[17].value #define UB gettyflags[18].value #define AB gettyflags[19].value #define DX gettyflags[20].value #define NP gettyflags[21].value #define MB gettyflags[22].value #define CS gettyflags[23].value #define NN gettyflags[24].value extern struct gettyflags gettyflags[]; extern struct gettynums gettynums[]; extern struct gettystrs gettystrs[]; src/libexec/getty/init.c010064400011300000175000000134471220162212100154510ustar00srcmastrnetbsd/* $NetBSD: init.c,v 1.18 2013/08/11 05:42:41 dholland Exp $ */ /* * Copyright (c) 1983, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint #if 0 static char sccsid[] = "from: @(#)init.c 8.1 (Berkeley) 6/4/93"; #else __RCSID("$NetBSD: init.c,v 1.18 2013/08/11 05:42:41 dholland Exp $"); #endif #endif /* not lint */ /* * Getty table initializations. * * Melbourne getty. */ #include #include #include "gettytab.h" #include "pathnames.h" extern struct termios tmode; extern char hostname[]; #define M(a) ((char *)&tmode.c_cc[a]) struct gettystrs gettystrs[] = { { "nx", NULL, NULL }, /* next table */ { "cl", NULL, NULL }, /* screen clear characters */ { "im", NULL, NULL }, /* initial message */ { "lm", "login: ", NULL }, /* login message */ { "er", M(VERASE), NULL }, /* erase character */ { "kl", M(VKILL), NULL }, /* kill character */ { "et", M(VEOF), NULL }, /* eof chatacter (eot) */ { "pc", "", NULL }, /* pad character */ { "tt", NULL, NULL }, /* terminal type */ { "ev", NULL, NULL }, /* environment */ { "lo", _PATH_LOGIN, NULL }, /* login program */ { "hn", hostname, NULL }, /* host name */ { "he", NULL, NULL }, /* host name edit */ { "in", M(VINTR), NULL }, /* interrupt char */ { "qu", M(VQUIT), NULL }, /* quit char */ { "xn", M(VSTART), NULL }, /* XON (start) char */ { "xf", M(VSTOP), NULL }, /* XOFF (stop) char */ { "bk", M(VEOL), NULL }, /* brk char (alt \n) */ { "su", M(VSUSP), NULL }, /* suspend char */ { "ds", M(VDSUSP), NULL }, /* delayed suspend */ { "rp", M(VREPRINT), NULL }, /* reprint char */ { "fl", M(VDISCARD), NULL }, /* flush output */ { "we", M(VWERASE), NULL }, /* word erase */ { "ln", M(VLNEXT), NULL }, /* literal next */ { "st", M(VSTATUS), NULL }, /* status */ { "b2", M(VEOL2), NULL }, /* alt brk char */ { "pp", NULL, NULL }, /* ppp login program */ { "if", NULL, NULL }, /* sysv-like 'issue' filename */ { "al", NULL, NULL }, /* user to auto-login */ { NULL, NULL, NULL } }; struct gettynums gettynums[] = { { "is", 0,0,0 }, /* input speed */ { "os", 0,0,0 }, /* output speed */ { "sp", 0,0,0 }, /* both speeds */ { "nd", 0,0,0 }, /* newline delay */ { "cd", 0,0,0 }, /* carriage-return delay */ { "td", 0,0,0 }, /* tab delay */ { "fd", 0,0,0 }, /* form-feed delay */ { "bd", 0,0,0 }, /* backspace delay */ { "to", 0,0,0 }, /* timeout */ { "f0", 0,0,0 }, /* output flags */ { "f1", 0,0,0 }, /* input flags */ { "f2", 0,0,0 }, /* user mode flags */ { "pf", 0,0,0 }, /* delay before flush at 1st prompt */ { "c0", 0,0,0 }, /* output c_flags */ { "c1", 0,0,0 }, /* input c_flags */ { "c2", 0,0,0 }, /* user mode c_flags */ { "i0", 0,0,0 }, /* output i_flags */ { "i1", 0,0,0 }, /* input i_flags */ { "i2", 0,0,0 }, /* user mode i_flags */ { "l0", 0,0,0 }, /* output l_flags */ { "l1", 0,0,0 }, /* input l_flags */ { "l2", 0,0,0 }, /* user mode l_flags */ { "o0", 0,0,0 }, /* output o_flags */ { "o1", 0,0,0 }, /* input o_flags */ { "o2", 0,0,0 }, /* user mode o_flags */ { 0,0,0,0 } }; struct gettyflags gettyflags[] = { { "ht", 0, 0,0,0 }, /* has tabs */ { "nl", 1, 0,0,0 }, /* has newline char */ { "ep", 0, 0,0,0 }, /* even parity */ { "op", 0, 0,0,0 }, /* odd parity */ { "ap", 0, 0,0,0 }, /* any parity */ { "ec", 1, 0,0,0 }, /* no echo */ { "co", 0, 0,0,0 }, /* console special */ { "cb", 0, 0,0,0 }, /* crt backspace */ { "ck", 0, 0,0,0 }, /* crt kill */ { "ce", 0, 0,0,0 }, /* crt erase */ { "pe", 0, 0,0,0 }, /* printer erase */ { "rw", 1, 0,0,0 }, /* don't use raw */ { "xc", 1, 0,0,0 }, /* don't ^X ctl chars */ { "lc", 0, 0,0,0 }, /* terminal las lower case */ { "uc", 0, 0,0,0 }, /* terminal has no lower case */ { "ig", 0, 0,0,0 }, /* ignore garbage */ { "ps", 0, 0,0,0 }, /* do port selector speed select */ { "hc", 1, 0,0,0 }, /* don't set hangup on close */ { "ub", 0, 0,0,0 }, /* unbuffered output */ { "ab", 0, 0,0,0 }, /* auto-baud detect with '\r' */ { "dx", 0, 0,0,0 }, /* set decctlq */ { "np", 0, 0,0,0 }, /* no parity at all (8bit chars) */ { "mb", 0, 0,0,0 }, /* do MDMBUF flow control */ { "cs", 0, 0,0,0 }, /* clear screen based on term type */ { "nn", 0, 0,0,0 }, /* don't prompt for login name */ { NULL,0,0,0,0 } }; src/libexec/getty/main.c010064400011300000175000000347141413141636600154520ustar00srcmastrnetbsd/* $NetBSD: main.c,v 1.68 2021/10/12 23:40:38 jmcneill Exp $ */ /*- * Copyright (c) 1980, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint __COPYRIGHT("@(#) Copyright (c) 1980, 1993\ The Regents of the University of California. All rights reserved."); #endif /* not lint */ #ifndef lint #if 0 static char sccsid[] = "from: @(#)main.c 8.1 (Berkeley) 6/20/93"; #else __RCSID("$NetBSD: main.c,v 1.68 2021/10/12 23:40:38 jmcneill Exp $"); #endif #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "gettytab.h" #include "pathnames.h" #include "extern.h" extern char editedhost[]; /* * Set the amount of running time that getty should accumulate * before deciding that something is wrong and exit. */ #define GETTY_TIMEOUT 60 /* seconds */ /* defines for auto detection of incoming PPP calls (->PAP/CHAP) */ #define PPP_FRAME 0x7e /* PPP Framing character */ #define PPP_STATION 0xff /* "All Station" character */ #define PPP_ESCAPE 0x7d /* Escape Character */ #define PPP_CONTROL 0x03 /* PPP Control Field */ #define PPP_CONTROL_ESCAPED 0x23 /* PPP Control Field, escaped */ #define PPP_LCP_HI 0xc0 /* LCP protocol - high byte */ #define PPP_LCP_LOW 0x21 /* LCP protocol - low byte */ struct termios tmode, omode; int crmod, digit_or_punc, lower, upper; char hostname[MAXHOSTNAMELEN + 1]; struct utsname kerninfo; char name[LOGIN_NAME_MAX]; char dev[] = _PATH_DEV; char ttyn[32]; uid_t ttyowner = 0; char *rawttyn; #define OBUFSIZ 128 #define TABBUFSIZ 512 char defent[TABBUFSIZ]; char tabent[TABBUFSIZ]; char *env[128]; const unsigned char partab[] = { 0001,0201,0201,0001,0201,0001,0001,0201, 0202,0004,0003,0205,0005,0206,0201,0001, 0201,0001,0001,0201,0001,0201,0201,0001, 0001,0201,0201,0001,0201,0001,0001,0201, 0200,0000,0000,0200,0000,0200,0200,0000, 0000,0200,0200,0000,0200,0000,0000,0200, 0000,0200,0200,0000,0200,0000,0000,0200, 0200,0000,0000,0200,0000,0200,0200,0000, 0200,0000,0000,0200,0000,0200,0200,0000, 0000,0200,0200,0000,0200,0000,0000,0200, 0000,0200,0200,0000,0200,0000,0000,0200, 0200,0000,0000,0200,0000,0200,0200,0000, 0000,0200,0200,0000,0200,0000,0000,0200, 0200,0000,0000,0200,0000,0200,0200,0000, 0200,0000,0000,0200,0000,0200,0200,0000, 0000,0200,0200,0000,0200,0000,0000,0201 }; #define ERASE tmode.c_cc[VERASE] #define KILL tmode.c_cc[VKILL] #define EOT tmode.c_cc[VEOF] static void clearscreen(void); sigjmp_buf timeout; __dead static void /*ARGSUSED*/ dingdong(int signo) { (void)alarm(0); (void)signal(SIGALRM, SIG_DFL); siglongjmp(timeout, 1); } sigjmp_buf intrupt; __dead static void /*ARGSUSED*/ interrupt(int signo) { (void)signal(SIGINT, interrupt); siglongjmp(intrupt, 1); } /* * Action to take when getty is running too long. */ __dead static void /*ARGSUSED*/ timeoverrun(int signo) { syslog(LOG_ERR, "getty exiting due to excessive running time"); exit(1); } static int getname(void); static void oflush(void); static void prompt(void); static int putchr(int); static void putf(const char *); static void xputs(const char *); #define putpad(s) tputs(s, 1, putchr) int main(int argc, char *argv[], char *envp[]) { int repcnt = 0, failopenlogged = 0; volatile int first_time = 1; struct rlimit limit; int rval; /* this is used past the siglongjmp, so make sure it is not cached in registers that might become invalid. */ const char * volatile tname = "default"; (void)signal(SIGINT, SIG_IGN); openlog("getty", LOG_PID, LOG_AUTH); (void)gethostname(hostname, sizeof(hostname)); hostname[sizeof(hostname) - 1] = '\0'; if (hostname[0] == '\0') (void)strlcpy(hostname, "Amnesiac", sizeof(hostname)); (void)uname(&kerninfo); /* * Limit running time to deal with broken or dead lines. */ (void)signal(SIGXCPU, timeoverrun); limit.rlim_max = RLIM_INFINITY; limit.rlim_cur = GETTY_TIMEOUT; (void)setrlimit(RLIMIT_CPU, &limit); /* * The following is a work around for vhangup interactions * which cause great problems getting window systems started. * If the tty line is "-", we do the old style getty presuming * that the file descriptors are already set up for us. * J. Gettys - MIT Project Athena. */ if (argc <= 2 || strcmp(argv[2], "-") == 0) { (void)strlcpy(ttyn, ttyname(0), sizeof(ttyn)); } else { int i; rawttyn = argv[2]; (void)strlcpy(ttyn, dev, sizeof(ttyn)); (void)strlcat(ttyn, argv[2], sizeof(ttyn)); if (strcmp(argv[0], "+") != 0) { (void)chown(ttyn, ttyowner, 0); (void)chmod(ttyn, 0600); (void)revoke(ttyn); if (ttyaction(ttyn, "getty", "root")) syslog(LOG_WARNING, "%s: ttyaction failed", ttyn); while ((i = open(ttyn, O_RDWR)) == -1) { if ((repcnt % 10 == 0) && (errno != ENXIO || !failopenlogged)) { syslog(LOG_WARNING, "%s: %m", ttyn); closelog(); failopenlogged = 1; } repcnt++; (void)sleep(60); } (void)login_tty(i); } } /* Start with default tty settings */ if (tcgetattr(0, &tmode) < 0) { syslog(LOG_ERR, "%s: %m", ttyn); exit(1); } omode = tmode; gettable("default", defent); gendefaults(); if (argc > 1) tname = argv[1]; for (;;) { int off; rval = 0; gettable(tname, tabent); if (OPset || EPset || APset) APset++, OPset++, EPset++; setdefaults(); off = 0; (void)tcflush(0, TCIOFLUSH); /* clear out the crap */ (void)ioctl(0, FIONBIO, &off); /* turn off non-blocking mode */ (void)ioctl(0, FIOASYNC, &off); /* ditto for async mode */ if (IS) (void)cfsetispeed(&tmode, (speed_t)IS); else if (SP) (void)cfsetispeed(&tmode, (speed_t)SP); if (OS) (void)cfsetospeed(&tmode, (speed_t)OS); else if (SP) (void)cfsetospeed(&tmode, (speed_t)SP); setflags(0); setchars(); if (tcsetattr(0, TCSANOW, &tmode) < 0) { syslog(LOG_ERR, "%s: %m", ttyn); exit(1); } if (AB) { tname = autobaud(); continue; } if (PS) { tname = portselector(); continue; } if (CS) clearscreen(); if (CL && *CL) putpad(CL); edithost(HE); /* * If this is the first time through this, and an * issue file has been given, then send it. */ if (first_time != 0 && IF != NULL) { char buf[_POSIX2_LINE_MAX]; FILE *fp; if ((fp = fopen(IF, "r")) != NULL) { while (fgets(buf, sizeof(buf) - 1, fp) != NULL) putf(buf); (void)fclose(fp); } } first_time = 0; if (IM && *IM) putf(IM); oflush(); if (sigsetjmp(timeout, 1)) { tmode.c_ispeed = tmode.c_ospeed = 0; (void)tcsetattr(0, TCSANOW, &tmode); exit(1); } if (TO) { (void)signal(SIGALRM, dingdong); (void)alarm((unsigned int)TO); } if (NN) { name[0] = '\0'; lower = 1; upper = digit_or_punc = 0; } else if (AL) { const char *p = AL; char *q = name; while (*p && q < &name[sizeof name - 1]) { if (isupper((unsigned char)*p)) upper = 1; else if (islower((unsigned char)*p)) lower = 1; else if (isdigit((unsigned char)*p)) digit_or_punc = 1; *q++ = *p++; } } else if ((rval = getname()) == 2) { setflags(2); (void)execle(PP, "ppplogin", ttyn, (char *) 0, env); syslog(LOG_ERR, "%s: %m", PP); exit(1); } if (rval || AL || NN) { int i; oflush(); (void)alarm(0); (void)signal(SIGALRM, SIG_DFL); if (name[0] == '-') { xputs("user names may not start with '-'."); continue; } if (!(upper || lower || digit_or_punc)) continue; setflags(2); if (crmod) { tmode.c_iflag |= ICRNL; tmode.c_oflag |= ONLCR; } #if XXX if (upper || UC) tmode.sg_flags |= LCASE; if (lower || LC) tmode.sg_flags &= ~LCASE; #endif if (tcsetattr(0, TCSANOW, &tmode) < 0) { syslog(LOG_ERR, "%s: %m", ttyn); exit(1); } (void)signal(SIGINT, SIG_DFL); for (i = 0; envp[i] != NULL; i++) env[i] = envp[i]; makeenv(&env[i]); limit.rlim_max = RLIM_INFINITY; limit.rlim_cur = RLIM_INFINITY; (void)setrlimit(RLIMIT_CPU, &limit); if (NN) (void)execle(LO, "login", AL ? "-fp" : "-p", NULL, env); else (void)execle(LO, "login", AL ? "-fp" : "-p", "--", name, NULL, env); syslog(LOG_ERR, "%s: %m", LO); exit(1); } (void)alarm(0); (void)signal(SIGALRM, SIG_DFL); (void)signal(SIGINT, SIG_IGN); if (NX && *NX) tname = NX; } } static int getname(void) { int c; char *np; unsigned char cs; int ppp_state, ppp_connection; /* * Interrupt may happen if we use CBREAK mode */ if (sigsetjmp(intrupt, 1)) { (void)signal(SIGINT, SIG_IGN); return (0); } (void)signal(SIGINT, interrupt); setflags(1); prompt(); if (PF > 0) { oflush(); (void)sleep((unsigned int)PF); PF = 0; } if (tcsetattr(0, TCSANOW, &tmode) < 0) { syslog(LOG_ERR, "%s: %m", ttyn); exit(1); } crmod = digit_or_punc = lower = upper = 0; ppp_state = ppp_connection = 0; np = name; for (;;) { oflush(); if (read(STDIN_FILENO, &cs, 1) <= 0) exit(0); if ((c = cs&0177) == 0) return (0); /* * PPP detection state machine.. * Look for sequences: * PPP_FRAME, PPP_STATION, PPP_ESCAPE, PPP_CONTROL_ESCAPED or * PPP_FRAME, PPP_STATION, PPP_CONTROL (deviant from RFC) * See RFC1662. * Derived from code from Michael Hancock * and Erik 'PPP' Olson */ if (PP && cs == PPP_FRAME) { ppp_state = 1; } else if (ppp_state == 1 && cs == PPP_STATION) { ppp_state = 2; } else if (ppp_state == 2 && cs == PPP_ESCAPE) { ppp_state = 3; } else if ((ppp_state == 2 && cs == PPP_CONTROL) || (ppp_state == 3 && cs == PPP_CONTROL_ESCAPED)) { ppp_state = 4; } else if (ppp_state == 4 && cs == PPP_LCP_HI) { ppp_state = 5; } else if (ppp_state == 5 && cs == PPP_LCP_LOW) { ppp_connection = 1; break; } else { ppp_state = 0; } if (c == EOT) exit(1); if (c == '\r' || c == '\n' || np >= &name[LOGIN_NAME_MAX - 1]) { *np = '\0'; putf("\r\n"); break; } if (islower(c)) lower = 1; else if (isupper(c)) upper = 1; else if (c == ERASE || c == '#' || c == '\b') { if (np > name) { np--; if (cfgetospeed(&tmode) >= 1200) xputs("\b \b"); else putchr(cs); } continue; } else if (c == KILL || c == '@') { putchr(cs); putchr('\r'); if (cfgetospeed(&tmode) < 1200) putchr('\n'); /* this is the way they do it down under ... */ else if (np > name) xputs( " \r"); prompt(); np = name; continue; } else if (isdigit(c) || c == '_') digit_or_punc = 1; if (IG && (c <= ' ' || c > 0176)) continue; *np++ = c; putchr(cs); /* * An MS-Windows direct connect PPP "client" won't send its * first PPP packet until we respond to its "CLIENT" poll * with a CRLF sequence. We cater to yet another broken * implementation of a previously-standard protocol... */ *np = '\0'; if (strstr(name, "CLIENT")) putf("\r\n"); } (void)signal(SIGINT, SIG_IGN); *np = 0; if (c == '\r') crmod = 1; if ((upper && !lower && !LC) || UC) for (np = name; *np; np++) *np = tolower((unsigned char)*np); return (1 + ppp_connection); } static void xputs(const char *s) { while (*s) putchr(*s++); } char outbuf[OBUFSIZ]; size_t obufcnt = 0; static int putchr(int cc) { unsigned char c; c = cc; if (!NP) { c |= partab[c&0177] & 0200; if (OP) c ^= 0200; } if (!UB) { outbuf[obufcnt++] = c; if (obufcnt >= OBUFSIZ) oflush(); return 1; } return write(STDOUT_FILENO, &c, 1); } static void oflush(void) { if (obufcnt) (void)write(STDOUT_FILENO, outbuf, obufcnt); obufcnt = 0; } static void prompt(void) { putf(LM); if (CO) putchr('\n'); } static void putf(const char *cp) { time_t t; char *slash, db[100]; while (*cp) { if (*cp != '%') { putchr(*cp++); continue; } switch (*++cp) { case 't': if ((slash = strstr(ttyn, "/pts/")) == NULL) slash = strrchr(ttyn, '/'); if (slash == NULL) xputs(ttyn); else xputs(&slash[1]); break; case 'h': xputs(editedhost); break; case 'd': (void)time(&t); (void)strftime(db, sizeof(db), "%l:%M%p on %A, %d %B %Y", localtime(&t)); xputs(db); break; case 's': xputs(kerninfo.sysname); break; case 'm': xputs(kerninfo.machine); break; case 'r': xputs(kerninfo.release); break; case 'v': xputs(kerninfo.version); break; case '%': putchr('%'); break; } if (*cp) cp++; } } static void clearscreen(void) { struct ttyent *typ; int err; if (rawttyn == NULL) return; typ = getttynam(rawttyn); if ((typ == NULL) || (typ->ty_type == NULL) || (typ->ty_type[0] == 0)) return; if (setupterm(typ->ty_type, 0, &err) == ERR) return; if (clear_screen) putpad(clear_screen); del_curterm(cur_term); cur_term = NULL; } src/libexec/getty/pathnames.h010064400011300000175000000034271075162733000165070ustar00srcmastrnetbsd/* $NetBSD: pathnames.h,v 1.9 2008/02/04 15:27:20 christos Exp $ */ /* * Copyright (c) 1989, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND ~ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * * from: @(#)pathnames.h 8.1 (Berkeley) 6/4/93 */ #include #define _PATH_LOGIN "/usr/bin/login" #define _PATH_LOCK "/var/spool/lock/LCK.." src/libexec/getty/subr.c010064400011300000175000000331571220173661600155000ustar00srcmastrnetbsd/* $NetBSD: subr.c,v 1.35 2013/08/11 16:36:30 dholland Exp $ */ /* * Copyright (c) 1983, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint #if 0 static char sccsid[] = "from: @(#)subr.c 8.1 (Berkeley) 6/4/93"; #else __RCSID("$NetBSD: subr.c,v 1.35 2013/08/11 16:36:30 dholland Exp $"); #endif #endif /* not lint */ /* * Melbourne getty. */ #define COMPAT_43 #include #include #include #include #include #include #include #include #include "extern.h" #include "gettytab.h" #include "pathnames.h" extern struct termios tmode, omode; static void compatflags(long); /* * Get a table entry. */ void gettable(const char *name, char *buf) { struct gettystrs *sp; struct gettynums *np; struct gettyflags *fp; long n; const char *dba[2]; dba[0] = _PATH_GETTYTAB; dba[1] = NULL; if (cgetent(&buf, dba, name) != 0) return; for (sp = gettystrs; sp->field; sp++) (void)cgetstr(buf, sp->field, &sp->value); for (np = gettynums; np->field; np++) { if (cgetnum(buf, np->field, &n) == -1) np->set = 0; else { np->set = 1; np->value = n; } } for (fp = gettyflags; fp->field; fp++) { if (cgetcap(buf, fp->field, ':') == NULL) fp->set = 0; else { fp->set = 1; fp->value = 1 ^ fp->invrt; } } #ifdef DEBUG printf("name=\"%s\", buf=\"%s\"\n", name, buf); for (sp = gettystrs; sp->field; sp++) printf("cgetstr: %s=%s\n", sp->field, sp->value); for (np = gettynums; np->field; np++) printf("cgetnum: %s=%d\n", np->field, np->value); for (fp = gettyflags; fp->field; fp++) printf("cgetflags: %s='%c' set='%c'\n", fp->field, fp->value + '0', fp->set + '0'); exit(1); #endif /* DEBUG */ } void gendefaults(void) { struct gettystrs *sp; struct gettynums *np; struct gettyflags *fp; for (sp = gettystrs; sp->field; sp++) if (sp->value) sp->defalt = sp->value; for (np = gettynums; np->field; np++) if (np->set) np->defalt = np->value; for (fp = gettyflags; fp->field; fp++) if (fp->set) fp->defalt = fp->value; else fp->defalt = fp->invrt; } void setdefaults(void) { struct gettystrs *sp; struct gettynums *np; struct gettyflags *fp; for (sp = gettystrs; sp->field; sp++) if (!sp->value) sp->value = sp->defalt ? estrdup(sp->defalt) : NULL; for (np = gettynums; np->field; np++) if (!np->set) np->value = np->defalt; for (fp = gettyflags; fp->field; fp++) if (!fp->set) fp->value = fp->defalt; } static char ** charnames[] = { &ER, &KL, &IN, &QU, &XN, &XF, &ET, &BK, &SU, &DS, &RP, &FL, &WE, &LN, &ST, &B2, 0 }; static cc_t * charvars[] = { &tmode.c_cc[VERASE], &tmode.c_cc[VKILL], &tmode.c_cc[VINTR], &tmode.c_cc[VQUIT], &tmode.c_cc[VSTART], &tmode.c_cc[VSTOP], &tmode.c_cc[VEOF], &tmode.c_cc[VEOL], &tmode.c_cc[VSUSP], &tmode.c_cc[VDSUSP], &tmode.c_cc[VREPRINT], &tmode.c_cc[VDISCARD], &tmode.c_cc[VWERASE], &tmode.c_cc[VLNEXT], &tmode.c_cc[VSTATUS], &tmode.c_cc[VEOL2], 0 }; void setchars(void) { int i; char *p; for (i = 0; charnames[i]; i++) { p = *charnames[i]; if (p && *p) *charvars[i] = *p; else *charvars[i] = _POSIX_VDISABLE; } } /* Macros to clear/set/test flags. */ #define SET(t, f) (t) |= (f) #define CLR(t, f) (t) &= ~(f) #define ISSET(t, f) ((t) & (f)) void setflags(int n) { tcflag_t iflag, oflag, cflag, lflag; #ifdef COMPAT_43 switch (n) { case 0: if (F0set) { compatflags(F0); return; } break; case 1: if (F1set) { compatflags(F1); return; } break; default: if (F2set) { compatflags(F2); return; } break; } #endif switch (n) { case 0: if (C0set && I0set && L0set && O0set) { tmode.c_cflag = C0; tmode.c_iflag = I0; tmode.c_lflag = L0; tmode.c_oflag = O0; return; } break; case 1: if (C1set && I1set && L1set && O1set) { tmode.c_cflag = C1; tmode.c_iflag = I1; tmode.c_lflag = L1; tmode.c_oflag = O1; return; } break; default: if (C2set && I2set && L2set && O2set) { tmode.c_cflag = C2; tmode.c_iflag = I2; tmode.c_lflag = L2; tmode.c_oflag = O2; return; } break; } iflag = omode.c_iflag; oflag = omode.c_oflag; cflag = omode.c_cflag; lflag = omode.c_lflag; if (NP) { CLR(cflag, CSIZE|PARENB); SET(cflag, CS8); CLR(iflag, ISTRIP|INPCK|IGNPAR); } else if (AP || EP || OP) { CLR(cflag, CSIZE); SET(cflag, CS7|PARENB); SET(iflag, ISTRIP); if (OP && !EP) { SET(iflag, INPCK|IGNPAR); SET(cflag, PARODD); if (AP) CLR(iflag, INPCK); } else if (EP && !OP) { SET(iflag, INPCK|IGNPAR); CLR(cflag, PARODD); if (AP) CLR(iflag, INPCK); } else if (AP || (EP && OP)) { CLR(iflag, INPCK|IGNPAR); CLR(cflag, PARODD); } } /* else, leave as is */ #if 0 if (UC) f |= LCASE; #endif if (HC) SET(cflag, HUPCL); else CLR(cflag, HUPCL); if (MB) SET(cflag, MDMBUF); else CLR(cflag, MDMBUF); if (NL) { SET(iflag, ICRNL); SET(oflag, ONLCR|OPOST); } else { CLR(iflag, ICRNL); CLR(oflag, ONLCR); } if (!HT) SET(oflag, OXTABS|OPOST); else CLR(oflag, OXTABS); #ifdef XXX_DELAY SET(f, delaybits()); #endif if (n == 1) { /* read mode flags */ if (RW) { iflag = 0; CLR(oflag, OPOST); CLR(cflag, CSIZE|PARENB); SET(cflag, CS8); lflag = 0; } else { CLR(lflag, ICANON); } goto out; } if (n == 0) goto out; #if 0 if (CB) SET(f, CRTBS); #endif if (CE) SET(lflag, ECHOE); else CLR(lflag, ECHOE); if (CK) SET(lflag, ECHOKE); else CLR(lflag, ECHOKE); if (PE) SET(lflag, ECHOPRT); else CLR(lflag, ECHOPRT); if (EC) SET(lflag, ECHO); else CLR(lflag, ECHO); if (XC) SET(lflag, ECHOCTL); else CLR(lflag, ECHOCTL); if (DX) SET(lflag, IXANY); else CLR(lflag, IXANY); out: tmode.c_iflag = iflag; tmode.c_oflag = oflag; tmode.c_cflag = cflag; tmode.c_lflag = lflag; } #ifdef COMPAT_43 /* * Old TTY => termios, snatched from */ void compatflags(long flags) { tcflag_t iflag, oflag, cflag, lflag; iflag = BRKINT|ICRNL|IMAXBEL|IXON|IXANY; oflag = OPOST|ONLCR|OXTABS; cflag = CREAD; lflag = ICANON|ISIG|IEXTEN; if (ISSET(flags, TANDEM)) SET(iflag, IXOFF); else CLR(iflag, IXOFF); if (ISSET(flags, ECHO)) SET(lflag, ECHO); else CLR(lflag, ECHO); if (ISSET(flags, CRMOD)) { SET(iflag, ICRNL); SET(oflag, ONLCR); } else { CLR(iflag, ICRNL); CLR(oflag, ONLCR); } if (ISSET(flags, XTABS)) SET(oflag, OXTABS); else CLR(oflag, OXTABS); if (ISSET(flags, RAW)) { iflag &= IXOFF; CLR(lflag, ISIG|ICANON|IEXTEN); CLR(cflag, PARENB); } else { SET(iflag, BRKINT|IXON|IMAXBEL); SET(lflag, ISIG|IEXTEN); if (ISSET(flags, CBREAK)) CLR(lflag, ICANON); else SET(lflag, ICANON); switch (ISSET(flags, ANYP)) { case 0: CLR(cflag, PARENB); break; case ANYP: SET(cflag, PARENB); CLR(iflag, INPCK); break; case EVENP: SET(cflag, PARENB); SET(iflag, INPCK); CLR(cflag, PARODD); break; case ODDP: SET(cflag, PARENB); SET(iflag, INPCK); SET(cflag, PARODD); break; } } /* Nothing we can do with CRTBS. */ if (ISSET(flags, PRTERA)) SET(lflag, ECHOPRT); else CLR(lflag, ECHOPRT); if (ISSET(flags, CRTERA)) SET(lflag, ECHOE); else CLR(lflag, ECHOE); /* Nothing we can do with TILDE. */ if (ISSET(flags, MDMBUF)) SET(cflag, MDMBUF); else CLR(cflag, MDMBUF); if (ISSET(flags, NOHANG)) CLR(cflag, HUPCL); else SET(cflag, HUPCL); if (ISSET(flags, CRTKIL)) SET(lflag, ECHOKE); else CLR(lflag, ECHOKE); if (ISSET(flags, CTLECH)) SET(lflag, ECHOCTL); else CLR(lflag, ECHOCTL); if (!ISSET(flags, DECCTQ)) SET(iflag, IXANY); else CLR(iflag, IXANY); CLR(lflag, TOSTOP|FLUSHO|PENDIN|NOFLSH); SET(lflag, ISSET(flags, TOSTOP|FLUSHO|PENDIN|NOFLSH)); if (ISSET(flags, RAW|LITOUT|PASS8)) { CLR(cflag, CSIZE); SET(cflag, CS8); if (!ISSET(flags, RAW|PASS8)) SET(iflag, ISTRIP); else CLR(iflag, ISTRIP); if (!ISSET(flags, RAW|LITOUT)) SET(oflag, OPOST); else CLR(oflag, OPOST); } else { CLR(cflag, CSIZE); SET(cflag, CS7); SET(iflag, ISTRIP); SET(oflag, OPOST); } tmode.c_iflag = iflag; tmode.c_oflag = oflag; tmode.c_cflag = cflag; tmode.c_lflag = lflag; } #endif #ifdef XXX_DELAY struct delayval { unsigned delay; /* delay in ms */ int bits; }; /* * below are random guesses, I can't be bothered checking */ struct delayval crdelay[] = { { 1, CR1 }, { 2, CR2 }, { 3, CR3 }, { 83, CR1 }, { 166, CR2 }, { 0, CR3 }, }; struct delayval nldelay[] = { { 1, NL1 }, /* special, calculated */ { 2, NL2 }, { 3, NL3 }, { 100, NL2 }, { 0, NL3 }, }; struct delayval bsdelay[] = { { 1, BS1 }, { 0, 0 }, }; struct delayval ffdelay[] = { { 1, FF1 }, { 1750, FF1 }, { 0, FF1 }, }; struct delayval tbdelay[] = { { 1, TAB1 }, { 2, TAB2 }, { 3, XTABS }, /* this is expand tabs */ { 100, TAB1 }, { 0, TAB2 }, }; int delaybits(void) { int f; f = adelay(CD, crdelay); f |= adelay(ND, nldelay); f |= adelay(FD, ffdelay); f |= adelay(TD, tbdelay); f |= adelay(BD, bsdelay); return (f); } int adelay(int ms, struct delayval *dp) { if (ms == 0) return (0); while (dp->delay && ms > dp->delay) dp++; return (dp->bits); } #endif char editedhost[MAXHOSTNAMELEN]; void edithost(const char *pat) { char *host = HN; char *res = editedhost; if (!pat) pat = ""; while (*pat) { switch (*pat) { case '#': if (*host) host++; break; case '@': if (*host) *res++ = *host++; break; default: *res++ = *pat; break; } if (res == &editedhost[sizeof editedhost - 1]) { *res = '\0'; return; } pat++; } if (*host) (void)strncpy(res, host, sizeof editedhost - (res - editedhost) - 1); else *res = '\0'; editedhost[sizeof editedhost - 1] = '\0'; } void makeenv(char *env[]) { static char termbuf[128] = "TERM="; char *p, *q; char **ep; ep = env; if (TT && *TT) { (void)strlcat(termbuf, TT, sizeof(termbuf)); *ep++ = termbuf; } if ((p = EV) != NULL) { q = p; while ((q = strchr(q, ',')) != NULL) { *q++ = '\0'; *ep++ = p; p = q; } if (*p) *ep++ = p; } *ep = (char *)0; } /* * This speed select mechanism is written for the Develcon DATASWITCH. * The Develcon sends a string of the form "B{speed}\n" at a predefined * baud rate. This string indicates the user's actual speed. * The routine below returns the terminal type mapped from derived speed. */ struct portselect { const char *ps_baud; const char *ps_type; } portspeeds[] = { { "B110", "std.110" }, { "B134", "std.134" }, { "B150", "std.150" }, { "B300", "std.300" }, { "B600", "std.600" }, { "B1200", "std.1200" }, { "B2400", "std.2400" }, { "B4800", "std.4800" }, { "B9600", "std.9600" }, { "B19200", "std.19200" }, { NULL, NULL } }; const char * portselector(void) { char c, baud[20]; const char *type = "default"; struct portselect *ps; size_t len; (void)alarm(5*60); for (len = 0; len < sizeof (baud) - 1; len++) { if (read(STDIN_FILENO, &c, 1) <= 0) break; c &= 0177; if (c == '\n' || c == '\r') break; if (c == 'B') len = 0; /* in case of leading garbage */ baud[len] = c; } baud[len] = '\0'; for (ps = portspeeds; ps->ps_baud; ps++) if (strcmp(ps->ps_baud, baud) == 0) { type = ps->ps_type; break; } (void)sleep(2); /* wait for connection to complete */ return (type); } /* * This auto-baud speed select mechanism is written for the Micom 600 * portselector. Selection is done by looking at how the character '\r' * is garbled at the different speeds. */ #include const char * autobaud(void) { struct pollfd set[1]; struct timespec timeout; char c; const char *type = "9600-baud"; (void)tcflush(0, TCIOFLUSH); set[0].fd = STDIN_FILENO; set[0].events = POLLIN; if (poll(set, 1, 5000) <= 0) return (type); if (read(STDIN_FILENO, &c, 1) != 1) return (type); timeout.tv_sec = 0; timeout.tv_nsec = 20000; (void)nanosleep(&timeout, NULL); (void)tcflush(0, TCIOFLUSH); switch (c & 0377) { case 0200: /* 300-baud */ type = "300-baud"; break; case 0346: /* 1200-baud */ type = "1200-baud"; break; case 015: /* 2400-baud */ case 0215: type = "2400-baud"; break; default: /* 4800-baud */ type = "4800-baud"; break; case 0377: /* 9600-baud */ type = "9600-baud"; break; } return (type); } src/libexec/getty/ttys.5010064400011300000175000000140431464217042100154400ustar00srcmastrnetbsd.\" $NetBSD: ttys.5,v 1.24 2024/07/06 07:24:01 simonb Exp $ .\" .\" Copyright (c) 1985, 1991, 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. Neither the name of the University nor the names of its contributors .\" may be used to endorse or promote products derived from this software .\" without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF .\" SUCH DAMAGE. .\" .\" from: @(#)ttys.5 8.1 (Berkeley) 6/4/93 .\" .Dd July 6, 2024 .Dt TTYS 5 .Os .Sh NAME .Nm ttys .Nd terminal initialization information .Sh DESCRIPTION The file .Nm contains information that is used by various routines to initialize and control the use of terminal special files. This information is read with the .Xr getttyent 3 library routines. .Pp There is one line in the .Nm file per special device file. Fields are separated by tabs and/or spaces. Fields comprising more than one word should be enclosed in double quotes .Pq Ql \*q . Blank lines and comments may appear anywhere in the file; comments are delimited by hash marks .Pq Ql # and new lines. Any unspecified fields will default to null. .Pp Each line in .Nm has the format: .Pp .Dl tty command type flags .Pp The first field is the name of the terminal special file as it is found in .Pa /dev . .Pp The second field of the file is the command to execute for the line, usually .Xr getty 8 , which initializes and opens the line, setting the speed, waiting for a user name and executing the .Xr login 1 program. However, it can be any desired command, for example the start up for a window system terminal emulator or some other daemon process, and can contain multiple words if quoted. .Pp The third field is the type of terminal usually connected to that tty line, normally the one found in the .Xr terminfo 5 data base file. The environment variable .Ev TERM is initialized with the value by either .Xr getty 8 or .Xr login 1 . .Pp The remaining fields set flags in the .Fa ty_status entry .Pq see Xr getttyent 3 or specify a window system process that .Xr init 8 will maintain for the terminal line or a key into a database of tty attributes .Pq currently unused . .Bl -tag -offset indent -width Ic .\" .It Ic on No or Ic off .Xr init 8 should .Pq or should not execute the command given in the second field. .\" .It Ic secure If .Ic on is specified, allows users with a uid of 0 .Pq e.g. Qq root to login on this line. .\" .It Ic local Sets the .Dv TIOCFLAG_CLOCAL .Xr tty 4 flag for the device. This will cause the .Xr termios 4 .Dv CLOCAL flag to be set on every open and thus modem control signal lines will be ignored by default. .\" .It Ic softcar Causes the driver to ignore hardware carrier on the line .Po by setting the .Dv TIOCFLAG_SOFTCAR .Xr tty 4 flag .Pc . .\" .It Ic rtscts Sets the .Dv TIOCFLAG_CRTSCTS .Xr tty 4 flag for the device to enable .Tn RTS Ns / Ns Tn CTS .Dq hardware flow control by default. .\" .It Ic mdmbuf Sets the .Dv TIOCFLAG_MDMBUF .Xr tty 4 flag for the device to enable .Tn DTR Ns / Ns Tn DCD .Dq hardware flow control by default. .El .Pp The flags .Ic local , .Ic rtscts , .Ic mdmbuf , and .Ic softcar modify the default behaviour of the terminal line, and their actions are device driver dependent. These flag fields should not be quoted. .Pp The string .Ql window= may be followed by a quoted command string which .Xr init 8 will execute .Em before starting the command specified by the second field. .Pp The string .Ql class= may be followed by a quoted string used as a key into a database of attributes for that category of tty. See .Xr getttynam 3 for more information on this feature. .Pp After changing the .Nm file a .Dv SIGHUP signal can be sent to .Xr init 8 with the command .Pp .Dl kill -HUP 1 .Pp On receipt of this signal, .Xr init 8 will re-read the .Nm file and spawn any necessary .Xr getty 8 processes. .Pp .Sy NB : Sending .Dv SIGHUP to .Xr init 8 does .Em not change the state of the various .Xr tty 4 device flags listed above; the .Xr ttyflags 8 program must be run for changes in those flags to take effect on the devices. .Sh FILES .Bl -tag -width Pa -compact .It Pa /etc/ttys .El .Sh EXAMPLES .Bd -literal # root login on console at 1200 baud console "/usr/libexec/getty std.1200" vt100 on secure # dialup at 1200 baud, no root logins tty00 "/usr/libexec/getty d1200" dialup on # 555-1234 # Mike's terminal: hp2621 ttyh0 "/usr/libexec/getty std.9600" hp2621-nl on # 457 Evans # John's terminal: vt100 ttyh1 "/usr/libexec/getty std.9600" vt100 on # 459 Evans # terminal emulate/window system ttyv0 "/usr/new/xterm -L :0" vs100 on window="/usr/new/Xvs100 0" # Network pseudo ttys -- don't enable getty ttyp0 none network ttyp1 none network off .Ed .Sh SEE ALSO .Xr login 1 , .Xr getttyent 3 , .Xr ttyslot 3 , .Xr tty 4 , .Xr gettytab 5 , .Xr terminfo 5 , .Xr getty 8 , .Xr init 8 , .Xr ttyflags 8 .Sh HISTORY A .Nm file appeared in .At v6 . src/libexec/httpd004075500011300000175000000000001520024423500142545ustar00srcmastrnetbsdsrc/libexec/httpd/CVS004075500011300000175000000000001520024423500147075ustar00srcmastrnetbsdsrc/libexec/httpd/CVS/Root010064400011300000175000000000441504273241000156300ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/httpd/CVS/Repository010064400011300000175000000000221504273241000170600ustar00srcmastrnetbsdsrc/libexec/httpd src/libexec/httpd/CVS/Entries010066400011300000175000000020361520024423500163220ustar00srcmastrnetbsd/Makefile.boot/1.9/Sun Jan 17 00:15:14 2021//Tnetbsd-11 /cgi-bozo.c/1.56/Wed Sep 20 08:41:35 2023//Tnetbsd-11 /content-bozo.c/1.22/Wed Jun 7 20:12:31 2023//Tnetbsd-11 /dir-index-bozo.c/1.37/Fri Apr 26 20:27:12 2024//Tnetbsd-11 /main.c/1.31/Wed Jun 7 20:12:31 2023//Tnetbsd-11 /netbsd_queue.h/1.1/Thu Jul 11 08:24:47 2013//Tnetbsd-11 /printenv.lua/1.5/Sun Feb 28 16:10:00 2021//Tnetbsd-11 D/debug//// D/libbozohttpd//// D/lua//// D/small//// D/testsuite//// /Makefile/1.36.2.1/Sat Nov 22 03:35:34 2025//Tnetbsd-11 /auth-bozo.c/1.28.4.1/Sat May 9 03:35:52 2026//Tnetbsd-11 /bozohttpd.h/1.73.6.1/Sat May 9 03:35:52 2026//Tnetbsd-11 /daemon-bozo.c/1.22.10.1/Sat May 9 03:35:52 2026//Tnetbsd-11 /lua-bozo.c/1.15.24.1/Sat May 9 03:35:52 2026//Tnetbsd-11 /ssl-bozo.c/1.34.4.1/Sat May 9 03:35:52 2026//Tnetbsd-11 /CHANGES/1.56.4.2/Mon May 11 03:10:21 2026//Tnetbsd-11 /bozohttpd.8/1.100.2.2/Mon May 11 03:10:21 2026//Tnetbsd-11 /bozohttpd.c/1.149.2.2/Mon May 11 03:10:21 2026//Tnetbsd-11 /tilde-luzah-bozo.c/1.16.14.1/Mon May 11 03:10:21 2026//Tnetbsd-11 src/libexec/httpd/CVS/Tag010064400011300000175000000000131522207752200154220ustar00srcmastrnetbsdTnetbsd-11 src/libexec/httpd/debug004075500011300000175000000000001504273241000153435ustar00srcmastrnetbsdsrc/libexec/httpd/debug/CVS004075500011300000175000000000001504273241000157765ustar00srcmastrnetbsdsrc/libexec/httpd/debug/CVS/Root010064400011300000175000000000441504273241000167160ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/httpd/debug/CVS/Repository010064400011300000175000000000301504273241000201450ustar00srcmastrnetbsdsrc/libexec/httpd/debug src/libexec/httpd/debug/CVS/Entries010064400011300000175000000000711504273241000174040ustar00srcmastrnetbsd/Makefile/1.1.1.1/Sat May 23 02:21:19 2009//Tnetbsd-11 D src/libexec/httpd/debug/CVS/Tag010064400011300000175000000000131522207752200165100ustar00srcmastrnetbsdTnetbsd-11 src/libexec/httpd/debug/Makefile010064400011300000175000000002671120565663700171010ustar00srcmastrnetbsd# $eterna: Makefile,v 1.1 2009/05/22 21:51:39 mrg Exp $ # build a debug bozohttpd PROG= bozohttpd-debug COPTS+= -DDEBUG -I$(.CURDIR)/.. .include "../Makefile" .PATH: $(.CURDIR)/.. src/libexec/httpd/CHANGES010064400011300000175000000412021520024423500153220ustar00srcmastrnetbsd$NetBSD: CHANGES,v 1.56.4.2 2026/05/08 19:48:27 martin Exp $ changes in bozohttpd 20260508: o fix a memory leak and potential double free. from shm. changes in bozohttpd 20260503: o fix the default minimum TLS version to 1.1 from 1.3. the manual already said 1.1 was the default. fixes PR#58878. o log the correct port with TLS connections. fixes PR#59644. o fix use-after-free, double-free, and bounds checking problems. from shm. o better lint support. o several updates for the manual. from lukem. changes in bozohttpd 20240428: o make directory listings mobile friendly. from D. Bohdan. changes in bozohttpd 20240126: o add some more default mime types. o fix memory leaks. from shm. o fix reading 2 bytes beyond '%', possibly not mapped. from shm. o support openssl 3. from christos. o add -q option to not log. from martin. o fix default return value of bozo_set_defaults(), PR#54785. changes in bozohttpd 20220104: o remove obsolete .bzdirect handling. changes in bozohttpd 20210824: o new "-m tlsversion" option to set the minimum TLS version available. partially from . o extend the list of available ciphers to include most of the openssl "HIGH" with some additional disables. retain the current list of bad options. should deal with PR#51278. changes in bozohttpd 20210504: o don't assume host BUFSIZ is sufficient. small BUFSIZ leads to always happens errors in the testsuite. switch all these buffers to be 4KiB sized. reported by embr changes in bozohttpd 20210403: o fix a denial of service attack against initial request contents, now bounded at 16KiB. reported by Justin Parrott in PR#56085 changes in bozohttpd 20210227: o new support for content types: .tar.bz2, .tar.xz, .tar.lz, .tar.zst, .tbz2, .txz, .tlz, .zipx, .xz, .zst, .sz, .lz, .lzma, .lzo, .7z, .lzo, .cab, .dmg, .jar, and .rar. should fix netbsd PR#56026: MIME type of .tar.xz file on ny{cdn,ftp}.NetBSD.org is invalid changes in bozohttpd 20210211: o fix various NULL derefs from malformed headers. mostly from . o fix memory leaks in library interface: add bozo_cleanup(). changes in bozohttpd 20201014: o also set -D_GNU_SOURCE in Makefile.boot. from hadrien.lacour@posteo.net. o fix array size botch (assertion, not exploitable.) from martin@netbsd.org. o also match %2F as well as %2f. from leah@vuxu.org. o many manual and help fixes. clean ups for higher lint levels, consistency/style clean ups. various option fixes including made -f imply -b. from for freebsd. changes in bozohttpd 20200912: o add .m4a and .m4v file extensions. changes in bozohttpd 20200820: o make this work on sun2 by reducing mmap window there. o fix SSL shutdown sequence. from spz@netbsd.org. o add readme support to directory indexing. from jmcneill@netbsd.org o add blocklist(8) support. from jruoho@netbsd.org. changes in bozohttpd 20190228: o extend timeout facility to ssl and stop servers hanging forever if the client never sends anything. reported by Steffen in netbsd PR#50655. o don't display special files in the directory index. they aren't served, but links to them are generated. o fix CGI '+' parameter handling, some error checking, and a double free. from rajeev_v_pillai@yahoo.com o more directory indexing clean up. from rajeev_v_pillai@yahoo.com changes in bozohttpd 20181215: o fix .htpasswd bypass for authenticated users. reported by JP, from leot@netbsd.org o avoid possible null dereference when receiving a big request that timeout. reported by maya@netbsd.org, from leot@netbsd.org o fix handling of -T option, from leot@netbsd.org o cleanups and portability improvements, from maya@netbsd.org o change directory indexing to use html tables, from rajeev_v_pillai@yahoo.com changes in bozohttpd 20181125: o fixes for option parsing introduced in bozohttpd 20181123 changes in bozohttpd 20181121: o add url remap support via .bzremap file, from martin@netbsd.org o handle redirections for any protocol, not just http: o fix a denial of service attack against header contents, which is now bounded at 16KiB. reported by JP o reduce default timeouts, and add expand timeouts to handle the initial line, each header, and the total time spent o add -T option to expose new timeout settings o minor RFC fixes related to timeout handling o fix special file (.htpasswd, .bz*) bypass. reported by JP changes in bozohttpd 20170201: o fix an infinite loop in cgi processing o fixes and clean up for the testsuite o no longer sends encoding header for compressed formats changes in bozohttpd 20160517: o add a bozo_get_version() function which returns the version number changes in bozohttpd 20160415: o add search-word support for CGI o fix a security issue in CGI suffix handler support which would allow remote code execution, from shm@netbsd.org o -C option supports now CGI scripts only changes in bozohttpd 20151028: o add CGI support for ~user translation (-E switch) o add redirects to ~user translation o fix bugs around ~user translation o add schema detection for absolute redirects o fixed few memory leaks o bunch of minor tweaks o removed -r support o smarter redirects changes in bozohttpd 20150320: o fix redirection handling o support transport stream (.ts) and video object (.vob) files o directory listings show correct file sizes for large files changes in bozohttpd 20140717: o properly handle SSL errors changes in bozohttpd 20140708: o fixes for virtual host support, from rajeev_v_pillai@yahoo.com o avoid printing double errors, from shm@netbsd.org o fix a security issue in basic HTTP authentication which would allow authentication to be bypassed, from shm@netbsd.org changes in bozohttpd 20140201: o support .svg files o fix a core dump when requests timeout changes in bozohttpd 20140102: o update a few content types o add support for directly calling lua scripts to handle processes, from mbalmer@netbsd.org o properly escape generated HTML o add authentication for redirections, from martin@netbsd.org o handle chained ssl certifications, from elric@netbsd.org o add basic support for gzipped files, from elric@netbsd.org o properly escape generated URIs changes in bozohttpd 20111118: o add -P option, from jmmv@netbsd.org o avoid crashes with http basic auth, from pooka@netbsd.org o add support for REDIRECT_STATUS variable, from tls@netbsd.org o support .mp4 files in the default map o directory indexes with files with : are now displayed properly, from reed@netbsd.org o allow -I option to be useful in non-inetd mode as well changes in bozohttpd 20100920: o properly fully disable multi-file mode for now o fix the -t and -U options when used without the -e option, broken since the library-ifcation o be explicit that logs go to the FTP facility in syslog o use scandir() with alphasort() for sorted directory lists, from moof o fix a serious error in vhost handling; "Host:.." would allow access to the next level directory from the virtual root directory, from seanb o fix some various non standard compile time errors, from rudolf o fix dynamic CGI content maps, from rudolf changes in bozohttpd 20100617: o fix some compile issues o fix SSL mode. from rtr o fix some cgi-bin issues, as seen with cvsweb o disable multi-file daemon mode for now, it breaks o return 404's instead of 403's when chdir of ~user dirs fail o remove "noreturn" attribute from bozo_http_error() that was causing incorrect runtime behaviour changes in bozohttpd 20100509: o major rework and clean up of internal interfaces. move the main program into main.c, the remaining parts are useable as library add bindings for lua. by Alistair G. Crooks o fix http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=566325 changes in bozohttpd 20090522: o avoid dying in daemon mode for some uncommon, but recoverable, errors o close leaking file descriptors for CGI and daemon mode o handle poll errors properly o don't try to handle more than one request per process yet o add subdirs for build "debug" and "small" versions o clean up a bad merge / duplicate code o make mmap() usage portable, fixes linux & ranges: support o document the -f option o daemon mode now serves 6 files per child changes in bozohttpd 20090417: o make bozohttpd internally more modular, preparing the way to handle more than one request per process o fix http-auth, set $REMOTE_USER not $REMOTEUSER. also fix cgi-bin with cvsweb, from Holger Weiss o fix an uninitialised variable use in daemon mode o fix ssl mode with newer OpenSSL o mmap large files in manageable sizes so we can serve any size file o refactor url processing to handle query strings correctly for CGI from Sergey Katsev at Coyote Point o add If-Modified-Since support, from Joerg Sonnenberger o many more manual fixes, from NetBSD changes in bozohttpd 20080303: o fix some cgi header processing, from o add simple Range: header processing, from o man page fixes, from NetBSD o clean up various parts, from NetBSD changes in bozohttpd 20060710: o prefix some function names with "bozo" o align directory indexing
markers o clean up some code GCC4 grumbled about changes in bozohttpd 20060517: o don't allow "/.." or "../" files o don't write ":80" into urls for the http port o fix a fd leak when fork() fails o make directory indexing mode not look so ugly o build a text version of the manual page o make "make clean" work properly changes in bozohttpd 20050410: o fix some off-by-one errors from o properly support nph- CGI o make content maps case insensitive o fix proto header merging to include the missing comma o major source reorganisation; most features are in separate files now o new -V flag that makes unknown virtualhosts use slashdir from o HTTP/1.x protocol headers are now properly merged for CGI changes in bozohttpd 20040808: o CGI status is now properly handled (-a flag has been removed) o CGI file upload support works o %xy translations are no longer ever applied after the first '?', ala RFC2396. from lukem o daemon mode (-b) should no longer hang spinning forever if it sees no children. from lukem o new .bzabsredirect file support. from o return a 404 error if we see %00 or %2f (/) o don't print 2 "200" headers for CGI o support .torrent files changes in bozohttpd 20040218: o new .bzredirect file support for sane directory redirection o new -Z option that enables SSL mode, from o the -C option has been changed to take two explicit options, rather than a single option with a space separating the suffix and the interpreter. ``-C ".foo /path/to/bar"'' should now be written as ``-C .foo /path/to/bar'' o the -M option has been changed like -C and no longer requires or supports a single argument with space-separated options o with -a, still print the 200 OK. from o with -r, if a .bzdirect file appears in a directory, allow direct access to this directory changes in bozohttpd 20031005: o fixes for basic authorisation. from o always display file size in directory index mode o add .xbel, .xml & .xsl -> text/xml mappings. from changes in bozohttpd 20030626: o fix a recent core dump when given no input o add new -r flag that ensures referrer is set to this host o fix several compile time errors with -DNO_CGIBIN_SUPPORT o fix some man page details. from lukem@wasabisystems.com o re-add a missing memset(), fixing a core dump. from lukem o support HTTP basic authorisation, disabled by default. from lukem o print the port number in redirects and errors. from lukem o only syslog the basename of the program. from lukem o add __attribute__() format checking. from lukem o fix cgibin SCRIPT_NAME to have a leading /. from zakj@nox.cx o simplify some code in -C to avoid a core dump. from lukem o add a .css -> css/text entry to the content_map[]. from zakj@nox.cx changes in bozohttpd 20030409: o -d without DEBUG enabled only prints one warning and continues o one can now define the C macro SERVER_SOFTWARE when building to change the Server: header and CGI variable of the same name o add new -s flag the force logging output to stderr. from zakj@nox.cx o add new -a flag for CGI bin that stops bozohttpd from outputting any HTTP reply, the CGI program must output these. from zakj@nox.cx o new REQUEST_URI and DATE_GMT environment variables for CGI. from zakj@nox.cx o add a "Makefile.boot" that should work with any make program o build on linux again o fix core dumps when using -C changes in bozohttpd 20030313: o deprecate -r flag; make this the default and silently ignore -r now o add support for file extensions to call CGI programs (from lukem) o add dynamic support to add new content map entries, allowing both new file types and non /cgi-bin CGI programs to be run with the new -C "suffix cgihandler" and -M "suffix type encoding encoding11" options o in -b mode, set the http date after accept() returns, not before we call accept() o in -b mode, bind all addresses found not just the first one o unsupport old hostname API o in -b mode, set the SO_REUSEADDR socket option (lukem) o allow -x (index.html) mode to work with CGI handlers changes in bozohttpd 20021106: o add .bz2 support o properly escape <, > and & in error messages, partly from Nicolas Jombart o new -H flag to hide .* files in directory index mode o fix buffer reallocation when parsing a request, to avoid overflowing the buffer with carriage returns (\r) o do not decode "%XY"-style cgi-bin data beyond the "?" changes in bozohttpd 5.15 (20020913): o add .ogg support -> `application/x-ogg' o fix CGI requests with "/" in the query part changes in bozohttpd 5.14 (20020823): o allow -X mode to work for "/" o work on systems without MADV_SEQUENTIAL o make a local cut-down copy of "queue.h" (fixes linux & solaris support at the very least) o portability fixes for pre-ipv6 socket api systems (eg, solaris 7) o portability fixes for missing _PATH_DEFPATH, LOG_FTP and __progname o better documentation on virtual host support changes in bozohttpd 5.13 (20020804): o support .mp3 files (type audio/mpeg) o use stat() to find out if something is a directory, for -X mode changes in bozohttpd 5.12 (20020803): o constification o fixes & enhancements for directory index mode (-X) changes in bozohttpd 5.11 (20020730): o more man page fixes from Thomas Klausner o de-K&R C-ification o fix Date: header for daemon mode o fix core dump when asking for /cgi-bin/ when CGI isn't configured o use a valid Server: header changes in bozohttpd 5.10 (20020710): - add freebsd support - fix a couple of header typos - many cgi-bin fixes from lukem@netbsd.org - add -T chrootdir and -U user, plus several minor other cleanups with signals and return values. from xs@kittenz.org - add -e that does not clear the environment for -T/-U - fix a formatting error noticed by ISIHARA Takanori changes in bozohttpd 5.09 (20010922): - add a daemon mode - document how to use bozohttpd in netbsd inetd with more than 40 connections per minute and also with cgibin - man page fixes from wiz@netbsd.org changes in bozohttpd 5.08 (20010812): - add directory index generation support (-X) from ad@netbsd.org - add .pa as an alias for .pac - make server software version configurable (RFC) changes in bozohttpd 5.07 (20010610): - add .png support - new "-x index.html" flag to change default file - new "-p public_html" flag to change default ~user directory - fixes cgi-bin support and more from chuck@research.att.com - add many new content-types, now support most common ones changes in bozohttpd 5.06 (20000825): - add IPv6 support from itojun@iijlab.net - man page fixes from jlam@netbsd.org changes in bozohttpd 5.05 (20000815): - fix a virtual host bug, from kleink@netbsd.org changes in bozohttpd 5.04 (20000427): - fix virtual host support; URI takes precedence over Host: changes in bozohttpd 5.03 (20000427): - fix a bug with chdir() changes in bozohttpd 5.02 (20000426): - .pac support from simonb changes in bozohttpd 5.01 (20000421): - .swf support - virtual hosting support src/libexec/httpd/Makefile010064400011300000175000000056221511022760600160000ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.36.2.1 2025/11/20 18:46:41 martin Exp $ # # $eterna: Makefile,v 1.30 2010/07/11 00:34:27 mrg Exp $ # # berkeley (netbsd) makefile. see Makefile.boot for other systems. # compile-time options are: # NO_DEBUG /* don't include debugging support */ # NO_USER_SUPPORT /* don't support /~user requests */ # NO_CGIBIN_SUPPORT /* don't support cgi-bin requests */ # NO_DIRINDEX_SUPPORT /* don't support directory indexing */ # NO_DAEMON_MODE /* don't support daemon mode */ # NO_DYNAMIC_CONTENT /* don't support dynamic content updates */ # NO_SSL_SUPPORT /* don't support ssl (https) */ # DO_HTPASSWD /* support .htpasswd files */ # NO_LUA_SUPPORT /* don't support Lua for dynamic content */ # NO_BLOCKLIST_SUPPORT /* don't support blocklist */ # # other system specific defines: # HAVE_NBUTIL_H /* netbsd compat is in # (don't forget to also enable -lnbutil) # # these are usually set via the "COPTS" variable, or some other method # for setting CFLAGS relevant to your make, eg # % make COPTS="-DDO_HTPASSWD" COPTS+= -DDO_HTPASSWD PROG= bozohttpd LINKS= ${BINDIR}/bozohttpd ${BINDIR}/httpd MAN= bozohttpd.8 MLINKS+=bozohttpd.8 httpd.8 SRCS= bozohttpd.c ssl-bozo.c auth-bozo.c cgi-bozo.c daemon-bozo.c \ tilde-luzah-bozo.c dir-index-bozo.c content-bozo.c lua-bozo.c SRCS+= main.c COPTS.ssl-bozo.c+=-Wno-error=deprecated-declarations LDADD= -lblocklist -lcrypt -llua -lm DPADD= ${LIBBLOCKLIST} ${LIBCRYPT} ${LIBLUA} ${LIBM} WARNS?= 4 LINTFLAGS+= -X 193 # statement not reached .if defined(.OS.MAKE) OPSYS= ${.OS.MAKE} .else OPSYS:= ${:!uname -s!:S/-//g:S/\///g} .endif .if ${OPSYS} == "QNX" CPPFLAGS+= -DHAVE_NBUTIL_H LDADD+= -lnbutil .endif LDADD+= -lssl -lcrypto DPADD+= ${LIBSSL} ${LIBCRYPTO} # # Build release things. # NROFF?= nroff PREHTMLFROB= sed \ -e 's/&/\&/' \ -e 's//\>/' HTMLFROB= sed \ -e 's/\([MC] "[^"]*\)
$$/\1"<\/b>
/' \ -e 's/'"''"'/\”/' \ -e 's/""/\“/' \ -e 's/ ${TAR}.gz; \ bzip2 -9 ${TAR}; \ echo "Exported two files in $${dir}:"; \ echo ${TAR}.gz; \ echo ${TAR}.bz2 .include src/libexec/httpd/Makefile.boot010064400011300000175000000015371400070062200167320ustar00srcmastrnetbsd# $eterna: Makefile.boot,v 1.9 2010/05/10 04:57:50 mrg Exp $ # # very simple makefile to compile bozohttpd, should work with every make. # see Makefile for a list of compile options that may be placed in CFLAGS. CC= cc OPT= -O LARGE_CFLAGS= -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 LOCAL_CFLAGS= -DNO_LUA_SUPPORT -DNO_BLOCKLIST_SUPPORT -D_GNU_SOURCE -D_DEFAULT_SOURCE CFLAGS= $(OPT) $(LARGE_CFLAGS) $(LOCAL_CFLAGS) GROFF= groff -Tascii CRYPTOLIBDIR= # -L/usr/local/lib CRYPTOLIBS= $(CRYPTOLIBDIR) -lcrypto -lssl LIBS= $(CRYPTOLIBS) $(EXTRALIBS) FILES= bozohttpd.c auth-bozo.c cgi-bozo.c content-bozo.c daemon-bozo.c \ dir-index-bozo.c lua-bozo.c ssl-bozo.c tilde-luzah-bozo.c main.c all: $(CC) $(CPPFLAGS) $(CFLAGS) $(LDFLAGS) -o bozohttpd $(FILES) $(LIBS) man: $(GROFF) -mandoc bozohttpd.8 > bozohttpd.cat8 clean: rm -f bozohttpd bozohttpd.cat8 *.o src/libexec/httpd/auth-bozo.c010064400011300000175000000170301517752563000164230ustar00srcmastrnetbsd/* $NetBSD: auth-bozo.c,v 1.28.4.1 2026/05/07 15:51:07 martin Exp $ */ /* $eterna: auth-bozo.c,v 1.17 2011/11/18 09:21:15 mrg Exp $ */ /* * Copyright (c) 1997-2021 Matthew R. Green * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer and * dedication in the documentation and/or other materials provided * with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * */ /* this code implements "http basic authorisation" for bozohttpd */ #ifdef DO_HTPASSWD #include #include #include #include #include "bozohttpd.h" static ssize_t base64_decode(const unsigned char *, size_t, unsigned char *, size_t); /* * Check if HTTP authentication is required */ int bozo_auth_check(bozo_httpreq_t *request, const char *file) { bozohttpd_t *httpd = request->hr_httpd; struct stat sb; char dir[MAXPATHLEN], authfile[MAXPATHLEN], *basename; char user[BOZO_MINBUFSIZE], *pass; FILE *fp; int len; /* get dir=dirname(file) */ snprintf(dir, sizeof(dir), "%s", file); if ((basename = strrchr(dir, '/')) == NULL) strcpy(dir, "."); else { *basename++ = '\0'; if (bozo_check_special_files(request, basename, true)) return 1; } /* we might be called from cgi code again with the hr_authrealm * already set */ if (request->hr_authrealm) free(request->hr_authrealm); request->hr_authrealm = bozostrdup(httpd, request, dir); if ((size_t)snprintf(authfile, sizeof(authfile), "%s/%s", dir, AUTH_FILE) >= sizeof(authfile)) { return bozo_http_error(httpd, 404, request, "authfile path too long"); } if (stat(authfile, &sb) < 0) { debug((httpd, DEBUG_NORMAL, "bozo_auth_check realm `%s' dir `%s' authfile `%s' missing", dir, file, authfile)); return 0; } if ((fp = fopen(authfile, "r")) == NULL) return bozo_http_error(httpd, 403, request, "no permission to open authfile"); debug((httpd, DEBUG_NORMAL, "bozo_auth_check realm `%s' dir `%s' authfile `%s' open", dir, file, authfile)); if (request->hr_authuser && request->hr_authpass) { while (fgets(user, sizeof(user), fp) != NULL) { len = strlen(user); if (len > 0 && user[len-1] == '\n') user[--len] = '\0'; if ((pass = strchr(user, ':')) == NULL) continue; *pass++ = '\0'; debug((httpd, DEBUG_NORMAL, "bozo_auth_check authfile `%s':`%s' " "client `%s':`%s'", user, pass, request->hr_authuser, request->hr_authpass)); if (strcmp(request->hr_authuser, user) != 0) continue; if (strcmp(crypt(request->hr_authpass, pass), pass) != 0) break; fclose(fp); #ifndef NO_BLOCKLIST_SUPPORT pfilter_notify(BLOCKLIST_AUTH_OK, 200); #endif /* !NO_BLOCKLIST_SUPPORT */ return 0; } } fclose(fp); return bozo_http_error(httpd, 401, request, "bad auth"); } void bozo_auth_init(bozo_httpreq_t *request) { request->hr_authuser = NULL; request->hr_authpass = NULL; request->hr_authrealm = NULL; } void bozo_auth_cleanup(bozo_httpreq_t *request) { if (request == NULL) return; free(request->hr_authuser); free(request->hr_authpass); free(request->hr_authrealm); } int bozo_auth_check_headers(bozo_httpreq_t *request, char *val, char *str, ssize_t len) { bozohttpd_t *httpd = request->hr_httpd; if (strcasecmp(val, "authorization") == 0 && strncasecmp(str, "Basic ", 6) == 0) { char authbuf[BOZO_MINBUFSIZE]; char *pass = NULL; ssize_t alen; /* free prior entries. */ free(request->hr_authuser); free(request->hr_authpass); alen = base64_decode((unsigned char *)str + 6, (size_t)(len - 6), (unsigned char *)authbuf, sizeof(authbuf) - 1); if (alen != -1) authbuf[alen] = '\0'; if (alen == -1 || (pass = strchr(authbuf, ':')) == NULL) return bozo_http_error(httpd, 400, request, "bad authorization field"); *pass++ = '\0'; request->hr_authuser = bozostrdup(httpd, request, authbuf); request->hr_authpass = bozostrdup(httpd, request, pass); debug((httpd, DEBUG_FAT, "decoded authorization `%s' as `%s':`%s'", str, request->hr_authuser, request->hr_authpass)); /* don't store in request->headers */ return 1; } return 0; } void bozo_auth_check_401(bozo_httpreq_t *request, int code) { bozohttpd_t *httpd = request->hr_httpd; if (code == 401) bozo_printf(httpd, "WWW-Authenticate: Basic realm=\"%s\"\r\n", request->hr_authrealm ? request->hr_authrealm : "default realm"); } #ifndef NO_CGIBIN_SUPPORT void bozo_auth_cgi_setenv(bozo_httpreq_t *request, char ***curenvpp) { bozohttpd_t *httpd = request->hr_httpd; if (request->hr_authuser && *request->hr_authuser) { bozo_setenv(httpd, "AUTH_TYPE", "Basic", (*curenvpp)++); bozo_setenv(httpd, "REMOTE_USER", request->hr_authuser, (*curenvpp)++); } } int bozo_auth_cgi_count(bozo_httpreq_t *request) { return (request->hr_authuser && *request->hr_authuser) ? 2 : 0; } #endif /* NO_CGIBIN_SUPPORT */ /* * Decode len bytes starting at in using base64 encoding into out. * Result is *not* NUL terminated. * Written by Luke Mewburn */ const unsigned char decodetable[] = { 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 62, 255, 255, 255, 63, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 255, 255, 255, 0, 255, 255, 255, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 255, 255, 255, 255, 255, 255, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 255, 255, 255, 255, 255, }; static ssize_t base64_decode(const unsigned char *in, size_t ilen, unsigned char *out, size_t olen) { unsigned char *cp; size_t i; if (ilen == 0) { if (olen) *out = '\0'; return 0; } cp = out; for (i = 0; i < ilen; i += 4) { if (cp + 3 > out + olen) return (-1); #define IN_CHECK(x) \ if ((x) >= sizeof(decodetable) || decodetable[(x)] == 255) \ return(-1) IN_CHECK(in[i + 0]); /*LINTED*/ *(cp++) = decodetable[in[i + 0]] << 2 | decodetable[in[i + 1]] >> 4; IN_CHECK(in[i + 1]); /*LINTED*/ *(cp++) = decodetable[in[i + 1]] << 4 | decodetable[in[i + 2]] >> 2; IN_CHECK(in[i + 2]); *(cp++) = decodetable[in[i + 2]] << 6 | decodetable[in[i + 3]]; #undef IN_CHECK } while (i > 0 && in[i - 1] == '=') cp--,i--; return (cp - out); } #endif /* DO_HTPASSWD */ src/libexec/httpd/bozohttpd.8010064400011300000175000000523631520024423500164470ustar00srcmastrnetbsd.\" $NetBSD: bozohttpd.8,v 1.100.2.2 2026/05/08 19:48:27 martin Exp $ .\" .\" $eterna: bozohttpd.8,v 1.101 2011/11/18 01:25:11 mrg Exp $ .\" .\" Copyright (c) 1997-2026 Matthew R. Green .\" All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" .\" THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR .\" IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES .\" OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. .\" IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, .\" INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, .\" BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; .\" LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED .\" AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, .\" OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF .\" SUCH DAMAGE. .\" .Dd May 8, 2026 .Dt BOZOHTTPD 8 .Os .Sh NAME .Nm bozohttpd .Nd hyper text transfer protocol version 1.1 daemon .Sh SYNOPSIS .Nm .Op Fl EGHVXdefhnqsu .Op Fl C Ar suffix cgihandler .Op Fl I Ar port .Op Fl L Ar prefix script .Op Fl M Ar suffix type encoding encoding11 .Op Fl m Ar version .Op Fl P Ar pidfile .Op Fl R Ar readme .Op Fl S Ar version .Op Fl T Ar type timeout .Op Fl U Ar username .Op Fl Z Ar cert privkey .Op Fl c Ar cgibin .Op Fl i Ar address .Op Fl p Ar pubdir .Op Fl t Ar chrootdir .Op Fl v Ar virtualroot .Op Fl x Ar index .Op Fl z Ar ciphers .Ar slashdir .Op Ar myname .Sh DESCRIPTION The .Nm program reads a .Em HTTP request from the standard input, and sends a reply to the standard output. Besides ~user translation and virtual hosting support (see below), all file requests are from .Ar slashdir directory. The server uses .Ar myname as its name, which defaults to the local hostname, obtained from .Xr gethostname 3 (but see the .Fl v option for virtual hosting.) .Nm writes logs to .Xr syslog 3 using the ftp facility (but see the .Fl s option for testing and the .Fl q option for suppressing this.) .Nm is designed to be small, simple and relatively featureless, hopefully increasing its security. .Ss OPTIONS The following options are available: .Bl -tag -width xxxcgibin .It Fl b Enables stand-alone daemon mode, where .Nm detaches from the current terminal and runs in the background (unless invoked with .Fl f ) , listens on the appropriate IP address (see .Fl i Ar address ) and TCP port (see .Fl I Ar port ) , and services HTTP requests. .Nm does not use .Xr inetd 8 in stand-alone daemon mode. .It Fl C Ar suffix cgihandler Adds a new CGI handler program for a particular file type. The .Ar suffix should be any normal file suffix, and the .Ar cgihandler should be a full path to an interpreter. This option is the only way to enable CGI programs that exist outside of the cgibin directory to be executed. Multiple .Fl C options may be passed. .It Fl c Ar cgibin Enables the CGI/1.1 interface. The .Ar cgibin directory is expected to contain the CGI programs to be used. .Nm looks for URLs in the form of .Ql /cgi-bin/ Ns Ar scriptname where .Ar scriptname is a valid CGI program in the .Ar cgibin directory. In other words, all CGI URLs must begin with .Ql \%/cgi-bin/ . Note that the CGI/1.1 interface is available with .Ql ~user translation using .Fl E switch. .It Fl d Enables debug support. .It Fl E Enables CGI/1.1 interface for .Ql ~user translation. Note that enabling this support implies that users can run commands as the web server user. This may have security implications. .It Fl e Do not clear the environment when used with either the .Fl t or .Fl U options. .It Fl f Stops the .Fl b option from detaching .Nm from the tty and going into the background as part of stand-alone daemon mode. This implies the .Fl b option. .It Fl G Get the .Nm version string, print it on standard output, and exit. .It Fl H Changes directory index mode (see .Fl X option) to hide files and directories that start with a period .Pq Ql \&. , except for .Pa .. . .It Fl I Ar port Use .Ar port instead of the default .Dq http port (usually 80, see .Xr services 5 ) . When used with the .Fl b or .Fl f options, this option changes the bound port. Otherwise this option forces redirections to use this port instead of the value obtained via .Xr getsockname 2 . .It Fl i Ar address Use .Ar address as the address to bind to in stand-alone daemon mode. If this option is not provided, all available IP addresses will be listened to. Only the last .Fl i option is used. This option is only valid with the .Fl b or .Fl f options. .It Fl L Ar prefix script Adds a new Lua script for a particular prefix. The .Ar prefix should be an arbitrary text, and the .Ar script should be a full path to a Lua script. Multiple .Fl L options may be passed. A separate Lua state is created for each prefix. The Lua script can register callbacks using the .Dl httpd.register_handler('suffixpath', luafunc) Lua function, which will trigger the execution of the Lua function .Fn luafunc when a URL in the form .Sm off .Li http:// Ar hostname Li / Ar prefix Li / Ar suffixpath .Sm on is being accessed. The function is passed three tables as arguments, the server environment, the request headers, and the decoded query string plus any data that was sent as application/x-www-form-urlencoded. .It Fl M Ar suffix type encoding encoding11 Adds a new entry to the table that converts file suffixes to content type and encoding. This option takes four additional arguments containing the file prefix, its .Dq Content-Type , .Dq Content-Encoding , and .Dq Content-Encoding for HTTP/1.1 connections, respectively. If any of these are a single dash .Pq Dq - , the empty string is used instead. Multiple .Fl M options may be passed. .It Fl m Ar version Set the minimum supported SSL protocol .Ar version . The valid values of .Ar version are .Dq TLSv1.1 , .Dq TLSv1.2 , and .Dq TLSv1.3 . The default version is .Dq TLSv1.1 . .It Fl n Stops .Nm from doing IP address to name resolution of remote hosts. This affects the .Ev REMOTE_HOST environment variable for CGI programs and Lua scripts. .It Fl P Ar pidfile Create a PID file in .Ar pidfile when run in daemon mode with the .Fl b or .Fl f options. .It Fl p Ar pubdir Changes the default user directory for .Ql /~user/ translations from .Pa public_html to .Ar pubdir . .It Fl q Quiet mode - no log entries generated. .It Fl R Ar readme When directory indexing is enabled (see .Fl X option), include the contents of the file .Ar readme in the footer of the directory index. .It Fl S Ar version Sets the internal server version to .Ar version . .It Fl s Forces logging to be set to stderr always. .It Fl T Ar type timeout Set the timeout for .Ar type to .Ar timeout . The valid values of .Ar type are .Dq ssl timeout , .Dq initial timeout , .Dq header timeout , and .Dq request timeout . The default values are 30 seconds, 30 seconds, 10 seconds and 600 seconds, respectively. .It Fl t Ar chrootdir Makes .Nm chroot to the specified directory before answering requests. Every other path should be specified relative to the new root, if this option is used. Note that the current environment is normally replaced with an empty environment with this option, unless the .Fl e option is also used. .It Fl U Ar username Switch to the user and the groups of .Ar username after initialization. This option, like .Fl t above, causes .Nm to clear the environment unless the .Fl e option is given. .It Fl u Enables the transformation of Uniform Resource Locators of the form .Ql /~user/ into the directory .Pa ~user/public_html (but see the .Fl p option above). .It Fl V Sets the backup virtual host directory to the .Ar slashdir argument. If no directory exists in .Ar virtualroot for the request, then .Ar slashdir will be used. The default behavior is to return 404 (Not Found.) .It Fl v Ar virtualroot Enables virtual hosting support. Directories in .Ar virtualroot will be searched for a matching virtual host name, when parsing the HTML request. If a matching name is found, it will be used as both the server's real name, .Op Ar myname , and as the .Ar slashdir . See the .Sx EXAMPLES section for an example of using this option. .It Fl X Enables directory indexing. A directory index will be generated only when the default index file is not present (i.e., .Pa index.html unless changed with .Fl x Ar index ) . .It Fl x Ar index Changes the default file read for directories from .Pa index.html to .Ar index . .It Fl Z Ar certificate_path privatekey_path Sets the path to the server certificate file and the private key file in PEM format. This option also causes .Nm to start SSL mode. .It Fl z Ar ciphers Sets the list of SSL ciphers (see .Xr SSL_CTX_set_cipher_list 3 ) . .El .Pp Note that in .Nm versions 20031005 and prior that supported the .Fl C and .Fl M options, they took a single space-separated argument that was parsed. since version 20040828, they take multiple options (2 in the case of .Fl C and 4 in the case of .Fl M . ) .Ss INETD CONFIGURATION By default .Nm uses .Xr inetd 8 to process incoming TCP connections for HTTP requests (unless stand-alone daemon mode is enabled with the .Fl b or .Fl f options), .Nm has little internal networking knowledge. (Indeed, you can run .Nm on the command line with little change of functionality.) A typical .Xr inetd.conf 5 entry would be: .Bd -literal http stream tcp nowait:600 _httpd /usr/libexec/httpd httpd /var/www http stream tcp6 nowait:600 _httpd /usr/libexec/httpd httpd /var/www .Ed .Pp This would serve web pages from .Pa /var/www on both IPv4 and IPv6 ports. The .Ql :600 changes the requests per minute to 600, up from the .Xr inetd 8 default of 40. .Pp Using the .Nx .Xr inetd 8 , you can provide multiple IP-address based HTTP servers by having multiple listening ports with different configurations. .Ss NOTES This server supports the .Em HTTP/0.9 , .Em HTTP/1.0 , and .Em HTTP/1.1 standards. Support for these protocols is very minimal and many optional features are not supported. .Pp .Nm can be compiled without CGI support (NO_CGIBIN_SUPPORT), user transformations (NO_USER_SUPPORT), directory index support (NO_DIRINDEX_SUPPORT), daemon mode support (NO_DAEMON_MODE), dynamic MIME content (NO_DYNAMIC_CONTENT), Lua support (NO_LUA_SUPPORT), and SSL support (NO_SSL_SUPPORT) by defining the listed macros when building .Nm . .Ss HTTP BASIC AUTHORIZATION .Nm has support for HTTP Basic Authorization. If a file named .Pa .htpasswd exists in the directory of the current request, .Nm will restrict access to documents in that directory using the RFC 2617 HTTP .Dq Basic authentication scheme. .Pp Note: This does not recursively protect any sub-directories. .Pp The .Pa .htpasswd file contains lines delimited with a colon containing user names and passwords hashed with .Xr crypt 3 , for example: .Bd -literal heather:$1$pZWI4tH/$DzDPl63i6VvVRv2lJNV7k1 jeremy:A.xewbx2DpQ8I .Ed .Pp On .Nx , the .Xr pwhash 1 utility may be used to generate hashed passwords. .Pp While .Nm distributed with .Nx has support for HTTP Basic Authorization enabled by default, in the portable distribution this feature is disabled. Compile .Nm with .Dq -DDO_HTPASSWD on the compiler command line to enable this support. This may require linking with the crypt library, using .Dq -lcrypt . .Ss BLOCKLIST SUPPORT On .Nx , .Nm supports .Xr blocklistd 8 by default. The support can be disabled with the .Dq -DNO_BLOCKLIST_SUPPORT compilation option. .Pp Upon occurrence, .Nm reports two HTTP status codes to .Xr blocklistd 8 as failures: .Er 401 (``Unauthorized'') and .Er 403 (``Forbidden'') . Of these, .Er 401 is the one received upon authorization failure with the HTTP Basic Authorization mechanism. A successful authorization decreases the counter kept by .Xr blocklistd 8 . .Pp Note that the implementation of the HTTP Basic Authorization mechanism uses a redirection; a status code .Er 401 is always initially received. Therefore, a single authorization failure of .Pa .htpasswd is reported as two failures to .Xr blocklistd 8 , but no failures are recorded upon successful authorization due to the decrease of the failure counter. .Ss SSL SUPPORT .Nm has support for TLSv1.1 and TLSv1.2 protocols that are included by default. This requires linking with the crypto and ssl library, using .Dq -lcrypto -lssl . To disable SSL SUPPORT compile .Nm with .Dq -DNO_SSL_SUPPORT on the compiler command line. .Pp To have an enforced redirect, such as http to https, create a shadow directory root that contains a .Pa .bzabsredirect file that points to the real target. .Ss COMPRESSION .Nm supports a very basic form of compression. .Nm will serve the requested file postpended with .Dq Pa .gz if it exists, it is readable, the client requested gzip compression, and the client did not make a ranged request. .Sh FILES .Nm processes specific files in each directory that enables certain features on a per-directory basis. These per-directory files are: .Bl -tag -width .htpasswd .It Pa .bzabsredirect Symbolic link to the absolute URL pointed to by this symlink. This is useful to redirect to different servers. See .Sx SYMBOLIC LINK REDIRECTION . .It Pa .bzredirect Symbolic link to URL for .Nm to perform a smart redirect to the target of this symlink. The target is assumed to live on the same server. If target starts with slash then absolute redirection is performed, otherwise it is handled as relative. See .Sx SYMBOLIC LINK REDIRECTION . .It Pa .bzremap Used by rewrite mappings; see .Sx REWRITE MAPPINGS . .It Pa .htpasswd Used by HTTP basic authorization; see .Sx HTTP BASIC AUTHORIZATION . .El .Ss SYMBOLIC LINK REDIRECTION Two forms of redirection are supported: .Bl -enum .It A symbolic link without schema will use .Li http:// as default. E.g., a symbolic link to .Pa NetBSD.org will redirect to .Lk http://NetBSD.org/ . .It A symbolic link with a schema uses the provided schema. E.g., a symbolic link to .Pa ftp://NetBSD.org/ will redirect to .Lk ftp://NetBSD.org/ . .El .Ss REWRITE MAPPINGS If a .Pa .bzremap file is found at the root of a (virtual) server, it is expected to contain rewrite mappings for URLs. .Pp These remappings are performed internally in the server before authentication happens and can be used to hide implementation details, like the CGI handler specific suffix for non cgi scripts in authorized directories. .Pp The map file consists of lines two paths separated by a colon, where the left side needs to exactly match a (sub) path of the request and will be replaced by the right side. .Pp The first match always wins. .Pp A .Pa .bzremap file could look like this: .Bd -literal /nic/update:/auth-dir/updipv4.pl .Ed .Pp The remap file should be short, access to it is slow and needs to happen on each request. If a request path needs to include a colon .Pq Ql \&: character, it can be escaped with a backslash .Pq Ql \e The right hand side of the colon is always used verbatim, no escape sequences are interpreted. .Sh EXAMPLES To configure set of virtual hosts, one would use an .Xr inetd.conf 5 entry like: .Bd -literal http stream tcp nowait:600 _httpd /usr/libexec/httpd httpd -v /var/vroot /var/www .Ed .Pp and inside .Pa /var/vroot create a directory (or a symlink to a directory) with the same name as the virtual host, for each virtual host. Lookups for these names are done in a case-insensitive manner, and may include the port number part of the request, allowing for distinct virtual hosts on the same name. .Pp To use .Nm with PHP, one must use the .Fl C option to specify a CGI handler for a particular file type. Typically this will be like: .Bd -literal httpd -C .php /usr/pkg/bin/php-cgi /var/www .Ed .Pp Note that a plain script interpreter can not be used directly as a cgihandler, as there are no command line options passed from .Nm to avoid security issues. .Pp If no CGI-aware wrapper exists, a simple shell script like the following might do. .Pp It would be invoked like: .Bd -literal httpd -C .pl /www-scripts/bin/run.perl /var/www .Ed and the script could look like: .Bd -literal #! /bin/sh if [ -r "$SCRIPT_FILENAME" -a -x "$SCRIPT_FILENAME" ]; then exec /usr/pkg/bin/perl "$SCRIPT_FILENAME" fi exit 1 .Ed .Sh SEE ALSO .Xr inetd.conf 5 , .Xr services 5 , .Xr inetd 8 .Sh HISTORY .Nm was first written in perl, based on another perl http server called .Dq tinyhttpd . It was then rewritten from scratch in perl, and then once again in C. From .Dq bozohttpd version 20060517, it has been integrated into .Nx . The focus has always been simplicity and security, with minimal features and regular code audits. This manual documents .Nm version 20260508. .Sh AUTHORS .An -nosplit .Nm was written by .An Matthew R. Green .Aq Mt mrg@eterna23.net . .Pp The large list of contributors includes: .Bl -dash .It .An Christoph Badura .Aq Mt bad@bsd.de provided Range: header support .It .An Marc Balmer .Aq Mt mbalmer@NetBSD.org added Lua support for dynamic content creation .It .An D. Bohdan .Aq Mt dbohdan@sdf.org improved directory views on mobile platforms .It .An Sean Boudreau .Aq Mt seanb@NetBSD.org provided a security fix for virtual hosting .It .An Julian Coleman .Aq Mt jdc@coris.org.uk provided an IPv6 bugfix .It .An Chuck Cranor .Aq Mt chuck@research.att.com provided cgi-bin support fixes, and more .It .An Alistair G. Crooks .Aq Mt agc@NetBSD.org cleaned up many internal interfaces, made .Nm linkable as a library and provided the Lua binding .It .An DEGROOTE Arnaud .Aq Mt degroote@NetBSD.org provided a fix for daemon mode .It .An Andrew Doran .Aq Mt ad@NetBSD.org provided directory indexing support .It .An Roland Dowdeswell .Aq Mt elric@NetBSD.org added support for serving gzipped files and better SSL handling .It .An Per Ekman .Aq Mt pek@pdc.kth.se provided a fix for a minor (non-security) buffer overflow condition .It .Aq Mt emily@ingalls.rocks provided fixes for some bad request parsing .It .An Jun-ichiro itojun Hagino, KAME .Aq Mt itojun@iijlab.net provided initial IPv6 support .It .An Martin Husemann .Aq Mt martin@NetBSD.org provided .bzabsredirect and .bzredir support, fixed various redirection issues and more .It .An Arto Huusko .Aq Mt arto.huusko@pp2.inet.fi provided fixes cgi-bin .It .An Roland Illig .Aq Mt roland.illig@gmx.de provided some off-by-one fixes .It .An Zak Johnson .Aq Mt zakj@nox.cx provided cgi-bin enhancements .It .An Nicolas Jombart .Aq Mt ecu@ipv42.net provided fixes for HTTP basic authorization support .It .An Antti Kantee .Aq Mt pooka@NetBSD.org provided fixes for HTTP basic authorization support .It .An Thomas Klausner .Aq Mt wiz@NetBSD.org provided many fixes and enhancements for the man page .It .An Mateusz Kocielski .Aq Mt shm@NetBSD.org fixed memory leaks, various issues with userdir support, information disclosure issues, added support for using CGI handlers with directory indexing, found several security issues and provided various other fixes .It .An Arnaud Lacombe .Aq Mt alc@NetBSD.org provided some clean up for memory leaks .It .An Johnny Lam .Aq Mt jlam@NetBSD.org provided man page fixes .It .An Dennis Lindroos .Aq Mt denafcm@gmail.com provided a cgi-bin fix .It .An Jared McNeill .Aq Mt jmcneill@NetBSD.org added support for readme in directory indexing .It .An Julio Merino .Aq Mt jmmv@NetBSD.org Added the .Fl P option (pidfile support) and provided some man page fixes .It .An Luke Mewburn .Aq Mt lukem@NetBSD.org provided many various fixes, including cgi-bin fixes and enhancements, HTTP basic authorization support and much code clean up .It .An Sunil Nimmagadda .Aq Mt sunil@nimmagadda.net provided runtime TLS version control .It .An Rajeev V. Pillai .Aq Mt rajeev_v_pillai@yahoo.com provided several fixes for virtual hosting and directory indexing and fixes for CGI .It .An Jeremy C. Reed .Aq Mt reed@NetBSD.org provided several clean up fixes, and man page updates .It .An Scott Reynolds .Aq Mt scottr@NetBSD.org provided various fixes .It .An Tyler Retzlaff .Aq Mt rtr@eterna23.net provided SSL support, cgi-bin fixes and much other random other stuff .It .An rudolf .Aq Mt netbsd@eq.cz provided minor compile fixes and a CGI content map fix .It .An Steve Rumble .Aq Mt rumble@ephemeral.org provided the .Fl V option .It .An Jukka Ruohonen .Aq Mt jruoho@NetBSD.org provided support for .Xr blocklistd 8 .It .An Thor Lancelot Simon .Aq Mt tls@NetBSD.org enhanced cgi-bin support .It .An Joerg Sonnenberger .Aq Mt joerg@NetBSD.org implemented If-Modified-Since support .It .An Kimmo Suominen .Aq Mt kim@NetBSD.org removed obsolete .Pa .bzdirect handling .It .An ISIHARA Takanori .Aq Mt ishit@oak.dti.ne.jp provided a man page fix .It .An Holger Weiss .Aq Mt holger@CIS.FU-Berlin.DE provided http authorization fixes .It .Aq Mt xs@kittenz.org provided chroot and change-to-user support, and other various fixes .It .An S.P.Zeidler .Aq Mt spz@NetBSD.org fixed several SSL shutdown issues .It Coyote Point provided various CGI fixes .El .Pp There are probably others I have forgotten (let me know if you care) .Pp Please send all updates to .Nm to .Aq Mt mrg@eterna23.net or .Aq Mt netbsd-bugs@NetBSD.org for inclusion in future releases. .Sh BUGS .Nm does not handle HTTP/1.1 chunked input from the client yet. src/libexec/httpd/bozohttpd.c010064400011300000175000002107711520024423500165210ustar00srcmastrnetbsd/* $NetBSD: bozohttpd.c,v 1.149.2.2 2026/05/08 19:48:27 martin Exp $ */ /* $eterna: bozohttpd.c,v 1.178 2011/11/18 09:21:15 mrg Exp $ */ /* * Copyright (c) 1997-2026 Matthew R. Green * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer and * dedication in the documentation and/or other materials provided * with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * */ /* this program is dedicated to the Great God of Processed Cheese */ /* * bozohttpd.c: minimal httpd; provides only these features: * - HTTP/0.9 (by virtue of ..) * - HTTP/1.0 * - HTTP/1.1 * - CGI/1.1 this will only be provided for "system" scripts * - automatic "missing trailing slash" redirections * - configurable translation of /~user/ to ~user/public_html, * - access lists via libwrap via inetd/tcpd * - virtual hosting * - not that we do not even pretend to understand MIME, but * rely only on the HTTP specification * - ipv6 support * - automatic `index.html' generation * - configurable server name * - directory index generation * - daemon mode (lacks libwrap support) * - .htpasswd support */ /* * requirements for minimal http/1.1 (at least, as documented in * RFC 2616 (HTTP/1.1): * * - 14.11: content-encoding handling. [1] * * - 14.13: content-length handling. this is only a SHOULD header * thus we could just not send it ever. [1] * * - 14.17: content-type handling. [1] * * - 14.28: if-unmodified-since handling. if-modified-since is * done since, shouldn't be too hard for this one. * * [1] need to revisit to ensure proper behaviour * * and the following is a list of features that we do not need * to have due to other limits, or are too lazy. there are more * of these than are listed, but these are of particular note, * and could perhaps be implemented. * * - 3.5/3.6: content/transfer codings. probably can ignore * this? we "SHOULD"n't. but 4.4 says we should ignore a * `content-length' header upon receipt of a `transfer-encoding' * header. * * - 5.1.1: request methods. only MUST support GET and HEAD, * but there are new ones besides POST that are currently * supported: OPTIONS PUT DELETE TRACE and CONNECT, plus * extensions not yet known? * * - 10.1: we can ignore informational status codes * * - 10.3.3/10.3.4/10.3.8: just use '302' codes always. * * - 14.1/14.2/14.3/14.27: we do not support Accept: headers. * just ignore them and send the request anyway. they are * only SHOULD. * * - 14.5/14.16/14.35: only support simple ranges: %d- and %d-%d * would be nice to support more. * * - 14.9: we aren't a cache. * * - 14.15: content-md5 would be nice. * * - 14.24/14.26/14.27: if-match, if-none-match, if-range. be * nice to support this. * * - 14.44: Vary: seems unneeded. ignore it for now. */ #ifndef INDEX_HTML #define INDEX_HTML "index.html" #endif #ifndef SERVER_SOFTWARE #define SERVER_SOFTWARE "bozohttpd/20260508" #endif #ifndef PUBLIC_HTML #define PUBLIC_HTML "public_html" #endif #ifndef USE_ARG #define USE_ARG(x) /*LINTED*/(void)&(x) #endif /* * And so it begins .. */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "bozohttpd.h" #ifndef SSL_TIMEOUT #define SSL_TIMEOUT "30" /* ssl handshake: 30 seconds timeout */ #endif #ifndef INITIAL_TIMEOUT #define INITIAL_TIMEOUT "30" /* wait for 30 seconds initially */ #endif #ifndef HEADER_WAIT_TIME #define HEADER_WAIT_TIME "10" /* need more headers every 10 seconds */ #endif #ifndef TOTAL_MAX_REQ_TIME #define TOTAL_MAX_REQ_TIME "600" /* must have total request in 600 */ #endif /* seconds */ /* if monotonic time is not available try real time. */ #ifndef CLOCK_MONOTONIC #define CLOCK_MONOTONIC CLOCK_REALTIME #endif /* variables and functions */ #ifndef LOG_FTP #define LOG_FTP LOG_DAEMON #endif /* * List of special file that we should never serve. */ struct { const char *file; const char *name; } specials[] = { { REDIRECT_FILE, "rejected redirect request" }, { ABSREDIRECT_FILE, "rejected absredirect request" }, { REMAP_FILE, "rejected remap request" }, { AUTH_FILE, "rejected authfile request" }, { NULL, NULL }, }; volatile sig_atomic_t bozo_timeout_hit; /* * check there's enough space in the prefs and names arrays. */ static int size_arrays(bozohttpd_t *httpd, bozoprefs_t *bozoprefs, size_t needed) { size_t len = sizeof(char *) * needed; if (bozoprefs->size == 0) { /* only get here first time around */ bozoprefs->name = bozomalloc(httpd, len); bozoprefs->value = bozomalloc(httpd, len); } else if (bozoprefs->count == bozoprefs->size) { /* only uses 'needed' when filled array */ bozoprefs->name = bozorealloc(httpd, bozoprefs->name, len); bozoprefs->value = bozorealloc(httpd, bozoprefs->value, len); } bozoprefs->size = needed; return 1; } static ssize_t findvar(bozoprefs_t *bozoprefs, const char *name) { size_t i; for (i = 0; i < bozoprefs->count; i++) if (strcmp(bozoprefs->name[i], name) == 0) return (ssize_t)i; return -1; } int bozo_set_pref(bozohttpd_t *httpd, bozoprefs_t *bozoprefs, const char *name, const char *value) { ssize_t i; if ((i = findvar(bozoprefs, name)) < 0) { /* add the element to the array */ if (!size_arrays(httpd, bozoprefs, bozoprefs->size + 15)) return 0; i = bozoprefs->count++; bozoprefs->name[i] = bozostrdup(httpd, NULL, name); } else { /* replace the element in the array */ free(bozoprefs->value[i]); } bozoprefs->value[i] = bozostrdup(httpd, NULL, value); return 1; } static void bozo_clear_prefs(bozoprefs_t *prefs) { size_t i; for (i = 0; i < prefs->count; i++) { free(prefs->name[i]); free(prefs->value[i]); } free(prefs->name); free(prefs->value); } /* * get a variable's value, or NULL */ char * bozo_get_pref(bozoprefs_t *bozoprefs, const char *name) { ssize_t i; i = findvar(bozoprefs, name); return i < 0 ? NULL : bozoprefs->value[i]; } char * bozo_http_date(char *date, size_t datelen) { struct tm *tm; time_t now; /* Sun, 06 Nov 1994 08:49:37 GMT */ now = time(NULL); tm = gmtime(&now); /* HTTP/1.1 spec rev 06 sez GMT only */ strftime(date, datelen, "%a, %d %b %Y %H:%M:%S GMT", tm); return date; } /* * convert "in" into the three parts of a request (first line). * we allocate into file and query, but return pointers into * "in" for proto and method. */ static void parse_request(bozohttpd_t *httpd, char *in, char **method, char **file, char **query, char **proto) { ssize_t len; char *val; USE_ARG(httpd); debug((httpd, DEBUG_EXPLODING, "parse in: %s", in)); *method = *file = *query = *proto = NULL; len = (ssize_t)strlen(in); val = bozostrnsep(&in, " \t\n\r", &len); if (len < 1 || val == NULL || in == NULL) return; *method = val; while (*in == ' ' || *in == '\t') in++; val = bozostrnsep(&in, " \t\n\r", &len); if (len < 1) { if (len == 0) *file = val; else *file = in; } else { *file = val; *query = strchr(*file, '?'); if (*query) *(*query)++ = '\0'; if (in) { while (*in && (*in == ' ' || *in == '\t')) in++; if (*in) *proto = in; } } /* allocate private copies */ *file = bozostrdup(httpd, NULL, *file); if (*query) *query = bozostrdup(httpd, NULL, *query); debug((httpd, DEBUG_FAT, "url: method: \"%s\" file: \"%s\" query: \"%s\" proto: \"%s\"", *method, *file, *query ? *query : "", *proto ? *proto : "")); } /* * cleanup a bozo_httpreq_t after use */ void bozo_clean_request(bozo_httpreq_t *request) { struct bozoheaders *hdr, *ohdr = NULL; if (request == NULL) return; /* If SSL enabled cleanup SSL structure. */ bozo_ssl_destroy(request->hr_httpd); /* clean up request */ free(request->hr_remotehost); free(request->hr_remoteaddr); free(request->hr_serverport); free(request->hr_virthostname); free(request->hr_file_free); /* XXX this is gross */ if (request->hr_file_free != request->hr_oldfile) free(request->hr_oldfile); else free(request->hr_file); free(request->hr_query); free(request->hr_host); bozo_user_free(request->hr_user); bozo_auth_cleanup(request); for (hdr = SIMPLEQ_FIRST(&request->hr_headers); hdr; hdr = SIMPLEQ_NEXT(hdr, h_next)) { free(hdr->h_value); free(hdr->h_header); free(ohdr); ohdr = hdr; } free(ohdr); ohdr = NULL; for (hdr = SIMPLEQ_FIRST(&request->hr_replheaders); hdr; hdr = SIMPLEQ_NEXT(hdr, h_next)) { free(hdr->h_value); free(hdr->h_header); free(ohdr); ohdr = hdr; } free(ohdr); free(request); } /* * send a HTTP/1.1 408 response if we timeout. */ /* ARGSUSED */ static void alarmer(int sig) { USE_ARG(sig); bozo_timeout_hit = 1; } /* * set a timeout for "ssl", "initial", "header", or "request". */ int bozo_set_timeout(bozohttpd_t *httpd, bozoprefs_t *prefs, const char *target, const char *val) { const char **cur, *timeouts[] = { "ssl timeout", "initial timeout", "header timeout", "request timeout", NULL, }; /* adjust minlen if more timeouts appear with conflicting names */ const size_t minlen = 1; size_t len = strlen(target); for (cur = timeouts; len >= minlen && *cur; cur++) { if (strncmp(target, *cur, len) == 0) { bozo_set_pref(httpd, prefs, *cur, val); return 0; } } return 1; } /* * a list of header quirks: currently, a list of headers that * can't be folded into a single line. */ const char *header_quirks[] = { "WWW-Authenticate", NULL }; /* * add or merge this header (val: str) into the requests list */ static bozoheaders_t * addmerge_header(bozo_httpreq_t *request, struct qheaders *headers, const char *val, const char *str, ssize_t len) { struct bozohttpd_t *httpd = request->hr_httpd; struct bozoheaders *hdr = NULL; const char **quirk; USE_ARG(len); for (quirk = header_quirks; *quirk; quirk++) if (strcasecmp(*quirk, val) == 0) break; if (*quirk == NULL) { /* do we exist already? */ SIMPLEQ_FOREACH(hdr, headers, h_next) { if (strcasecmp(val, hdr->h_header) == 0) break; } } if (hdr) { /* yup, merge it in */ char *nval; bozoasprintf(httpd, &nval, "%s, %s", hdr->h_value, str); free(hdr->h_value); hdr->h_value = nval; } else { /* nope, create a new one */ hdr = bozomalloc(httpd, sizeof *hdr); hdr->h_header = bozostrdup(httpd, request, val); if (str && *str) hdr->h_value = bozostrdup(httpd, request, str); else hdr->h_value = bozostrdup(httpd, request, " "); SIMPLEQ_INSERT_TAIL(headers, hdr, h_next); request->hr_nheaders++; } return hdr; } bozoheaders_t * addmerge_reqheader(bozo_httpreq_t *request, const char *val, const char *str, ssize_t len) { return addmerge_header(request, &request->hr_headers, val, str, len); } bozoheaders_t * addmerge_replheader(bozo_httpreq_t *request, const char *val, const char *str, ssize_t len) { return addmerge_header(request, &request->hr_replheaders, val, str, len); } /* * as the prototype string is not constant (eg, "HTTP/1.1" is equivalent * to "HTTP/001.01"), we MUST parse this. */ static int process_proto(bozo_httpreq_t *request, const char *proto) { struct bozohttpd_t *httpd = request->hr_httpd; char majorstr[16], *minorstr; int majorint, minorint; if (proto == NULL) { got_proto_09: request->hr_proto = httpd->consts.http_09; debug((httpd, DEBUG_FAT, "request %s is http/0.9", request->hr_file)); return 0; } if (strncasecmp(proto, "HTTP/", 5) != 0) goto bad; strncpy(majorstr, proto + 5, sizeof(majorstr)-1); majorstr[sizeof(majorstr)-1] = 0; minorstr = strchr(majorstr, '.'); if (minorstr == NULL) goto bad; *minorstr++ = 0; majorint = atoi(majorstr); minorint = atoi(minorstr); switch (majorint) { case 0: if (minorint != 9) break; goto got_proto_09; case 1: if (minorint == 0) request->hr_proto = httpd->consts.http_10; else if (minorint == 1) request->hr_proto = httpd->consts.http_11; else break; debug((httpd, DEBUG_FAT, "request %s is %s", request->hr_file, request->hr_proto)); SIMPLEQ_INIT(&request->hr_headers); request->hr_nheaders = 0; return 0; } bad: return bozo_http_error(httpd, 404, NULL, "unknown prototype"); } /* * process each type of HTTP method, setting this HTTP requests * method type. */ static struct method_map { const char *name; int type; } method_map[] = { { "GET", HTTP_GET, }, { "POST", HTTP_POST, }, { "HEAD", HTTP_HEAD, }, #if 0 /* other non-required http/1.1 methods */ { "OPTIONS", HTTP_OPTIONS, }, { "PUT", HTTP_PUT, }, { "DELETE", HTTP_DELETE, }, { "TRACE", HTTP_TRACE, }, { "CONNECT", HTTP_CONNECT, }, #endif { NULL, 0, }, }; static int process_method(bozo_httpreq_t *request, const char *method) { struct bozohttpd_t *httpd = request->hr_httpd; struct method_map *mmp; if (request->hr_proto == httpd->consts.http_11) request->hr_allow = "GET, HEAD, POST"; for (mmp = method_map; mmp->name; mmp++) if (strcasecmp(method, mmp->name) == 0) { request->hr_method = mmp->type; request->hr_methodstr = mmp->name; return 0; } return bozo_http_error(httpd, 404, request, "unknown method"); } /* check header byte count */ static int bozo_got_header_length(bozo_httpreq_t *request, size_t len) { if (len > BOZO_HEADERS_MAX_SIZE - request->hr_header_bytes) return bozo_http_error(request->hr_httpd, 413, request, "too many headers"); request->hr_header_bytes += len; return 0; } /* * This function reads a http request from stdin, returning a pointer to a * bozo_httpreq_t structure, describing the request. */ bozo_httpreq_t * bozo_read_request(bozohttpd_t *httpd) { struct sigaction sa; char *str, *val, *method, *file, *proto, *query; char *host, *addr, *port; char bufport[10]; char hbuf[NI_MAXHOST], abuf[NI_MAXHOST]; struct sockaddr_storage ss; ssize_t len; int line = 0; socklen_t slen; bozo_httpreq_t *request; struct timespec ots, ts; /* * if we're in daemon mode, bozo_daemon_fork() will return here twice * for each call. once in the child, returning 0, and once in the * parent, returning 1 for each child. */ if (bozo_daemon_fork(httpd)) return NULL; request = bozomalloc(httpd, sizeof(*request)); memset(request, 0, sizeof(*request)); request->hr_httpd = httpd; request->hr_allow = request->hr_host = NULL; request->hr_content_type = request->hr_content_length = NULL; request->hr_range = NULL; request->hr_last_byte_pos = -1; request->hr_if_modified_since = NULL; request->hr_virthostname = NULL; request->hr_file_free = NULL; request->hr_file = NULL; request->hr_oldfile = NULL; SIMPLEQ_INIT(&request->hr_replheaders); bozo_auth_init(request); slen = sizeof(ss); if (getpeername(0, (struct sockaddr *)(void *)&ss, &slen) < 0) host = addr = NULL; else { if (getnameinfo((struct sockaddr *)(void *)&ss, slen, abuf, sizeof abuf, NULL, 0, NI_NUMERICHOST) == 0) addr = abuf; else addr = NULL; if (httpd->numeric == 0 && getnameinfo((struct sockaddr *)(void *)&ss, slen, hbuf, sizeof hbuf, NULL, 0, 0) == 0) host = hbuf; else host = NULL; } if (host != NULL) request->hr_remotehost = bozostrdup(httpd, request, host); if (addr != NULL) request->hr_remoteaddr = bozostrdup(httpd, request, addr); slen = sizeof(ss); /* * Override the bound port from the request value, so it works even * if passed through a proxy that doesn't rewrite the port. */ port = NULL; if (httpd->bindport) { if (strcmp(httpd->bindport, BOZO_HTTP_PORT) != 0) port = httpd->bindport; } else if (getsockname(0, (struct sockaddr *)(void *)&ss, &slen) == 0 && getnameinfo((struct sockaddr *)(void *)&ss, slen, NULL, 0, bufport, sizeof bufport, NI_NUMERICSERV) == 0) port = bufport; if (port != NULL) request->hr_serverport = bozostrdup(httpd, request, port); /* * setup a timer to make sure the request is not hung */ sa.sa_handler = alarmer; sigemptyset(&sa.sa_mask); sigaddset(&sa.sa_mask, SIGALRM); sa.sa_flags = 0; sigaction(SIGALRM, &sa, NULL); if (clock_gettime(CLOCK_MONOTONIC, &ots) != 0) { bozo_http_error(httpd, 500, NULL, "clock_gettime failed"); goto cleanup; } /* * now to try to setup SSL, and upon failure parent can signal the * caller there was no request to process and it will wait for * another. */ if (bozo_ssl_accept(httpd)) return NULL; alarm(httpd->initial_timeout); while ((str = bozodgetln(httpd, STDIN_FILENO, &len, bozo_read)) != NULL) { alarm(0); if (clock_gettime(CLOCK_MONOTONIC, &ts) != 0) { bozo_http_error(httpd, 500, NULL, "clock_gettime failed"); goto cleanup; } /* * don't timeout if old tv_sec is not more than current * tv_sec, or if current tv_sec is less than the request * timeout (these shouldn't happen, but the first could * if monotonic time is not available.) * * the other timeout and header size checks should ensure * that even if time it set backwards or forwards a very * long way, timeout will eventually happen, even if this * one fails. */ if (ts.tv_sec > ots.tv_sec && ts.tv_sec > httpd->request_timeout && ts.tv_sec - httpd->request_timeout > ots.tv_sec) bozo_timeout_hit = 1; if (bozo_timeout_hit) { bozo_http_error(httpd, 408, NULL, "request timed out"); goto cleanup; } line++; if (line == 1) { if (len < 1) { bozo_http_error(httpd, 404, NULL, "null method"); goto cleanup; } bozowarn(httpd, "got request ``%s'' from host %s to port %s", str, host ? host : addr ? addr : "", port ? port : ""); /* we allocate return space in file and query only */ parse_request(httpd, str, &method, &file, &query, &proto); request->hr_file_free = request->hr_file = file; request->hr_query = query; if (method == NULL) { bozo_http_error(httpd, 404, NULL, "null method"); goto cleanup; } if (file == NULL) { bozo_http_error(httpd, 404, NULL, "null file"); goto cleanup; } /* * note that we parse the proto first, so that we * can more properly parse the method and the url. */ if (process_proto(request, proto) || process_method(request, method)) { goto cleanup; } debug((httpd, DEBUG_FAT, "got file \"%s\" query \"%s\"", request->hr_file, request->hr_query ? request->hr_query : "")); /* http/0.9 has no header processing */ if (request->hr_proto == httpd->consts.http_09) break; } else { /* incoming headers */ bozoheaders_t *hdr; if (*str == '\0') break; val = bozostrnsep(&str, ":", &len); debug((httpd, DEBUG_EXPLODING, "read_req2: after " "bozostrnsep: str `%s' val `%s'", str ? str : "", val ? val : "")); if (val == NULL || len == -1) { bozo_http_error(httpd, 404, request, "no header"); goto cleanup; } if (str == NULL) { bozo_http_error(httpd, 404, request, "malformed header"); goto cleanup; } while (*str == ' ' || *str == '\t') len--, str++; while (*val == ' ' || *val == '\t') val++; if (bozo_got_header_length(request, len)) goto cleanup; if (bozo_auth_check_headers(request, val, str, len)) goto next_header; hdr = addmerge_reqheader(request, val, str, len); if (strcasecmp(hdr->h_header, "content-type") == 0) request->hr_content_type = hdr->h_value; else if (strcasecmp(hdr->h_header, "content-length") == 0) request->hr_content_length = hdr->h_value; else if (strcasecmp(hdr->h_header, "host") == 0) { if (request->hr_host) { /* RFC 7230 (HTTP/1.1): 5.4 */ bozo_http_error(httpd, 400, request, "Only allow one Host: header"); goto cleanup; } request->hr_host = bozostrdup(httpd, request, hdr->h_value); } /* RFC 2616 (HTTP/1.1): 14.20 */ else if (strcasecmp(hdr->h_header, "expect") == 0) { bozo_http_error(httpd, 417, request, "we don't support Expect:"); goto cleanup; } else if (strcasecmp(hdr->h_header, "referrer") == 0 || strcasecmp(hdr->h_header, "referer") == 0) request->hr_referrer = hdr->h_value; else if (strcasecmp(hdr->h_header, "range") == 0) request->hr_range = hdr->h_value; else if (strcasecmp(hdr->h_header, "if-modified-since") == 0) request->hr_if_modified_since = hdr->h_value; else if (strcasecmp(hdr->h_header, "accept-encoding") == 0) request->hr_accept_encoding = hdr->h_value; debug((httpd, DEBUG_FAT, "adding header %s: %s", hdr->h_header, hdr->h_value)); } next_header: alarm(httpd->header_timeout); } if (str == NULL) { bozo_http_error(httpd, 413, request, "request too large"); goto cleanup; } /* now, clear it all out */ alarm(0); signal(SIGALRM, SIG_DFL); /* RFC1945, 8.3 */ if (request->hr_method == HTTP_POST && request->hr_content_length == NULL) { bozo_http_error(httpd, 400, request, "missing content length"); goto cleanup; } /* RFC 2616 (HTTP/1.1), 14.23 & 19.6.1.1 */ if (request->hr_proto == httpd->consts.http_11 && /*(strncasecmp(request->hr_file, "http://", 7) != 0) &&*/ request->hr_host == NULL) { bozo_http_error(httpd, 400, request, "missing Host header"); goto cleanup; } if (request->hr_range != NULL) { debug((httpd, DEBUG_FAT, "hr_range: %s", request->hr_range)); /* support only simple ranges %d- and %d-%d */ if (strchr(request->hr_range, ',') == NULL) { const char *rstart, *dash; rstart = strchr(request->hr_range, '='); if (rstart != NULL) { rstart++; dash = strchr(rstart, '-'); if (dash != NULL && dash != rstart) { dash++; request->hr_have_range = 1; request->hr_first_byte_pos = strtoll(rstart, NULL, 10); if (request->hr_first_byte_pos < 0) request->hr_first_byte_pos = 0; if (*dash != '\0') { request->hr_last_byte_pos = strtoll(dash, NULL, 10); if (request->hr_last_byte_pos < 0) request->hr_last_byte_pos = -1; } } } } } debug((httpd, DEBUG_FAT, "bozo_read_request returns url %s in request", request->hr_file)); return request; cleanup: bozo_clean_request(request); return NULL; } static int mmap_and_write_part(bozohttpd_t *httpd, int fd, off_t first_byte_pos, size_t sz) { size_t mappedsz, wroffset; off_t mappedoffset; char *addr; void *mappedaddr; /* * we need to ensure that both the size *and* offset arguments to * mmap() are page-aligned. our formala for this is: * * input offset: first_byte_pos * input size: sz * * mapped offset = page align truncate (input offset) * mapped size = * page align extend (input offset - mapped offset + input size) * write offset = input offset - mapped offset * * we use the write offset in all writes */ mappedoffset = first_byte_pos & ~((off_t)httpd->page_size - 1); mappedsz = (size_t) (first_byte_pos - mappedoffset + sz + httpd->page_size - 1) & ~(httpd->page_size - 1); wroffset = (size_t)(first_byte_pos - mappedoffset); addr = mmap(0, mappedsz, PROT_READ, MAP_SHARED, fd, mappedoffset); if (addr == MAP_FAILED) { bozowarn(httpd, "mmap failed: %s", strerror(errno)); return -1; } mappedaddr = addr; #ifdef MADV_SEQUENTIAL (void)madvise(addr, sz, MADV_SEQUENTIAL); #endif while (sz > BOZO_WRSZ) { if (bozo_write(httpd, STDOUT_FILENO, addr + wroffset, BOZO_WRSZ) != BOZO_WRSZ) { bozowarn(httpd, "write failed: %s", strerror(errno)); goto out; } debug((httpd, DEBUG_OBESE, "wrote %d bytes", BOZO_WRSZ)); sz -= BOZO_WRSZ; addr += BOZO_WRSZ; } if (sz && (size_t)bozo_write(httpd, STDOUT_FILENO, addr + wroffset, sz) != sz) { bozowarn(httpd, "final write failed: %s", strerror(errno)); goto out; } debug((httpd, DEBUG_OBESE, "wrote %d bytes", (int)sz)); out: if (munmap(mappedaddr, mappedsz) < 0) { bozowarn(httpd, "munmap failed"); return -1; } return 0; } static int parse_http_date(const char *val, time_t *timestamp) { char *remainder; struct tm tm; if ((remainder = strptime(val, "%a, %d %b %Y %T GMT", &tm)) == NULL && (remainder = strptime(val, "%a, %d-%b-%y %T GMT", &tm)) == NULL && (remainder = strptime(val, "%a %b %d %T %Y", &tm)) == NULL) return 0; /* Invalid HTTP date format */ if (*remainder) return 0; /* No trailing garbage */ *timestamp = timegm(&tm); return 1; } /* * given an url, encode it ala rfc 3986. ie, escape ? and friends. * note that this function returns a static buffer, and thus needs * to be updated for any sort of parallel processing. escape only * chosen characters for absolute redirects */ char * bozo_escape_rfc3986(bozohttpd_t *httpd, const char *url, int absolute) { static char *buf; static size_t buflen = 0; size_t len; const char *s; char *d; len = strlen(url); if (buflen < len * 3 + 1) { buflen = len * 3 + 1; buf = bozorealloc(httpd, buf, buflen); } for (s = url, d = buf; *s;) { if (*s & 0x80) goto encode_it; switch (*s) { case ':': case '?': case '#': case '[': case ']': case '@': case '!': case '$': case '&': case '\'': case '(': case ')': case '*': case '+': case ',': case ';': case '=': case '%': case '"': if (absolute) goto leave_it; /*FALLTHROUGH*/ case '\n': case '\r': case ' ': encode_it: snprintf(d, 4, "%%%02X", (unsigned char)*s++); d += 3; break; default: leave_it: *d++ = *s++; break; } } *d = 0; return buf; } /* * do automatic redirection -- if there are query parameters or userdir for * the URL we will tack these on to the new (redirected) URL. */ static void handle_redirect(bozo_httpreq_t *request, const char *url, int absolute) { bozohttpd_t *httpd = request->hr_httpd; char *finalurl, *urlbuf; #ifndef NO_USER_SUPPORT char *userbuf; #endif /* !NO_USER_SUPPORT */ char portbuf[20]; const char *scheme, *query, *quest; const char *hostname = BOZOHOST(httpd, request); int absproto = 0; /* absolute redirect provides own schema */ if (url == NULL) { bozoasprintf(httpd, &urlbuf, "/%s/", request->hr_file); url = urlbuf; } else urlbuf = NULL; #ifndef NO_USER_SUPPORT if (request->hr_user && !absolute) { bozoasprintf(httpd, &userbuf, "/~%s%s", request->hr_user, url); url = userbuf; } else userbuf = NULL; #endif /* !NO_USER_SUPPORT */ if (absolute) { const char *sep = NULL; const char *s; /* * absolute redirect may specify own protocol i.e. to redirect * to another schema like https:// or ftp://. * Details: RFC 3986, section 3. */ /* 1. check if url contains :// */ sep = strstr(url, "://"); /* * RFC 3986, section 3.1: * scheme = ALPHA *( ALPHA / DIGIT / "+" / "-" / "." ) */ if (sep) { for (s = url; s != sep;) { if (!isalnum((unsigned char)*s) && *s != '+' && *s != '-' && *s != '.') break; if (++s == sep) { absproto = 1; } } } } /* construct final redirection url */ scheme = absproto ? "" : httpd->sslinfo ? "https://" : "http://"; if (absolute) { hostname = ""; portbuf[0] = '\0'; } else { const char *defport = httpd->sslinfo ? BOZO_HTTPS_PORT : BOZO_HTTP_PORT; if (request->hr_serverport && strcmp(request->hr_serverport, defport) != 0) snprintf(portbuf, sizeof(portbuf), ":%s", request->hr_serverport); else portbuf[0] = '\0'; } url = bozo_escape_rfc3986(httpd, url, absolute); if (request->hr_query && strlen(request->hr_query)) { query = request->hr_query; quest = "?"; } else { query = quest = ""; } bozoasprintf(httpd, &finalurl, "%s%s%s%s%s%s", scheme, hostname, portbuf, url, quest, query); bozowarn(httpd, "redirecting %s", finalurl); debug((httpd, DEBUG_FAT, "redirecting %s", finalurl)); bozo_printf(httpd, "%s 301 Document Moved\r\n", request->hr_proto); if (request->hr_proto != httpd->consts.http_09) bozo_print_header(request, NULL, "text/html", NULL); if (request->hr_proto != httpd->consts.http_09) bozo_printf(httpd, "Location: %s\r\n", finalurl); bozo_printf(httpd, "\r\n"); if (request->hr_method == HTTP_HEAD) goto head; bozo_printf(httpd, "Document Moved\n"); bozo_printf(httpd, "

Document Moved

\n"); bozo_printf(httpd, "This document had moved here\n", finalurl); bozo_printf(httpd, "\n"); head: bozo_flush(httpd, stdout); free(urlbuf); free(finalurl); #ifndef NO_USER_SUPPORT free(userbuf); #endif /* !NO_USER_SUPPORT */ } /* * Like strncmp(), but s_esc may contain characters escaped by \. * The len argument does not include the backslashes used for escaping, * that is: it gives the raw len, after unescaping the string. */ static int esccmp(const char *s_plain, const char *s_esc, size_t len) { bool esc = false; while (len) { if (!esc && *s_esc == '\\') { esc = true; s_esc++; continue; } esc = false; if (*s_plain == 0 || *s_esc == 0 || *s_plain != *s_esc) return *s_esc - *s_plain; s_esc++; s_plain++; len--; } return 0; } /* * Check if the request refers to a uri that is mapped via a .bzremap. * We have /requested/path:/re/mapped/to/this.html lines in there, * and the : separator may be used in the left hand side escaped with * \ to encode a path containing a : character. */ static void check_remap(bozo_httpreq_t *request) { bozohttpd_t *httpd = request->hr_httpd; char *file = request->hr_file, *newfile; void *fmap; const char *replace = NULL, *map_to = NULL, *p; struct stat st; int mapfile; size_t avail, len, rlen, reqlen, num_esc = 0; bool escaped = false; mapfile = open(REMAP_FILE, O_RDONLY, 0); if (mapfile == -1) return; debug((httpd, DEBUG_FAT, "remap file found")); if (fstat(mapfile, &st) == -1) { bozowarn(httpd, "could not stat " REMAP_FILE ", errno: %d", errno); goto out; } fmap = mmap(NULL, st.st_size, PROT_READ, MAP_SHARED, mapfile, 0); if (fmap == MAP_FAILED) { bozowarn(httpd, "could not mmap " REMAP_FILE ", error %d", errno); goto out; } reqlen = strlen(file); for (p = fmap, avail = st.st_size; avail; ) { /* * We have lines like: * /this/url:/replacement/that/url * If we find a matching left hand side, replace will point * to it and len will be its length. map_to will point to * the right hand side and rlen wil be its length. * If we have no match, both pointers will be NULL. */ /* skip empty lines */ while ((*p == '\r' || *p == '\n') && avail) { p++; avail--; } replace = p; escaped = false; while (avail) { if (*p == '\r' || *p == '\n') break; if (!escaped && *p == ':') break; if (escaped) { escaped = false; num_esc++; } else if (*p == '\\') { escaped = true; } p++; avail--; } if (!avail || *p != ':') { replace = NULL; map_to = NULL; break; } len = p - replace - num_esc; /* * reqlen < len: the left hand side is too long, can't be a * match * reqlen == len: full string has to match * reqlen > len: make sure there is a path separator at 'len' * avail < 2: we are at eof, missing right hand side */ if (avail < 2 || reqlen < len || (reqlen == len && esccmp(file, replace, len) != 0) || (reqlen > len && (file[len] != '/' || esccmp(file, replace, len) != 0))) { /* non-match, skip to end of line and continue */ while (*p != '\r' && *p != '\n' && avail) { p++; avail--; } replace = NULL; map_to = NULL; continue; } p++; avail--; /* found a match, parse the target */ map_to = p; while (*p != '\r' && *p != '\n' && avail) { p++; avail--; } rlen = p - map_to; break; } if (replace && map_to) { newfile = bozomalloc(httpd, strlen(file) + rlen - len + 1); memcpy(newfile, map_to, rlen); strcpy(newfile+rlen, file + len); debug((httpd, DEBUG_NORMAL, "remapping found '%s'", newfile)); free(request->hr_file_free); request->hr_file_free = request->hr_file = newfile; } munmap(fmap, st.st_size); out: close(mapfile); } /* * deal with virtual host names; we do this: * if we have a virtual path root (httpd->virtbase), and we are given a * virtual host spec (Host: ho.st or http://ho.st/), see if this * directory exists under httpd->virtbase. if it does, use this as the # new slashdir. */ static int check_virtual(bozo_httpreq_t *request) { bozohttpd_t *httpd = request->hr_httpd; char *file = request->hr_file, *s; size_t len; int allocated = 0, rc; /* * convert http://virtual.host/ to request->hr_host */ debug((httpd, DEBUG_OBESE, "checking for http:// virtual host in '%s'", file)); if (strncasecmp(file, "http://", 7) == 0) { /* we would do virtual hosting here? */ file += 7; /* RFC 2616 (HTTP/1.1), 5.2: URI takes precedence over Host: */ free(request->hr_host); request->hr_host = bozostrdup(httpd, request, file); if ((s = strchr(request->hr_host, '/')) != NULL) *s = '\0'; s = strchr(file, '/'); request->hr_file = bozostrdup(httpd, request, s ? s : "/"); free(request->hr_file_free); request->hr_file_free = request->hr_file; debug((httpd, DEBUG_OBESE, "got host '%s' file is now '%s'", request->hr_host, request->hr_file)); } else if (!request->hr_host) goto use_slashdir; /* * canonicalise hr_host - that is, remove any :80. */ len = strlen(request->hr_host); if (len > 3 && strcmp(request->hr_host + len - 3, ":" BOZO_HTTP_PORT) == 0) { request->hr_host[len - 3] = '\0'; len = strlen(request->hr_host); } if (!httpd->virtbase) { /* * if we don't use vhost support, then set virthostname if * user supplied Host header. It will be used for possible * redirections */ if (request->hr_host) { s = strrchr(request->hr_host, ':'); if (s != NULL) /* * truncate Host: as we want to copy it * without port part */ *s = '\0'; request->hr_virthostname = bozostrdup(httpd, request, request->hr_host); if (s != NULL) /* fix Host: again, if we truncated it */ *s = ':'; } goto use_slashdir; } /* * ok, we have a virtual host, use opendir(3) to find a case * insensitive match for the virtual host we are asked for. * note that if the virtual host is the same as the master, * we don't need to do anything special. */ debug((httpd, DEBUG_OBESE, "check_virtual: checking host `%s' under httpd->virtbase `%s' " "for file `%s'", request->hr_host, httpd->virtbase, request->hr_file)); if (strncasecmp(httpd->virthostname, request->hr_host, len) != 0) { s = NULL; DIR *dirp; struct dirent *d; if ((dirp = opendir(httpd->virtbase)) != NULL) { while ((d = readdir(dirp)) != NULL) { if (strcmp(d->d_name, ".") == 0 || strcmp(d->d_name, "..") == 0) { continue; } debug((httpd, DEBUG_OBESE, "looking at dir '%s'", d->d_name)); if (strcmp(d->d_name, request->hr_host) == 0) { /* found it, punch it */ debug((httpd, DEBUG_OBESE, "found it punch it")); request->hr_virthostname = bozostrdup(httpd, request, d->d_name); bozoasprintf(httpd, &s, "%s/%s", httpd->virtbase, request->hr_virthostname); allocated = 1; break; } } closedir(dirp); } else { debug((httpd, DEBUG_FAT, "opendir %s failed: %s", httpd->virtbase, strerror(errno))); } if (s == 0) { if (httpd->unknown_slash) goto use_slashdir; return bozo_http_error(httpd, 404, request, "unknown URL"); } } else use_slashdir: s = httpd->slashdir; /* * ok, nailed the correct slashdir, chdir to it */ rc = chdir(s); if (allocated != 0) free(s); if (rc < 0) return bozo_http_error(httpd, 404, request, "can't chdir to slashdir"); /* * is there a mapping for this request? */ check_remap(request); return 0; } /* * checks to see if this request has a valid .bzredirect file. returns * 0 when no redirection happened, or 1 when handle_redirect() has been * called, -1 on error. */ static int check_bzredirect(bozo_httpreq_t *request) { bozohttpd_t *httpd = request->hr_httpd; struct stat sb; char dir[MAXPATHLEN], redir[MAXPATHLEN], redirpath[MAXPATHLEN + 1], path[MAXPATHLEN + 1]; char *basename, *finalredir; int rv, absolute; /* * if this pathname is really a directory, but doesn't end in /, * use it as the directory to look for the redir file. */ if ((size_t)snprintf(dir, sizeof(dir), "%s", request->hr_file + 1) >= sizeof(dir)) { bozo_http_error(httpd, 404, request, "file path too long"); return -1; } debug((httpd, DEBUG_FAT, "check_bzredirect: dir %s", dir)); basename = strrchr(dir, '/'); if ((!basename || basename[1] != '\0') && lstat(dir, &sb) == 0 && S_ISDIR(sb.st_mode)) { strcpy(path, dir); basename = dir; } else if (basename == NULL) { strcpy(path, "."); strcpy(dir, ""); basename = request->hr_file + 1; } else { *basename++ = '\0'; strcpy(path, dir); } if (bozo_check_special_files(request, basename, true)) return -1; debug((httpd, DEBUG_FAT, "check_bzredirect: path %s", path)); if ((size_t)snprintf(redir, sizeof(redir), "%s/%s", path, REDIRECT_FILE) >= sizeof(redir)) { return bozo_http_error(httpd, 404, request, "redirectfile path too long"); } if (lstat(redir, &sb) == 0) { if (!S_ISLNK(sb.st_mode)) return 0; absolute = 0; } else { if ((size_t)snprintf(redir, sizeof(redir), "%s/%s", path, ABSREDIRECT_FILE) >= sizeof(redir)) { bozo_http_error(httpd, 404, request, "redirectfile path too long"); return -1; } if (lstat(redir, &sb) < 0 || !S_ISLNK(sb.st_mode)) return 0; absolute = 1; } debug((httpd, DEBUG_FAT, "check_bzredirect: calling readlink")); rv = readlink(redir, redirpath, sizeof redirpath - 1); if (rv == -1 || rv == 0) { debug((httpd, DEBUG_FAT, "readlink failed")); return 0; } redirpath[rv] = '\0'; debug((httpd, DEBUG_FAT, "readlink returned \"%s\"", redirpath)); /* check if we need authentication */ snprintf(path, sizeof(path), "%s/", dir); if (bozo_auth_check(request, path)) return 1; /* now we have the link pointer, redirect to the real place */ if (!absolute && redirpath[0] != '/') { if ((size_t)snprintf(finalredir = redir, sizeof(redir), "%s%s/%s", (strlen(dir) > 0 ? "/" : ""), dir, redirpath) >= sizeof(redir)) { bozo_http_error(httpd, 404, request, "redirect path too long"); return -1; } } else finalredir = redirpath; debug((httpd, DEBUG_FAT, "check_bzredirect: new redir %s", finalredir)); handle_redirect(request, finalredir, absolute); return 1; } /* this fixes the %HH hack that RFC2396 requires. */ int bozo_decode_url_percent(bozo_httpreq_t *request, char *str) { bozohttpd_t *httpd = request->hr_httpd; char *s, *t, buf[3]; char *end; /* if end is not-zero, we don't translate beyond that */ end = str + strlen(str); /* fast forward to the first % */ if ((s = strchr(str, '%')) == NULL) return 0; t = s; do { if (end && s >= end) { debug((httpd, DEBUG_EXPLODING, "fu_%%: past end, filling out..")); while (*s) *t++ = *s++; break; } if (&s[2] < end) debug((httpd, DEBUG_EXPLODING, "fu_%%: got s == %%, s[1]s[2] == %c%c", s[1], s[2])); else debug((httpd, DEBUG_EXPLODING, "fu_%%: got s == %%, s[1] == %c s[2] is not set", s[1])); if (s[1] == '\0' || s[2] == '\0') return bozo_http_error(httpd, 400, request, "percent hack missing two chars afterwards"); if (s[1] == '0' && s[2] == '0') return bozo_http_error(httpd, 404, request, "percent hack was %00"); if (s[1] == '2' && (s[2] == 'f' || s[2] == 'F')) return bozo_http_error(httpd, 404, request, "percent hack was %2f (/)"); buf[0] = *++s; buf[1] = *++s; buf[2] = '\0'; s++; *t = (char)strtol(buf, NULL, 16); debug((httpd, DEBUG_EXPLODING, "fu_%%: strtol put '%02x' into *t", *t)); if (*t++ == '\0') return bozo_http_error(httpd, 400, request, "percent hack got a 0 back"); while (*s && *s != '%') { if (end && s >= end) break; *t++ = *s++; } } while (*s); *t = '\0'; debug((httpd, DEBUG_FAT, "bozo_decode_url_percent returns `%s'", request->hr_file)); return 0; } /* * transform_request does this: * - ``expand'' %20 crapola * - punt if it doesn't start with / * - look for "http://myname/" and deal with it. * - maybe call bozo_process_cgi() * - check for ~user and call bozo_user_transform() if so * - if the length > 1, check for trailing slash. if so, * add the index.html file * - if the length is 1, return the index.html file * - disallow anything ending up with a file starting * at "/" or having ".." in it. * - anything else is a really weird internal error * - returns malloced file to serve, if unhandled */ static int transform_request(bozo_httpreq_t *request, int *isindex) { bozohttpd_t *httpd = request->hr_httpd; char *file, *newfile = NULL; size_t len; file = NULL; *isindex = 0; debug((httpd, DEBUG_FAT, "tf_req: file %s", request->hr_file)); if (bozo_decode_url_percent(request, request->hr_file) || check_virtual(request)) goto bad_done; file = request->hr_file; if (file[0] != '/') { bozo_http_error(httpd, 404, request, "unknown URL"); goto bad_done; } /* omit additional slashes at the beginning */ while (file[1] == '/') file++; /* fix file provided by user as it's used in other handlers */ request->hr_file = file; len = strlen(file); #ifndef NO_USER_SUPPORT /* first of all expand user path */ if (len > 1 && httpd->enable_users && file[1] == '~') { if (file[2] == '\0') { bozo_http_error(httpd, 404, request, "missing username"); goto bad_done; } if (strchr(file + 2, '/') == NULL) { char *userredirecturl; bozoasprintf(httpd, &userredirecturl, "%s/", file); handle_redirect(request, userredirecturl, 0); free(userredirecturl); return 0; } debug((httpd, DEBUG_FAT, "calling bozo_user_transform")); if (!bozo_user_transform(request)) return 0; file = request->hr_file; len = strlen(file); } #endif /* NO_USER_SUPPORT */ switch (check_bzredirect(request)) { case -1: goto bad_done; case 0: break; default: return 0; } if (len > 1) { debug((httpd, DEBUG_FAT, "file[len-1] == %c", file[len-1])); if (file[len-1] == '/') { /* append index.html */ *isindex = 1; debug((httpd, DEBUG_FAT, "appending index.html")); newfile = bozomalloc(httpd, len + strlen(httpd->index_html) + 1); strcpy(newfile, file + 1); strcat(newfile, httpd->index_html); } else newfile = bozostrdup(httpd, request, file + 1); } else if (len == 1) { debug((httpd, DEBUG_EXPLODING, "tf_req: len == 1")); newfile = bozostrdup(httpd, request, httpd->index_html); *isindex = 1; } else { /* len == 0 ? */ bozo_http_error(httpd, 500, request, "request->hr_file is nul"); goto bad_done; } if (newfile == NULL) { bozo_http_error(httpd, 500, request, "internal failure"); goto bad_done; } /* * stop traversing outside our domain * * XXX true security only comes from our parent using chroot(2) * before execve(2)'ing us. or our own built in chroot(2) support. */ debug((httpd, DEBUG_FAT, "newfile: %s", newfile)); if (*newfile == '/' || strcmp(newfile, "..") == 0 || strstr(newfile, "/..") || strstr(newfile, "../")) { bozo_http_error(httpd, 403, request, "illegal request"); goto bad_done; } if (bozo_auth_check(request, newfile)) goto bad_done; if (strlen(newfile)) { request->hr_oldfile = request->hr_file_free; request->hr_file = newfile; } if (bozo_process_cgi(request) || bozo_process_lua(request)) return 0; debug((httpd, DEBUG_FAT, "transform_request set: %s", newfile)); return 1; bad_done: debug((httpd, DEBUG_FAT, "transform_request returning: 0")); free(newfile); return 0; } /* * can_gzip checks if the request supports and prefers gzip encoding. * * XXX: we do not consider the associated q with gzip in making our * decision which is broken. */ static int can_gzip(bozo_httpreq_t *request) { const char *pos; const char *tmp; size_t len; /* First we decide if the request can be gzipped at all. */ /* not if we already are encoded... */ tmp = bozo_content_encoding(request, request->hr_file); if (tmp && *tmp) return 0; /* not if we are not asking for the whole file... */ if (request->hr_last_byte_pos != -1 || request->hr_have_range) return 0; /* Then we determine if gzip is on the cards. */ for (pos = request->hr_accept_encoding; pos && *pos; pos += len) { while (*pos == ' ') pos++; len = strcspn(pos, ";,"); if ((len == 4 && strncasecmp("gzip", pos, 4) == 0) || (len == 6 && strncasecmp("x-gzip", pos, 6) == 0)) return 1; if (pos[len] == ';') len += strcspn(&pos[len], ","); if (pos[len]) len++; } return 0; } /* * bozo_process_request does the following: * - check the request is valid * - process cgi-bin if necessary * - transform a filename if necesarry * - return the HTTP request */ void bozo_process_request(bozo_httpreq_t *request) { bozohttpd_t *httpd = request->hr_httpd; struct stat sb; time_t timestamp; char *file; const char *type, *encoding; int fd, isindex; /* * note that transform_request chdir()'s if required. also note * that cgi is handed here. if transform_request() returns 0 * then the request has been handled already. */ if (transform_request(request, &isindex) == 0) return; fd = -1; encoding = NULL; if (can_gzip(request)) { bozoasprintf(httpd, &file, "%s.gz", request->hr_file); fd = open(file, O_RDONLY); if (fd >= 0) encoding = "gzip"; free(file); } file = request->hr_file; if (fd < 0) fd = open(file, O_RDONLY); if (fd < 0) { debug((httpd, DEBUG_FAT, "open failed: %s", strerror(errno))); switch (errno) { case EPERM: case EACCES: bozo_http_error(httpd, 403, request, "no permission to open file"); break; case ENAMETOOLONG: /*FALLTHROUGH*/ case ENOENT: if (!bozo_dir_index(request, file, isindex)) bozo_http_error(httpd, 404, request, "no file"); break; default: bozo_http_error(httpd, 500, request, "open file"); } goto cleanup_nofd; } if (fstat(fd, &sb) < 0) { bozo_http_error(httpd, 500, request, "can't fstat"); goto cleanup; } if (S_ISDIR(sb.st_mode)) { handle_redirect(request, NULL, 0); goto cleanup; } if (request->hr_if_modified_since && parse_http_date(request->hr_if_modified_since, ×tamp) && timestamp >= sb.st_mtime) { /* XXX ignore subsecond of timestamp */ bozo_printf(httpd, "%s 304 Not Modified\r\n", request->hr_proto); bozo_printf(httpd, "\r\n"); bozo_flush(httpd, stdout); goto cleanup; } /* validate requested range */ if (request->hr_last_byte_pos == -1 || request->hr_last_byte_pos >= sb.st_size) request->hr_last_byte_pos = sb.st_size - 1; if (request->hr_have_range && request->hr_first_byte_pos > request->hr_last_byte_pos) { request->hr_have_range = 0; /* punt */ request->hr_first_byte_pos = 0; request->hr_last_byte_pos = sb.st_size - 1; } debug((httpd, DEBUG_FAT, "have_range %d first_pos %lld last_pos %lld", request->hr_have_range, (long long)request->hr_first_byte_pos, (long long)request->hr_last_byte_pos)); if (request->hr_have_range) bozo_printf(httpd, "%s 206 Partial Content\r\n", request->hr_proto); else bozo_printf(httpd, "%s 200 OK\r\n", request->hr_proto); if (request->hr_proto != httpd->consts.http_09) { type = bozo_content_type(request, file); if (!encoding) encoding = bozo_content_encoding(request, file); bozo_print_header(request, &sb, type, encoding); bozo_printf(httpd, "\r\n"); } bozo_flush(httpd, stdout); if (request->hr_method != HTTP_HEAD) { off_t szleft, cur_byte_pos; szleft = request->hr_last_byte_pos - request->hr_first_byte_pos + 1; cur_byte_pos = request->hr_first_byte_pos; retry: while (szleft) { size_t sz; if ((off_t)httpd->mmapsz < szleft) sz = httpd->mmapsz; else sz = (size_t)szleft; if (mmap_and_write_part(httpd, fd, cur_byte_pos, sz)) { if (errno == ENOMEM) { httpd->mmapsz /= 2; if (httpd->mmapsz >= httpd->page_size) goto retry; } goto cleanup; } cur_byte_pos += sz; szleft -= sz; } } cleanup: close(fd); cleanup_nofd: /* If SSL enabled send close_notify. */ bozo_ssl_shutdown(request->hr_httpd); close(STDIN_FILENO); close(STDOUT_FILENO); /*close(STDERR_FILENO);*/ } /* make sure we're not trying to access special files */ int bozo_check_special_files(bozo_httpreq_t *request, const char *name, bool doerror) { bozohttpd_t *httpd = request->hr_httpd; size_t i; int error = 0; for (i = 0; specials[i].file; i++) { if (strcmp(name, specials[i].file) == 0) { if (doerror) { error = bozo_http_error(httpd, 403, request, specials[i].name); } else { error = -1; } } } return error; } /* generic header printing routine */ void bozo_print_header(bozo_httpreq_t *request, struct stat *sbp, const char *type, const char *encoding) { bozohttpd_t *httpd = request->hr_httpd; off_t len; char date[40]; bozoheaders_t *hdr; SIMPLEQ_FOREACH(hdr, &request->hr_replheaders, h_next) { bozo_printf(httpd, "%s: %s\r\n", hdr->h_header, hdr->h_value); } bozo_printf(httpd, "Date: %s\r\n", bozo_http_date(date, sizeof(date))); bozo_printf(httpd, "Server: %s\r\n", httpd->server_software); bozo_printf(httpd, "Accept-Ranges: bytes\r\n"); if (sbp) { char filedate[40]; struct tm *tm; tm = gmtime(&sbp->st_mtime); strftime(filedate, sizeof filedate, "%a, %d %b %Y %H:%M:%S GMT", tm); bozo_printf(httpd, "Last-Modified: %s\r\n", filedate); } if (type && *type) bozo_printf(httpd, "Content-Type: %s\r\n", type); if (encoding && *encoding) bozo_printf(httpd, "Content-Encoding: %s\r\n", encoding); if (sbp) { if (request->hr_have_range) { len = request->hr_last_byte_pos - request->hr_first_byte_pos +1; bozo_printf(httpd, "Content-Range: bytes %qd-%qd/%qd\r\n", (long long) request->hr_first_byte_pos, (long long) request->hr_last_byte_pos, (long long) sbp->st_size); } else len = sbp->st_size; bozo_printf(httpd, "Content-Length: %qd\r\n", (long long)len); } if (request->hr_proto == httpd->consts.http_11) bozo_printf(httpd, "Connection: close\r\n"); bozo_flush(httpd, stdout); } #ifndef NO_DEBUG void debug__(bozohttpd_t *httpd, int level, const char *fmt, ...) { va_list ap; int savederrno; /* only log if the level is low enough */ if (httpd->debug < level) return; savederrno = errno; va_start(ap, fmt); if (!httpd->nolog) { if (httpd->logstderr) { vfprintf(stderr, fmt, ap); fputs("\n", stderr); } else vsyslog(LOG_DEBUG, fmt, ap); } va_end(ap); errno = savederrno; } #endif /* NO_DEBUG */ /* these are like warn() and err(), except for syslog not stderr */ void bozowarn(bozohttpd_t *httpd, const char *fmt, ...) { va_list ap; va_start(ap, fmt); if (!httpd->nolog) { if (httpd->logstderr || isatty(STDERR_FILENO)) { //fputs("warning: ", stderr); vfprintf(stderr, fmt, ap); fputs("\n", stderr); } else vsyslog(LOG_INFO, fmt, ap); } va_end(ap); } void bozoerr(bozohttpd_t *httpd, int code, const char *fmt, ...) { va_list ap; va_start(ap, fmt); if (!httpd->nolog) { if (httpd->logstderr || isatty(STDERR_FILENO)) { //fputs("error: ", stderr); vfprintf(stderr, fmt, ap); fputs("\n", stderr); } else vsyslog(LOG_ERR, fmt, ap); } va_end(ap); exit(code); } void bozoasprintf(bozohttpd_t *httpd, char **str, const char *fmt, ...) { va_list ap; int e; va_start(ap, fmt); e = vasprintf(str, fmt, ap); va_end(ap); if (e < 0) bozoerr(httpd, EXIT_FAILURE, "asprintf"); } /* * this escapes HTML tags. returns allocated escaped * string if needed, or NULL on allocation failure or * lack of escape need. * call with NULL httpd in error paths, to avoid recursive * malloc failure. call with valid httpd in normal paths * to get automatic allocation failure handling. */ char * bozo_escape_html(bozohttpd_t *httpd, const char *url) { int i, j; char *tmp; size_t len; for (i = 0, j = 0; url[i]; i++) { switch (url[i]) { case '<': case '>': j += 4; break; case '&': j += 5; break; case '"': j += 6; break; } } if (j == 0) return NULL; /* * we need to handle being called from different * pathnames. */ len = strlen(url) + j; if (httpd) tmp = bozomalloc(httpd, len); else if ((tmp = malloc(len)) == 0) return NULL; for (i = 0, j = 0; url[i]; i++) { switch (url[i]) { case '<': memcpy(tmp + j, "<", 4); j += 4; break; case '>': memcpy(tmp + j, ">", 4); j += 4; break; case '&': memcpy(tmp + j, "&", 5); j += 5; break; case '"': memcpy(tmp + j, """, 6); j += 6; break; default: tmp[j++] = url[i]; } } tmp[j] = 0; return tmp; } /* short map between error code, and short/long messages */ static struct errors_map { int code; /* HTTP return code */ const char *shortmsg; /* short version of message */ const char *longmsg; /* long version of message */ } errors_map[] = { { 200, "200 OK", "The request was valid", }, { 400, "400 Bad Request", "The request was not valid", }, { 401, "401 Unauthorized", "No authorization", }, { 403, "403 Forbidden", "Access to this item has been denied",}, { 404, "404 Not Found", "This item has not been found", }, { 408, "408 Request Timeout", "This request took too long", }, { 413, "413 Payload Too Large", "Use smaller requests", }, { 417, "417 Expectation Failed","Expectations not available", }, { 420, "420 Enhance Your Calm","Chill, Winston", }, { 500, "500 Internal Error", "An error occurred on the server", }, { 501, "501 Not Implemented", "This request is not available", }, { 0, NULL, NULL, }, }; static const char *help = "DANGER! WILL ROBINSON! DANGER!"; static const char * http_errors_short(int code) { struct errors_map *ep; for (ep = errors_map; ep->code; ep++) if (ep->code == code) return (ep->shortmsg); return (help); } static const char * http_errors_long(int code) { struct errors_map *ep; for (ep = errors_map; ep->code; ep++) if (ep->code == code) return (ep->longmsg); return (help); } #ifndef NO_BLOCKLIST_SUPPORT static struct blocklist *blstate; void pfilter_notify(const int what, const int code) { if (blstate == NULL) blstate = blocklist_open(); if (blstate == NULL) return; (void)blocklist_r(blstate, what, 0, http_errors_short(code)); } #endif /* !NO_BLOCKLIST_SUPPORT */ /* the follow functions and variables are used in handling HTTP errors */ int bozo_http_error(bozohttpd_t *httpd, int code, bozo_httpreq_t *request, const char *msg) { char portbuf[20]; const char *header = http_errors_short(code); const char *reason = http_errors_long(code); const char *proto = (request && request->hr_proto) ? request->hr_proto : httpd->consts.http_11; int size; bozoheaders_t *hdr; USE_ARG(msg); debug((httpd, DEBUG_FAT, "bozo_http_error %d: %s", code, msg)); if (header == NULL || reason == NULL) { bozoerr(httpd, 1, "bozo_http_error() failed (short = %p, long = %p)", header, reason); return code; } if (request && request->hr_serverport && strcmp(request->hr_serverport, BOZO_HTTP_PORT) != 0) snprintf(portbuf, sizeof(portbuf), ":%s", request->hr_serverport); else portbuf[0] = '\0'; if (request && request->hr_file) { char *file = NULL, *user = NULL; int file_alloc = 0; const char *hostname = BOZOHOST(httpd, request); /* bozo_escape_html() failure here is just too bad. */ file = bozo_escape_html(NULL, request->hr_file); if (file == NULL) file = request->hr_file; else file_alloc = 1; #ifndef NO_USER_SUPPORT if (request->hr_user != NULL) { char *user_escaped; user_escaped = bozo_escape_html(NULL, request->hr_user); if (user_escaped == NULL) user_escaped = request->hr_user; /* expand username to ~user/ */ bozoasprintf(httpd, &user, "~%s/", user_escaped); if (user_escaped != request->hr_user) free(user_escaped); } #endif /* !NO_USER_SUPPORT */ size = snprintf(httpd->errorbuf, BOZO_MINBUFSIZE, "%s\n" "

%s

\n" "%s%s: 
%s
\n" "
%s%s
\n" "\n", header, header, user ? user : "", file, reason, hostname, portbuf, hostname, portbuf); free(user); if (size >= (int)BOZO_MINBUFSIZE) { bozowarn(httpd, "bozo_http_error buffer too small, truncated"); size = (int)BOZO_MINBUFSIZE; } if (file_alloc) free(file); } else size = 0; bozo_printf(httpd, "%s %s\r\n", proto, header); if (request) { bozo_auth_check_401(request, code); SIMPLEQ_FOREACH(hdr, &request->hr_replheaders, h_next) { bozo_printf(httpd, "%s: %s\r\n", hdr->h_header, hdr->h_value); } } bozo_printf(httpd, "Content-Type: text/html\r\n"); bozo_printf(httpd, "Content-Length: %d\r\n", size); bozo_printf(httpd, "Server: %s\r\n", httpd->server_software); if (request && request->hr_allow) bozo_printf(httpd, "Allow: %s\r\n", request->hr_allow); /* RFC 7231 (HTTP/1.1) 6.5.7 */ if (code == 408 && request && request->hr_proto == httpd->consts.http_11) bozo_printf(httpd, "Connection: close\r\n"); bozo_printf(httpd, "\r\n"); /* According to the RFC 2616 sec. 9.4 HEAD method MUST NOT return a * message-body in the response */ if (size && request && request->hr_method != HTTP_HEAD) bozo_printf(httpd, "%s", httpd->errorbuf); bozo_flush(httpd, stdout); #ifndef NO_BLOCKLIST_SUPPORT switch(code) { case 401: pfilter_notify(BLOCKLIST_AUTH_FAIL, code); break; case 403: pfilter_notify(BLOCKLIST_ABUSIVE_BEHAVIOR, code); break; } #endif /* !NO_BLOCKLIST_SUPPORT */ return code; } /* Below are various modified libc functions */ /* * returns -1 in lenp if the string ran out before finding a delimiter, * but is otherwise the same as strsep. Note that the length must be * correctly passed in. */ char * bozostrnsep(char **strp, const char *delim, ssize_t *lenp) { char *s; const char *spanp; int c, sc; char *tok; if ((s = *strp) == NULL) return (NULL); for (tok = s;;) { if (lenp && --(*lenp) == -1) return (NULL); c = *s++; spanp = delim; do { if ((sc = *spanp++) == c) { if (c == 0) s = NULL; else s[-1] = '\0'; *strp = s; return (tok); } } while (sc != 0); } /* NOTREACHED */ } /* * inspired by fgetln(3), but works for fd's. should work identically * except it, however, does *not* return the newline, and it does nul * terminate the string. * * returns NULL if the line grows too large. empty lines will be * returned with *lenp set to 0. */ char * bozodgetln(bozohttpd_t *httpd, int fd, ssize_t *lenp, ssize_t (*readfn)(bozohttpd_t *, int, void *, size_t)) { ssize_t len; int got_cr = 0; char c, *nbuffer; /* initialise */ if (httpd->getln_buflen == 0) { /* should be plenty for most requests */ httpd->getln_buflen = 128; httpd->getln_buffer = bozomalloc(httpd, (size_t)httpd->getln_buflen); } len = 0; /* * we *have* to read one byte at a time, to not break cgi * programs (for we pass stdin off to them). could fix this * by becoming a fd-passing program instead of just exec'ing * the program * * the above is no longer true, we are the fd-passing * program already. */ for (; readfn(httpd, fd, &c, 1) == 1; ) { debug((httpd, DEBUG_EXPLODING, "bozodgetln read %c", c)); if (httpd->getln_buflen > BOZO_HEADERS_MAX_SIZE) return NULL; if (len >= httpd->getln_buflen - 1) { httpd->getln_buflen *= 2; debug((httpd, DEBUG_EXPLODING, "bozodgetln: " "reallocating buffer to buflen %zu", httpd->getln_buflen)); nbuffer = bozorealloc(httpd, httpd->getln_buffer, (size_t)httpd->getln_buflen); httpd->getln_buffer = nbuffer; } httpd->getln_buffer[len++] = c; if (c == '\r') { got_cr = 1; continue; } else if (c == '\n') { /* * HTTP/1.1 spec says to ignore CR and treat * LF as the real line terminator. even though * the same spec defines CRLF as the line * terminator, it is recommended in section 19.3 * to do the LF trick for tolerance. */ if (got_cr) len -= 2; else len -= 1; break; } } httpd->getln_buffer[len] = '\0'; debug((httpd, DEBUG_OBESE, "bozodgetln returns: '%s' with len %zd", httpd->getln_buffer, len)); *lenp = len; return httpd->getln_buffer; } /* * allocation frontends with error handling. * * note that these may access members of the httpd and/or request. */ void * bozorealloc(bozohttpd_t *httpd, void *ptr, size_t size) { void *p; p = realloc(ptr, size); if (p) return p; bozo_http_error(httpd, 500, NULL, "memory allocation failure"); exit(EXIT_FAILURE); } void * bozomalloc(bozohttpd_t *httpd, size_t size) { void *p; p = malloc(size); if (p) return p; bozo_http_error(httpd, 500, NULL, "memory allocation failure"); exit(EXIT_FAILURE); } char * bozostrdup(bozohttpd_t *httpd, bozo_httpreq_t *request, const char *str) { char *p; p = strdup(str); if (p) return p; if (!request) bozoerr(httpd, EXIT_FAILURE, "strdup"); bozo_http_error(httpd, 500, request, "memory allocation failure"); exit(EXIT_FAILURE); } /* set default values in bozohttpd_t struct */ int bozo_init_httpd(bozohttpd_t *httpd) { /* make sure everything is clean */ (void) memset(httpd, 0x0, sizeof(*httpd)); /* constants */ httpd->consts.http_09 = "HTTP/0.9"; httpd->consts.http_10 = "HTTP/1.0"; httpd->consts.http_11 = "HTTP/1.1"; httpd->consts.text_plain = "text/plain"; /* mmap region size */ httpd->mmapsz = BOZO_MMAPSZ; /* default bind port */ httpd->defbindport = BOZO_HTTP_PORT; /* error buffer for bozo_http_error() */ if ((httpd->errorbuf = malloc(BOZO_MINBUFSIZE)) == NULL) { fprintf(stderr, "bozohttpd: memory_allocation failure\n"); return 0; } #ifndef NO_LUA_SUPPORT SIMPLEQ_INIT(&httpd->lua_states); #endif return 1; } /* set default values in bozoprefs_t struct */ int bozo_init_prefs(bozohttpd_t *httpd, bozoprefs_t *prefs) { int rv = 1; /* make sure everything is clean */ (void) memset(prefs, 0x0, sizeof(*prefs)); /* set up default values */ if (!bozo_set_pref(httpd, prefs, "server software", SERVER_SOFTWARE)) rv = 0; if (!bozo_set_pref(httpd, prefs, "index.html", INDEX_HTML)) rv = 0; if (!bozo_set_pref(httpd, prefs, "public_html", PUBLIC_HTML)) rv = 0; if (!bozo_set_pref(httpd, prefs, "ssl timeout", SSL_TIMEOUT)) rv = 0; if (!bozo_set_pref(httpd, prefs, "initial timeout", INITIAL_TIMEOUT)) rv = 0; if (!bozo_set_pref(httpd, prefs, "header timeout", HEADER_WAIT_TIME)) rv = 0; if (!bozo_set_pref(httpd, prefs, "request timeout", TOTAL_MAX_REQ_TIME)) rv = 0; return rv; } /* set default values */ int bozo_set_defaults(bozohttpd_t *httpd, bozoprefs_t *prefs) { return bozo_init_httpd(httpd) && bozo_init_prefs(httpd, prefs); } /* set the virtual host name, port and root */ int bozo_setup(bozohttpd_t *httpd, bozoprefs_t *prefs, const char *vhost, const char *root) { struct passwd *pw; extern char **environ; static char *cleanenv[1] = { NULL }; uid_t uid; int uidset = 0; char *chrootdir; char *username; char *portnum; char *cp; int dirtyenv; dirtyenv = 0; if (vhost == NULL) { httpd->virthostname = bozomalloc(httpd, MAXHOSTNAMELEN+1); if (gethostname(httpd->virthostname, MAXHOSTNAMELEN+1) < 0) bozoerr(httpd, 1, "gethostname"); httpd->virthostname[MAXHOSTNAMELEN] = '\0'; } else { httpd->virthostname = bozostrdup(httpd, NULL, vhost); } httpd->slashdir = bozostrdup(httpd, NULL, root); if ((portnum = bozo_get_pref(prefs, "port number")) != NULL) { httpd->bindport = bozostrdup(httpd, NULL, portnum); } /* go over preferences now */ if ((cp = bozo_get_pref(prefs, "numeric")) != NULL && strcmp(cp, "true") == 0) { httpd->numeric = 1; } if ((cp = bozo_get_pref(prefs, "log to stderr")) != NULL && strcmp(cp, "true") == 0) { httpd->logstderr = 1; } if ((cp = bozo_get_pref(prefs, "no log")) != NULL && strcmp(cp, "true") == 0) { httpd->nolog = 1; } if ((cp = bozo_get_pref(prefs, "bind address")) != NULL) { httpd->bindaddress = bozostrdup(httpd, NULL, cp); } if ((cp = bozo_get_pref(prefs, "background")) != NULL) { httpd->background = atoi(cp); } if ((cp = bozo_get_pref(prefs, "foreground")) != NULL && strcmp(cp, "true") == 0) { httpd->foreground = 1; } if ((cp = bozo_get_pref(prefs, "pid file")) != NULL) { httpd->pidfile = bozostrdup(httpd, NULL, cp); } if ((cp = bozo_get_pref(prefs, "unknown slash")) != NULL && strcmp(cp, "true") == 0) { httpd->unknown_slash = 1; } if ((cp = bozo_get_pref(prefs, "virtual base")) != NULL) { httpd->virtbase = bozostrdup(httpd, NULL, cp); } if ((cp = bozo_get_pref(prefs, "enable users")) != NULL && strcmp(cp, "true") == 0) { httpd->enable_users = 1; } if ((cp = bozo_get_pref(prefs, "enable user cgibin")) != NULL && strcmp(cp, "true") == 0) { httpd->enable_cgi_users = 1; } if ((cp = bozo_get_pref(prefs, "dirty environment")) != NULL && strcmp(cp, "true") == 0) { dirtyenv = 1; } if ((cp = bozo_get_pref(prefs, "hide dots")) != NULL && strcmp(cp, "true") == 0) { httpd->hide_dots = 1; } if ((cp = bozo_get_pref(prefs, "directory indexing")) != NULL && strcmp(cp, "true") == 0) { httpd->dir_indexing = 1; } if ((cp = bozo_get_pref(prefs, "directory index readme")) != NULL) { httpd->dir_readme = bozostrdup(httpd, NULL, cp); } if ((cp = bozo_get_pref(prefs, "public_html")) != NULL) { httpd->public_html = bozostrdup(httpd, NULL, cp); } if ((cp = bozo_get_pref(prefs, "ssl timeout")) != NULL) { httpd->ssl_timeout = atoi(cp); } if ((cp = bozo_get_pref(prefs, "initial timeout")) != NULL) { httpd->initial_timeout = atoi(cp); } if ((cp = bozo_get_pref(prefs, "header timeout")) != NULL) { httpd->header_timeout = atoi(cp); } if ((cp = bozo_get_pref(prefs, "request timeout")) != NULL) { httpd->request_timeout = atoi(cp); } httpd->server_software = bozostrdup(httpd, NULL, bozo_get_pref(prefs, "server software")); httpd->index_html = bozostrdup(httpd, NULL, bozo_get_pref(prefs, "index.html")); /* * initialise ssl and daemon mode if necessary. */ bozo_ssl_init(httpd); bozo_daemon_init(httpd); username = bozo_get_pref(prefs, "username"); if (username != NULL) { if ((pw = getpwnam(username)) == NULL) bozoerr(httpd, 1, "getpwnam(%s): %s", username, strerror(errno)); if (initgroups(pw->pw_name, pw->pw_gid) == -1) bozoerr(httpd, 1, "initgroups: %s", strerror(errno)); if (setgid(pw->pw_gid) == -1) bozoerr(httpd, 1, "setgid(%u): %s", pw->pw_gid, strerror(errno)); uid = pw->pw_uid; uidset = 1; } /* * handle chroot. */ if ((chrootdir = bozo_get_pref(prefs, "chroot dir")) != NULL) { httpd->rootdir = bozostrdup(httpd, NULL, chrootdir); if (chdir(httpd->rootdir) == -1) bozoerr(httpd, 1, "chdir(%s): %s", httpd->rootdir, strerror(errno)); if (chroot(httpd->rootdir) == -1) bozoerr(httpd, 1, "chroot(%s): %s", httpd->rootdir, strerror(errno)); } if (uidset && setuid(uid) == -1) bozoerr(httpd, 1, "setuid(%d): %s", uid, strerror(errno)); /* * prevent info leakage between different compartments. * some PATH values in the environment would be invalided * by chroot. cross-user settings might result in undesirable * effects. */ if ((chrootdir != NULL || username != NULL) && !dirtyenv) environ = cleanenv; #ifdef _SC_PAGESIZE httpd->page_size = (long)sysconf(_SC_PAGESIZE); #else httpd->page_size = 4096; #endif debug((httpd, DEBUG_OBESE, "myname is %s, slashdir is %s", httpd->virthostname, httpd->slashdir)); return 1; } void bozo_cleanup(bozohttpd_t *httpd, bozoprefs_t *prefs) { bozo_clear_prefs(prefs); free(httpd->virthostname); free(httpd->errorbuf); free(httpd->getln_buffer); free(httpd->slashdir); free(httpd->bindport); free(httpd->pidfile); free(httpd->cgibin); free(httpd->virtbase); free(httpd->dynamic_content_map); #define bozo_unconst(x) ((void *)(uintptr_t)x) free(bozo_unconst(httpd->server_software)); free(bozo_unconst(httpd->index_html)); free(bozo_unconst(httpd->dir_readme)); free(bozo_unconst(httpd->public_html)); #undef bozo_unconst } int bozo_get_version(char *buf, size_t size) { return snprintf(buf, size, "%s", SERVER_SOFTWARE); } src/libexec/httpd/bozohttpd.h010064400011300000175000000357401517752563000165450ustar00srcmastrnetbsd/* $NetBSD: bozohttpd.h,v 1.73.6.1 2026/05/07 15:51:07 martin Exp $ */ /* $eterna: bozohttpd.h,v 1.39 2011/11/18 09:21:15 mrg Exp $ */ /* * Copyright (c) 1997-2022 Matthew R. Green * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer and * dedication in the documentation and/or other materials provided * with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * */ #ifndef BOZOHTTPD_H_ #define BOZOHTTPD_H_ 1 #include "netbsd_queue.h" #include #include #include #include #ifndef NO_LUA_SUPPORT #include #endif #ifndef NO_BLOCKLIST_SUPPORT #include void pfilter_notify(const int, const int); #endif /* QNX provides a lot of NetBSD things in nbutil.h */ #ifdef HAVE_NBUTIL_H #include #endif /* lots of "const" but gets free()'ed etc at times, sigh */ /* headers */ typedef struct bozoheaders { /*const*/ char *h_header; /*const*/ char *h_value; /* this gets free()'ed etc at times */ SIMPLEQ_ENTRY(bozoheaders) h_next; } bozoheaders_t; SIMPLEQ_HEAD(qheaders, bozoheaders); #ifndef NO_LUA_SUPPORT typedef struct lua_handler { const char *name; int ref; SIMPLEQ_ENTRY(lua_handler) h_next; } lua_handler_t; typedef struct lua_state_map { const char *script; const char *prefix; lua_State *L; SIMPLEQ_HEAD(, lua_handler) handlers; SIMPLEQ_ENTRY(lua_state_map) s_next; } lua_state_map_t; #endif typedef struct bozo_content_map_t { const char *name; /* postfix of file */ const char *type; /* matching content-type */ const char *encoding; /* matching content-encoding */ const char *encoding11; /* matching content-encoding (HTTP/1.1) */ const char *cgihandler; /* optional CGI handler */ } bozo_content_map_t; /* this struct holds the bozo constants */ typedef struct bozo_consts_t { const char *http_09; /* "HTTP/0.9" */ const char *http_10; /* "HTTP/1.0" */ const char *http_11; /* "HTTP/1.1" */ const char *text_plain; /* "text/plain" */ } bozo_consts_t; /* this structure encapsulates all the bozo flags and control vars */ typedef struct bozohttpd_t { char *rootdir; /* root directory */ int numeric; /* avoid gethostby*() */ char *virtbase; /* virtual directory base */ int unknown_slash; /* unknown vhosts go to normal slashdir */ int logstderr; /* log to stderr (even if not tty) */ int nolog; /* do not log anything */ int background; /* drop into daemon mode */ int foreground; /* keep daemon mode in foreground */ char *pidfile; /* path to the pid file, if any */ size_t page_size; /* page size */ char *slashdir; /* www slash directory */ const char *defbindport; /* default "http"; ssl sets to "https" */ char *bindport; /* bind port; default "http" */ char *bindaddress; /* address for binding - INADDR_ANY */ int debug; /* debugging level */ char *virthostname; /* my name */ const char *server_software;/* our brand :-) */ const char *index_html; /* our home page */ const char *public_html; /* ~user/public_html page */ int enable_users; /* enable public_html */ int enable_cgi_users; /* use the cgi handler */ int *sock; /* bound sockets */ int nsock; /* number of above */ struct pollfd *fds; /* current poll fd set */ int request_times; /* # times a request was processed */ int dir_indexing; /* handle directories */ const char *dir_readme; /* include README footer in indexes */ int hide_dots; /* hide .* */ int process_cgi; /* use the cgi handler */ char *cgibin; /* cgi-bin directory */ unsigned ssl_timeout; /* ssl timeout */ unsigned initial_timeout;/* first line timeout */ unsigned header_timeout; /* header lines timeout */ unsigned request_timeout;/* total session timeout */ char *ssl_min_proto; /* minimum ssl protocol level */ #ifndef NO_LUA_SUPPORT int process_lua; /* use the Lua handler */ SIMPLEQ_HEAD(, lua_state_map) lua_states; #endif void *sslinfo; /* pointer to ssl struct */ int dynamic_content_map_size;/* size of dyn cont map */ bozo_content_map_t *dynamic_content_map;/* dynamic content map */ size_t mmapsz; /* size of region to mmap */ char *getln_buffer; /* space for getln buffer */ ssize_t getln_buflen; /* length of allocated space */ char *errorbuf; /* no dynamic allocation allowed */ bozo_consts_t consts; /* various constants */ } bozohttpd_t; /* bozo_httpreq_t */ typedef struct bozo_httpreq_t { bozohttpd_t *hr_httpd; int hr_method; #define HTTP_GET 0x01 #define HTTP_POST 0x02 #define HTTP_HEAD 0x03 #define HTTP_OPTIONS 0x04 /* not supported */ #define HTTP_PUT 0x05 /* not supported */ #define HTTP_DELETE 0x06 /* not supported */ #define HTTP_TRACE 0x07 /* not supported */ #define HTTP_CONNECT 0x08 /* not supported */ const char *hr_methodstr; char *hr_virthostname; /* server name (if not identical to hr_httpd->virthostname) */ char *hr_file_free; /* pointer to file buffer to free() */ char *hr_file; /* pointer into file buffer */ char *hr_oldfile; /* if we added an index_html */ char *hr_query; char *hr_host; /* HTTP/1.1 Host: or virtual hostname, possibly including a port number */ #ifndef NO_USER_SUPPORT char *hr_user; /* username if we hit userdir request */ #endif /* !NO_USER_SUPPORT */ const char *hr_proto; const char *hr_content_type; const char *hr_content_length; const char *hr_allow; const char *hr_referrer; const char *hr_range; const char *hr_if_modified_since; const char *hr_accept_encoding; int hr_have_range; off_t hr_first_byte_pos; off_t hr_last_byte_pos; /*const*/ char *hr_remotehost; /*const*/ char *hr_remoteaddr; /*const*/ char *hr_serverport; #ifdef DO_HTPASSWD /*const*/ char *hr_authrealm; /*const*/ char *hr_authuser; /*const*/ char *hr_authpass; #endif struct qheaders hr_headers; struct qheaders hr_replheaders; unsigned hr_nheaders; size_t hr_header_bytes; } bozo_httpreq_t; /* helper to access the "active" host name from a httpd/request pair */ #define BOZOHOST(HTTPD,REQUEST) ((REQUEST)->hr_virthostname ? \ (REQUEST)->hr_virthostname : \ (HTTPD)->virthostname) /* structure to hold string based (name, value) pairs with preferences */ typedef struct bozoprefs_t { size_t size; /* size of the two arrays */ size_t count; /* # of entries in arrays */ char **name; /* names of each entry */ char **value; /* values for the name entries */ } bozoprefs_t; /* sun2 has a tiny VA range */ #ifdef __mc68010__ #ifndef BOZO_WRSZ #define BOZO_WRSZ (16 * 1024) #endif #ifndef BOZO_MMAPSZ #define BOZO_MMAPSZ (BOZO_WRSZ * 4) #endif #endif /* by default write in upto 64KiB chunks, and mmap in upto 64MiB chunks */ #ifndef BOZO_WRSZ #define BOZO_WRSZ (64 * 1024) #endif #ifndef BOZO_MMAPSZ #define BOZO_MMAPSZ (BOZO_WRSZ * 1024) #endif /* only allow this many total headers bytes */ #define BOZO_HEADERS_MAX_SIZE (16 * 1024) #define BOZO_MINBUFSIZE (4 * 1024) /* debug flags */ #define DEBUG_NORMAL 1 #define DEBUG_FAT 2 #define DEBUG_OBESE 3 #define DEBUG_EXPLODING 4 #define strornull(x) ((x) ? (x) : "") #if (defined(__GNUC__) && __GNUC__ >= 3) || defined(__lint__) #define BOZO_PRINTFLIKE(x,y) __attribute__((__format__(__printf__, x,y))) #define BOZO_DEAD __attribute__((__noreturn__)) #define BOZO_CHECKRET __attribute__((__warn_unused_result__)) #else #define BOZO_PRINTFLIKE(x,y) #define BOZO_DEAD #define BOZO_CHECKRET #endif #ifdef NO_DEBUG #define debug(x) #define have_debug (0) #else void debug__(bozohttpd_t *, int, const char *, ...) BOZO_PRINTFLIKE(3, 4); #define debug(x) debug__ x #define have_debug (1) #endif /* NO_DEBUG */ #define BOZO_HTTP_PORT "80" #define BOZO_HTTPS_PORT "443" /* * bozohttpd special files. avoid serving these out. * * When you add some .bz* file, make sure to also check it in * bozo_check_special_files() */ #ifndef REDIRECT_FILE #define REDIRECT_FILE ".bzredirect" #endif #ifndef ABSREDIRECT_FILE #define ABSREDIRECT_FILE ".bzabsredirect" #endif #ifndef REMAP_FILE #define REMAP_FILE ".bzremap" #endif #ifndef AUTH_FILE #define AUTH_FILE ".htpasswd" #endif /* be sure to always return this error up */ int bozo_http_error(bozohttpd_t *, int, bozo_httpreq_t *, const char *); int bozo_check_special_files(bozo_httpreq_t *, const char *, bool) BOZO_CHECKRET; char *bozo_http_date(char *, size_t); void bozo_print_header(bozo_httpreq_t *, struct stat *, const char *, const char *); char *bozo_escape_rfc3986(bozohttpd_t *httpd, const char *url, int absolute); char *bozo_escape_html(bozohttpd_t *httpd, const char *url); int bozo_decode_url_percent(bozo_httpreq_t *, char *); /* these are similar to libc functions, no underscore here */ void bozowarn(bozohttpd_t *, const char *, ...) BOZO_PRINTFLIKE(2, 3); void bozoerr(bozohttpd_t *, int, const char *, ...) BOZO_PRINTFLIKE(3, 4) BOZO_DEAD; void bozoasprintf(bozohttpd_t *, char **, const char *, ...) BOZO_PRINTFLIKE(3, 4); char *bozodgetln(bozohttpd_t *, int, ssize_t *, ssize_t (*)(bozohttpd_t *, int, void *, size_t)); char *bozostrnsep(char **, const char *, ssize_t *); void *bozomalloc(bozohttpd_t *, size_t); void *bozorealloc(bozohttpd_t *, void *, size_t); char *bozostrdup(bozohttpd_t *, bozo_httpreq_t *, const char *); #define bozo_noop do { /* nothing */ } while (/*CONSTCOND*/0) #define have_core (1) /* ssl-bozo.c */ #ifdef NO_SSL_SUPPORT #define bozo_ssl_set_opts(w, x, y) bozo_noop #define bozo_ssl_set_ciphers(w, x) bozo_noop #define bozo_ssl_init(x) bozo_noop #define bozo_ssl_accept(x) (0) #define bozo_ssl_shutdown(x) bozo_noop #define bozo_ssl_destroy(x) bozo_noop #define have_ssl (0) #else void bozo_ssl_set_opts(bozohttpd_t *, const char *, const char *); void bozo_ssl_set_ciphers(bozohttpd_t *, const char *); void bozo_ssl_init(bozohttpd_t *); int bozo_ssl_accept(bozohttpd_t *); void bozo_ssl_shutdown(bozohttpd_t *); void bozo_ssl_destroy(bozohttpd_t *); #define have_ssl (1) #endif /* auth-bozo.c */ #ifdef DO_HTPASSWD void bozo_auth_init(bozo_httpreq_t *); int bozo_auth_check(bozo_httpreq_t *, const char *); void bozo_auth_cleanup(bozo_httpreq_t *); int bozo_auth_check_headers(bozo_httpreq_t *, char *, char *, ssize_t); void bozo_auth_check_401(bozo_httpreq_t *, int); void bozo_auth_cgi_setenv(bozo_httpreq_t *, char ***); int bozo_auth_cgi_count(bozo_httpreq_t *); #else #define bozo_auth_init(x) bozo_noop #define bozo_auth_check(x, y) (0) #define bozo_auth_cleanup(x) bozo_noop #define bozo_auth_check_headers(y, z, a, b) (0) #define bozo_auth_check_401(x, y) bozo_noop #define bozo_auth_cgi_setenv(x, y) bozo_noop #define bozo_auth_cgi_count(x) (0) #endif /* DO_HTPASSWD */ /* cgi-bozo.c */ #ifdef NO_CGIBIN_SUPPORT #define bozo_cgi_setbin(h,s) bozo_noop #define bozo_process_cgi(h) (0) #define have_cgibin (0) #else void bozo_cgi_setbin(bozohttpd_t *, const char *); void bozo_setenv(bozohttpd_t *, const char *, const char *, char **); int bozo_process_cgi(bozo_httpreq_t *); #define have_cgibin (1) #endif /* NO_CGIBIN_SUPPORT */ /* lua-bozo.c */ #ifdef NO_LUA_SUPPORT #define bozo_process_lua(h) (0) #define bozo_add_lua_map(h,s,t) bozo_noop #define have_lua (0) #else void bozo_add_lua_map(bozohttpd_t *, const char *, const char *); int bozo_process_lua(bozo_httpreq_t *); #define have_lua (1) #endif /* NO_LUA_SUPPORT */ /* daemon-bozo.c */ #ifdef NO_DAEMON_MODE #define bozo_daemon_init(x) bozo_noop #define bozo_daemon_fork(x) (0) #define bozo_daemon_closefds(x) bozo_noop #define have_daemon_mode (0) #else void bozo_daemon_init(bozohttpd_t *); int bozo_daemon_fork(bozohttpd_t *); void bozo_daemon_closefds(bozohttpd_t *); #define have_daemon_mode (1) #endif /* NO_DAEMON_MODE */ /* tilde-luzah-bozo.c */ #ifdef NO_USER_SUPPORT #define bozo_user_transform(x) (0) #define bozo_user_free(x) /* nothing */ #define have_user (0) #else int bozo_user_transform(bozo_httpreq_t *); #define bozo_user_free(x) free(x) #define have_user (1) #endif /* NO_USER_SUPPORT */ /* dir-index-bozo.c */ #ifdef NO_DIRINDEX_SUPPORT #define bozo_dir_index(a, b, c) (0) #define have_dirindex (0) #else int bozo_dir_index(bozo_httpreq_t *, const char *, int); #define have_dirindex (1) #endif /* NO_DIRINDEX_SUPPORT */ /* content-bozo.c */ const char *bozo_content_type(bozo_httpreq_t *, const char *); const char *bozo_content_encoding(bozo_httpreq_t *, const char *); bozo_content_map_t *bozo_match_content_map(bozohttpd_t *, const char *, int); bozo_content_map_t *bozo_get_content_map(bozohttpd_t *, const char *); #ifdef NO_DYNAMIC_CONTENT #define bozo_add_content_map_mime(h,s,t,u,v) bozo_noop #define have_dynamic_content (0) #else void bozo_add_content_map_mime(bozohttpd_t *, const char *, const char *, const char *, const char *); #define have_dynamic_content (1) #endif /* additional cgi-bozo.c */ #if have_cgibin && have_dynamic_content void bozo_add_content_map_cgi(bozohttpd_t *, const char *, const char *); #else #define bozo_add_content_map_cgi(h,s,t) #endif /* I/O */ int bozo_printf(bozohttpd_t *, const char *, ...) BOZO_PRINTFLIKE(2, 3); ssize_t bozo_read(bozohttpd_t *, int, void *, size_t); ssize_t bozo_write(bozohttpd_t *, int, const void *, size_t); int bozo_flush(bozohttpd_t *, FILE *); /* misc */ int bozo_init_httpd(bozohttpd_t *); int bozo_init_prefs(bozohttpd_t *, bozoprefs_t *); int bozo_set_defaults(bozohttpd_t *, bozoprefs_t *); int bozo_setup(bozohttpd_t *, bozoprefs_t *, const char *, const char *); void bozo_cleanup(bozohttpd_t *, bozoprefs_t *); bozo_httpreq_t *bozo_read_request(bozohttpd_t *); void bozo_process_request(bozo_httpreq_t *); void bozo_clean_request(bozo_httpreq_t *); int bozo_set_timeout(bozohttpd_t *, bozoprefs_t *, const char *, const char *); bozoheaders_t *addmerge_reqheader(bozo_httpreq_t *, const char *, const char *, ssize_t); bozoheaders_t *addmerge_replheader(bozo_httpreq_t *, const char *, const char *, ssize_t); /* variables */ int bozo_set_pref(bozohttpd_t *, bozoprefs_t *, const char *, const char *); char *bozo_get_pref(bozoprefs_t *, const char *); int bozo_get_version(char */*buf*/, size_t /*size*/); extern volatile sig_atomic_t bozo_timeout_hit; #endif /* BOZOHTTPD_H_ */ src/libexec/httpd/cgi-bozo.c010064400011300000175000000450741450253007700162250ustar00srcmastrnetbsd/* $NetBSD: cgi-bozo.c,v 1.56 2023/09/20 08:41:35 shm Exp $ */ /* $eterna: cgi-bozo.c,v 1.40 2011/11/18 09:21:15 mrg Exp $ */ /* * Copyright (c) 1997-2021 Matthew R. Green * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer and * dedication in the documentation and/or other materials provided * with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * */ /* this code implements CGI/1.2 for bozohttpd */ #ifndef NO_CGIBIN_SUPPORT #include #include #include #include #include #include #include #include #include #include #include #include #include "bozohttpd.h" #define CGIBIN_PREFIX "cgi-bin/" #define CGIBIN_PREFIX_LEN (sizeof(CGIBIN_PREFIX)-1) #ifndef USE_ARG #define USE_ARG(x) /*LINTED*/(void)&(x) #endif /* * given the file name, return a CGI interpreter */ static const char * content_cgihandler(bozohttpd_t *httpd, bozo_httpreq_t *request, const char *file) { bozo_content_map_t *map; USE_ARG(request); debug((httpd, DEBUG_FAT, "content_cgihandler: trying file %s", file)); map = bozo_match_content_map(httpd, file, 0); if (map) return map->cgihandler; return NULL; } static int parse_header(bozo_httpreq_t *request, const char *str, ssize_t len, char **hdr_str, char **hdr_val) { struct bozohttpd_t *httpd = request->hr_httpd; char *name, *value; /* if the string passed is zero-length bail out */ if (*str == '\0') return -1; value = bozostrdup(httpd, request, str); /* locate the ':' separator in the header/value */ name = bozostrnsep(&value, ":", &len); if (NULL == name || -1 == len) { free(value); return -1; } /* skip leading space/tab */ while (*value == ' ' || *value == '\t') len--, value++; *hdr_str = name; *hdr_val = value; return 0; } /* * handle parsing a CGI header output, transposing a Status: header * into the HTTP reply (ie, instead of "200 OK"). */ static void finish_cgi_output(bozohttpd_t *httpd, bozo_httpreq_t *request, int in, int nph) { char buf[BOZO_WRSZ]; char *str; ssize_t len; ssize_t rbytes; SIMPLEQ_HEAD(, bozoheaders) headers; bozoheaders_t *hdr, *nhdr; int write_header, nheaders = 0; /* much of this code is like bozo_read_request()'s header loop. */ SIMPLEQ_INIT(&headers); write_header = nph == 0; while (nph == 0 && (str = bozodgetln(httpd, in, &len, bozo_read)) != NULL) { char *hdr_name, *hdr_value; if (parse_header(request, str, len, &hdr_name, &hdr_value)) break; /* * The CGI 1.{1,2} spec both say that if the cgi program * returns a `Status:' header field then the server MUST * return it in the response. If the cgi program does * not return any `Status:' header then the server should * respond with 200 OK. * The CGI 1.1 and 1.2 specification differ slightly on * this in that v1.2 says that the script MUST NOT return a * `Status:' header if it is returning a `Location:' header. * For compatibility we are going with the CGI 1.1 behavior. */ if (strcasecmp(hdr_name, "status") == 0) { debug((httpd, DEBUG_OBESE, "%s: writing HTTP header " "from status %s ..", __func__, hdr_value)); bozo_printf(httpd, "%s %s\r\n", request->hr_proto, hdr_value); bozo_flush(httpd, stdout); write_header = 0; free(hdr_name); break; } hdr = bozomalloc(httpd, sizeof *hdr); hdr->h_header = hdr_name; hdr->h_value = hdr_value; SIMPLEQ_INSERT_TAIL(&headers, hdr, h_next); nheaders++; } if (write_header) { debug((httpd, DEBUG_OBESE, "%s: writing HTTP header ..", __func__)); bozo_printf(httpd, "%s 200 OK\r\n", request->hr_proto); bozo_flush(httpd, stdout); } if (nheaders) { debug((httpd, DEBUG_OBESE, "%s: writing delayed HTTP headers ..", __func__)); SIMPLEQ_FOREACH_SAFE(hdr, &headers, h_next, nhdr) { bozo_printf(httpd, "%s: %s\r\n", hdr->h_header, hdr->h_value); free(hdr->h_header); free(hdr); } bozo_printf(httpd, "\r\n"); bozo_flush(httpd, stdout); } /* CGI programs should perform their own timeouts */ while ((rbytes = read(in, buf, sizeof buf)) > 0) { ssize_t wbytes; while (rbytes) { wbytes = bozo_write(httpd, STDOUT_FILENO, buf, (size_t)rbytes); if (wbytes > 0) rbytes -= wbytes; else bozoerr(httpd, 1, "cgi output write failed: %s", strerror(errno)); } } } static void append_index_html(bozohttpd_t *httpd, char **url) { *url = bozorealloc(httpd, *url, strlen(*url) + strlen(httpd->index_html) + 1); strcat(*url, httpd->index_html); debug((httpd, DEBUG_NORMAL, "append_index_html: url adjusted to `%s'", *url)); } /* This function parse search-string according to section 4.4 of RFC3875 */ static char ** parse_search_string(bozo_httpreq_t *request, const char *query, size_t *args_len) { struct bozohttpd_t *httpd = request->hr_httpd; size_t i; char *s, *str, **args; *args_len = 0; /* URI MUST not contain any unencoded '=' - RFC3875, section 4.4 */ if (strchr(query, '=')) return NULL; str = bozostrdup(httpd, request, query); /* * there's no more arguments than '+' chars in the query string as it's * the separator */ *args_len = 1; /* count '+' in str */ for (s = str; (s = strchr(s, '+')) != NULL; (*args_len)++) s++; args = bozomalloc(httpd, sizeof(*args) * (*args_len + 1)); args[0] = str; args[*args_len] = NULL; for (s = str, i = 1; (s = strchr(s, '+')) != NULL; i++) { *s = '\0'; s++; args[i] = s; } /* * check if search-strings are valid: * * RFC3875, section 4.4: * * search-string = search-word *( "+" search-word ) * search-word = 1*schar * schar = unreserved | escaped | xreserved * xreserved = ";" | "/" | "?" | ":" | "@" | "&" | "=" | "," | * "$" * * section 2.3: * * hex = digit | "A" | "B" | "C" | "D" | "E" | "F" | "a" | * "b" | "c" | "d" | "e" | "f" * escaped = "%" hex hex * unreserved = alpha | digit | mark * mark = "-" | "_" | "." | "!" | "~" | "*" | "'" | "(" | ")" * * section 2.2: * * alpha = lowalpha | hialpha * lowalpha = "a" | "b" | "c" | "d" | "e" | "f" | "g" | "h" | * "i" | "j" | "k" | "l" | "m" | "n" | "o" | "p" | * "q" | "r" | "s" | "t" | "u" | "v" | "w" | "x" | * "y" | "z" * hialpha = "A" | "B" | "C" | "D" | "E" | "F" | "G" | "H" | * "I" | "J" | "K" | "L" | "M" | "N" | "O" | "P" | * "Q" | "R" | "S" | "T" | "U" | "V" | "W" | "X" | * "Y" | "Z" * digit = "0" | "1" | "2" | "3" | "4" | "5" | "6" | "7" | * "8" | "9" */ #define UNRESERVED_CHAR "-_.!~*'()" #define XRESERVED_CHAR ";/?:@&=,$" for (i = 0; i < *args_len; i++) { s = args[i]; /* search-word MUST have at least one schar */ if (*s == '\0') goto parse_err; while (*s) { /* check if it's unreserved */ if (isalpha((unsigned char)*s) || isdigit((unsigned char)*s) || strchr(UNRESERVED_CHAR, *s)) { s++; continue; } /* check if it's escaped */ if (*s == '%') { if (s[1] == '\0' || s[2] == '\0') goto parse_err; if (!isxdigit((unsigned char)s[1]) || !isxdigit((unsigned char)s[2])) goto parse_err; s += 3; continue; } /* check if it's xreserved */ if (strchr(XRESERVED_CHAR, *s)) { s++; continue; } goto parse_err; } } /* decode percent encoding */ for (i = 0; i < *args_len; i++) { if (bozo_decode_url_percent(request, args[i])) goto parse_err; } /* allocate each arg separately */ for (i = 0; i < *args_len; i++) args[i] = bozostrdup(httpd, request, args[i]); free(str); return args; parse_err: free(str); free(args); *args_len = 0; return NULL; } void bozo_cgi_setbin(bozohttpd_t *httpd, const char *path) { httpd->cgibin = bozostrdup(httpd, NULL, path); debug((httpd, DEBUG_OBESE, "cgibin (cgi-bin directory) is %s", httpd->cgibin)); } /* help build up the environ pointer */ void bozo_setenv(bozohttpd_t *httpd, const char *env, const char *val, char **envp) { char *s1 = bozomalloc(httpd, strlen(env) + strlen(val) + 2); strcpy(s1, env); strcat(s1, "="); strcat(s1, val); debug((httpd, DEBUG_OBESE, "bozo_setenv: %s", s1)); *envp = s1; } /* * Checks if the request has asked for a cgi-bin. Should only be called if * cgibin is set. If it starts CGIBIN_PREFIX or has a ncontent handler, * process the cgi, otherwise just return. Returns 0 if it did not handle * the request. */ int bozo_process_cgi(bozo_httpreq_t *request) { bozohttpd_t *httpd = request->hr_httpd; char buf[BOZO_WRSZ]; char date[40]; bozoheaders_t *headp; const char *type, *clen, *info, *cgihandler; char *query, *s, *t, *path, *env, *command, *file, *url; char **envp, **curenvp, **argv, **search_string_argv = NULL; char **lastenvp; char *uri; size_t i, len, search_string_argc = 0; ssize_t rbytes; pid_t pid; int envpsize, ix, nph; int sv[2]; if (!httpd->cgibin && !httpd->process_cgi) return 0; #ifndef NO_USER_SUPPORT if (request->hr_user && !httpd->enable_cgi_users) return 0; #endif /* !NO_USER_SUPPORT */ if (request->hr_oldfile && strcmp(request->hr_oldfile, "/") != 0) uri = request->hr_oldfile; else uri = request->hr_file; if (uri[0] == '/') file = bozostrdup(httpd, request, uri); else bozoasprintf(httpd, &file, "/%s", uri); if (request->hr_query && strlen(request->hr_query)) query = bozostrdup(httpd, request, request->hr_query); else query = NULL; bozoasprintf(httpd, &url, "%s%s%s", file, query ? "?" : "", query ? query : ""); debug((httpd, DEBUG_NORMAL, "%s: url `%s'", __func__, url)); path = NULL; envp = NULL; cgihandler = NULL; command = NULL; info = NULL; len = strlen(url); if (bozo_auth_check(request, url + 1)) goto out; if (!httpd->cgibin || strncmp(url + 1, CGIBIN_PREFIX, CGIBIN_PREFIX_LEN) != 0) { cgihandler = content_cgihandler(httpd, request, file + 1); if (cgihandler == NULL) { debug((httpd, DEBUG_FAT, "%s: no handler, returning", __func__)); goto out; } if (len == 0 || file[len - 1] == '/') append_index_html(httpd, &file); debug((httpd, DEBUG_NORMAL, "%s: cgihandler `%s'", __func__, cgihandler)); } else if (len - 1 == CGIBIN_PREFIX_LEN) /* url is "/cgi-bin/" */ append_index_html(httpd, &file); /* RFC3875 sect. 4.4. - search-string support */ if (query != NULL) { search_string_argv = parse_search_string(request, query, &search_string_argc); } debug((httpd, DEBUG_NORMAL, "parse_search_string args no: %zu", search_string_argc)); for (i = 0; i < search_string_argc; i++) { debug((httpd, DEBUG_FAT, "search_string[%zu]: `%s'", i, search_string_argv[i])); } argv = bozomalloc(httpd, sizeof(*argv) * (3 + search_string_argc)); ix = 0; if (cgihandler) { command = file + 1; path = bozostrdup(httpd, request, cgihandler); } else { command = file + CGIBIN_PREFIX_LEN + 1; if ((s = strchr(command, '/')) != NULL) { info = bozostrdup(httpd, request, s); *s = '\0'; } path = bozomalloc(httpd, strlen(httpd->cgibin) + 1 + strlen(command) + 1); strcpy(path, httpd->cgibin); strcat(path, "/"); strcat(path, command); } argv[ix++] = path; /* copy search-string args */ for (i = 0; i < search_string_argc; i++) argv[ix++] = search_string_argv[i]; argv[ix++] = NULL; nph = strncmp(command, "nph-", 4) == 0; type = request->hr_content_type; clen = request->hr_content_length; envpsize = 13 + request->hr_nheaders + (info && *info ? 1 : 0) + (query && *query ? 1 : 0) + (type && *type ? 1 : 0) + (clen && *clen ? 1 : 0) + (request->hr_remotehost && *request->hr_remotehost ? 1 : 0) + (request->hr_remoteaddr && *request->hr_remoteaddr ? 1 : 0) + (cgihandler ? 1 : 0) + bozo_auth_cgi_count(request) + (request->hr_serverport && *request->hr_serverport ? 1 : 0); debug((httpd, DEBUG_FAT, "%s: path `%s', cmd `%s', info `%s', " "query `%s', nph `%d', envpsize `%d'", __func__, path, command, strornull(info), strornull(query), nph, envpsize)); envp = bozomalloc(httpd, sizeof(*envp) * envpsize); for (ix = 0; ix < envpsize; ix++) envp[ix] = NULL; curenvp = envp; lastenvp = envp + envpsize; SIMPLEQ_FOREACH(headp, &request->hr_headers, h_next) { const char *s2; env = bozomalloc(httpd, 6 + strlen(headp->h_header) + 1 + strlen(headp->h_value)); t = env; strcpy(t, "HTTP_"); t += strlen(t); for (s2 = headp->h_header; *s2; t++, s2++) if (islower((unsigned char)*s2)) *t = toupper((unsigned char)*s2); else if (*s2 == '-') *t = '_'; else *t = *s2; *t = '\0'; debug((httpd, DEBUG_OBESE, "setting header %s as %s = %s", headp->h_header, env, headp->h_value)); bozo_setenv(httpd, env, headp->h_value, curenvp++); free(env); } #ifndef _PATH_DEFPATH #define _PATH_DEFPATH "/usr/bin:/bin" #endif bozo_setenv(httpd, "PATH", _PATH_DEFPATH, curenvp++); bozo_setenv(httpd, "IFS", " \t\n", curenvp++); bozo_setenv(httpd, "SERVER_NAME", BOZOHOST(httpd,request), curenvp++); bozo_setenv(httpd, "GATEWAY_INTERFACE", "CGI/1.1", curenvp++); bozo_setenv(httpd, "SERVER_PROTOCOL", request->hr_proto, curenvp++); bozo_setenv(httpd, "REQUEST_METHOD", request->hr_methodstr, curenvp++); bozo_setenv(httpd, "SCRIPT_NAME", file, curenvp++); bozo_setenv(httpd, "SCRIPT_FILENAME", file + 1, curenvp++); bozo_setenv(httpd, "SERVER_SOFTWARE", httpd->server_software, curenvp++); bozo_setenv(httpd, "REQUEST_URI", uri, curenvp++); bozo_setenv(httpd, "DATE_GMT", bozo_http_date(date, sizeof(date)), curenvp++); /* RFC3875 section 4.1.7 says that QUERY_STRING MUST be defined. */ if (query && *query) bozo_setenv(httpd, "QUERY_STRING", query, curenvp++); else bozo_setenv(httpd, "QUERY_STRING", "", curenvp++); if (info && *info) bozo_setenv(httpd, "PATH_INFO", info, curenvp++); if (type && *type) bozo_setenv(httpd, "CONTENT_TYPE", type, curenvp++); if (clen && *clen) bozo_setenv(httpd, "CONTENT_LENGTH", clen, curenvp++); if (request->hr_serverport && *request->hr_serverport) bozo_setenv(httpd, "SERVER_PORT", request->hr_serverport, curenvp++); if (request->hr_remotehost && *request->hr_remotehost) bozo_setenv(httpd, "REMOTE_HOST", request->hr_remotehost, curenvp++); if (request->hr_remoteaddr && *request->hr_remoteaddr) bozo_setenv(httpd, "REMOTE_ADDR", request->hr_remoteaddr, curenvp++); /* * Apache does this when invoking content handlers, and PHP * 5.3 requires it as a "security" measure. */ if (cgihandler) bozo_setenv(httpd, "REDIRECT_STATUS", "200", curenvp++); bozo_auth_cgi_setenv(request, &curenvp); debug((httpd, DEBUG_FAT, "%s: going exec %s with args:", __func__, path)); for (i = 0; argv[i] != NULL; i++) { debug((httpd, DEBUG_FAT, "%s: argv[%zu] = `%s'", __func__, i, argv[i])); } if (socketpair(AF_UNIX, SOCK_STREAM, PF_UNSPEC, sv) == -1) bozoerr(httpd, 1, "child socketpair failed: %s", strerror(errno)); *curenvp = 0; assert(lastenvp > curenvp); /* * We create 2 procs: one to become the CGI, one read from * the CGI and output to the network, and this parent will * continue reading from the network and writing to the * CGI procsss. */ switch (fork()) { case -1: /* eep, failure */ bozoerr(httpd, 1, "child fork failed: %s", strerror(errno)); /*NOTREACHED*/ case 0: close(sv[0]); dup2(sv[1], STDIN_FILENO); dup2(sv[1], STDOUT_FILENO); close(2); close(sv[1]); closelog(); bozo_daemon_closefds(httpd); if (-1 == execve(path, argv, envp)) { int saveerrno = errno; bozo_http_error(httpd, 404, request, "Cannot execute CGI"); /* don't log easy to trigger events */ if (saveerrno != ENOENT && saveerrno != EISDIR && saveerrno != EACCES) bozoerr(httpd, 1, "child exec failed: %s: %s", path, strerror(saveerrno)); _exit(1); } /* NOT REACHED */ bozoerr(httpd, 1, "child execve returned?!"); } free(query); free(file); free(url); for (i = 0; i < search_string_argc; i++) free(search_string_argv[i]); free(search_string_argv); close(sv[1]); /* parent: read from stdin (bozo_read()) write to sv[0] */ /* child: read from sv[0] (bozo_write()) write to stdout */ pid = fork(); if (pid == -1) bozoerr(httpd, 1, "io child fork failed: %s", strerror(errno)); else if (pid == 0) { /* child reader/writer */ close(STDIN_FILENO); finish_cgi_output(httpd, request, sv[0], nph); /* if we do SSL, send a SSL_shutdown now */ bozo_ssl_shutdown(request->hr_httpd); /* if we're done output, our parent is useless... */ kill(getppid(), SIGKILL); debug((httpd, DEBUG_FAT, "done processing cgi output")); _exit(0); } close(STDOUT_FILENO); /* CGI programs should perform their own timeouts */ while ((rbytes = bozo_read(httpd, STDIN_FILENO, buf, sizeof buf)) > 0) { ssize_t wbytes; while (rbytes) { wbytes = write(sv[0], buf, (size_t)rbytes); if (wbytes > 0) rbytes -= wbytes; else bozoerr(httpd, 1, "write failed: %s", strerror(errno)); } } debug((httpd, DEBUG_FAT, "done processing cgi input")); exit(0); out: for (i = 0; i < search_string_argc; i++) free(search_string_argv[i]); free(search_string_argv); free(query); free(file); free(url); return 0; } #ifndef NO_DYNAMIC_CONTENT /* cgi maps are simple ".postfix /path/to/prog" */ void bozo_add_content_map_cgi(bozohttpd_t *httpd, const char *arg, const char *cgihandler) { bozo_content_map_t *map; debug((httpd, DEBUG_NORMAL, "bozo_add_content_map_cgi: name %s cgi %s", arg, cgihandler)); httpd->process_cgi = 1; map = bozo_get_content_map(httpd, arg); map->name = arg; map->type = map->encoding = map->encoding11 = NULL; map->cgihandler = cgihandler; } #endif /* NO_DYNAMIC_CONTENT */ #endif /* NO_CGIBIN_SUPPORT */ src/libexec/httpd/content-bozo.c010064400011300000175000000311321444016225700171250ustar00srcmastrnetbsd/* $NetBSD: content-bozo.c,v 1.22 2023/06/07 20:12:31 mrg Exp $ */ /* $eterna: content-bozo.c,v 1.17 2011/11/18 09:21:15 mrg Exp $ */ /* * Copyright (c) 1997-2023 Matthew R. Green * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer and * dedication in the documentation and/or other materials provided * with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * */ /* this code implements content-type handling for bozohttpd */ #include #include #include #include "bozohttpd.h" /* * this map and the functions below map between filenames and the * content type and content encoding definitions. this should become * a configuration file, perhaps like apache's mime.types (but that * has less info per-entry). */ static bozo_content_map_t static_content_map[] = { { ".html", "text/html", "", "", NULL }, { ".htm", "text/html", "", "", NULL }, { ".gif", "image/gif", "", "", NULL }, { ".jpeg", "image/jpeg", "", "", NULL }, { ".jpg", "image/jpeg", "", "", NULL }, { ".jpe", "image/jpeg", "", "", NULL }, { ".png", "image/png", "", "", NULL }, { ".mp3", "audio/mpeg", "", "", NULL }, { ".css", "text/css", "", "", NULL }, { ".txt", "text/plain", "", "", NULL }, { ".swf", "application/x-shockwave-flash","", "", NULL }, { ".dcr", "application/x-director", "", "", NULL }, { ".pac", "application/x-ns-proxy-autoconfig", "", "", NULL }, { ".pa", "application/x-ns-proxy-autoconfig", "", "", NULL }, { ".tar", "multipart/x-tar", "", "", NULL }, { ".gtar", "application/x-gtar-compressed", "", "", NULL }, { ".tar.gz", "application/x-gtar-compressed", "", "", NULL }, { ".tar.bz2", "application/x-gtar-compressed", "", "", NULL }, { ".tar.xz", "application/x-gtar-compressed", "", "", NULL }, { ".tar.lz", "application/x-gtar-compressed", "", "", NULL }, { ".tar.zst", "application/x-gtar-compressed", "", "", NULL }, { ".tgz", "application/x-gtar-compressed", "", "", NULL }, { ".tbz2", "application/x-gtar-compressed", "", "", NULL }, { ".txz", "application/x-gtar-compressed", "", "", NULL }, { ".tlz", "application/x-gtar-compressed", "", "", NULL }, { ".tar.z", "application/x-gtar-compressed", "", "", NULL }, { ".tar.Z", "application/x-gtar-compressed", "", "", NULL }, { ".taz", "application/x-gtar-compressed", "", "", NULL }, { ".Z", "application/x-compress", "", "", NULL }, { ".gz", "application/x-gzip", "", "", NULL }, { ".z", "unknown", "", "", NULL }, { ".bz2", "application/x-bzip2", "", "", NULL }, { ".ogg", "application/x-ogg", "", "", NULL }, { ".mkv", "video/x-matroska", "", "", NULL }, { ".xbel", "text/xml", "", "", NULL }, { ".xml", "text/xml", "", "", NULL }, { ".xsl", "text/xml", "", "", NULL }, { ".hqx", "application/mac-binhex40", "", "", NULL }, { ".cpt", "application/mac-compactpro", "", "", NULL }, { ".doc", "application/msword", "", "", NULL }, { ".bin", "application/octet-stream", "", "", NULL }, { ".dms", "application/octet-stream", "", "", NULL }, { ".lha", "application/octet-stream", "", "", NULL }, { ".lzh", "application/octet-stream", "", "", NULL }, { ".exe", "application/octet-stream", "", "", NULL }, { ".class", "application/octet-stream", "", "", NULL }, { ".oda", "application/oda", "", "", NULL }, { ".pdf", "application/pdf", "", "", NULL }, { ".ai", "application/postscript", "", "", NULL }, { ".eps", "application/postscript", "", "", NULL }, { ".ps", "application/postscript", "", "", NULL }, { ".ppt", "application/powerpoint", "", "", NULL }, { ".rtf", "application/rtf", "", "", NULL }, { ".bcpio", "application/x-bcpio", "", "", NULL }, { ".torrent", "application/x-bittorrent", "", "", NULL }, { ".vcd", "application/x-cdlink", "", "", NULL }, { ".cpio", "application/x-cpio", "", "", NULL }, { ".csh", "application/x-csh", "", "", NULL }, { ".dir", "application/x-director", "", "", NULL }, { ".dxr", "application/x-director", "", "", NULL }, { ".dvi", "application/x-dvi", "", "", NULL }, { ".hdf", "application/x-hdf", "", "", NULL }, { ".cgi", "application/x-httpd-cgi", "", "", NULL }, { ".skp", "application/x-koan", "", "", NULL }, { ".skd", "application/x-koan", "", "", NULL }, { ".skt", "application/x-koan", "", "", NULL }, { ".skm", "application/x-koan", "", "", NULL }, { ".latex", "application/x-latex", "", "", NULL }, { ".mif", "application/x-mif", "", "", NULL }, { ".nc", "application/x-netcdf", "", "", NULL }, { ".cdf", "application/x-netcdf", "", "", NULL }, { ".patch", "application/x-patch", "", "", NULL }, { ".sh", "application/x-sh", "", "", NULL }, { ".shar", "application/x-shar", "", "", NULL }, { ".sit", "application/x-stuffit", "", "", NULL }, { ".sv4cpio", "application/x-sv4cpio", "", "", NULL }, { ".sv4crc", "application/x-sv4crc", "", "", NULL }, { ".tar", "application/x-tar", "", "", NULL }, { ".tcl", "application/x-tcl", "", "", NULL }, { ".tex", "application/x-tex", "", "", NULL }, { ".texinfo", "application/x-texinfo", "", "", NULL }, { ".texi", "application/x-texinfo", "", "", NULL }, { ".t", "application/x-troff", "", "", NULL }, { ".tr", "application/x-troff", "", "", NULL }, { ".roff", "application/x-troff", "", "", NULL }, { ".man", "application/x-troff-man", "", "", NULL }, { ".me", "application/x-troff-me", "", "", NULL }, { ".ms", "application/x-troff-ms", "", "", NULL }, { ".ustar", "application/x-ustar", "", "", NULL }, { ".src", "application/x-wais-source", "", "", NULL }, { ".zip", "application/zip", "", "", NULL }, { ".zipx", "application/zip", "", "", NULL }, { ".xz", "application/x-xz", "", "", NULL }, { ".zst", "application/x-zstd", "", "", NULL }, { ".sz", "application/x-snappy-framed", "", "", NULL }, { ".lz", "application/x-lzip", "", "", NULL }, { ".lzma", "application/x-lzma", "", "", NULL }, { ".lzo", "application/x-lzop", "", "", NULL }, { ".7z", "application/x-7z-compressed", "", "", NULL }, { ".lzo", "application/x-lzop", "", "", NULL }, { ".cab", "application/vnd.ms-cab-compressed", "", "", NULL }, { ".dmg", "application/x-apple-diskimage","", "", NULL }, { ".jar", "application/java-archive", "", "", NULL }, { ".rar", "application/x-rar-compressed", "", "", NULL }, { ".au", "audio/basic", "", "", NULL }, { ".snd", "audio/basic", "", "", NULL }, { ".mpga", "audio/mpeg", "", "", NULL }, { ".mp2", "audio/mpeg", "", "", NULL }, { ".m4a", "audio/mp4", "", "", NULL }, { ".aif", "audio/x-aiff", "", "", NULL }, { ".aiff", "audio/x-aiff", "", "", NULL }, { ".aifc", "audio/x-aiff", "", "", NULL }, { ".ram", "audio/x-pn-realaudio", "", "", NULL }, { ".rpm", "audio/x-pn-realaudio-plugin", "", "", NULL }, { ".ra", "audio/x-realaudio", "", "", NULL }, { ".wav", "audio/x-wav", "", "", NULL }, { ".pdb", "chemical/x-pdb", "", "", NULL }, { ".xyz", "chemical/x-pdb", "", "", NULL }, { ".ief", "image/ief", "", "", NULL }, { ".tiff", "image/tiff", "", "", NULL }, { ".tif", "image/tiff", "", "", NULL }, { ".ras", "image/x-cmu-raster", "", "", NULL }, { ".pnm", "image/x-portable-anymap", "", "", NULL }, { ".pbm", "image/x-portable-bitmap", "", "", NULL }, { ".pgm", "image/x-portable-graymap", "", "", NULL }, { ".ppm", "image/x-portable-pixmap", "", "", NULL }, { ".rgb", "image/x-rgb", "", "", NULL }, { ".xbm", "image/x-xbitmap", "", "", NULL }, { ".xpm", "image/x-xpixmap", "", "", NULL }, { ".xwd", "image/x-xwindowdump", "", "", NULL }, { ".rtx", "text/richtext", "", "", NULL }, { ".tsv", "text/tab-separated-values", "", "", NULL }, { ".etx", "text/x-setext", "", "", NULL }, { ".sgml", "text/x-sgml", "", "", NULL }, { ".sgm", "text/x-sgml", "", "", NULL }, { ".mpeg", "video/mpeg", "", "", NULL }, { ".mpg", "video/mpeg", "", "", NULL }, { ".mpe", "video/mpeg", "", "", NULL }, { ".ts", "video/mpeg", "", "", NULL }, { ".vob", "video/mpeg", "", "", NULL }, { ".mp4", "video/mp4", "", "", NULL }, { ".m4v", "video/mp4", "", "", NULL }, { ".qt", "video/quicktime", "", "", NULL }, { ".mov", "video/quicktime", "", "", NULL }, { ".avi", "video/x-msvideo", "", "", NULL }, { ".movie", "video/x-sgi-movie", "", "", NULL }, { ".ice", "x-conference/x-cooltalk", "", "", NULL }, { ".wrl", "x-world/x-vrml", "", "", NULL }, { ".vrml", "x-world/x-vrml", "", "", NULL }, { ".svg", "image/svg+xml", "", "", NULL }, { ".mobi", "application/x-mobipocket-ebook", "", "", NULL }, { ".iso", "application/octet-stream", "", "", NULL }, { NULL, NULL, NULL, NULL, NULL } }; static bozo_content_map_t * search_map(bozo_content_map_t *map, const char *name, size_t len) { for ( ; map && map->name; map++) { const size_t namelen = strlen(map->name); if (namelen < len && strcasecmp(map->name, name + (len - namelen)) == 0) return map; } return NULL; } /* match a suffix on a file - dynamiconly means no static content search */ bozo_content_map_t * bozo_match_content_map(bozohttpd_t *httpd, const char *name, const int dynamiconly) { bozo_content_map_t *map; size_t len; len = strlen(name); map = search_map(httpd->dynamic_content_map, name, len); if (map == NULL && !dynamiconly) map = search_map(static_content_map, name, len); return map; } /* * given the file name, return a valid Content-Type: value. */ const char * bozo_content_type(bozo_httpreq_t *request, const char *file) { bozohttpd_t *httpd = request->hr_httpd; bozo_content_map_t *map; map = bozo_match_content_map(httpd, file, 0); if (map) return map->type; return httpd->consts.text_plain; } /* * given the file name, return a valid Content-Encoding: value. */ const char * bozo_content_encoding(bozo_httpreq_t *request, const char *file) { bozohttpd_t *httpd = request->hr_httpd; bozo_content_map_t *map; map = bozo_match_content_map(httpd, file, 0); if (map) return (request->hr_proto == httpd->consts.http_11) ? map->encoding11 : map->encoding; return NULL; } #ifndef NO_DYNAMIC_CONTENT bozo_content_map_t * bozo_get_content_map(bozohttpd_t *httpd, const char *name) { bozo_content_map_t *map; if ((map = bozo_match_content_map(httpd, name, 1)) != NULL) return map; httpd->dynamic_content_map_size++; httpd->dynamic_content_map = bozorealloc(httpd, httpd->dynamic_content_map, (httpd->dynamic_content_map_size + 1) * sizeof *map); if (httpd->dynamic_content_map == NULL) bozoerr(httpd, 1, "out of memory allocating content map"); map = &httpd->dynamic_content_map[httpd->dynamic_content_map_size]; map->name = map->type = map->encoding = map->encoding11 = map->cgihandler = NULL; map--; return map; } /* * mime content maps look like: * ".name type encoding encoding11" * where any of type, encoding or encoding11 a dash "-" means "". * eg the .gtar, .tar.Z from above could be written like: * ".gtar multipart/x-gtar - -" * ".tar.Z multipart/x-tar x-compress compress" * or * ".gtar multipart/x-gtar" * ".tar.Z multipart/x-tar x-compress compress" * NOTE: we destroy 'arg' */ void bozo_add_content_map_mime(bozohttpd_t *httpd, const char *cmap0, const char *cmap1, const char *cmap2, const char *cmap3) { bozo_content_map_t *map; debug((httpd, DEBUG_FAT, "add_content_map: name %s type %s enc %s enc11 %s ", cmap0, cmap1, cmap2, cmap3)); map = bozo_get_content_map(httpd, cmap0); #define CHECKMAP(s) (!s || ((s)[0] == '-' && (s)[1] == '\0') ? "" : (s)) map->name = CHECKMAP(cmap0); map->type = CHECKMAP(cmap1); map->encoding = CHECKMAP(cmap2); map->encoding11 = CHECKMAP(cmap3); #undef CHECKMAP map->cgihandler = NULL; } #endif /* NO_DYNAMIC_CONTENT */ src/libexec/httpd/daemon-bozo.c010064400011300000175000000202261517752563000167260ustar00srcmastrnetbsd/* $NetBSD: daemon-bozo.c,v 1.22.10.1 2026/05/07 15:51:07 martin Exp $ */ /* $eterna: daemon-bozo.c,v 1.24 2011/11/18 09:21:15 mrg Exp $ */ /* * Copyright (c) 1997-2019 Matthew R. Green * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer and * dedication in the documentation and/or other materials provided * with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * */ /* this code implements daemon mode for bozohttpd */ #ifndef NO_DAEMON_MODE #include #include #include #include #include #include #include #include #include #include #include #include #include "bozohttpd.h" static void sigchild(int); /* SIGCHLD handler */ #ifndef POLLRDNORM #define POLLRDNORM 0 #endif #ifndef POLLRDBAND #define POLLRDBAND 0 #endif #ifndef INFTIM #define INFTIM -1 #endif #ifndef USE_ARG #define USE_ARG(x) /*LINTED*/(void)&(x) #endif static const char* pidfile_path = NULL; static pid_t pidfile_pid = 0; static void sigchild(int signo) { USE_ARG(signo); while (waitpid(-1, NULL, WNOHANG) > 0) /* nothing */; } /* Signal handler to exit in a controlled manner. This ensures that * any atexit(3) handlers are properly executed. */ BOZO_DEAD static void controlled_exit(int signo) { USE_ARG(signo); exit(EXIT_SUCCESS); } static void remove_pidfile(void) { if (pidfile_path != NULL && pidfile_pid == getpid()) { (void)unlink(pidfile_path); pidfile_path = NULL; } } static void create_pidfile(bozohttpd_t *httpd) { FILE *file; assert(pidfile_path == NULL); if (httpd->pidfile == NULL) return; if (atexit(remove_pidfile) == -1) bozoerr(httpd, 1, "Failed to install pidfile handler"); if ((file = fopen(httpd->pidfile, "w")) == NULL) bozoerr(httpd, 1, "Failed to create pidfile '%s'", httpd->pidfile); (void)fprintf(file, "%d\n", getpid()); (void)fclose(file); pidfile_path = httpd->pidfile; pidfile_pid = getpid(); debug((httpd, DEBUG_FAT, "Created pid file '%s' for pid %d", pidfile_path, pidfile_pid)); } void bozo_daemon_init(bozohttpd_t *httpd) { struct addrinfo h, *r, *r0; const char *portnum; int e, i, on = 1; if (!httpd->background && !httpd->foreground) return; if (!httpd->background) httpd->background = 1; portnum = httpd->bindport ? httpd->bindport : httpd->defbindport; memset(&h, 0, sizeof(h)); h.ai_family = PF_UNSPEC; h.ai_socktype = SOCK_STREAM; h.ai_flags = AI_PASSIVE; e = getaddrinfo(httpd->bindaddress, portnum, &h, &r0); if (e) bozoerr(httpd, 1, "getaddrinfo([%s]:%s): %s", httpd->bindaddress ? httpd->bindaddress : "*", portnum, gai_strerror(e)); for (r = r0; r != NULL; r = r->ai_next) httpd->nsock++; httpd->sock = bozomalloc(httpd, httpd->nsock * sizeof(*httpd->sock)); httpd->fds = bozomalloc(httpd, httpd->nsock * sizeof(*httpd->fds)); for (i = 0, r = r0; r != NULL; r = r->ai_next) { httpd->sock[i] = socket(r->ai_family, SOCK_STREAM, 0); if (httpd->sock[i] == -1) continue; if (setsockopt(httpd->sock[i], SOL_SOCKET, SO_REUSEADDR, &on, sizeof(on)) == -1) bozowarn(httpd, "setsockopt SO_REUSEADDR: %s", strerror(errno)); if (bind(httpd->sock[i], r->ai_addr, r->ai_addrlen) == -1) continue; if (listen(httpd->sock[i], SOMAXCONN) == -1) continue; httpd->fds[i].events = POLLIN | POLLPRI | POLLRDNORM | POLLRDBAND | POLLERR; httpd->fds[i].fd = httpd->sock[i]; i++; } if (i == 0) bozoerr(httpd, 1, "could not find any addresses to bind"); httpd->nsock = i; freeaddrinfo(r0); if (httpd->foreground == 0) daemon(1, 0); create_pidfile(httpd); bozowarn(httpd, "started in daemon mode as `%s' port `%s' root `%s'", httpd->virthostname, portnum, httpd->slashdir); signal(SIGHUP, controlled_exit); signal(SIGINT, controlled_exit); signal(SIGTERM, controlled_exit); signal(SIGCHLD, sigchild); } void bozo_daemon_closefds(bozohttpd_t *httpd) { int i; for (i = 0; i < httpd->nsock; i++) close(httpd->sock[i]); } static void daemon_runchild(bozohttpd_t *httpd, int fd) { httpd->request_times++; /* setup stdin/stdout/stderr */ dup2(fd, 0); dup2(fd, 1); /*dup2(fd, 2);*/ close(fd); } static int daemon_poll_err(bozohttpd_t *httpd, int idx) { if ((httpd->fds[idx].revents & (POLLNVAL|POLLERR|POLLHUP)) == 0) return 0; bozowarn(httpd, "poll on fd %d pid %d revents %d: %s", httpd->fds[idx].fd, getpid(), httpd->fds[idx].revents, strerror(errno)); bozowarn(httpd, "nsock = %d", httpd->nsock); close(httpd->sock[idx]); httpd->nsock--; bozowarn(httpd, "nsock now = %d", httpd->nsock); /* no sockets left */ if (httpd->nsock == 0) exit(0); /* last socket closed is the easy case */ if (httpd->nsock != idx) { memmove(&httpd->fds[idx], &httpd->fds[idx+1], (httpd->nsock - idx) * sizeof(*httpd->fds)); memmove(&httpd->sock[idx], &httpd->sock[idx+1], (httpd->nsock - idx) * sizeof(*httpd->sock)); } return 1; } /* * the parent never returns from this function, only children that * are ready to run... XXXMRG - still true in fork-lesser bozo? */ int bozo_daemon_fork(bozohttpd_t *httpd) { int i; debug((httpd, DEBUG_FAT, "%s: pid %u request_times %d", __func__, getpid(), httpd->request_times)); /* if we've handled 5 files, exit and let someone else work */ if (httpd->request_times > 5 || (httpd->background == 2 && httpd->request_times > 0)) _exit(0); #if 1 if (httpd->request_times > 0) _exit(0); #endif while (httpd->background) { struct sockaddr_storage ss; socklen_t slen; int fd; if (httpd->nsock == 0) exit(0); /* * wait for a connection, then fork() and return NULL in * the parent, who will come back here waiting for another * connection. read the request in in the child, and return * it, for processing. */ again: if (poll(httpd->fds, (unsigned)httpd->nsock, INFTIM) == -1) { /* fail on programmer errors */ if (errno == EFAULT || errno == EINVAL) bozoerr(httpd, 1, "poll: %s", strerror(errno)); /* sleep on some temporary kernel failures */ if (errno == ENOMEM || errno == EAGAIN) sleep(1); goto again; } for (i = 0; i < httpd->nsock; i++) { if (daemon_poll_err(httpd, i)) break; if (httpd->fds[i].revents == 0) continue; slen = sizeof(ss); fd = accept(httpd->fds[i].fd, (struct sockaddr *)(void *)&ss, &slen); if (fd == -1) { if (errno == EFAULT || errno == EINVAL) bozoerr(httpd, 1, "accept: %s", strerror(errno)); if (errno == ENOMEM || errno == EAGAIN) sleep(1); continue; } #if 0 /* * This code doesn't work. It interacts very poorly * with ~user translation and needs to be fixed. */ if (httpd->request_times > 0) { daemon_runchild(httpd, fd); return 0; } #endif switch (fork()) { case -1: /* eep, failure */ bozowarn(httpd, "fork() failed, sleeping for " "10 seconds: %s", strerror(errno)); close(fd); sleep(10); break; case 0: /* child */ daemon_runchild(httpd, fd); return 0; default: /* parent */ close(fd); break; } } } return 0; } #endif /* NO_DAEMON_MODE */ src/libexec/httpd/dir-index-bozo.c010064400011300000175000000150421461300704000173260ustar00srcmastrnetbsd/* $NetBSD: dir-index-bozo.c,v 1.37 2024/04/26 20:27:12 maya Exp $ */ /* $eterna: dir-index-bozo.c,v 1.20 2011/11/18 09:21:15 mrg Exp $ */ /* * Copyright (c) 1997-2022 Matthew R. Green * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer and * dedication in the documentation and/or other materials provided * with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * */ /* this code implements directory index generation for bozohttpd */ #ifndef NO_DIRINDEX_SUPPORT #include #include #include #include #include #include #include #include #include #include "bozohttpd.h" /* * output a directory index. return 1 if it actually did something.. */ int bozo_dir_index(bozo_httpreq_t *request, const char *dirpath, int isindex) { bozohttpd_t *httpd = request->hr_httpd; struct stat sb; struct dirent **de, **deo; DIR *dp; char buf[MAXPATHLEN]; char *file = NULL, *printname = NULL, *p; int k, j, fd; ssize_t rlen; if (!isindex || !httpd->dir_indexing) return 0; if (strlen(dirpath) <= strlen(httpd->index_html)) dirpath = "."; else { file = bozostrdup(httpd, request, dirpath); file[strlen(file) - strlen(httpd->index_html)] = '\0'; dirpath = file; } debug((httpd, DEBUG_FAT, "bozo_dir_index: dirpath '%s'", dirpath)); if (stat(dirpath, &sb) < 0 || (dp = opendir(dirpath)) == NULL) { if (errno == EPERM) bozo_http_error(httpd, 403, request, "no permission to open directory"); else if (errno == ENOENT) bozo_http_error(httpd, 404, request, "no file"); else bozo_http_error(httpd, 500, request, "open directory"); goto done; /* NOTREACHED */ } bozo_printf(httpd, "%s 200 OK\r\n", request->hr_proto); if (request->hr_proto != httpd->consts.http_09) { bozo_print_header(request, NULL, "text/html", ""); bozo_printf(httpd, "\r\n"); } bozo_flush(httpd, stdout); if (request->hr_method == HTTP_HEAD) { closedir(dp); goto done; } #ifndef NO_USER_SUPPORT if (request->hr_user) { bozoasprintf(httpd, &printname, "~%s/%s", request->hr_user, request->hr_file); } else printname = bozostrdup(httpd, request, request->hr_file); #else printname = bozostrdup(httpd, request, request->hr_file); #endif /* !NO_USER_SUPPORT */ if ((p = strstr(printname, httpd->index_html)) != NULL) { if (strcmp(printname, httpd->index_html) == 0) strcpy(printname, "/"); /* is ``slashdir'' */ else *p = '\0'; /* strip unwanted ``index_html'' */ } if ((p = bozo_escape_html(httpd, printname)) != NULL) { free(printname); printname = p; } bozo_printf(httpd, "\r\n" "\r\n" "\r\n" "\r\n"); bozo_printf(httpd, "Index of %s\r\n", printname); bozo_printf(httpd, "

Index of %s

\r\n", printname); bozo_printf(httpd, "\r\n\r\n" "\r\n"); for (j = k = scandir(dirpath, &de, NULL, alphasort), deo = de; j-- > 0; de++) { int nostat = 0; char *name = (*de)->d_name; char *urlname, *htmlname; if (strcmp(name, ".") == 0 || (strcmp(name, "..") != 0 && httpd->hide_dots && name[0] == '.')) continue; if (bozo_check_special_files(request, name, false)) continue; snprintf(buf, sizeof buf, "%s/%s", dirpath, name); if (stat(buf, &sb)) nostat = 1; urlname = bozo_escape_rfc3986(httpd, name, 0); htmlname = bozo_escape_html(httpd, name); if (htmlname == NULL) htmlname = name; bozo_printf(httpd, "
NameLast modifiedSize\r\n" "
"); if (strcmp(name, "..") == 0) { bozo_printf(httpd, ""); bozo_printf(httpd, "Parent Directory"); } else if (!nostat && S_ISDIR(sb.st_mode)) { bozo_printf(httpd, "", urlname); bozo_printf(httpd, "%s/", htmlname); } else if (strchr(name, ':') != NULL) { /* RFC 3986 4.2 */ bozo_printf(httpd, "", urlname); bozo_printf(httpd, "%s", htmlname); } else { bozo_printf(httpd, "", urlname); bozo_printf(httpd, "%s", htmlname); } if (htmlname != name) free(htmlname); bozo_printf(httpd, ""); if (nostat) bozo_printf(httpd, "??\r\n"); else { unsigned long long len; strftime(buf, sizeof buf, "%d-%b-%Y %R", gmtime(&sb.st_mtime)); bozo_printf(httpd, "%s", buf); len = ((unsigned long long)sb.st_size + 1023) / 1024; bozo_printf(httpd, "%llukB", len); } bozo_printf(httpd, "\r\n"); } closedir(dp); while (k--) free(deo[k]); free(deo); bozo_printf(httpd, "
\r\n"); if (httpd->dir_readme != NULL) { if (httpd->dir_readme[0] == '/') snprintf(buf, sizeof buf, "%s", httpd->dir_readme); else snprintf(buf, sizeof buf, "%s/%s", dirpath, httpd->dir_readme); fd = open(buf, O_RDONLY); if (fd != -1) { bozo_flush(httpd, stdout); do { rlen = read(fd, buf, sizeof buf); if (rlen <= 0) break; bozo_write(httpd, STDOUT_FILENO, buf, rlen); } while (1); close(fd); } } bozo_printf(httpd, "\r\n\r\n"); bozo_flush(httpd, stdout); done: free(file); free(printname); return 1; } #endif /* NO_DIRINDEX_SUPPORT */ src/libexec/httpd/lua-bozo.c010064400011300000175000000255201517752563000162460ustar00srcmastrnetbsd/* $NetBSD: lua-bozo.c,v 1.15.24.1 2026/05/07 15:51:07 martin Exp $ */ /* * Copyright (c) 2013 Marc Balmer * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer and * dedication in the documentation and/or other materials provided * with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * */ /* this code implements dynamic content generation using Lua for bozohttpd */ #ifndef NO_LUA_SUPPORT #include #include #include #include #include #include #include #include "bozohttpd.h" /* Lua binding for bozohttp */ #if LUA_VERSION_NUM < 502 #define LUA_HTTPDLIBNAME "httpd" #endif #define FORM "application/x-www-form-urlencoded" static bozohttpd_t * httpd_instance(lua_State *L) { bozohttpd_t *httpd; lua_pushstring(L, "bozohttpd"); lua_gettable(L, LUA_REGISTRYINDEX); httpd = lua_touserdata(L, -1); lua_pop(L, 1); return httpd; } static int lua_flush(lua_State *L) { bozohttpd_t *httpd = httpd_instance(L); bozo_flush(httpd, stdout); return 0; } static int lua_print(lua_State *L) { bozohttpd_t *httpd = httpd_instance(L); bozo_printf(httpd, "%s\r\n", lua_tostring(L, 1)); return 0; } static int lua_read(lua_State *L) { bozohttpd_t *httpd = httpd_instance(L); luaL_Buffer lbuf; char *data; lua_Integer len; ssize_t n; len = luaL_checkinteger(L, 1); data = luaL_buffinitsize(L, &lbuf, (size_t)len); if ((n = bozo_read(httpd, STDIN_FILENO, data, len)) >= 0) { luaL_pushresultsize(&lbuf, n); return 1; } else { lua_pushnil(L); lua_pushstring(L, "bozo_read() call failed"); return 2; } } static int lua_register_handler(lua_State *L) { bozohttpd_t *httpd = httpd_instance(L); lua_state_map_t *map; lua_handler_t *handler; const char *name; int ref; lua_pushstring(L, "lua_state_map"); lua_gettable(L, LUA_REGISTRYINDEX); map = lua_touserdata(L, -1); lua_pop(L, 1); name = luaL_checkstring(L, 1); luaL_checktype(L, 2, LUA_TFUNCTION); lua_pushvalue(L, 2); ref = luaL_ref(L, LUA_REGISTRYINDEX); handler = bozomalloc(httpd, sizeof(lua_handler_t)); handler->name = bozostrdup(httpd, NULL, name); handler->ref = ref; SIMPLEQ_INSERT_TAIL(&map->handlers, handler, h_next); httpd->process_lua = 1; return 0; } static int lua_write(lua_State *L) { bozohttpd_t *httpd = httpd_instance(L); const char *data; size_t len; ssize_t n; data = luaL_checklstring(L, 1, &len); if ((n = bozo_write(httpd, STDIN_FILENO, data, len)) >= 0) { lua_pushinteger(L, n); return 1; } else { lua_pushnil(L); lua_pushstring(L, "bozo_write() call failed"); return 2; } } static int luaopen_httpd(lua_State *L) { static struct luaL_Reg functions[] = { { "flush", lua_flush }, { "print", lua_print }, { "read", lua_read }, { "register_handler", lua_register_handler }, { "write", lua_write }, { NULL, NULL } }; #if LUA_VERSION_NUM >= 502 luaL_newlib(L, functions); #else luaL_register(L, LUA_HTTPDLIBNAME, functions); #endif lua_pushstring(L, "httpd 1.0.0"); lua_setfield(L, -2, "_VERSION"); return 1; } #if LUA_VERSION_NUM < 502 static void lua_openlib(lua_State *L, const char *name, lua_CFunction fn) { lua_pushcfunction(L, fn); lua_pushstring(L, name); lua_call(L, 1, 0); } #endif /* bozohttpd integration */ void bozo_add_lua_map(bozohttpd_t *httpd, const char *prefix, const char *script) { lua_state_map_t *map; map = bozomalloc(httpd, sizeof(lua_state_map_t)); map->prefix = bozostrdup(httpd, NULL, prefix); if (*script == '/') map->script = bozostrdup(httpd, NULL, script); else { char cwd[MAXPATHLEN], *path; getcwd(cwd, sizeof(cwd) - 1); bozoasprintf(httpd, &path, "%s/%s", cwd, script); map->script = path; } map->L = luaL_newstate(); if (map->L == NULL) bozoerr(httpd, 1, "can't create Lua state"); SIMPLEQ_INIT(&map->handlers); #if LUA_VERSION_NUM >= 502 luaL_openlibs(map->L); lua_getglobal(map->L, "package"); lua_getfield(map->L, -1, "preload"); lua_pushcfunction(map->L, luaopen_httpd); lua_setfield(map->L, -2, "httpd"); lua_pop(map->L, 2); #else lua_openlib(map->L, "", luaopen_base); lua_openlib(map->L, LUA_LOADLIBNAME, luaopen_package); lua_openlib(map->L, LUA_TABLIBNAME, luaopen_table); lua_openlib(map->L, LUA_STRLIBNAME, luaopen_string); lua_openlib(map->L, LUA_MATHLIBNAME, luaopen_math); lua_openlib(map->L, LUA_OSLIBNAME, luaopen_os); lua_openlib(map->L, LUA_IOLIBNAME, luaopen_io); lua_openlib(map->L, LUA_HTTPDLIBNAME, luaopen_httpd); #endif lua_pushstring(map->L, "lua_state_map"); lua_pushlightuserdata(map->L, map); lua_settable(map->L, LUA_REGISTRYINDEX); lua_pushstring(map->L, "bozohttpd"); lua_pushlightuserdata(map->L, httpd); lua_settable(map->L, LUA_REGISTRYINDEX); if (luaL_loadfile(map->L, script)) bozoerr(httpd, 1, "failed to load script %s: %s", script, lua_tostring(map->L, -1)); if (lua_pcall(map->L, 0, 0, 0)) bozoerr(httpd, 1, "failed to execute script %s: %s", script, lua_tostring(map->L, -1)); SIMPLEQ_INSERT_TAIL(&httpd->lua_states, map, s_next); } static void lua_env(lua_State *L, const char *name, const char *value) { lua_pushstring(L, value); lua_setfield(L, -2, name); } /* decode query string */ static void lua_url_decode(lua_State *L, char *s) { char *v, *p, *val, *q; char buf[3]; int c; v = strchr(s, '='); if (v == NULL) return; *v++ = '\0'; val = malloc(strlen(v) + 1); if (val == NULL) return; for (p = v, q = val; *p; p++) { switch (*p) { case '%': if (*(p + 1) == '\0' || *(p + 2) == '\0') { free(val); return; } buf[0] = *++p; buf[1] = *++p; buf[2] = '\0'; sscanf(buf, "%2x", &c); *q++ = (char)c; break; case '+': *q++ = ' '; break; default: *q++ = *p; } } *q = '\0'; lua_pushstring(L, val); lua_setfield(L, -2, s); free(val); } static void lua_decode_query(lua_State *L, char *query) { char *s; s = strtok(query, "&"); while (s) { lua_url_decode(L, s); s = strtok(NULL, "&"); } } int bozo_process_lua(bozo_httpreq_t *request) { bozohttpd_t *httpd = request->hr_httpd; lua_state_map_t *map; lua_handler_t *hndlr; int n, ret, length; char date[40]; bozoheaders_t *headp; char *s, *query, *uri, *file, *command, *info, *content; const char *type, *clen; char *prefix, *handler, *p; int rv = 0; if (!httpd->process_lua) return 0; info = NULL; query = NULL; prefix = NULL; uri = request->hr_oldfile ? request->hr_oldfile : request->hr_file; if (*uri == '/') { file = bozostrdup(httpd, request, uri); if (file == NULL) goto out; prefix = bozostrdup(httpd, request, &uri[1]); } else { if (asprintf(&file, "/%s", uri) < 0) goto out; prefix = bozostrdup(httpd, request, uri); } if (prefix == NULL) goto out; if (request->hr_query && request->hr_query[0]) query = bozostrdup(httpd, request, request->hr_query); p = strchr(prefix, '/'); if (p == NULL) goto out; *p++ = '\0'; handler = p; if (!*handler) goto out; p = strchr(handler, '/'); if (p != NULL) *p++ = '\0'; command = file + 1; if ((s = strchr(command, '/')) != NULL) { info = bozostrdup(httpd, request, s); *s = '\0'; } type = request->hr_content_type; clen = request->hr_content_length; SIMPLEQ_FOREACH(map, &httpd->lua_states, s_next) { if (strcmp(map->prefix, prefix)) continue; SIMPLEQ_FOREACH(hndlr, &map->handlers, h_next) { if (strcmp(hndlr->name, handler)) continue; lua_rawgeti(map->L, LUA_REGISTRYINDEX, hndlr->ref); /* Create the "environment" */ lua_newtable(map->L); lua_env(map->L, "SERVER_NAME", BOZOHOST(httpd, request)); lua_env(map->L, "GATEWAY_INTERFACE", "Luigi/1.0"); lua_env(map->L, "SERVER_PROTOCOL", request->hr_proto); lua_env(map->L, "REQUEST_METHOD", request->hr_methodstr); lua_env(map->L, "SCRIPT_PREFIX", map->prefix); lua_env(map->L, "SCRIPT_NAME", file); lua_env(map->L, "HANDLER_NAME", hndlr->name); lua_env(map->L, "SCRIPT_FILENAME", map->script); lua_env(map->L, "SERVER_SOFTWARE", httpd->server_software); lua_env(map->L, "REQUEST_URI", uri); lua_env(map->L, "DATE_GMT", bozo_http_date(date, sizeof(date))); if (query && *query) lua_env(map->L, "QUERY_STRING", query); if (info && *info) lua_env(map->L, "PATH_INFO", info); if (type && *type) lua_env(map->L, "CONTENT_TYPE", type); if (clen && *clen) lua_env(map->L, "CONTENT_LENGTH", clen); if (request->hr_serverport && *request->hr_serverport) lua_env(map->L, "SERVER_PORT", request->hr_serverport); if (request->hr_remotehost && *request->hr_remotehost) lua_env(map->L, "REMOTE_HOST", request->hr_remotehost); if (request->hr_remoteaddr && *request->hr_remoteaddr) lua_env(map->L, "REMOTE_ADDR", request->hr_remoteaddr); /* Pass the headers in a separate table */ lua_newtable(map->L); SIMPLEQ_FOREACH(headp, &request->hr_headers, h_next) lua_env(map->L, headp->h_header, headp->h_value); /* Pass the query variables */ if ((query && *query) || (type && *type && !strcmp(type, FORM))) { lua_newtable(map->L); if (query && *query) lua_decode_query(map->L, query); if (type && *type && !strcmp(type, FORM)) { if (clen && *clen && atol(clen) > 0) { length = atol(clen); content = bozomalloc(httpd, length + 1); n = bozo_read(httpd, STDIN_FILENO, content, length); if (n >= 0) { content[n] = '\0'; lua_decode_query(map->L, content); } else { lua_pop(map->L, 1); lua_pushnil(map->L); } free(content); } } } else lua_pushnil(map->L); ret = lua_pcall(map->L, 3, 0, 0); if (ret) printf("
Lua error: %s\n", lua_tostring(map->L, -1)); bozo_flush(httpd, stdout); rv = 1; goto out; } } out: free(prefix); free(info); free(query); free(file); return rv; } #endif /* NO_LUA_SUPPORT */ src/libexec/httpd/main.c010064400011300000175000000250571444016225700154410ustar00srcmastrnetbsd/* $NetBSD: main.c,v 1.31 2023/06/07 20:12:31 mrg Exp $ */ /* $eterna: main.c,v 1.6 2011/11/18 09:21:15 mrg Exp $ */ /* from: eterna: bozohttpd.c,v 1.159 2009/05/23 02:14:30 mrg Exp */ /* * Copyright (c) 1997-2023 Matthew R. Green * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer and * dedication in the documentation and/or other materials provided * with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * */ /* this program is dedicated to the Great God of Processed Cheese */ /* * main.c: C front end to bozohttpd */ #include #include #include #include #include #include #include #include #include "bozohttpd.h" /* variables and functions */ #ifndef LOG_FTP #define LOG_FTP LOG_DAEMON #endif /* print a usage message, and then exit */ BOZO_DEAD static void usage(bozohttpd_t *httpd, char *progname) { bozowarn(httpd, "usage: %s [options] slashdir [virtualhostname]", progname); bozowarn(httpd, "options:"); if (have_daemon_mode) bozowarn(httpd, " -b\t\t\tbackground in daemon mode"); if (have_cgibin && have_dynamic_content) bozowarn(httpd, " -C suffix handler\tadd this CGI handler " "for paths ending with `suffix'"); if (have_cgibin) bozowarn(httpd, " -c cgibin\t\tenable cgi-bin support in " "this directory"); if (have_debug) bozowarn(httpd, " -d\t\t\tenable debug support"); if (have_user && have_cgibin) bozowarn(httpd, " -E\t\t\tenable CGI support for user dirs"); if (have_core) bozowarn(httpd, " -e\t\t\tdon't clean the environment " "(-t and -U only)"); if (have_daemon_mode) bozowarn(httpd, " -f\t\t\tforeground in daemon mode"); if (have_core) bozowarn(httpd, " -G\t\t\tprint version number and exit"); if (have_dirindex) bozowarn(httpd, " -H\t\t\thide files starting with a period " "(.) in index mode"); if (have_core) bozowarn(httpd, " -I port\t\tbind or use on this port"); if (have_daemon_mode) bozowarn(httpd, " -i address\t\tbind on this address " "(daemon mode only)"); if (have_lua) bozowarn(httpd, " -L prefix script\tadd this Lua script for " "paths starting with `prefix'"); if (have_dynamic_content) bozowarn(httpd, " -M suffix t c c11\tadd this mime entry"); if (have_core) bozowarn(httpd, " -n\t\t\tdon't resolve host names"); if (have_daemon_mode) bozowarn(httpd, " -P pidfile\t\tpid file path"); if (have_user) bozowarn(httpd, " -p dir\t\t\"public_html\" directory name"); if (have_core) bozowarn(httpd, " -q\t\tquiet mode, no logging"); if (have_dirindex) bozowarn(httpd, " -R readme\t\tput readme file in footer " "of directory index"); if (have_core) { bozowarn(httpd, " -S version\t\tset server version string"); bozowarn(httpd, " -s\t\t\talways log to stderr"); bozowarn(httpd, " -T type timeout\t" "set timeout"); bozowarn(httpd, " -t dir\t\tchroot to `dir'"); bozowarn(httpd, " -U user\t\tchange user to `user'"); } if (have_user) bozowarn(httpd, " -u\t\t\tenable ~user/public_html support"); if (have_core) { bozowarn(httpd, " -V\t\t\tUnknown virtual hosts go to " "`slashdir'"); bozowarn(httpd, " -v virtualroot\tenable virtual host " "support in this directory"); } if (have_dirindex) bozowarn(httpd, " -X\t\t\tdirectory index support"); if (have_core) bozowarn(httpd, " -x index\t\tdefault \"index.html\" " "file name"); if (have_ssl) { bozowarn(httpd, " -Z cert privkey\tspecify path to server " "certificate and private key file\n" "\t\t\tin pem format and enable bozohttpd in " "SSL mode"); bozowarn(httpd, " -z ciphers\t\tspecify SSL ciphers"); } bozoerr(httpd, 1, "%s failed to start", progname); } int main(int argc, char **argv) { bozo_httpreq_t *request; bozohttpd_t httpd; bozoprefs_t prefs; char *progname; const char *val; int c; (void) memset(&httpd, 0x0, sizeof(httpd)); (void) memset(&prefs, 0x0, sizeof(prefs)); if ((progname = strrchr(argv[0], '/')) == NULL) progname = argv[0]; else progname++; openlog(progname, LOG_PID|LOG_NDELAY, LOG_FTP); bozo_set_defaults(&httpd, &prefs); /* * -r option was removed, do not reuse it for a while */ while ((c = getopt(argc, argv, "C:EGHI:L:M:m:P:R:S:T:U:VXZ:bc:defhi:np:qst:uv:x:z:")) != -1) { switch (c) { case 'b': if (!have_daemon_mode) no_daemon_mode: bozoerr(&httpd, 1, "Daemon mode not enabled"); /* * test suite support - undocumented * background == 2 (aka, -b -b) means to * only process 1 per kid */ val = bozo_get_pref(&prefs, "background") == NULL ? "1" : "2"; bozo_set_pref(&httpd, &prefs, "background", val); break; case 'C': if (!have_dynamic_content || !have_cgibin) bozoerr(&httpd, 1, "dynamic CGI handler support not enabled"); /* make sure there's two arguments */ if (argc - optind < 1) usage(&httpd, progname); bozo_add_content_map_cgi(&httpd, optarg, argv[optind++]); break; case 'c': if (!have_cgibin) bozoerr(&httpd, 1, "CGI not enabled"); bozo_cgi_setbin(&httpd, optarg); break; case 'd': if (!have_debug) bozowarn(&httpd, "Debugging not enabled"); httpd.debug++; break; case 'E': if (!have_user || !have_cgibin) bozoerr(&httpd, 1, "CGI not enabled"); bozo_set_pref(&httpd, &prefs, "enable user cgibin", "true"); break; case 'e': bozo_set_pref(&httpd, &prefs, "dirty environment", "true"); break; case 'f': if (!have_daemon_mode) goto no_daemon_mode; bozo_set_pref(&httpd, &prefs, "foreground", "true"); break; case 'G': { char version[128]; bozo_get_version(version, sizeof(version)); printf("bozohttpd version %s\n", version); } return 0; case 'H': if (!have_dirindex) no_dirindex_support: bozoerr(&httpd, 1, "directory indexing not enabled"); bozo_set_pref(&httpd, &prefs, "hide dots", "true"); break; case 'I': bozo_set_pref(&httpd, &prefs, "port number", optarg); break; case 'i': if (!have_daemon_mode) goto no_daemon_mode; bozo_set_pref(&httpd, &prefs, "bind address", optarg); break; case 'L': if (!have_lua) bozoerr(&httpd, 1, "Lua support not enabled"); /* make sure there's two argument */ if (argc - optind < 1) usage(&httpd, progname); bozo_add_lua_map(&httpd, optarg, argv[optind]); optind++; break; case 'M': if (!have_dynamic_content) bozoerr(&httpd, 1, "dynamic mime content support not enabled"); /* make sure there're four arguments */ if (argc - optind < 3) usage(&httpd, progname); bozo_add_content_map_mime(&httpd, optarg, argv[optind], argv[optind+1], argv[optind+2]); optind += 3; break; case 'm': if (!have_ssl) goto no_ssl; httpd.ssl_min_proto = optarg; debug((&httpd, DEBUG_NORMAL, "using minimum protocol version: %s", optarg)); break; case 'n': bozo_set_pref(&httpd, &prefs, "numeric", "true"); break; case 'P': if (!have_daemon_mode) goto no_daemon_mode; bozo_set_pref(&httpd, &prefs, "pid file", optarg); break; case 'p': if (!have_user) no_user_support: bozoerr(&httpd, 1, "User support not enabled"); bozo_set_pref(&httpd, &prefs, "public_html", optarg); break; case 'q': bozo_set_pref(&httpd, &prefs, "no log", "true"); break; case 'R': if (!have_dirindex) goto no_dirindex_support; bozo_set_pref(&httpd, &prefs, "directory index readme", optarg); break; case 'S': bozo_set_pref(&httpd, &prefs, "server software", optarg); break; case 's': bozo_set_pref(&httpd, &prefs, "log to stderr", "true"); break; case 'T': /* make sure there're two arguments */ if (argc - optind < 1) usage(&httpd, progname); if (bozo_set_timeout(&httpd, &prefs, optarg, argv[optind])) { bozoerr(&httpd, 1, "invalid type '%s'", optarg); /* NOTREACHED */ } optind++; break; case 't': bozo_set_pref(&httpd, &prefs, "chroot dir", optarg); break; case 'U': bozo_set_pref(&httpd, &prefs, "username", optarg); break; case 'u': if (!have_user) goto no_user_support; bozo_set_pref(&httpd, &prefs, "enable users", "true"); break; case 'V': bozo_set_pref(&httpd, &prefs, "unknown slash", "true"); break; case 'v': bozo_set_pref(&httpd, &prefs, "virtual base", optarg); break; case 'X': if (!have_dirindex) goto no_dirindex_support; bozo_set_pref(&httpd, &prefs, "directory indexing", "true"); break; case 'x': bozo_set_pref(&httpd, &prefs, "index.html", optarg); break; case 'Z': if (!have_ssl) no_ssl: bozoerr(&httpd, 1, "ssl support not enabled"); /* make sure there's two arguments */ if (argc - optind < 1) usage(&httpd, progname); bozo_ssl_set_opts(&httpd, optarg, argv[optind++]); break; case 'z': if (!have_ssl) goto no_ssl; bozo_ssl_set_ciphers(&httpd, optarg); break; default: usage(&httpd, progname); /* NOTREACHED */ } } argc -= optind; argv += optind; if (argc == 0 || argc > 2) { usage(&httpd, progname); } /* virtual host, and root of tree to serve */ bozo_setup(&httpd, &prefs, argv[1], argv[0]); /* * read and process the HTTP request. */ do { if ((request = bozo_read_request(&httpd)) != NULL) { bozo_process_request(request); bozo_clean_request(request); } } while (httpd.background); bozo_cleanup(&httpd, &prefs); return (0); } src/libexec/httpd/netbsd_queue.h010064400011300000175000000056411216746571700172150ustar00srcmastrnetbsd/* $eterna: queue.h,v 1.6 2009/04/18 08:36:03 mrg Exp $ */ /* from: NetBSD: queue.h,v 1.51 2009/03/11 06:51:53 mrg Exp */ /* * Copyright (c) 1991, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * * @(#)queue.h 8.5 (Berkeley) 8/20/94 */ #ifndef _SYS_QUEUE_H_ #define _SYS_QUEUE_H_ /* * Simple queue definitions. */ #define SIMPLEQ_HEAD(name, type) \ struct name { \ struct type *sqh_first; /* first element */ \ struct type **sqh_last; /* addr of last next element */ \ } #define SIMPLEQ_ENTRY(type) \ struct { \ struct type *sqe_next; /* next element */ \ } /* * Simple queue functions. */ #define SIMPLEQ_INIT(head) do { \ (head)->sqh_first = NULL; \ (head)->sqh_last = &(head)->sqh_first; \ } while (/*CONSTCOND*/0) #define SIMPLEQ_INSERT_TAIL(head, elm, field) do { \ (elm)->field.sqe_next = NULL; \ *(head)->sqh_last = (elm); \ (head)->sqh_last = &(elm)->field.sqe_next; \ } while (/*CONSTCOND*/0) #define SIMPLEQ_FOREACH(var, head, field) \ for ((var) = ((head)->sqh_first); \ (var); \ (var) = ((var)->field.sqe_next)) #define SIMPLEQ_FOREACH_SAFE(var, head, field, next) \ for ((var) = ((head)->sqh_first); \ (var) && ((next = ((var)->field.sqe_next)), 1); \ (var) = (next)) /* * Simple queue access methods. */ #define SIMPLEQ_FIRST(head) ((head)->sqh_first) #define SIMPLEQ_NEXT(elm, field) ((elm)->field.sqe_next) #endif /* !_SYS_QUEUE_H_ */ src/libexec/httpd/printenv.lua010064400011300000175000000052151401674013000167020ustar00srcmastrnetbsd-- $NetBSD: printenv.lua,v 1.5 2021/02/28 16:10:00 rillig Exp $ -- this small Lua script demonstrates the use of Lua in (bozo)httpd -- it will simply output the "environment" -- Keep in mind that bozohttpd forks for each request when started in -- daemon mode, you can set global variables here, but they will have -- the same value on each invocation. You can not keep state between -- two calls. -- You can test this example by running the following command: -- /usr/libexec/httpd -b -f -I 8080 -L test printenv.lua . -- and then navigate to: http://127.0.0.1:8080/test/printenv local httpd = require 'httpd' function escape_html(s) return s:gsub('&', '&'):gsub('<', '<'):gsub('>', '>'):gsub('"', '"') end function printenv(env, headers, query) -- we get the "environment" in the env table, the values are more -- or less the same as the variable for a CGI program -- output headers using httpd.write() -- httpd.write() will not append newlines httpd.write("HTTP/1.1 200 Ok\r\n") httpd.write("Content-Type: text/html\r\n\r\n") -- output html using httpd.print() -- you can also use print() and io.write() but they will not work with SSL httpd.print([[ Bozotic Lua Environment

Bozotic Lua Environment

]]) httpd.print('module version: ' .. httpd._VERSION .. '
') httpd.print('

Server Environment

') -- print the list of "environment" variables for k, v in pairs(env) do httpd.print(escape_html(k) .. '=' .. escape_html(v) .. '
') end httpd.print('

Request Headers

') for k, v in pairs(headers) do httpd.print(escape_html(k) .. '=' .. escape_html(v) .. '
') end if query ~= nil then httpd.print('

Query Variables

') for k, v in pairs(query) do httpd.print(escape_html(k) .. '=' .. escape_html(v) .. '
') end end httpd.print('

Form Test

') httpd.print([[
]]) -- output a footer httpd.print([[ ]]) end function form(env, header, query) httpd.write("HTTP/1.1 200 Ok\r\n") httpd.write("Content-Type: text/html\r\n\r\n") if query ~= nil then httpd.print('

Form Variables

') if env.CONTENT_TYPE ~= nil then httpd.print('Content-type: ' .. env.CONTENT_TYPE .. '
') end for k, v in pairs(query) do httpd.print(escape_html(k) .. '=' .. escape_html(v) .. '
') end else httpd.print('No values') end end -- register this handler for http:////printenv httpd.register_handler('printenv', printenv) httpd.register_handler('form', form) src/libexec/httpd/ssl-bozo.c010064400011300000175000000244671517752563000162770ustar00srcmastrnetbsd/* $NetBSD: ssl-bozo.c,v 1.34.4.1 2026/05/07 15:51:07 martin Exp $ */ /* $eterna: ssl-bozo.c,v 1.15 2011/11/18 09:21:15 mrg Exp $ */ /* * Copyright (c) 1997-2026 Matthew R. Green * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer and * dedication in the documentation and/or other materials provided * with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * */ /* this code implements SSL and backend IO for bozohttpd */ #include #include #include #include #include #include "bozohttpd.h" #ifndef USE_ARG #define USE_ARG(x) /*LINTED*/(void)&(x) #endif #ifndef NO_SSL_SUPPORT #include #include #ifndef BOZO_SSL_CIPHERS #define BOZO_SSL_CIPHERS \ "HIGH:" \ "-SHA:-ADH:" \ "-PSK-AES128-CCM:-PSK-AES256-CCM:" \ "-DHE-PSK-AES128-CCM8:-DHE-PSK-AES256-CCM8:" \ "-AES128-CCM8:-AES256-CCM8:" \ "-DHE-RSA-AES128-CCM8:-DHE-RSA-AES256-CCM8:" \ "-PSK-AES128-CCM8:-PSK-AES256-CCM8:" \ "-CAMELLIA128:-CAMELLIA256:" \ "-RSA-PSK-CHACHA20-POLY1305:" \ "!aNULL:!eNULL:" \ "!EXPORT:!DES:!RC4:!MD5:!PSK:!aECDH:" \ "!EDH-DSS-DES-CBC3-SHA:!EDH-RSA-DES-CBC3-SHA:" \ "!KRB5-DES-CBC3-SHA" #endif /* this structure encapsulates the ssl info */ typedef struct sslinfo_t { SSL_CTX *ssl_context; const SSL_METHOD *ssl_method; SSL *bozossl; char *certificate_file; char *privatekey_file; char *ciphers; } sslinfo_t; /* Default to TLS 1.3. */ struct { unsigned proto; const char *name; } protos[] = { { TLS1_3_VERSION, "TLSv1.3" }, { TLS1_2_VERSION, "TLSv1.2" }, { TLS1_1_VERSION, "TLSv1.1" }, { 0, NULL }, }; static int bozo_ssl_proto(const char *name) { unsigned i; if (name) for (i = 0; protos[i].proto != 0; i++) if (strcasecmp(name, protos[i].name) == 0) return protos[i].proto; return TLS1_1_VERSION; } static const char * bozo_ssl_name(unsigned version) { unsigned i; for (i = 0; protos[i].proto != 0; i++) if (version == protos[i].proto) return protos[i].name; return protos[0].name; } /* * bozo_clear_ssl_queue: print the contents of the SSL error queue */ static void bozo_clear_ssl_queue(bozohttpd_t *httpd) { unsigned long sslcode = ERR_get_error(); do { static const char sslfmt[] = "SSL Error: %s:%s:%s"; if (httpd->nolog) continue; if (httpd->logstderr || isatty(STDERR_FILENO)) { fprintf(stderr, sslfmt, ERR_lib_error_string(sslcode), ERR_func_error_string(sslcode), ERR_reason_error_string(sslcode)); fputs("\n", stderr); } else { syslog(LOG_ERR, sslfmt, ERR_lib_error_string(sslcode), ERR_func_error_string(sslcode), ERR_reason_error_string(sslcode)); } } while (0 != (sslcode = ERR_get_error())); } /* * bozo_ssl_warn works just like bozowarn, plus the SSL error queue */ BOZO_PRINTFLIKE(2, 3) static void bozo_ssl_warn(bozohttpd_t *httpd, const char *fmt, ...) { va_list ap; va_start(ap, fmt); if (!httpd->nolog) { if (httpd->logstderr || isatty(STDERR_FILENO)) { vfprintf(stderr, fmt, ap); fputs("\n", stderr); } else vsyslog(LOG_ERR, fmt, ap); } va_end(ap); bozo_clear_ssl_queue(httpd); } /* * bozo_ssl_err works just like bozoerr, plus the SSL error queue */ BOZO_PRINTFLIKE(3, 4) BOZO_DEAD static void bozo_ssl_err(bozohttpd_t *httpd, int code, const char *fmt, ...) { va_list ap; va_start(ap, fmt); if (!httpd->nolog) { if (httpd->logstderr || isatty(STDERR_FILENO)) { vfprintf(stderr, fmt, ap); fputs("\n", stderr); } else vsyslog(LOG_ERR, fmt, ap); } va_end(ap); bozo_clear_ssl_queue(httpd); exit(code); } /* * bozo_check_error_queue: print warnings if the error isn't expected */ static void bozo_check_error_queue(bozohttpd_t *httpd, const char *tag, int ret) { if (ret > 0) return; const sslinfo_t *sslinfo = httpd->sslinfo; const int sslerr = SSL_get_error(sslinfo->bozossl, ret); if (sslerr != SSL_ERROR_ZERO_RETURN && sslerr != SSL_ERROR_SYSCALL && sslerr != SSL_ERROR_NONE) bozo_ssl_warn(httpd, "%s: SSL_ERROR %d", tag, sslerr); } static BOZO_PRINTFLIKE(2, 0) int bozo_ssl_printf(bozohttpd_t *httpd, const char * fmt, va_list ap) { char *buf; int nbytes; if ((nbytes = vasprintf(&buf, fmt, ap)) != -1) { const sslinfo_t *sslinfo = httpd->sslinfo; int ret = SSL_write(sslinfo->bozossl, buf, nbytes); bozo_check_error_queue(httpd, "write", ret); } free(buf); return nbytes; } static ssize_t bozo_ssl_read(bozohttpd_t *httpd, int fd, void *buf, size_t nbytes) { const sslinfo_t *sslinfo = httpd->sslinfo; int ret; USE_ARG(fd); ret = SSL_read(sslinfo->bozossl, buf, (int)nbytes); bozo_check_error_queue(httpd, "read", ret); return (ssize_t)ret; } static ssize_t bozo_ssl_write(bozohttpd_t *httpd, int fd, const void *buf, size_t nbytes) { const sslinfo_t *sslinfo = httpd->sslinfo; int ret; USE_ARG(fd); ret = SSL_write(sslinfo->bozossl, buf, (int)nbytes); bozo_check_error_queue(httpd, "write", ret); return (ssize_t)ret; } void bozo_ssl_init(bozohttpd_t *httpd) { sslinfo_t *sslinfo = httpd->sslinfo; int proto; if (sslinfo == NULL || !sslinfo->certificate_file) return; SSL_library_init(); SSL_load_error_strings(); sslinfo->ssl_method = SSLv23_server_method(); sslinfo->ssl_context = SSL_CTX_new(sslinfo->ssl_method); if (NULL == sslinfo->ssl_context) bozo_ssl_err(httpd, EXIT_FAILURE, "SSL context creation failed"); proto = bozo_ssl_proto(httpd->ssl_min_proto); if (!SSL_CTX_set_min_proto_version(sslinfo->ssl_context, proto)) bozo_ssl_err(httpd, EXIT_FAILURE, "Error setting minimum protocol version '%s'", bozo_ssl_name(proto)); if (!SSL_CTX_set_cipher_list(sslinfo->ssl_context, sslinfo->ciphers ? sslinfo->ciphers : BOZO_SSL_CIPHERS)) bozo_ssl_err(httpd, EXIT_FAILURE, "Error setting cipher list '%s'", sslinfo->ciphers); if (1 != SSL_CTX_use_certificate_chain_file(sslinfo->ssl_context, sslinfo->certificate_file)) bozo_ssl_err(httpd, EXIT_FAILURE, "Unable to use certificate file '%s'", sslinfo->certificate_file); if (1 != SSL_CTX_use_PrivateKey_file(sslinfo->ssl_context, sslinfo->privatekey_file, SSL_FILETYPE_PEM)) bozo_ssl_err(httpd, EXIT_FAILURE, "Unable to use private key file '%s'", sslinfo->privatekey_file); /* check consistency of key vs certificate */ if (!SSL_CTX_check_private_key(sslinfo->ssl_context)) bozo_ssl_err(httpd, EXIT_FAILURE, "Check private key failed"); } /* * returns non-zero for failure */ int bozo_ssl_accept(bozohttpd_t *httpd) { sslinfo_t *sslinfo = httpd->sslinfo; if (sslinfo == NULL || !sslinfo->ssl_context) return 0; alarm(httpd->ssl_timeout); sslinfo->bozossl = SSL_new(sslinfo->ssl_context); if (sslinfo->bozossl == NULL) bozoerr(httpd, 1, "SSL_new failed"); SSL_set_rfd(sslinfo->bozossl, 0); SSL_set_wfd(sslinfo->bozossl, 1); const int ret = SSL_accept(sslinfo->bozossl); bozo_check_error_queue(httpd, "accept", ret); alarm(0); if (bozo_timeout_hit) { SSL_free(sslinfo->bozossl); sslinfo->bozossl = NULL; return 1; } return ret != 1; } void bozo_ssl_shutdown(bozohttpd_t *httpd) { const sslinfo_t *sslinfo = httpd->sslinfo; if (sslinfo && sslinfo->bozossl) SSL_shutdown(sslinfo->bozossl); } void bozo_ssl_destroy(bozohttpd_t *httpd) { const sslinfo_t *sslinfo = httpd->sslinfo; if (sslinfo && sslinfo->bozossl) SSL_free(sslinfo->bozossl); } static sslinfo_t * bozo_get_sslinfo(bozohttpd_t *httpd) { sslinfo_t *sslinfo; if (httpd->sslinfo) return httpd->sslinfo; sslinfo = bozomalloc(httpd, sizeof(*sslinfo)); if (sslinfo == NULL) bozoerr(httpd, 1, "sslinfo allocation failed"); memset(sslinfo, 0, sizeof(*sslinfo)); return httpd->sslinfo = sslinfo; } void bozo_ssl_set_opts(bozohttpd_t *httpd, const char *cert, const char *priv) { sslinfo_t *sslinfo = bozo_get_sslinfo(httpd); sslinfo->certificate_file = bozostrdup(httpd, NULL, cert); sslinfo->privatekey_file = bozostrdup(httpd, NULL, priv); debug((httpd, DEBUG_NORMAL, "using cert/priv files: %s & %s", sslinfo->certificate_file, sslinfo->privatekey_file)); httpd->defbindport = BOZO_HTTPS_PORT; } void bozo_ssl_set_ciphers(bozohttpd_t *httpd, const char *ciphers) { sslinfo_t *sslinfo = bozo_get_sslinfo(httpd); sslinfo->ciphers = bozostrdup(httpd, NULL, ciphers); debug((httpd, DEBUG_NORMAL, "using ciphers: %s", sslinfo->ciphers)); } #endif /* NO_SSL_SUPPORT */ /* * These functions are always present, so that caller code can simply * use bozo_*() for IO, regardless of SSL. */ int bozo_printf(bozohttpd_t *httpd, const char *fmt, ...) { va_list args; int cc; USE_ARG(httpd); va_start(args, fmt); #ifndef NO_SSL_SUPPORT if (httpd->sslinfo) cc = bozo_ssl_printf(httpd, fmt, args); else #endif cc = vprintf(fmt, args); va_end(args); return cc; } ssize_t bozo_read(bozohttpd_t *httpd, int fd, void *buf, size_t len) { #ifndef NO_SSL_SUPPORT if (httpd->sslinfo) return bozo_ssl_read(httpd, fd, buf, len); #endif USE_ARG(httpd); return read(fd, buf, len); } ssize_t bozo_write(bozohttpd_t *httpd, int fd, const void *buf, size_t len) { #ifndef NO_SSL_SUPPORT if (httpd->sslinfo) return bozo_ssl_write(httpd, fd, buf, len); #endif USE_ARG(httpd); return write(fd, buf, len); } int bozo_flush(bozohttpd_t *httpd, FILE *fp) { #ifndef NO_SSL_SUPPORT if (httpd->sslinfo) return 0; #endif USE_ARG(httpd); return fflush(fp); } src/libexec/httpd/tilde-luzah-bozo.c010064400011300000175000000073641520024423500176770ustar00srcmastrnetbsd/* $NetBSD: tilde-luzah-bozo.c,v 1.16.14.1 2026/05/08 19:48:27 martin Exp $ */ /* $eterna: tilde-luzah-bozo.c,v 1.16 2011/11/18 09:21:15 mrg Exp $ */ /* * Copyright (c) 1997-2018 Matthew R. Green * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer and * dedication in the documentation and/or other materials provided * with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * */ /* this code implements ~user support for bozohttpd */ #ifndef NO_USER_SUPPORT #include #include #include #include #include #include #include #include "bozohttpd.h" /* * bozo_user_transform does this: * - chdir's /~user/public_html * - returns the rest of the file, index.html appended if required * - returned malloced file to serve in request->hr_file, * ala transform_request(). * * transform_request() is supposed to check that we have user support * enabled. returns 0 if handled/error, 1 if continue. */ int bozo_user_transform(bozo_httpreq_t *request) { bozohttpd_t *httpd = request->hr_httpd; char *s, *file = NULL, *user; struct passwd *pw; /* find username */ user = strchr(request->hr_file + 1, '~'); /* this shouldn't happen, but "better paranoid than sorry" */ assert(user != NULL); user++; if ((s = strchr(user, '/')) != NULL) { *s++ = '\0'; } debug((httpd, DEBUG_OBESE, "looking for user %s", user)); pw = getpwnam(user); request->hr_user = bozostrdup(httpd, request, user); /* fix this up immediately */ if (s) { s[-1] = '/'; /* omit additional slashes at the beginning */ while (*s == '/') s++; } if (pw == NULL) { free(request->hr_user); request->hr_user = NULL; bozo_http_error(httpd, 404, request, "no such user"); return 0; } debug((httpd, DEBUG_OBESE, "user %s dir %s/%s uid %d gid %d", pw->pw_name, pw->pw_dir, httpd->public_html, pw->pw_uid, pw->pw_gid)); if (chdir(pw->pw_dir) < 0) { bozowarn(httpd, "chdir1 error: %s: %s", pw->pw_dir, strerror(errno)); bozo_http_error(httpd, 404, request, "can't chdir to homedir"); return 0; } if (chdir(httpd->public_html) < 0) { bozowarn(httpd, "chdir2 error: %s: %s", httpd->public_html, strerror(errno)); bozo_http_error(httpd, 404, request, "can't chdir to public_html"); return 0; } if (s == NULL || *s == '\0') { file = bozostrdup(httpd, request, "/"); } else { file = bozomalloc(httpd, strlen(s) + 2); strcpy(file, "/"); strcat(file, s); } free(request->hr_file_free); request->hr_file_free = request->hr_file = file; debug((httpd, DEBUG_FAT, "transform_user returning %s under %s", file, pw->pw_dir)); return 1; } #endif /* NO_USER_SUPPORT */ src/libexec/httpd/libbozohttpd004075500011300000175000000000001504273241000167615ustar00srcmastrnetbsdsrc/libexec/httpd/libbozohttpd/CVS004075500011300000175000000000001504273241000174145ustar00srcmastrnetbsdsrc/libexec/httpd/libbozohttpd/CVS/Root010064400011300000175000000000441504273241000203340ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/httpd/libbozohttpd/CVS/Repository010064400011300000175000000000371504273241000215720ustar00srcmastrnetbsdsrc/libexec/httpd/libbozohttpd src/libexec/httpd/libbozohttpd/CVS/Entries010064400011300000175000000003411504273241000210220ustar00srcmastrnetbsd/Makefile/1.4/Tue May 9 13:07:43 2023//Tnetbsd-11 /bozohttpd.expsym/1.1/Fri Nov 22 02:41:29 2024//Tnetbsd-11 /libbozohttpd.3/1.7/Sun Feb 4 05:43:05 2024//Tnetbsd-11 /shlib_version/1.2/Wed Sep 6 12:44:45 2023//Tnetbsd-11 D src/libexec/httpd/libbozohttpd/CVS/Tag010064400011300000175000000000131522207752200201260ustar00srcmastrnetbsdTnetbsd-11 src/libexec/httpd/libbozohttpd/Makefile010064400011300000175000000010751442644263700205160ustar00srcmastrnetbsd# $eterna: Makefile,v 1.1 2010/05/10 02:24:31 mrg Exp $ .PATH: $(.CURDIR)/.. # build bozohttpd library LIB= bozohttpd COPTS+= -I$(.CURDIR)/.. COPTS+= -DDO_HTPASSWD CPPFLAGS+= -DDO_HTPASSWD SRCS= bozohttpd.c ssl-bozo.c auth-bozo.c cgi-bozo.c daemon-bozo.c SRCS+= tilde-luzah-bozo.c dir-index-bozo.c content-bozo.c SRCS+= lua-bozo.c LDADD= -lcrypt DPADD= ${LIBCRYPT} MAN= libbozohttpd.3 WARNS= 4 INCS= bozohttpd.h INCSDIR= /usr/include LDADD+= -lssl -lcrypto DPADD+= ${LIBSSL} ${LIBCRYPTO} COPTS.ssl-bozo.c+= -Wno-error=deprecated-declarations .include src/libexec/httpd/libbozohttpd/bozohttpd.expsym010064400011300000175000000021431471776753100223450ustar00srcmastrnetbsdaddmerge_replheader addmerge_reqheader bozo_add_content_map_cgi bozo_add_content_map_mime bozo_add_lua_map bozo_auth_cgi_count bozo_auth_cgi_setenv bozo_auth_check bozo_auth_check_401 bozo_auth_check_headers bozo_auth_cleanup bozo_auth_init bozo_cgi_setbin bozo_check_special_files bozo_clean_request bozo_cleanup bozo_content_encoding bozo_content_type bozo_daemon_closefds bozo_daemon_fork bozo_daemon_init bozo_decode_url_percent bozo_dir_index bozo_escape_html bozo_escape_rfc3986 bozo_flush bozo_get_content_map bozo_get_pref bozo_get_version bozo_http_date bozo_http_error bozo_init_httpd bozo_init_prefs bozo_match_content_map bozo_print_header bozo_printf bozo_process_cgi bozo_process_lua bozo_process_request bozo_read bozo_read_request bozo_set_defaults bozo_set_pref bozo_set_timeout bozo_setenv bozo_setup bozo_ssl_accept bozo_ssl_destroy bozo_ssl_init bozo_ssl_set_ciphers bozo_ssl_set_opts bozo_ssl_shutdown bozo_timeout_hit bozo_user_transform bozo_write bozoasprintf bozodgetln bozoerr bozomalloc bozorealloc bozostrdup bozostrnsep bozowarn debug__ decodetable header_quirks pfilter_notify protos specials src/libexec/httpd/libbozohttpd/libbozohttpd.3010064400011300000175000000101741455762175100216470ustar00srcmastrnetbsd.\" $NetBSD: libbozohttpd.3,v 1.7 2024/02/04 05:43:05 mrg Exp $ .\" .\" $eterna: libbozohttpd.3,v 1.2 2010/05/10 02:48:23 mrg Exp $ .\" .\" Copyright (c) 2009, 2021 The NetBSD Foundation, Inc. .\" All rights reserved. .\" .\" This manual page is derived from software contributed to The .\" NetBSD Foundation by Alistair Crooks (agc@NetBSD.org) .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" .\" THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS .\" ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED .\" TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR .\" PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS .\" BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR .\" CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF .\" SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS .\" INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN .\" CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) .\" ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE .\" POSSIBILITY OF SUCH DAMAGE. .\" .Dd February 11, 2021 .Dt LIBBOZOHTTPD 3 .Os .Sh NAME .Nm libbozohttpd .Nd embedded web server library .Sh LIBRARY .Lb libbozohttpd .Sh SYNOPSIS .In bozohttpd.h .Ft int .Fo bozo_set_pref .Fa "bozohttpd_t *httpd" "bozoprefs_t *prefs" "char *name" "char *value" .Fc .Ft char * .Fo bozo_get_pref .Fa "bozoprefs_t *prefs" "char *name" .Fc .Ft int .Fo bozo_set_defaults .Fa "bozohttpd_t *httpd" "bozoprefs_t *prefs" .Fc .Ft void .Fo bozo_setup .Fa "bozohttpd_t *httpd" "bozoprefs_t *prefs" "const char *vhost" "char *slash" .Fc .Ft bozo_httpreq_t * .Fo bozo_read_request .Fa "bozohttpd_t *httpd" .Fc .Ft void .Fo bozo_process_request .Fa "bozo_httpreq_t *" .Fc .Ft void .Fo bozo_clean_request .Fa "bozo_httpreq_t *" .Fc .Ft void .Fo bozo_cleanup .Fa "bozohttpd_t *httpd" "bozoprefs_t *prefs" .Fc .Sh DESCRIPTION .Nm is a library interface to the .Xr bozohttpd 8 web server. The .Nm library can be used to embed a webserver in your applications. .Pp Normal operation sees the .Nm process be initialised using the .Fn bozo_set_defaults function, which will set up the default port and other internal settings, allocating any necessary space as needed. The .Fn bozo_set_defaults function returns 1 on sucess, 0 on failure. .Pp The .Fn bozo_setup function is used to specify the virtual host name for the web server. A NULL host name will mean that .Nm will use the local value for the host name, as returned by .Xr gethostname 3 . This virtual hostname should be a fully qualified domain name. The final argument to .Fn bozo_setup is the name of the directory to serve as the root directory of the web server tree. .Pp Once the server has been set up, it serves requests by using the .Fn bozo_read_request function, which returns a pointer to a request structure, and .Fn bozo_process_request , which deals with the request, and answers the client. The request space is de-allocated using the .Fn bozo_clean_request function. .Pp Preferences are set using the function .Fn bozo_set_pref function and queried using the two .Fn bozo_get_pref function. This is the main interface for selecting options, and for setting preferences. The memory allocated by .Fn bozo_setup for both the httpd structure and the preferences will be freed. .Sh SEE ALSO .Xr gethostname 3 , .Xr ssl 3 , .Xr services 5 , .Xr httpd 8 .Sh HISTORY The .Nm library first appeared in .Nx 6.0 . .Sh AUTHORS .An Matthew R. Green Aq Mt mrg@eterna23.net .An Alistair Crooks Aq Mt agc@NetBSD.org wrote this high-level interface. .Pp This manual page was written by .An Alistair Crooks . src/libexec/httpd/libbozohttpd/shlib_version010064400011300000175000000000201447607207500216340ustar00srcmastrnetbsdmajor=1 minor=0 src/libexec/httpd/lua004075500011300000175000000000001504273241000150365ustar00srcmastrnetbsdsrc/libexec/httpd/lua/CVS004075500011300000175000000000001504273241000154715ustar00srcmastrnetbsdsrc/libexec/httpd/lua/CVS/Root010064400011300000175000000000441504273241000164110ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/httpd/lua/CVS/Repository010064400011300000175000000000261504273241000176450ustar00srcmastrnetbsdsrc/libexec/httpd/lua src/libexec/httpd/lua/CVS/Entries010064400011300000175000000004141504273241000171000ustar00srcmastrnetbsd/Makefile/1.1.1.1/Mon May 10 03:30:04 2010//Tnetbsd-11 /bozo.lua/1.3/Wed May 2 00:00:30 2018//Tnetbsd-11 /glue.c/1.5/Fri May 11 20:19:25 2018//Tnetbsd-11 /optparse.lua/1.2/Wed May 2 00:03:27 2018//Tnetbsd-11 /shlib_version/1.2/Wed Sep 6 12:44:45 2023//Tnetbsd-11 D src/libexec/httpd/lua/CVS/Tag010064400011300000175000000000131522207752200162030ustar00srcmastrnetbsdTnetbsd-11 src/libexec/httpd/lua/Makefile010064400011300000175000000014541137167667400166020ustar00srcmastrnetbsd#PREFIX=/Users/agcrooks PREFIX=/usr #LIBDIR=/usr/lib LIB=luabozohttpd SRCS=glue.c MKMAN=no CPPFLAGS+=-g -I${PREFIX}/pkg/include LDADD+= -lbozohttpd WARNS=4 CLEANFILES+= a a.sig .include .include LUABOZOOBJDIR != cd ${.CURDIR} && ${PRINTOBJDIR} OPSYS!= uname -s .if ${OPSYS} == "Darwin" .sinclude lib${LIB}.dylib: libtool -dynamic -o ${.TARGET} ${OBJS} ${PREFIX}/pkg/lib/liblua.dylib /usr/lib/libc.dylib ${PREFIX}/pkg/lib/libbozohttpd.dylib t: lib${LIB}.dylib cp Makefile a ./bozo.lua --sign --detached a ./bozo.lua --verify a.sig .else t: cp Makefile a env LD_LIBRARY_PATH=${LUABOZOOBJDIR}:/lib:/usr/lib:${PREFIX}/lib \ ./bozo.lua --sign --detached a env LD_LIBRARY_PATH=${LUABOZOOBJDIR}:/lib:/usr/lib:${PREFIX}/lib \ ./bozo.lua --verify a.sig .endif src/libexec/httpd/lua/bozo.lua010075500011300000175000000155361327217763600166230ustar00srcmastrnetbsd#! /usr/bin/env lua -- -- Copyright (c) 2009 The NetBSD Foundation, Inc. -- All rights reserved. -- -- This code is derived from software contributed to The NetBSD Foundation -- by Alistair Crooks (agc@netbsd.org) -- -- Redistribution and use in source and binary forms, with or without -- modification, are permitted provided that the following conditions -- are met: -- 1. Redistributions of source code must retain the above copyright -- notice, this list of conditions and the following disclaimer. -- 2. Redistributions in binary form must reproduce the above copyright -- notice, this list of conditions and the following disclaimer in the -- documentation and/or other materials provided with the distribution. -- -- THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS -- ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED -- TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR -- PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS -- BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE -- POSSIBILITY OF SUCH DAMAGE. -- -- command line args dofile "optparse.lua" opt = OptionParser{usage="%prog [options] root [vhost]", version="20180502"} opt.add_option{"-C", "--cgimap", action="store", dest="cgimap", help="--cgimap 's t'"} opt.add_option{"-E", "--enable-user-cgibin", action="store_true", dest="enableusercgibin", help="--enable-user-cgibin"} opt.add_option{"-H", "--hide-dots", action="store_true", dest="hidedots", help="--hide-dots"} opt.add_option{"-I", "--portnum", action="store", dest="portnum", help="--portnum number"} opt.add_option{"-M", "--dynamicmime", action="store", dest="dynmime", help="--dynamicmime 'suffix type a b'"} opt.add_option{"-S", "--server-software", action="store", dest="serversw", help="--server-software name"} opt.add_option{"-U", "--username", action="store", dest="username", help="--username name"} opt.add_option{"-V", "--unknown-slash", action="store_true", dest="unknown", help="--unknown-slash"} opt.add_option{"-X", "--dir-index", action="store_true", dest="dirindex", help="--dir-index"} opt.add_option{"-Z", "--ssl", action="store", dest="ssl", help="--ssl 'cert priv'"} opt.add_option{"-b", "--background", action="store", dest="background", help="--background count"} opt.add_option{"-c", "--cgibin", action="store", dest="cgibin", help="--cgibin bin"} opt.add_option{"-e", "--dirtyenv", action="store_true", dest="dirtyenv", help="--dirtyenv"} opt.add_option{"-f", "--foreground", action="store_true", dest="foreground", help="--foreground"} opt.add_option{"-i", "--bindaddr", action="store", dest="bindaddress", help="--bindaddr address"} opt.add_option{"-n", "--numeric", action="store_true", dest="numeric", help="--numeric"} opt.add_option{"-p", "--public-html", action="store", dest="public_html", help="--public-html dir"} opt.add_option{"-s", "--logtostderr", action="store_true", dest="logstderr", help="log to stderr"} opt.add_option{"-t", "--chroot", action="store", dest="chroot", help="--chroot dir"} opt.add_option{"-u", "--enable-users", action="store_true", dest="enableusers", help="--enable-users"} opt.add_option{"-v", "--virtbase", action="store", dest="virtbase", help="virtual base location"} opt.add_option{"-x", "--index-html", action="store", dest="indexhtml", help="index.html name"} -- caller lua script local extension = ".so" f = io.open("libluabozohttpd.dylib", "r") if f then extension = ".dylib" io.close(f) end glupkg = package.loadlib("./" .. "libluabozohttpd" .. extension, "luaopen_bozohttpd") bozohttpd = glupkg() -- initialise httpd = bozohttpd.new() bozohttpd.init_httpd(httpd) prefs = bozohttpd.init_prefs() -- parse command line args options,args = opt.parse_args() if options.portnum then bozohttpd.set_pref(httpd, prefs, "port number", options.portnum) end if options.background then bozohttpd.set_pref(httpd, prefs, "background", options.background) end if options.numeric then bozohttpd.set_pref(httpd, prefs, "numeric", "true") end if options.logstderr then bozohttpd.set_pref(httpd, prefs, "log to stderr", "true") end if options.foreground then bozohttpd.set_pref(httpd, prefs, "foreground", "true") end if options.trustedref then bozohttpd.set_pref(httpd, prefs, "trusted referal", "true") end if options.dynmime then suffix, type, s1, s2 = string.find(options.dynmime, "(%S+)%s+(%S+)%s+(%S+)%s+(%S+)") bozohttpd.dynamic_mime(httpd, suffix, type, s1, s2) end if options.serversw then bozohttpd.set_pref(httpd, prefs, "server software", options.serversw) end if options.ssl then cert, priv = string.find(options.ssl, "(%S+)%s+(%S+)") bozohttpd.dynamic_mime(httpd, cert, priv) end if options.username then bozohttpd.set_pref(httpd, prefs, "username", options.username) end if options.unknownslash then bozohttpd.set_pref(httpd, prefs, "unknown slash", "true") end if options.virtbase then bozohttpd.set_pref(httpd, prefs, "virtual base", options.virtbase) end if options.indexhtml then bozohttpd.set_pref(httpd, prefs, "index.html", options.indexhtml) end if options.dirtyenv then bozohttpd.set_pref(httpd, prefs, "dirty environment", "true") end if options.bindaddr then bozohttpd.set_pref(httpd, prefs, "bind address", options.bindaddr) end if options.cgibin then bozohttpd.cgi_setbin(httpd, options.cgibin) end if options.cgimap then name, handler = string.find(options.cgimap, "(%S+)%s+(%S+)") bozohttpd.cgi_map(httpd, name, handler) end if options.public_html then bozohttpd.set_pref(httpd, prefs, "public_html", options.public_html) end if options.chroot then bozohttpd.set_pref(httpd, prefs, "chroot dir", options.chroot) end if options.enableusers then bozohttpd.set_pref(httpd, prefs, "enable users", "true") end if options.hidedots then bozohttpd.set_pref(httpd, prefs, "hide dots", "true") end if options.enableusercgibin then bozohttpd.set_pref(httpd, prefs, "enable user cgibin", "true") end if options.dirindex then bozohttpd.set_pref(httpd, prefs, "directory indexing", "true") end if #args < 1 then print("At least one arg needed for root directory") else -- set up connections local vhost = args[2] or "" bozohttpd.setup(httpd, prefs, vhost, args[1]) -- loop, serving requests local numreps = options.background or 0 repeat req = bozohttpd.read_request(httpd) bozohttpd.process_request(req) bozohttpd.clean_request(req) until numreps == 0 end src/libexec/httpd/lua/glue.c010064400011300000175000000141221327537531500162270ustar00srcmastrnetbsd/*- * Copyright (c) 2009 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Alistair Crooks (agc@netbsd.org) * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include #include #include #include #include #include #include #include #include #define LUA_LIB #include #include #include #ifndef __UNCONST #define __UNCONST(a) ((void *)(unsigned long)(const void *)(a)) #endif /* !__UNCONST */ int luaopen_bozohttpd(lua_State *); /* init() */ static int l_new(lua_State *L) { bozohttpd_t *httpd; httpd = lua_newuserdata(L, sizeof(*httpd)); (void) memset(httpd, 0x0, sizeof(*httpd)); return 1; } /* initialise(httpd) */ static int l_init_httpd(lua_State *L) { bozohttpd_t *httpd; httpd = lua_touserdata(L, 1); lua_pushnumber(L, bozo_init_httpd(httpd)); return 1; } /* initialise(prefs) */ static int l_init_prefs(lua_State *L) { bozohttpd_t *httpd; bozoprefs_t *prefs; prefs = lua_newuserdata(L, sizeof(*prefs)); (void) memset(prefs, 0x0, sizeof(*prefs)); httpd = lua_touserdata(L, 1); (void) bozo_init_prefs(httpd, prefs); return 1; } /* bozo_set_pref(httpd, prefs, name, value) */ static int l_bozo_set_pref(lua_State *L) { bozohttpd_t *httpd; bozoprefs_t *prefs; const char *name; const char *value; httpd = lua_touserdata(L, 1); prefs = lua_touserdata(L, 2); name = luaL_checkstring(L, 3); value = luaL_checkstring(L, 4); lua_pushnumber(L, bozo_set_pref(httpd, prefs, name, value)); return 1; } /* bozo_get_pref(prefs, name) */ static int l_bozo_get_pref(lua_State *L) { bozoprefs_t *prefs; const char *name; prefs = lua_touserdata(L, 1); name = luaL_checkstring(L, 2); lua_pushstring(L, bozo_get_pref(prefs, name)); return 1; } /* bozo_setup(httpd, prefs, host, root) */ static int l_bozo_setup(lua_State *L) { bozohttpd_t *httpd; bozoprefs_t *prefs; const char *vhost; const char *root; httpd = lua_touserdata(L, 1); prefs = lua_touserdata(L, 2); vhost = luaL_checkstring(L, 3); if (vhost && *vhost == 0x0) { vhost = NULL; } root = luaL_checkstring(L, 4); lua_pushnumber(L, bozo_setup(httpd, prefs, vhost, root)); return 1; } /* bozo_read_request(httpd) */ static int l_bozo_read_request(lua_State *L) { bozo_httpreq_t *req; bozohttpd_t *httpd; httpd = lua_touserdata(L, 1); req = bozo_read_request(httpd); lua_pushlightuserdata(L, req); return 1; } /* bozo_process_request(req) */ static int l_bozo_process_request(lua_State *L) { bozo_httpreq_t *req; req = lua_touserdata(L, 1); if (req == NULL) { return 0; } bozo_process_request(req); lua_pushnumber(L, 1); return 1; } /* bozo_clean_request(req) */ static int l_bozo_clean_request(lua_State *L) { bozo_httpreq_t *req; req = lua_touserdata(L, 1); if (req == NULL) { return 0; } bozo_clean_request(req); lua_pushnumber(L, 1); return 1; } /* dynamic_mime(httpd, one, two, three, four) */ static int l_bozo_dynamic_mime(lua_State *L) { bozohttpd_t *httpd; const char *s[4]; httpd = lua_touserdata(L, 1); s[0] = luaL_checkstring(L, 2); s[1] = luaL_checkstring(L, 3); s[2] = luaL_checkstring(L, 4); s[3] = luaL_checkstring(L, 5); bozo_add_content_map_mime(httpd, s[0], s[1], s[2], s[3]); lua_pushnumber(L, 1); return 1; } /* ssl_set_opts(httpd, one, two) */ static int l_bozo_ssl_set_opts(lua_State *L) { bozohttpd_t *httpd; const char *s[2]; httpd = lua_touserdata(L, 1); s[0] = luaL_checkstring(L, 2); s[1] = luaL_checkstring(L, 3); bozo_ssl_set_opts(httpd, s[0], s[1]); lua_pushnumber(L, 1); return 1; } /* cgi_setbin(httpd, bin) */ static int l_bozo_cgi_setbin(lua_State *L) { bozohttpd_t *httpd; const char *bin; httpd = lua_touserdata(L, 1); bin = luaL_checkstring(L, 2); bozo_cgi_setbin(httpd, bin); lua_pushnumber(L, 1); return 1; } /* cgi_map(httpd, 1, 2) */ static int l_bozo_cgi_map(lua_State *L) { bozohttpd_t *httpd; const char *s[2]; httpd = lua_touserdata(L, 1); s[0] = luaL_checkstring(L, 2); s[1] = luaL_checkstring(L, 3); bozo_add_content_map_cgi(httpd, s[0], s[1]); lua_pushnumber(L, 1); return 1; } const struct luaL_Reg libluabozohttpd[] = { { "new", l_new }, { "init_httpd", l_init_httpd }, { "init_prefs", l_init_prefs }, { "set_pref", l_bozo_set_pref }, { "get_pref", l_bozo_get_pref }, { "setup", l_bozo_setup }, { "dynamic_mime", l_bozo_dynamic_mime }, { "ssl_set_opts", l_bozo_ssl_set_opts }, { "cgi_setbin", l_bozo_cgi_setbin }, { "cgi_map", l_bozo_cgi_map }, { "read_request", l_bozo_read_request }, { "process_request", l_bozo_process_request }, { "clean_request", l_bozo_clean_request }, { NULL, NULL } }; int luaopen_bozohttpd(lua_State *L) { #if LUA_VERSION_NUM >= 502 luaL_newlib(L, libluabozohttpd); #else luaL_register(L, "bozohttpd", libluabozohttpd); #endif return 1; } src/libexec/httpd/lua/optparse.lua010064400011300000175000000076321327220011700174570ustar00srcmastrnetbsd-- Lua command line option parser. -- Interface based on Pythons optparse. -- http://docs.python.org/lib/module-optparse.html -- (c) 2008 David Manura, Licensed under the same terms as Lua (MIT license) -- -- To be used like this: -- t={usage="", version=""} -- op=OptionParser(t) -- op=add_option{"", action=, dest=, help=""} -- -- with : -- the option string to be used (can be anything, if one letter opt, then should be -x val, more letters: -xy=val ) -- one of -- - store: store in options as key, val -- - store_true: stores key, true -- - store_false: stores key, false -- is the key under which the option is saved -- -- options,args = op.parse_args() -- -- now options is the table of options (key, val) and args is the table with non-option arguments. -- You can use op.fail(message) for failing and op.print_help() for printing the usage as you like. function OptionParser(t) local usage = t.usage local version = t.version local o = {} local option_descriptions = {} local option_of = {} function o.fail(s) -- extension io.stderr:write(s .. '\n') os.exit(1) end function o.add_option(optdesc) option_descriptions[#option_descriptions+1] = optdesc for _,v in ipairs(optdesc) do option_of[v] = optdesc end end function o.parse_args() -- expand options (e.g. "--input=file" -> "--input", "file") local arg = {table.unpack(arg)} for i=#arg,1,-1 do local v = arg[i] local flag, val = v:match('^(%-%-%w+)=(.*)') if flag then arg[i] = flag table.insert(arg, i+1, val) end end local options = {} local args = {} local i = 1 while i <= #arg do local v = arg[i] local optdesc = option_of[v] if optdesc then local action = optdesc.action local val if action == 'store' or action == nil then i = i + 1 val = arg[i] if not val then o.fail('option requires an argument ' .. v) end elseif action == 'store_true' then val = true elseif action == 'store_false' then val = false end options[optdesc.dest] = val else if v:match('^%-') then o.fail('invalid option ' .. v) end args[#args+1] = v end i = i + 1 end if options.help then o.print_help() os.exit() end if options.version then io.stdout:write(t.version .. "\n") os.exit() end return options, args end local function flags_str(optdesc) local sflags = {} local action = optdesc.action for _,flag in ipairs(optdesc) do local sflagend if action == nil or action == 'store' then local metavar = optdesc.metavar or optdesc.dest:upper() sflagend = #flag == 2 and ' ' .. metavar or '=' .. metavar else sflagend = '' end sflags[#sflags+1] = flag .. sflagend end return table.concat(sflags, ', ') end function o.print_help() io.stdout:write("Usage: " .. usage:gsub('%%prog', arg[0]) .. "\n") io.stdout:write("\n") io.stdout:write("Options:\n") for _,optdesc in ipairs(option_descriptions) do io.stdout:write(" " .. flags_str(optdesc) .. " " .. optdesc.help .. "\n") end end o.add_option{"--help", action="store_true", dest="help", help="show this help message and exit"} if t.version then o.add_option{"--version", action="store_true", dest="version", help="output version info."} end return o end src/libexec/httpd/lua/shlib_version010064400011300000175000000000201447607207500177110ustar00srcmastrnetbsdmajor=1 minor=0 src/libexec/httpd/small004075500011300000175000000000001504273241000153655ustar00srcmastrnetbsdsrc/libexec/httpd/small/CVS004075500011300000175000000000001504273241000160205ustar00srcmastrnetbsdsrc/libexec/httpd/small/CVS/Root010064400011300000175000000000441504273241000167400ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/httpd/small/CVS/Repository010064400011300000175000000000301504273241000201670ustar00srcmastrnetbsdsrc/libexec/httpd/small src/libexec/httpd/small/CVS/Entries010064400011300000175000000000651504273241000174310ustar00srcmastrnetbsd/Makefile/1.6/Thu Apr 8 06:52:42 2021//Tnetbsd-11 D src/libexec/httpd/small/CVS/Tag010064400011300000175000000000131522207752200165320ustar00srcmastrnetbsdTnetbsd-11 src/libexec/httpd/small/Makefile010064400011300000175000000020741403352407200171060ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.6 2021/04/08 06:52:42 rillig Exp $ # $eterna: Makefile,v 1.1 2009/05/22 21:51:39 mrg Exp $ # build a 100% lean bozohttpd-small.c PROG= bozohttpd-small NOMAN= # defined SRCS= bozohttpd-small.c content-bozo-small.c ssl-bozo.c main.c LEAN_IFDEF_FLAGS= -UDEBUG -DNO_USER_SUPPORT \ -DNO_CGIBIN_SUPPORT -DNO_DIRINDEX_SUPPORT \ -DNO_DAEMON_MODE -DNO_DYNAMIC_CONTENT \ -DNO_SSL_SUPPORT -UDO_HTPASSWD \ -DNO_LUA_SUPPORT -DNO_BLOCKLIST_SUPPORT CPPFLAGS= -I$(.CURDIR)/.. ${LEAN_IFDEF_FLAGS} bozohttpd-small.c: bozohttpd.c unifdef $(LEAN_IFDEF_FLAGS) < $> > $@.tmp; \ status=$$?; \ if [ $$status -ne 1 ]; then \ echo "unifdef returned $$status, expecting 1" 2>&1; \ false; \ fi mv -f $@.tmp $@ content-bozo-small.c: content-bozo.c unifdef $(LEAN_IFDEF_FLAGS) < $> > $@.tmp; \ status=$$?; \ if [ $$status -ne 1 ]; then \ echo "unifdef returned $$status, expecting 1" 2>&1; \ false; \ fi mv -f $@.tmp $@ CLEANFILES+= content-bozo-small.c bozohttpd-small.c .PATH: $(.CURDIR)/.. .include src/libexec/httpd/testsuite004075500011300000175000000000001504273241000163065ustar00srcmastrnetbsdsrc/libexec/httpd/testsuite/CVS004075500011300000175000000000001504273251400167465ustar00srcmastrnetbsdsrc/libexec/httpd/testsuite/CVS/Root010064400011300000175000000000441504273241000176610ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/httpd/testsuite/CVS/Repository010064400011300000175000000000341504273241000211140ustar00srcmastrnetbsdsrc/libexec/httpd/testsuite src/libexec/httpd/testsuite/CVS/Entries010064400011300000175000000037251504273251400203650ustar00srcmastrnetbsd/Makefile/1.14/Thu Feb 11 09:23:55 2021//Tnetbsd-11 /html_cmp/1.6/Wed Nov 21 09:37:02 2018//Tnetbsd-11 /t1.in/1.3/Sat Apr 18 07:48:02 2009//Tnetbsd-11 /t1.out/1.3/Sat Apr 18 07:48:02 2009//Tnetbsd-11 /t10.in/1.1.1.1/Sat Apr 18 07:09:27 2009//Tnetbsd-11 /t10.out/1.3/Wed May 5 07:41:48 2021//Tnetbsd-11 /t11.in/1.1/Tue Jan 31 14:33:54 2017//Tnetbsd-11 /t11.out/1.2/Thu Jan 17 07:39:00 2019//Tnetbsd-11 /t12.in/1.1/Fri Aug 24 11:41:16 2018//Tnetbsd-11 /t12.out/1.1/Fri Aug 24 11:41:16 2018//Tnetbsd-11 /t13.in/1.1/Fri Aug 24 11:41:16 2018//Tnetbsd-11 /t13.out/1.1/Fri Aug 24 11:41:16 2018//Tnetbsd-11 /t14.in/1.1/Mon Nov 19 04:12:22 2018//Tnetbsd-11 /t14.out/1.1/Mon Nov 19 04:12:22 2018//Tnetbsd-11 /t15.in/1.1/Tue Nov 20 01:06:46 2018//Tnetbsd-11 /t15.out/1.1/Tue Nov 20 01:06:46 2018//Tnetbsd-11 /t16.in/1.1/Thu Feb 11 09:23:55 2021//Tnetbsd-11 /t16.out/1.1/Thu Feb 11 09:23:55 2021//Tnetbsd-11 /t17.in/1.1/Thu Feb 11 09:23:55 2021//Tnetbsd-11 /t17.out/1.1/Thu Feb 11 09:23:55 2021//Tnetbsd-11 /t18.in/1.1/Thu Feb 11 09:23:55 2021//Tnetbsd-11 /t18.out/1.1/Thu Feb 11 09:23:55 2021//Tnetbsd-11 /t2.in/1.3/Sat Apr 18 07:48:02 2009//Tnetbsd-11 /t2.out/1.3/Sat Apr 18 07:48:02 2009//Tnetbsd-11 /t3.in/1.3/Sat Apr 18 07:48:02 2009//Tnetbsd-11 /t3.out/1.4/Fri Aug 24 10:04:41 2018//Tnetbsd-11 /t4.in/1.3/Sat Apr 18 07:48:02 2009//Tnetbsd-11 /t4.out/1.3/Sat Apr 18 07:48:02 2009//Tnetbsd-11 /t5.in/1.3/Sat Apr 18 07:48:02 2009//Tnetbsd-11 /t5.out/1.4/Fri Aug 24 10:04:41 2018//Tnetbsd-11 /t6.in/1.3/Sat Apr 18 07:48:02 2009//Tnetbsd-11 /t6.out/1.4/Fri Aug 24 10:04:41 2018//Tnetbsd-11 /t7.in/1.3/Sat Apr 18 07:48:02 2009//Tnetbsd-11 /t7.out/1.3/Sat Apr 18 07:48:02 2009//Tnetbsd-11 /t8.in/1.3/Sat Apr 18 07:48:02 2009//Tnetbsd-11 /t8.out/1.3/Sat Apr 18 07:48:02 2009//Tnetbsd-11 /t9.in/1.3/Sat Apr 18 07:48:03 2009//Tnetbsd-11 /t9.out/1.3/Sat Apr 18 07:48:03 2009//Tnetbsd-11 /test-bigfile/1.6/Fri Dec 14 23:57:22 2018//Tnetbsd-11 /test-simple/1.6/Fri Dec 14 23:57:22 2018//Tnetbsd-11 D/cgi-bin//// D/data//// src/libexec/httpd/testsuite/CVS/Tag010064400011300000175000000000131522207752200174530ustar00srcmastrnetbsdTnetbsd-11 src/libexec/httpd/testsuite/test-simple010075500011300000175000000011501340504154200205530ustar00srcmastrnetbsd#! /bin/sh # $NetBSD: test-simple,v 1.6 2018/12/14 23:57:22 maya Exp $ test="$1"; shift bozohttpd="$1"; shift datadir="$1"; shift curdir="$1"; shift verbose="$1"; shift in="$curdir/$test.in" out="$curdir/$test.out" tmpout="tmp.$test.out" tmperr="tmp.$test.err" if [ "yes" = "$verbose" ]; then echo "Running test $test" else exec 2>"$tmperr" fi bozotestport=11111 ${bozohttpd} "$@" "${datadir}" < "$in" > "$tmpout" if "$curdir/html_cmp" cmp "$out" "$tmpout"; then exit 0 else if [ "yes" = "$verbose" ]; then echo "Failed test $test:" cat "$tmperr" $curdir/html_cmp diff "$out" "$tmpout" fi exit 1 fi src/libexec/httpd/testsuite/Makefile010064400011300000175000000017621401117365300200330ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.14 2021/02/11 09:23:55 mrg Exp $ # $eterna: Makefile,v 1.14 2009/05/22 21:51:39 mrg Exp $ SIMPLETESTS= t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t12 t13 t14 t15 t16 t17 t18 CGITESTS= t11 BIGFILETESTS= partial4000 partial8000 BOZOHTTPD?= ../bozohttpd BOZOHTTPD?= ../debug/bozohttpd-debug WGET?= wget DATA?= $(.CURDIR)/data VERBOSE?= yes .if ${VERBOSE} != "yes" SILENT= @ .else SILENT= .endif all: clean: for a in $(SIMPLETESTS) $(BIGFILETESTS); do \ rm -f tmp.$$a.out tmp.$$a.err; \ done check: check-simple check-cgi check-bigfile check-simple: .for a in $(SIMPLETESTS) ${SILENT}$(.CURDIR)/test-simple "$a" "${BOZOHTTPD}" "${DATA}" "${.CURDIR}" "${VERBOSE}" .endfor check-cgi: .for a in $(CGITESTS) ${SILENT}$(.CURDIR)/test-simple "$a" "${BOZOHTTPD}" "${DATA}" "${.CURDIR}" "${VERBOSE}" -c "${.CURDIR}/cgi-bin" .endfor check-bigfile: .for a in $(BIGFILETESTS) ${SILENT}$(.CURDIR)/test-bigfile "$a" "${BOZOHTTPD}" "${WGET}" "${DATA}" "${VERBOSE}" .endfor .include src/libexec/httpd/testsuite/html_cmp010075500011300000175000000016271337522347600201370ustar00srcmastrnetbsd#! /bin/sh # # $eterna: html_cmp,v 1.9 2011/11/17 22:18:02 mrg Exp $ # # like cmp(1)/diff(1) but compares to files after making their # `Date: ' headers the same, to allow `now' and `then' to work properly. # it also tries to find servername's that might be the local host and # converts those as well.. # # it must be called like `html_cmp cmp|diff file1 file1' *only*. if [ "cmp" = "$1" ]; then cmd="cmp -s" elif [ "diff" = "$1" ]; then cmd="diff -u" else exit 77 fi h=`hostname || uname -n` sedcmd="s/^Date: .*/Date: nowish/; s/^Last-Modified: .*/Last-Modified: nowish/; s/[a-zA-Z0-9-]*\.eterna\.com\.au/$h/g; s/[a-zA-Z0-9-]*\.eterna23\.net/$h/g; s/^Server: .*/^Server: bozotic HTTP server version 5.08/; s/^Content-Length: .*/Content-Length: 223/;" sed -e "$sedcmd" < "$2" > "f1.tmp.$$" sed -e "$sedcmd" < "$3" > "f2.tmp.$$" ${cmd} "f1.tmp.$$" "f2.tmp.$$" rv=$? rm -f "f1.tmp.$$" "f2.tmp.$$" exit $rv src/libexec/httpd/testsuite/t1.in010064400011300000175000000000061117230266200172340ustar00srcmastrnetbsdget / src/libexec/httpd/testsuite/t1.out010064400011300000175000000001101117230266200174310ustar00srcmastrnetbsdHTTP/0.9 200 OK this is the bozohttpd testsuite ./data/index.html file src/libexec/httpd/testsuite/t10.in010064400011300000175000000235451117227624700173420ustar00srcmastrnetbsdGET /xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx HTTP/1.0 src/libexec/httpd/testsuite/t10.out010064400011300000175000000101441404444607400175300ustar00srcmastrnetbsdHTTP/1.0 404 Not Found Content-Type: text/html Content-Length: 4096 Server: bozohttpd/20210403 404 Not Found

404 Not Found

/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxsrc/libexec/httpd/testsuite/t11.in010064400011300000175000000000611304412012200173030ustar00srcmastrnetbsdGET /cgi-bin/echo.bat?&dir+c:\\ HTTP/1.1 Host: src/libexec/httpd/testsuite/t11.out010064400011300000175000000004671342003042400175210ustar00srcmastrnetbsdHTTP/1.1 200 OK Content-Type: text/html Content-Length: 194 Server: bozohttpd/20181215 Allow: GET, HEAD, POST 404 Not Found

404 Not Found

cgi-bin/echo.bat: 
This item has not been found
src/libexec/httpd/testsuite/t12.in010064400011300000175000000000371333776733400173420ustar00srcmastrnetbsdget /nic/update HTTP/1.1 Host: src/libexec/httpd/testsuite/t12.out010064400011300000175000000005011333776733400175370ustar00srcmastrnetbsdHTTP/1.1 404 Not Found Content-Type: text/html Content-Length: 197 Server: bozohttpd/20170201 Allow: GET, HEAD, POST 404 Not Found

404 Not Found

auth-dir/updipv4.pl: 
This item has not been found
src/libexec/httpd/testsuite/t13.in010064400011300000175000000000371333776733400173430ustar00srcmastrnetbsdget /update:all HTTP/1.1 Host: src/libexec/httpd/testsuite/t13.out010064400011300000175000000005001333776733400175370ustar00srcmastrnetbsdHTTP/1.1 404 Not Found Content-Type: text/html Content-Length: 196 Server: bozohttpd/20170201 Allow: GET, HEAD, POST 404 Not Found

404 Not Found

auth-dir/updall.pl: 
This item has not been found
src/libexec/httpd/testsuite/t14.in010064400011300000175000000617251337443404600173470ustar00srcmastrnetbsdGET / HTTP/1.1 Host: LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd LongHeader: abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd src/libexec/httpd/testsuite/t14.out010064400011300000175000000005531337443404600175400ustar00srcmastrnetbsdHTTP/1.1 413 Payload Too Large Content-Type: text/html Content-Length: 239 Server: bozohttpd/20180824 Allow: GET, HEAD, POST 413 Payload Too Large

413 Payload Too Large

/: 
Use smaller requests
space-bird.eterna23.net
src/libexec/httpd/testsuite/t15.in010064400011300000175000000000341337465704600173410ustar00srcmastrnetbsdGET / HTTP/1.1 Host: Host: src/libexec/httpd/testsuite/t15.out010064400011300000175000000005361337465704600175510ustar00srcmastrnetbsdHTTP/1.1 400 Bad Request Content-Type: text/html Content-Length: 224 Server: bozohttpd/20181118 Allow: GET, HEAD, POST 400 Bad Request

400 Bad Request

/: 
The request was not valid
space-bird.eterna23.net
src/libexec/httpd/testsuite/t16.in010064400011300000175000000000251401117365300173240ustar00srcmastrnetbsdGET / HTTP/1.1 n: src/libexec/httpd/testsuite/t16.out010064400011300000175000000005671401117365300175400ustar00srcmastrnetbsdHTTP/1.1 404 Not Found Content-Type: text/html Content-Length: 251 Server: bozohttpd/20201014 Allow: GET, HEAD, POST 404 Not Found

404 Not Found

/: 
This item has not been found
yesterday-when-i-was-mad.eterna23.net
src/libexec/httpd/testsuite/t17.in010064400011300000175000000000101401117365300173170ustar00srcmastrnetbsdGET // src/libexec/httpd/testsuite/t17.out010064400011300000175000000001101401117365300175210ustar00srcmastrnetbsdHTTP/0.9 200 OK this is the bozohttpd testsuite ./data/index.html file src/libexec/httpd/testsuite/t18.in010064400011300000175000000000121401117365300173220ustar00srcmastrnetbsdGET //.. src/libexec/httpd/testsuite/t18.out010064400011300000175000000005501401117365300175320ustar00srcmastrnetbsdHTTP/0.9 403 Forbidden Content-Type: text/html Content-Length: 260 Server: bozohttpd/20201014 403 Forbidden

403 Forbidden

/..: 
Access to this item has been denied
yesterday-when-i-was-mad.eterna23.net
src/libexec/httpd/testsuite/t2.in010064400011300000175000000000171117230266200172370ustar00srcmastrnetbsdGET / HTTP/1.0 src/libexec/httpd/testsuite/t2.out010064400011300000175000000004121117230266200174370ustar00srcmastrnetbsdHTTP/1.0 200 OK Date: Tue, 10 Jul 2001 15:45:36 GMT Server: bozotic HTTP server version 5.08 Accept-Ranges: bytes Last-Modified: Tue, 10 Jul 2001 15:50:43 GMT Content-Type: text/html Content-Length: 55 this is the bozohttpd testsuite ./data/index.html file src/libexec/httpd/testsuite/t3.in010064400011300000175000000000171117230266200172400ustar00srcmastrnetbsdGET / HTTP/1.1 src/libexec/httpd/testsuite/t3.out010064400011300000175000000005541333775407100174610ustar00srcmastrnetbsdHTTP/1.1 400 Bad Request Content-Type: text/html Content-Length: 229 Server: bozotic HTTP server version 5.08 Allow: GET, HEAD, POST 400 Bad Request

400 Bad Request

/: 
The request was not valid
madrugada.eterna.com.au
src/libexec/httpd/testsuite/t4.in010064400011300000175000000000251117230266200172400ustar00srcmastrnetbsdGET / HTTP/1.1 Host: src/libexec/httpd/testsuite/t4.out010064400011300000175000000004351117230266200174460ustar00srcmastrnetbsdHTTP/1.1 200 OK Date: Tue, 10 Jul 2001 15:49:21 GMT Server: bozotic HTTP server version 5.08 Accept-Ranges: bytes Last-Modified: Tue, 10 Jul 2001 15:34:33 GMT Content-Type: text/html Content-Length: 55 Connection: close this is the bozohttpd testsuite ./data/index.html file src/libexec/httpd/testsuite/t5.in010064400011300000175000000001451117230266200172440ustar00srcmastrnetbsdGET /cgi-bin/..M-@M-/..M-@M-/..M-@M-/..M-@M-/..M-@M-/../winnt/system32/cmd.exe?/c+dir+c:\\ HTTP/1.0 src/libexec/httpd/testsuite/t5.out010064400011300000175000000006431333775407100174620ustar00srcmastrnetbsdHTTP/1.0 403 Forbidden Content-Type: text/html Content-Length: 336 Server: bozohttpd/20030206 403 Forbidden

403 Forbidden

/cgi-bin/..M-@M-/..M-@M-/..M-@M-/..M-@M-/..M-@M-/../winnt/system32/cmd.exe: 
Access to this item has been denied
what-time-is-love.eterna.com.au
src/libexec/httpd/testsuite/t6.in010064400011300000175000000002161117230266200172440ustar00srcmastrnetbsdGET /xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx HTTP/1.0 src/libexec/httpd/testsuite/t6.out010064400011300000175000000006511333775407100174620ustar00srcmastrnetbsdHTTP/1.0 404 Not Found Content-Type: text/html Content-Length: 335 Server: bozohttpd/5.15 404 Not Found

404 Not Found

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx: 
This item has not been found
splode.eterna.com.au
src/libexec/httpd/testsuite/t7.in010064400011300000175000000000551117230266200172460ustar00srcmastrnetbsdGET /file HTTP/1.1 Host: Range: bytes=0-63 src/libexec/httpd/testsuite/t7.out010064400011300000175000000005041117230266200174460ustar00srcmastrnetbsdHTTP/1.1 206 Partial Content Date: Sun, 02 Mar 2008 08:52:03 GMT Server: bozohttpd/20060710 Accept-Ranges: bytes Last-Modified: Sun, 02 Mar 2008 08:44:38 GMT Content-Type: text/plain Content-Range: bytes 0-63/64 Content-Length: 64 Connection: close 123456781234567 345678903456789 234567892345678 012345670123456 src/libexec/httpd/testsuite/t8.in010064400011300000175000000000551117230266200172470ustar00srcmastrnetbsdGET /file HTTP/1.1 Host: Range: bytes=0-31 src/libexec/httpd/testsuite/t8.out010064400011300000175000000004441117230266200174520ustar00srcmastrnetbsdHTTP/1.1 206 Partial Content Date: Sun, 02 Mar 2008 08:52:03 GMT Server: bozohttpd/20060710 Accept-Ranges: bytes Last-Modified: Sun, 02 Mar 2008 08:44:38 GMT Content-Type: text/plain Content-Range: bytes 0-31/64 Content-Length: 32 Connection: close 123456781234567 345678903456789 src/libexec/httpd/testsuite/t9.in010064400011300000175000000000561117230266300172520ustar00srcmastrnetbsdGET /file HTTP/1.1 Host: Range: bytes=32-63 src/libexec/httpd/testsuite/t9.out010064400011300000175000000004451117230266300174550ustar00srcmastrnetbsdHTTP/1.1 206 Partial Content Date: Sun, 02 Mar 2008 08:52:03 GMT Server: bozohttpd/20060710 Accept-Ranges: bytes Last-Modified: Sun, 02 Mar 2008 08:44:38 GMT Content-Type: text/plain Content-Range: bytes 32-63/64 Content-Length: 32 Connection: close 234567892345678 012345670123456 src/libexec/httpd/testsuite/cgi-bin004075500011300000175000000000001504273241000176165ustar00srcmastrnetbsdsrc/libexec/httpd/testsuite/cgi-bin/CVS004075500011300000175000000000001504273241000202515ustar00srcmastrnetbsdsrc/libexec/httpd/testsuite/cgi-bin/CVS/Root010064400011300000175000000000441504273241000211710ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/httpd/testsuite/cgi-bin/CVS/Repository010064400011300000175000000000441504273241000224250ustar00srcmastrnetbsdsrc/libexec/httpd/testsuite/cgi-bin src/libexec/httpd/testsuite/cgi-bin/CVS/Entries010064400011300000175000000000621504273241000216570ustar00srcmastrnetbsd/empty/1.1/Tue Jan 31 14:33:54 2017//Tnetbsd-11 D src/libexec/httpd/testsuite/cgi-bin/CVS/Tag010064400011300000175000000000131522207752200207630ustar00srcmastrnetbsdTnetbsd-11 src/libexec/httpd/testsuite/cgi-bin/empty010064400011300000175000000000001304412012200207300ustar00srcmastrnetbsdsrc/libexec/httpd/testsuite/test-bigfile010075500011300000175000000013671340504154200206750ustar00srcmastrnetbsd#! /bin/sh # $NetBSD: test-bigfile,v 1.6 2018/12/14 23:57:22 maya Exp $ test="$1"; shift # partial4000 or partial8000 bozohttpd="$1"; shift wget="$1"; shift datadir="$1"; shift verbose="$1"; shift tmperr="tmp.$test.err" if [ "yes" = "$verbose" ]; then echo "Running test $test" else exec 2>"$tmperr" fi bozotestport=11111 # copy beginning file cp "${datadir}/bigfile.${test}" ./bigfile # fire up bozohttpd ${bozohttpd} -b -b -I ${bozotestport} -n -s -f "$@" "${datadir}" "${host}" & bozopid=$! "${wget}" -c http://localhost:${bozotestport}/bigfile kill -9 $bozopid if cmp ./bigfile "${datadir}/bigfile"; then rm -f ./bigfile exit 0 else rm -f ./bigfile if [ "yes" = "$verbose" ]; then echo "Failed test $test:" cat "$tmperr" fi exit 1 fi src/libexec/httpd/testsuite/data004075500011300000175000000000001504273241000172175ustar00srcmastrnetbsdsrc/libexec/httpd/testsuite/data/CVS004075500011300000175000000000001504273241000176525ustar00srcmastrnetbsdsrc/libexec/httpd/testsuite/data/CVS/Root010064400011300000175000000000441504273241000205720ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/httpd/testsuite/data/CVS/Repository010064400011300000175000000000411504273241000220230ustar00srcmastrnetbsdsrc/libexec/httpd/testsuite/data src/libexec/httpd/testsuite/data/CVS/Entries010064400011300000175000000005231504273241000212620ustar00srcmastrnetbsd/.bzremap/1.1/Fri Aug 24 11:41:16 2018//Tnetbsd-11 /bigfile/1.1.1.1/Sat May 23 02:21:19 2009//Tnetbsd-11 /bigfile.partial4000/1.1.1.1/Sat May 23 02:21:19 2009//Tnetbsd-11 /bigfile.partial8000/1.1.1.1/Sat May 23 02:21:19 2009//Tnetbsd-11 /file/1.3/Thu Nov 5 07:46:10 2009//Tnetbsd-11 /index.html/1.3/Thu Nov 5 07:46:10 2009//Tnetbsd-11 D src/libexec/httpd/testsuite/data/CVS/Tag010064400011300000175000000000131522207752200203640ustar00srcmastrnetbsdTnetbsd-11 src/libexec/httpd/testsuite/data/.bzremap010064400011300000175000000001021333776733400207470ustar00srcmastrnetbsd/nic/update:/auth-dir/updipv4.pl /update\:all:/auth-dir/updall.pl src/libexec/httpd/testsuite/data/bigfile010064400011300000175000000236601120565663700206430ustar00srcmastrnetbsdthis is the big data file. it has to be over 1 page size in length. 0123456789 these lines are all 80 long. this is the second line. 012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 012345678901 this is the seventh line. 12345678901234567890123456789012345678 9012345678901234567890123456789012345678901234567890123456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 7890123456789012345678901234567890123456789012345678901234567890123456789012345 6789012345678901234567890123456789012345678901234567890123456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 456789 this is the 13th line, and there 127 lines in total. 67890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 0123456789012345678901234567890123456789012345678901234567890123456789012345678 901234567890123456789012345 this is the 18th line. 456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 7890123456789012345678901234567890123456789012345678901234567890123456789012345 6789012345678901234567890123456789012345678901234567890123456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 0123456789012345678901234567890123456789012345678901234567890123456789012345678 9012345678901234567890123456789012345678901234567890123456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 78901234567890123456 this is the 31st line. 345678901234567890123456789012345 6789012345678901234567890123456789012345678901234567890123456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 0123456789012345678901234567890123456789012345678901234567890123456789012345678 90123456789012345678901234567890123456789 this is the 38th line. 78901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 7890123456789012345678901234567890123456789012345678901234567890123456789012345 6789012345678901234567890123456789012345678901234567890123456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 012345678901234567890123456 this is the 47th line. 4567890123456789012345678 9012345678901234567890123456789012345678901234567890123456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 789012345678901234567890123456789012345678901234567 50th 7890123456789012345 6789012345678901234567890123456789012345678901234567890123456789012345678901234 56789012 this is the 52nd line. 1234567890123456789012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 3456789012345678901234567890123456789012 54th 1234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 0123456789012345678901234567890123456789012345678901234567890123456789012345678 9012345678901234567890123456789012345678901234567890123456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 7890123456789012345 this is the 60th line. 2345678901234567890123456789012345 6789012345678901234567890123456789012345678901234567890123456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 0123456789012345678901234567890123456789012345678901234567890123456789012345678 9012345678901234567890123456789012345678901234567890123456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 7890123456789012345678901234567890123456789012345678901234567890123456789012345 678901234 this is the 71st line. 12345678901234567890123456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 0123456789012345678901234567890123456789012345678901234567890123456789012345678 9012345678901234567890123456789012345678901234567890123456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 7890123456789012345678901234567 this is the 80th line. 567890123456789012345 6789012345678901234567890123456789012345678901234567890123456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 0123456789012345678901234567890123456789012345678901234567890123456789012345678 9012345678901234567890123456789012345678901234567890123456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 7890123456789012345678901234567890123456789012345678901234567890123456789012345 6789012345678901234567890123456789012345678901234567890123456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 4567890123456 this is the 93th line. 3456789012345678901234567890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 0123456789012345678901234567890123456789012345678901234567890123456789012345678 9012345678901234567890123456789012345678901234567890123456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 7890123456789012345678901234567890123456789012345678901234567890123456789012345 6789012345678901234567890123456 this is the 101st line. 456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 123456789012345678901234567890123456789012345 this is the 106th line. 3456789 0123456789012345678901234567890123456789012345678901234567890123456789012345678 9012345678901234567890123456789012345678901234567890123456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 789012345678901234 110th 4567890123456789012345678901234567890123456789012345 6789012345678901234567890123456789012345678901234567890123456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 34567890123456789012345678 114th 9012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 0123456789012345678901234567890123456789012345678901234567890123456789012345678 9012345678901234567890123456789012345678901234567890123456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 7890123456789012345678901234567890123456789012345678901234567890123456789012345 67890123 this is the 121st line. 12345678901234567890123456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 this is the last line. this is the end of the file. there is no more. good bye. src/libexec/httpd/testsuite/data/bigfile.partial4000010064400011300000175000000076401120565663700226020ustar00srcmastrnetbsdthis is the big data file. it has to be over 1 page size in length. 0123456789 these lines are all 80 long. this is the second line. 012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 012345678901 this is the seventh line. 12345678901234567890123456789012345678 9012345678901234567890123456789012345678901234567890123456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 7890123456789012345678901234567890123456789012345678901234567890123456789012345 6789012345678901234567890123456789012345678901234567890123456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 456789 this is the 13th line, and there 127 lines in total. 67890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 0123456789012345678901234567890123456789012345678901234567890123456789012345678 901234567890123456789012345 this is the 18th line. 456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 7890123456789012345678901234567890123456789012345678901234567890123456789012345 6789012345678901234567890123456789012345678901234567890123456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 0123456789012345678901234567890123456789012345678901234567890123456789012345678 9012345678901234567890123456789012345678901234567890123456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 78901234567890123456 this is the 31st line. 345678901234567890123456789012345 6789012345678901234567890123456789012345678901234567890123456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 0123456789012345678901234567890123456789012345678901234567890123456789012345678 90123456789012345678901234567890123456789 this is the 38th line. 78901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 7890123456789012345678901234567890123456789012345678901234567890123456789012345 6789012345678901234567890123456789012345678901234567890123456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 012345678901234567890123456 this is the 47th line. 4567890123456789012345678 9012345678901234567890123456789012345678901234567890123456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 789012345678901234567890123456789012345678901234567 50th 7890123456789012345 src/libexec/httpd/testsuite/data/bigfile.partial8000010064400011300000175000000175001120565663700226020ustar00srcmastrnetbsdthis is the big data file. it has to be over 1 page size in length. 0123456789 these lines are all 80 long. this is the second line. 012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 012345678901 this is the seventh line. 12345678901234567890123456789012345678 9012345678901234567890123456789012345678901234567890123456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 7890123456789012345678901234567890123456789012345678901234567890123456789012345 6789012345678901234567890123456789012345678901234567890123456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 456789 this is the 13th line, and there 127 lines in total. 67890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 0123456789012345678901234567890123456789012345678901234567890123456789012345678 901234567890123456789012345 this is the 18th line. 456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 7890123456789012345678901234567890123456789012345678901234567890123456789012345 6789012345678901234567890123456789012345678901234567890123456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 0123456789012345678901234567890123456789012345678901234567890123456789012345678 9012345678901234567890123456789012345678901234567890123456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 78901234567890123456 this is the 31st line. 345678901234567890123456789012345 6789012345678901234567890123456789012345678901234567890123456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 0123456789012345678901234567890123456789012345678901234567890123456789012345678 90123456789012345678901234567890123456789 this is the 38th line. 78901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 7890123456789012345678901234567890123456789012345678901234567890123456789012345 6789012345678901234567890123456789012345678901234567890123456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 012345678901234567890123456 this is the 47th line. 4567890123456789012345678 9012345678901234567890123456789012345678901234567890123456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 789012345678901234567890123456789012345678901234567 50th 7890123456789012345 6789012345678901234567890123456789012345678901234567890123456789012345678901234 56789012 this is the 52nd line. 1234567890123456789012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 3456789012345678901234567890123456789012 54th 1234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 0123456789012345678901234567890123456789012345678901234567890123456789012345678 9012345678901234567890123456789012345678901234567890123456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 7890123456789012345 this is the 60th line. 2345678901234567890123456789012345 6789012345678901234567890123456789012345678901234567890123456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 0123456789012345678901234567890123456789012345678901234567890123456789012345678 9012345678901234567890123456789012345678901234567890123456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 7890123456789012345678901234567890123456789012345678901234567890123456789012345 678901234 this is the 71st line. 12345678901234567890123456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 0123456789012345678901234567890123456789012345678901234567890123456789012345678 9012345678901234567890123456789012345678901234567890123456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 7890123456789012345678901234567 this is the 80th line. 567890123456789012345 6789012345678901234567890123456789012345678901234567890123456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 4567890123456789012345678901234567890123456789012345678901234567890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 0123456789012345678901234567890123456789012345678901234567890123456789012345678 9012345678901234567890123456789012345678901234567890123456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 7890123456789012345678901234567890123456789012345678901234567890123456789012345 6789012345678901234567890123456789012345678901234567890123456789012345678901234 5678901234567890123456789012345678901234567890123456789012345678901234567890123 4567890123456 this is the 93th line. 3456789012345678901234567890123456789012 3456789012345678901234567890123456789012345678901234567890123456789012345678901 2345678901234567890123456789012345678901234567890123456789012345678901234567890 1234567890123456789012345678901234567890123456789012345678901234567890123456789 0123456789012345678901234567890123456789012345678901234567890123456789012345678 9012345678901234567890123456789012345678901234567890123456789012345678901234567 8901234567890123456789012345678901234567890123456789012345678901234567890123456 7890123456789012345678901234567890123456789012345678901234567890123456789012345 src/libexec/httpd/testsuite/data/file010064400011300000175000000001001127450130200201210ustar00srcmastrnetbsd123456781234567 345678903456789 234567892345678 012345670123456 src/libexec/httpd/testsuite/data/index.html010064400011300000175000000000671127450130200212700ustar00srcmastrnetbsdthis is the bozohttpd testsuite ./data/index.html file src/libexec/identd004075500011300000175000000000001504273241000144015ustar00srcmastrnetbsdsrc/libexec/identd/CVS004075500011300000175000000000001504273241000150345ustar00srcmastrnetbsdsrc/libexec/identd/CVS/Root010064400011300000175000000000441504273241000157540ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/identd/CVS/Repository010064400011300000175000000000231504273241000172050ustar00srcmastrnetbsdsrc/libexec/identd src/libexec/identd/CVS/Entries010064400011300000175000000005411504273241000164440ustar00srcmastrnetbsd/Makefile/1.20/Sat Jun 3 08:52:54 2023//Tnetbsd-11 /identd.8/1.22/Mon Dec 12 10:07:48 2016//Tnetbsd-11 /identd.c/1.38/Sun Dec 5 05:03:05 2021//Tnetbsd-11 /identd.h/1.11/Sat Dec 10 05:43:11 2016//Tnetbsd-11 /ipf.c/1.4/Thu Dec 13 13:11:28 2018//Tnetbsd-11 /npf.c/1.2/Sat Dec 10 22:09:18 2016//Tnetbsd-11 /pf.c/1.3/Sat Dec 10 05:43:11 2016//Tnetbsd-11 D src/libexec/identd/CVS/Tag010064400011300000175000000000131522207752200155460ustar00srcmastrnetbsdTnetbsd-11 src/libexec/identd/Makefile010064400011300000175000000010431443657754600161420ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.20 2023/06/03 08:52:54 lukem Exp $ .include PROG= identd SRCS= identd.c MAN= identd.8 # Build with IP Filter support? .if (${MKIPFILTER} != "no") SRCS+= ipf.c CPPFLAGS+=-DWITH_IPF .endif # Build with pf support? .if (${MKPF} != "no") SRCS+= pf.c CPPFLAGS+=-DWITH_PF .endif # Build with npf support? .if (${MKNPF} != "no") SRCS+= npf.c CPPFLAGS+=-DWITH_NPF LDADD+=-lnpf DPADD+=${LIBNPF} .endif # XXX COPTS+= -fno-strict-aliasing CWARNFLAGS.gcc+= ${CC_WNO_ADDRESS_OF_PACKED_MEMBER} .include src/libexec/identd/identd.8010064400011300000175000000125511302347336400160300ustar00srcmastrnetbsd.\" $NetBSD: identd.8,v 1.22 2016/12/12 10:07:48 wiz Exp $ .\" .\" This software is in the public domain. .\" Written by Peter Postma .\" .Dd December 9, 2016 .Dt IDENTD 8 .Os .Sh NAME .Nm identd .Nd TCP/IP Ident protocol server .Sh SYNOPSIS .Nm .Op Fl 46beIilNnr .Op Fl a Ar address .Op Fl c Ar charset .Op Fl F Ar format .Op Fl f Ar username .Op Fl g Ar uid .Op Fl L Ar username .Op Fl m Ar filter .Op Fl o Ar osname .Op Fl P Ar address .Op Fl p Ar portno .Op Fl t Ar seconds .Op Fl u Ar uid .Sh DESCRIPTION .Nm is a TCP/IP server which implements the user identification protocol as specified in RFC 1413. .Pp .Nm operates by looking up specific TCP/IP connections and returning information which may or may not be associated with the process owning the connection. .Pp The following options are available: .Bl -tag -width XXusernameXX .It Fl 4 Bind to IPv4 addresses only (valid with flag .Fl b ) . .It Fl 6 Bind to IPv6 addresses only (valid with flag .Fl b ) . .It Fl a Ar address Bind to the specified .Ar address . This may be an IPv4 or IPv6 address or even a hostname. If a hostname is specified then .Nm will resolve it to an address (or addresses) and will bind this address (valid with flag .Fl b ) . .It Fl b Run in the background (as daemon). .It Fl c Ar charset Specify an optional character set designator to be included in replies. .Ar charset should be a valid charset set as described in the .Tn MIME RFC in upper case characters. .It Fl e Return .Dq UNKNOWN-ERROR instead of the usual .Dq NO-USER or .Dq INVALID-PORT error replies. .It Fl F Ar format Specify the format to display info. The allowed format specifiers are: .Bd -literal %u print user name %U print user number %g print (primary) group name %G print (primary) group number %l print list of all groups by name %L print list of all groups by number .Ed .Pp The lists of groups (%l, %L) are comma-separated, and start with the primary group which is not repeated. Any other characters (preceded by %, and those not preceded by it) are printed literally. .It Fl f Ar username Specify a fall back .Ar username . If the lookup fails then this username will be returned. This can be useful for when running this service on a NAT host and not using the forward/proxy functionality. .It Fl g Ar gid Specify the group id number or name which the server should switch to after binding itself to the TCP/IP port. .It Fl I Same as .Fl i but without the restriction that the username in .Pa .ident must not match an existing user. .It Fl i If the .Pa .ident file exists in the home directory of the identified user, return the username found in that file instead of the real username. If the username found in .Pa .ident is that of an existing user, then the real username will be returned. .It Fl L Ar username Specify a .Dq lie .Ar username . .Nm will return this name for all valid ident requests. .It Fl l Use .Xr syslogd 8 for logging purposes. .It Fl m Ar filter Enables forwarding of ident queries. The .Ar filter argument specifies which packet filter should be used to lookup the connections, currently .Sq ipfilter , .Sq npf , and .Sq pf are supported packet filters. Note that .Nm changes the ident queries to use the local port on the NAT host instead of the local port on the forwarding host. This is needed because otherwise we can't do a lookup on the proxy host. On the proxy host, .Dq proxy mode should be enabled with the .Fl P flag or .Dq lying mode with the .Fl L flag. .It Fl N Enable .Pa .noident files. If this file exists in the home directory of the identified user then return .Dq HIDDEN-USER instead of the normal USERID response. .It Fl n Return numeric user IDs instead of usernames. .It Fl o Ar osname Return .Ar osname instead of the default .Dq UNIX . .It Fl P Ar address Specify a proxy server which will be used to receive proxied ident queries from. See also the .Fl m flag how this operates. .It Fl p Ar portno Specify an alternative port number under which the server should run. The default is port 113 (valid with flag .Fl b ) . .It Fl r Return a random name of alphanumeric characters. If the .Fl n flag is also enabled then a random number will be returned. .It Fl t Ar seconds Specify a timeout for the service. The default timeout is 30 seconds. .It Fl u Ar uid Specify the user id number or name to which the server should switch after binding itself to the TCP/IP port. .El .Sh FILES .Pa /etc/inetd.conf .Sh EXAMPLES .Nm operates from .Xr inetd 8 or as standalone daemon. Put the following lines into .Xr inetd.conf 5 to enable .Nm as an IPv4 and IPv6 service via inetd: .Pp ident stream tcp nowait nobody /usr/libexec/identd identd -l .Pp ident stream tcp6 nowait nobody /usr/libexec/identd identd -l .Pp To run .Nm as standalone daemon, use the .Fl b flag. .Sh SEE ALSO .Xr inetd.conf 5 , .Xr inetd 8 .Sh AUTHORS This implementation of .Nm is written by .An Peter Postma .Aq peter@NetBSD.org . .Sh CAVEATS Since .Nm should typically not be run as a privileged user or group, .Pa .ident files for use when running with the .Fl I or .Fl i flags will need to be world accessible. The same applies for .Pa .noident files when running with the .Fl N flag. .Pp When forwarding is enabled with the .Fl m flag then .Nm will need access to either .Pa /dev/ipnat (ipfilter), .Pa /dev/pf (pf), or .Pa /dev/npf . Since it's not a good idea to run .Nm under root, you'll need to adjust group owner/permissions to the device(s) and run .Nm under that group. src/libexec/identd/identd.c010064400011300000175000000625011415304401100160670ustar00srcmastrnetbsd/* $NetBSD: identd.c,v 1.38 2021/12/05 05:03:05 msaitoh Exp $ */ /* * identd.c - TCP/IP Ident protocol server. * * This software is in the public domain. * Written by Peter Postma */ #include __RCSID("$NetBSD: identd.c,v 1.38 2021/12/05 05:03:05 msaitoh Exp $"); #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "identd.h" #define OPSYS_NAME "UNIX" #define IDENT_SERVICE "auth" #define TIMEOUT 30 /* seconds */ static int idhandle(int, const char *, const char *, const char *, const char *, struct sockaddr *, int); static void idparse(int, int, int, const char *, const char *, const char *); static void iderror(int, int, int, const char *); static const char *gethost(struct sockaddr *); static int *socketsetup(const char *, const char *, int); static int ident_getuid(struct sockaddr_storage *, socklen_t, struct sockaddr *, uid_t *); static int sysctl_getuid(struct sockaddr_storage *, socklen_t, uid_t *); static int sysctl_proxy_getuid(struct sockaddr_storage *, struct sockaddr *, uid_t *); static int forward(int, struct sockaddr *, int, int, int); static int check_noident(const char *); static int check_userident(const char *, char *, size_t); static void random_string(char *, size_t); static int change_format(const char *, struct passwd *, char *, size_t); __dead static void timeout_handler(int); __dead static void fatal(const char *); __dead static void die(const char *, ...) __printflike(1, 2); static int bflag, dflag, eflag, fflag, iflag, Iflag; static int lflag, Lflag, nflag, Nflag, rflag; /* NAT lookup function pointer. */ typedef int (*nat_lookup_t)(const struct sockaddr_storage *, struct sockaddr_storage *, in_port_t *); static nat_lookup_t nat_lookup; /* Packet filters. */ static const struct { const char *name; nat_lookup_t fn; } filters[] = { #ifdef WITH_PF { "pf", pf_natlookup }, #endif #ifdef WITH_IPF { "ipfilter", ipf_natlookup }, #endif #ifdef WITH_NPF { "npf", npf_natlookup }, #endif { NULL, NULL } }; int main(int argc, char *argv[]) { int IPv4or6, ch, error, i, *socks, timeout; const char *filter, *osname, *portno, *proxy; char *address, *charset, *fmt, *p; char user[LOGIN_NAME_MAX]; struct addrinfo *ai, hints; struct sockaddr *proxy_addr; struct group *grp; struct passwd *pw; gid_t gid; uid_t uid; socks = NULL; IPv4or6 = AF_UNSPEC; osname = OPSYS_NAME; portno = IDENT_SERVICE; timeout = TIMEOUT; nat_lookup = NULL; proxy_addr = NULL; filter = proxy = NULL; address = charset = fmt = NULL; uid = gid = 0; bflag = dflag = eflag = fflag = iflag = Iflag = 0; lflag = Lflag = nflag = Nflag = rflag = 0; /* Started from a tty? then run as daemon. */ if (isatty(STDIN_FILENO)) bflag = 1; /* Parse command line arguments. */ while ((ch = getopt(argc, argv, "46a:bcdeF:f:g:IiL:lm:Nno:P:p:rt:u:")) != -1) { switch (ch) { case '4': IPv4or6 = AF_INET; break; case '6': IPv4or6 = AF_INET6; break; case 'a': address = optarg; break; case 'b': bflag = 1; break; case 'c': charset = optarg; break; case 'd': dflag++; break; case 'e': eflag = 1; break; case 'F': fmt = optarg; break; case 'f': fflag = 1; (void)strlcpy(user, optarg, sizeof(user)); break; case 'g': gid = (gid_t)strtol(optarg, &p, 0); if (*p != '\0') { if ((grp = getgrnam(optarg)) != NULL) gid = grp->gr_gid; else die("No such group `%s'", optarg); } break; case 'I': Iflag = 1; /* FALLTHROUGH */ case 'i': iflag = 1; break; case 'L': Lflag = 1; (void)strlcpy(user, optarg, sizeof(user)); break; case 'l': if (!lflag) openlog("identd", LOG_PID, LOG_DAEMON); lflag = 1; break; case 'm': filter = optarg; break; case 'N': Nflag = 1; break; case 'n': nflag = 1; break; case 'o': osname = optarg; break; case 'P': proxy = optarg; break; case 'p': portno = optarg; break; case 'r': rflag = 1; break; case 't': timeout = (int)strtol(optarg, &p, 0); if (*p != '\0' || timeout < 1) die("Invalid timeout value `%s'", optarg); break; case 'u': uid = (uid_t)strtol(optarg, &p, 0); if (*p != '\0') { if ((pw = getpwnam(optarg)) != NULL) { uid = pw->pw_uid; gid = pw->pw_gid; } else die("No such user `%s'", optarg); } break; default: exit(EXIT_FAILURE); } } /* Verify proxy address, if enabled. */ if (proxy != NULL) { (void)memset(&hints, 0, sizeof(hints)); hints.ai_family = IPv4or6; hints.ai_socktype = SOCK_STREAM; error = getaddrinfo(proxy, NULL, &hints, &ai); if (error != 0) die("Bad proxy `%s': %s", proxy, gai_strerror(error)); if (ai->ai_next != NULL) die("Bad proxy `%s': resolves to multiple addresses", proxy); proxy_addr = ai->ai_addr; } /* Verify filter, if enabled. */ if (filter != NULL) { for (i = 0; filters[i].name != NULL; i++) { if (strcasecmp(filter, filters[i].name) == 0) { nat_lookup = filters[i].fn; break; } } if (nat_lookup == NULL) die("Packet filter `%s' is not supported", filter); } /* Setup sockets when running in the background. */ if (bflag) socks = socketsetup(address, portno, IPv4or6); /* Switch to another uid/gid? */ if (gid && setgid(gid) == -1) die("Failed to set GID to `%d': %s", gid, strerror(errno)); if (uid && setuid(uid) == -1) die("Failed to set UID to `%d': %s", uid, strerror(errno)); /* * When running as daemon: daemonize, setup pollfds and go into * the mainloop. Otherwise, just read the input from stdin and * let inetd handle the sockets. */ if (bflag) { int fd, nfds, rv; struct pollfd *rfds; if (!dflag && daemon(0, 0) < 0) die("daemon: %s", strerror(errno)); rfds = malloc(*socks * sizeof(struct pollfd)); if (rfds == NULL) fatal("malloc"); nfds = *socks; for (i = 0; i < nfds; i++) { rfds[i].fd = socks[i+1]; rfds[i].events = POLLIN; rfds[i].revents = 0; } /* Mainloop for daemon. */ for (;;) { rv = poll(rfds, nfds, INFTIM); if (rv < 0) { if (errno == EINTR) continue; fatal("poll"); } for (i = 0; i < nfds; i++) { if (rfds[i].revents & POLLIN) { fd = accept(rfds[i].fd, NULL, NULL); if (fd < 0) { maybe_syslog(LOG_ERR, "accept: %m"); continue; } switch (fork()) { case -1: /* error */ maybe_syslog(LOG_ERR, "fork: %m"); (void)sleep(1); break; case 0: /* child */ (void)idhandle(fd, charset, fmt, osname, user, proxy_addr, timeout); _exit(EXIT_SUCCESS); default: /* parent */ (void)signal(SIGCHLD, SIG_IGN); (void)close(fd); } } } } } else (void)idhandle(STDIN_FILENO, charset, fmt, osname, user, proxy_addr, timeout); return 0; } /* * Handle a request on the ident port. Returns 0 on success or 1 on * failure. The return values are currently ignored. */ static int idhandle(int fd, const char *charset, const char *fmt, const char *osname, const char *user, struct sockaddr *proxy, int timeout) { struct sockaddr_storage ss[2]; char userbuf[LOGIN_NAME_MAX]; /* actual user name (or numeric uid) */ char idbuf[LOGIN_NAME_MAX]; /* name to be used in response */ char buf[BUFSIZ], *p; struct passwd *pw; int lport, fport; socklen_t len; uid_t uid; ssize_t n; size_t qlen; lport = fport = 0; (void)strlcpy(idbuf, user, sizeof(idbuf)); (void)signal(SIGALRM, timeout_handler); (void)alarm(timeout); /* Get foreign internet address. */ len = sizeof(ss[0]); if (getpeername(fd, (struct sockaddr *)&ss[0], &len) < 0) fatal("getpeername"); maybe_syslog(LOG_INFO, "Connection from %s", gethost((struct sockaddr *)&ss[0])); /* Get local internet address. */ len = sizeof(ss[1]); if (getsockname(fd, (struct sockaddr *)&ss[1], &len) < 0) fatal("getsockname"); /* Be sure to have the same address families. */ if (ss[0].ss_family != ss[1].ss_family) { maybe_syslog(LOG_ERR, "Different foreign/local address family"); return 1; } /* Receive data from the client. */ qlen = 0; for (;;) { if ((n = recv(fd, &buf[qlen], sizeof(buf) - qlen, 0)) < 0) { fatal("recv"); } else if (n == 0) { maybe_syslog(LOG_NOTICE, "recv: EOF"); iderror(fd, 0, 0, "UNKNOWN-ERROR"); return 1; } /* * 1413 is not clear on what to do if data follows the first * CRLF before we respond. We do not consider the query * complete until we get a CRLF _at the end of the buffer_. */ qlen += n; if (qlen >= sizeof(buf)) { maybe_syslog(LOG_NOTICE, "recv: message too long"); exit(0); } if ((qlen >= 2) && (buf[qlen - 2] == '\r') && (buf[qlen - 1] == '\n')) break; } buf[qlen - 2] = '\0'; /* Get local and remote ports from the received data. */ p = buf; while (*p != '\0' && isspace((unsigned char)*p)) p++; if ((p = strtok(p, " \t,")) != NULL) { lport = atoi(p); if ((p = strtok(NULL, " \t,")) != NULL) fport = atoi(p); } /* Are the ports valid? */ if (lport < 1 || lport > 65535 || fport < 1 || fport > 65535) { maybe_syslog(LOG_NOTICE, "Invalid port(s): %d, %d from %s", lport, fport, gethost((struct sockaddr *)&ss[0])); iderror(fd, 0, 0, eflag ? "UNKNOWN-ERROR" : "INVALID-PORT"); return 1; } /* If there is a 'lie' user enabled, then handle it now and stop. */ if (Lflag) { maybe_syslog(LOG_NOTICE, "Lying with name %s to %s", idbuf, gethost((struct sockaddr *)&ss[0])); idparse(fd, lport, fport, charset, osname, idbuf); return 0; } /* Protocol dependent stuff. */ switch (ss[0].ss_family) { case AF_INET: satosin(&ss[0])->sin_port = htons(fport); satosin(&ss[1])->sin_port = htons(lport); break; case AF_INET6: satosin6(&ss[0])->sin6_port = htons(fport); satosin6(&ss[1])->sin6_port = htons(lport); break; default: maybe_syslog(LOG_ERR, "Unsupported protocol (no. %d)", ss[0].ss_family); return 1; } /* Try to get the UID of the connection owner using sysctl. */ if (ident_getuid(ss, sizeof(ss), proxy, &uid) == -1) { /* Lookup failed, try to forward if enabled. */ if (nat_lookup != NULL) { struct sockaddr_storage nat_addr; in_port_t nat_lport; (void)memset(&nat_addr, 0, sizeof(nat_addr)); if ((*nat_lookup)(ss, &nat_addr, &nat_lport) && forward(fd, (struct sockaddr *)&nat_addr, nat_lport, fport, lport)) { maybe_syslog(LOG_INFO, "Successfully forwarded the request to %s", gethost((struct sockaddr *)&nat_addr)); return 0; } } /* Fall back to a default name? */ if (fflag) { maybe_syslog(LOG_NOTICE, "Using fallback name %s to %s", idbuf, gethost((struct sockaddr *)&ss[0])); idparse(fd, lport, fport, charset, osname, idbuf); return 0; } maybe_syslog(LOG_ERR, "Lookup failed, returning error to %s", gethost((struct sockaddr *)&ss[0])); iderror(fd, lport, fport, eflag ? "UNKNOWN-ERROR" : "NO-USER"); return 1; } /* Fill in userbuf with user name if possible, else numeric UID. */ if ((pw = getpwuid(uid)) == NULL) { maybe_syslog(LOG_ERR, "Couldn't map uid (%u) to name", uid); (void)snprintf(userbuf, sizeof(userbuf), "%u", uid); } else { maybe_syslog(LOG_INFO, "Successful lookup: %d, %d: %s for %s", lport, fport, pw->pw_name, gethost((struct sockaddr *)&ss[0])); (void)strlcpy(userbuf, pw->pw_name, sizeof(userbuf)); } /* No ident enabled? */ if (Nflag && pw && check_noident(pw->pw_dir)) { maybe_syslog(LOG_NOTICE, "Returning HIDDEN-USER for user %s" " to %s", pw->pw_name, gethost((struct sockaddr *)&ss[0])); iderror(fd, lport, fport, "HIDDEN-USER"); return 1; } /* User ident enabled? */ if (iflag && pw && check_userident(pw->pw_dir, idbuf, sizeof(idbuf))) { if (!Iflag) { if ((strspn(idbuf, "0123456789") && getpwuid(atoi(idbuf)) != NULL) || (getpwnam(idbuf) != NULL)) { maybe_syslog(LOG_NOTICE, "Ignoring user-specified '%s' for user %s", idbuf, userbuf); (void)strlcpy(idbuf, userbuf, sizeof(idbuf)); } } maybe_syslog(LOG_NOTICE, "Returning user-specified '%s' for user %s to %s", idbuf, userbuf, gethost((struct sockaddr *)&ss[0])); idparse(fd, lport, fport, charset, osname, idbuf); return 0; } /* Send a random message? */ if (rflag) { /* Random number or string? */ if (nflag) (void)snprintf(idbuf, sizeof(idbuf), "%u", (unsigned int)(arc4random() % 65535)); else random_string(idbuf, sizeof(idbuf)); maybe_syslog(LOG_NOTICE, "Returning random '%s' for user %s to %s", idbuf, userbuf, gethost((struct sockaddr *)&ss[0])); idparse(fd, lport, fport, charset, osname, idbuf); return 0; } /* Return numeric user ID? */ if (nflag) (void)snprintf(idbuf, sizeof(idbuf), "%u", uid); else (void)strlcpy(idbuf, userbuf, sizeof(idbuf)); /* * Change the output format? Note that 512 is the maximum * size of the result according to RFC 1413. */ if (fmt && change_format(fmt, pw, buf, 512 + 1)) idparse(fd, lport, fport, charset, osname, buf); else idparse(fd, lport, fport, charset, osname, idbuf); return 0; } /* Send/parse the ident result. */ static void idparse(int fd, int lport, int fport, const char *charset, const char *osname, const char *user) { char *p; if (asprintf(&p, "%d,%d:USERID:%s%s%s:%s\r\n", lport, fport, osname, charset ? "," : "", charset ? charset : "", user) < 0) fatal("asprintf"); if (send(fd, p, strlen(p), 0) < 0) { free(p); fatal("send"); } free(p); } /* Return a specified ident error. */ static void iderror(int fd, int lport, int fport, const char *error) { char *p; if (asprintf(&p, "%d,%d:ERROR:%s\r\n", lport, fport, error) < 0) fatal("asprintf"); if (send(fd, p, strlen(p), 0) < 0) { free(p); fatal("send"); } free(p); } /* Return the IP address of the connecting host. */ static const char * gethost(struct sockaddr *sa) { static char host[NI_MAXHOST]; if (getnameinfo(sa, sa->sa_len, host, sizeof(host), NULL, 0, NI_NUMERICHOST) == 0) return host; return "UNKNOWN"; } /* Setup sockets, for daemon mode. */ static int * socketsetup(const char *address, const char *port, int af) { struct addrinfo hints, *res, *res0; int error, maxs, *s, *socks; const char *cause = NULL; socklen_t y = 1; (void)memset(&hints, 0, sizeof(hints)); hints.ai_flags = AI_PASSIVE; hints.ai_family = af; hints.ai_socktype = SOCK_STREAM; error = getaddrinfo(address, port, &hints, &res0); if (error) { die("getaddrinfo: %s", gai_strerror(error)); /* NOTREACHED */ } /* Count max number of sockets we may open. */ for (maxs = 0, res = res0; res != NULL; res = res->ai_next) maxs++; socks = malloc((maxs + 1) * sizeof(int)); if (socks == NULL) { die("malloc: %s", strerror(errno)); /* NOTREACHED */ } *socks = 0; s = socks + 1; for (res = res0; res != NULL; res = res->ai_next) { *s = socket(res->ai_family, res->ai_socktype, res->ai_protocol); if (*s < 0) { cause = "socket"; continue; } (void)setsockopt(*s, SOL_SOCKET, SO_REUSEADDR, &y, sizeof(y)); if (bind(*s, res->ai_addr, res->ai_addrlen) < 0) { cause = "bind"; (void)close(*s); continue; } if (listen(*s, 5) < 0) { cause = "listen"; (void)close(*s); continue; } *socks = *socks + 1; s++; } if (*socks == 0) { free(socks); die("%s: %s", cause, strerror(errno)); /* NOTREACHED */ } if (res0) freeaddrinfo(res0); return socks; } /* UID lookup wrapper. */ static int ident_getuid(struct sockaddr_storage *ss, socklen_t len, struct sockaddr *proxy, uid_t *uid) { int rc; rc = sysctl_getuid(ss, len, uid); if (rc == -1 && proxy != NULL) rc = sysctl_proxy_getuid(ss, proxy, uid); return rc; } /* Try to get the UID of the connection owner using sysctl. */ static int sysctl_getuid(struct sockaddr_storage *ss, socklen_t len, uid_t *uid) { int mib[4]; uid_t myuid; size_t uidlen; uidlen = sizeof(myuid); mib[0] = CTL_NET; mib[1] = ss->ss_family; mib[2] = IPPROTO_TCP; mib[3] = TCPCTL_IDENT; if (sysctl(mib, sizeof(mib)/ sizeof(int), &myuid, &uidlen, ss, len) < 0) return -1; *uid = myuid; return 0; } /* Try to get the UID of the connection owner using sysctl (proxy version). */ static int sysctl_proxy_getuid(struct sockaddr_storage *ss, struct sockaddr *proxy, uid_t *uid) { struct sockaddr_storage new[2]; int rc, name[CTL_MAXNAME]; size_t i; struct kinfo_pcb *kp; size_t sz, len; const char *list; rc = -1; sz = CTL_MAXNAME; list = NULL; /* Retrieve a list of sockets. */ switch (ss[0].ss_family) { case AF_INET: /* We only accept queries from the proxy. */ if (in_hosteq(satosin(&ss[0])->sin_addr, satosin(proxy)->sin_addr)) list = "net.inet.tcp.pcblist"; break; case AF_INET6: /* We only accept queries from the proxy. */ if (IN6_ARE_ADDR_EQUAL(&satosin6(&ss[0])->sin6_addr, &satosin6(proxy)->sin6_addr)) list = "net.inet6.tcp.pcblist"; break; default: maybe_syslog(LOG_ERR, "Unsupported protocol for proxy (no. %d)", ss[0].ss_family); } if (list != NULL) rc = sysctlnametomib(list, &name[0], &sz); if (rc == -1) return -1; len = sz; name[len++] = PCB_ALL; name[len++] = 0; name[len++] = sizeof(struct kinfo_pcb); name[len++] = INT_MAX; kp = NULL; sz = 0; do { rc = sysctl(&name[0], len, kp, &sz, NULL, 0); if (rc == -1 && errno != ENOMEM) return -1; if (kp == NULL) { kp = malloc(sz); rc = -1; } if (kp == NULL) return -1; } while (rc == -1); rc = -1; /* * Walk through the list of sockets and try to find a match. * We don't know who has sent the query (we only know that the * proxy has forwarded to us) so just try to match the ports and * the local address. */ for (i = 0; i < sz / sizeof(struct kinfo_pcb); i++) { switch (ss[0].ss_family) { case AF_INET: /* Foreign and local ports must match. */ if (satosin(&ss[0])->sin_port != satosin(&kp[i].ki_src)->sin_port) continue; if (satosin(&ss[1])->sin_port != satosin(&kp[i].ki_dst)->sin_port) continue; /* Foreign address may not match proxy address. */ if (in_hosteq(satosin(proxy)->sin_addr, satosin(&kp[i].ki_dst)->sin_addr)) continue; /* Local addresses must match. */ if (!in_hosteq(satosin(&ss[1])->sin_addr, satosin(&kp[i].ki_src)->sin_addr)) continue; break; case AF_INET6: /* Foreign and local ports must match. */ if (satosin6(&ss[0])->sin6_port != satosin6(&kp[i].ki_src)->sin6_port) continue; if (satosin6(&ss[1])->sin6_port != satosin6(&kp[i].ki_dst)->sin6_port) continue; /* Foreign address may not match proxy address. */ if (IN6_ARE_ADDR_EQUAL(&satosin6(proxy)->sin6_addr, &satosin6(&kp[i].ki_dst)->sin6_addr)) continue; /* Local addresses must match. */ if (!IN6_ARE_ADDR_EQUAL(&satosin6(&ss[1])->sin6_addr, &satosin6(&kp[i].ki_src)->sin6_addr)) continue; break; } /* * We have found the foreign address, copy it to a new * struct and retrieve the UID of the connection owner. */ (void)memcpy(&new[0], &kp[i].ki_dst, kp[i].ki_dst.sa_len); (void)memcpy(&new[1], &kp[i].ki_src, kp[i].ki_src.sa_len); rc = sysctl_getuid(new, sizeof(new), uid); /* Done. */ break; } free(kp); return rc; } /* Forward ident queries. Returns 1 when successful, or zero if not. */ static int forward(int fd, struct sockaddr *nat_addr, int nat_lport, int fport, int lport) { char buf[BUFSIZ], reply[BUFSIZ], *p; ssize_t n; int sock; /* Connect to the NAT host. */ sock = socket(nat_addr->sa_family, SOCK_STREAM, 0); if (sock < 0) { maybe_syslog(LOG_ERR, "socket: %m"); return 0; } if (connect(sock, nat_addr, nat_addr->sa_len) < 0) { maybe_syslog(LOG_ERR, "Can't connect to %s: %m", gethost(nat_addr)); (void)close(sock); return 0; } /* * Send the ident query to the NAT host, but use as local port * the port of the NAT host. */ (void)snprintf(buf, sizeof(buf), "%d , %d\r\n", fport, nat_lport); if (send(sock, buf, strlen(buf), 0) < 0) { maybe_syslog(LOG_ERR, "send: %m"); (void)close(sock); return 0; } /* Read the reply from the NAT host. */ if ((n = recv(sock, reply, sizeof(reply) - 1, 0)) < 0) { maybe_syslog(LOG_ERR, "recv: %m"); (void)close(sock); return 0; } else if (n == 0) { maybe_syslog(LOG_NOTICE, "recv: EOF"); (void)close(sock); return 0; } reply[n] = '\0'; if (dflag) maybe_syslog(LOG_ERR, "Replied %s", reply); (void)close(sock); /* Extract everything after the port specs from the ident reply. */ for (p = reply; *p != '\0' && *p != ':'; p++) continue; if (*p == '\0' || *++p == '\0') { maybe_syslog(LOG_ERR, "Malformed ident reply from %s", gethost(nat_addr)); return 0; } /* Build reply for the requesting host, use the original local port. */ (void)snprintf(buf, sizeof(buf), "%d,%d:%s", lport, fport, p); /* Send the reply from the NAT host back to the requesting host. */ if (send(fd, buf, strlen(buf), 0) < 0) { maybe_syslog(LOG_ERR, "send: %m"); return 0; } return 1; } /* Check if a .noident file exists in the user home directory. */ static int check_noident(const char *homedir) { struct stat sb; char *path; int ret; if (homedir == NULL) return 0; if (asprintf(&path, "%s/.noident", homedir) < 0) return 0; ret = stat(path, &sb); free(path); return (ret == 0); } /* * Check if a .ident file exists in the user home directory and * return the contents of that file. */ static int check_userident(const char *homedir, char *username, size_t len) { struct stat sb; char *path, *p; ssize_t n; int fd; if (len == 0 || homedir == NULL) return 0; if (asprintf(&path, "%s/.ident", homedir) < 0) return 0; if ((fd = open(path, O_RDONLY|O_NONBLOCK|O_NOFOLLOW, 0)) < 0) { free(path); return 0; } if (fstat(fd, &sb) < 0 || !S_ISREG(sb.st_mode)) { (void)close(fd); free(path); return 0; } if ((n = read(fd, username, len - 1)) < 1) { (void)close(fd); free(path); return 0; } username[n] = '\0'; if ((p = strpbrk(username, "\r\n")) != NULL) *p = '\0'; (void)close(fd); free(path); return 1; } /* Generate a random string. */ static void random_string(char *str, size_t len) { static const char chars[] = "abcdefghijklmnopqrstuvwxyz1234567890"; char *p; if (len == 0) return; for (p = str; len > 1; len--) *p++ = chars[arc4random() % (sizeof(chars) - 1)]; *p = '\0'; } /* Change the output format. */ static int change_format(const char *format, struct passwd *pw, char *dest, size_t len) { struct group *gr; const char *cp; char **gmp; size_t bp; if (len == 0 || ((gr = getgrgid(pw->pw_gid)) == NULL)) return 0; for (bp = 0, cp = format; *cp != '\0' && bp < len - 1; cp++) { if (*cp != '%') { dest[bp++] = *cp; continue; } if (*++cp == '\0') break; switch (*cp) { case 'u': (void)snprintf(&dest[bp], len - bp, "%s", pw->pw_name); break; case 'U': (void)snprintf(&dest[bp], len - bp, "%d", pw->pw_uid); break; case 'g': (void)snprintf(&dest[bp], len - bp, "%s", gr->gr_name); break; case 'G': (void)snprintf(&dest[bp], len - bp, "%d", gr->gr_gid); break; case 'l': (void)snprintf(&dest[bp], len - bp, "%s", gr->gr_name); bp += strlen(&dest[bp]); if (bp >= len) break; setgrent(); while ((gr = getgrent()) != NULL) { if (gr->gr_gid == pw->pw_gid) continue; for (gmp = gr->gr_mem; *gmp && **gmp; gmp++) { if (strcmp(*gmp, pw->pw_name) == 0) { (void)snprintf(&dest[bp], len - bp, ",%s", gr->gr_name); bp += strlen(&dest[bp]); break; } } if (bp >= len) break; } endgrent(); break; case 'L': (void)snprintf(&dest[bp], len - bp, "%u", gr->gr_gid); bp += strlen(&dest[bp]); if (bp >= len) break; setgrent(); while ((gr = getgrent()) != NULL) { if (gr->gr_gid == pw->pw_gid) continue; for (gmp = gr->gr_mem; *gmp && **gmp; gmp++) { if (strcmp(*gmp, pw->pw_name) == 0) { (void)snprintf(&dest[bp], len - bp, ",%u", gr->gr_gid); bp += strlen(&dest[bp]); break; } } if (bp >= len) break; } endgrent(); break; default: dest[bp] = *cp; dest[bp+1] = '\0'; break; } bp += strlen(&dest[bp]); } dest[bp] = '\0'; return 1; } /* Just exit when we caught SIGALRM. */ static void timeout_handler(int __unused s) { maybe_syslog(LOG_INFO, "Timeout for request, closing connection..."); exit(EXIT_FAILURE); } /* Report error message string through syslog and quit. */ static void fatal(const char *func) { maybe_syslog(LOG_ERR, "%s: %m", func); exit(EXIT_FAILURE); } /* * Report an error through syslog and/or stderr and quit. Only used when * running identd in the background and when it isn't a daemon yet. */ static void die(const char *message, ...) { va_list ap; if (bflag) { va_start(ap, message); vwarnx(message, ap); va_end(ap); } if (lflag) { va_start(ap, message); vsyslog(LOG_ERR, message, ap); va_end(ap); } exit(EXIT_FAILURE); } /* Log using syslog, but only if enabled with the -l flag. */ void maybe_syslog(int priority, const char *message, ...) { va_list ap; if (lflag) { va_start(ap, message); vsyslog(priority, message, ap); va_end(ap); } } src/libexec/identd/identd.h010064400011300000175000000017001302271275700161030ustar00srcmastrnetbsd/* $NetBSD: identd.h,v 1.11 2016/12/10 05:43:11 christos Exp $ */ /* * identd.h - TCP/IP Ident protocol server. * * This software is in the public domain. * Written by Peter Postma */ #ifndef _IDENTD_H_ #define _IDENTD_H_ #define satosin(sa) ((struct sockaddr_in *)(sa)) #define satosin6(sa) ((struct sockaddr_in6 *)(sa)) #define csatosin(sa) ((const struct sockaddr_in *)(sa)) #define csatosin6(sa) ((const struct sockaddr_in6 *)(sa)) #define in_hosteq(s,t) ((s).s_addr == (t).s_addr) void maybe_syslog(int, const char *, ...) __sysloglike(2, 3); #ifdef WITH_PF int pf_natlookup(const struct sockaddr_storage *, struct sockaddr_storage *, in_port_t *); #endif #ifdef WITH_IPF int ipf_natlookup(const struct sockaddr_storage *, struct sockaddr_storage *, in_port_t *); #endif #ifdef WITH_NPF int npf_natlookup(const struct sockaddr_storage *, struct sockaddr_storage *, in_port_t *); #endif #endif /* !_IDENTD_H_ */ src/libexec/identd/ipf.c010064400011300000175000000047611340445520000154060ustar00srcmastrnetbsd/* $NetBSD: ipf.c,v 1.4 2018/12/13 13:11:28 sborrill Exp $ */ /* * ipf.c - NAT lookup code for IP Filter. * * This software is in the public domain. * Written by Peter Postma */ #include __RCSID("$NetBSD: ipf.c,v 1.4 2018/12/13 13:11:28 sborrill Exp $"); #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "identd.h" int ipf_natlookup(const struct sockaddr_storage *ss, struct sockaddr_storage *nat_addr, in_port_t *nat_lport) { natlookup_t nl; ipfobj_t obj; int dev; (void)memset(&obj, 0, sizeof(obj)); (void)memset(&nl, 0, sizeof(nl)); /* Build the ipf object description structure. */ obj.ipfo_rev = IPFILTER_VERSION; obj.ipfo_size = sizeof(nl); obj.ipfo_ptr = &nl; obj.ipfo_type = IPFOBJ_NATLOOKUP; /* Build the ipf natlook structure. */ switch (ss[0].ss_family) { case AF_INET: (void)memcpy(&nl.nl_realip, &csatosin(&ss[0])->sin_addr, sizeof(struct in_addr)); (void)memcpy(&nl.nl_outip, &csatosin(&ss[1])->sin_addr, sizeof(struct in_addr)); nl.nl_realport = ntohs(csatosin(&ss[0])->sin_port); nl.nl_outport = ntohs(csatosin(&ss[1])->sin_port); nl.nl_flags = IPN_TCP | IPN_IN; nl.nl_v = 4; /* IPv4 */ break; case AF_INET6: /* XXX IP Filter doesn't support IPv6 NAT yet. */ default: maybe_syslog(LOG_ERR, "Unsupported protocol for NAT lookup " "(no. %d)", ss[0].ss_family); return 0; } /* Open the NAT device and do the lookup. */ if ((dev = open(IPNAT_NAME, O_RDONLY)) == -1) { maybe_syslog(LOG_ERR, "Cannot open %s: %m", IPNAT_NAME); return 0; } if (ioctl(dev, SIOCGNATL, &obj) == -1) { maybe_syslog(LOG_ERR, "NAT lookup failure: %m"); (void)close(dev); return 0; } (void)close(dev); /* * Put the originating address into nat_addr and fill * the port with the ident port, 113. */ switch (ss[0].ss_family) { case AF_INET: (void)memcpy(&satosin(nat_addr)->sin_addr, &nl.nl_inip, sizeof(struct in_addr)); satosin(nat_addr)->sin_port = htons(113); satosin(nat_addr)->sin_len = sizeof(struct sockaddr_in); satosin(nat_addr)->sin_family = AF_INET; break; case AF_INET6: break; } /* Put the originating port into nat_lport. */ *nat_lport = nl.nl_inport; return 1; } src/libexec/identd/npf.c010064400011300000175000000071371302307641600154200ustar00srcmastrnetbsd/* $NetBSD: npf.c,v 1.2 2016/12/10 22:09:18 christos Exp $ */ /*- * Copyright (c) 2016 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Christos Zoulas. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include __RCSID("$NetBSD: npf.c,v 1.2 2016/12/10 22:09:18 christos Exp $"); #include #include #include #include #include #include #include #include #include #include #include #include #include "identd.h" int npf_natlookup(const struct sockaddr_storage *ss, struct sockaddr_storage *nat_addr, in_port_t *nat_lport) { npf_addr_t *addr[2]; in_port_t port[2]; int dev, af; /* copy the source into nat_addr so it is writable */ memcpy(nat_addr, &ss[0], sizeof(ss[0])); switch (af = ss[0].ss_family) { case AF_INET: addr[0] = (void *)&satosin(nat_addr)->sin_addr; addr[1] = __UNCONST(&csatosin(&ss[1])->sin_addr); port[0] = csatosin(&ss[0])->sin_port; port[1] = csatosin(&ss[1])->sin_port; break; case AF_INET6: addr[0] = (void *)&satosin6(&nat_addr)->sin6_addr; addr[1] = __UNCONST(&csatosin6(&ss[0])->sin6_addr); port[0] = csatosin6(&ss[0])->sin6_port; port[1] = csatosin6(&ss[1])->sin6_port; break; default: errno = EAFNOSUPPORT; maybe_syslog(LOG_ERR, "NAT lookup for %d: %m" , af); return 0; } /* Open the /dev/pf device and do the lookup. */ if ((dev = open("/dev/npf", O_RDWR)) == -1) { maybe_syslog(LOG_ERR, "Cannot open /dev/npf: %m"); return 0; } if (npf_nat_lookup(dev, af, addr, port, IPPROTO_TCP, PFIL_OUT) == -1) { maybe_syslog(LOG_ERR, "NAT lookup failure: %m"); (void)close(dev); return 0; } (void)close(dev); /* * The originating address is already set into nat_addr so fill * in the rest, family, port (ident), len.... */ switch (af) { case AF_INET: satosin(nat_addr)->sin_port = htons(113); satosin(nat_addr)->sin_len = sizeof(struct sockaddr_in); satosin(nat_addr)->sin_family = AF_INET; break; case AF_INET6: satosin6(nat_addr)->sin6_port = htons(113); satosin6(nat_addr)->sin6_len = sizeof(struct sockaddr_in6); satosin6(nat_addr)->sin6_family = AF_INET6; break; } /* Put the originating port into nat_lport. */ *nat_lport = ntohs(port[0]); return 1; } src/libexec/identd/pf.c010064400011300000175000000052331302271275700152410ustar00srcmastrnetbsd/* $NetBSD: pf.c,v 1.3 2016/12/10 05:43:11 christos Exp $ */ /* * pf.c - NAT lookup code for pf. * * This software is in the public domain. * Written by Peter Postma */ #include __RCSID("$NetBSD: pf.c,v 1.3 2016/12/10 05:43:11 christos Exp $"); #include #include #include #include #include #include #include #include #include #include #include #include "identd.h" int pf_natlookup(const struct sockaddr_storage *ss, struct sockaddr_storage *nat_addr, in_port_t *nat_lport) { struct pfioc_natlook nl; int dev; (void)memset(&nl, 0, sizeof(nl)); /* Build the pf natlook structure. */ switch (ss[0].ss_family) { case AF_INET: (void)memcpy(&nl.daddr.v4, &csatosin(&ss[0])->sin_addr, sizeof(struct in_addr)); (void)memcpy(&nl.saddr.v4, &csatosin(&ss[1])->sin_addr, sizeof(struct in_addr)); nl.dport = csatosin(&ss[0])->sin_port; nl.sport = csatosin(&ss[1])->sin_port; nl.af = AF_INET; nl.proto = IPPROTO_TCP; nl.direction = PF_IN; break; case AF_INET6: (void)memcpy(&nl.daddr.v6, &csatosin6(&ss[0])->sin6_addr, sizeof(struct in6_addr)); (void)memcpy(&nl.saddr.v6, &csatosin6(&ss[1])->sin6_addr, sizeof(struct in6_addr)); nl.dport = csatosin6(&ss[0])->sin6_port; nl.sport = csatosin6(&ss[1])->sin6_port; nl.af = AF_INET6; nl.proto = IPPROTO_TCP; nl.direction = PF_IN; break; default: maybe_syslog(LOG_ERR, "Unsupported protocol for NAT lookup " "(no. %d)", ss[0].ss_family); return 0; } /* Open the /dev/pf device and do the lookup. */ if ((dev = open("/dev/pf", O_RDWR)) == -1) { maybe_syslog(LOG_ERR, "Cannot open /dev/pf: %m"); return 0; } if (ioctl(dev, DIOCNATLOOK, &nl) == -1) { maybe_syslog(LOG_ERR, "NAT lookup failure: %m"); (void)close(dev); return 0; } (void)close(dev); /* * Put the originating address into nat_addr and fill * the port with the ident port, 113. */ switch (ss[0].ss_family) { case AF_INET: (void)memcpy(&satosin(nat_addr)->sin_addr, &nl.rsaddr.v4, sizeof(struct in_addr)); satosin(nat_addr)->sin_port = htons(113); satosin(nat_addr)->sin_len = sizeof(struct sockaddr_in); satosin(nat_addr)->sin_family = AF_INET; break; case AF_INET6: (void)memcpy(&satosin6(nat_addr)->sin6_addr, &nl.rsaddr.v6, sizeof(struct in6_addr)); satosin6(nat_addr)->sin6_port = htons(113); satosin6(nat_addr)->sin6_len = sizeof(struct sockaddr_in6); satosin6(nat_addr)->sin6_family = AF_INET6; break; } /* Put the originating port into nat_lport. */ *nat_lport = nl.rsport; return 1; } src/libexec/ld.aout_so004075500011300000175000000000001522207755000152105ustar00srcmastrnetbsdsrc/libexec/ld.aout_so/CVS004075500011300000175000000000001522207755000156435ustar00srcmastrnetbsdsrc/libexec/ld.aout_so/CVS/Root010064400011300000175000000000441504273241000165540ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/ld.aout_so/CVS/Repository010064400011300000175000000000271504273241000200110ustar00srcmastrnetbsdsrc/libexec/ld.aout_so src/libexec/ld.aout_so/CVS/Entries010066400011300000175000000006121522207755000172540ustar00srcmastrnetbsd/Makefile/1.51/Tue Mar 18 18:20:38 2014//Tnetbsd-11 /ld.aout_so.1/1.10/Sat Jan 1 16:34:52 2011//Tnetbsd-11 /ld.so.arm.uue/1.1/Wed Feb 6 20:39:00 2002//Tnetbsd-11 /ld.so.i386.uue/1.2/Sun May 6 20:38:52 2001//Tnetbsd-11 /ld.so.m68k.uue/1.1/Wed Apr 18 11:48:21 2001//Tnetbsd-11 /ld.so.sparc.uue/1.3/Tue Jul 20 10:17:50 2004//Tnetbsd-11 /ld.so.vax.uue/1.2/Sat Jul 26 19:32:08 2003//Tnetbsd-11 D src/libexec/ld.aout_so/CVS/Tag010064400011300000175000000000131522207752200163460ustar00srcmastrnetbsdTnetbsd-11 src/libexec/ld.aout_so/Makefile010064400011300000175000000012311231210716600167130ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.51 2014/03/18 18:20:38 riastradh Exp $ .include # for MKPIC definition .include # for TARGET_ENDIANNESS .if ${MKPIC} != "no" .if (${TARGET_ENDIANNESS} == "1234" && ${MACHINE_CPU} == "arm") \ || ${MACHINE_CPU} == "m68k" UUDECODE_FILES= ld.so.${MACHINE_CPU} .else UUDECODE_FILES= ld.so.${MACHINE_ARCH} .endif .if exists(${UUDECODE_FILES}.uue) FILES= ld.so FILESDIR= /usr/libexec FILESMODE= ${BINMODE} UUDECODE_FILES_RENAME_${UUDECODE_FILES}= ld.so all dependall: ${FILES} ld.so: ${UUDECODE_FILES} .else UUDECODE_FILES= .endif .endif MAN= ld.aout_so.1 .include .include src/libexec/ld.aout_so/ld.aout_so.1010064400011300000175000000155751150765365400174410ustar00srcmastrnetbsd.\" $NetBSD: ld.aout_so.1,v 1.10 2011/01/01 16:34:52 plunky Exp $ .\" .\" Copyright (c) 1998 The NetBSD Foundation, Inc. .\" All rights reserved. .\" .\" This code is derived from software contributed to The NetBSD Foundation .\" by Paul Kranenburg. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" .\" THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS .\" ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED .\" TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR .\" PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS .\" BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR .\" CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF .\" SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS .\" INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN .\" CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) .\" ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE .\" POSSIBILITY OF SUCH DAMAGE. .\" .Dd January 1, 2011 .Dt LD.AOUT_SO 1 .Os .Sh NAME .Nm ld.aout_so .Nd run-time link-editor .Sh DESCRIPTION .Nm is a self-contained, position independent program image providing run-time support for loading and link-editing shared objects into a process' address space. It uses the data structures .Po see .Xr link 5 .Pc contained within dynamically linked programs to determine which shared libraries are needed and loads them at a convenient virtual address using the .Xr mmap 2 system call. .Pp After all shared libraries have been successfully loaded, .Nm proceeds to resolve external references from both the main program and all objects loaded. A mechanism is provided for initialization routines to be called, on a per-object basis, giving a shared object an opportunity to perform any extra set-up, before execution of the program proper begins. .Nm looks for a symbol named .Em .init in each object's symbol table. If present, this symbol is assumed to represent a C-function declared as .Ft void .Fn .init "void" , which is then called. Similarly, a .Ft void .Fn .fini "void" function is called just before an object is unloaded from the process address space as a result of calling .Xr dlclose 3 . Note that while an object's .Em .init is always called, whether the object is loaded automatically at program startup or programmatically by using .Xr dlopen 3 , the .Em .fini function is called only on .Sq last Xr dlclose 3 . .Pp This mechanism is exploited by the system-supplied C++ constructor initialization code located in .Pa /usr/lib/c++rt.o . This file should be included in the list of object-code files passed to .Xr ld 1 when building a shared C++ library. .Pp .Nm is itself a shared object that is initially loaded by the startup module .Em crt0 . Since .Xr a.out 5 formats do not provide easy access to the file header from within a running process, .Em crt0 uses the special symbol .Va _DYNAMIC to determine whether a program is in fact dynamically linked or not. Whenever the linker .Xr ld 1 has relocated this symbol to a location other than 0, .Em crt0 assumes the services of .Nm are needed .Po see .Xr link 5 for details .Pc . .Em crt0 passes control to .Nm rtld Ns 's entry point before the program's .Fn main routine is called. Thus, .Nm can complete the link-editing process before the dynamic program calls upon services of any dynamic library. .Pp To quickly locate the required shared objects in the filesystem, .Nm may use a .Dq hints file, prepared by the .Xr ldconfig 8 utility, in which the full path specification of the shared objects can be looked up by hashing on the 3-tuple .Ao library-name, major-version-number, minor-version-number .Ac Ns \&. .Pp .Nm recognizes a number of environment variables that can be used to modify its behavior as follows: .Pp .\" intentionally not the longest .Bl -tag -width LD_TRACE_LOADED_OBJECTS .It Ev LD_LIBRARY_PATH A colon separated list of directories, overriding the default search path for shared libraries. .It Ev LD_PRELOAD A colon separated list of shared object filenames to be loaded .Em after the main program but .Em before its shared object dependencies. .It Ev LD_WARN_NON_PURE_CODE When set, issue a warning whenever a link-editing operation requires modification of the text segment of some loaded object. This is usually indicative of an incorrectly built library. .It Ev LD_SUPPRESS_WARNINGS When set, no warning messages of any kind are issued. Normally, a warning is given if satisfactorily versioned library could not be found. .It Ev LD_TRACE_LOADED_OBJECTS When set, causes .Nm to exit after loading the shared objects and printing a summary which includes the absolute pathnames of all objects, to standard output. .It Ev LD_TRACE_LOADED_OBJECTS_FMT1 .It Ev LD_TRACE_LOADED_OBJECTS_FMT2 When set, these variables are interpreted as format strings a la .Xr printf 3 to customize the trace output and are used by .Xr ldd 1 Ns 's .Fl f option and allows .Xr ldd 1 to be operated as a filter more conveniently. The following conversions can be used: .Bl -tag -width xxxx .It \&%a The main program's name .Po also known as .Dq __progname .Pc . .It \&%A The value of the environment variable .Ev LD_TRACE_LOADED_OBJECTS_PROGNAME .It \&%o The library name. .It \&%m The library's major version number. .It \&%n The library's minor version number. .It \&%p The full pathname as determined by .Nm rtld Ns 's library search rules. .It \&%x The library's load address. .El .Pp Additionally, .Sy \en and .Sy \et are recognized and have their usual meaning. .It Ev LD_NO_INTERN_SEARCH When set, .Nm does not process any internal search paths that were recorded in the executable. .It Ev LD_NOSTD_PATH When set, do not include a set of built-in standard directory paths for searching. This might be useful when running on a system with a completely non-standard filesystem layout. .El .Sh FILES .Bl -tag -width /var/run/ld.so.hintsXXX -compact .It Pa /var/run/ld.so.hints library location hints built by .Xr ldconfig 8 .El .Sh SEE ALSO .Xr ld 1 , .Xr ld.elf_so 1 , .Xr ld.so 1 , .Xr link 5 , .Xr ldconfig 8 .Sh HISTORY The shared library model employed first appeared in SunOS 4.0. .Sh SECURITY CONSIDERATIONS The environment variables .Ev LD_LIBRARY_PATH and .Ev LD_PRELOAD are not honored when executing in a set-user-ID or set-group-ID environment. This action is taken to prevent malicious substitution of shared object dependencies or interposition of symbols. src/libexec/ld.aout_so/ld.so.arm.uue010064400011300000175000004220540743031214400176010ustar00srcmastrnetbsd$NetBSD: ld.so.arm.uue,v 1.1 2002/02/06 20:39:00 thorpej Exp $ This file was created using the following revisions: ld.h,v 1.2 1998/12/17 23:36:38 pk malloc.c,v 1.7 2000/11/28 06:01:34 mycroft rtld.c,v 1.82 2001/09/20 20:55:29 wiz shlib.c,v 1.18 2000/05/27 06:53:30 matt shlib.h,v 1.1 1998/12/15 23:16:14 pk arm32 specific files: md-static-funcs.c,v 1.1 1997/10/17 21:25:42 mark md.c,v 1.11 1999/02/27 03:34:05 tv md.h,v 1.4 2000/05/28 01:53:05 matt mdprologue.S,v 1.1 1997/10/17 21:25:59 mark begin 755 ld.so MP(\!"P`0`0``,```-"<``-@M```@```````````````-P*#A`-PMZ02P3.(` M,)'E)*"?Y0J@C^`@()_E`B":YP,@@N`8X)_E#N":YP,PCN`/X*#A`_"@X0"< M&^DD$`$`!`````@```#_WRWI.+"-X@0`B^((``OE%`!,XJU$`.L``(OE_^\; MZ```````````#<"@X0#8+>D',-#E!+!,X@'``^+_,`/B!@`#X@#`C.$(X`/B M#L",X1```^(`P(SA(#`#X@/`C.$&`%SC`P``&@`PDN4!,(/@`#""Y0"H&^DD M`%SC^?__"@0`7.,`J!L9]O__ZDQ$7TQ)0E)!4EE?4$%42`!,1%]04D5,3T%$ M``!,1%].3U-41%]0051(````3$1?4U504%)%4U-?5T%23DE.1U,`````3$1? M5T%23E].3TY?4%5215]#3T1%````3$1?3D]?24Y415).7U-%05)#2`!,1%]4 M4D%#15],3T%$141?3T)*14-44P!#86YN;W0@D0T$WBJ*.?Y02P3.(*H(_@+``+Y3`@"^4!8*#A`3!`X@,`4^,``."#\*\; MB3"`&^4`();E"#"8Y0(P@^`(,(CE&("#X@@!&.@#,$C@`%"@XP4`4^$#``#: M`5"%X@@P0^(``%/C^___RC"`&^4`();E"#"8Y100D^4``%7C`D"!X`<```H` M()3E`!"6Y00`H.$!((+@C/__ZPA`A.(!4%7B]___&BR`&^4#`%CC!#.?Q1P@ MEL4#$)K'`""!Q2R`&^4"`%CC\)*?Q1@PEL4)()K'`#""Q>0RG^40();E`Q": MYP`@@>4F1`#KU#*?Y0-0FN<``(7E)D0`Z\@RG^4#0)KG``"$Y29$`.N\,I_E M`W":YP``A^4F1`#KL#*?Y0,@FN<``(+EJ,*?Y8R2G^4,X)KG`""5Y0`PE.4` M$*#C`P!2X0(``!H`,)?E``!3X0````H!$*#C`!".Y0PPFN<`()/E``!2XP4` M``IH,I_E`P":YQ-$`.M@4,,);E!#"-Y0D@FN<``)+E!1"@X04PH.$%(*#A]0$`ZP#`H.$<$)SE"#"1 MY0$P@^((,('E'`"4P@!OE M!("-Y80AG^4"`)KG`#"6Y040H.$!(*#AX`$`ZP#`H.$<$)SE"#"1Y0$P@^(( M,('E'`"\0P#K)#&?Y0,@FN<``(+E``!0XX0)`!L4,9_E%"&? MY0,`FN<"0)KGLD,`ZP``A.4$,9_E`W":YP``E^5C``#K`#"4Y0``4^,#```* M``"7Y=X``.L``*#CLD,`ZP``E^6-`P#K#""6Y0`0E^4(`)+E"#"1Y0`P@.7` M()_E#!"6Y0(`FN<$4)'E`#"0Y10PA>4$()7E``!2XS\```H4,);E`1J@XP<@ MH./_3L/C#T#$XP0`H.&?0P#K`0!PXR$``!I\,)_E"<":YP,0FN<`()SE`0"@ MXYM#`.N(#@$`#````!`````4````&````!P````@````)````"@````L```` M,````#0````X````/````$````!$````2````$P```!0````5````%@```!< M````8````&0```!H````;````'````!T````%`"6Y1`0A>*`0P#K!`"@X0$: MH.,%(*#C=$,`ZP$`<.,%```:/#"?Y0G`FN<#$)KG`""4`()?E``!2XP$PH!,(,(45I`<`ZP@`EN5O0P#K``"@X_"O&^EX```` M)7,Z(&QI8B5S+G-O+B5D+B5D```E4@0)+E01B@X0`0C>4( M()7E0BB@X00@C>6`$)_E`<":YP`@G.4!`*#C!#"#X`XP@^`&$*#A(4,`ZP`` MC>4$`(WE!1"@X00@H.$`,*#A%P$`ZQP0D.4(,)'E`3"#X@@P@>4<`)#E#""0 MY08@@N$,((#E#."5Y0``7N/(__\:"$"4Y0``5..[__\:``"@X_"L&^G4"0$` M:````'P```"`````$````$Q$7U1204-%7TQ/041%1%]/0DI%0U137U!23T=. M04U%``````````!,1%]44D%#15],3T%$141?3T)*14-44U]&350Q``````DM M;"5O+B5M(#T^("5P("@E>"D*`````$Q$7U1204-%7TQ/041%1%]/0DI%0U13 M7T9-5#(`````"25O("@E>"D*````;F]T(&9O=6YD````)7,``"5D```E<``` M#<"@X?#?+>D4T$WB(*.?Y02P3.(*H(_@&#.?Y0!0H.$#`)KGOT(`ZP``4.,T M``OE!#.?!0,PF@W0@#K``!0XRP`"^7L,I\%`S":!RPP M"P7D,I_E`P":YZ]"`.L``%#C,``+Y=0RGP4#,)H',#`+!0``5>/PKQL)#'"5 MY0``5^.D```*`)"7Y3B0"^4<,)7E!""3Y0``4N,%```*'#"2Y0`@DN4@$)/E M`2""X`*0B>`XD`OE!("5Y0``6..`,I\%`X":!S!`&^4$D-?E`0`9XRR0&^4) M0*`1`0#4Y```4..,```*7&*?Y5R2G^4\D`OE)0!0XS\```I<`%#C%0``"DC" MG^4,P)KG6!",X@@PD>4!($/B"""!Y0``4N,%``"J&#"1Y0,`4N$'``"Z_S`` MX@H`4^,$```*6#"4!P$/B","!Y0H`H.,``%SC6#"2I0$`PZ18,(*E5```JA@P MD>4#`%SA=D(`ZU```.J$P9_E#,":YU@0C.((,)'E`2!#X@@@@>4)`*#C``!2 MXR<``*H8,)'E`P!2X20``*KP___J``#4Y0`PH.%N`%#C,P``"@L``,IA`%#C M(P``"@4``,I!`%#C'0``"@H``,H``%#C-P``"@<``.IM`%#C(@``"@0``.IP M`%#C*0``"AL``+IX`%#C*0``"OC`G^4,P)KG6!",X@@PD>4!($/B"""!Y0`` M4N,%``"J&#"1Y0,`4N'/__^Z_S``X@H`4^/,__\*6#"-4__\:\*\;Z=0'`0"$````B````(P```"0````E````)@```"<````H``` M`*0```"H````$````*P````-P*#A\-\MZ0C03>(XH9_E!+!,X@J@C^`P$`OE M+"`+Y0APF^4`8*#A)`"@XP.`H.$*0@#K`%"@X2``H.,'0@#K`$"@X0`PH.,( M,(3E_""?Y0(0FN<`,)'E`$"#Y0@@A.(`(('E%##4Y0"`A.7^,`/B%##$Y0`` M5N,"```*!@"@X?I!`.L```#J!@"@X00`A.48<(3E'%"$Y3"0&^4,D(3E`""@ MXP@@A>4,((7E+)`;Y020A>4$,)OE$#"%Y0(`5^$$`*`!\*\;"0``6.,",*#A M`P``&@`PE^4#`%/C`3J@`P`PH!,@,(7E`#"7Y0<`4^,,,*#3$#"@PQ0PA>48 M((3B!$"2Z``PE.4($)+E(`">Y1S`D>4`,(/@##"#X!@PA>4<`)3E&""4Y0`P ME.4($)+E(,"0Y2C@D>4$`*#A##"#X`XP@^`<,(7E\*\;Z6P$`0"P````#<"@ MX1#8+>D`0*#A'`"4Y02P3.(,(-#E!``2XP4```H,,)3E``"3Y;]!`.L,`)3E MO4$`ZQP`E.6[00#K!`"4Y0``4..X00`;!`"@X;9!`.L0J!OI#<"@X?#?+>DX MT$WB9*.?Y02P3.(*H(_@`#"@XTPP"^4`D*#A`&"9Y51@"^4`@%'B!0``"APP MF.4`()CE(!"3Y0$@@N`"8(;@5&`+Y00PV>4!`!/B*@``"@$PH.-,,`OE``!8 MXPD```H,,Y_E`R":YP`0DN4``%'C!```&A@PF.4(()/E"`"2Y0``4.,!```: M`$"@XP8``.H<,)CE`""8Y2`0D^4!((+@`$""X`0`H.%<00#K`$"-Y50`&^4* M$)GE"""9Y4PP2^)!&*#A0BB@X7T&`.M0``OE``!4XP0`H!&`00`;4'`;Y0`` M5^,4```:B#*?Y0,0FN<"(*#C`""!Y4$``.IX,I_E`R":YP`0DN4``%'C"``` M"E1@&^4`,-;E+P!3XP0```I0,I_E`Q":YPT@H.,`(('E\*\;Z51P&^50<`OE M/#*?Y0,@FN<`0)+E``!4XQ4```H$,)3E``!3XP\```I0`!OE`Q"@X0,``.H! M$('B_R`"X@``4N,&```*`"#1Y0$PT.0#`%+A]___"@`@T>4!,%#E`B!CX``` M4N,"```*"$"4Y0``5./I__\:``!4XP0`H.'PKQL94``;Y000H.$$(*#A2D$` MZP!0H.$!`'7C!```&DPP&^4``%/C"0``"DQ`"^6<___J!0"@X4@02^(@(*#C M0D$`ZR``4.,#```*!0"@X1Y!`.L``*#C\*\;Z4@`&^4@.*#A`SB@X0``4^,& M```*.D$`Z_\\H./_,(/B`P``X$(/4.,"```:.0``ZD(/4.,W```*2``;Y2`X MH.$#.*#A``!3XP@```HL00#K_RR@X_\@@N)!/Z#C`S"#X@(``.`#`%#A!``` M&BD``.I!/Z#C`S"#X@,`4.$E```*2``;Y2`XH.$#.*#A``!3XP@```H:00#K M_RR@X_\@@N)"/Z#C`S"#X@(``.`#`%#A!```&A<``.I"/Z#C`S"#X@,`4.$3 M```*2``;Y2`XH.$#.*#A``!3XP8```H(00#K_SR@X_\P@^(#``#@S`!0XP(` M`!H'``#JS`!0XP4```H%`*#AVD``ZUPPG^4#$)KG3R"@XW/__^H`4(WE/,`; MY41@2^)"`);H!A"!X`!PH.,`8*#CP`"-Z04@H.,",*#C!@"@X0P0@>#Q0`#K M`$"@X0$`=.,'```:!0"@X<1``.ND___JQ`(!`%````"T````*````&P```!$ M`$OB`P"0Z`<@H.,``(3@K4``ZP``4.-4``OEE?__&J`PG^4#()KG`!"2Y0`0 MC>5$`$OB`1"0Z#P0&^4`<*#C`&"@X\``C>D!.J#C$C"#X@<@H.,``(3@#`"` MX,Y``.L!`'#C$P``"@4`H.&B0`#K1!`;Y0$0A.`(,)'E!#"#X`@P@>4$$(WE M/#`;Y41P2^*$`)?H!R""X`,@@N``((WE4``;Y0D0H.$$,*#A"""@X87^_^OP MKQOI!0"@X8Y``.M4`!OE\*\;Z;@```!W87)N:6YG.B!L:6YK(&UA<"!E;G1R M>2!F;W(@)7,@;F]T(&]N(&QI;FL@;6%P(&QI20`#K<*P;Z0@PE>4` M,(SEI""?Y0(@FN<`$)+E"#"%X@,`4>$`P((%'#"5Y0``E>40$)/EB4``ZX!@ MG^4&$)KG`#"1Y1`@D^4%`%+A"```&@%`H.$``)3E!#"0Y0`PA.7@`0#K`#"4 MY1`@D^4%`%+A]___"@8PFN<`0)/E!`"4Y0`@4.)PK!L)$#"0Y04`4^$#```: M!#"0Y00PA.71`0#K!""4Y0``4N+V__\:<*P;Z3C^``!L````O````+````!P M````+FEN:70```!?7VEN:70```W`H.%PW"WII*"?Y02P3.(*H(_@`$"@X0`` M5.,$4*#A!P``"APPE.4,(-/E`@`2XP0`H`%3```+"$"4Y0``5./W__\:`$!5 MX@<```H<,)3E#"#3Y0(`$N,$`*`!-`$`"PA`E.4``%3C]___&@!`5>)PK!L) M/&"?Y3Q0G^4<,)3E#"#3Y0(`$N,%```:!A":YP0`H.%#`0#K!1":YP0`H.%` M`0#K"$"4Y0``5./R__\:<*P;Z0S]``#`````Q````'=A6UB;VP@(B5S(B!I;B`EDHT$WB<*.?Y02P3.(*H(_@`%"@X1PPE>488)/E-&`+ MY1Q@D^4X8`OE&""5Y0!`E>4(X)+E(!"3Y13`GN48()[E%#"3Y3PP"^4!$(3@ M#("!X`(@;.`'(,+C`B"(X#`@"^4T`)[E``!0XP8```H,,Y_E$`">Y0,@FN<` M`(3@`!"@X0$PH./@/P#K,&`;Y08`6.&>```JZ#*?Y0=PB.(#,)KG0#`+Y0!@ MF.5$8`OE&""5Y0`0E>4(`)+E,#"0Y0:0@>```%'C`3J#`@,P@1`#`%GA-P`` M*JQ"G^4`8-?E"``6XPD```H<()7E`S`7Y100DN7_-,/CD0,.X!@`@N(!$)#H M#C"0YP/`C.`!``#J>#*?Y0/`FN<$,)KG`""3Y0``4N,*```*9#*?Y0,@FN<` M$)+E``!1XP4``!H$$)7E4#*?Y40@&^4#`)KG##"@X:8_`.L48-7E`0`6XQ(` M`!H8,)7E`,"5Y0@@D^4P$)+E``!4`,(WE."&?Y4!@&^4"$)KG M`#"6Y0$`H.,,(*#A;#\`ZP@PD.4L(!OE`T"$X```4N,`,)(5`T"$$``@U^6B M,*#A`S`#X@,`4^,!(`+B`@``&@``4N,"```*`P``Z@``4N,!```*`#"5Y01` M8^`(`*#A!!"@X0D@H.$`,*#C!P``Z@@`H.$)$*#A33\`ZP#`E>4)(*#A!#"@ MX0P0@.`(`*#A3S\`ZS!@&^4(<(?B"("(X@8`6.%D__\Z%Y0$`%N/PKQL) M&#"5Y0#`E>4(()/E,!"2Y0``7.,!"J`#``"@$PP`@.`%(*#C\3X`ZP$`<.,' M```:!#"5Y2P`G^5$()_E`,":YP(0FN<`()SE`0"@X^L^`.L4,-7E_C`#XA0P MQ>7PKQOI@/L``,@````0````2````(@```!`````S````-````#4````V``` M``W`H.$PW"WI7*"?Y02P3.(*H(_@5#"?Y0,@FN<`0)+E`%"@X0``5.,PK!L) M$#"4Y0``4^,!```*!0!3X08``!H`()3E!##2Y0<`4^,($)(%#`"4!0P@D@42 M/P`+!$"4Y0``5./P__\:,*P;Z=CW``!P````#<"@X0#8+>D`,*#A!-!-X@2P M3.(0,`OE`0"@X0,0H.$0($OB`3"@XX(``.L``%#C`*@;"1`P&^4($)#E`""3 MY0(`H.$!((+@#^"@X0+PH.$`J!OI#<"@X?#?+>G\H)_E!+!,X@J@C^``8*#A M`,#6Y0;@H.$``*#C`7"@X0*`H.$#D*#A``!4$ M((3E`$"!Y00`H.$`0(7E\*\;Z1#W``#<````<`````W`H.$0W"WIM*"?Y02P M3.(*H(_@`$"@X0`PE.4`P)/E`"#@ MX8`@@N`#("+@`@F@X2`)H.$``%'C]O__&CD0H..>/@#K9#"?Y0,@FN<``:#A M`#"2YP,`5.$$,)0%`#""!PP```H#$*#A"""1Y0``4N,(```*!`!2X0@PE`4( M(),%"""!!0(0H.$(,)'E`R"@X0``4N/V__\:``"4Y5,^`.L$`*#A43X`ZQ"L M&^GX]0``W`````W`H.'PWRWI.-!-XL2CG^4$L$SB"J"/X"P`"^4`P-#E`("@ MXT2`"^4\@`OE,!`+Y30@"^4X,`OE`."@X0@`H.$(`%SA"```"@`PWN4!$/[E M0">@X8`@@N`#("+@`@F@X2`)H.$``%'C]O__&CD0H.-E/@#K8#.?Y0,@FN<` M`9+G``!0XQ<```HLD!OE`.#9Y0`PD.4L$!OE`,"3Y0$@W.0"`%[A!P``&@$P MT>3_(`/B``!2XP8```H!(-SD`##1Y0(`4^'W__\*`"#1Y0$P7.4"(&/@``!2 MXP,```H(`)#E``!0X^G__QH``*#C``!0XP0```HT@!OE`#"@XP`PB.4``)#E M\*\;Z=`RG^4#()KG`%"2Y4``"^4``%7CCP``"C20&^4`()GE`'"@XP<`4N$! M```*`@!5X84``!HP@!OE"#!5X`$PH!,``%+C`#"@$P$P`P(``%/C`P``"APP ME>4,D-/E"``9XWD```H88)7E"#"6Y20PD^5(,`OE``!3XW,```H<0)7E#(#4 MY0(`&.-O```:+)`;Y0"0V>50D$OE+!`;Y0``H.,``%GA!```"@`PT>4!(/'E M@`"#X```4N/Z__\:2!`;Y0(!P.,./@#K`""5Y0@PEN4@$)3E&,"3Y0$@@N`, M((+@5"`+Y8`QH.$#$)+G`\""X`$`<>-4```*'("4Y5B`"^440(3B4`"4Z$Q` M"^4``%SC(0``"E"06^7_0`GB`#"("<(;@`1"(X`0`4.$'```:`3#1Y/\@`^(``%+C!@``"@$@WN0`,-'E M`@!3X??__PH`(-'E`3!>Y0(@8^```%+C!@``"@0`G.4``%#C`,"@`52`&Q6` MP8@0``!488)7EK?__Z@@@E^4``%+C&@``"@$`4^,+```:!3#7 MY0\P`^("`%/C!```"CR0&^4"`%GA`I"@,3R0"^4/``#J.(`;Y0``6.,,```: M!2#7Y420&^4B(J#A``!9XP`PH!,!,*`#`@!2XP`PH!,!,`,"``!3XQD```I$ M<`OE0%`+Y0A0E>4``%7C;___&D2`&^4``%CC%0``&CR0&^4``%GC"`"@X?"O M&PD!`*#C"1"@X:@]`.L`D(WE!("-Y0`0H.$L`!OE1#`;Y0$@H..=_O_K-)`; MY0"`B>4``)#E\*\;Z32`&^4`4(CE!P"@X?"O&^E`@!OE-)`;Y0"`B>5$`!OE M\*\;Z2CU``#<````;````%]E;F0`````#<"@X?#?+>DDT$WB3**?Y02P3.(* MH(_@,``+Y0"0H.,TD`OE.#*?Y0&`H.$)<*#A`\":YP<1G.<``%'C$```"@`` MH.,`,)'E,)`;Y0@@D^4)`%+A!P``&@``B.4$`(CE`#"1Y0`@D^4(((CE#)"( MY0$`H./PKQOI"!"1Y0``4>/O__\:`7"'XC@`5^/H___:T#&?Y0,@FN<`8)+E M``!6XVP```HL8`OE`)"@XSR0"^4<,);E#)#3Y0(`&>-B```:`#"6Y3"0&^4# M`%GA7@``.I0QG^4#`)KG!A"@X2P@2^(!,*#CRO[_ZP#`EN4(,)#E`S",X`,` M6>%3``"*&#"6Y0@0D^4DD)'E.)`+Y0``6>--```*'#"6Y1B0D^5`D`OE')"3 MY420"^48$)'E(""3Y0(@C.`!((+@3"`+Y10PD^5(,`OE/'!+XH`"E^@)`%?A M.@``JDR0&^6',:#A`R"9YP-0B>`!`'+C,```"@``5>,N```*`#"5Y4#@&^5( MD!OEF>,NX`0PE>4``%/C3)`;%8-!B1`#0*`!!##>Y010H.$!`%/C'P``"BPP M&^4(()[E,)`;Y0`0D^4"P('@"0!.(__\:"&"6Y0``5N.2__\:``"@X_"O M&^D\\0``W````&P```#@````0V%L;"!T;R!B:6YD97(@9G)O;2!U;FMN;W=N M(&QO8V%T:6]N.B`E<`H```!5;F1E9FEN960@(XH9_E!+!,X@J@C^`` M,*#C(#`+Y2@AG^4"$)KG`%"1Y0!@H.$#`%7A#@``"A@PE>4`$)7E"`"3Y1`@ MD.4"$('@!@!1X00``"HT,)#E#S##XP,P@>`#`%;A`@``.@A0E>4``%7C\/__ M&@``5>,$```:T#"?Y0,0FNA4()_E5`"?Y0+`FN<`$)KG`#"EL MT$WB4*&?Y02P3.(*H(_@2#&?Y0,`FN<`$*#C`2"@X3\\`.LX89_E!D":YP`` MA.4!`'#C/P``"H002^)P/`#K``!0XSL``!H8,9_E4!`;Y0-0FN<`$(7E'P!1 MXS4``)K_'H'B#Q"!XO\>P>,/$,'C`!"%Y0`PE.4`,(WE`("@XP!PH..``8WI M`2"@XP(PH.,O/`#K`,"@X0$`?.,E```*Q$"?Y00PFN<`P(/EO""?Y0`0G.4" M`%'A`P``&A@PG.4`$)7E`0!3X0$``)H`$)7E%@``Z@0PG.4!,$/B`0!3XQ(` M`(J(()_E"#"7PK1OI#`"@X0X\`.L&,)KG M*$"?Y0``D^4``%#CV3L`JP0@FN<`,.#C`#""Y?"M&^GX[```[````/````#T M````^````&E(1$S\``````$```0!```-P*#A$-PMZ5B@G^4$L$SB"J"/X%`@ MG^4"0)KG``"4Y0$PD.(!,*`3``!0XP`PH`,!,`,2``!3XQ"L&PDL,)_E`R": MYP`0DN7I.P#K(#"?Y0,@FN<``)+EM3L`ZP`PH.,`,(3E$*P;Z73K``#X```` M]````/`````-P*#A,-PMZ9R@G^4$L$SB"J"/X``PT.4`P*#C`5"@X0)`H.$, M`%/A"0``"O_MH.,_X([B`##0Y0$0\.5,)Z#AC"""X`,@(N`.P`+@``!1X_?_ M_QI4,)_E`R":YP`0DN4$`)'E_^V@XS_@CN),-Z#AC#"#X`4DA>`","/@#L`# MX`$`4.,&```:3">@X8P@@N&$,(3@@S%CX(,Q9.`#("+@#L`"X`P`H.$PK!OI M_.H``/@```!"860@;F%M92!I;F1E>#H@)2-X"@````!"860@<&%T:"!I;F1E M>#H@)2-X"@`````-P*#A\-\MZ1#03>*DH9_E!+!,X@J@C^"<<9_E-'`+Y0=` MFN<`P)3E+``+Y3`0"^4,X)SE`I"@X0-@H.$``*#C``!>X?"O&PDL`!OELO__ MZVAQG^4`,)3E.'`+Y0P0D^4'0)KGHSL`ZP`PE.50(9_E@`"`X`!2@^`"@)KG M-'`;Y0`0E>4',)KG`""3Y10PDN4#`%'A`P``NB@QG^4#`)KG>#L`ZT$``.H$ MX)7E`P!>X08``+H0,9_E`P":YPX0H.%P.P#K.0``Z@(0H.$2``#J`#"8Y2S` M&^4!(-/G``#0#`%#A]___"@`@W.4!,%'E`A!CX```4>,9```:"#"5Y3!P&^4'`%/A M%0``&B@PE>4!`%/C`@``V@PPE>4)`%/A#P``N@``5N,)```*`$"8Y08`H.$. M0(3@=#L`ZP`@H.$&`*#A!!"@X70[`.L``%#C`P``&@`PF.4$`)7E``"#X/"O M&^DL()7E`0!RXP4```HX'!E8W1E9"P@=7-I;F<@ M:70@86YY=V%Y```-P*#A\-\MZ1#03>+XH9_E!+!,X@J@C^`P$`OE[,&?Y010 MF^4,0)KG`!"4Y0"`H.$"<*#A`Y"@X0``4>,!```:KO[_ZP`0E.4!`''C`#"@ M$P$PH`,``%'C`3"#`P``4^-!```:`#"9Y0``4^,^```*G#&?Y0,0FN<`$)'E M`"!5X@$@H!,``%'C`2""$P``4N,N```*``!1XG@QGP4#`)H'`#"@`P$PH!,` M`%7C`#"@`P$P`Q(``%/C7&&?%080FA=0,9\%4&&?!0,0F@<`(%7B0#&?!0,@ MF@<7.P#K`$"@X2Q`"^4&``#J,!`;Y0@`H.$'(*#A!3"@X3G__^L`4%#B.P`` M&@80FN4`,.#C-#`+Y9P@G^4"0)KG``"4Y7,Z M`.L(`*#A,!!+XC0@2^(%,*#A[CH`ZP!0H.$``)3EFSH`ZP``5>,3```*-,`; MY0<`7.$.``"J7#"?Y0,@FN<`$)+E``!1XPD``!H`<(WE2#"?Y3`@&^4#`)KG M"!"@X0PPH.&>.@#K`0``Z@0`H.&#.@#K!0"@X?"O&^D%`*#A\*\;Z?CG``#X M````-````(@````0`0``!`$``$`````4`0``<')E;&]A9#H@;W5T(&]F(&UE M;6]R>0``<')E;&]A9#H@)7,Z(&]U="!O9B!M96UOD$T$WBX*"?Y02P3.(*H(_@ M5SH`ZP!PH.$D<`OE``!7X\@PGP4#$)H'`0"@`WPZ``N\8)_E)```ZA``H..( M.@#K`$!0X@0``!JH,)_E`Q":YP$`H.,%(*#A<3H`ZP4`H.%#.@#K``"$Y0`0 MH.,*$,3E"Q#$Y0@0Q.4$,-3E"1#$Y?XP`^($,,3E!`"@X8;X_^L``%#C!``` M&EPPG^4#$)KG`0"@XP4@H.%=.@#K'!"0Y0@PD>4!,(/B"#"!Y1P`D.4,()#E M""""XPP@@.4&$)KG)`!+XGHZ`.L`4%#BU?__&@<`H.$F.@#K\*P;Z7CE```8 M`0``$`$``!P!```@`0``;&EB`"X```!S;P``#<"@X?#?+>D4T$WB]*&?Y02P M3.(*H(_@-``+Y0%0H.$0.@#K``"%Y0!PH.,*<,7E"W#%Y0APQ>4$,-7E"7#% MY?XP`^($,,7EO"&?Y0(0FN<#(*#C3SH`ZP<`4.'PKQL9``"5Y0,`@.(P``OE M+A"@XU@Z`.L'`%#A\*\;"3``&^5`.@#K,#`;Y0`P@^`!(%/E+@!2X_"O&PD` M@.#C/(`+Y0=@H.%DD9_E.)`+Y30``.H!`%;C"0``"@0``#H"`%;C&P``"@,` M5N,@```*1P``Z@1PH.$I``#J`@"@X1(``.HL,9_E`R":YP$0TN0$`*#A`##0 MY0+`H.$!`%/A!P``&@$PT.3_(`/B``!2X_'__PH!(-SD`##0Y0(`4^'W__\* M`"#0Y0$P7.4"`&/@``!0XQ$``.H$`*#A+!!+X@H@H.,H.@#K`##4Y3P`"^4% M``#J!`"@X2P02^(*(*#C(3H`ZP`PU.4`@*#A``!3XQ\```HL,!OE`"#3Y0`` M4N,;```:`6"&XCB0&^4)$)KG,`!+X@@Z`.L`0%#BQ/__&@``5^,2```*`#"5 MY3`P"^4'`*#AK#D`ZP``A>4P`!OEK3D`ZSR0&^4(D,7E/)`;Y4DTH.$),,7E M"H#%Y4@DH.$+(,7E!##5Y0$P@^,$,,7E\*\;Z0``E>6?.0#K-``;Y9DY`.L` M`(7E\*\;Z63D```D`0``*`$``"P!```-P*#A<-PMZ52AG^4$L$SB"J"/X`%@ MH.$`0%#B"```&D`QG^4#()KG`!"2Y1S`D>4(,)SE`3"#X@@PC.4!`*#C<*P; MZ1``H..\.0#K`%!0X@4``!H0,9_E`Q":YPP@H.,`(('E``"@XW"L&^D$`*#A M!1"@X5O__^OP,)_E`R":YP`0DN4%`*#AOO?_ZP!`4.(*```:V""?Y)< MH)_E!+!,X@J@C^``,*#C%#`+Y0$`4.,!P*#A1#"?!0,@F@<`$)(%`!"@$100 M"Q4,`*#A%"!+X@$PH..W^O_K``!0XP"L&PD4,!OE"`"0Y0``4^,`K!L)`#"3 MY0,`@.``K!OI5.```&P````-P*#A`-PMZ4B@G^4$L$SB"J"/X`(`H.$!`%'C M!0``"C0PG^4#$)KG+2"@XP`@@>4``.#C`*P;Z1PPG^4#$)KG`""1Y0`@@.4` M,*#C`P"@X0`P@>4`K!OIX-\``#`!```N9FEN:0````W`H.$PW"WI1*"?Y02P M3.(*H(_@/#"?Y0,@FN<`0)+E``!4XS"L&PDL4)_E'#"4Y0S`T^4"`!SC!1": M!P0`H`'S^?\+"$"4Y0``5./V__\:,*P;Z7C?``!L````.`$```W`H.$/`"WI M$-@MZ0'<3>(4L$SB!"";Y0$.0#K!`"@X0`Y`.L` M(*#A`0"@XP00H.$<.0#K$*@;Z0``````````#<"@X?#=+>DXH9_E!+!,X@J@ MC^`P@9_E"'":YP!0E^4`8*#A``!5XR$``!H1.0#K`$"@X0!`A^4"":#C!!"@ MX1`Y`.L@`0#K``!0XP$``!H``*#C\*T;Z?`@G^4"()KG`,"2Y0$P1.(#,`S@ M!#"#X@-`5.``,)=%`T"$0```5.,$,(P0`#""%0`PE^4(`*#C``!3X0,``)J` M`*#A`5"%X@``4^'[__^*I#"?Y0,@FN<`4(+E"#":YP``D^4$0$#B!`!6X0@` MH),`4*"3`T#@DP8``)IX,)_E`R":YP!0DN4"``#J@`"PX?"M&PD!4(7B!#"` MX`,`5N'Y__^*5&"?Y09PFN<%0:#A!,"7YP``7.,$```:!0"@X0\``.L$P)?G M``!```\ M`0``0`$``$0!``!(`0``#<"@X?#?+>D$T$WBY*"?Y02P3.(*H(_@+``+Y0$@ MH.,#,(#B$H.@X0``6./PKQO9Q$"?Y00PFN<``)/E``!8X00``*H`<*#A"!"@ MX;8X`.L`8*#A`0``Z@!PB.`"8*#AF""?Y9@0G^4"`)KG`9":YP`PD.4`()GE M`S!BX`,`5^$+``#:!$":YP`0E.4'`*#AI3@`ZP`0E.4`4*#A`@F@XZ$X`.L` M`(7@L```ZP``4./PKQL)`,"9Y0$$4$4R!#!%(@Q0@R```%CC%```"@``4.,( M```*#C":YP#`D^4"$(#B`2"@XQ(!H.$,`%#A!`!`L@0P0*(,`(.@``!7X0`P MH),!,*"#!0!7X0`PH(,!,`.2``!3XP8`H.'PK1L9J___ZP<`H.$/___K`$!0 MX@0`H`'PK1L)!`!6X04```H&`*#A!!"@X0<`5>$%(*`Q!R"@(>HW`.L$`*#A M\*T;Z0S<``!0`0``/`$```W`H.$0W"WI>*"?Y02P3.(*H(_@<#"?Y0#@H.$` M`*#C`T":YP`AE.<`P*#C`3!4%4)KG M,%`+Y0#`E>64!`'#C"```"C"`&^4`,)CE!""`X``@ MA>63!B'@"3":YP`0@^4&`*#A\*\;Z30PG^4#0)KG!`"@X8,W`.L`(*#A`@"@ MXP00H.&?-P#K``"@X_"O&^GXV0``0`$``$P!```\`0``5`$``%@!```````` M`````"]U60,)_E`T":YP!@H.$``)3E`1&@X3D" M`.L``(3E!@"@X10W`.L`()7E`#"4Y0(Q@^`(``/E!@"@X58W`.L,`(#B(`(` MZP`0E>4`,)3E`3&#X`0``^5`()_E`A":YP#`E>4`,)3E##&#X`0`$^4,(*#C M>#<`ZP#`E>4`,)3E##&#X`0`$^4&$*#A=C<`ZW"L&^F@V```7`$``&`!``!D M`0``#<"@X?#?+>FXH)_E!+!,X@J@C^"P@)_E"#":YP`@D^4`4*#C`)"@X0(` M5>'PKQNIF#"?Y0-PFN<`,)?E!0&3YPD0H.%C-P#K``!0XQ<``!H`,)?E!0&3 MY^(V`.L`()?E!4&@X0(@A.`$`)+EW38`ZPA@FN<`();E`C!"X@,`5>$(``"J M`!"7Y0@`A.("(&7@`B!"X@(AH.$``('@!!"!X``W`.L`();E`C!"X@`PAN4( M,)KG`""3Y0%0A>("`%7AW/__NO"O&^G8UP``7`$``&`!```Z````#<"@X3#< M+>D$T$WB2*"?Y02P3.(*H(_@'``+Y0``4.,PK!L)M38`ZP!0H.$<4`OE*$"? MY0```.J(___K!!":YQP`2^(!-P#K``!0X_G__QH%`*#AK38`ZS"L&^G\U@`` M:`$```W`H.$PW"WI!-!-XDB@G^4$L$SB"J"/X!P`"^4``%#C,*P;"9PV`.L` M4*#A'%`+Y2A`G^4```#JH?__ZP00FN<<`$OBZ#8`ZP``4./Y__\:!0"@X90V M`.LPK!OIF-8``&@!```-P*#A,-PMZ2B@G^4$L$SB"J"/X"`PG^4`0*#C`U": MYP0!E>=;___K`4"$X@$`5./Z__^Z,*P;Z3C6``!L`0``#<"@X7#<+>D$T$WB M@*"?Y02P3.(*H(_@(!`+Y0!@H.$`0*#C!%"@X2#`&^4`,-SE``!3XQ0```I8 M()_E+@!3XP$PC`(@,`L%`\"@`0(`FN<`(-SE`!"0Y0$@@N`!,-+E!``3XG"L M&PD,`*#A(!!+X@H@H.._-@#K!`&&YP%0A>('`%7C`4"$XN;__]H$`*#A<*P; MZ?35``!P`0``8VUP;F1E=V5Y.B!C86YT(&AA<'!E;@``#<"@X1#<+>FLH)_E M!+!,X@J@C^``P*#C`>"@X0-`H.$$`%SA`!"@HP$0H+,.`%SA`!"@HP$0`;(, M`%'A#@``"@(0H.$$()#D!#"1Y`,`4N$7``"Z$```R@'`C.($`%SA`#"@HP$P MH+,.`%SA`#"@HP$P`[(``%/C\?__&@0`7N$``*`#$*P;"0X`7.$``.`#$*P; M"00`7.$!```:`0"@XQ"L&^D4,)_E`Q":YP$`H.-/-@#K``#@XQ"L&^E$U0`` M=`$``&QI8B5S````+P```"YS;RX`````<@````W`H.'PWRWIH-!-XC2CG^4$ ML$SB"J"/X(P0"^4`<)'ED"`+Y:1P"^4`<)+EJ'`+Y90P"^4`0*#A4C8`ZP"` MH.$',(CB`S##XPW08^"@T`OE]"*?Y0(0FN<-`*#A!""@X80V`.ODL```K> M``#JE'`;Y0``5N,`,*`3`3"@`P``5^,`,*`#`3`#$@1PB.+$<`OE``!3XQP` M``H'(-3E`C"(X@,`4N$8```:H!`;Y0A0A.(%`*#A"""@X1\V`.L``%#C$0`` M&@0@B.`(,-+E+@!3XPT``!H),-+E80!3XPH``!H4,`,*`#`3`#$@``4^,#```* M!@"@X9LU`.L%8*#A!I"@X-[```*B`!+X@$0 MH.,@(*#C!3"@X0\V`.L@`%#C`@``"@4`H.$/-@#K<0``Z@4`H.$,-@#KB``; MY2`XH.$#.*#A``!3XP@```J&-0#K``B@X2`(H.%"/Z#C`S"#X@,`4.%C```: MB``;Y0,``.I"/Z#C`S"#X@,`4.%=```:(#B@X0,XH.$``%/C60``"G4U`.L` M`%#C5@``JJ1P&^4!`'?C`""@$P$@H`.HP M-0#K`$!0XAS__QJL`!OEGC4`Z[0P&^4``%GC`3"#$P``4^,&`*`1\*\;&2!E>&AA=7-T960`````#<"@X0#<+>D@H)_E!+!,X@J@C^`A-0#K M``!0XP"L&QD,,)_E`Q":YP$`H.,+-0#KL,\``(@!```-P*#A`-PMZ32@G^4$ ML$SB"J"/X```4.,"```:`0"@X1`U`.L```#JD$T$WB!+!,XB@@"^4`@*#A`9"@ MX0HU`.L`4*#A"0"@X0``-P*#A,-PMZ9B@G^4$L$SB"J"/X`=0T.6E,*#A`S`#X@$`4^,*```*`@`` MR@``4^,%```*$0``Z@(`4^,(```*`P!3XP@```H,``#J`$#1Y1```.H`,)'E M`SB@X4-(H.$,``#J`$"1Y0H``.H`,)'E`""0Y0,TH.%#0V+@!0``ZB0PG^4# M$)KG`0"@XS4@H.$#(`+BIS0`ZQ``%>,$`*`!``!D$C"L&^F(S@``C`$```W` MH.$`W"WIJ*"?Y02P3.(*H(_@!\#0Y?\P#.(0`!/C`0"@`0``81*C,*#A`S`# MX@$`4^,"$*#A"@``"@(``,H``%/C!0``"A,``.H"`%/C"```"@,`4^,(```* M#@``Z@``P>4`K!OI``#!Y4`TH.$!,,'E`*P;Z0``@>4`K!OI`""1Y4`QH.'_ M-,/C_R0"X@,@@N$`(('E`*P;Z1@PG^4#$)KGK""@X0$`H.,#(`+B=#0`ZP"L M&^G8S0``C`$```W`H.$`V"WI`A"@X0``4^,(T$WB!+!,XA````H4``OESC*@ MXT\X@^(#.8/B`#"`Y0@0@.5.(J#C42:"XO\J@N($((#E$!"@XQ0P2^($$(/E M``"@XP,0H.&E``#O`*@;Z0$P8.`,,$/B"#"`Y0"H&^D-P*#A`-@MZ0C03>($ ML$SB%``+Y0`@D.4`(('E1S&@XR8T@^(`,(#E!!"@XQ0@2^($$(+E``"@XP(0 MH.&E``#O`*@;Z0W`H.$`V"WI``!1XP2P3.(`J!L)!P"`X@`@T.4@`!+C"``` M"@,$L$SB`*@;"0<`@.(`(-#E1S`"XD8`4^._ M,`("(#"#`P`PP`4(`(#B`1!1XO;__QH`J!OI#<"@X0#8+>D(T$WB!+!,XA0` M"^44,$OB!!"#Y0``H.,#$*#AI0``[P"H&^D```````````W`H.$0V"WI`4"@ MX0@PE.4$L$SB``!3XP0```J%-`#K`#"@XP@PA.4$,(3E$*@;Z00PA.4#`*#A M$*@;Z0W`H.'PV"WI5MY-X@S03>($L$SB8L]+XD3`"^57/DOB##!#X@PP0^)T M,`OE9#`+Y0'KH.-LX`OE8.`+Y0#`H.-E1WTWBO*.?Y02P3.(*H(_@,"$+Y0!`H.-000OE+`$+Y0%0H.$P,)#E M"""3X@,```H(,9+E!`!3X0`PX`,(,8(%+)$;Y0R0V>4(`!GC`P``"BS!&^40 M,)SE``!3XP@``!HL`1OE'30`ZP``4.,$```*'C0`ZPDPH.,`,(#E``#@X_"O M&^DL01OE##"4Y1HP`^(*`%/C!P``&@PPE.4``%/C!```NC`A&^4$`*#A!1"@ MX8/__^OPKQOI](!+XK2`"^4`,*#CK#`+Y;`P"^4T40OE.#$+Y?"2G^54D0OE MJ`!+XH`@H.,#$*#A!#0`ZS3!&^5@P0OE!0``ZC1!&^4%0(3@-$$+Y2@Q&^4E M`%/C0```"E21&^4T$1OE"3":YP`@D^5*#TOBJ#!+XO@S`.L`4%#B\/__RC3! M&^5@01OE!&!`XD0OE M``!5XW@#`-HTP1OE`'"@XSQQ"^4!P(SB-,$+Y41Q"^4`0.#C0$$+Y0>0H.$A MD4OE-,$;Y0%`W.1L00OE-,$+Y6R1&^5H`%GCH@``"C,``,HY`%GC'0``RC$` M6>..``"J*P!9XV,```H-``#*(P!9XU0```H&``#*(`!9XTT```HI`@#J-,$; MY0'`3.(TP0OEP___ZFQ!&^4J`%3C2P``"B$"`.ILD1OE+@!9XU0```H"``#* M+0!9XTP```H:`@#J;,$;Y3``7.-Q```*%@(`ZFQ!&^55`%3C30$`"@0``,I$ M`%3CF0``"D\`5./P```*#0(`ZFR1&^5C`%GCAP``"@(``,I8`%GC:P$`"@8" M`.ILP1OE9`!.L```*;P!9X]0```KP`0#J M;,$;Y70`7.-F```*!```RG$`7.-?```*,(```: M,,$;Y010G.0PP0OE`0!UXP!0X--`40OE??__ZB3*``"0`0``;$$;Y0!0H.,P M,$3B"0!3XPL``(ILD1OE-,$;Y04QA>"#,*#A,#!#X@E0@^`!0-SD;$$+Y33! M"^4P($3B"0!2X_/__YH!`'7C`%#@TT!1"^5J___J`7N'XV3__^H`4*#C;)$; MY33!&^4%,87@@S"@X3`P0^()4(/@`4#5L`%/C`P``&@&0B>(T MD0OE('"'XTG__^H0<(?C1___Z@%\A^-%___J`GR'XT/__^HPP1OE`""@XR$A M2^4$P(SB,,$+Y00P7.4<,4OE1T]+XF!!"^4!D*#C3)$+Y8$!`.H0<(?C@``7 MX_0`2^(+```:`0P7XS!!&Q4$,)04,$$+%1P``!H"#!?C,)$;%00PF10PD0L5 M%P``&B``%^,#```*,,$;Y6``O.@PP0OE$P``ZA``%^,P01L5!#"4%#!!"Q4, M```:0``7XP<```HPD1OE!)")XC"1"^4$,!GE`SB@X4-8H.'%;Z#A!```ZC#! M&^4$,)SD,,$+Y0-0H.'%;Z#A``!6XP,``*H`4'7B`&#FXBTPH.,A,4OE`1"@ MX^$``.J``!?C!0``&@$,%^,-```:`@P7XQP``!H@`!?C!P``"C!!&^4$()3D M,$$+Y3B1&^4)4*#AQ6^@X6``@NC"_O_J$``7XP4```HPP1OE!#"0PD0OE`A"@XP%PA^'T`$OB`E"@X0!@H.-^``#J,$$;Y020E.1@D0OE M,$$+Y0``6>-0,Y\%`S":!V`Q"P5`P1OE``!,I```*`P``.@(`4>,P```*(`&?Y3X``.I< MP1OE!R`%XC`0@N(!$&SEI2&@X5S!"^6&+H+A:"$+Y:91H.%D40OE%DY+XF`` M%.D&D)7A\?__&@$`%^,X```*,`!1XS`PH!,!,&P57,$+%3,``.H&$*#A!0"@ MX0`PH.,*(*#CTS$`ZUS!&^4P`(#B`0!LY5S!"^4`,*#C"B"@XP80H.$%`*#A MSC$`ZP%@H.$`4*#A``!6X^W__XH!```:"0!5X^K__XI<01OE,#"%X@$P9.5< M00OE&0``ZE"1&^5,J``#:_&*?Y1``5>,5``#:$#"@XP0PB.4&()KG M`""(Y;`@2^(,`)+H$#"#XJPP"^4!((+BL"`+Y0<`4N,(@(CB!0``VBP!&^6T M$$OB8/S_ZP``4..E```:](!+XA!01>(0`%7CZ?__R@10B.4&,)KG`#"(Y:P@ M&^6P,!OE!2""X*P@"^4!,(/BL#`+Y0<`4^,(@(CB!0``VBP!&^6T$$OB2_S_ MZP``4..0```:](!+XD1!&^5,D1OE!%!IX```5>,J``#:/&*?Y1``5>,5``#: M$#"@XP0PB.4&()KG`""(Y;`@2^(,`)+H$#"#XJPP"^4!((+BL"`+Y0<`4N,( M@(CB!0``VBP!&^6T$$OB,/S_ZP``4.-U```:](!+XA!01>(0`%7CZ?__R@10 MB.4&,)KG`#"(Y:P@&^6P,!OE!2""X*P@"^4!,(/BL#`+Y0<`4^,(@(CB!0`` MVBP!&^6T$$OB&_S_ZP``4.-@```:](!+XF#!&^4`P(CE3$$;Y01`B.6P($OB M#`"2Z`0P@^"L,`OE`2""XK`@"^4'`%+C"("(X@4``-HL`1OEM!!+X@C\_^L` M`%#C30``&O2`2^($`!?C+0``"CR1&^5(P1OE"5!LX```5>,H``#:+&&?Y1`` M5>,5``#:$#"@XP0PB.4&()KG`""(Y;`@2^(,`)+H$#"#XJPP"^4!((+BL"`+ MY0<`4N,(@(CB!0``VBP!&^6T$$OBZ_O_ZP``4.,P```:](!+XA!01>(0`%7C MZ?__R@10B.4&,)KG`#"(Y:P@&^6P,!OE!2""X*P@"^4!,(/BL#`+Y0<`4^,$ M``#:+`$;Y;002^+7^__K``!0XQP``!HX01OE2)$;Y3S!&^4,`%GA"4"$H`Q` MA+`X00OEK#`;Y0``4^,$```*+`$;Y;002^+(^__K``!0XPT``!H`,*#CL#`+ MY?2`2^);_/_JK#`;Y0``4^,$```*+`$;Y;002^*\^__K``!0XP$``!H`,*#C ML#`+Y2Q!&^4X`1OE#$#4Y4``%.,``.`3\*\;Z:@!``"D`0```````"\``.\. M\*#A``````````!*``#O6S``*@[PH.$`````#<"@X0X`+>D`V"WI$+!,X@00 MF^4(((OB5C``ZUDP`.L8``#O#O"@X0``````````#<"@X?#?+>D(T$WB\*&? MY02P3.(*H(_@`7"@X0$PU^0`D*#A`E"@X3T`4^,!<*`1!P"@X;LO`.LP``OE M+!!+X@D`H.%',`#K`$!0X@T```H``%7C``"@X_"O&PD$`*#AL"\`ZS#`&^4, M`%#A,P``.@$PU^0!,,3D_P`3X_O__QH``*#C\*\;Z7A1G^4%@*#A"#":YP!0 MD^4`()7E!&"@X0``4N,#```*!#"UY0%@AN(``%/C^___&DPQG^4#$)KG`""1 MY0``4N,)```*"$":YP``E.4"$(;B`1&@X>DO`.L``(3E``!0XPX``!H``.#C M\*\;Z0$PH.,`,('E`@"&X@`!H.%[+P#K`%!0XO;__PH(0)KG`!"4Y04`H.$& M(:#AL"\`ZP!0A.4L8`OE"#":YP`@D^4`$*#C!B&"X`00@N7`4)_E`"#9Y0D` MH.$```#J`2#PY3TP4N(!,*`3``!2XP`PH`,!,`,2``!3X_?__QHPP!OE``!I MX`P`@.`"`(#B7"\`ZP40FN0`$,3E_P`1XP8```H`,-3E/0!3XP,```H!,-GD`3#DY?\`$^/X M__\:/3"@XP$PQ.0!(-?D`2#$Y/\`$N,#```*`3#7Y`$PQ.3_`!/C^___&@`` MH./PKQOI!+H``!0```"L`0``#<"@X3#<+>D$T$WB8*"?Y02P3.(*H(_@6#"? MY0-0FN<`0*#A#```ZAPP&^4`$)7E`S&@X0,`@>`$()#E`R"!YP``4N,$```* M!`"`X@0PD.4`,(#E``!3X_K__QH$`*#A'!!+XKLO`.L``%#C[?__&C"L&^GT MMP``%``````````ED` M0*#A``"4Y02P3.(!4*#A``!0XS"H&PD`$*#A`<#0Y`4@H.$`X*#C`3#2Y`P` M4^$%```:``!3XP,`H`$!X$`5``"$Y0$`H.$PJ!OI``!3X_3__QKP___J```A MX`$0(.```"'@@2\`ZAD``.\.\*#A```````````K``#O#O"@X0`````````` M#<"@X0#8+>D`,-'E`""@X0`PPN7_`!/C!+!,X@,```H!,/'E`3#@Y?\`$^/[ M__\:`@"@X0"H&^D```````````W`H.$`V"WI`##0Y0`@H.$``%/C!+!,X@(` M``H!,/+E``!3X_S__QH!,-'D`3#"Y/\`$^/[__\:`*@;Z0`````-P*#A#@`M MZ0#8+>E;WTWB$+!,XEX_2^(T,`OE_R"@XU8@2^55($OE"#"@XU@P2^5D``OE M5``+Y0(@H.-7($OE`C'@XUPP"^50,`OE!!";Y60`2^((((OB/B\`ZV3`&^4` M,*#C`##,Y0"H&^D`````#<"@X0#8+>D``%'C6]]-X@2P3.("P*#A`^"@X14` M`+I>/TOB-#`+Y?\@H.-6($OE52!+Y0@PH.-8,$OE9``+Y50`"^4"(*#C5R!+ MY0$P0>)<,`OE4#`+Y60`2^(,$*#A#B"@X1\O`.MDP!OE`#"@XP`PS.4`J!OI MZBX`ZQ8PH.,`,(#E``#@XP"H&^D`````#<"@X3#8+>D$L$SB`%"@X0%`H.$P M,)3E"""3X@,```H(,9+E``!3XP`PX`,(,8(%&#"4Y0@PA.4,P-3E"``,`,*`3`3"@`P``6>,!,(,#``!3XPT```HP`%3C"P``&C3` M&^4`(-SE6`!2XP`PH!,!,*`#>`!2XP$P@P,``%/C`4#<%1"0H!,"P(P2-,`+ M%0``6>,"```:,`!4XPJ0H!,(D*`#.,`;Y0D0H.$``%SC`H'@`P*!H!,(`*#A MYRT`ZP!PH.$(`*#A"1"@X1LN`.LXP!OE`("@X0``7.,#```*``!7XP=P:<`! M@(C"`'!GX@!0H.,%8*#A+0``Z@D`5.$Z``"J``!6XR8``+HXP!OE``!`TP!OE`4#D` MW"WI(*"?Y12P3.(*H(_@&`"?Y000F^4``)KG"""+XE@`@.(E+@#K`0``ZC2Q M``"H`````*P;Z0W`H.'PW"WI9-!-XC2AG^4$L$SB"J"/X`!@H.$!`*#AA!!+ MXB,N`.L`0%#B`0``&@``H./PK!OI(BX`ZP!04.+Z__\*A!`;Y08`H.%M+Z#C M`B""XC,M`.L`8%#B-0``NH1P6^4$`!?C%0``"@8`H.&`$$OB8RT`ZP$`<.,& M```:T"T`ZP!`D.4&`*#A"2T`Z\PM`.L`0(#E)@``ZG@P&^4/.@/B`@E3XP4` M``H&`*#A`"T`Z\,M`.M/,*#C`#"`Y1P``.I&-*#A#S#%Y40DH.$-(,7E<#"? MY0,@FN4<4(7E5""?Y0+`FNF(H)_E!+!,X@J@C^``8*#A`7"@ MX8TM`.MT,)_E=""?Y0"`D.4#,)KG`D":Y[!0@^*N+0#K`""@X04`H.$$$*#A MKBT`ZP``5N,'```*!0"@X080H.$'(*#AK"T`ZS@PG^4#$)KG!0"@X:0M`.LL M,)_E`T":YP@`H.&X+0#K`""@X04`H.$$$*#AG"T`Z_"M&^F(KP``J````,@! M``#,`0``T`$````````-P*#A#P`MZ0#8+>D4L$SB!`";Y0@0B^*J+0#K`*@; MZ0W`H.$.`"WI`-@MZ1"P3.($$)OE"""+XJ8M`.MY+0#K#<"@X7#8+>D$L$SB M`&"@X>@L`.L!4(#B!0"@X=DL`.L`0%#B!0``"@0`H.$&$*#A!2"@X0\M`.L$ M`*#A<*@;Z00`H.%PJ!OI```````````-P*#A\-LMZ0&`H.$"D*#AF`D7X`30 M3>($L$SB`U"@X08``!H'`*#A\*L;Z2C`&^4($*#A#`!GX(8M`.OPJQOI!""5 MY0``4N,`,*"S!#"%M0,@H+$H<`OE`&"@X0)`H.$$`%?A#P``F@`0E>4&`*#A M!""@X>LL`.L`,)7E!#"#X``PA>4%`*#A=BT`ZP1@AN`'<&3@``!0X^/__QH$ M0)7E!`!7X>___XH`$)7E!@"@X0<@H.';+`#K#`"5Z`,P9^`$,(7E"0"@X0<@ M@N``((7E\*L;Z0```````````````"5S.B``````.B```"5S"@`-P*#A`-@M MZ9"@G^4$L$SB"J"/X`"0H.$!8*#A`G"@X0`M`.MX,)_E>""?Y0"`D.4#,)KG M`D":Y[!0@^(A+0#K`""@X04`H.$$$*#A(2T`ZP``5N,'```*!0"@X080H.$' M(*#A'RT`ZSPPG^4#$)KG!0"@X14!0%3B!```2@A@A>(/X*#A!/&6YP%`5.+[ M__]:`%"5Y0``5>/T__\:(#"?Y0,@FN<`()+E``!2XP_@H!$"\*`1!P"@X>G$H)_E!+!,X@J@C^``0*#A`7"@X0)@H.%U+`#K MK#"?Y0"`D.4#`)KG`!"@X]`L`.N<,)_E`R":YP`0DN4`4*#A`0!4X0X``"J( M,)_E`Q":YP#`D>4$(*#A`C&D!VTWB!-!-XN"AG^4$L$SB"J"/X`!P4.)P```*`##7 MY0``4^-M```*!P"@X2\0H./)*P#K``!0XP(```H'`*#A;P``Z_"L&^F/+`#K M``!0XP0``!J8,9_E`P":YS8K`.L`0%#B`0``&H@QG^4#0)KGA#&?Y0,`FN4Z,%+B`3"@ M$P``4N,`,*`#`3`#$@``4^/%__\:`#"@XP`PP.5"3DOB!$!$X@0`H.$3``#K M`,"@X0$`?.,)```:!3"@X0$@T^0``%+C`U"@$0`0U>4$`*#A``!1X[+__QH` M`.#C\*P;Z0P`H.'PK!OI[*D```0"```(`@``#`(``!`"```-P*#A\-@MZ0`0 MH.-LT$WB!+!,XO\J`.L`4*#A`0!UX_"H&PD%`*#A?!!+XC$K`.L``%#C`P`` M"@4`H.'9*@#K``#@X_"H&^D`4(WE2!`;Y0!PH.,`8*#CP`"-Z0$@H.,",*#A M]RH`ZP!`H.$%`*#AS"H`ZP$`=.,$```:2!`;Y00`H.'W*@#K``#@X_"H&^D` M`)3EYRH`ZW8PX.-W.$/B`P!0X00```I($!OE!`"@X>PJ`.L``.#C\*@;Z0@` MH.,$*P#K``!0XP!`@!5(,!L5!#"`%?"H&QE($!OE!`"@X>`J`.L``.#C\*@; MZ0`````-P*#A\-LMZ0S03>($L$SB*!`+Y2P@"^4P,`OE`0!PXPX``!IG*P#K M"3"@XP`P@.4P`!OE\*L;Z1``F>7!*@#K"#"8Y0!`H.$#`*#AO2H`ZQ1`A.($ M0(G@``"$X/"K&^D`D)#E!`"9Y;8J`.L`8*#C`5!`X@4`5N$4<(GB,```R@4P MAN"C/X/@PT"@X80@A.`"(:#A!P"2YP>`@N"I*@#K*,`;Y0PP8.```%/C(``` M&@P`F>6C*@#K"""8Y0`PH.$4,(/B`W")X`(`H.&=*@#K!""8Y0!@H.$"`*#A MF2H`ZP``AN`!4$#B!0!6X10``,H%,(;@HS^#X,-`H.&$((3@`B&@X0<`DN<' M@(+@C2H`ZRS`&^4,,&#@``!3X\7__PH!4$2R`6"$H@4`5N'O___:`P``Z@%0 M1+(!8(2B!0!6X<[__]H?*P#K4S"@XP`P@.4P`!OE\*L;Z0``````````#<"@ MX1#8+>D$L$SB`$"@X0$`=.,$```:$BL`ZPDPH.,`,(#E!`"@X1"H&^D``%3C M`P``"@,`E.AV*@#K!`"@X5@J`.L``*#C$*@;Z0````!@&"#@_QC!XV`$H.$A M!"#@#O"@X0```````````````$EL;&5G86P@8GET92!S97%U96YC90```%9A M;'5E('1O;R!L87)G92!T;R!B92!S=&]R960@:6X@9&%T82!T>7!E````3F\@ M;65S2!N;W0@2!L:6YK0``26YA<'!R;W!R:6%T M92!I;V-T;"!F;W(@9&5V:6-E``!4;V\@;6%N>2!O<&5N(&9I;&5S`%1O;R!M M86YY(&]P96X@9FEL97,@:6X@0``3F]T(&$@9&ER96-T;W)Y`$]P97)A=&EO;B!N M;W0@&ES=',`1&5V:6-E(&)U7-T96T@8V%L;`!.;R!S=6-H('!R;V-E0```$]P97)A=&EO;B!N;W0@<&5R;6ET=&5D`%5N9&5F:6YE M9"!ED``%+C!+!,X@"H&PD`P*#A`0``Z@$@4N(`J!L)`3#1 MY`$PS.3_,!/B^?__&@$@4N(`J!L)`3#,Y`$@4N+\__\:`*@;Z0`````-P*#A M`-@MZ0,0H.,$L$SB`P``ZP"H&^EU;FEO;@```&YF+$ MHY_E!+!,X@J@C^"0$0OEC`$+Y000H.,**`#KE`$+Y0$`<.,``*#C\*\;"90! M&^6($$OB.R@`ZP!`4.(#```:@#`;Y0\Z`^(!"5/C!@``"J0H`.L4,*#C`#"` MY90!&^7<)P#K``"@X_"O&^F4`1OE`A"@XP$@H.,2*0#K`0!PX_7__PHD`*#C M'B@`ZP"04.+Q__\*2R@`ZP`@H.$".Z#A(SN@X0``4^,!*Z`3I"$+Y90!&^5B M'TOB!BD`ZP``4.,"``"J"0"@X=8G`.OB___JD'$;Y0(`%^(3```*[#*?Y0,0 MFN=3#TOB$""@XQ4H`.L``%#C`@``"ER!6^4@`!CC"@``"@%`H.,(``#JH`$; MY<0G`.N4`1OE`""@XP`0H.,!,*#A[R@`ZPX``.H`0*#AG#*?Y0,0FN=3#TOB M$""@XP`H`.L``%#C``"@$P$`H`.8`0OE`#"@X0``5.,!,(,3``!3XYP```H` M<*#CH'$+Y9QQ"^4'0*#A!V"@X0$+5.,,```JG($;Y:1Q&^4'@(C@G($+Y:`! M&^4($*#A/2@`ZP``4..@`0OE!T"$X)4```H(,&3@`V"`X)0!&^4`(*#C`!"@ MXP$PH./&*`#K%,")X@,`C.B4`1OE!""@X080H.'$*`#K`%"@X0$`=>,&```: M/"@`ZP`PD.46`%/C`@``&IB!&^4``%CCO___&@``5>,"``#:!6"&X`1`9>#6 M___*D'$;Y0APA^.0<0OE!D"@X00`%^,-```*E`$;Y64G`.N,`1OE`!"@XWXG M`.N4`0OE`0!PXP4``!J@`1OE<2<`ZPD`H.%O)P#K``"@X_"O&^F@@1OE#(") MY9AQ&^4``%?C2P``&J1Q"^4%``#J`0"%X@`!H.&;)P#K``!0XZ0!"^5#```* MH&$;Y0!0H.,$`%;A%0``*J3!&^4#`!;C!@"@X1$``!H$,);E`2!&X@0@8N`# M.*#A(QB@X0(`4>$*``#*`#"0Y0%@AN```%/C!```"J2!&^4``%CC``",%03` MC.(!4(7B!`!6X>K__SJD<1OE``!7X]S__PJX()_E`C":YP<`H.$%$*#A!""@ MXW4H`.L`P*#C!<&'YPQ0H.$%09?G``!4XQ@```H``%SC!@``"JC!"^4(`(3B M"!",XJTG`.NHP1OE``!0XP$```H$P*#A````Z@``A.4&,-3E#@!3XP,``!J0 M@1OE`0`8XP`PH!,`,(05I'$;Y0%0A>(%,9?G`T"@X0``5./F__\:I`$;Y1PG M`.N<@1OE##"9Y1"`B>4&,&/@"#")Y1@``.H@G```%`(``!@"```<`@``I'$; MY1!PB>4'`*#A1B<`ZP!`H.$,0(GE``!4XP4``!H)`*#A""<`ZQ3__^H)`*#A M!2<`ZQ'__^H4,(GB`("@XP!PH..``8/HD($;Y02`R..0@0OE`#"@XP0PB>64 M<1OE`'")Y9"!&^4@@(GE"0"@X3$H`.L<`(GE"0"@X?"O&^D`````#<"@X1#< M+>D4T$WB8*"?Y02P3.(*H(_@6$"?Y03`FN<`$)SE``!1XPX``!H&,*#C'#`+ MY00@H.,@(`OE`!"-Y000C>4<`$OB!S"@XP0P@.4,(*#A`A"@XR`P2^(9*`#K M`0!PXQ"L&PD$,)KG``"3Y1"L&^FTEP``(`(````````-P*#A,-@MZ0!`H.$< M$)3E!+!,X@\H`.L`,*#C!#"$Y0!0E.4`(.#C`""$Y0P`E.7$)@#K!`"@X<(F M`.L%`*#AK"8`ZS"H&^D``````````)X``.^#)P`J#O"@X0`````-P*#A`-@M MZ0$PT>0`(*#A``#2Y02P3.(#`%#A!P``&@$@@N+_``#B``!0XP"H&PD``-+E M`3#1Y`,`4.'W__\*`##2Y0$`4>4#`&#@`*@;Z0W`H.'PVRWI3-!-X@2P3.(L M(`OE*``+Y3`P"^4!0*#A`0!2XP0``(I*)P#K%C"@XP`P@.4``.#C\*L;Z0!P MH.,X<`OE+,`;Y0,`'.,$```:*'`;Y0,`%^,`P*`3`<"@`SC`"^4L`,`%7A;P``*EP@"^5@,`OE,'`;Y0(`H.$%$*#A M#^"@X0?PH.%@,!OE7"`;Y0,`4.%D``#:`6"&X@8`5N,$```*+,`;Y6AP&^4, M4(7@!P!5X>O__^H!P*#C-,`+Y2Q@&^4,``#J7"`+Y6`P"^4P[__SHL'Y__\Z`3#8Y&QP&^4!,,?D M;'`+Y0%@5N+Y__\:&P``ZCC`&^4``%SC#```"@0PF.1L1LP!OE!#",Y&S`"^4$8%;B^?__&@L``.H!,-CD;'`;Y0$P MQ^1L<`OE!0!8X?G__SH!,-GD;,`;Y0$PS.1LP`OE`6!6XOG__QI`<$OB@!"7 MZ`<`6>$`,*`C`3"@,PP`6.$`,*`C`3`#,@``4^,M__\:0'`;Y0<`6>$2```J M.,`;Y0``7.,'```*!#"9Y&QP&^4$,(?D;'`+Y4#`&^4,`%GA^/__.AP``.H! M,-GD;'`;Y0$PQ^1L<`OE0,`;Y0P`6>'X__\Z%```ZCQP&^4'`%CA$0``*CC` M&^4``%SC!P``"@0PF.1LD@T$WB!+!,XB@`"^4L$`OE`X"@X8APH.$P<`OE`D"@X04`5.,*``"* M!#";Y000H.$((*#APP``ZRS`&^68Q"S@+)`;Y0,PB>(#,,/C`,"#Y?"K&^DH M`/ MX*#A!_"@X3S`&^4``%#C``"@TP$`H,,,`%#A!P``&D"0&^4"D(GB0)`+Y3!P M&^4TD!OE!U"%X`D`5>'K__\Z0'`;Y0\`5^,;``#*,)`;Y41P&^4)8(3@*)`; MY0,@A^(L`#,(?@`#""Y40P"^4``%SC"@``V@@`A.`($*#A M`##0Y0`@U.4!,,3D`2#`Y`$04>+Y__\:,)`;Y01`:.`)8(3@!D"@X04`5.'D M__\Z6P``ZD!0"^5`$I```J/,`+Y020F^4%8&C@!@"@X040 MH.$/X*#A"?"@X3S`&^4``%#C``"@TP$`H,,,`%#A%P``"D1P&^4HD!OE`R"' MXBQP&^4#(,+C!3!IX`,PA^``,(+E1#`+Y0``7.,+``#:!@"@X0@0H.$`,-#E M`"#4Y0$PQ.0!(,#D`1!1XOG__QHPD!OE``!IX```5.'T__\Z!4"@X3!P&^5` MD!OE!U"%X`D`5>'5__\Z``!(,T$WB!+!,XC`0"^4H,`OE`,"@X0)PH.$'@(S@\*L;"0A`H.$,`%CA%0`` MFBS`"^4HD!OE!&!GX`8`H.$$$*#A#^"@X0GPH.$LP!OE!E"@X0``4.,*``#: M!!"@X0<`H.$`,-'E`"#5Y0$PQ>0!(,'D`0!0XOG__QH&0*#A#`!4X>G__XHP MD!OE`9!9XC"0"^4'@(C@X?__&O"K&^D-P*#A`-@MZ02P3.)M)0#K`*@;Z0`` M``````````````W`H.'PW"WI=*"?Y02P3.(*H(_@`%"@X10`H.--)`#K`$!0 MXA0```I8,)_E`^":YP#`GN4,`*#A!`"$Y10PA>+``)/H"!"$XL``@>@$()7E M$""$Y3`PG^4#$)KG'R``X@(AH.$",)'G`#"$Y0'`C.(`P([E`D"!Y_"L&^D` M`.#C\*P;Z6B,```D`@``*`(```W`H.'PWRWIY*"?Y02P3.(*H(_@W#"?Y0/` MFN,&```*!#"5Y0$`4^$#```*!7"@ MX0!0E>4``%7C^/__&@``5>/PKQL)$""5Y00PEN4#`%+A"0``&@@@E>44,);E M%!"&X@,`4N$(,(7B`P``&@0@D^4$,)'E`P!2X1(```H``);E"$"%X@8`E.@` M,*#C_R0`ZP`#E.@4P(;B``.,Z``@H.,$((;E!```Z@8`H.%;)`#K``!0XP,` M``H$();E$#"5Y0,`4N'W__^Z`#"5Y0`PA^4%`*#AO2,`Z_"O&^G8BP``*`(` M```````-P*#A<-@MZ02P3.(`0*#A#`"4Z0,`4N$&``"Z(#"4Y0@P$^(!```* M``"@XW"H&^D$,(3E`R"@X0``4N,0```:(#"4Y0A0$^(-```:``"4Y0`@H.,` M$*#C`3"@X]$D`.L4P(3B`P",Z```E.4,$(3B!@"1Z,\D`.L(`(3E``!0X^C_ M_]H,X)3E!,"4Y0P`CN`#4!#BX___&@80D.40()3E`3!,XB$8H.$"(&/@`@!1 MX=S__\H!,(S@!#"$Y0P@GN<``%+CT?__"@8PT.4.`%/C<*@;&2!@U.4!`!;C MR___&G"H&^D````````````````0`0#O0R0`*@[PH.$`````#<"@X0#8+>D` MX*#A`3#>Y`2P3.)R`%/C!@``"@(``,IA`%/C"P``"@X``.IW`%/C!```"@L` M`.H$`*#C`,"@XPP@H.$,``#J"`"@XP'`H.,&+*#C"```Z@@`H.,!P*#C@B^@ MXP0``.H.)`#K%C"@XP`P@.4``*#C`*@;Z0`PWN4``%/C$```"@`PWN5B`%/C M"@``"@(``,HK`%/C`P``"@8``.IF`%/C`P``"@,``.H0`*#C`L"@XP```.H$ M((+C`3#^Y0``4^/N__\:`C",X0`P@>4`J!OI```````````-P*#A,-@MZ0!` MH.$.,)3E!+!,XB,XL.$$```:Z2,`ZPDPH.,`,(#E``#@XS"H&^DP$)3E`""@ MXQ`A@>4P,)3E#"&#Y0P0E.4(`!'B!`"@$7PD`!L`4*#A(#"4Y0``4^,$```* M'`"4Y0_@H.$#\*#A``!0XP!0X+,,P-3E@``D`(*#A##"2Y0``H.,$L$SB M"3`#X@D`4^,`J!L9`@"@X48D`.L`J!OI#<"@X3#<+>EXH9_E!+!,X@J@C^!P M,9_E`R":YP`0DN4`0*#A``!1XSXD``L`,*#C!#"$Y0PPE.4@4!/B!@``&@0` M$^,9```:$``3XP0``!J0(P#K"3"@XP`P@.4``.#C,*P;Z0@`$^,+```*!`"@ MX2@D`.L``%#C]___&@PPE.4(,,/C###$Y4,TH.$-,,3E"%"$Y1A0A.4,,)3E M!#"#XPPPQ.5#-*#A#3#$Y1```.HP()3E``"2Y0``4.,,```*0#"$X@,`4.$! M```*P2(`ZS`@E.4`4(+E/#"4Y00PA.4``%/C.#"4%0`PA!4%`*`1,*P;&1`P ME.4``%/C!`"@`0PD``L,P-3E`P`D`V"WI``!1XUO?3>(,L$SB%0``NEX_2^(T,`OE_R"@ MXU8@2^55($OE"#"@XU@P2^5D``OE5``+Y0(@H.-7($OE`3!!XEPP"^50,`OE M!!";Y60`2^((((OB4",`ZV3`&^4`,*#C`##,Y0,``.H;(P#K%C"@XP`P@.4` M`.#C`*@;Z0``````````!0``[RLC`"H.\*#A``````W`H.$PV"WID`$%X`2P M3.(%`*#ADR(`ZP!`4.($`*`1`!"@$P4@H!$*(P`;!`"@X3"H&^D````````` M```````-P*#A#@`MZ0#8+>D0L$SB!!";Y0@@B^(J(P#K`*@;Z0W`H.'PVRWI M#-!-X@2P3.(H$`OE"&"1Y0!0H.$``%;C`0``&@``H./PJQOI#,#5Y0@`'.," M```*$#"5Y0``4^,(```:!0"@X>(B`.L``%#C!```"N,B`.L),*#C`#"`Y0`` MX./PJQOI*,`;Y0P@E>4`@)SE`'"8Y01@F.4",!+B"("(XA<```H"``#J`'"8 MY01@F.4(@(CB``!6X_K__PH<`)7E!Q"@X0$+5N,&(*`Q`2N@(P_@H.$L\)7E M`$!0XLL``-HHP!OE"#"4``%;C!```&@!PF.4$8)CE"("(X@``5N/Z__\*0CP"XD(, M4^,9```:"#"5Y08`4^$6```J`#"5Y1``A>(1`)#H`Y!@X`8@B>"$,*#A`4"# MX@(`5.'[__\Z`1"$XI`B`.L``%#CI0``"A``A>4),(#@`#"%Y10@E>4($)7E M!"!BX`(0@>`($(7E#""5Y11`A>4(0)7E`@P2XPT```H``)7E!`!6X09`H#$' M$*#A!""@X5,B`.L(,)7E`""5Y0,P9.`(,(7E!"""X``@A>4&0*#A*0``Z@`` ME>40()7E!`!6X0`PH),!,*"#`@!0X0`PH),!,`."``!3XPH```H'$*#A!""@ MX3XB`.L`,)7E!#"#X``PA>4%`*#A;2(`ZP``4.-V```:%```ZA1`E>4$`%;A M!P``.AP`E>4'$*#A!""@X0_@H.$L\)7E`$!0XFL``-H)``#J!D"@X0<0H.$$ M(*#A)R(`ZP@PE>4`()7E`S!DX`@PA>4$((+@`""%Y2C`&^4(,)SE`S!DX`@P MC.4$<(?@!F!DX```4^.7__\:8___ZBPP"^4#D*#A``!6XP4``!HL8`OE`'"8 MY01@F.4(@(CB``!6X_K__PHLP!OE``!4, M0(/@!@!9X0DPH#$&,*`A!`!3X0`@H-,!(*##`0!0X0`@H),!(`*"``!2XPH` M``H'$*#A!""@X>TA`.L`,)7E!#"#X``PA>4%`*#A'"(`ZP``4.,E```:%``` MZC!`&^4$`%/A!P``NAP`E>4'$*#A!""@X0_@H.$L\)7E`$!0XAH``-H)``#J M`T"@X0<0H.$$(*#AUB$`ZP@PE>4`()7E`S!DX`@PA>4$((+@`""%Y0206>`$ M```:!0"@X0`B`.L``%#C"0``&BP`"^4HP!OE"#"4``.#C0S2@X0TPQ>7PJQOI#<"@ MX1#8+>D,T$WB!+!,XAC`2^(`P(WEGB(`ZQ!`2^(#`!3I$*@;Z0`````````` M#<"@X3#<+>E,H)_E!+!,X@J@C^``4*#A`$"5Y0``5.,PK!L9-#"?Y0,@FN<` M0)+E5!R4Y00PD>4``%/C!`"@$040H!$/X*`1`_"@$04`H.$$$*#A$```ZS"L M&^G8@```-`(```W`H.$`W"WI(*"?Y02P3.(*H(_@``"0Y0``4.,`K!L9##"? MY0,@FN<``)+E`*P;Z72````T`@``#<"@X0#8+>D`$(#E!+!,X@"H&^D-P*#A M`-PMZ3B@G^4$L$SB"J"/X```4>,L,)\%`R":!P`0D@4`,)#E`0!3X0$`H`,` MK!L)`!"@XX`@H..Q(0#K``"@XP"L&^DH@```-`(```W`H.'PWRWI"-!-XNBA MG^4$L$SB"J"/X```4.,L``OE`%"@XP%`H.,(```:!`"@X?"O&^D`,)3E5!R3 MY0`@D>4%`*#A#!"@X5HA`.M0``#J+``;Y:G__^LL`!OEP/__ZP!@H.&4D9_E M"7":YP`PE^4&`%/A'0``"H2!G^4P@`OE"$":YP``E.4``%#CU2``&P!0A.4` M8(?E5#R6Y0``D^4``%#C`0``"@8A`.L``(3E`!"4Y0``4>,%```*``"7Y50\ MD.4$,)/E``!3XP_@H!$#\*`1,(`;Y0@PFN<`$)/E``!1XPDPFA<`(),5`""! M%0DPFN<`()/E5!R2Y0``D>4``%#C[R``&P!0H.$``%7C'P``"@E`FN<`,)3E M5!R3Y0`@D>4%`*#A`!"@XV$A`.LL@!OE``!8XPD```H``)3E5#R0Y0PPD^4` M`%/C$```"@40H.$((*#A#^"@X0/PH.$+``#JF#"?Y0,@FN<`P)+E``!4``%+C!@``"@4`H.$,$*#A MZ"$`ZP``4.,`0*`3`4"@`P```.H!0*#C``!5XP4`H!%\(``;!`"@X?"O&^G4 M?P``.`(``#P"```-P*#A<-PMZ42@G^4$L$SB"J"/X`!0H.$!8*#A`,!2X@4` M`!HL,)_E`T":YPP0H.$$`*#A6___ZP3`H.$``*#C!1"@X08@H.$,,*#A)``` MZW"L&^G0?0``0`(```W`H.$PW"WI:*"?Y02P3.(*H(_@8#"?Y0,@FN<`()+E M5,R2Y03`G.4`0*#A`5"@X0``7.-$,)\5`Q":%P(`H!$/X*`1#/"@$3`PG^4# M()KG!`"@X040H.'1___K`@!PXS"L&QGV(`#K53"@XP`P@.4``.#C,*P;Z71] M```T`@``1`(````````-P*#A\-\MZ1C03>*LHI_E!+!,X@J@C^`L``OE,!`+ MY30@"^4``%/C.#`+Y0!0H.,%```:B#*?Y0-`FN<%$*#A!`"@X1[__^LX0`OE M.``;Y>_^_^LX`!OE!O__ZP!@H.%@DI_E"7":YP`PE^4&`%/A'0``"E""G^4\ M@`OE"$":YP``E.4``%#C&R``&P!0A.4`8(?E5#R6Y0``D^4``%#C`0``"DP@ M`.L``(3E`!"4Y0``4>,%```*``"7Y50\D.4$,)/E``!3XP_@H!$#\*`1/(`; MY0@PFN<`$)/E``!1XPDPFA<`(),5`""!%0DPFN<`()/E5!R2Y0``D>4``%#C M-2``&P!0H.$``%7C)@``"@E`FN<`,)3E5!R3Y0`@D>4%`*#A`!"@XZ<@`.LX M@!OE``!8XPD```H``)3E5#R0Y0PPD^4``%/C%P``"@40H.$((*#A#^"@X0/P MH.$2``#J9#&?Y0,@FN<`P)+E``!4%`*#A#!"@ MX4\@`.L&``#J``"4Y50\D.4$,)/E``!3XP40H!$/X*`1`_"@$3"`&^4``%CC M$```&@``5>,'```*"3":YP``D^54+)#E!#"2Y0``4^,%$*`1#^"@$0/PH!$` M@*#C+(`+Y>`PG^4#,)KG`8"@XS2`"^4P,`OE`%"-Y0E`FN,' M```*+#"?Y0,@FN<`()+E``!2XP(```H"`%7A!0"@$9`?`!L&`*#A\*\;Z>A\ M``!(`@``3`(``%`"``!4`@``#<"@X?#<+>EPH)_E!+!,X@J@C^!H,)_E`\": MYP!`G.54[)3E!,">Y0!0H.$!8*#A`G"@X0``7.-(,)\5`Q":%P0`H!$/X*`1 M#/"@$30@G^4",)KG!0"@X080H.$'(*#A,?__ZP(`<./PK!L9'2``ZU4PH.,` M,(#E``#@X_"L&^D8>@``-`(``%@"```-P*#A\-\MZ3303>)XHI_E!+!,X@J@ MC^!,``OE4!`+Y0!0H.,`D%+B!0``&EPRG^4#0)KG!1"@X00`H.%(_O_K!)"@ MX0D`H.$9_O_K"0"@X3#^_^LX,I_E`S":YU0P"^4``(/E+(*?Y0A@FN<`,);E M``!3X1\```H<,%```*``"6Y50\ MD.4$,)/E``!3XP_@H!$#\*`16'`;Y04``%#C6A\`&P!0H.$``%7C)0``"@A`FN<`,)3E M5!R3Y0`@D>4%`*#A`!"@X\P?`.L``%GC"0``"@``E.54/)#E##"3Y0``4^,7 M```*!1"@X0D@H.$/X*#A`_"@X1(``.HL,9_E`R":YP#`DN4``%SC!@``"@`P ME.54')/E`""1Y04`H.$,$*#A=1\`ZP8``.H``)3E5#R0Y00PD^4``%/C!1"@ M$0_@H!$#\*`13'`;Y0``5^,-```:``!5XP<```H(,)KG``"3Y50LD.4$,)+E M``!3XP40H!$/X*`1`_"@$4AP2^),<`OE`'"@XU!P"^4`4(WE"&":YTP0&^50 M,!OE`,"6Y2`@H.,,`*#A#^"@X5#\G.4`0*#A`#!9X@$PH!,``%7C`#"@`P$P M`Q(``%/C!P``"@``EN54/)#E"#"3Y0``4^,)$*`1!2"@$0_@H!$#\*`1``!5 MXP<```HP,)_E`R":YP`@DN4``%+C`@``"@(`5>$%`*`1Q1X`&P0`H.'PKQOI MB'D``%P"``!@`@``9`(``&@"```-P*#A,-PMZ5"@G^4$L$SB"J"/X$@PG^4# M()KG`""2Y53,DN4$P)SE`$"@X0%0H.$``%SC+#"?%0,0FA<"`*`1#^"@$0SP MH!$8,)_E`R":YP0`H.$%$*#A0/__ZS"L&^GL=@``-`(``&P"```-P*#A\-\M MZ1S03>)4``%/A(```"OB"G^5`@`OE"$":YP`` ME.4``%#C?1X`&SA@&^4`8(3E/(`;Y0`@F.4`((7E5#R2Y0``D^4``%#C`0`` M"JL>`.L``(3E`!"4Y0``4>,%```*``"5Y50\D.4$,)/E``!3XP_@H!$#\*`1 M0&`;Y08PFN<`$)/E``!1XP4` M`%#CE!X`&P!0H.$``%7C'@``"@=`FN<`,)3E5!R3Y0`@D>4%`*#A`!"@XP8? M`.L``%GC"0``"@``E.54/)#E##"3Y0``4^,0```*!1"@X0D@H.$/X*#A`_"@ MX0L``.H$,I_E`R":YP#`DN4``%SC$0``&@``E.54/)#E!#"3Y0``4^,%$*`1 M#^"@$0/PH!$P@!OE``!8XP(```H`,)CE``!3XQ4``!H``%GC"0``&@!@X.,X M8`OE2P``Z@`PE.54')/E`""1Y04`H.$,$*#AG1X`Z^W__^H``%7C!P``"@

`.M5,*#C`#"`Y0"`X.,X@`OE%```ZD!@&^4`,);E`T"$X`T` M`.H`0*#A#@``ZBR`&^4``%CC!```"C1@&^4$@(CB+(`+Y0%@1N(T8`OE.(`; MY0!`A.`!@(CB.(`+Y31@&^4``%;CU/__&BR`&^4``%CC,&`;%0!`AA4`,%GB M`3"@$P``5>,`,*`#`3`#$@``4^,(```*!S":YP``D^54+)#E"#"2Y0``4^,) M$*`1!2"@$0_@H!$#\*`1``!5XP<```HP,)_E`R":YP`@DN4``%+C`@``"@(` M5>$%`*`1R1T`&S@`&^7PKQOI?'8``'`"``!T`@``>`(``'P"``"0`0``#<"@ MX3#<+>D$T$WB6*"?Y02P3.(*H(_@'!`+Y4PPG^4#$)KG`."1Y53,GN4$P)SE M`$"@X0)0H.$``%SC,#"?%0,0FA<.`*`1#^"@$0SPH!$<()_E`C":YP0`H.$< M$$OB!2"@X0/__^LPK!OI]'(``#0"``"``@``#<"@X?#?+>DXT$WB+*.?Y02P M3.(*H(_@3``+Y0!PH.-8<`OE4!`+Y50@"^4`D%/B!0``&@@SG^4#0)KG!Q"@ MX00`H.&#_/_K!)"@X0D`H.%4_/_K"0"@X6O\_^L`8*#AX(*?Y0A`FN<`,)3E M!@!3X1X```K0PI_E7,`+Y0Q0FN<``)7E``!0XX`=`!M84`$)7E``!1XP4```H``)3E5#R0Y00P MD^4``%/C#^"@$0/PH!%```*"%":YP`PE>54')/E M`""1Y08`H.$`$*#C"QX`ZP``6>,)```*``"5Y50\D.4,,)/E``!3XQ````H& M$*#A"2"@X0_@H.$#\*#A"P``ZN0QG^4#()KG`$"2Y0``5.,1```:``"5Y50\ MD.4$,)/E``!3XP80H!$/X*`1`_"@$5!P&^4``%?C`@``"@`PE^4``%/C&@`` M&@``6>,.```:`,#@XUC`"^5$``#J`#"5Y50)8H)_E!+!,X@J@C^`< M$`OE3#"?Y0,0FN<`X)'E5,R>Y03`G.4`0*#A`E"@X0``7.,P,)\5`Q":%PX` MH!$/X*`1#/"@$1P@G^4",)KG!`"@X1P02^(%(*#A$?__ZS"L&^DL;P``-`(` M`)`"```-P*#A`-@MZ02P3.(`P%+B"```"@$@T.0!,-'D`P!2X0$P4!4!`%$5 M`P!@$`"H&QD!P%SB]O__&@``H.,`J!OI#<"@X0#8+>D``%+C_Q`!X@2P3.(% M```*`3#0Y`$`4^$!`$`"`*@;"0$@4N+Y__\:``"@XP"H&^D```````````W` MH.$PW"WIZ*"?Y02P3.(*H(_@X#"?Y0,@FN<`$)+E`$"@X0``4>/:'0`+##"4 MY0A0$^(<```:$``3XP``X`,PK!L)!``3XQ,```HP()3E``"2Y0``4.,&```* M0#"$X@,`4.$!```*=AP`ZS`@E.4`4(+E##"4Y20PP^,,,,3E0S2@X0TPQ.40 M,)3E`#"$Y0`@H.,$((3E##"4Y0@P@^,,,,3E0S2@X0TPQ.40,)3E``!3XP0` MH`&Z'0`+##"4Y0$@$^(%```*%#"4Y0`@H.,(((3E`#!CXA@PA.4#``#J`@`3 MXP(PH.$4,)0%"#"$Y0``H.,PK!OI.&X``"P"```-P*#A,-PMZ0C03>+*DH)_E!+!,X@J@C^``4*#A##"5Y0%` MH.$"8*#A0PBPX0,``$I\$$OB1!P`ZP``4.,%``"J`#"@XP`PAN4!*Z#C`""$ MY0(+H.-PK!OI=#`;Y0\Z`^(""E/C`""@$P$@H`,`((;E."`;Y0``4N,!.Z`# M`#"$!0(+H`-PK!L)`""$Y4P@A>4""5/C`@N@XW"L&QD8,)_E*!"5Y0,@FN<" M`%'A`@N@$P$+H`-PK!OI.&P``,`!````````#<"@X?#=+>F(H)_E!+!,X@J@ MC^``4*#A!3&%X(,PA>"#8:#A!0*%X``!A>```:#A#P"`X@``AN`*'`#K`'!0 MX@<`H`'PK1L)`#"@XR@`A^@/((?B`T#"XPA`A^4&8(3@`5!5X@D``$HL@)_E M"!":YP0`H.%8(*#C-AP`ZS!@A.4!4%7B6$"$XD5OAN+V__]:!P"@X?"M&^EX M:P``F`(```W`H.$PW"WIT*"?Y02P3.(*H(_@R#"?Y0,@FN<`$)+E``!1XU(` M``NX,)_E`U":YP```.H`4)7E%`"5Z0$@4N(%``!*#C"4Y4,8L.$+```*6$"$ MX@$@4N+Y__]:`#"5Y0``4^/R__\:"@"@X[O__^L``(7E``!0X^W__QHPK!OI M`3"@XPPPQ.4-$,3E`!"$Y0@0A.4$$(3E$!"$Y100A.48$(3E_R"@XPX@Q.4/ M(,3E,#"4Y0`0@^4P()3E!!""Y400A.5($(3E,`"4Y4,OH.,(`(#B-QP`ZP0` MH.$PK!OIV&H``"P"``"<`@``#<"@X1#<+>E8H)_E!+!,X@J@C^`%`*#CXQP` MZT@PG^4#0)KG!""4Y0``8N```%#C!P``V@`PE.4``%/C!```"@-`H.$$,)3E M``!CX```4./W___*``!0XQ"L&]F$___K``"$Y1"L&^GL:0``G`(```W`H.$` MV"WI``"@XP2P3.(%'`#K`*@;Z0W`H.$`W"WI7*"?Y02P3.(*H(_@5#"?Y50@ MG^4#$)KG`@":YQ`PH.-;'H'B10V`X@``@>4!,%/B6!!!XD4/0.+Z__]:+""? MY2P0G^4"`)KG`3":YP`P@.4@()_E`A":YP$PH.,`,('E`*P;Z61I``"@`@`` MI`(``/`!``"4`@``+`(`````````````#<"@X0#<+>E(H)_E!+!,X@J@C^`` M`%#C`P``&C@PG^4#`)KGBQP`ZP"L&^D,,)#E&#`#X@``4^,$```:V1L`ZPDP MH.,`,(#E``#@XP"L&^D"``#K`*P;Z=AH``"H`@``#<"@X7#8+>D`8*#A#C"6 MY02P3.)#"*#A"#`0X@(```H04);E``!5XP@``!H``*#C<*@;Z0PPEN5`,(/C M###&Y4,TH.$-,,;E``#@XW"H&^D`,);E`%"&Y0,`$.,`$*#C`T!EX!00E@4( M$(;E``!4XPH``-H<`);E!1"@X00@H.$/X*#A+/"6Y0``4./H___:!$!@X`!0 MA>```%3C]/__R@``H.-PJ!OI```````````V-#8`````````````````#<"@ MX0#<+>DXH)_E!+!,X@J@C^`!,*#C6#R`Y2@@G^4"$)KG3!R`Y2`PG^4#()KG M4"R`Y1@0G^4!,)KG5#R`Y0``H.,`K!OIN&<``*P"``"P`@``M`(```W`H.$` MV"WI``!3XP2P3.(!`.`#`*@;"0``4>,`,-(5`#"!%0``TN4``%#B`0"@$P"H M&^D-P*#A`-@MZ02P3.+_P-/C!```"G@;`.M5,*#C`#"`Y0``X.,`J!OI``!2 MXP`PP14!`*`3`*@;&6\;`.M5,*#C`#"`Y0``X.,`J!OI#<"@X0#8+>D``%'C M!+!,X@`PH!,`,($5`*@;Z0W`H.$`V"WI!+!,X@"H&^D-P*#A`-@MZ02P3.(` MJ!OI````````````````#<"@X0#8+>DLT$WB!+!,XC@02^(3'`#K`0"0X@$` MH!,`J!OI`````````````````"`@("`@("`@("@H*"@H("`@("`@("`@("`@ M("`@("`@B!`0$!`0$!`0$!`0$!`0$`0$!`0$!`0$!`00$!`0$!`004%!04%! M`0$!`0$!`0$!`0$!`0$!`0$!`0$0$!`0$!!"0D)"0D("`@("`@("`@("`@(" M`@("`@("`A`0$!`@```````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````7`0#O'QL`*@[PH.$`````#<"@X0#8+>D! M(*#AL1F@XPT;@>)-$8'B!+!,XL$;`.L`J!OI````````````````#<"@X0#8 M+>D$T$WB!+!,XA`02^(```#K`*@;Z0W`H.'PWRWIR*"?Y02P3.(*H(_@`9"@ MX0!P4.($```*M("?Y0@PFN<`()/E``!2XPD``!H``*#C\*\;Z0@PFN<`()/E M!B!BX$(AH.$`((GE!0"$X`$`@.+PKQOI`"#7Y0<`H.$```#J`2#PY3TP4N(! M,*`3``!2XP`PH`,!,`,2``!3X_?__QH(,)KG`&"3Y0!`EN4`4&?@``!4XPL` M``H$`*#A!Q"@X04@H.%>&@#K``!0XP(``!H%,-3G/0!3X]W__PH$0+;E``!4 MX_/__QH``*#C\*\;Z?QD```4``````````W`H.$`V"WII*"?Y1#03>($L$SB M"J"/X``PX.,<,`OE&#`+Y10P"^40,`OE(###XQPP"^4#`*#C'!!+X@`@H.-P M&P#K;#"?Y0,0FN<`()'E``!2XP<``!H!,*#C`#"!Y50@G^4"$)KG`!"1Y0`` M4>,/X*`1`?"@$68;`.L&$*#C:!L`ZP8`H.,`$*#C:1L`ZP,`H.,<$$OB`""@ MXUD;`.M<&P#K!A"@XUX;`.L!`*#CZ!H`ZQ1D``"X`@``\`$``,[__^L````` M```````````-P*#A,-@MZ0!`H.$.`)3E!+!,X@`(H.%`"*#AV1D`ZP``4.,% M``"Z4#"$X@8`D^@`0)'@P%^BX#``@^@PJ!OI##"4Y0$ZP^,,,,3E0S2@X0TP MQ.4PJ!OI#<"@X7#8+>D$L$SB`$"@X0%0H.$"8*#A#<#4Y0$`'.,&```*#@"4 MY0`@H.,`$*#C`C"@XP`(H.%`"*#AWQH`ZPPPE.4!.L/C###$Y4,TH.$-,,3E M#@"4Y040H.$&(*#A``B@X4`(H.$(&@#K<*@;Z0W`H.$0V"WI`$"@X0X`E.4$ ML$SB``B@X4`(H.'+&@#K`0!PXP<``!H!`''C!0``&@PPE.4!.L/C###$Y4,T MH.$-,,3E$*@;Z0PPE.4!.H/C###$Y4,TH.$-,,3E4""$X@,`@N@0J!OI#<"@ MX0#8+>D.`)#E!+!,X@`(H.%`"*#A;AD`ZP"H&^D-P*#A`-@MZ0303>($L$SB M`,"@XP#`C>7:&@#K`*@;Z0W`H.'PWRWI:-!-XN"BG^4$L$SB"J"/X%!@2^(, M``;H5'!+XH`"E^@!4*#A`$"@X0EPE^$,```:N#*?Y0,@FN<`$)+E`0"@XV8: M`.N0``OEC``+Y01@F^4``%;C,`"&&)!P2^(#`)?H\*\;Z5"0&^4%`%GA`P`` MB@@``!I48!OE!`!6X04``)H$<)OE``!7XS``AQ@`$*#C``"@X_"O&^D`(*#C M-"!+Y32`2^(!(,CED)!+XC``B>B,8!OE)CB@X0(PR.5#-*#A`S#(Y8P@&^4$ M(,CE0B2@X04@R.60B,6,(!OE!"#)Y4(DH.$%(,GED&`;Y28XH.$&,,GE0S2@X060(!OE M""#)Y4(DH.$)(,GE`C"9Y4QP2^)<<`OE!)"@XV20"^4#.+#A6```&F1@&^4! M8$;B9&`+Y0$`5N--```:6'`;Y0(`F.4$,)?E``B@X2`(H.$#.*#A(TB@X000 MH.$+&@#K`""@X0(HH.%"**#A<"`+Y0(PF.4$$*#A`SB@X2,XH.$#`*#AB1H` MZP0PF.4$$*#A`SB@X2,XH.$`6(/A!0"@X?H9`.L`(*#A`BB@X4(HH.%T(`OE M!0"@X000H.%[&@#K!C"8Y000H.$#.*#A(SB@X0!8@^$%`*#A[!D`ZP`@H.$" M**#A0BB@X8@@"^4%`*#A!!"@X6T:`.L(,)CE!!"@X0,XH.$C.*#A`%B#X04` MH.'>&0#K!)";Y0`(H.%`B*#A``!9XP0```H%`*#A!!"@X5X:`.L`$*#C`P") MZ'1@2^+``);HB)`;Y08XH.$C.*#A!SB#X8PP"^4(**#A(BB@X0DH@N&0(`OE MD&!+X@,`ENCPKQOI6'`;Y0)PA^)8<`OE`C"7Y0,XL.&F__\*9)`;Y020:>)@ MD`OE!0``ZM1A``"\`@``8&`;Y0%@1N)@8`OE`H"(X@(PF.4#.+#A^/__"F!P M&^4$P&?B#`"@X0'`7.(+``!*7)`;Y0`0H..,(*#A`3""X@DP@^`)((+@`!#" MY0`0P^4!P%SB`B!"X@(P0^+Y__]:7'`;Y0"0H.-HD`OE@'"'X%QP"^588!OE M`A"6Y7_,H./_P(SB`3B@X2-(H.$,`%3A!@``B@PPH.%H8!OE`6"&XFA@"^6$ M0*#A`P!4X?G__YIH&`;Y08X MH.$+``#J`5B@XP(XH.$C"*#A?'`;Y0%01>('`(#@`0A0XP<``"J`(!OEE0(" MX'B0&^4).*#A(SB@X0`X@^$#`%+A\O__BF3`&^4`0*#C``!4!P$SB``!(`0*#C``!4! MP$SB``!`!,,+EB&`;Y0)@AN*(8`OE`7"'XFQP"^5@D!OE"0!7 MX7W__]H$8)OE``!6XS,```IH4",![D:'`;Y0(HH.$B M**#A`SB@X2,XH.$3-*#A,C>#X0`PP>5#-*#A`##`Y6"0&^4!P$SB`A!!X@D` M7.$"`$#B[?__R@`@H..,(,CGC#"(X`$@P^4T,!OE+A`;Y3`@&^4J`!OE(SB@ MX0,XH.$A&(/AC!`+Y2(HH.$"**#A(`B"X9``"^4$D)OED&!+XL``ENC``(GH M3#`;Y480&^5((!OE0L`;Y2,XH.$#.*#A(1B#X8P0"^4B**#A`BB@X2S(@N&0 MP`OED'!+X@,`E^CPKQOI#<"@X?#8+>D$L$SB`."@XP%0H.$%`%[A`D"@X1,` M`*H0<&3B`1"`X@#`H.$"8(#B`""@ MX1(T@^$`,,SE0S2@X0`PP>4!X([B!0!>X0+`C.("$('B[___NHXPD.<#.*#A M(SB@X1,TH.&.,,#GCB"`X$,TH.$!,,+E\*@;Z0```````````$`MZ0303>(, M``#K!-"-X@$`H.$`@+WH`$`MZ0303>(6``#K!-"-X@$`H.$`@+WH"`"@XP,9 M`.L``*#C#O"@X0``(>`!$"#@```AX`$`4./V__\Z!@``"@#`H.,!$+#A$@`` M6@+"C..A$+#A`<*,(PX``.H!`*#A`!"@XP[PH.$``"'@`1`@X```(>`!`%#C MYO__.O;__PH"P1#B``!@0@(A$>("P"S@`!!A0JS`@N$!(*#C`#"@XP$0L.$^ M``!:```1X=<``$J``!'AT@``2@`!$>'-``!*@`$1X<@``$H``A'APP``2H`" M$>&^``!*``,1X;D``$J``Q'AM```2@`$$>&O``!*@`01X:H``$H`!1'AI0`` M2H`%$>&@``!*``81X9L``$J`!A'AE@``2@`'$>&1``!*@`<1X8P``$H`"!'A MAP``2H`($>&"``!*``D1X7T``$J`"1'A>```2@`*$>%S``!*@`H1X6X``$H` M"Q'A:0``2H`+$>%D``!*``P1X5\``$J`#!'A6@``2@`-$>%5``!*@`T1X5`` M`$H`#A'A2P``2H`.$>%&``!*``\1X4$``$H]``#J``!1X9L``#J``%'AE@`` M.@`!4>&1```Z@`%1X8P``#H``E'AAP``.H`"4>&"```Z``-1X7T``#J``U'A M>```.@`$4>%S```Z@`11X6X``#H`!5'A:0``.H`%4>%D```Z``91X5\``#J` M!E'A6@``.@`'4>%5```Z@`=1X5```#H`"%'A2P``.H`(4>%&```Z``E1X4$` M`#J`"5'A/```.@`*4>$W```Z@`I1X3(``#H`"U'A+0``.H`+4>$H```Z``Q1 MX2,``#J`#%'A'@``.@`-4>$9```Z@`U1X10``#H`#E'A#P``.H`.4>$*```Z M``]1X04``#J`#U'A@!]!(((_@R``#U'A`!]!(`(_@R"`#E'A@!Y!(((^@R`` M#E'A`!Y!(`(^@R"`#5'A@!U!(((]@R``#5'A`!U!(`(]@R"`#%'A@!Q!(((\ M@R``#%'A`!Q!(`(\@R"`"U'A@!M!((([@R``"U'A`!M!(`([@R"`"E'A@!I! M(((Z@R``"E'A`!I!(`(Z@R"`"5'A@!E!(((Y@R``"5'A`!E!(`(Y@R"`"%'A M@!A!(((X@R``"%'A`!A!(`(X@R"`!U'A@!=!(((W@R``!U'A`!=!(`(W@R"` M!E'A@!9!(((V@R``!E'A`!9!(`(V@R"`!5'A@!5!(((U@R``!5'A`!5!(`(U M@R"`!%'A@!1!(((T@R``!%'A`!1!(`(T@R"``U'A@!-!(((S@R```U'A`!-! M(`(S@R"``E'A@!)!(((R@R```E'A`!)!(`(R@R"``5'A@!%!(((Q@R```5'A M`!%!(`(Q@R"``%'A@!!!(((P@R```%'A`!!!(`(P@R`"`ASC!@``&@,`H.$` M`%SC`!!A0HS`L.$"`D$(*#C*-!-X@2P3.(L(`OE$P!0 MX]P```HF``#*"0!0XZ````H0``#*`@!0X5@```H%``#*`@!0XT8```I-``#* M`0!0XT````H*`0#J!@!0XTH```I4``"Z!P!0XV````H(`%#C8P``"@(!`.H. M`%#CJ0``"@<``,H+`%#CE0``"HX``+H,`%#CEP``"@T`4..;```*]P``ZA`` M4..I```*HP``NA$`4..L```*$@!0X[````KO``#J'`!0XU,```H.``#*%P!0 MX\,```H#``#*%0!0X[8```JZ``#*KP``ZAD`4./&```*P```NAH`4.,O```* M&P!0XS,```K=``#J(0!0XTT```H'``#*'@!0X\8```H_``"Z'P!0XT(```H@ M`%#CNP``"M(``.HC`%#C3```"D8``+HD`%#C3@``"B4`4.-1```*R@``ZB0` M"^4(,*#C>```Z@<`H.,<$$OBFA<`ZQPP&^4``%#C`P"@`0``X!,`J!OI9`"@ MXP"H&^D!,*#C)#`+Y20`2^(3(*#CJ@``Z@$PH.,D,`OE)`!+XA(@H.,$((#E MMP``Z@@`H./I___J"#"@XR0P"^4D`$OB$R"@XP0@@.6O``#J"#"@XR0P"^4D M`$OB%""@XP0@@.6I``#J`3"@XR0P"^4D`$OB%""@XY$``.H!,*#C)#`+Y20` M2^(1(*#C!""`Y9X``.H&,*#C00``Z@$PH.,D,`OE)`!+XB`@H..$``#J`3"@ MXR0P"^4D`$OB)2"@XW\``.H!,*#C)#`+Y20`2^(H(*#C>@``Z@$PH.,D,`OE M)`!+XBD@H.-U``#J`3"@XR0P"^4D`$OB*B"@XW```.H!,*#C)#`+Y20`2^(K M(*#C:P``Z@$PH.,D,`OE)`!+XBP@H.,$((#E>```Z@@PH.,D,`OE)`!+X@(@ MH.,$((#E<@``Z@@PH.,D,`OE)`!+X@,@H.,$((#E;```Z@@PH.,D,`OE)`!+ MX@0@@.5G``#J"#"@XR0P"^4D`$OB!2"@XP0@@.5A``#J"#"@XR0P"^4D`$OB M!B"@XP0@@.5;``#J"#"@XR0P"^4D`$OB!R"@XP0@@.55``#J"#"@XR0P"^4D M`$OB!#"`Y5```.H(,*#C)#`+Y20`2^()(*#C!""`Y4H``.H(,*#C)#`+Y20` M2^(*(*#C!""`Y40``.H(,*#C)#`+Y20`2^(+(*#C+```Z@@PH.,D,`OE)`!+ MX@P@H.,G``#J"#"@XR0P"^4D`$OB#2"@XR(``.H(,*#C)#`+Y20`2^(.(*#C M'0``Z@@PH.,D,`OE)`!+X@\@H.,8``#J"#"@XR0P"^4D`$OB$""@XQ,``.H( M,*#C)#`+Y20`2^(1(*#C#@``Z@@PH.,D,`OE)`!+XA(@H.,)``#J`3"@XR0P M"^4D`$OB)B"@XP0@@.46``#J`3"@XR0P"^4D`$OB(R"@XP0@@.4`,*#C`#"- MY00PC>4"$*#C*"!+XBPP2^*+%@#K`0!PXP"H&PDH`!OE``!0XP``X`,`J!OI M]!4`ZQ8PH.,`,(#E``#@XP"H&^D`,*#C`#"-Y00PC>4"$*#C*"!+XBPP2^)Y M%@#K*,`;Y0$`<.,,`*`1``#@`P"H&^D````````````````-P*#A$-PMZ3#0 M3>*""? MY0(@FN<`0*#A`1!$XA\`4>,$``":S14`ZQ8PH.,`,(#E`##@XP8``.JA,J#A M`P&2YQ\0`>(!(*#C$B$0X``PH`,!,*`3``!3XQ@P&P4",(,#&#`+!00`H.$L M$$OB1"!+XIX6`.L``%#C``#@XQ"L&[E$`!OE$*P;Z;10``#``@`````````` M```-P*#A$-@MZ02P3.(`0*#A>!8`ZP00H.%Z%@#K$*@;Z0W`H.$`W"WI%*"? MY02P3.(*H(_@##"?Y0,@FN<``)+E`*P;Z=A/```,``````````$``.\.\*#A M```````````4``#O#O"@X0``````````!```[ZL5`"H.\*#A`````"4!`.^G M%0`J#O"@X0`````C`0#OHQ4`*@[PH.$``````P``[Y\5`"H.\*#A`````$D` M`.^;%0`J#O"@X0`````E``#OEQ4`*@[PH.$`````-@``[Y,5`"H.\*#A```` M`,(``.^/%0`J#O"@X0`````&``#OBQ4`*@[PH.$`````#<"@X3#8+>D8T$WB M!+!,X@C`B^(P`)SH#`"-Z`0@F^4(((WE`#"@XPPPC>40P(WB,`",Z``@H.$! M,*#A`!"@X\4`H.-'%@#K,*@;Z0`````-P*#A`-@MZ0S03>((,(WE!@"-Z`2P M3.(`(*#A`!"@X\<`H.,`,*#C.A8`ZP"H&^G&``#O9Q4`*@[PH.$`````#<"@ MX0#8+>D``%+C!+!,X@<``!H"`*#A`*@;Z0`PT.4!`%'E`P!@X`"H&^D!(%+B M!@``"@$PT>0`P-#E`P!D`(*#A`##2Y02P3.(``%/C`@``"@$P\.4``%/C_/__&@`` M8N``J!OI`0`MZ?\0`>($`%+C'```N@,P$.('```*!#!CX@,@0N`"`%/C`1#` MY`$0P*0!$,#$!`!2XQ(``+H!-('A`SB#X2``4N,*``"Z<``MZ0-`H.$#4*#A M`V"@X7@`H.@0($+B$`!2X_O__\IP`+WH!`!2XP,``+H$,(#D!"!"X@0`4N/[ M__^J``!2XP$`O0@.\*`!`@!2XP$0P.0!$,"D`1#`Q`$`O>@.\*#A```````` M```!0"WI+Q4`ZP&`O>@`````+W5SXP0` M``K/%`#K`3"@XP`P@.4``.#C`*P;Z0(`4>,"```*R!0`ZQ8PH./W___J!#"0 MY0$`4^,0```:``!2XP0```H`,)SE5P!3XP$``(H,`*#C`*P;Z5C@H.,`X(SE M``!2XPX```IH,9_E`Q":YP(`H.$.(*#A2Q4`ZP@``.H``%+C`@``"@`PG.4# M`%/C[O__F@0PH.,`,(SE``!2XP$``!H``*#C`*P;Z00`D.4+`%#C.@``"A4` M`,H&`%#C+```"@H``,H#`%#C)@``"@(``,H"`%#C(```"C<``.H$`%#C'0`` M"@4`4.,;```*,@``Z@@`4.,B```*'P``N@D`4.,A```*"@!0XR$```HJ``#J M$`!0XR$```H'``#*#0!0XQX```H=``"Z#@!0XQL```H/`%#C&0``"A\``.H2 M`%#C%@``"A4``+H3`%#C%@``"A0`4.,6```*%P``Z@(QX.,`,(+ES?__ZO\\ MH./_,(/B^O__Z@(PH./X___J(#"@X_;__^H".Z#C]/__ZO\PH./R___JPCN@ MXXL_@^+O___J``"@XP``@N4`K!OI%#"@X^K__^K_,*#CZ/__ZF$4`.L6,*#C M`#"`Y0``X.,`K!OIO$P``,0"`````````````,H``.]O%``J#O"@X0`````! M0"WIAQ0`ZP&`O>@```````!1X9$``#H``*`##O"@`0%`+>D$(%+B(```N@/` M$.(H```:`\`1XC(``!H((%+B$@``NA0@4N(+``"Z$``MZ1A0L>@84*#H&%"Q MZ!A0H.@@(%+B^?__JA``0!,,#D`3#1I`$PP*0!,-'$`3#`Q`&`O>@$P&SB`@!0!,,#D`3#1I`$PP*0!,-'$`3#`Q`P@4N#K__^Z`\`1XLS__PH#$,'C!."1 MY`(`7.,V``#*&@``"@P`4N,0``"Z#"!"XC``+>DN-*#A,%"QZ`0\@^$D1*#A M!4R$X254H.$,7(7A+,2@X0[,C.$X$*#H$"!2XO/__ZHP`+WH#""2X@4``+HN MQ*#A!."1Y`[,C.$$P(#D!"!2XOG__ZH#$$'BR?__Z@P`4N,0``"Z#"!"XC`` M+>DN.*#A,%"QZ`0X@^$D2*#A!4B$X258H.$,6(7A+,B@X0[(C.$X$*#H$"!2 MXO/__ZHP`+WH#""2X@4``+HNR*#A!."1Y`[(C.$$P(#D!"!2XOG__ZH"$$'B MKO__Z@P`4N,0``"Z#"!"XC``+>DN/*#A,%"QZ`0T@^$D3*#A!42$X25`"`(#@!"!2XA\``+H#P!#B)P`` M&@/`$>(P```:""!2XA$``+H00"WI%"!2X@4``+H84#'I&%`@Z1A0,>D84"#I M("!2XOG__ZH0`'+C&%`QJ1A0(*D0($*B%""2X@A0,:D(4""I#"!"HA!`O>@( M()+B!0``N@0@4N($,#&U!#`@M0@0,:D($""I!"!"H@0@DN(.\*`!`@!2XP$P M<>4!,&#E`3!QI0$P8*4!,''%`3!@Q0[PH.$"`%SC`3!QY0$P8.4!,'&E`3!@ MI0$P<<4!,&#%#"!2X.S__[H#P!'BSO__"@,0P>,`,)'E`@!$$ M1*#A(TR$X3!0(.D0(%+B\___JC!`O>@,()+B!0``N@/$H.$$,#'E(\R,X03` M(.4$(%+B^?__J@,0@>+*___J#`!2XQ```+H,($+B,$`MZ0/HH.$X$#'I+.B. MX0S(H.$ER(SA!5B@X218A>$$2*#A(TB$X3!0(.D0(%+B\___JC!`O>@,()+B M!0``N@/(H.$$,#'E(\B,X03`(.4$(%+B^?__J@(0@>*O___J#`!2XQ```+H, M($+B,$`MZ0/LH.$X$#'I+.2.X0S,H.$EQ(SA!5R@X214A>$$3*#A(T2$X3!0 M(.D0(%+B\___JC!`O>@,()+B!0``N@/,H.$$,#'E(\2,X03`(.4$(%+B^?__ MJ@$0@>*4___J`````!!`+>D`0*#A*A,`ZP!`@.4``.#C`!#@XQ"`O>@````` M#<"@X0#<+>D0H)_E!+!,X@J@C^`(,)_E`P":YP"L&^G(10``M``````````` M````#<"@X?#=+>EDH)_E!+!,X@J@C^!<,)_E`V":YP!PH.,`@*#A!P!6X0\` M``HP`);I`4!4X@D``$H.,)7E(SBPX0,```H%`*#A#^"@X0CPH.$`<(?A6%"% MX@%`5.+U__]:`&"6Y0``5N/O__\:!P"@X?"M&^F810``G`(````````-P*#A M\-LMZ6S03>($L$SBB!`+Y8P@"^60,`OEQ1(`ZP"04.(``.#C\*L;"0``F>6$ M$$OB>Q(`ZP``4.-C``"Z4,!+X@,`G.@`,*#C&""@X]03`.L`<*#A!P&@X6D2 M`.L`@%#B60``"@!@H.,R``#JC,`;Y0``7.,$```*!0"@X0_@H.$,\*#A``!0 MXRH```H'`%;A$```.@``F>6$$$OB8!(`ZP``4.,Z``"Z4,!+X@,`G.@`,*#C M#""@X[D3`.L`<*#A"`"@X0<1H.&Q$@#K``!0XR\```H`@*#A!P#5Y00`@.(# M`,#C"`"`XD42`.L`0%#B)P``"@`@E>4`((3E!#"5Y00PQ.5#-*#A!3#$Y08@ MU>4&(,3E!S#5Y0(!((+B1!,`ZP9!B.($L$SB M3``+Y2@0"^4"<*#A+#`+Y4R`&^4#`!CC!0``&@,`%^,#```:!)!7X@&0H!,X MD`OE`0``Z@*`H.,X@`OE`)"@XSR0"^4H@!OE!@!8XSL``(J7"`C@2(`+Y4R0 M&^4'8(G@"#")X`,`5N'PJQLI3(`;Y090H.$(`%;A*0``FBR0&^4%0&?@!`"@ MX040H.$/X*#A"?"@X0``4.,A``#:.(`;Y0``6.,$```:`#"4Y0`@E>4`,(7E M`""$Y14``.HXD!OE`0!9XPD``,HGP:#A!0"@X03@H.$`,)[E`""0Y00P@.0$ M(([D`Y0`@T.4!,,#D`2#.Y`'` M7.+Y__\:3(`;Y010H.$(`%7AU?__BDR0&^5(@!OE!V"&X`@PB>`#`%;AR___ M.O"K&^DHD!OE3&`;Y:DPH.&78R;@!P!9X[T``)I,@!OE`1!)XI>!*.`P@`OE M3%`;Y2@`6>..``":J3&@X9<#`^`T,`OE+)`;Y04`H.$#4(#@!1"@X0_@H.$) M\*#A-(`;Y8B`H.%`@`OE3)`;Y0``4.,)0(C@#@``JBR`&^4%`*#A!!"@X0_@ MH.$(\*#A``!0XQ<``+I,`!OE!!"@X0_@H.$(\*#A``!0XP20H+$)`*#A$``` MZBR0&^4%`*#A!!"@X0_@H.$)\*#A``!0XP@``,I,`!OE!!"@X0_@H.$)\*#A M3(`;Y0``4.,$@*"A"`"@X0```.H%`*#A-)`;Y0:0:>!(D`OE+(`;Y0!0H.$& M$*#A"0"@X0_@H.$(\*#A-)`;Y0``4.,)0(;@#@``J@8`H.$$$*#A#^"@X0CP MH.$``%#C&```ND@`&^4$$*#A#^"@X0CPH.%(@!OE``!0XP2`H+$(`*#A$``` MZBR0&^4&`*#A!!"@X0_@H.$)\*#A``!0XP@``,I(`!OE!!"@X0_@H.$)\*#A M2(`;Y0``4.,$@*"A"`"@X0```.H&`*#A,)`;Y4"`&^4)D&C@2)`+Y0!@H.$) M`*#A-(!+X@`#F.@)0&C@+)`;Y000H.$/X*#A"?"@X0``4.,/``"J,!`;Y00` MH.$/X*#A"?"@X0``4.,:``"Z2``;Y3`0&^4/X*#A"?"@X4B`&^4PD!OE``!0 MXPF`H+$(`*#A$0``ZC`02^("`9'H!`"@X0_@H.$(\*#A``!0XPD``,I(`!OE M,!`;Y0_@H.$(\*#A,)`;Y4B`&^4``%#C")"@L0D`H.$```#J!`"@X3``"^4L MD!OE!0"@X080H.$/X*#A"?"@X0``4.,.``"J,!`;Y08`H.$/X*#A"?"@X0`` M4.,8``"Z,!`;Y04`H.$/X*#A"?"@X3"`&^4``%#C!8"@H0@`H.$0``#J,!!+ MX@("D>@&`*#A#^"@X0GPH.$``%#C"```RC`0&^4%`*#A#^"@X0GPH.$P@!OE M``!0XP6`H+$(`*#A````Z@8`H.$`8*#A.)`;Y2B`&^4``%GC`1!(X@4``!I, MD!OE`#"6Y0`@F>4`,(GE`""&Y14``.HX@!OE`0!8XPD``,I,X!OE)\&@X08` MH.$`,)#E`"">Y00PCN0$((#D`1*>!,@!OE!T"(X$1`"^5(D`OE M!&"@X0E0H.%,``#J.)`;Y0``6>,$```:`#"5Y0`@E.4`,(3E`""%Y14``.HX M@!OE`0!8XPD``,HG$:#A!,"@X04`H.$`,)#E`""+Y__\:`9"@ MXSR0"^4'0(3@!5!GX"D``.I,$!OE+(`;Y00`H.$/X*#A"/"@X0``4.-2``#* M(```&@&0H.,\D`OE.(`;Y0``6.,$```:`#"4Y0`@EN4`,(;E`""$Y14``.HX MD!OE`0!9XPD``,HG$:#A!L"@X00`H.$`,)#E`""+Y__\:!V"& MX`=`A.`%`%3AT___FBP``.I,$!OE+(`;Y04`H.$/X*#A"/"@X0``4.,G``"Z M(P``&@&0H.,\D`OE.(`;Y0``6.,%```:2)`;Y0`PF>4`()7E`#"%Y0`@B>45 M``#J.(`;Y0$`6.,)``#*)Q&@X07`H.%(`!OE`#"0Y0`@G.4$,(SD!""`Y`$0 M4>+Y__\:"```Z@<0H.$%P*#A2``;Y0`PT.4`(-SE`3#,Y`$@P.0!$%'B^?__ M&DB0&^4)D&?@2)`+Y0509^`%`%3AT/__F@4`5.%^__^:/(`;Y0``6.,\```: M*)`;Y9<)">!(D`OE3(`;Y41@&^4),(C@`P!6X?"K&RE,D!OE!E"@X0D`5N$I M``":+(`;Y05`9^`$`*#A!1"@X0_@H.$(\*#A``!0XR$``-HXD!OE``!9XP0` M`!H`,)3E`""5Y0`PA>4`((3E%0``ZCB`&^4!`%CC"0``RB?!H.$%`*#A!."@ MX0`PGN4`()#E!#"`Y`0@CN0!P%SB^?__&@@``.H'P*#A!0"@X03@H.$`,-[E M`"#0Y0$PP.0!(,[D`'5__^*3(!+X@`#F.@' M8(;@"3"(X`,`5N'+__\Z\*L;Z2B`&^5,D!OEEY@HX#"`"^4$`&;@`."@X08P M:>`#`%#A`P"@H0``4.,5``#:.(`;Y00P8.`!`%CC"0``RB`!H.$)P*#A`Q"@ MX0`PD>4`()SE!#",Y`0@@>0!`%#B^?__&@<``.I,P!OE`Q"@X0`PT>4`(-SE M`3#,Y`$@P>0!`%#B^?__&C"0&^5(@!OE"3!HX`,`9^`(4&7@!0!0X04`H"$` M`%#C!6"@X18``-HXD!OE,(`;Y0$`6>,(,&#@"0``RB`!H.$$P*#A`Q"@X0`P MD>4`()SE!#",Y`0@@>0!`%#B^?__&@<``.H$P*#A`Q"@X0`PT>4`(-SE`3#, MY`$@P>0!`%#B^?__&@X`H.$'`%#A!@``F@<0H.%[$`#K`!"@X4P`&^4L,!OE M!R"@X;#]_^L'`%;A\*L;F04`H.$'$*#A<1``ZS"0&^4H``OE"5!EX$Q0"^6N M_?_J````````````````#<"@X?#9+>D$T$WB!+!,X@!@H.,#4*#A`D"@X08` M4>$"``"J``!PX@`0X>(!8";B``!3XP(``*H`0'3B`%#EX@%@)N(`,*#C`#"- MY04PH.$$(*#ALQ``ZP!P<.(`@.'B``!6XP`PH!,!,*`#`$"@XP!0<^(`8.3B M!7#'X0:`R.$`4`7@`6`&X`80H.$%`*#A!P"`X0@0@>'PJ1OI`````&00`0`` M```D:!`!`)```"1`$P$`NP``1%`3`0`+``!$8!,!`#8``$1P$P$`&@``1(`3 M`0`D``!$D!,!`$L``$2@$P$`&```1+`3`0!-``!$P!,!`$P``$30$P$`N``` M1.`3`0`F``!$\!,!`&@``$1L$`$`0@``)'`0`0`````D=!`!`)X``"1X$`$` M````)'P0`0`````D@!`!`````"2$$`$`````)(@0`0`````DC!`!`````"20 M$`$`````))00`0`````DF!`!`````"2<$`$`````)*`0`0`````DI!`!```` M`"2H$`$`````)*P0`0`````DL!`!`````"2T$`$`@0``)+@0`0`````DO!`! M`````"3`$`$`````),00`0`````DR!`!`````"3,$`$`E@``)-`0`0#,```D MU!`!`````"0`%`$`5@``1!`4`0"^``!$V!`!`````"3<$`$`````).`0`0`` M```D(!0!`(<``$0P%`$`/P``1.00`0`````DZ!`!`````"3L$`$`````)/`0 M`0`````D]!`!`````"3X$`$`````)/P0`0`````D`!$!`````"0$$0$````` M)`@1`0"%```D#!$!`````"1`%`$`10``1%`4`0`X``!$$!$!`+(``"1@%`$` MO```1'`4`0!'``!$@!0!``8``$20%`$`J```1*`4`0##``!$L!0!`+<``$04 M$0$`KP``)!@1`0`````DP!0!`%,``$30%`$`N0``1!P1`0`````D(!$!```` M`"0D$0$`````).`4`0"K``!$\!0!`)@``$0`%0$`)0``1!`5`0""``!$*!$! M`&0``"0L$0$`````)#`1`0`````D-!$!`````"0X$0$`````)"`5`0`1``!$ M,!4!`'T``$1`%0$`>```1#P1`0`````D4!4!`!8``$1`$0$`````)$01`0`` M```D2!$!`````"1@%0$`0P``1$P1`0`````D4!$!`````"14$0$`````)%@1 M`0`````D7!$!`````"1@$0$`````)&01`0`````D!$!`````"1\$0$`````)(`1`0`````DP!4!`"\``$30 M%0$`'```1(01`0`````DB!$!`````"2,$0$`````))`1`0`````DE!$!```` M`"28$0$`````).`5`0!=``!$\!4!`'(``$0`%@$`C@``1!`6`0`>``!$G!$! M`````"2@$0$`````)*01`0`````DJ!$!`````"2L$0$`````)+`1`0`]```D M(!8!`#4``$2T$0$`````)+@1`0`````D,!8!`'P``$1`%@$`*0``1+P1`0`Z M```DP!$!`#D``"3$$0$`````)%`6`0`M``!$R!$!`````"3,$0$`.P``)-`1 M`0![```DU!$!`````"1@%@$`/@``1'`6`0"=``!$@!8!`,$``$20%@$`H@`` M1*`6`0#(``!$V!$!`````"3<$0$`````).`1`0`````DY!$!`````"2P%@$` M'0``1,`6`0!L``!$Z!$!`````"30%@$`+```1.`6`0`R``!$[!$!`````"3P M%@$`@```1``7`0"_``!$$!"D!``8```1\*0$`8@``!(`I`0")```$A"D!`(L```2(*0$`4@`` M!(PI`0`?```$M"D!``8```2\*0$`!@``!)0V`0`C```$F#8!`(T```2<-@$` M!@``!*@V`0`$```$K#8!``8```3X-@$`!```!/PV`0`$```$`#P```$4```!P````1P```%\```!(```` M8@```$H```!8````2P```)X```!,````:````$T`````````3@```(P```!/ M````BP```%````"7````40````````!2````?````%,```!L````5``````` M``!5````M````%8```!E````6````,0```!:````I````%L```"4````7@`` M`&<```!?````=@```&````"/````80```'0```!B````H````&,```"'```` M9`````````!E`````````&8```"2````9P```(,```!H````;P```&H````` M````:P```'D```!L````B0```&X```"M````;P```+8```!P````@0```'$` M``!]`````````'H```!R`````````',```"H````=````(````!U````A0`` M`'8```"9````=P```'X```!X````?P```'D```"A````>P````````!]```` MR@```'X```"[````?P```(H```"`````F@```($```"I````@@```(X```"# M````B````(0```"J````A0```+\```"&````F````(<`````````B````)`` M``")`````````(H```"\````BP````````",`````````(T```"Q````C@`` M`)L```"0````I0```)$`````````D@```,````"3````E@```)4```"F```` ME@````````"7`````````)@```"K````F0```+D```":````G0```)L```"N M````G````*P```"=````GP```)X`````````H`````````"A`````````*(` M``"O````HP```+(```"E`````````*8`````````IP```,D```"H````Q@`` M`*D```"P````J@````````"K`````````*P```#!````K0````````"O```` M`````+````#(````L0```+,```"R`````````+,```##````M0```+<```"V M````O0```+<```"U````N`````````"Y`````````+H`````````NP```,(` M``"\`````````+T`````````O@````````"_`````````,``````````P0`` M``````#"`````````,,`````````Q`````````#%`````````,8```#%```` MQP````````#(`````````,D`````````R@````````#+`````````,P````` M````S0``````````````!P`````0`0``````"@````4"``!@0```````-\# M```%`@``P,4```````#H`P``!0(``/!:````````\P,```4"``!`5@`````` M`/L#```'````*!,!```````6!```!0(``&BI````````)P0`````` M`````!0&```%`@``0(\````````?!@``!0(``+P!````````)08```4"``!0 MP````````"P&```%`@``,(H````````V!@``"P``````````````/08```$` M`````````````$4&```%`@``?$0```````!-!@``"0```!1G`0``````7`8` M``4"``"0J````````&@&```%`@``P$$```````!W!@``!0(```0[```````` M@@8```4"```@P0```````(D&```%`@``>)(```````"1!@``!0```$0``0`` M````F`8```4"````=````````*$&```)````&&')E86QL;V,`7U]?8VQE86YU<`!?7U]M8E]L96Y?;6%X7W)U;G1I M;64`7V=E=&1E=V5Y`%]B8V]P>0!?7U]D:79D:3,`7U]'3$]"04Q?3T9&4T54 M7U1!0DQ%7P!?7U]S;6%K96)U9@!?'0`7W=C&ET`%]S=')C870` M7U]3=')E86U3=&%T951A8FQE`%]S965K9&ER`%]R96%L;&]C`%]S=')C;7`` M7U]?`!?7V-A=&=E=',`7U]V97)R>`!? M;61?F4`7U]?=6UO9&1I,P!?`!? M7W=A0!?:6]C=&P`7VUB'0` M7V]P96YD:7(`7V5N=FER;VX`7U]?7!E7P!?7U]U9&EV9&DS`%]M9%]F:7A?:FUP M`!?=F9P"H``)`J``"L*@`` MU"L``-@K``#<*P``&#T!`'`O``#(,```G#T!`!P]`0"@/0$`)#T!`"`]`0"$ M&P$`$#8``"@V````9P$`_&8!`)PW``!$.0``B!L!`'PW`0#L.@``R#L``-`[ M``#4.P``W#L``'Q```"@00``="`````````#PG^4`````P+8````` M````\)_E`````/!>`````````/"?Y0`````@PP````````#PG^4`````0%H` M````````\)_E`````'!Y`````````/"?Y0````"`6@````````#PG^4````` M`'0`````````\)_E`````%!?`````````/"?Y0``````8@````````#PG^4` M````4(<`````````\)_E`````'"%`````````/"?Y0`````0>0````````#P MG^4`````/#0`````````\)_E``````!:`````````/"?Y0`````PBP`````` M``#PG^4`````<*<`````````\)_E`````!"B`````````/"?Y0````"`R@`` M``````#PG^4`````<,(`````````\)_E`````%R3`````````/"?Y0````#0 MH0````````#PG^4`````0(\`````````\)_E`````%"N`````````/"?Y0`` M``!@R@````````#PG^4`````W%@`````````\)_E`````#"L`````````/"? MY0````!,JP````````#PG^4`````<,``````````\)_E`````!"+```````` M`/"?Y0`````@1@````````#PG^4`````T,4`````````\)_E`````,!@```` M`````/"?Y0````!PA@````````#PG^4`````<*4`````````\)_E`````$!D M`````````/"?Y0````"\8P````````#PG^4`````\&(`````````\)_E```` M`("V`````````/"?Y0````"`B`````````#PG^4`````'&4`````````\)_E M`````*#``````````/"?Y0````!49@````````#PG^4`````4&D````````` M\)_E`````+!S`````````/"?Y0`````PB@````````#PG^4`````L&H````` M````\)_E`````&!S`````````/"?Y0`````@B@````````#PG^4`````8'D` M````````\)_E`````*#!`````````/"?Y0````!@A@````````#PG^4````` MP'D`````````\)_E`````."#`````````/"?Y0````"(PP````````#PG^4` M````P(,`````````\)_E`````,#%`````````/"?Y0````!PA`````````#P MG^4`````T*<`````````\)_E`````.2F`````````/"?Y0`````0HP`````` M``#PG^4`````L,H`````````\)_E`````'"N`````````/"?Y0````"0H0`` M``````#PG^4`````L*D`````````\)_E`````,"Z`````````/"?Y0`````` MJP````````#PG^4`````(,$`````````\)_E`````-#``````````/"?Y0`` M``"PP`````````#PG^4`````$,$`````````\)_E`````)"_`````````/"? MY0````!`M@````````#PG^4`````4,``````````\)_E`````##!```````` M`/"?Y0````#@P`````````#PG^4`````T,$`````````\)_E`````+#%```` M`````/"?Y0````"PU@````````#PG^4`````0,T```````!M86EN`````/@: M`0`O=7-R+VQI8F5X96,O;&0N"YC+'8@,2XT(#$Y.3DO M,#@O,3<@,#,Z-#,Z-3D@;7EC'`@)``D3F5T0E-$.B!S971E;G8N M8RQV(#$N,3D@,C`P,"\Q,B\R,"`Q.#HS.#HS,"!C:')I'`@)``D M3F5T0E-$.B!V97)R>"YC+'8@,2XV(#(P,#$O,#(O,3D@,C(Z,C(Z,38@8V=D M($5X<"`D`````"1.971"4T0Z('-T2YC+'8@ M,2XQ,B`Q.3DY+S`Y+S(P(#`T.C,Y.C0V(&QU:V5M($5X<"`D`````"1.971" M4T0Z('-T'`@)``D3F5T0E-$.B!S=')D=7`N8RQV(#$N,3(@,C`P,"\P,2\R,B`R,CHQ M.3HR,"!M>6-R;V9T($5X<"`D```D3F5T0E-$.B!F'`@)``D3F5T0E-$ M.B!V=V%R;G@N8RQV(#$N-B`R,#`Q+S`R+S$Y(#(R.C(R.C$V(&-G9"!%>'`@ M)````"1.971"4T0Z('-T&ET+F,L=B`Q+C@@ M,3DY."\Q,"\Q."`Q-#HS-CHS,"!K;&5I;FL@17AP("0``"1.971"4T0Z(%]? M"YC+'8@,2XQ,B`R,#`Q+S`R+S`Y M(#$Q.C0W.C(Q('=I>B!%>'`@)````"1.971"4T0Z('-T'`@)````"1.971"4T0Z M(&]P96YD:7(N8RQV(#$N,C`@,C`P,"\P,2\R,B`R,CHQ.3HQ,2!M>6-R;V9T M($5X<"`D`"1.971"4T0Z(&=E='!A9V5S:7IE+F,L=B`Q+C@@,C`P,"\P,2\R M,B`R,CHQ.3HQ,2!M>6-R;V9T($5X<"`D```D3F5T0E-$.B!C;&]S961I6-R;V9T($5X<"`D````)$YE=$)31#H@'`@)``` M)$YE=$)31#H@9F-L;W-E+F,L=B`Q+C$T(#(P,#$O,3(O,#<@,3$Z-#6%M="!%>'`@)``D3F5T0E-$.B!R969I;&PN8RQV(#$N,3$@,3DY.2\P.2\R M,"`P-#HS.3HS,B!L=6ME;2!%>'`@)``````D3F5T0E-$.B!S;G!R:6YT9BYC M+'8@,2XQ-2`R,#`Q+S$R+S`W(#$Q.C0W.C0S('EA;70@17AP("0````D3F5T M0E-$.B!C86QL;V,N8RQV(#$N.2`Q.3DX+S`R+S`S(#$X.C0T.C$T('!E'`@)````"1.971"4T0Z M('5M;V1D:3,N8RQV(#$N,R`Q.3DW+S`W+S$S(#(P.C`Q.C4X(&-H'`@)````0```"`````D M3F5T0E-$.B!M96UC;7`N8RQV(#$N,3$@,3DY.2\P.2\R,"`P-#HS.3HT-2!L M=6ME;2!%>'`@)``````D3F5T0E-$.B!M96UC:'(N8RQV(#$N,3$@,3DY.2\P M.2\R,"`P-#HS.3HT-2!L=6ME;2!%>'`@)``````D3F5T0E-$.B!W'`@)````"1.971"4T0Z(&9I;F1F<"YC+'8@,2XQ-"`R,#`Q+S$R+S`W M(#$Q.C0W.C0Q('EA;70@17AP("0``````!$```"02P$````````````````` M!````````````````````*PH`0`PK@```*T``,BM``!8K0``P&,!```````` M``````````````````````````````````````````````````````````@` M`0`````````````````$*0$`,*X```"M``#(K0``6*T``-1D`0`````````` M```````````````````````````````````````````````````````*``(` M````````````````7"D!`#"N````K0``R*T``%BM``#H90$````````````` M````````````````````````````````````H"@!``,```"L*`$`)$YE=$)3 M1#H@9F9L=7-H+F,L=B`Q+C$S(#$Y.3DO,#DO,C`@,#0Z,SDZ,C8@;'5K96T@ M17AP("0`````)$YE=$)31#H@0```'H```!;````7````%T```!> M````7P```&````!A````8@```&,```!D````90```&8```!G````:````&D` M``!J````:P```&P```!M````;@```&\```!P````<0```'(```!S````=``` M`'4```!V````=P```'@```!Y````>@```'L```!\````?0```'X```!_```` M@````($```""````@P```(0```"%````A@```(<```"(````B0```(H```"+ M````C````(T```".````CP```)````"1````D@```),```"4````E0```)8` M``"7````F````)D```":````FP```)P```"=````G@```)\```"@````H0`` M`*(```"C````I````*4```"F````IP```*@```"I````J@```*L```"L```` MK0```*X```"O````L````+$```"R````LP```+0```"U````M@```+<```"X M````N0```+H```"[````O````+T```"^````OP```,````#!````P@```,,` M``#$````Q0```,8```#'````R````,D```#*````RP```,P```#-````S@`` M`,\```#0````T0```-(```#3````U````-4```#6````UP```-@```#9```` MV@```-L```#<````W0```-X```#?````X````.$```#B````XP```.0```#E M````Y@```.<```#H````Z0```.H```#K````[````.T```#N````[P```/`` M``#Q````\@```/,```#T````]0```/8```#W````^````/D```#Z````^P`` M`/P```#]````_@```/\``````````0````(````#````!`````4````&```` M!P````@````)````"@````L````,````#0````X````/````$````!$````2 M````$P```!0````5````%@```!<````8````&0```!H````;````'````!T` M```>````'P```"`````A````(@```",````D````)0```"8````G````*``` M`"D````J````*P```"P````M````+@```"\````P````,0```#(````S```` M-````#4````V````-P```#@````Y````.@```#L````\````/0```#X````_ M````0````$$```!"````0P```$0```!%````1@```$<```!(````20```$H` M``!+````3````$T```!.````3P```%````!1````4@```%,```!4````50`` M`%8```!7````6````%D```!:````6P```%P```!=````7@```%\```!@```` M00```$(```!#````1````$4```!&````1P```$@```!)````2@```$L```!, M````30```$X```!/````4````%$```!2````4P```%0```!5````5@```%<` M``!8````60```%H```![````?````'T```!^````?P```(````"!````@@`` M`(,```"$````A0```(8```"'````B````(D```"*````BP```(P```"-```` MC@```(\```"0````D0```)(```"3````E````)4```"6````EP```)@```"9 M````F@```)L```"<````G0```)X```"?````H````*$```"B````HP```*0` M``"E````I@```*<```"H````J0```*H```"K````K````*T```"N````KP`` M`+````"Q````L@```+,```"T````M0```+8```"W````N````+D```"Z```` MNP```+P```"]````O@```+\```#`````P0```,(```##````Q````,4```#& M````QP```,@```#)````R@```,L```#,````S0```,X```#/````T````-$` M``#2````TP```-0```#5````U@```-<```#8````V0```-H```#;````W``` M`-T```#>````WP```.````#A````X@```.,```#D````Y0```.8```#G```` MZ````.D```#J````ZP```.P```#M````[@```.\```#P````\0```/(```#S M````]````/4```#V````]P```/@```#Y````^@```/L```#\````_0```/X` M``#_``````````````````````````````````````````````#HJ```'*D` M`#@J`0`!`````````("H``!(*@$``````"1.971"4T0Z(')U;F5N;VYE+F,L M=B`Q+C@@,C`P,2\P,B\P-B`Q.#HT.#HT,2!C:')I'`@)``````$ M````:*D``(2I``"4J0``)$YE=$)31#H@:7-A='1Y+F,L=B`Q+C$Q(#(P,#$O M,#DO,S`@,C,Z,C4Z,S@@;'5K96T@17AP("0`````)$YE=$)31#H@8W1Y<&5? M+F,L=B`Q+C$U(#(P,#$O,#0O,3<@,C`Z,3(Z,S$@:VQE:6YK($5X<"`D```` MX*D``"1.971"4T0Z('1C9V5T871T6-R;V9T($5X M<"`D```````D3F5T0E-$.B!S>7-C;VYF+F,L=B`Q+C$S(#(P,#$O,#4O,#<@ M,36-R;V9T($5X<"`D```D3F5T0E-$ M.B!R86ES92YC+'8@,2XV(#$Y.3`0``!0(``.#```!M`0``!0(``.BH M``!\`0``!0(``/!9``"%`0``!0(``!!6``",`0``!0(```!6``"6`0``!0(` M`,"Z``"A`0``!0(``*#```"H`0``!0(``$!:``"P`0``!P$``+`V`0##`0`` M!0(``,"#``#,`0``!0(``#PT``#5`0``!0(``'!Y``#=`0``!0(``+#%``#G M`0``!0(``'!S``#O`0``!0(``("(``#Z`0``!0(``$#"```"`@``!0(```!: M```*`@``!0(``/!B```1`@``!0(``-#!```<`@``!0(``/!>```C`@``!0(` M`.!9```L`@``!0(``&#*```S`@``!0(``+!A```[`@``"0```/QF`0!(`@`` M"0````!G`0!7`@``!P$``(@;`0!M`@``"0````1G`0!Z`@``!P$``(0;`0"+ M`@``!0(``(!:``"4`@``!0(``!!?``"<`@``!0(``(C#``"D`@``!0$``%QS M``"R`@``!P$``!@;`0"^`@``!0(``/"J``#)`@``!0(``+#*``#1`@``!0(` M`)A```#:`@``!0(``##!``#E`@``!0(``*PY``#Y`@``!0(``-#````*`P`` M!0(``+!S```3`P``!0(``)2I```F`P``!0(``%!8```P`P``!0(``!`Z``!! M`P``!0(``$@Y``!2`P``"0````AG`0!>`P``!0(``!#-``!I`P``!0(``)"_ M``!Q`P``!0(``.#!``!Z`P``!0(``%BM``"$`P``!0(``'!A``",`P``!0(` M`%!I``"6`P``!0(``-Q8``">`P``!0(``*!#``"Q`P``!0(```RD``"]`P`` M!0(``%1F``#'`P``!0(``'"&``#1`P``!0(``'"E``#8`P``!0(``,!Y``#C M`P``!0(``,#%``#L`P``!0(``/!:``#W`P``!0(``$!6``#_`P``!P```"@3 M`0`:!```!0(``&BI```K!```!P$``'0G`0`Y!```!0(``#"N``!#!```!0(` M``!K``!.!```!0(``&@```!!0``!0(``$"V``#I!0``!0(``,BM``#R!0``!0(``%"= M``#\!0``!0(``!RI```+!@``!0(``)!X```8!@``!0(``$"/```C!@``!0(` M`+P!```I!@``!0(``%#````P!@``!0(``#"*```Z!@``"P````````!!!@`` M`0````````!)!@``!0(``'Q$``!1!@``"0```!1G`0!@!@``!0(``)"H``!L M!@``!0(``,!!``![!@``!0(```0[``"&!@``!0(``"#!``"-!@``!0(``'B2 M``"5!@``!0```$0``0"!P`` M!0(``%!?``#E!P``!P```/0[`0#L!P``!0(```!K``#S!P``!0(``""*``#Z M!P``!0(``.`[```%"```"0```"!G`0`0"```"0```#1G`0`5"```!0(``%"' M```="```!0(``!BA```G"```!0(``(#*```P"```!0(``,B=```["```"0`` M`#!G`0!+"```!0(``&"&``!5"```'P```"````!B"```!`(``"````!G"``` M!````%P```!O"```!````&````!["```!````&0```"$"```'P```)````"+ M"```!````)````":"```!````)````"L"```!@$``/@:`0"]"```!@$````; M`0#,"```!@$```0;`0#0"```!@$``!P;`0#9"```!@$``"0;`0#C"```!`(` M`/@M``#M"```!`(``'@O``#X"```!`(``/`O```!"0``!`(``&@P```*"0`` M!`(``-`P```4"0``!`(```@?```>"0``!`(``)`````R"0``!````.`````V M"0``!````-`````Z"0``!````/0````^"0``!`````0!``!""0``!````!`! M``!&"0``!````"`!``!*"0``!````#@!``!."0``!````%`!``!2"0``!``` M`&0!``!6"0``!````'P!``!:"0``!````)@!``!>"0``!````'@%``!B"0`` M!````"P"``!F"0``!````!P"``!J"0``!````&@"``!N"0``!````$@"``!R M"0``!````!0#``!V"0``!````!@#``!Z"0``!````$0#``!^"0``!`(``-@+ M``"."0``!`(``,PJ``"7"0``!`(``'`&``"B"0``!````/P$``"F"0``!`(` M`'`(``"P"0``!`(``#P3``"["0``!````#P&``"_"0``!````.@%``##"0`` M"````/0[`0#("0``"````/@[`0#."0``"````/P[`0#3"0``"``````\`0#9 M"0``"`````0\`0#B"0``"`````@\`0#S"0``"````!0\`0`)"@``"````!@\ M`0`@"@``"````!`\`0`R"@``"`````P\`0!#"@``"````!P\`0!/"@``!``` M`"0&``!3"@``!````%`&``!7"@``!`(``-0D``!C"@``!````%0&``!G"@`` M!````&@&``!L"@``!````+@'``!P"@``!````+`'``!T"@``!````*`&``!X M"@``!````*0'``!\"@``!````)P'``"`"@``!````,@&``"$"@``!`(``(`- M``"0"@``!````'@'``"4"@``!````&`'``"8"@``!````,P'``"="@``!``` M`/`'``"B"@``!````/0'``"G"@``!````!0(``"L"@``!````"P(``"Q"@`` M!````$P(``"V"@``!````%@(``"["@``!````&0(``#`"@``!````&@(``#% M"@``!````&P(``#*"@``!````*0+``#/"@``!````/0(``#3"@``!````)0+ M``#7"@``!````#`)``#;"@``!````&P)``#?"@``!````'0*``#D"@``!``` M`-0)``#H"@``!````+0)``#L"@``!````,@)``#P"@``!````(@+``#T"@`` M!``````*``#X"@``!````/0)``#]"@``!````(0+```!"P``!````$`*```& M"P``!````#@*```+"P``!`````0+```0"P``!````%0+```5"P``!````+@* M```:"P``!````"`+```?"P``!````*P*```D"P``!````!0+```I"P``!``` M`,P*```N"P``!````$`+```S"P``!````&@+```X"P``!````#0+```]"P`` M!````'0+``!""P``!````(`+``!'"P``!````"0-``!,"P``!````&`,``!1 M"P``!````&0,``!6"P``!````+P,``!;"P``!`(``"P-``!J"P``!````&0- M``!O"P``!````/@0``!T"P``!````,P-``!Y"P``!````(0.``!^"P``!``` M`.`-``"#"P``!````!`.``"("P``!````!@.``"-"P``!````#0.``"2"P`` M!`(``$PH``"="P``!````,0.``"B"P``!````'P.``"G"P``!````(P/``"L M"P``!````+P.``"Q"P``!````#`/``"V"P``!````-@.``"["P``!````"0/ M``#`"P``!``````/``#%"P``!````/`.``#*"P``!````!P/``#/"P``!``` M`&P/``#4"P``!````)0/``#9"P``!````(0/``#>"P``!````,0/``#C"P`` M!````,P/``#H"P``!````*P0``#M"P``!`````00``#R"P``!````!00``#W M"P``!````$P0``#\"P``!````%P0```!#```!````(P0```&#```!````)00 M```+#```!`````P1```0#```!````-01```5#```!````,01```:#```!``` M`-@1```?#```!`(``!`2```M#```!````!@3```R#```!````%02```W#``` M!````#P2```\#```!````'`2``!!#```!````-P2``!&#```!````+P2``!+ M#```!`(``%`:``!6#```!````/`2``!;#```!`````P3``!@#```!````"P3 M``!E#```!````#03``!J#```!````/`3``!O#```!````(`3``!T#```!``` M`&`3``!Y#```!`(``,04``"$#```!````*@3``")#```!````(@3``".#``` M!`(``'`8``":#```!````+@3``"?#```!````.`3``"D#```!`(``.08``"N M#```!````/P3``"S#```!````"04``"X#```!````$04``"]#```!````*04 M``#"#```!````$@8``#'#```!````%05``#,#```!````-P7``#1#```!``` M`'`5``#6#```!````(`6``#;#```!````-@5``#@#```!````.`5``#E#``` M!````!P6``#J#```!````'06``#O#```!````*07``#T#```!````,@7``#Y M#```!`(``!P;```!#0``!````$07```�``!````(`7```+#0``!````(@7 M```0#0``!````)`7```5#0``!````,07```:#0``!````#@8```?#0``!``` M`-P8```D#0``!````)P8```I#0``!````+`8```N#0``!````,P8```S#0`` M!`(``#@9```^#0``!````$0:``!##0``!````)09``!(#0``!````'`9``!- M#0``!````,P9``!2#0``!````+@9``!7#0``"````"`\`0!B#0``!````!0; M``!G#0``!````*0:``!L#0``!````(`:``!Q#0``!``````;``!V#0``!``` M`-P:``![#0``!````/0>``"`#0``!````(@;``"%#0``!````&0;``"*#0`` M!`````0<``"/#0``!````*P;``"4#0``!````.0;``"9#0``!````,0;``"> M#0``!````/`;``"C#0``!`````@<``"H#0``!````"0<``"M#0``!````'P> M``"R#0``!````#P<``"W#0``!````%@<``"\#0``!````'`>``#!#0``!``` M`(@<``#�``!````+`<``#+#0``!````.`<``#0#0``!````,P<``#5#0`` M!````,`=``#:#0``!````$`=``#?#0``!````)`=``#D#0``!````'`=``#I M#0``!````)P=``#N#0``!````/@=``#S#0``!````#P>``#X#0``!````#`> M``#]#0``!````-`>```"#@``!````.`>```'#@``!``````?```,#@``!``` M`&@A```1#@``!````#P?```6#@``!````(P?```;#@``!````$P?```@#@`` M!````(`?```E#@``!````'@?```J#@``!````&`A```O#@``!````*P?```T M#@``!````%0A```Y#@``!````$@A```^#@``!````%P@``!##@``!````#@A M``!(#@``!````'P@``!-#@``!````#`A``!2#@``!````'@A``!7#@``!``` M`*0A``!<#@``!````"`C``!A#@``!````$@B``!F#@``!`````PB``!K#@`` M!````#PB``!P#@``!````&0B``!U#@``!````/`B``!Z#@``!@$``$0;`0", M#@``!````#0C``"1#@``!`(``$PC``";#@``!````+`D``"@#@``!````(PD M``"E#@``!````"`D``"J#@``!````"@D``"O#@``!````(0D``"T#@``"``` M``0]`0"Y#@``"`````@]`0#`#@``"`````P]`0#)#@``"````!`]`0#3#@`` M"````!0]`0#<#@``!````#PE``#A#@``!`(``$PE``#K#@``!````/@E``#P M#@``!````*`E``#U#@``!````(`E``#Z#@``!````/`E``#_#@``!``````F M```$#P``!````!@F```)#P``!`(``#`F```3#P``!````.@G```8#P``!``` M`*PF```=#P``!````-@F```B#P``!````.`G```G#P``!``````G```L#P`` M!````/@F```Q#P``!````$PG```V#P``!````$`G```[#P``!````"`G``!` M#P``!````+PG``!%#P``!````'PG``!*#P``!````*PG``!/#P``!``````H M``!4#P``!`````0H``!9#P``!````%@J``!>#P``!````)0H``!C#P``!``` M`+@I``!H#P``!````)PI``!M#P``!````%`I``!R#P``!````#0I``!W#P`` M!````$`J``!\#P``!````$@J``"!#P``!````%`J``"&#P``!````'@J``"+ M#P``!````)`J``"0#P``!````*PJ``"5#P``!````,`K``":#P``!````*`K M``"?#P``!`````PK``"D#P``!````#`K``"I#P``!````(`K``"N#P``!``` M`-0K``"S#P``!````-@K``"X#P``!````-PK``"]#P``!`(``.`K``#(#P`` M!````.@M``#-#P``!````&0M``#2#P``!````)`L``#7#P``!````,`L``#< M#P``!````+`L``#A#P``!````!0M``#F#P``!````#`M``#K#P``!````-`M M``#P#P``!````&`M``#U#P``!````+@L``#Z#P``!`````PM``#_#P``!``` M```M```$$```!````.`L```)$```!````%PM```.$```!````$@M```3$``` M!````%PO```8$```!````#PN```=$```!````&0N```B$```!````%PN```G M$```!````+@N```L$```!``````O```Q$```!````$PO```V$```"````!@] M`0`_$```!````'`O``!$$```!````.@O``!)$```!````.`O``!.$```!``` M`&`P``!3$```!````,`P``!8$```!````*`P``!=$```!````,@P``!B$``` M!````"0Q``!G$```!````/PP``!L$```'P```(`Q``!U$```!````(`Q``"$ M$```!````(`Q``"6$```!````,@R``":$```!````#0R``"=$```!`(``$PV M``"H$```!````-@Q``"K$```!````-`Q``"O$```!````"@R``"R$```!``` M`!@R``"U$```!````'`R``"Y$```!````&0R``"]$```!````*@R``#!$``` M!`(``-PR``#+$```"````)P]`0#3$```"````!P]`0#C$```"````*`]`0#O M$```"````"0]`0#V$```!````-0S``#Z$```!````#0S``#^$```!````#PS M```"$0``!````)`S```&$0``!````+@S```*$0``"````"`]`0`8$0``!``` M`#0T```<$0``!````'0U```@$0``!````&PT```D$0``!````+0T```H$0`` M!`(``(`U```T$0``!````#@U```X$0``!````!`U```\$0``!````&PU``!` M$0``!`````@V``!$$0``!````*0U``!($0``!````/0U``!,$0``!````,@U M``!0$0``!````!`V``!4$0``!````"@V``!8$0``!````'`W``!<$0``!``` M`,PV``!@$0``!````$@W``!D$0``'P```)`W``!L$0``!````)`W``![$0`` M!````)`W``"-$0``!````)`W``"1$0``!````)PW``"5$0``!````&`X``"8 M$0``!````#@Y``"<$0``!````*@X``"@$0``!````"`Y``"D$0``!````!@Y M``"H$0``!````$0Y``"L$0``!````*0Y``"P$0``!````(0Y``"T$0``!``` M`(`Y``"X$0``!`````@Z``"\$0``!````.@Y``#`$0``!````.0Y``#$$0`` M!````$@Z``#($0``!````#`Z``#,$0``!````.0Z``#0$0``!````'@Z``#4 M$0``!````-PZ``#8$0``!````.PZ``#<$0``!````,`[``#@$0``!````(`[ M``#D$0``!````$@[``#H$0``!````+@[``#L$0``!````*`[``#P$0``!``` M`*@[``#T$0``!````,@[``#X$0``!````-`[``#\$0``!````-0[````$@`` M!````-P[```$$@``!````"@_```)$@``!````'1````-$@``!````'0\```1 M$@``!````%1````5$@``!````"1````9$@``!````*@\```=$@``!````$@] M```A$@``!````/`]```E$@``!````%P^```I$@``!````)P^```M$@``!``` M`*P^```Q$@``!````)`_```V$@``!````$0_```[$@``!````'Q````_$@`` M!````,A```!$$@``!````!1!``!)$@``!````/A```!.$@``!````/Q```!3 M$@``'P```*!!``!8$@``!````*!!``!G$@``!````*!!``!Y$@``!````*!! M``!]$@``!````&A"``"!$@``!````!1"``"$$@``!````/A!``"($@``!``` M``Q"``"+$@``!````$!"``"/$@``!````"1"``"3$@``!````"Q"``"7$@`` M!````%A"``":$@``!````"A#``">$@``!````-A"``"B$@``!````+Q"``"F M$@``!````-!"``"J$@``!`````Q#``"N$@``!````.A"``"R$@``!````/!" M``"V$@``!````)!#``"Z$@``!````/Q#``"^$@``!````"Q$``#"$@``!``` M`%1$``#&$@``'P```+!$``#1$@``!````+!$``#@$@``!````+!$``#R$@`` M!`(``+!$``#\$@``!````.!$``#_$@``!`(``.Q$```+$P``!````(Q%```. M$P``!````*Q%```2$P``!`$``+1%```<$P``!`$``,1%```F$P``!````-1% M```J$P``!````.A%```N$P``!````/!%```R$P``!`````1&```V$P``!``` M`/!)```[$P``!````&A&```_$P``!````(A&``!#$P``!````*Q&``!'$P`` M!````.!&``!+$P``!````!1'``!/$P``!````#A'``!3$P``!````"!'``!7 M$P``!````#Q(``!<$P``!````%Q'``!@$P``!````+A'``!D$P``!````*Q' M``!H$P``!````,Q5``!L$P``!````*15``!P$P``!````.A'``!T$P``!``` M`/A'``!X$P``!````)!*``!\$P``!````-A(``"!$P``!````(A(``"&$P`` M!````%1*``"*$P``!````+!)``".$P``!````%Q(``"3$P``!````(!)``"7 M$P``!````$Q(``"<$P``!````'!)``"@$P``!````.10``"E$P``!````(A) M``"I$P``!````+Q)``"M$P``!````'A(``"R$P``!````*A)``"V$P``!``` M`$Q*``"Z$P``!````,Q-``"_$P``!````*Q(``#$$P``!`````A+``#($P`` M!````&Q,``#-$P``!````-A*``#1$P``!````,A(``#6$P``!````'1.``#; M$P``!`````Q+``#?$P``!````!1-``#D$P``!````"!)``#I$P``!````*!* M``#M$P``!`````A)``#R$P``!````)A*``#V$P``!````,A+``#Z$P``!``` M`'!,``#_$P``!````,A*```#%```!````$1)```(%```!````+A*```-%``` M!````$Q-```2%```!````(A.```7%```!````&!)```<%```!````-!-```A M%```!````-!*```E%```!````/A)```I%```!````#Q*```M%```!`````Q* M```Q%```!````%A*```U%```!````,!*```Y%```!````!!1```]%```!``` M`$A+``!"%```!````*!+``!'%```!````%A+``!+%```!````*A+``!/%``` M!````)1+``!3%```!````,!+``!7%```!````%!/``!;%```!````.A+``!@ M%```!````!!,``!E%```!````%1,``!J%```!`````A,``!O%```!````"A, M``!T%```!````*Q,``!Y%```!`````1-``!^%```!````+Q,``"#%```!``` M``Q-``"(%```!````/A,``"-%```!````$A/``"2%```!````+10``"7%``` M!````+1-``"<%```!````*A-``"A%```!````+Q-``"F%```!````,!-``"K M%```!`````Q1``"P%```!`````Q.``"U%```!````&1.``"Z%```!````!Q. M``"_%```!````&Q.``#$%```!````%A.``#)%```!````)A.``#.%```!``` M`-!.``#3%```!````"A/``#8%```!````.!.``#=%```!````#!/``#B%``` M!````!Q/``#G%```!````,10``#L%```!````#10``#Q%```!````*!/``#V M%```!````%Q0``#[%```!````)Q0````%0``!````/1/```%%0``!````$A0 M```*%0``!````$11```/%0``!````!Q2```4%0``!````$Q2```9%0``!``` M`-11```>%0``!````'Q1```C%0``!````,A1```H%0``!````%!2```M%0`` M!````(12```R%0``!````+12```W%0``!````(Q3```\%0``!````.15``!! M%0``!````$13``!&%0``!````.Q2``!+%0``!````#A3``!0%0``!````$Q4 M``!5%0``!`````14``!:%0``!````*Q3``!?%0``!````/A3``!D%0``!``` M`)A4``!I%0``!````%A5``!N%0``!````!A5``!S%0``!````,!4``!X%0`` M!`````Q5``!]%0``!````)15``""%0``!````,15``"'%0``'P```/!5``"1 M%0``'P````!6``"=%0``'P```!!6``"G%0``'P```!!6``"P%0``'P```!!6 M``"Y%0``'P```!!6``#!%0``'P```!!6``#)%0``'P```#!6``#3%0``'P`` M`$!6``#=%0``"````*0]`0#T%0``'P```-!8``#]%0``!````-!8```,%@`` M!````-A8```;%@``'P```'!9```E%@``'P```-!9```N%@``'P```.!9```Y M%@``'P```/!9``!$%@``'P````!:``!.%@``'P```$!:``!8%@``'P```(!: M``!C%@``'P```/!:``!P%@``'P```(!;``!X%@``'P```(!<``""%@``'P`` M`/!>``"*%@``'P```!!?``"4%@``'P```%!?``"=%@``'P```+!@``"F%@`` M!````+!@``"U%@``!````+A@``#$%@``!````+Q@``#3%@``'P```'!A``#< M%@``'P```)!A``#C%@``'P```+!A``#M%@``'P````!B``#V%@``'P```.!B M``#^%@``!````.!B```,%P``!````.AB```:%P``!````.QB```H%P``'P`` M`+!C```R%P``!````+!C``!"%P``!````+AC``!2%P``'P```$!D``!>%P`` M"````*@]`0!S%P``'P```'!D``![%P``'P````!E``")%P``!`````!E``"= M%P``!`````AE``"Q%P``'P```!!F``"\%P``!````!!F``#-%P``!````!AF M``#>%P``!````$AF``#O%P``!````%!F````&```'P```%!I```+&```'P`` M`+!J```7&```'P````!K```F&```'P```"!K```U&```'P```&!S``!"&``` M'P```'!S``!,&```'P```+!S``!7&```'P````!T``!B&```!````!AT``!S M&```!````"!T``"$&```'P```)!X``"3&```"````*A%`0"N&```'P```!!Y M``"Z&```'P```&!Y``#%&```'P```'!Y``#/&```'P```,!Y``#8&```'P`` M`,"#``#C&```'P```."#``#N&```"````*Q%`0`&&0``"````+!%`0`<&0`` M'P```'"%```G&0``'P```&"&```S&0``'P```'"&```\&0``'P```%"'``!& M&0``'P```%"(``!0&0``!`(``%"(``!D&0``'P```""*``!M&0``'P```#"* M``!Y&0``'P```,"*``"!&0``'P```-"*``"+&0``'P```!"+``"6&0``'P`` M`#"+``"A&0``'P```$"/``"L&0``'P```'"/``"Y&0``!@$```PG`0#3&0`` M!@$``!`G`0#J&0``"````#!&`0``&@``"````+!&`0`6&@``"````#!'`0`L M&@``!@$``!0G`0!&&@``!@$``!@G`0!=&@``!````%B3``!P&@``"````+!' M`0"&&@``"````#!(`0"<&@``"````+!(`0"R&@``!@$``!PG`0#,&@``!@$` M`"`G`0#C&@``"````+1(`0#Y&@``"````#1)`0`/&P``"````+1)`0`E&P`` M!@$``"0G`0`_&P``!@$``"@G`0!6&P``"````+A)`0!L&P``"````#A*`0"" M&P``!@$``"PG`0"<&P``!@$``#`G`0"S&P``"````+A*`0#)&P``'P```)"A M``#9&P``'P```)"A``#C&P``'P```-"A``#M&P``'P```!"B``#W&P``'P`` M`!"C```"'```'P```-"D```,'```"````)!+`0`?'```"````#A+`0`T'``` M"````&A1`0!*'```'P```'"G``!4'```'P```("H``!A'```'P```)"H``!M M'```!@$``/0V`0",'```'P```+"I``"6'```'P```."I``"@'```'P```/"J M``"M'```'P````"K``"Z'```'P```#"K``#$'```'P```#"L``#-'```!@$` M`#0X`0#B'```'P````"M``#K'```'P```%"N``#V'```'P```'"N```!'0`` M!@$``.@X`0`6'0``'P```$"V```@'0``'P```,"Z```K'0``'P```)"_```U M'0``'P```%#````^'0``'P```'#```!-'0``'P```*#```!6'0``'P```+#` M``!@'0``'P```,#```!I'0``'P```-#```!\'0``'P```.#```"-'0``'P`` M`/#```"5'0``'P````#!``"?'0``'P```!#!``"G'0``'P```"#!``"P'0`` M'P```##!``"]'0``'P```$#!``#&'0``'P```%#!``#.'0``'P```*#!``#7 M'0``'P```-#!``#D'0``'P```.#!``#O'0``'P```$#"``#Y'0``'P```'#" M```#'@``'P```"##```-'@``'P```###```7'@``!````###```G'@``'P`` M`+#%```S'@``'P```,#%```^'@``'P```-#%``!)'@``'P```&#*``!3'@`` M'P```(#*``!='@``'P```+#*``!F'@``'P```##+``!Q'@``'P```$#-``!Z M'@``'P```+#6``"$'@``7U]$64Y!34E#`%]I`!?;7!R;W1E8W0`7U]?7-C M=&P`7W-T0!?7W9E7-C=&P`7U]?0!?7T-U0!?861D7W-E87)C:%]D M:7(`7VUD7W-W87!O=71?%]J;7!S;&]T`%]? M7V]P96YD:7(R`%]T96QL9&ER`%]C;VYC870`7V5R&ET`%]M=6YM87``7WAP6T`7U]?9&QC=&P`7U]?9&QE>&ET`%]?7V1L M861D<@!?;61?"YS;P!G971U:60N"YS;RYO+DQ#,0!S=')E M&ET+G-O`%]?2YS;P!O<&5N9&ER+G-O`&]P M96YD:7(NBXQ,`!C;&]S961I71E+G-O+F\N M7VQS+C$V`&UU;'1I8GET92YS;RYO+E]L71E+G-O+F\N7W-T871E,"XR,P!M=6QT:6)Y=&4N71E+G-O+F\N7VQS+C,P`&UU;'1I8GET92YS;RYO+E]R M;"XS,0!M=6QT:6)Y=&4N71E+G-O+F\N7VQS+C,V`&UU;'1I8GET92YS;RYO M+E]L71E+G-O+F\N M7W-T871E,"XT,0!M=6QT:6)Y=&4N71E+G-O M+F\N7W-T871E,"XT.0!M=6QT:6)Y=&4N2XT`&9I;F1F<"YS;RYO+E]U M7-C86QL+G-O`'-T53Z`````!;@<,W MT```BT4,BP"+"P'!4?]U#/]U"`.#!````/_0@\0,6\G#58GE8#'`BW4$9HL& M@^X&4%;H(!D``(/$"(E%!&')PY"0D%6)Y8M%"(M5$/9`!T!T!8M%#`$"R<-, M1%],24)205)97U!!5$@`3$1?4%)%3$]!1`!,1%].3U-41%]0051(`$Q$7U-5 M4%!215-37U=!4DY)3D=3`$Q$7U=!4DY?3D].7U!54D5?0T]$10!,1%].3U]) M3E1%4DY?4T5!4D-(`$Q$7U1204-%7TQ/041%1%]/0DI%0U13`$-A;FYO="!S M970@8G)E86MP;VEN="`H)7,I`$-A;FYO="!R92UP:#?0@# M?@Z+DP@```"+30R+01R)`H-]"`)^#(M-#(M!&(F#B````(N##````(M-#(M1 M$(D0Z,%#``")@V@#``#HQD,``(F#;`,``.BS0P``B8-P`P``Z+A#``")PHF3 M=`,``(VS>`,``#'_BX-L`P``.8-H`P``=0@YDW`#``!T!;\!````B3Z#NW@# M````=!N-@R8P__]0Z()%``"-@S8P__]0Z'9%``"#Q`B-@R8P__]0Z#=X``") M@WP#``!0Z%C#__U#HR7<``(/$!(7`#Y7`B<�&)BX0#``"+30S_<0QJ M`&H`:@!J`/^SB````.@I!@``B<*+0AS_0`B+0AR`2`P)BX,0````B1"+31!1 M:@"+30S_,6H`:@"-@XP```!0Z/<%``")PHM"'/]`"(M"'(!(#`*#Q#"#?0@# M?@^-@ZP```"+30R)02#K$)"+30R+40R-@ZP```")0@R-@S8P__]0Z"EW``") M@X`#``"#Q`2%P'0)4.BB'```@\0$C8..,/__4.@'=P``B8.0`P``BX,4```` M_S#H'`$``(/$"(.[D`,```!T%(N#%````/\PZ(<"``!J`.@H4```BX,4```` M_S#H6PH``(M-#(M!#(M0"(N#%````(L`BT`(B0*+00R+<`2+@Q@```"+`(E& M%(/$!(-^!``/A(8```"+>12!YP#P__]J!V@`$```5^C!00``@\0,@_C_=17_ MLX@```"-@Z8P__]0:@'H54P``)"-1A!0BTT,_W$4Z`$O``!J!6@`$```5^B( M00``@\04@_C_=13_LX@```"-@\$P__]0:@'H'$P``(M-#(M!%(E&#(N#%``` M`(,X`'0'QT8(`0```.@$%P``BTT,_W$(Z%F5```QP(UE]%M>7\G#)7,Z(&QI M8B5S+G-O+B5D+B5D`"5S.B`E--`)75NA2!0``B<*#Q`B%TG55@[N0 M`P```'4XC9-L-/__]D8$`70&C9-9-/__#[]&"E`/OT8(4(M''(M`(`,'`P90 M_[.(````4FH!Z!]+``"-=@!J`&H`:@!75FH`Z*4#``")PH/$&(M"'/]`"(M" M'(M-_`E(#(M6#(72#X5V____BW\(A?\/A4/___\QP(UE\%M>7\G#3$1?5%)! M0T5?3$]!1$5$7T]"2D5#5%-?4%)/1TY!344``$Q$7U1204-%7TQ/041%1%]/ M0DI%0U137T9-5#$`"2UL)6\N)6T@/3X@)7`@*"5X*0H`3$1?5%)!0T5?3$]! M1$5$7T]"2D5#5%-?1DU4,@`))6\@*"5X*0H`;F]T(&9O=6YD`"5S`"5D`"5P M`(UV`%6)Y8/L'%=64^@`````6X'#^LD``(V#9S7__U#H,W0``(E%](/$!(7` M=0F-LX@U__^)=?2-@XDU__]0Z!1T``")1?R#Q`2%P'4)C;.F-?__B77\C8.[ M-?__4.CU)T(/Z M;G0>?Q"%T@^$>`$``.EO`0``C78`@_IT=#_I8@$``(GVBXL<````C5%8BT(( MC7#_B7((B?"%P'P0BT%8Q@`*_T%8Z3H!``")]E)J"NC`1```Z2@!``"-=@"+ MBQP```"-45B+0@B-B$1```Z>P```"-=@`/OA>)T(/Z;@^$K@```'\@@_IA='M_$8/Z071H?R:% MT@^$R@```.L<@_IM='_K%9"#^G`/A),```!\98/Z>`^$E````(NS'````(EU MY(GQ@\%8BT$(C7#_B7$(B?"%P'T*.T$8?!*`^@IT#8MUY(M&6(@0_T98ZW11 M4NC]0P``ZVB-=@"+=?16C8/L-?__ZU/_LX@```"-@^PU___K18GVBW7L5HV# M[#7__^LWBW7P#[]&"%"-@^\U___K)XMU\`^_1@I0C8/O-?__ZQ>+=>A6C8/L M-?__ZPN+=0C_-HV#\C7__U#H[T<``(/$"$)PD>%T@^%$?[__XMU"(MV M"(EU"(7V#X6D_?__C6786UY?R<-5B>575E/H`````%N!PQW'``!J).B/*``` MB<=J(.B&*```B<;'1@@`````BX,@````BP"),(N#(````(U."(D(@&84_HM- M%(D.@\0(@WT(`'0.BTT(4>CA20``B48$ZP?'1@0`````BT4,B48,BTT7\G#D%6) MY593Z`````!;@<,FQ@``BW4(BT8<]D`,!'08BT8,_S#H,1T``/]V#.@I'0`` M@\0(BT8<4.@='0``@\0$BT8$AR<.0 M58GE@^PP5U93Z`````!;@`,```!T&XM-V(`Y+W03 MBX,D````QP`-````Z00"``")]HM-V(E-U(N#%````(LXA?]T2HGVBT<$A+?PB%_W7$A?]T"(GXZ:D!``"0:@!J`(M-U%'H+W```(G&@\0,@_[_=1F# M?=P`#X2%`0``QT7<`````.G/_O__C78`:B"-1>!05NB@C0``@\0,@_@@#X58 M`0``BU7@B=?WP@``__]T&XG09L'(",'($&;!R`AF/0@!=13IGP```(UV`('Z M"`$```^$D````/?'``#__W08B=!FP<@(P<@09L'("&8]!P%U#>MSC78`@?H' M`0``=&CWQP``__]T&(G09L'(",'($&;!R`AF/0L!=0WK2XUV`('Z"P$``'1` M]\<``/__=!B)T&;!R`C!R!!FP<@(9CW,`'4-ZR.-=@"!^LP```!T&%;H,HT` M`(N#)````,<`3P```.F;````D&H`:@!6:@)J!8M%Z`-%Y`-%[%!J`.BZ5@`` MB<>#Q!R#__]T<&H'_W7HB?@#1>10Z-0X``"#Q`R%P'59:@!J`/^SI````&@2 M$```:@?_=>R)^`-%Y`-%Z%#H=U8``(/$'(/X_W0O5NBUC```B?@#1>0!>`A0 MBT7H`T7D`T7L4%>+30Q1BTT(48M-U%'HP/O__^L*B?96Z(:,```QP(UEQ%M> M7\G#=V%R;FEN9SH@;&EN:R!M87`@96YT564^@`````6X'#DL(``(MU"(N3%````(L"AR<,N:6YI=`!?7VEN:70` MC78`58GE5U93Z`````!;@<,5P@``BW4(B?>%]G0:D(M&'/9`#`)U"5;H*0$` M`(/$!(MV"(7V=>>)_H7V=!J0BT8<]D`,`G4)5NAA!```@\0$BW8(A?9UYXG^ MA?9T+I"+1ASV0`P"=1V-@]`]__]05NB2!```C8/6/?__4%;HA00``(/$$(MV M"(7V==.-9?1;7E_)PW=AF4Z(&5X<&5C=&5D("5L9"P@86-T=6%L("5L9`!#86YN M;W0@9&ES86)L92!WR+?<2+?QR)?>B+3<2+212)3>2# M?C0`="=J`?^S*````(M%S`-&$%"+??B+1PB+0!`!1)3="+?0B+%XM-](LQC3P6B7W!B+%#H#4!SK"8UV`(V3B#7__X.[C`,```!T((.[B`,```!U M%U)6BTT(_W$$C8-Q/O__4.C4/@``@\00BWT(]D<4`75`:@>+1QB+0`C_<#"+ M!X7`=06X`!```%#H`#4``(/$#(/X_W4!1C8/7/O__4.B'/0``@\08BWW4 MBW<(BTW\B4W(BWW8BT<,BTW(45"+1?P#,%9J!XM]W%>+3>!1Z$`!``"#Q!CK M-8UV`&H`BWW<5XM-S%&+??3K&I!J`(M-W%%1BWWT5^BT(```@\0(BTT(`P%0 M5^C!(```@\00@T70"(-%]`B+??`Y??0/@J[]__^+30CV010!=$AJ!8M!&(M` M"/]P,(L!A575E/H`````%N!PVF] M``"+?0B+@Q@```"+,(7V="Z-=@"+1A"%P'0$.?AU&8L&@'@$!W41_W`,_W`( M_W8,Z%+_ M/P``08`Y`'7GN3D```")T)GW^8V+F`,``(T\D8,_`'0.C78`BP>->`B#>`@` M=?5J%.C6$0``B<9J$.C-$0``B<*)%HM%"%#H>#\``(G"BPZ)$8L6BTT,B4H( MBQ:+31"(2@2+%HM-&(E*#(M5%(E6#(M5'(E6$,=&"`````"+DQ@```"+"HE. M!(DRB3>)\(UE]%M>7\G#B?95B>6#[#175E/H`````%N!PPJ\``#'1?P````` MQT7P`````(M-"#'VB@&(1=2(1=>$P'09B?#!^`Z--'`/O@$QQH'F_S\``$&` M.0!UY[DY````B?"9]_F+M).8`P``A?9T.8I5UXA5UHL&BTT(BSB*!T"-/,B#/_\/A!$!``"+1AB)1>2+5AR)5=R+=A2)==B%_P^$]P`` M`(I%U(A%U9"+3=@/KP\#3>2)3>B+5=R)5="+`0%%T(M5T(H*BW4(1CI-U746 MC78`_T70A,ET*XM%T(H(BA9&.-%T[8M%T(H(.D[_=!6+3P2%R0^$H````(M5 MX(T\RH7_=::%_P^$C@```(M%Z(I(!(#Y"W4GBU7<`U`0B54(BU7XBT40B1"+ M10B*`(A%U(MR'(MZ&.G[_O__C78`BU7HBW((A?9T4H#Y`74;BDH%@.$/@/D" M=`HY=?QS/8EU_.LX@WT4`'4RBT7HBD@%P.D$@/D"=12#??``=0Z)1?"+5?B) M5?3K$XUV`(M5^(M%$(D0BT7HZV&-=@"+1?B+0`B)1?B%P`^%-_[__X-]\`!T M#8M%](M5$(D"BT7PZSJ#??P`=#)J`(M5_%)J`&H!4FH!Z#AF``"#Q`B)P5&+ M10A0Z'7\__^)P8M5$,<"`````(L)B6# M[#!75E/H`````%N!PR*Y``#'1?``````QT7T`````(VSF`,``(UV`(M-](L4 MCH72=#F)]HL"BWT(.7@(=2:+30S'`0````#'000`````BP*+`(E!"(EY#+@! M````Z8L!``")]HM2"(72=)\(M]T`-'"(/$$#E%"`^'`0$``(M-^(M!&(M0 M"(MZ)(E][(7_#X3J````BT$<`W`@BU(8`=:)=>"+2!B)3>2+>!R)?=R+0!2) M1=C'1?0`````Z:@```"+??2+3>"--/F#/O\/A),```"%]@^$BP```(GVBT78 M#Z\&`T7DB470BT8$AAR/SM5"'PY3?0/C$S___^#??``#X5^_O__BWWXBW\(B7WXA?\/A9W^__\QP(UE MQ%M>7\G#0V%L;"!T;R!B:6YD97(@9G)O;2!U;FMN;W=N(&QO8V%T:6]N.B`E M<`H`56YD969I;F5D('-Y;6)O;"`B)7,B(&-A;&QE9"!F-%-"+1!$$)?___P`/KT84BU88BP00BW8<`?")1?AJ`8U%_%!7BTWX4>@4 M^O__@\00A7\G#+W9A@@!UXF[B`0``(G0`T`0B8.,!```@_X! M?C(#0AR)@\P```#K)XUV`%%2Z$U;``"#Q`B+@WP$``"%P'P&4.AR?@``QX.$ M!```_____XUEE%M>7\G#58GE4^@`````6X'#K[0``(N#A`0``(7`=":#^/]T M(?^S@`0``%#H_5H``/^S?`0``.@J?@``QX.$!````````(M=_,G#C78`58GE M5U93Z`````!;@<-EM```BTT(BWT,BW40,=*`.0!T&XGVB=#!^`Z-%%`/O@$Q MPH'B_S\``$&`.0!UYXG0P?@.C110B?C!X`@!^#'"@>+_/P``BX.$!```@W@$ M`74;B=#!^`Z-%%"-!+:-!(;!X`,I\#'"@>+_/P``B="-9?1;7E_)PT)A9"!N M86UE(&EN9&5X.B`E(W@*`$)A9"!P871H(&EN9&5X.B`E(W@*`)!5B>6#[!!7 M5E/H`````%N!P[*S``"+BX0$``"#>0P`=3/I(@$``(GV48V#%4S__U#HQS(` M`.D.`0``B?:+1?Q0C8LJ3/__4>BP,@``Z?<```"-=@"+51!2BT4,4(M5"%+H MZ_[__XG!B[N$!```F?=_#(G6C31VP>8$`[.(!```@\0,B?:+#HM_%#GY?9N+ M1@2)1?PY^'VEBY.,!```B57XBWT(`=&)3?"*#XM%\(H`_T7P.,%U%8GV1X3) M=!B*#XM5\(H2_T7P.-%T[8H/BT7P.DC_=5.+50PY5@AU2X-^*`%^"(M%$#E& M#'P]@WT4`'0JBWT4,<#\N?_____RKO?125&+3?@#3?Q1BU444NBN7@``B<&# MQ`R%R74-BT8$`X.,!```ZR2)]HM.+(/Y_W08C31)P>8$`[.(!```B[N$!``` MZ3W___^0,<"-9>1;7E_)PSH`=V%R;FEN9SH@;&EB)7,N7=A>0"0 M58GE@^P,5U93Z`````!;@<,6L@``BW48BX.$!```A5HM-$%'_=0R+30A1Z+?]__^)QH/$$(7V M#X76````C8.23?__4%?H<2H``(G&@\0(A?9US(M-]%'HBM#@``B<:#Q!2%]G0,BTT0.4WX#XV:````:@"+31!1 M_W4,BTT(4>A*_?__B<:#Q!"%]G5_BTT4QP$`````QT7X______^SS````.A> M#```:@"-1?A0C44,4(M-"%'H3PX``(G&_[/,````Z)8,``"#Q!B%]G0[BT7X M.T40?2R#NX@#````=2.+31!14/]U#(M-"%&-@Y1-__]0Z-(O``#K"8M-]%'H MLP<``(GPZP6-=@`QP(UEZ%M>7\G#<')E;&]A9#H@;W5T(&]F(&UE;6]R>0!P M0!P@H)0``C4W\B4WTZV5J$.@]!0``B<:#Q`2% M]G405XV#G4___U!J`>@!)0``D%?HUC(``(D&@&8$_F;'1@H``&;'1@@``&H` M5NC4Z?__B<*#Q`R%TG4/5XV#N$___U!J`>C()```BT(<_T`(BT(<@$@,"(V# MDDW__U"+3?11Z(A;7E_)PVQI8@`N M`'-O`%6)Y8/L'%=64^@`````6X'#0J\``,=%[`````"+10A0Z#\R``")PHM] M#(D7@&<$_F;'1PH``&;'1P@``&H#C8NG4/__45+H!5L``(G"@\00A=(/A6,! M``"+%X/"`XE5^&HN4N@P0P``B<*#Q`B%T@^$1@$``(M]^#'`_+G_____\J[W MT8M5^(!\"OXN#X0I`0``QT7P_____XM]\(E]],=%Y`````"-1?B)1>CIF0`` M`(UV`(-]Y`,/A^8```"+?>2)V"N$NWQ1____X'2N``!LK@``/*X``"BN``") M=>SK9HUV`(GRBH.M4/__C8NN4/__.`)U$(GVB@)"A,!T2(H!03@"=/**`CI! M_P^%DP```.LTD&H*C47\4%;H3"L``(E%].L2C78`:@J-1?Q05N@X*P``B47P M@\0,@#X`=&6+1?R`.`!U7?]%Y(V3JU#__U*+?>A7Z`HG``")QH/$"(7V#X5- M____@WWL`'0WBT4,BQ")5?B+?>Q7Z.8P``")PHM%#(D0_W7XZ.L$``"+?0R` M3P0!BT7T9HE'"(M%\&:)1PKK%XM]#/\WZ,H$``"+10A0Z*TP``")PHD7C678 M6UY?R<.058GE5U93Z`````!;@<.!K0``BW4(A?9U&XN#%````(L`BT`<_T`( MN`$```#ITP```(UV`&H0Z*T"``")QX/$!(7_=13'@Y`$```,````,<#IKP`` M`(UV`%=6Z-W]__^+@Q````#_,%?H2^?__XG&@\00A?9U'HN#)````(L`B8.0 M!```_S?H*00``%?H(P0``.N[D(M%#/;$`G4'BT8<@$@,"(M&'(M0"/]`"(72 M?A#_-^C]`P``5^CW`P``ZT.0BT8<@$@,!%;H,^'__X/$!(7`="B+1AR+4`B- M2O^)2`B#^@$/A67___]6Z`'J__]6Z&?F___I5/___XGV5NAJZO__B?"-9?1; M7E_)PU]?9FEN:0"058GE5E/H`````%N!PVZL``"+=0B#_@%T,XM&'(M0"(U* M_XE("(/Z`74BBT8<]D`,!'09C8.`4___4%;H'.___U;HENG__U;H_.7__S'` MC67X6U[)PXUV`%6)Y8/L!%/H`````%N!PQ2L``"+10C'1?P`````@_@!=0J+ M@Q0```"+$.L%B<*)5?QJ`8U%_%!2_W4,Z,CO__^%P'4$,<#K#(M`"(M5_(72 M=`(#`HM=^,G#C78`58GE4^@`````6X'#NZL``(-]#`%T$L>#D`0``"T```"X M_____^L8D(N3D`0``(M%$(D0QX.0!````````#'`BUW\R<,N9FEN:0")]E6) MY593Z`````!;@<-NJP``BX,4````BS"%]G0CC78`BT8<]D`,`G40C8.`5/__ M4%;H)N[__X/$"(MV"(7V=>"-9?A;7LG#D%6)Y8'L``$``%=64^@`````6X'# M'ZL``(U5#%+_=0B-M0#___]6Z+4?``")]S'`_+G_____\J[WT8U1_U)6:@'H M&W0``(VE]/[__UM>7\G#)$YE=$)31#H@;6%L;&]C+F,L=B`Q+C4N,BXQ(#(P M,#$O,#0O,#$@,34Z-#-!!8Y10AW\XV+ MH`0``(E-_(TTO0````"+%`Z%TG445^@J````BTW\BQ0.A=)U!#'`ZQ2+`HF$ M'J`$``#&`N^)^8A*`8U"!(UE\%M>7\G#58GE@^P,5U93Z`````!;@<..J0`` MBTT(@\$#QT7\`0```--E_(-]_``/CHP```"+@Q@%``")1?0Y1?Q]"XG&F?=] M_(G'ZPR0BW7\`W7TOP$```"+BY@$``"+@YP$```IR(G!.7\G#D%6)Y5=6 M4^@`````6X'#S:@``(MU"(7V=!^-?OR`?OSO=18/MD;]C8N@!```P>`"BQ0( MB5;\B3P(C67T6UY?R<-5B>6#[`175E/H`````%N!PXJH``#'1?P`````@WT( M`'4.BTT,4>C)_?__Z=@```"+=0B#QOR+30B`>?SO=0W'1?P!````#[9!_>LI M:@%6Z+P```"#Q`B%P'T:BX,L````_S!6Z*<```"#Q`B%P'T%N!X```"-2`.^ M`0```-/FBY,8!0``B=-=@"-1`+\.74,=PLY10QV!HM%".M!D(M-"%'H[_[__X/$ M!(M-#%'H%_W__XG'@\0$A?]U!C'`ZQZ)]CE]"'05B?`[10QV`XM%#%!7BTT( M4>BZ&P``B?B-9?!;7E_)PU6)Y8/L!%=64^@`````6X'#>J<``(M]"#'`C;.@ M!```B77\D#')BW7\BQ2&A=)T$#M-#'0+.?IT$D&+$H72=?!`@_@=?MZX____ M_XUE\%M>7\G#;6]R97!A9V5S.B!M=6YM87`@)7``;&0N575E/H`````%N! MPP6F``"+DS````"+"H/!`HD*B[,T````C12-`````%+_-NB4!P``B<*)%HM% M"%#HXR@``(G!BY,P````BQ*+LS0```"+-HE,EOB+?0@QP/RY______*N]]&- M40M2Z"$'``")P8N3,````(L2B[,T````BS:)3);\BY/A6?__B1&+D^59__^) M402+D^E9__^)40B+10A0BY,P````BQ*+BS0```"+"?]TD?SH["```(UE]%M> M7\G#58GE@^P$5U93Z`````!;@<,^I0``,?:+@S`````[,`^-E0```,=%_`@` M``"+?0A7BX,T````BP#_-+#H[#\``(/$"(7`=6"+@S0```"+`/\TL.@=_/__ MBX,T````BP#_=+`$Z`S\__^+BS````"+$8U"_H/$"#G&?2HI\HT$E?C___]0 MBY,T````BP*-!+!0BT7\`P)0Z-D8``"#Q`R+BS````"#`?Z#1?P$1HN#,``` M`#LP#XQR____C67P6UY?R<,Z`%6)Y593Z`````!;@<-^I```BT4(AR<.-=@!5B>564^@`````6X'#)J0``(M%"(7`=#90Z"8G M``")QHEU".L)C78`4.BV_O__@\0$C8-V6___4(U5"%+H`QT``(/$"(7`=>!6 MZ`K[__^-9?A;7LG#C78`58GE5E/H`````%N!P\ZC```Q]I"+@S@```#_-+#H MIOW__X/$!$:#_@%\Z8UE^%M>R<.)]E6)Y8/L!%=64^@`````6X'#EJ,``,=% M_``````Q_XMU"(UV`(M-#(H!A,!T0#PN=0B-00&)10R)P0^^`8N3/````(L2 M]D0"`01U!3'`ZR&0:@J-10Q04>AD(```B0:#Q@3_1?R#Q`Q'@_\'?K>+1?R- M9?!;7E_)PV-M<&YD97=E>3H@8V%N="!H87!P96X`D%6)Y8/L!%=64^@````` M6X'#!J,``#').TT,?2:+?1"+=0B)]CM-%'T9BQ:)5?R+!SG"?$!_)(/'!(/& M!$$[30Q\XHM5%#E5#'4&,<#K*XGV.TT,=!\[311U"K@!````ZQB-=@"-@]1< M__]0:@'HVA<``(GVN/____^-9?!;7E_)PVQI8B5S`"\`+G-O+@!R`%6)Y8'L MG````%=64^@`````6X'#%>/___P````"#Q`2%P`^$ M"0,``.G0`@``B?:+392#P02)C6C___^#?10`=&J#?8P`=60/ME8'BT64@\`" M.<)U5HM%E%"+39!1C7X(5^B)30``B<*#Q`R%TG4\BT64@'P&""YU,H!\!@EA M=2M7C9-S7?__4HN3-````(L2BTV8_S2*Z%@#``")18S'A7S___\!````@\0, M#[9&!SN%:/___P^,0@(``(M%E%"+39!1C48(B85P____4.@=30``B<*#Q`R% MT@^%'@(``&H$C9-U7?__4HM-E(UT#@A6Z/I,``")PH/$#(72#X7[`0``C58$ M4HU%P(F%9/___XF%;/___U#H,/W__XF%=/___X/$"(7`#X31`0``@WV(_W0F M@[U\____`'0=BTV,4>C3]___QT6,`````,>%?/___P````"#Q`2+A7#___]0 MC9-S7?__4HN3-````(L2BTV8_S2*Z'H"``")QHV3>EW__U)6Z&A<_/__B<*#Q!"%TGYUQX5X____`0```(-]C`!T#(M% MC%#H=O;__X/$!(N-%?/___P````!J(%:+C63___]1Z#83``"+A73___^)19R+5>"+30R)$8M5 MY(M%$(D0@\08BTV`4>AA1```B<:#Q`2%]@^%'/W__XM%@%#H!SD``(/$!(.] M?/___P!U'8.]>/___P!U%/]%F(N3,````(M-F#L*#XRN_/__BT6,C:58____ M6UY?R<-V:7)T=6%L(&UE;6]R>2!E>&AA=7-T960`C78`58GE4^@`````6X'# M=YX``/]U".C$\___@\0$AB+$P``C78`BUW\R<.-=@!5 MB>53Z`````!;@<,_G@``BU4(BT4,A=)U#E#HA//__X/$!.L-C78`4%+H@?7_ M_X/$"(7`=0Z-@V1A__]0:@'H/!,``(M=_,G#C78`58GE@^P05U93Z`````!; M@`!5B>53Z``` M``!;@<,WG0``BT4,BP"+7?S)PXGV58GE4^@`````6X'#&YT``(M5#(M%$(D0 MBUW\R<.-=@!5B>6+30B+50R+`8D"Q@',R<.)]E6)Y8M5"(M%$(/`^BM%#&;' M`I#I9HE"`L'H$&:)0@3)PY"0D)"0D)`D3F5T0E-$.B!V9G!R:6YT9BYC+'8@ M,2XS,"`Q.3DX+S$Q+S$U(#$W.C$Y.C`U(&-HR<-5B>6![%@$``!75E/H`````%N!PS.<``"+ M50AFBTH,@.']9HE-M&:+0@YFB46VBT(S(````5U93Z`````!;@<,SFP``BW4,QX54____`````(M% M"/9`#`AT!H-X$`!U*(M5"%+H9U4``(G!@\0$A%:/___P````"-58B)E4S___^-1?2)A5#___^0BU6`B95X____ZPZ0`76` M@WV()0^$2P(``&H!BT6`4(N53/___U+HL5,``(G&@\0,A?9_V(M]@"N]>/__ M_W1`0!??R#P`B)A7#___^+3?B-00&)1?B)P8/Y M!WXIBY50____4HM%"%#H=/W__XG!@\0(A%;/___P````#'A5S___\`````QX5D____```` M`,>%8/_________&18<`BT6`#[X`B85\_____T6`BXU\____@^D@@_E8#X?1 M!P``B=HKE(N(9O___^*)]@R8``"TD0``M)$``/B7``"TD0``M)$``+21``"T MD0``M)$``+21``#LEP``P)<``+21``#,EP``M)<``+21```DEP``&)<``!B7 M```8EP``&)<``!B7```8EP``&)<``!B7```8EP``M)$``+21``"TD0``M)$` M`+21``"TD0``M)$``+21``"TD0``M)$``)26``"TD0``M)$``+21``"TD0`` MM)$``+21``"TD0``M)$``+21``"TD0``D)4``+21``"TD0``M)$``+21``"T MD0``6)0``+21``"TD0``X),``+21``"TD0``M)$``+21``"TD0``M)$``+21 M``"TD0``M)$``+21``"PE@``C98``+21``"TD0``M)$``."6``"-E@``M)$` M`+21``#4E@``M)$``!R6``")E0``&)4``,B6``"TD0``W)0``+21``!1E``` MM)$``+21``#0DP``_TV`Z+]___'A6#_________Z=/]__^0,?:+A7S___^#P-"# M^`EW)HT,MHN5?/___XUT2M"+18`/O@")A7S_____18")P8/!T(/Y"7;:B;5@ M____A?8/C9W]___'A6#_________Z8[]__^0@(UL____@.ER_?__,?:)]HT, MMHN5?/___XUT2M"+18`/O@")A7S_____18")P8/!T(/Y"7;:B;5D____Z4S] M__^-=@"`C6S___]`Z2[]__^+58"`.FQU$$*)58"`C6S___\@Z1;]__^`C6S_ M__\0Z0K]__^#11`$BT40BDC\B$V,C56,B95X____Z0`%``"0@(UL____$(N% M;/___Z@@=`^#11`(BU40BW+XBWK\ZSF+A6S___^H$'4>BY5L____]L)`=!.# M11`$BT40#[]P_(GWP?\?ZQ*0@T40!(M5$(M*_(G(F8G&B=>%_WT+]]Z#UP#W MW\9%ARW'A3C___\!````Z=\"``"0BY5L____]L(@=" `$BT40BTC\BX5H M____F8G&B=>),8EY!.EZ^___B?:+E6S____VPA!T&8-%$`2+11"+2/R+E6C_ M__^)$>E6^___B?:+A6S___^H0'0:@T40!(M5$(M*_(N%:/___V:)`>DR^___ MB?:#11`$BU40BTK\BX5H____B0'I&?O__Y"`C6S___\0BY5L____]L(@=!*# M11`(BT40BW#XBWC\ZT6-=@"+E6S____VPA!T#8-%$`2+11"+2/SK)Y"+E6S_ M___VPD!T$8-%$`2+11`/MW#\,?_K$(GV@T40!(M5$(M*_(G.,?_'A3C___\` M````Z=D!``"-=@"#11`$BT40BTC\B%./___P(```"-DWAD__^)E53_ M__^`C6S___\"QX5\____>````.F<`0``B?:#11`$BT40BT#\B85X____A/___X.]8/___P!\/XN%8/___U!J`(N5>/___U+H=DT``(G! M@\0,A8"``")]HN]>/__ M_S'`_+G_____\J[WT8UY_^G*`@``B?:`C6S___\0BY5L____]L(@=!*#11`( MBT40BW#XBWC\ZT6-=@"+E6S____VPA!T#8-%$`2+11"+2/SK)Y"+E6S____V MPD!T$8-%$`2+11`/MW#\,?_K$(GV@T40!(M5$(M*_(G.,?_'A3C___\!```` MZ:$```"-=@"-@Y!D__^)A53____K#HGVC9-X9/__B954____BX5L____J"!T M$H-%$`B+51"+OSK18UV`(N%;/___Z@0=`Z#11`$BU40BTK\ZRB)]HN% M;/___ZA`=!*#11`$BU40#[=R_#'_ZQ&-=@"#11`$BT40BTC\B%./__ M_P(```"+E6S____VP@%T#XGP"?AT"8/*`HF5;/___\9%AP"+A6#___^)A5S_ M__^%P'P'@*5L____?XN52/___XF5=/___XGQ"?EU#8.]7/___P`/A#@!``"# MO3C___\!#X2^`````PC"(E3C___^+A73___^($`^L_@/![P.)M43_ M__\)O43___]USX7)#X3+````@/HP#X3"````2(F%=/___\8`,.FS````C78` M_XUT____:@!J"E=6Z(M$``"#Q!")A3S___^)E4#___^*E3S___^`PC"+A73_ M__^($&H`:@I75NC81```@\00B<:)UX7_=[EU!8/^"7>R_XUT____B?*`PC"+ MA73___^($.M-D/^-=/___XGQ@^$/BY54____B@P1BX5T____B`@/K/X$P>\$ MB?$)^777ZR&0C9.A9/__B95X____B=?_K1Y"+E73_ M__^)E7C___^)Z2G1C7FTBD6'B<;K+(GV@[U\____``^$3P4``(J5?/___XA5 MC(U%C(F%>/___[\!````QD6'`#'VB;U8____BY5<____.==]!HF56/___XGP MA,!T"O^%6/___^L4B?:+E6S____VP@)T!X.%6/___P+VA6S___^$#X7J```` MB[5D____*[58____A?8/CM8```"-@UAD__^)A3C___^#_A!^;XN%./___XN5 M\___B<&#Q`B%R0^% MH0,``(N52/___XF5P```"+M63___\K MM5C___^%]@^.V````(V#:&3__XF%./___X/^$'YQB?:+A3C___^+E7#___^) M`L="!!````"#1?P0@\((B95P____BTWXC5$!B57XB=&#^0=^-8N%4/___U"+ M50A2Z,;R__^)P8/$"(7)#X4)`P``BX5(____B85P____C9-H9/__B94X____ M@\;P@_X0?Y&+E3C___^+A7#___^)$(EP!`%U_(/`"(F%\?__B<&#Q`B%R0^%(0(``(N%2/___XF%\?__B<&#Q`B%R0^%80$``(N52/__ M_XF57\G#D)"0D"1.971"4T0Z(&)C;W!Y+E,L M=B`Q+C8@,3DY-B\Q,2\Q,B`P,#HU,#HP-B!J=&,@17AP("0`C78`5E>+="0, MBWPD$(M,)!2)^"GP.PP'/`<[]@^$#3T[S MI(M,)!3!Z0*#[@.#[P/SI5]>_,.0)$YE=$)31#H@=G-P___XG"BT6HQ@``B="+7:3)PY"0)$YE=$)31#H@97)R>"YC M+'8@,2XS(#$Y.3'`@)`!5B>53 MZ`````!;@<._B@``C4404/]U#/]U".C!`@``D+@8````S8##N"\```#-@,.X M&0```,V`P[@K````S8##4^@`````6X'#@HH``(N+0````%O_X8GVN$H```#- M@'+?PY"0D)"0D"1.971"4T0Z('-E=&5N=BYC+'8@,2XQ-2`Q.3DX+S$Q+S$U M(#$W.C$S.C4Q(&-H__^)QH/$!(7V=-:+ M@PP```"-%+T`````4O\P5NAB3P``@\0,BX,,````B3"+@PP```"+`,=$N`0` M````B7W\BU4(@#H`=`N`.CUT!D*`.@!U]2M5"(M%^(U4$`)2Z#7>__^)P8M5 M_(NS#````(LVB0R6AA;7E_)PXGV58GE@^P$5U93 MZ`````!;@<-VB```BWT(C77\ZR.-=@"+@PP```"+3?R-%(T``````Q#K`X/" M!(M"!(D"A"YC+'8@,2XS(#$Y.3'`@)``E'`@)`!5B>53Z`````!;@<-'AP`` MC44,4/]U".AT`0``BUW\R<.0D)"0D)"0)$YE=$)31#H@O__4(NS'````('&L````%;HVC(``(/$#(-]"`!T M'?]U#(M5"%)6Z"SJ__^-@S9Z__]05NBW,@``@\045^@""```4(V#.7K__U!6 MZ*`R``"-9?1;7E_)PY"0D)`D3F5T0E-$.B!S=')C<'DN4RQV(#$N."`Q.3DU M+S`T+S(X(#(R.C4X.C$R(&IT8R!%>'`@)`")]HM,)`2+5"0(48UV`(H"B`&$ MP'1,BD(!B$$!A,!T0HI"`HA!`H3`=#B*0@.(00.$P'0NBD($B$$$A,!T)(I" M!8A!!83`=!J*0@:(00:$P'00BD('B$$'@\((@\$(A,!UK%C#D)"0D)"0)$YE M=$)31#H@57 M5E/H`````%N!P[6#``"+?0B+=0R+1AB)1@CV1@P(=`:#?A``=2)6Z/`]``"# MQ`2%P'05Z`Q1``#'``D```"X_____^M+C78`B?D/MOF+1A"+%BG".U84?`]6 MZ#%"``"#Q`2%P'78,=+_3@B+!HGYB`C_!D([5A1T"_9&#`%T#X/_"G4*5N@& M0@``A#?1``=`:#?1`0=2&#^3!U'(H7 MB=:`^GAT!8#Z6'4.#[Y/`8/'`L=%$!````"#?1``=1/'11`*````@_DP=0?' M11`(````QT7\____?X-]^`!T!\=%_````("+1?R9]WT0B47\B57P@WWX`'02 MA=)^"XM%$"G"B57P_T7\]UWP,?;'1?0`````Z:````"-=@`[31`/C=,```"# M??0`#XR&````@WWX`'1#.W7\?`=U+#M-\'XGQT7T_____[X```"`Z%9/``") MP<SK#<=%]`$` M```/KW40`3VP@%T!H/!R8E-Y(M-Y.DG____C78`@WT,`'01BTT(@WWT`'0# MC4__BU4,B0J)\(UEU%M>7\G#D)"0D)"0D"1.971"4T0Z('=A"YC+'8@,2XS(#$Y.3'`@)``E M53Z`````!;@<-; M?P``C44,4/]U"(N#'````(/`6%#H^N/__XM=_,G#D"1.971"4T0Z(&9O<&5N M+F,L=B`Q+C8@,3DY."\P,B\P,R`Q.#HT,3HQ,2!P97)R>2!%>'`@)`"058GE M@^P$5U93Z`````!;@#Q`B%_W0HZ!$\``") MQH7V=!UHM@$``/]U_/]U".AS*@``@\0,A'`@)``E575E/H`````%N!PPE^``#HA4L``(LXBX,(````_S"-@^"! M__]0B[,<````@<:P````5N@N*P``@\0,@WT,`'0=_W40BU4,4E;H@.+__XV# MY8'__U!6Z`LK``"#Q!17Z%8```!0C8/H@?__4%;H]"H``/]U".@X`0``)$YE M=$)31#H@'`@)`")]E6)Y5/H`````%N!PT]]``!H_P```(V#*`4``%#_ M=0CH=`(``(M=_,G#D)"0D)"0D"1.971"4T0Z('-T#Q`2%_W025HM%"%!7 MZ/="``")^.L%C78`,<"-9?1;7E_)PY"0D)"0D"1.971"4T0Z(&5X:70N8RQV M(#$N."`Q.3DX+S$P+S$X(#$T.C,V.C,P(&ML96EN:R!%>'`@)`"058GE@^P$ M5U93Z`````!;@<-2?```BX-4````BSB%_W0@C78`BW<$3G@1C5<(B57\BU7\ MBP2R_]!.>?6+/X7_=>.+@U@```"+`(7`=`+_T/]U".B!*0``D"1.971"4T0Z M(&9R96%D+F,L=B`Q+CD@,3DY."\P,B\P,R`Q.#HT,3HQ,B!P97)R>2!%>'`@ M)`"058GE@^P(5U93Z`````!;@P``BWT0#Z]]#(7_=1@QP.F"````D"E] M^(M%^#'2]W4,ZW2-=@"+312+002%P'T)QT$$`````#'`B7WXBTT(B4W\B<8Y M]W8UB?96BTT4_S&+3?Q1Z*U!``"#Q`R+310!,0%U_"GW4>@2)```@\0$A00!.8M%$(UE[%M>7\G# MD)"0D)"0D"1.971"4T0Z(%]?'`@)`!L:6)C`%5N:VYO=VX@97)R;W(Z M("5U`)!5B>6#[`175E/H`````%N!P[)Z``"+=0B+?0QJ`(V#*(7__U#HOP`` M`(E%_(N#7````(/$"#LPP4!```5U93Z`````!;@0``@WT(`'0(BWT( M@#\`=0JX_____^D8`@``:B^+?0A7Z.4-``"#Q`B%P'0.5^@,`@``Z?L!``"- M=@#HFPP``(7`=16-@^B%__]0Z+\C``")QH/$!(7V=0:-L_"%__^-@QZ&__]0 MZ*0C``")A?C[__^#Q`2%P'01:B^)QU?HB0T``(/$"(7`=`R-NR.&__^)O?C[ M__^-C?S[__^)C?#[__^*%H32#X1:`0``C7W\B;WT^___C78`@/HZ#X1%`0`` M@/HE#X4F`0``1@^^!H/H3(/X*`^'!@$``(G?*[R#)(?____GC78`.'@``.1W M```,>```Y'<``.1W``#D=P``Y'<``.1W``#D=P``Y'<``.1W``#D=P``Y'<` M`.1W``#D=P``Y'<``.1W``#D=P``Y'<``.1W``#D=P``Y'<``.1W``#)=P`` MY'<``.1W``#D=P``Y'<``.1W``#D=P``Y'<``.1W``#)=P``Y'<``.1W``#D M=P``Y'<``.1W``#D=P``Y'<``,EW``"+E?C[__^*`H3`=&.-??R)O>S[__^- M=@`[C>S[__]S3X@!0D&*`H3`=$7K[(M5"(H"A,!T.HU]_(F][/O__XGV.XWL M^___(`4)!B@*$P'0=Z^P[C?3[__]S$XH&B`'K#(GV.XWT^___#[__];7E_)PY!5B>6#[&!75E/H`````%N!PW9W``!J M`/]U".@=(P``B<>#Q`B#__]T?8U%H%!7Z.D\``"#Q`B%P'0*5^CL0```ZU^) M]FH`:@!7:@%J`?]UU&H`Z(D*``")QE?HS4```(/$((/^_W0QBP9FP<@(P<@0 M9L'("#V)_XC_=1UJ".A>S/__B<*#Q`2%TG0-B3*+1=2)0@2)T.L/D/]UU%;H M4QT``+C_____C6646UY?R<.0D)"0D)!5B>6#["!75E/H`````%N!P\)V``"+ M10B#^/]U1^@V1```QP`)````Z6X!``"-=@"+3?R+01!FP<@(P<@09L'("(U4 M"!2+=>B+??2+1#<(9L'(",'($&;!R`@!T.D]`0``C78`BP")1?R#P!2)1?C' M1?``````BTW\BT$$9L'(",'($&;!R`A(B47D.47P#X_\````BW7XB77LB?:+ M5?`#5>2)T,'H'P'"P?H!C012P>`"B47HB<>+3?B+!#EFP<@(P<@09L'("(MU M#(EUX"E%X`^%G0```(M]_(M'#&;!R`C!R!!FP<@(`T7LB47TBW7HBWPQ"&;! MSPC!SQ!FP<\(B7WPBT0Q!&;!R`C!R!!FP<@(C40X_XE%Y#G'?W.-=@"+5?`# M5>2)T,'H'P'"P?H!C012P>`"B47HB<&+=?2+!`YFP<@(P<@09L'("(M]$(E] MX"E%X`^$U?[__WD'2HE5Y.L%D$*)5?"+3>0Y3?!^L.L>B?:#?>``?09*B57D MZP1"B57PBW7D.77P#XX,____Z,-"``#'`%,```"+112-9=1;7E_)PY"058GE M5E/H`````%N!PQYU``"+=0B#_O]U#^B20@``QP`)````B?#K%H7V=!#_=@3_ M-NAB&P``5N@4S/__,<"-9?A;7LG#D)"0)$YE=$)31#H@7U]E'`@)`!686QU M92!T;V\@;&%R9V4@=&\@8F4@7!E(&]R(&9O2!N;W0@0!07!E(&9O0!);F%P<')O<')I871E M(&EO8W1L(&9O2!O<&5N(&9I;&5S(&EN('-Y2!D979I8V4`0W)O&ES=',` M1&5V:6-E(&)U&5C(&9O575E/H`````%N!PYEL``"+=1R+?2!75FH` M_W48_W44_W40_W4,_W4(:@!HQ0```.C].```C67T6UY?R<.0D)"0D"1.971" M4T0Z('-T'`@)`"058GE5U:+?0B+51"%TG0@B?F+=0SK!8GV2G04B@:(`49!A,!U\TIT M!\8!`$%*=?F)^(UE^%Y?R<,D3F5T0E-$.B!I;F1E>"Y3+'8@,2XX(#$Y.34O M,#0O,C@@,C(Z-3@Z,#$@:G1C($5X<"`D`(UV`%.+1"0(BDPD#(UV`(H8.-ET M!T"$VW7U,R4`0``5U93 MZ`````!;@<,;:P``:@2+30A1Z,$6``")A9C^__^#Q`B#^/]U!S'`Z=X$``"- M1:!0B[V8_O__5^A\,```@\0(AE6!```C78`:@%J`HN]F/[__U?HI!0``(/$#(/X_W04:B3H M\;___XF%G/[__X/$!(7`=0R+C9C^__]1Z1L$``#H,S,``,>%E/[__P`$``"I M_P,``'4&B864_O__C86@_O__4(N]F/[__U?HY00``(/$"(7`?1*+C9S^__]1 MZ&+!___ITP,``)"+?0SWQP(```!T8<>%;/[__P````!J$(V#QY3__U"-M=S^ M__]6Z`H6``"#Q`R%P'0)]H6B_O__('1"QX5L_O__`0```.LVB?:+C8C^__]1 MZ`C!__]J`&H`:@"+O9C^__]7Z+XS``"#Q!3K0I#'A6S^__\`````C;7<_O__ M:A"-@\V4__]05NBI%0``@\0,A<`/E,`/MLB)C9#^__^#O6S^__\`=0B%R0^$ M[P(``,>%C/[__P````#'A6S^__\`````QX6(_O__`````,>%A/[__P````"- M=@"!O6S^____`P``=TZ+O93^__\!O6S^__\!O8S^__^+C8S^__]1B[V(_O__ M5^B3P/__B86(_O__@\0(A<`/A*8"``"+A8S^__\KA6S^__\#A8C^__^)A83^ M__]J`6H`:@"+C9C^__]1Z.`R``"+O9S^__^)1Q2)5QB+C6S^__]1B[V$_O__ M5XN-F/[__U'H$@\``(G&@\0<@_[_=1?H0S8``(,X%G4-@[V0_O__``^%O?[_ M_X7V?A$!M83^__\IM6S^___I./___XN]A/[__XF]@/[__X!-#`B+30SVP01T M1(N]F/[__U?H&#(``&H`BTT(4>@=%```B868_O__@\0,@_C_=1^+O8C^__]7 MZ'.___^+C9S^__]1Z&>___\QP.DB`@``BXV(_O__B[V<_O__B4\,@[V0_O__ M``^%90$``,>%?/[__P````#K'HT$M00```!0Z%^]__^)A7S^__^#Q`2%P`^$ M.P$``#'VB[V(_O__B;V$_O__BXV`_O__.<]S/[__^L'D,<&`````(!^ M!@YU#/9%#`%T!L<&`````(.%;/[__P2+O6S^__^#/P!UHHN-?/[__U'HXKW_ M_X/$!(N-C/[__XN]G/[__XE/$(N-A/[__RM/#(E/".M:B?:+C93^__^+O9S^ M__^)3Q!1Z-^[__^)1PR#Q`2%P'4A5^L)B?:+C9S^__]1Z)"]__^+O9C^__]7 MZ`0P```QP.M"BXV<_O__QT$4`````,=!&`````"`90S[B[V<_O__QT<$```` M`(N-F/[__XD/BTT,B4\@5^@#"@``B4<575E/H`````%N!P\%E``"+=0C_=AQ6Z#8)``"+ M/L<&_____\=&!`````#_=@SHO[S__U;HN;S__U?H,R\``(UE]%M>7\G#D)"0 M4^@`````6X'#>F4``(N+0````%O_X8GVN)X```#-@'+?PY"0D)"0D"1.971" M4T0Z('-T'`@)`"0BT0D!(M4)`CK!(GV0$**"(3)=%@X"G540$**"(3)=$PX"G5(0$** M"(3)=$`X"G4\0$**"(3)=#0X"G4P0$**"(3)="@X"G4D0$**"(3)=!PX"G48 M0$**"(3)=!`X"G4,0$**"(3)=`0X"G2@#[8`#[82*=##D)"0)$YE=$)31#H@ M;65R9V4N8RQV(#$N-R`Q.3DX+S$Q+S$U(#$W.C$S.C4Q(&-H9```BW4,@WT0`7<6Z-$Q``#'`!8` M``"X_____^F%!```D,=%\`````"+51#VP@-U#XM-"/;!`P^4P`^VT(E5\(GQ M#Z]-$(E-O(G(@\`$4.ABN?__B470@\0$APK1="+5B)3=R+?>R+5=B)5>3'1?C_____ MZQZ)=>3INP```(M-[(E-W(M]Z(M5U(E5Y,=%^`````"#??0`=30#?1`[?>0/ M@Q4!``!7BTW<48M5%/_2@\0(.T7X#X[_````_T7\@WW\!G75QT7T`0```(GV MBTT0B4W\ZS96BU7<4HM-%/_1@\0(.T7X?QZ)=>2+51`Y5?P/A;D```#'1?0` M````Z:T```"-=@")]\%E_`&+3?R--#D[=>1ROXMUY"MU$#G^=A96BU7<4HM- M%/_1@\0(.T7X#XX_____B?>+51"-!#J)1;@Y1>1V<8UV`(M%Y"GX,=+W=1#! MZ`$/KT40C30X5HM-W%&+513_TH/$"#M%^'\&B77DZPN0B?>+31`!^8E-N(M5 MN#E5Y'?"ZR[!;?P!BU7\C30Z5HM-W%&+513_TH/$"#M%^'\(B77DZP6-=@") M]XM-$#E-_'?2BWWDBU40B57\BTWL.4W<=7V#??``=$.-=@"+5>B+`HM-X(D! M@\($B57H@\$$B4W@.?IRYHGVBU7LBP*+3>")`8/"!(E5[(/!!(E-X(-%_/QU MY.FJ````C78`BU7HB@*+3>"(`4*)5>A!B4W@.?IRZHGVBU7LB@*+3>"(`4*) M5>Q!B4W@_TW\=>GK=HUV`(-]\`!T/HGVBU7LBP*+3>")`8/"!(E5[(/!!(E- MX#GZB#P02)3>"#1?S\=>3K,8GVBU7LB@*+ M3>"(`4*)5>Q!B4W@.?IRZHGVBU7HB@*+3>"(`4*)5>A!B4W@_TW\=>F+5=@Y M5>P/@GG]__^+3=0Y3>AS18-]\`!T(XUV`(M5Z(L"BTW@B0&#P@2)5>B#P02) M3>"+3=0YRG+CZV:0BU7HB@*+3>"(`4*)5>A!B4W@BTW4.R+`8M5X(D"@\$$B4WL@\($B57@BU78.=%RX^L:D(M- M[(H!BU7@B`)!B4WL0HE5X(M5V#G1+5=2+3<")$8/"`X/B_(E5P(M-Q#E- MR`^%@OS__XM5S(E5X(M-T(E-S(E5T`-5O(E5Q(M%T(/``R3\.1`/A3G\__^+ M3=`Y30AU&HM5O%*+3MO__,<"- M9:Q;7E_)PU6)Y8/L)%=64^@`````6X'#GE\``(M]$(M-%`')B4WX@_\%=RN+ M31A1BTT445>+30A1Z$$"``"+10R#P`,D_`^O?10#?0R)..DC`@``C78`B?B# MX`&-<`2+31A1BTT445:)^"GP#Z_!`T4(B47D4.@$`@``BT7D*T4(BTT,C40( M`R3\BTT4B4W@#Z_YB7W@BTT,`?F)"(M-#(E-Z(M]"(M-%(T$.5!7BTT8_]&# MQ!B%P`^?P`^VR(E-]#M]Y`^#K0$``)#'1?P"````BTWX`?F)3?")SHM-Y#G. MB#P@.#XOR+3?B--#F)\"M%"`-%#(D"B47H M@WWT`'XGBTT4C10YB*3=R("D).=>PK5?@YUW+ABWWPBTWX`4WP MBTWL.4WP*3=R("D).=>PK M5?@YUW+ABWWP.WWDB#P`,D_(M5#`-5X(D0B57H@'7T`3M]Y`^"5/[_ M_XUET%M>7\G#58GE@^P,5U93Z`````!;@<,F70``BU4(`U40B57XBU4,2HE5 M_'11D(MU^(M5"#G6=CN)]HEU](M5$"E5](M]]%:)^E*+513_TH/$"(7`?AV) M\8MU$(UV`(H7B@&(!T>($4%.=?.+=?0[=0AWQXM5$`%5^/]-_'6PC67H6UY? MR<.0D)"0)$YE=$)31#H@53Z`````!;@<-O7```_W4,_W4(Z+4```"+ M7?S)PR1.971"4T0Z('1E;&QD:7(N8RQV(#$N.2`Q.3DX+S`R+S(X(#$R.C4W M.C(X(&5N86UI($5X<"`D`(UV`%6)Y8/L!%=64^@`````6X'##EP``&H4Z%RQ M__^)QH7V=$*+NR@&``#_@R@&``")?@2+30B+012+41B)1@B)5@R+002)1A"- MBS`&``")^(/@'XT4A0````"+!`J)!HDT"HGXZP6X_____XUE\%M>7\G#C78` M58GE@^P(5U93Z`````!;@<.:6P``BTT,BQ;7E_)PY`D M3F5T0E-$.B!R96%D9&ER+F,L=B`Q+C$R(#$Y.3@O,3$O,3,@,3(Z,S$Z-3$@ M8VAR:7-T;W,@17AP("0`C78`58GE@^P$5U93Z`````!;@<-Z6@``BWT(BT<$ M.T<(?`_V1R`(=6#'1P0`````,<"%P'4P]D<@"'4J:@%J`&H`_S?H,B0``(E' M%(E7&/]W$/]W#/\WZ'<```")1PB#Q!R%P'XCBT\$B7\G#D)"0D)"0D%/H`````%N!P\I9``"+BT````!;_^&) M]K@0`0``S8!RW\.0D)"0D)!3Z`````!;@<.B60``BXM`````6__AB?:X20`` M`,V`575E/H`````%N!PV58``"+=0AFBT8,9H7`=1;H MU24``,<`"0```+C_____Z8@```"0J`AT$%;H3A<``(/$!(G'ZP6-=@`Q_XM& M((7`=!'_=AS_T(/$!(7`?06______X!^#`!]"_]V$.@HK___@\0$BU8PA=)T M%XU&0#G"=`E2Z!&O__^#Q`3'1C``````BT9$AB`%0``QT8$```` M`&:+1@RH('43J`1U3:@0=17HB"0``,<`"0```+C_____Z`0``@\0,A6#[%A3Z`````!;@<.P5```BTT(BT4,A M0$%*="6*&(3;=!,X&74/0$%*=!:*&(3;=`0X&72(#[8`#[8)*7\G#D)"0D)`D3F5T0E-$.B!F M<')I;G1F+F,L=B`Q+C8@,3DY-R\P-R\Q,R`R,#HQ-3HP,"!C:')I'`@)`!5B>53Z`````!;@<.C4@``C4404/]U#/]U".A)M___BUW\R<.X`0`` M`,V`PR1.971"4T0Z(&UE;7-E="Y3+'8@,2XX(#$Y.34O,#0O,C@@,C(Z-3@Z M,#4@:G1C($5X<"`D`(GV5U.+?"0,#[9$)!"+3"045_R#^0]^)(C$B<+!X!`) MT(GZ]]J#X@.)RRG3B='SJHG9P>D"\ZN)V8/A`_.J6%M?PR1.971"4T0Z(&9V M=W)I=&4N8RQV(#$N,3$@,3DY."\Q,2\Q-2`Q-SHQ.3HU,R!C:')I'`@)`"-=@!5B>6#["!75E/H`````%N!P[I1``"+30R#>0@`#X1I`P``BWT( M]D<,"'0&@W\0`'4CBTT(4>CN"P``@\0$A+1?P]``0``'8%N``$``!0BWWX M5XM-"/]Q'(M!+/_0B<:#Q`R%]@^.RP(```'WB7WX*77\BWT,BT<(*?")1PAU MGNFL`@``D/;"`0^%9P$``(UV`(M-"&:+40R#??P`=1R-=@"+??2+/XE]^(M- M](M)!(E-_(-%]`B%R73GB=`E`$(``&8]`$)U9(M-_(M]"#E/"'-9BU<0B57@ MBP\IT8E-Y(MW%(G*`U7\B?:-!'4`````C7`!.=9R\H/``E"+?>!7Z-&G__^) MPH/$"(72#X0D`@``B?"+30@K010!00B)41")<10#5>2)$6:+40R+?0B+=PCV MQ@)T)SEU_',#BW7\5HM-^%&+?0C_-^AH%@``@\0,*7<(`3>+=?SK?(UV`(M- M"(L!.T$0=BXY=?QV*5:+??A74.@^%@``@\0,BTT(`3%1Z+P.``"#Q`2%P`^% MI0$``.M$C78`BWT(BW<4.77\P$` M`.L:D(MU_%:+??A74.CJ%0``@\0,BTT(*7$(`3$!=?@I=?R+?0R+1P@I\(E' M"`^%I/[__^D^`0``C78`QT7P`````,=%[`````")]H-]_`!U(\=%\`````"- M=@"+3?2+"8E-^(M]](M_!(E]_(-%]`B%_W3G@WWP`'4SBTW\46H*BWWX5^@" M"```B<*#Q`R%TG0-BT7X2"G"B57LZPF)]HM-_$&)3>S'1?`!````BWWLB7W@ MBTT(BU$0BTW\.<]V`XE-X(M]"(M'%(E%Z(G&`W<(BP^)3>0YT78I.77@?B16 MBWWX5U'H$14``(/$#(M-"`$Q4>B/#0``@\0$A@Y?>!\'%"+ M3?A1BWT(_W<!6BTWX48M]Y%?HPQ0``(/$ M#(M-""EQ"`$Q*77L=1>+?0A7Z#8-``"#Q`2%P'4CQT7P``````%U^"EU_(M- M#(M!""GPB4$(#X75_O__,<#K#9"+?0B`3PQ`N/____^-9=1;7E_)PY"0D)`D M3F5T0E-$.B!U;6]D9&DS+F,L=B`Q+C,@,3DY-R\P-R\Q,R`R,#HP,3HU."!C M:')I'`@)`!5B>6#[`A75E/H`````%N!P]9-``"-1?A0BW40BWT4 M5U:+=0B+?0Q75NBZ````BT7XBU7\C67L6UY?R<,D3F5T0E-$.B!U9&EV9&DS M+F,L=B`Q+C,@,3DY-R\P-R\Q,R`R,#HP,3HU-B!C:')I'`@)`!5 MB>575E/H`````%N!PV%-``!J`(MU$(M]%%=6BW4(BWT,5U;H1P```(UE]%M> M7\G#D)"0)$YE=$)31#H@<61I=G)E;2YC+'8@,2XV(#$Y.3@O,#(O,#,@,3@Z M,S$Z-#`@<&5RR,````5U93Z`````!;@@3IP`0``#E]%'<'=24Y=1!V((-]&`!T"(M-&(DQB7D$ MN`````"Z`````.F=!```C78`C47TB470C57HB57,C4WX09HEP`HMUV&:)<`2+==3![A!FB7`&BU749HE0"(M%$(M5%(E% MU(E5V(MUV,'N$(M5S&:)<@*+?=AFB7H$BWW4P>\09HEZ!HM-U&:)2@C'1;@$ M````9H7V#X7@````C77J_TVX@WVX`0^%OP````^W=@*+1=`/MW@"B?@QTO?V MB85T____B=>+C73___]FB4VLP><0BT70#[=0!`G7B?@QTO?VB85T____B=>+ MC73___]FB4VJP><0BT70#[=0!@G7B?@QTO?VB#QP1X%(M5R(TT>HUV`&;'!@``@\;^3WGUO@0````K=;R+ M38G'`WVX.<=^9\=%H!````"+5;0I5:"--'T`````BTW0`?&)C73___^+1="- M=##^BY5T____#[<*B8U\____BTVTT[U\____#[<&BTV@T^")18"+A7S___\+ M18!FB0*#POZ)E73___^#QOY/.WV\?[^+5=!FQP1Z```/MWWVP><0#[=U^`GW MB7W8#[=]^L'G$`^W=?P)]XE]U(M%U(M5V(M-&(D!B5$$#[=%WL'@$`^W5>`) MT(E%V`^W1>+!X!`/MU7D"=")1=2+1=2+5=B-I6C___];7E_)PXUV`%6)Y8/L M"%=6,?8[=0Q]0\=%_!````"+31`I3?R+30B)3?B)SX/'`I"+3?@/MQ&+31#3 MX@^W!XM-_-/X"<*+3?AFB1&#P0*)3?B#QP)&.W4,?-:+30@/MP1QBTT0T^"+ M30AFB01QC67P7E_)PY"0D)`D3F5T0E-$.B!M96UC:'(N4RQV(#$N."`Q.3DU M+S`T+S(X(#(R.C4X.C`S(&IT8R!%>'`@)`")]E>+?"0(BT0D#(M,)!"%R70+ M_/*N=0:-1_]?PY`QP%_#)$YE=$)31#H@;75L=&EB>71E+F,L=B`Q+C8@,3DY M-R\P-R\Q,R`R,#HQ-CHT."!C:')I'`@)`")]E6)Y8M%"(7`=`6` M.`!U!3'`ZQ:0@WT,`'0*N`$```#K"(UV`+C_____R<.058GEBTT(BU4,A=)U M!S'`ZR>-=@"#?1``=0JX_____^L7C78`A7\G#B?95B>575HM- M"(M5#(MU$#'_A?9T%.L&B?9'3G0,B@*(`8/"!$&$P'7PB?B-9?A>7\G#D)"0 MD)"0D"1.971"4T0Z('=S971U<"YC+'8@,2XW(#$Y.3@O,#(O,#,@,3@Z-#$Z M,C4@<&5RC@`P``9HM&#*@(=4^H$'4(N/_____K=Y"H!'0YBU8PA=)T&XU&0#G"=`E2 MZ'B<__^#Q`3'1C``````9HM&#(G"@.+;9HE6#,=&!`````"+1A")!HG0#`AF MB48,@WX0`'4&5NAQ````9HM&#*@!=!''1@@`````BTX4]]F)3ACK##'2J`)U M`XM6%(E6"#'`C67X6U[)PY"0D"1.971"4T0Z(&UA:V5B=68N8RQV(#$N,3`@ M,3DY."\Q,2\Q-2`Q-SHQ-CHR-R!C:')I'`@)`"-=@!5B>6#[`A7 M5E/H`````%N!PYI$``"+=0CV1@P"=26-1?Q0C47X4%;H;````(G'_W7XZ,Z9 M__^)P8/$$(7)=16`3@P"C49#B0:)1A#'1A0!````ZSJ+@U@```"+DVP```") M$('/@````(D.B4X0BT7XB484@WW\`'01#[]&#E#H"0@``(7`=`.#SP%F"7X, MC67L6UY?R<.)]E6)Y8/L9%=64^@`````6X'#`D0``(MU"(M]#&:#?@X`?!*- M1:!0#[]&#E#H>`D``(7`?0R+51#'`@````#K)Y"+3:B!X0#P``")39R!^0`@ M```/E,")P8/A`8M5$(D*BT7DA)1DR_``@` M`(%]G`"```!U$(N#3````#E&*'4%OP`$``")^(UED%M>7\G#D)"0D)"0D"1. M971"4T0Z(&9I;F1F<"YC+'8@,2XQ,B`Q.3DX+S$Q+S$U(#$W.C$Y.C4S(&-H M>B-9?1;7E_)PU6)Y593Z`````!;@<.V M0@``BX-H````@S@`=07H`P$``(NS<````.L%C78`BS:+1@B+5@1*>`Z09H-X M#`!T(8/`6$IY\X,^`'7B:@KH0____XD&@\0$AR<-5B>564^@````` M6X'#_D$``&H%Z,P!``"+LW````"#Q`0K1@2%P'X;BQ:%TG0)B=8K1@2%P'_Q MA53Z`````!;@<.300``BX-8````BY-L````B1"+@V@```#' M``$```"+7?S)PY"0D)"0)$YE=$)31#H@9F9L=7-H+F,L=B`Q+C$Q(#$Y.3@O M,#(O,#,@,3@Z-#$Z,#<@<&5R]D`,&'42Z(4.``#'``D```"X_____^L& M4.@&````BUW\R<.058GE5U93Z`````!;@+50B+ M>A"%_W1-BU4(BS(I_HDZJ`-U&(M"%(E"".LTBU4(@$H,0+C_____ZRR)]HM5 M",=""`````#K&%97BU4(_W( M7\G#D)"0D)"0)$YE=$)31#H@4"``"X9````.G=`@``B?;'1>@!````C57H MQT($$P```.EG`@``B?;'1>@!````C57HQT($$@```.F*`@``B?:-1?!0:@CK MHL=%Z`@```"-5>C'0@03````Z6H"``")]L=%Z`@```"-5>C'0@04````Z5(" M``")]L=%Z`$```"-5>C'0@04````Z?\!``")]L=%Z`$```"-5>C'0@01```` MZ2("``")]L=%Z`8```#IKP```,=%Z`$```"-5>C'0@0@````Z<,!``")]L=% MZ`$```"-5>C'0@0E````Z:L!``")]L=%Z`@```"-5>C'0@0"````ZC'0@0#````Z;8!``")]L=%Z`@```"-5>C'0@0$````Z9X! M``")]L=%Z`@```"-5>C'0@0%````Z88!``")]L=%Z`@```"-5>C'0@0&```` MZ6X!``")]L=%Z`@```"-5>C'0@0'````Z58!``")]L=%Z`@```"-5>C'0@0( M````Z3X!``")]L=%Z`@```"-5>C'0@0)````Z28!``")]L=%Z`@```"-5>C' M0@0*````Z0X!``")]L=%Z`@```"-5>C'0@0+````Z;L```")]L=%Z`@```"- M5>C'0@0,````Z:,```")]L=%Z`@```"-5>C'0@0-````Z8L```")]L=%Z`@` M``"-5>C'0@0.````ZW:0QT7H"````(U5Z,="!`\```#K8I#'1>@(````C57H MQT($$````.M.D,=%Z`@```"-5>C'0@01````ZSJ0QT7H"````(U5Z,="!!(` M``#K)I#'1>@!````C57HQT($)@```.M-D,=%Z`$```"-5>C'0@0C````:@!J M`(U%Y%"-1>!0:@)2Z&,'``"#^/]T18M%X(7`=3ZX_____^LWZ!<*``#'`!8` M``"X_____^LEB?9J`&H`C47D4(U%X%!J`E+H*`<``+K_____@_C_=`.+5>") MT(M=W,G#)$YE=$)31#H@:7-A='1Y+F,L=B`Q+C<@,3DY."\Q,"\Q,R`Q-3HP M-3HP,B!K;&5I;FL@17AP("0`C78`58GE@^PL4^@`````6X'#$#P``(U%U%#_ M=0CHX0$``(/X_P^5P"7_````BUW0R<.0D)"0D"1.971"4T0Z(&-T>7!E7RYC M+'8@,2XQ-"`Q.3DW+S`W+S$S(#$Y.C0U.C0U(&-H'`@)`"-=@!5B>53Z``` M``!;@<,3.@``_W4,:!-T+$#_=0CH?`,``(M=_,G#D)"0D)"0D"1.971"4T0Z M(&)C;W!Y+E,L=B`Q+C8@,3DY-B\Q,2\Q,B`P,#HU,#HP-B!J=&,@17AP("0` MC78`5E>+?"0,BW0D$(M,)!2)^"GP.D"@^X#@^\#\Z6+1"0,7U[\PY`D3F5T0E-$ M.B!S=&1I;RYC+'8@,2XY(#$Y.3@O,3$O,34@,36#[`A75E/H`````%N!PQXY``"+=0C_=1#_=0P/OT8.4.A< M`@``B<>%_WP2B?J)T<'Y'P%64!%.5.L)C78`9H%F#/_OB?B-9>Q;7E_)PU6) MY593Z`````!;@575E/H`````%N!PX4X M``#_=12+=0R+?1!75HM]"`^_1PY0Z%8"``"#^/]U#8/Z_W4(9H%G#/_OZPV+ M=0B`3@T0B490B594C67T6UY?R<.-=@!5B>53Z`````!;@<,S.```BT4(#[]` M#E#HQP$``(M=_,G#D)`D3F5T0E-$.B!F=V%L:RYC+'8@,2XW(#$Y.3@O,#(O M,#,@,3@Z-#$Z,38@<&5R>>+5?B+$HE5^(72=<^+1?R-9>Q;7E_)PR1.971"4T0Z(&=E='!A M9V5S:7IE+F,L=B`Q+C<@,3DY-R\P-R\R,2`Q-#HP-SHQ,2!J=&,@17AP("0` MD%6)Y8/L#%/H`````%N!PS@W``"-B^`,``"#N^`,````=2['1?@&````C57X MQT($!P```,=%]`0```!J`&H`C47T4%%J`E+HM0$``(/X_W0&BX/@#```BUWP MR<.04^@`````6X'#XC8``(N+0````%O_X8GVN`0```#-@'+?PY"0D)"0D%/H M`````%N!P[HV``"+BT````!;_^&)]K@#````S8!RW\.0D)"0D)!3Z`````!; M@<.2-@``BXM`````6__AB?:X-@```,V` M7\G#D)`D3F5T0E-$.B!S>7-C=&PN8RQV(#$N."`Q.3DX+S$Q+S$X(#(P.C4Q M.C4Q(&ML96EN:R!%>'`@)``O=7-R+V)I;CHO8FEN.B]U____Y#' M`@(```#I;____Y#'`B````#I8____Y#'`@`(``#I5____Y#'`BP*`P#I2___ M_Y#'`@````#I/____Y#'`A0```#I,____Y#'`O\```#I)____Y#H2P$``,<` M%@```+C_____C67T6UY?R<-3Z`````!;@<.J,P``BXM`````6__AB?:XR@`` M`,V`'`@)`")]E/H`````%N!PQXS``!0Z)D```"/`%NX M_____[K_____PY"0D"1.971"4T0Z(&)C;W!Y+E,L=B`Q+C8@,3DY-B\Q,2\Q M,B`P,#HU,#HP-B!J=&,@17AP("0`C78`5E>+?"0,BW0D$(M,)!2)^"GP.D"@^X# M@^\#\Z6+1"0,7U[\PY!5B>53Z`````!;@<-O,@``BX,D````BUW\R<.0D)"0 MD"1.971"4T0Z('-C86YD:7(N8RQV(#$N,30@,3DY."\Q,2\Q,R`Q,CHS,3HU M,2!C:')I'`@)`"-=@!5B>6#['Q75E/H`````%N!PPHR``#_=0CH MH\;__XE%D(/$!(7`=$J-5:")58Q2BTV0_S'H>/?__X/$"(7`?#)J`&H8BU74 MBTW845+HC`D``(/$$(G&B=>)=92-!+4`````4.@-A___B46<@\0$A+!HD'9HM&!&:)1P2*1@:(1P:* M1@>(1PA^````BT4,BU6'`@)`"058GE@^Q85U93Z`````!;@R+10@Y MQG9SB?96B778BU40*578BT784(M5%/_2B<&#Q`B%R7Y5@WW@`'4.BPZ+1=B+ M.(D^B0CK.I"#?>`!?QZ+?1#![P*+3=B0BQ:+`8D&@\8$B1&#P01/=>_K%I"+ M?1"+3=B)]HH6B@&(!D:($4%/=?.+==@[=0AWCXM5$`%5[(M-"`--Q#E-[`^" M;O___^EY!@``D(M%#,'H`0^O11`#10B)1>R#?0P'#X90`@``BW4(BT4,2`^O M11")\@'"B57H@WT,*`^&NP$``(M%#(E%Y,%MY`.+5>0/KU40B57D`=8!THE5 MN(G7`WT(5HM%"%"+513_TH/$"(G!APK?>2+1>P#1>2)1=2+5>Q2 M5XM%%/_0@\0(B<&%R7TZBU744HM%[%"+513_TH/$"(G!AR)5:CK.HM%U%"+5>Q2BT44_]"#Q`B) MP87)?QZ+5=125XM%%/_0@\0(B<&+5=2)5:B%R7T+B7VHZP:+1>R)1:B+5:B) M5>R+1>B)1="+5;@I5=")QRM]Y%>+1=!0BU44_]*#Q`B)P87)?32+1>A05XM5 M%/_2@\0(B<&%R7Q5BT7H4(M5T%*+113_T(/$"(G'BTW0A?]]/HM-Z.LYC78` MBU7H4E>+113_T(/$"(G!AQ2BT44_]"# MQ`B)P87)?$J+5>A25HM%%/_0@\0(B<&)]X7)?3B+?>CK,XM5Z%*+1>Q0BU44 M_]*#Q`B)P87)?QJ+1>A05HM5%/_2@\0(B<&+?>B%R7T'B??K`XM][(E][(M% M#$B)1;R#?>``=1&+50B+"HM%[(LPB3*)".M"D(-]X`%_(HM]$,'O`HMU"(M- M[(GVBQ:+`8D&@\8$B1&#P01/=>_K&I"+?1"+=0B+3>R-=@"*%HH!B`9&B!%! M3W7SBU4(`U40B57XB56TB57\BT6\#Z]%$(M5"`'"B57PB57TZVF#?>``=1*+ M1?B+"(M5](LRB3")"NM#B?:#?>`!?R*+?1#![P*+=?B+3?2)]HL6BP&)!H/& M!(D1@\$$3W7OZQJ0BWT0BW7XBTWTC78`BA:*`8@&1H@104]U\\=%W`$```"+ M11`!1?@I1?2+5?0Y5?@/AT`!``"-=@"+10A0BU7X4HM%%/_0B<:#Q`B%]G][ M=6?'1=P!````@WW@`'43BU7\BPJ+1?B+,(DRB0CK1(UV`(-]X`%_(HM]$,'O M`HMU_(M-^(GVBQ:+`8D&@\8$B1&#P01/=>_K&I"+?1"+=?R+3?B-=@"*%HH! MB`9&B!%!3W7SBU40`57\BT40`47XBU7T.57X#X9O____BT7T.47X#X>@```` MC78`BU4(4HM%]%"+513_THG&@\0(A?9\>W5GQT7<`0```(-]X`!U$XM%](L( MBU7PBS*),(D*ZT2-=@"#?>`!?R*+?1#![P*+=?2+3?")]HL6BP&)!H/&!(D1 M@\$$3W7OZQJ0BWT0BW7TBTWPC78`BA:*`8@&1H@104]U\XM%$"E%\(M5$"E5 M](M%]#E%^`^&;____XM5]#E5^`^&2_[__X-]W``/A;T```"+1;2)1>R+51") M5<"+10P/K\*)1<"+30@!P3E-[`^#J@$``(GVBW7LBU4(.=9VBWT0P>\"BTW,D(L6BP&)!H/&!(D1@\$$3W7OZQ:0BWT0BTW,B?:*%HH! MB`9&B!%!3W7SBW7,.W4(=X^+11`!1>R+30@#3<`Y3>P/@F[____I$0$``)"+ M50P/KU40BT4(`=")1>B+3?PK30B+=?@K=?R)=;`YSGX"B`!?QV)]\'O`HMU")"+%HL!B0:#Q@2)$8/!!$]U[^L6D(GWBW4(C78`BA:* M`8@&1H@104]U\XM5\(E5K(M%]"E%K(M5K(E5R(MUZ"MU\"MU$#G6=@*)UH7V M?C^+3>@I\8-]X`%_'XGWP>\"BW7XC78`BQ:+`8D&@\8$B1&#P01/=>_K%I") M]XMU^(UV`(H6B@&(!D:($4%/=?.+=;`[=1!V'HM%%%"+51!2B?`QTO=U$(G& M5HM%"%#HH/C__X/$$(MUR#MU$'89BU7H*U6LB54(B?`QTO=U$(E%#.F2^/__ MD(UEG%M>7\G#)$YE=$)31#H@9&EV9&DS+F,L=B`Q+C0@,3DY-R\P-R\Q,R`R M,#HP,3HT,R!C:')I'`@)`"058GE@^P$5U93Z`````!;@<,N*``` MQT7\`````(MU"(M]#(M%$(M5%(7_?0KWWH/7`/??_T7\A=)]"_?8@](`]]J` M=?P!:@!24%=6Z/#:__^#??P`=`?WV(/2`/?:C67P6UY?R<.0D)"0D)"09-`` M`'```%1HT```-```5&S0``!Z``!4<-```&0``%1TT```=```5'C0``"B``!4 M?-```&@``%2`T```C0``5(30``"+``!4B-```$X``%2,T```+P``5)#0```M M``!4E-```"P``%28T```+@``5)S0``!A``!4H-```"H``%2DT```:P``5*C0 M``!!``!4K-```&P``%2PT```30``5+30``!J``!4N-````H``%2\T```,P`` M5,#0```&``!4Q-```#\``%3(T```/@``5,S0``!7``!4T-```($``%34T``` M4@``5.C0```&``!$`-$```8``$0(T0``=```1`S1```$``!$$-$```0``$04 MT0``!```1!C1```$``!$'-$```0``$0@T0``!```1"S1```$``!$.-$```0` M`$1`T0``!```1$31```$``!$2-$```0``$1,T0``!```1%#1```$``!$5-$` M``0``$18T0``!```1%S1```$``!$8-$```0``$1DT0``!```1&C1```$``!$ M;-$```0``$1PT0``!```1'31```$``!$>-$```0``$1\T0``!```1(#1```$ M``!$A-$```0``$2(T0``!```1(S1```$``!$D-$```0``$24T0``!```1)C1 M```$``!$G-$```0``$2@T0``!```1*31```$``!$J-$```0``$2LT0``!``` M1+#1```$``!$M-$```0``$2XT0``!```1+S1```$``!$P-$```0``$3$T0`` M!```1,C1```$``!$S-$```0``$30T0``!```1-31```$``!$V-$```0``$3< MT0``!```1.#1```$``!$Y-$```0``$3HT0``!```1.S1```$``!$\-$```0` M`$3TT0``!```1/C1```$``!$_-$```0``$0`T@``!```1`32```$``!$"-(` M``0``$0,T@``!```1!#2```$``!$%-(```0``$08T@``!```1!S2```$``!$ M(-(```0``$0DT@``!```1"C2```$``!$+-(```0``$0PT@``!```1#32```$ M``!$.-(```0``$0\T@``!```1$#2```$``!$1-(```0``$1(T@``!```1$S2 M```$``!$4-(```0``$14T@``!```1%C2```$``!$7-(```0``$1@T@``!``` M1&32```$``!$:-(```0``$1LT@``!```1'#2```$``!$=-(```0``$1XT@`` M!```1'S2```$``!$@-(```0``$2$T@``!```1(C2```$``!$C-(```0``$20 MT@``!```1)32```&``!$J-(```@``$3(T@``:```1,S2``!-``!$T-(``&L` M`$34T@``;```1-C2``!!``!$(-,``&@``$0DTP``30``1"C3``!K``!$+-,` M`&P``$0PTP``00``1'C3``!H``!$?-,``$T``$2`TP``:P``1(33``!L``!$ MB-,``$$``$2TTP``!@``1+S3``!H``!$P-,``(4``$0S````=0````$````X M````)````#\````C````6P```%<`````````#@```&4````+````,P```&L` M``!S````3````%X````-````/0````<````U````!````"T````/````-P`` M`(<`````````$````"D````P````;P```!@```!+````(@```$,````*```` M*P```#X```!,````E@````````"?`````````!L```!*````,0```%(````= M````9@```"<```!A````)0`````````@````.P```#D```!$````"````%D` M```"````+@```!(````V````&@```"\````V````20````8````J````$0`` M`$8````)````,````%T```"&````%P```'0````,````@P````4```!-```` M$P```"P````4````7````!4````R````%@```#P````9````,0```!P````Z M````'@```#D````?````;````"$````^````)@```(\````H````-````"D` M``!:````*@```%8````K````<0```"P```!%````+0```&,````N```````` M`"\```!H````,@```$`````T````<@```#4```!'````-P```$(````X```` M00```#H```!/````.P```(X````\`````````#T```!0````/P```$@```!` M````?0```$$```!8````0@```%,```!#````3@```$0```!4````10```(P` M``!&````9P```$<`````````2````%4```!)````=P```$H```!B````2P`` M`%$```!-````5P```$X```!J````3P```'\```!0````>@```%$````````` M4@```&````!3````70```%0```!V````50```($```!6````EP```%@```"+ M````60````````!:``````````````!?````6P```&0```!<````:0```%X` M````````7P````````!@`````````&$```!K````8@```)0```!C````D0`` M`&0```!M````90```&X```!F`````````&<```")````:````)L```!I```` MG0```&H```!P````;````'@```!M````B````&X```!\````;P```)4```!P M````@@```'$```"2````<@````````!T````@````'4```![````=@```),` M``!W````>0```'@`````````>0```'X```!Z````AP```'L```"-````?``` M`(4```!]`````````'X`````````?P```(H```"!`````````((```"$```` M@P````````"$````E@```(4```"9````A@````````"(````GP```(D````` M````B@```)@```"+````F@```(P`````````C0````````".`````````)`` M````````D0```)````"2````G@```),`````````E`````````"5```````` M`)<```"<````F`````````"9`````````)H`````````FP````````"<```` M`````)T`````````G@````````"@`````````*$`````````H@````````"C M```````````````'`````-`````````*````!0(``'AC````````%0````L` M`````````````!H````!```````````````@````!0(``!A\````````)@`` M``4"``!$E````````"X````'`0``E-(```0````_````!0(``*!5```````` M2P````4"``"X10```````%,````%`@``&#(```````!=````"0```$C=```` M````:`````4"``"\+````````'(````%`@``B$0```````!Y````!0(``"2H M````````@P````<```!@T````````)H````%`@``N(L```````"F````!0(` M`$B>````````KP````4"```X?0```````+<````%`@``!%````````#````` M!0(``!!%````````R@````4"``"L>@```````-(````%`@``=$D```````#: M````!0(``,!%````````X@````4"``!\30```````.H````%`@``V'4````` M``#S````!0(``$26````````_@````4"``#010`````````0``!0(``%A+````````9@$```4"``!,4@`````` M`&T!```%`@``\)P```````!X`0``!0(``!!)````````?P$```4"``#(10`` M`````(@!```%`@``/)T```````"/`0``!0(``'13````````EP$```D```!, MW0```````*0!```)````4-T```````"S`0``!P$``#C1```$````R0$````P``!0(``)"9````````I0,```4" M``!D@P```````+`#```%`@``7*````````"W`P``!0(``%`J````````QP,` M``4"``"\)0```````,\#```%`@``&'X```````#7`P``!P$``,#3```$```` MX`,```4"``"HE@```````.@#```%`@``F'X```````#T`P``"0```%C=```` M````_@,```4"```\,P````````L$```%`@``%"L````````>!```!0(``#B) M````````)@0```00```4"``"D>P```````(,$```+```````````` M``"*!````0``````````````D@0```D```!@W0```````*$$```%`@``(#,` M``````"P!```!0(``$PM````````NP0```4"``#@F0```````,($```%```` MG,(```````#)!```!0(```AE````````T@0```D```!DW0```````-L$```% M`@``N'0```````#F!```!0(``,2)````````[@0```4"``#0>@```````/D$ M```%`@``D%0`````````!0``"P``````````````!@4```$````````````` M``T%```'`0``M-,```P````6!0``!0(``%B.````````(@4```4"``"8B0`` M`````"D%```%`@``N)D````````O!0``!0$``+24```!`0``.@4```4"``#T M@@```````$4%```%`@``<#,```````!5!0``!0(``#1E````````804```4" M``!$=````````&H%```%`@``9#(```````!R!0``"0```&C=````````>04` M``4"``#$C@```````((%```'`0``"-$```0```"1!0``"P`````````````` MEP4```$``````````````)X%```%`@``'#4```````"H!0``!0(``+QC```` M````K@4```4"````5````````+0%```%`@``T'8```````"\!0``!0(``#`E M````````Q04```4"``"$&0```````,T%```%`@``B"<```````#3!0``!0(` M`%":````````V@4```4"```(F@```````.$%```%`@``-(\```````#I!0`` M!0(``&!1````````\`4```<```#(TP```````/<%```%`@``8'H```````#^ M!0``!0(``-PM````````"08```D```!PW0````````X&```%`@``\'<````` M```6!@``!0(``%"*````````(`8```4"``#HG0```````"D&```)````;-T` M```````Y!@``!0(``*AV````````7U]$64Y!34E#`%]I')E86QL;V,`7U]?8VQE86YU<`!?9V5T9&5W97D` M7V)C;W!Y`%]?7V1I=F1I,P!?7T=,3T)!3%]/1D93151?5$%"3$5?`%]?7W-M M86ME8G5F`%]S8V%N9&ER`%]C86QL;V,`7U]V=V%R;G@`7W9S<')I;G1F`%]G M971E;G8`7W-T7-C86QL`%]?=V%R;@!? M9V5T975I9`!C97)R;W(`7W-T0!?=6YS971E;G8`7W-T9%]S M96%R8VA?<&%T:`!?861D7W-E87)C:%]P871H`%]?7W-D:61I;FET`%]A;'!H M87-O0!?7!E7P!?;65M8W!Y`%]?7W-F=G=R:71E`%]M M86EN7VUA<`!?;61?&ET`%]?7W-R96%D`%]?7W-S965K M`%]M8G-T;W=CF4`7U]?=6UO9&1I,P!?0!?:6]C=&P`7V5T97AT`%]O<&5N9&ER`%]E;G9I M&5C+VQD+G-O`)#L MT```_____V#=``#4(@``Z",``$`D``"<)```Z"0``#`7`````````````.@% M```$````D)"0D#@J``"0D)"06F,``$)C```H8P``&&,```!C``#M8@``UV(` M`,!B``"N8@``FF(``(=B``!M8@``5F(``$1B```X8@``(F(``!9B```*8@`` M^&$``-9A``#&80``MV$``*9A``"(80``=&$``%5A``!&80``-V$``!]A```2 M80``_&```.U@``#A8```P&```*]@``".8```=&```%9@```W8```&F````E@ M``#J7P``TU\``+Q?``"B7P``BE\``&Q?```\7P``)5\```9?``#V7@``WUX` M`+M>``":7@``@5X``&=>``!+7@``,UX``!)>``#P70``W%T``,E=``"G70`` ME%T``(==``!V70``8ET``$]=``!`70``+%T``!9=``#T7```XEP``-!<``"\ M7```IEP``(Q<``!Y7```8%P``#Y<```I7```%EP```-<``#H6P``OEL``$#1 M````````D)"0D``````1````:-<```````````````````0````````````` M``````"LT@``))@``#27``#0EP``A)<````````````````````````````` M```````````````````````````````````````````(``$````````````` M````!-,``"28```TEP``T)<``(27```````````````````````````````` M````````````````````````````````````````"@`"```````````````` M`%S3```DF```-)<``-"7``"$EP`````````````````````````````````` M`````````````````````*#2```#````K-(``+24``"0D)"0```````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````$````!@````#0```.````!0(``'AC```9````"P`` M```````>`````0`````````D````!0(``!A\```J````!0(``$24```R```` M!P$``)32``!#````!0(``*!5``!/````!0(``+A%``!7````!0(``!@R``!A M````"0```$C=``!L````!0(``+PL``!V````!0(``(A$``!]````!0(``"2H M``"'````!P```�``">````!0(``+B+``"J````!0(``$B>``"S````!0(` M`#A]``"[````!0(```10``#$````!0(``!!%``#.````!0(``*QZ``#6```` M!0(``'1)``#>````!0(``,!%``#F````!0(``'Q-``#N````!0(``-AU``#W M````!0(``$26```"`0``!0(``-!%```+`0``!0(``)A%```2`0``!0(``/!% M```<`0``!0(``-A]```C`0``!0(``/A+```K`0``!0(``.AS```T`0``!0(` M`,@G```]`0``!0(``$!K``!%`0``!0(``,B<``!/`0``!0(``*AD``!7`0`` M!0(``"!Y``!B`0``!0(``%A+``!J`0``!0(``$Q2``!Q`0``!0(``/"<``!\ M`0``!0(``!!)``"#`0``!0(``,A%``",`0``!0(``#R=``"3`0``!0(``'13 M``";`0``"0```$S=``"H`0``"0```%#=``"W`0``!P$``#C1``#-`0``!P$` M`##1``#>`0``!0(```1*``#G`0``!0(``/Q0``#O`0``!0(``!R;``#W`0`` M!0$``'!C```%`@``!P$```#1```1`@``!0(``/B5```<`@``!0(``("8```D M`@``!0(``.`Q```M`@``!0(``-"5```X`@``!0(``#`L``!,`@``!0(``#AD M``!5`@``!0(``-Q'``!?`@``!0(``(@L``!P`@``!0(``-@K``"!`@``"0`` M`%3=``"-`@``!0(``/2?``"8`@``!0(``&!\``"A`@``!0(``(27``"K`@`` M!0(``)Q/``"S`@``!0(``)!9``"]`@``!0(``'A(``#%`@``!0(``%PS``#8 M`@``!0(``%",``#D`@``!0(``(A6``#N`@``!0(``!QW``#X`@``!0(``*"- M``#_`@``!0(``/1K```*`P``!0(``)B=```3`P``!0(``#Q&```;`P``!0(` M`"28```E`P``!0```$X````S`P``!0(```A3```]`P``!0(``*!0``!#`P`` M!0(```"*``!+`P``!0(``'R/``!5`P``!0(``#R0``!>`P``!0(``/AJ``!G M`P``!0(``)1J``!Q`P``!0(``#A;``!\`P``!0(``*2.``"&`P``!0(``+1] M``"/`P``!0(``,"*``":`P``!0(``*!*``"B`P``!0(``)"9``"I`P``!0(` M`&2#``"T`P``!0(``%R@``"[`P``!0(``%`J``#+`P``!0(``+PE``#3`P`` M!0(``!A^``#;`P``!P$``,#3``#D`P``!0(``*B6``#L`P``!0(``)A^``#X M`P``"0```%C=```"!```!0(``#PS```/!```!0(``!0K```B!```!0(``#B) M```J!```!P$``*S2```P!```!0(``*!,```Y!```"0```%S=``!#!```!0(` M`#27``!,!```!0(``-"7``!5!```!0(``!R*``!?!```!0(``!R9``!L!``` M!0(``'R"``!W!```!0(``$0!``!]!```!0(``*1[``"'!```"P````````". M!````0````````"6!```"0```&#=``"E!```!0(``"`S``"T!```!0(``$PM M``"_!```!0(``."9``#&!```!0```)S"``#-!```!0(```AE``#6!```"0`` M`&3=``#?!```!0(``+AT``#J!```!0(``,2)``#R!```!0(``-!Z``#]!``` M!0(``)!4```$!0``"P`````````*!0```0`````````1!0``!P$``+33```: M!0``!0(``%B.```F!0``!0(``)B)```M!0``!0(``+B9```S!0``!0$``+24 M```^!0``!0(``/2"``!)!0``!0(``'`S``!9!0``!0(``#1E``!E!0``!0(` M`$1T``!N!0``!0(``&0R``!V!0``"0```&C=``!]!0``!0(``,2.``"&!0`` M!P$```C1``"5!0``"P````````";!0```0````````"B!0``!0(``!PU``"L M!0``!0(``+QC``"R!0``!0(```!4``"X!0``!0(``-!V``#`!0``!0(``#`E M``#)!0``!0(``(09``#1!0``!0(``(@G``#7!0``!0(``%":``#>!0``!0(` M``B:``#E!0``!0(``#2/``#M!0``!0(``&!1``#T!0``!P```,C3``#[!0`` M!0(``&!Z```"!@``!0(``-PM```-!@``"0```'#=```2!@``!0(``/!W```: M!@``!0(``%"*```D!@``!0(``.B=```M!@``"0```&S=```]!@``!0(``*AV M``!'!@``'P```"````!4!@``!````"````!9!@``'P```'````!@!@``!``` M`'````!O!@``!````'````"!!@``!@$``.#0``"2!@``!@$``.C0``"A!@`` M!@$``.S0``"E!@``!@$```31``"N!@``!@$```S1``"X!@``!`(``-0B``#" M!@``!`(``.@C``#-!@``!`(``$`D``#6!@``!`(``)PD``#?!@``!`(``.@D M``#I!@``!`(``#`7``#S!@``!`(``'`````'!P``!````(8````+!P``!``` M`)8````/!P``!````*$````3!P``!````*\````7!P``!````,0````;!P`` M!````-H````?!P``!````.X````C!P``!`````8!```G!P``!````"$!```K M!P``"````,C3```P!P``"````,S3```V!P``"````-#3```[!P``"````-33 M``!!!P``"````-C3``!*!P``"````-S3``!;!P``"````.C3``!Q!P``"``` M`.S3``"(!P``"````.33``":!P``!`(``#@)``"J!P``"````.#3``"[!P`` M!`(``#@@``#$!P``"````/#3``#0!P``!`(``-0$``#;!P``!`(``%@&``#E M!P``!`(``$`.``#P!P``!`(``*@;``#\!P``!````+D$````"```!````,P$ M```%"```!`(``(P*```1"```!````,<%```6"```!````.@%```;"```!``` M`.D%```@"```!`````8&```E"```!````!L&```J"```!````#@&```O"``` M!````$(&```T"```!````$P&```Y"```!````$\&```^"```!````%(&``!# M"```!`(``#`*``!2"```!`(``#P>``!="```!````(P-``!B"```!`(``,0- M``!P"```!````#`.``!U"```!````#8.``!Z"```!`(``)0/``"%"```!`(` M`.P2``"1"```!`(``$03``";"```!````-$.``"@"```!````/D.``"E"``` M!````!"P``#````!````!H"P``#````!````!R"P``'P```%!$``!["P``'P`` M`-!$``"'"P``'P```&!%``"1"P``'P```&!%``":"P``'P```&!%``"C"P`` M'P```&!%``"K"P``'P```&!%``"S"P``'P```+A%``"]"P``'P```,!%``#' M"P``'P```,A%``#2"P``'P```-!%``#="P``'P```-A%``#I"P``'P````!& M``#S"P``"````(#5```*#```'P```#A(```3#```!````'%(```B#```!``` M`'9(```Q#```'P```-A(```Y#```'P```#A)``!##```'P```,A)``!.#``` M'P```%A*``!7#```!````)%*``!F#```!````)9*``!U#```!````)E*``"$ M#```'P```"!+``".#```'P```,!+``"8#```'P```&A,``"@#```'P```$!- M``"J#```'P```&!/``"S#```'P```,!/``"]#```!````/I/``#-#```!``` M`/]/``#=#```'P```&A0``#D#```'P```,!0``#N#```'P```"A1``#W#``` M'P````A2``#_#```!````$!2```-#0``!````$52```;#0``!````$A2```I M#0``'P```,A2```U#0``"````(C5``!*#0``'P```#A3``!4#0``'P```,A3 M``!<#0``'P```%A4``!E#0``'P```$A5``!S#0``!````(A5``"'#0``!``` M`(U5``";#0``'P```$A6``"F#0``!````$A6``"W#0``!````%!6``#(#0`` M!````'Y6``#9#0``!````(-6``#J#0``!````(17``#[#0``'P```)!9```& M#@``'P```#A;```2#@``'P```(!;```A#@``'P```'AC```N#@``'P```(!C M```V#@``'P````!D``!!#@``'P```'!D``!+#@``'P```,AD``!6#@``!``` M`"=E``!G#@``!````"UE``!X#@``'P```%AJ``"$#@``'P```.!J``"/#@`` M'P````AK``"9#@``'P```+AK``"B#@``'P```+!S``"M#@``'P````AT``"X M#@``"````(C6``#0#@``"````)#6``#F#@``'P```)AU``#Q#@``'P```)!V M``#]#@``'P```+AV```'#P``'P```.!V```0#P``'P```+AW```:#P``'P`` M`+AX```D#P``!`(``/!X```X#P``'P```$AZ``!!#P``'P```'!Z``!+#P`` M'P```&A[``!7#P``'P````!\``!?#P``'P```"A\``!J#P``'P````!]``!T M#P``'P```'A]``!_#P``'P```-A]``"(#P``'P```.!]``"2#P``'P```%A^ M``"=#P``'P```$""``"H#P``'P```+B"``"S#P``'P```"B#``"^#P``!@$` M`)C2``#3#P``'P````")``#=#P``'P```%B)``#J#P``'P```(B*``#T#P`` M'P```'B+``#_#P``'P```/B,```)$```"````!#7```>$```'P```/B.```H M$```'P````"0```S$```!````'"0``!$$```'P````B4``!.$```'P```'B4 M``!8$```'P```+B5``!E$```'P```."5``!R$```'P````B6``!_$```'P`` M`'"6``")$```'P```/B6``"2$```'P```$B8``";$```'P```."8``"J$``` M"````$#=``#$$```'P```'B9``#-$```'P```*"9``#5$```'P```,B9``#> M$```'P```/"9``#G$```'P```!B:``#P$```'P```(B:``#Z$```!````,&: M```*$0``!````.2;```:$0``'P```+"<```F$0``'P```-B<```S$0``'P`` M``"=```]$0``'P```&"=``!($0``'P```.B=``!2$0``'P````B>``!=$0`` M'P```""@``!F$0``'P```.BG``!P$0``7U]$64Y!34E#`%]I')E86QL;V,`7U]?8VQE86YU<`!?9V5T9&5W M97D`7V)C;W!Y`%]?7V1I=F1I,P!?7T=,3T)!3%]/1D93151?5$%"3$5?`%]? M7W-M86ME8G5F`%]S8V%N9&ER`%]C86QL;V,`7U]V=V%R;G@`7W9S<')I;G1F M`%]G971E;G8`7W-T7-C86QL`%]?=V%R M;@!?9V5T975I9`!C97)R;W(`7W-T0!?=6YS971E;G8`7W-T M9%]S96%R8VA?<&%T:`!?861D7W-E87)C:%]P871H`%]?7W-D:61I;FET`%]A M;'!H87-O0!?7!E7P!?;65M8W!Y`%]?7W-F=G=R:71E M`%]M86EN7VUA<`!?;61?&ET`%]?7W-R96%D`%]?7W-S M965K`%]M8G-T;W=CF4`7U]?=6UO9&1I,P!?0!?:6]C=&P`7V5T97AT`%]O<&5N9&ER`%]E M;G9I6T`7U]?9&QC=&P`7U]?9&QE>&ET`%]?7V1L861D<@!? M;61?5]P871H`%]L9%]S=7!P'1F`%]M;W)E8V]R M90!?<&%G97!O;VQ?96YD`%]F:6YD8G5C:V5T`$Q#,`!,0S$`7W)C"YS;P!?=V%R;BYS;P!?97)R>"YS;P!?97)R+G-O`&5R"YS;P!V=V%R M;G@N7-C=&PN7-C=&PN7-C86QL+G-O`&-E3G5(Y\#`(&\`$'`` M,!`O`%V(+PAA_P``X_A0CR]``!!,WP,#3G4B;P`$(B\`""`\@```!$Y,3G4` M`$Y6```@;@`((FX`$`@H``$`!V<2("X`#-&12'@`!"\)8?\``.4"3EY.=4Q$ M7TQ)0E)!4EE?4$%42`!,1%]04D5,3T%$`$Q$7TY/4U1$7U!!5$@`3$1?4U50 M4%)%4U-?5T%23DE.1U,`3$1?5T%23E].3TY?4%5215]#3T1%`$Q$7TY/7TE. M5$523E]314%20T@`3$1?5%)!0T5?3$]!1$5$7T]"2D5#5%,`0V%N;F]T('-E M="!BX$O[V``H+@`()BX`#"0N`!`@!%.`>@.Z M@&0&@F+ MJ``,(&T`'""*+P)"IR)#+Q%"IT*G+RT!$&'_```%9B1`(&H`&E*H``@@:@`: M>@*+J``,3^\`,'H#NH1L"B)#(VT!#``@8`PB0R!I``PA;0$,``PO+0$(8?\` M`.&T(&T!!""`6(]G"B\`8?\``!J^6(\D;0#T+RT!`&'_``#ADB2`*&T`#"\4 M8?\```$,4(]*DF<0+Q1A_P```H1"IV'_``#A?B\48?\```E^(D,@:0`,)&@` M""!4)*@`""!I``PF:``$(&T`B"=0`!18CTJK``1G``"*)&T`;"`21(`D*0`4 MQ(!(>``'+Q(O`F'_``#@Z$_O``QZ_[J`9A0@;0!X+Q`O+0#\2'@``6'_``#@ MPDAK`!`B0R\I`!1A_P``X/I(>``%+Q(O`F'_``#@K$_O`!1Z_[J`9A0@;0!X M+Q`O+0#X2'@``6'_``#@AB)#)VD`%``,2I1G!GH!)T4`"&'_```5=B)#+RD` M"&'_``#@(D*`3.X\//_@3EY.=25S.B!L:6(E3G5,1%]44D%#15],3T%$141?3T)*14-4 M4U]04D]'3D%-10``3$1?5%)!0T5?3$]!1$5$7T]"2D5#5%-?1DU4,0`)+6PE M;RXE;2`]/B`E<"`H)7@I"@!,1%]44D%#15],3T%$141?3T)*14-44U]&350R M``DE;R`H)7@I"@!N;W0@9F]U;F0`)7,`)60`)7``3E;__$CG/SPJ?```V=Y+ M^]@`)FX`""\M`.AA_P``WM8H`%B/9@0H+0!(+RT`Y&'_``#>PBP`6(]F!"PM M`.`O+0#<8?\``-ZN*@!8CV8``@@J+0#88``"`"UK``S__&<``?(H;O_\)A0@ M:P`:(F@`!$J)9PP@:0`:(!'0J``@UH`D*P`$9@0D+0#4)$4H;O_\2BP`!&P" M)$82&DG!9P`!M'XEOH%G``#6?ER^@6<^*&T`T$/L`%@@*0`(+@!3AR-'``A3 M@&H,L*D`&&T0#`$`"F<*(%$0@5*18``!;"\)+P%A_P``W@A0CV```5P2$DG! M(`%^;KZ!9Q9M"DJ!9P`!3&```4)^=+Z!9SA@``$X*&T`T$/L`%@@*0`(+@!3 MAR-'``A3@&L,(%$0O``*4I%@``$4+PE(>``*8?\``-VP8``!`BAM`-!#[`!8 M("D`""X`4X+PDO`6'_``#<_F!0+P0O+0#(8$(@;0!X M+Q`O+0#(8#8O`R\M`,A@+BAN__PX;``(+PPO+0#,8!XH;O_\.&P`"B\,+RT` MS&`.+P(O+0#(8`8O$R\M`,1A_P``W*10CU**$!))P"(`4HIF`/Y0)FL`"$J+ M9@#]_DSN//S_U$Y>3G5.5@``2.<\/"I\``#7>$O[V``D+@`()BX`%"HN`!Q( M>``D8?\``-Q0)D!(>``>8?\``-Q$)$!"J@`(*"T`L")$(%$@BDGJ``@BC`(J M`'\`%"2#4(]*@F<.+P)A_P``VU@E0``$8`1"J@`$)6X`#``,)44`%B5+`!I" MJP`(0JL`#"=N`!``!"=N`!@`$$J%9UY*@V80<@,B1;*19@@@;0!L(!!@`D*` M)T``('`,<@@T@A6```<(F!B!M``PD4$J*9SQ"@D*!("H` M!&<@(D`0$2!#L!AF#%*)2@!G&!`1L!AG]!01$BC__[*"9P@D:@`(2HIFTDJ* M9P8@"F```7Q"IT*G+P-A_P``V;0D0$_O``QZ_[J*9A!*KO_<9P`!6D*N_]Q@ M`/[^2'@`($AN_^`O"F'_``#9R$_O``QZ(+J`9@`!+B(N_^`D`2`!0D!*@&<( M#$$!"&8*8&(,@0```0AG6B`"0D!*@&<(#$$!!V8*8$H,@0```0=G0B`"0D!* M@&<(#$$!"V8*8#(,@0```0MG*D)"2H)G"`Q!`,QF"F`<#($```#,9Q0O"F'_ M``#8\"!M`!AZ3R"%8```OD*G0J``%("[_Y-"N_^C0KO_L+P!" MIV'_``#8T"0`3^\`''K_NH)G``"$2'@`!R\N_^@F0M?N_^0O"V'_``#8Y$_O M``Q*@&9D0J="IR!M`+@O$$AX$!)(>``'+R[_["`"T*[_Y-"N_^@O`&'_``#8 M?$_O`!QZ_[J`9S(O"F'_``#86B!"T>[_Y-6H``@O""`N_^30KO_HT*[_["\` M+P(O#"\$+P-A_____"9@"B\*8?\``-@H0H!,[CQ\_[A.7DYU=V%R;FEN9SH@ M;&EN:R!M87`@96YT"8"(@J0`()&T`L"`)4("PDF8")(@@:0`:+R@`$"\1 M8?\``->.)&[_^"IN__Q.7DYU+FEN:70`7U]I;FET``!.5@``2.<@)"I\``#2 MU$O[V``D;@`()`IG'B!J`!H(*``!``]F"B\*8?\```$V6(\D:@`(2HIFXB1" M2HIG'B!J`!H(*``!``]F"B\*8?\```0.6(\D:@`(2HIFXB1"2HIG,"!J`!H( M*``!``]F'"\M`*PO"F'_```$0B\M`*@O"F'_```$-D_O`!`D:@`(2HIFT$SN M)`3_]$Y>3G5W87)N:6YG.B!N;VX@<'5R92!C;V1E(&EN("5S(&%T("5X("@E M6UB;VP@)7,@870@)7`@:6X@)7,@8VAA M;F=E9"!S:7IE.B!E>'!E8W1E9"`E;&0L(&%C='5A;"`E;&0`0V%N;F]T(&1I M@"`'?OC`A]", M+4#_^"UH`!C_]"UH`!S_\"UH`!3_[$JK`#1G)$AX``$O+0"D(D+3ZP`0+PD@ M:@`(U*@`$"\"8?\``-6V3^\`$+GN__AD``(4+`Q>AD/L``0M2?_H(D0@$2H` MVI0@:0`6(&@`""(H`#!*@&8&(&T`;"`0T(&PA6,``+`B1@@1``1G)")$(&D` M&B)N_^CIT0`83"@(```4)&@`&"!H`!S1\@@`(`A@!"`M`$@@;0"@2I!G("!M M`$!*D&88+P`O%")$+RD`!"\M`)QA_P``U-1/[P`0(D1**0`4;49(>``'(&D` M%B!H``@O*``P(!%F!B!M`&P@$"\`8?\``-463^\`#'[_OH!F&B)$+RD`!"!M M`'@O$"\M`)A(>``!8?\``-3J(D0`*0"``!0B1@@1``1G``#X0J[__"\%+PQA M_P``U.(D`%"/(D8($0`"9@``_B)N_^CIT0`83"X(`/_L)F[_]-?`#"L`'0`$ M9@0M1/_\)B[_\-:30J=(;O_\+P0O`V'_```"JB1`3^\`$$J*9APB1"\I``0@ M;0!X+Q`O`R\M`)1(>``!8?\``-/P(BH`"-2!(&[__$J(9P+4D")&2A%L!")$ ME)$B1@@1``!G5$J(9U`@*@`,L*L`#&``'+P4O`V'_```!.D_O M`!A@*D*G+P4O`F`60J[_^&4`_?PB1$HI`!1L3DAX``4@:0`6(&@`""\H`#`@$68& M(&T`;"`0+P!A_P``TXY/[P`,?O^^@&8:(D0O*0`$(&T`>"\0+RT`C$AX``%A M_P``TV(B1`(I`'\`%$SN//S_P$Y>3G5.5@``2.<@)"I\``#.>$O[V``D+@`( M(&T`B"102HIG,B`J`!!G!+2`9B`@4@PH``<`!&86+R@`#"\H``@O*@`,8?\` M`-,"3^\`#"1J``1*BF;.3.XD!/_T3EY.=4Y6__P@+@`(+4#__$AX``%(;O_\ M+P`O+@`,8?\```#X(D!/[P`02HEG#"!N__P@4-'I``A.D$Y>3G5.5@``2.

>(D($B04/Q#@`@ M"92`(&T`A$?P+`!@!"9`4(L@$V;X2'@`%&'_``#1FB1`2'@`$&'_``#1CB2` M+PQA_P``T8P@4B"`(%(A;@`,``@@4A%N`!,`!"!2(6X`&``,)6X`%``,)6X` M'``00JH`""!M`(@E4``$((HFBB`*3.X\#/_H3EY.=4Y6_^1(YS\\*GP``,T( M2_O8`$*N__Q"KO_T(&X`"$*"'5#_[Q8N_^]G'B`">@[JH"9`1_,J`"0+$!A) MP+&"`H(``#__2A!FXB("3#P<`(^X(^\B`-*"ZH$@`M"`D8"2@"`!YXB0@2A! M2?0.`"`,E(`@;0"$)'`L`$J*9S(4`T*!0H`@4B)N``@@4+089@I*&6<0&A&Z M&&?V$A$0*/__L(%F!"!*8`HD:@`(2HIFU)'(2HAG#"9N`!!"DR`08``""D*N M__@@;0`,+5#_Y&<``:HH;@`0(!1G#K"N_^1F``&,2J[_Y&88)F[_Y+?N``QG M#B!K`!H(*``#``]G``%N*&[_Y")L`!8@:0`(+"@`)&<``5HD;``:""H``0`/ M9@`!3$*!(&X`"$HN_^]G$!`82<`F0$?S&@`B"TH09O`@`0B``!],1@@!*&[_ MY"`4T*H`("!I``@F`-:H`!@F0T/S'@!Z_[J19P`!!"UJ`!C_\"@J`!PN*@`4 M2HEG``#P'6[_[__M0H)"@2`'3!$(`"9N__#7P"U+_^@@1-'3$!`D;@`(4HJP M+O_M9@Q2B$H`9R(0$+`:9_04$!(J__^R@F<2("D`!&<``*8H0T/T#@!*B6:V M2HEG``"6)F[_Z!`K``0,```+9B8H1-GK`!`M3``()FX`$":N_^0=5/_O*&[_ MY"1L`!HB;``68`#_&"9N_^@B*P`(9U8,```!9B`0*P`%`@``#PP```)G#+*N M__QC/"U!__Q@-DJN`!1F,"AN_^@0+``%Z`@,```"9A)*KO_T9@PM3/_T+6[_ MY/_X8`XF;@`0)J[_Y"`N_^A@7BAN_^0M;``(_^1F`/Y:2J[_]&<.)FX`$":N M__@@+O_T8#Q*KO_\9S1"IR\N__Q"ITAX``$O+O_\2'@``6'_``#/)%A/+H`O M+@`(8?____QP($`H;@`00I0@$&`"0H!,[CS\_[Q.7DYU7V5N9```3E;_Y$CG M/SPJ?```RC!+^]@`+BX`""8N``Q"KO_X0H(D;0"$(EI*B6``!2&[__"\++RT` M@&'____\F")`(A,@`="I``A/[P`0L(=E``#<(&L`%B)H``@H*0`D9P``S"!K M`!H@`="H`"`H0-GI`!@M3/_D+6@`&/_T+6@`'/_P+6@`%/_L0H*X@F\``)8H M;O_D1?0N`'S_O))G?DJ*9WHM;O_\_^@@+O_L3!((`")N__33P"`J``1G#"AN M_^1)]`X`(@Q@`D*!)$$,*0`!``1G1"AN_^@@%-"I``BZ@&(VOH!E,BA#**L` M!"!K`!HL$]RH`"`I1@`$+"[_\-R1*48`""E```R^@&<`_N(J`#A\``$M3/_X M2H%FC%*"N()N`/]N2J[_^&8`_L0F:P`(2HMF`/[<0H!,[CS\_[Q.7DYU0V%L M;"!T;R!B:6YD97(@9G)O;2!U;FMN;W=N(&QO8V%T:6]N.B`E<`H`56YD969I M;F5D('-Y;6)O;"`B)7,B(&-A;&QE9"!FD`(-'J`!3I\``8"`1,*0@``!0@:0`8 M)&D`'-7P"`!(>``!2&[__"\++PIA____^I8@0$_O`!!*B&8<+PPO*P`$(&T` M>"\0+PHO+0!T2'@``6'_``#+W"1H``@@;O_\2HAG`M700J3G4O=F%R+W)U;B]L9"YS;RYH:6YT``!+P%"IV'_``#+7"1`3^\`''3_M(IG8BAM M`%`HB@R23$1(:68((A.RJ@`89`0O$V`^("H`!%.`=`&T@&4P(&T`5"0*U*H` M""""(FT`6"!4(`K0J``0(H`B5'0!M*D`!&PP(&T`1-"I`!P@@&`D+P$O"F'_ M``#*Z%"/(&T`9"`0;0@O`&'_``#*SB!M`%!T_R""3.X\!/^,3EY.=4Y6```O M#2\**GP``,8D2_O8`"1M`%`@$F@&ZJ@`H;`HH;@`0N>H`#&XV2H1G)B\$8?\``,A<+P`@;0!8(%#1Z@`$ M+P@O!&'_``#(AD_O`!!*@&8,(&T`6"`0T*H`!&`D(FH`+'K_NHEG&"!M`%1# M\9H`(`GIB"10U<`@;0!08`#_6D*`3.X\_/_83EY.=3H`=V%R;FEN9SH@;&EB M)7,N7=A>0``3E;_^$CG/#0J?```PYI+^]@`*"X`""8N`!`F;@`4 M)"X`&"1M`%`@$F8,8?____PX(!)G``#.>O^Z@&<``,9*DV<``,`@;0!,(A!F M!DJ"9P``FB`"9@0@+0!(+P!*@6<*2H)G!B`M`"Q@!"`M`$@O`"`09@0@+0!( M+P!A_P``QZHD0"U*__Q/[P`,8!HO`B\#+RX`#"\$8?____WL)`!/[P`09@`` MO"\M`"Q(;O_\8?\``,+P,O`"\N``PO!"\M`#QA M_P``QJQ@""\*8?\``,9B(`)@`D*`3.XL//_<3EY.=7!R96QO860Z(&]U="!O M9B!M96UO``!8?\``,8$2'@`$&'_``#%RB1`6(]* MBF80+P(O+0`T2'@``6'_``#%XB\"8?\``,6R)(`"*@!_``1":@`*0FH`"$*G M+PIA____ZS@B0$_O``Q*B680+P(O+0`P2'@``6'_``#%IB!I`!I2J``((&D` M&G((@Z@`#"\M`"Q(;O_\8?\``,5F)`!0CV8`_WPO`V'_``#%/DSN)`S_[$Y> M3G5L:6(`+@!S;P``3E;_^$CG/S0J?```P/I+^]@`+BX`""9N``Q"AB\'8?\` M`,46)H`"*P!_``1":P`*0FL`"$AX``,O+0`H+P!A_P``Q19/[P`02H!F``$0 M(!-6@"U`__A(>``N+P!A_P``Q/!0CTJ`9P``]"\N__AA_P``Q*8@;O_X6(\, M,``N"/]G``#:>O]X_T*"0H-@>'(!LH)G%F(0<@*R@F``*2&[_ M_"\*8?\``,1L*`!@$DAX``I(;O_\+PIA_P``Q%@J`$_O``Q*$F=.(&[__$H0 M9D92@B\M`"!(;O_X8?\``,0N)$!0CTJ*9@#_``08?\``,.4)D!8CTJ+9@X@;0`0<@P@@4*`8```Q"\+ M+PIA_____D8@;0`<+Q`O"V'____I#B1`3^\`$$J*9APB;0`0(&T`&"*0+Q-A M_P``PT(O"V'_``##.F"\("X`#`@```EF"B!J`!IR"(.H``P@:@`:("@`"%*H M``A*@&\2+Q-A_P``PPPO"V'_``##!&!,(&H`&G($@Z@`#"\*8?___^-@6(]* M@&>0H`D;O_X*F[__$Y>3G5. M5O_\+PTJ?```O@Q+^]@`("X`"$*N__QR`;*`9@@@;0`,(!!@!"U`__Q(>``! M2&[__"\`+RX`#&'____PR"!`0H!*B&<.("@`""!N__Q*B&<"T)`J;O_X3EY. M=4Y6```O#2I\``"]L$O[V`!R`;*N``QG#"!M`!!R+2"! M3G5.5O\`+P)(;@`,+RX`""0.!H+___\`+P)A_P``P3`O`F'_``#!("\`+P)( M>``!8?\``,$*)"[^_$Y>3G4``"1.971"4T0Z(&UA;&QO8RYC+'8@,2XV+C@N M,2`R,#`Q+S`T+S`V(#`Y.C,Y.C(S(&AE($5X<"`D``!.5@``2.<\)"I\``"\ MKDO[V``H+@`()&T!2$J29F!A_P``P?HD`"2"(#P``(``3$((`"\`8?\```+R M6(]*@&<``(@@;0%,(E`B`E.!(`G`@5B`E(!J`M222H)G!-/"((E"@W((LI)D M#-*!4H,@;0%(LI!E]"!M`5P@@R1M`4@@$B0`68*TA&4(<@A"@W3\8!`B`"!M M`5PF$&`&TH%G*E*#(`'0@K"$9?(D;0%4)`/EBB)R*`!*B684+P-A_P```"XB M3G5.5@`` M2.<^-"I\``"[Q$O[V``L+@`((`96@'@!X:QO:B)M`4@B$;*$;PHJ`28%3$0X M`V`&*@3:@78!(&T!1"1M`4P@$)"2L(5L(B`1(@5,0!@!)#P``(``3$`H`B9! M2',H`&'_```!VDJ`9QXB4MJ))(4@;0%4(8EL`&`((`G0A"*`(D!3@TJ#;O), M[BQ\_^!.7DYU3E8``"\-*GP``+LR2_O8`"`N``AG'B)`68D,$0#O9A1"@!`I M``$@;0%4Y8@BL`@`(8D(`"I?3EY.=4Y6``!(YSPD*GP``+KV2_O8`"HN``@H M+@`,0H-*A68,+P1A_____B1@``"\)$59B@P2`.]F"G8!0H$2*@`!8"A(>``! M+PIA_P```*@B`%"/;!8@;0%8+Q`O"F'_````E"(`4(]L`G(>(`%6@'0!X:HB M;0%((%&QPF,$68)@!D'P*/PD"$J#9S)*@6<8(`%4@'(!X:D@4;'!;P19@6`& M0?`8_"((M(1E"+*$9`0@!6`V+P5A_____Q)8CR\$8?____V*)@!8CV8$0H!@ M&K:%9Q0@`KB`9`(@!"\`+P,O!6'_``"^XB`#3.XD//_H3EY.=4Y6``!(YS`D M*GP``+H&2_O8`"0N``@B;@`,0H`D;0%40H$@6DJ(9Q"SP6<,M(AG$E*!(%!* MB&;P4H!V';:`;.!P_TS?)`Q.7DYU;6]R97!A9V5S.B!M=6YM87`@)7``;&0N M``#*`-,$D@`+P1"IV'_``"]IB(`)H%/[P`<>/^X@6<4 M(&T!1"`#3!((`-*`(('5DR`#8!PD+0%`+P)A_P``O/`O`"\"2'@``F'_``"\ MVD*`3.XL'/_H3EY.=0``+W5S2_O8`"0N``@F;0%D(!-4@":`)&T!:.6(+P`O$F'_```&:"2`+P)A M_P``O*0B$R!2(8`<^"\"8?\``+QT=@S6@"\#8?\```8,(A,@4B&`'/P@$R!2 M(G`,_"!M`8P2V!+8$M@2V!+8$M@2V!+8$M@2V!+8$I`O`B`3(%(O,`S\8?\` M`+W43.XL#/_L3EY.=4Y6``!(YS@T*GP``+@"2_O8`"@N``A"@B!M`62TD&QT M=@@O!"1M`6@@4B\P+`!A_P``O8Y0CTJ`9DX@4B\P+`!A_P``N^P@4B\P+`1A M_P``N^`F;0%D(A,@`56`4(^P@F\BDH+EB2)!2&G_^"!22'`L`"1(U<,O"F'_ M``"\5$_O``PB$U6!)H%8@U*"(&T!9+20;8Y,[BP<_^A.7DYU.@!.5@``+PTO M`BI\``"W8DO[V``@+@`(9S0O`&'_``"[@B0`+4(`"&`(+P!A_____I@NK0&( M2&X`"&'_``"[;%"/2H!FY"\"8?\``+M&)"[_^"IN__Q.7DYU3E8``"\-+P(J M?```MPI+^]@`("X`"&3H@8V%N="!H M87!P96X``$Y6``!(YR`T*GP``+7L2_O8`")N``PD+@`4D3G5L:6(E"\N_YAA_P``NMI6A$*N_YQ"AT_O``P@;0%D MMI!L``*H(&T!:"!0+S!\`&'_``"ZK"U`_XQ"KO]\0J[_B%B/2H!G``)X0J[_ MA&```D0J!%B%2JX`%&=B2H-F7AUJ``?_AR`$5("PKO^$9DXO!"\N_Y@D"E"" M+P)A_P``N1!/[P`,2H!F-`PR`"Y("&8L##(`84@)9B0O`B\M`6P@;0%H(%`O M,'P`8?\```+*)@`R?``!+4G_?$_O``Q"@!`J``>Z@&X``"1`+P)A_P``M_9/[P`82HIG``$@+PI(>``@2'@``4AN_Z!A_P`` MN4A/[P`0?""\@&<.+PIA_P``N2Y8CV```/0O"F'_``"Y("(N_Z`D`2`!0D!8 MCTJ`9PH,00$+9@``U&`*#($```$+9@``R$)"2H)G``#`2H%L``"Z?/^\KO^4 M9@J\KO^09S9@``"H?/^\KO^09@XB;O^4L^[_P&<@8```DBPN_Y2\KO_`9@`` MAGP!O(5G"B)N_Y"S[O_$;G0O+O^<=.#4CB\"+P4O+O^`8?____T43^\`$$J` M;U9\`2U&_XA*@V<*+P-A_P``MQ)8CR\,+RT!;"!M`6@@4"\P?`!A_P```1(F M`$*N_WQ(>``@+P(O"V'_``"WABU%_YPB;@`,(J[_X")N`!`BKO_D3^\`&"\N M_XQA_P``N"0D0%B/2HIF`/VL+R[_C&'_``"X"%B/2J[_?&822J[_B&8,4H<@ M;0%DOI!M`/U<(`-,[CS\_U1.7DYU=FER='5A;"!M96UO``!8?\` M`+9Z*F[__$Y>3G5.5@``+PTJ?```L@Q+^]@`(BX`""`N``Q*@68,+P!A_P`` MMAY8CV`,+P`O`6'_``"W6%"/2H!F#B\M`6!(>``!8?\``+8L*F[__$Y>3G5. M5@``2.`!.5@``+PTJ?```L2)+^]@`(&X`#"`0*E]. M7DYU3E8``"\-*GP``+$&2_O8`"!N`!`@K@`,2'@``B\(8?\``+9`*F[__$Y> M3G5.5@``(&X`""(N`!!5@9*N``PPO&#_(`%"0$A`,4```C%!``1":``&2'@` M!B\(8?\``+8$3EY.=4Y6```B;@`((&X`#""1,KQ.0DY>3G4``"1.971"4T0Z M('9F<')I;G1F+F,L=B`Q+C,R(#$Y.3DO,#DO,C`@,#0Z,SDZ,S,@;'5K96T@ M17AP("0``$Y6```O"B1N``Q*J@`(9Q8O"B\N``AA_P``MCA"J@`(0JH`!&`& M0JH`!$*`)&[__$Y>3G5.5ONH2.T@&PB2&[_]"\N``@M2?]D8?____W" M4(\B;O]D2H!F``E&)F[_;-FN_WQ*BF\`"1Q2KO^`0H="KO]T0J[_>'+_0B[_ MA2!N_X!2KO^`'!!)QG1CM(9G``'X;0``D'8YMH9M7G0QM(9O``&4=BNVAF<` M`1IM*G0CM(9G``#P;11V(+:&9P``U&``!-Y3KO^`8`#_3'0JM(9G``#:8``$ MRG8NMH9G``#P;0QT+;2&9P``U&``!+1V,+:&9P`!.&``!*AT3[2&9P`"+FT, M=D2VAF<``8Q@``22=%6TAF<``M)V6+:&9P`#"&``!'YT;[2&9P`""&TR=FFV MAF<``69M%'1DM(9G``%<=FBVAF<``1Q@``16=&RTAF<``1AV;K:&9P`!CF`` M!$)T<[2&9P`"(&T4=G"VAF<``?YT<;2&9P`!"&``!"1V=;:&9P`":'1XM(9G M``*B8``$$$HN_X5F`/[F'7P`(/^%8`#^W'8!CH-@`/[46(Q8B2U4_WAL`/[( M1*[_>'0$CH)@`/Z\'7P`*_^%8`#^LB!N_X!2KO^`'!!)QG0JM(9F$EB,6(DD M5"(*;`#^E'+_8`#^CI7*<-#0AG8)MH!E(D7RK``@"B!&1?`*T"!N_X!2KO^` M'!!)QG#0T(9T";2`9-XB"FP`_F9R_V``_F!V?T8#CH-@`/Y*E+4K_>&``_BIV0(Z#8`#^%B!N M_X`,$`!L9PAV$(Z#8`#^!%*N_X!T((Z"8`#]^%B,6(D=;``#_XQ@``,6=!". M@@@'``5G#E",4(DH*?_X*BG__&`F"`<`!&86"`<`!F<06(Q8B3HL``)(Q5O$ M2<1@"EB,6(DJ%%O$2<1*A&H*1(5`A!U\`"W_A7`!8``!F`@'``5G&%B,6(D@ M5"8N_WQ;PDG"(((A0P`$8`#\U@@'``1F%`@'``9G#EB,6(D@5#"N_WY@`/R\ M6(Q8B2!4(*[_?&``_*YV$(Z#"`<`!6<.4(Q0B2@I__@J*?_\8"((!P`$9A0( M!P`&9PY8C%B)>`!Z`#HL``)@"%B,6(DJ%$*$0H!@``$.6(Q8B2H40H1P`BUM M`9S_<(Z`?'A@``#V6(Q8B2H49@0J+0&D2H%M."\!0J`!Z`#HL``)@"%B,6(DJ%$*$<`%@5"UM`:#_<&`& M+6T!G/]P"`<`!6<.4(Q0B2@I__@J*?_\8"((!P`$9A0(!P`&9PY8C%B)>`!Z M`#HL``)@"%B,6(DJ%$*$<`((!P``9P@F!(:%9P*.@$(N_X4M0?]T;09T@$8" MSH(D;O]L)@2&A68(2J[_=&<``/)T`;2`9P``AF(,=@*V@&<``)!@``"\(@=T M`<*"$`4"```'!@``,!4`XHSBE>*,XI7BC.*5)@2&A6;B2H%G``"R#```,&<` M`*H5/``P8```HDAX``I"IR\%+P0M2?]D8?\``*\R3^\`$!0!!@(`,!4"2'@` M"D*G+P4O!&'_``"O#D_O`!`H`"H!(F[_9$*`<@F2A9&$9;H6!08#`#`5`V!0 M<`_`A2!N_W`5,`@`)`1V'.>J+4+_7"0%Z(HB+O]<@H(@!.B(*``J`28$AH5F MTF`@*BT!F"\%+4G_9&'_``"L_BU`_V!8CQ`N_X4B;O]D8"XJ"B`.D(5TM-2` M+4+_8!`N_X5@&DJ&9P`#X!U&_XQZC-J.=@$M0_]@0B[_A4(`*"[_8+BN_W1L M!"@N_W1*`&<$4H1@"`@'``%G`E2$$`<"`/^$9@``JB1N_WB5Q$J*;P``GG00 MM(IL4":M`9!V$"=#``37KO_\4(L@+O_X($!2B"U(__A2@'0'M(!L(DAN__0O M+@`(+4G_9&'____WZ%"/(F[_9$J`9@`#;"9N_VQ%ZO_P=A"VBFVP)JT!D"=* M``0D"M6N__Q0BR`N__@F`%*#+4/_^%*`=`>T@&PB2&[_]"\N``@M2?]D8?__ M__>84(\B;O]D2H!F``,<)F[_;$HN_X5G$D'N_X4FB'0!)T(`!%*N__Q@(`@' M``%G4AU\`##_BAU&_XM![O^*)HAT`B="``14KO_\4(L@+O_X)@!2@RU#__A2 M@'0'M(!L(DAN__0O+@`(+4G_9&'____W*%"/(F[_9$J`9@`"K"9N_VP@!W9[ M1@/`@PR`````@&8``*HD;O]XE<1*BF\``)YT$+2*;%`FK0&4=A`G0P`$UZ[_ M_%"+("[_^"!`4H@M2/_X4H!T![2`;")(;O_T+RX`""U)_V1A____]KY0CR)N M_V1*@&8``D(F;O]L1>K_\'80MHIML":M`90G2@`$)`K5KO_\4(L@+O_X)@!2 M@RU#__A2@'0'M(!L(DAN__0O+@`(+4G_9&'____V;E"/(F[_9$J`9@`!\B9N M_VPD;O]TE>[_8$J*;P``FF!*)JT!E'00)T(`!-6N__Q0BR`N__@F`%*#+4/_ M^%*`=`>T@&PB2&[_]"\N``@M2?]D8?____884(\B;O]D2H!F``&<)F[_;$7J M__!V$+:*;;`FK0&4)TH`!"0*U:[__%"+("[_^"8`4H,M0__X4H!T![2`;")( M;O_T+RX`""U)_V1A____]J(9R("@0```!]3@"+8(M@BV"+8(M@BV"+8(MA1R/_N0D!3@&3F(`'D MB&<44X`BV%'(__P"@0````-G"%.!$MA1R?_\3G71P=/!#($````(;5@@"0@` M``!G!!,@4X$(```!9P0S(%6!(`'JB&6-R;V9T($5X<"`D`$Y6```O#2I\``"B MJDO[V`!(;@`0+RX`#"\N``@@=0%P```!L$Z03G%P&$Y`3G4``'`O3D!.=0`` M8/\``*AZ<$I.0&7T3G4``"1.971"4T0Z('-E=&5N=BYC+'8@,2XQ."`R,#`P M+S`Q+S(R(#(R.C$Y.C(P(&UY8W)O9G0@17AP("0``$Y6__Q(YSP\*GP``*(D M2_O8`"8N``@H;@`,#!0`/68"4HPO#"9U`7````'(3I,H`$AN__PO`R!U`7`` M``&T3I`D0$_O``Q*BF<>2JX`$&<``1(O"DZ36(^X@&(``*84G$H:9OI@``#\ M)'4!<````3@F4D*"2I-G"%B+4H)*DV;X('4!<````<1*D&3G4``"1.971"4T0Z M('9E6-R;V9T($5X M<"`D`"5S.B``"@!.5@``2.<@-"I\``"@'$O[V``D+@`,('4!<````3PO$"\U M`7````'8)'4!<````-!(:@"P)G4!<````=1.DT_O``Q*@F<8+RX`$"\"2&H` ML"!U`7````&L3I!/[P`,+S4!<````=!(:@"P3I,O+@`(('4!<````3G4` M`"1.971"4T0Z(&UU;'1I8GET92YC+'8@,2XY(#(P,#`O,#0O,#$@,3DZ-#(Z M-3<@97)H($5X<"`D``!.5@``(&X`"$J(9P1*$&8$0H!@"G#_2JX`#&<"<`%. M7DYU3E8``")N``@@;@`,2HAF!$*`8!Q*K@`09@1P_V`22HEG!A(02<$B@4H0 M5L!)P$2`3EY.=4Y6```@;@`(2HAG"!"N``]P`6`"0H!.7DYU3E8``"\*(FX` M""1N``PB+@`0D3G5.5@``+PHD;@`((&X`#"(N`!"3R4J(9@1"@&`P2HIF M#$J89R92B4J89OI@'DJ!9QH0*``#%,!8B&<05HA2B5.!9P@0$%B(%,!F\B`) M)%].7DYU)$YE=$)31#H@=6UO9&1I,RYC+'8@,2XS(#$Y.32_O8`$AN__@O+@`4 M+RX`$"\N``PO+@`(('4!<````=Q.D"`N__@B+O_\*F[_]$Y>3G4``"1.971" M4T0Z('5D:79D:3,N8RQV(#$N,R`Q.3DW+S`W+S$S(#(P.C`Q.C4V(&-H3G4D3F5T0E-$.B!S971L;V-A;&4N8RQV(#$N,3``@(`+KB")`T_4!<````?@O"2AU`7````'\2'0(`"9U`7````'@3I-/ M[P`,4H)Z!KJ";,I*$F8``0@H=0%P```!]"\T3``F=0%P```"0$Z3)$!8CTJ* M9P1*$F8(+Q1.DR1`6(]*BF<$2A)F%B\U`7````)$('4!<````D!.D"1`6(]* MBF<:2A)G%DAX`"\O"B!U`7````(\3I!0CTJ`9P@D=0%P```"'$AX`"`O"B`$ MZXC0M0%P```!_"\`('4!<````>!.D$_O``Q*A&8``9YT`2!U`7````'T+S`L M`"!U`7````)`3I`D0%B/2HIG&DH29Q9(>``O+PH@=0%P```"/$Z04(]*@&<( M)'4!<````?Q(>``@+PH@`NN(T+4!<````?PO`"!U`7````'@3I!/[P`,4H)Z M!KJ";)9@``$J2H1G&$AX`"`O"B`$ZXA(=`@`3I-/[P`,8``!#DAX`"\O"B!U M`7````(\3I`F0%"/2HMF,'0!2'@`("\*(`+KB-"U`7````'\+P`@=0%P```! MX$Z03^\`#%*">@:Z@FS68```QG0!$"L``0P``"]F$$'K``%2BU*($!`,```O M9_1*`&<``1`@"Y"*=A^V@&4")@`O`R\*(`+KB"1U`7````'\2'((`%*"('4! M<````CA.D"`"ZX@@0]'`0C"H`%*")$M/[P`,$A,,`0`O9A)2BA(2#`$`+V?V M8`8,```O9P92BQ`39O1*`6:<>@:Z@FTX)@+KBR)U`7````'\1>G_X$AX`"!( M!.D$_O``QZ!KJ";-A*A&<.+P0@=0%P M```",$Z08%Q"@W0!2'@`("`"ZX@B0-/U`7````'X+PG0M0%P```"-"\`('4! M<````>!.D"\"('4!<````C!.D$_O`!!*@&<"=@%2@GH&NH)LNDJ#9PP@=0%P M```"+$Z08`)"@$SN/#S_X$Y>3G4E!.D'0" M3^\`#"`"ZX@D=0%P```!^$AR"`!(:@`@('4!<````B!.D%"/2H!G-$AJ`*!( M:@"`2&H`8$AJ`$!(:@`@+S4!<````BA(>`#G+S4!<````B0@=0%P```!Z$Z0 M8`A2@G(&LH)LH"`U`7````(D3.XD!/_T3EY.=5!/4TE8`"5S+R5S+R5S``!. M5OP`2.<\/"I\``"8$DO[V``F+@`(*`/KC"HU`7````'X)D37Q2\+*'4!<``` M`?PD!-2,+P(D=0%P```"($Z24(]*@&8&(`M@``$T+S4!<````APO`DZ24(]* M@&<4+S4!<````A@O`DZ24(]*@&8``)9R`K*#9G(F=0%P```!@"`3)'4!<``` M`A2UP&<0+P`@=0%P```"`$Z0)HI8CR9U`7````(0(!,D=0%P```"#+7`9Q`O M`"!U`7````(`3I`FBEB/)G4!<````@@@$R1U`7````($M``@(@32M0%P```!_"\!)`34M0%P```!^&!F('4!<````?0O M,#P`+P(@=0%P```!\"\0+S4!<````>Q(>`0`1>[\`"\*('4!<````>A.D$_O M`!AR`K*#9PIM!'(!8#)R!F`N+PH@=0%P```!Y$Z06(]*@&<<2'@`($AL`$!T M0-2%+P(@=0%P```!X$Z0(`)@`D*`3.X\//O@3EY.=0``<@!"4T1#5%E010`` M3E;_\$CG/#0J?```EGQ+^]@`0H-"A$*%+S4!<````G`O+@`(('4!<````F!. MD"0`4(]G``'.+P)(>``!2'@`"$7N__@O"B9U`7````)L3I-/[P`0<@&R@&8` M`8A(>``(+S4!<````EPO"B!U`7````)H3I!/[P`,2H!F``%F+P)(>``!2'@` M!$AN__1.DT_O`!!R`;*`9@`!2B`N__1R`K*`9@`!/B\"2'@``4AX``1(;O_P M3I-/[P`0<@&R@&8``2(@+O_P#(````$`9@`!%$AX`0$D=0%P```!N$Z2)@!8 MCV<``/X@0T(8+P(O+O_P2'@``2\(3I-/[P`0L*[_\&8``.#0@")`2&D``DZ2 M*`!8CV<``,X@1##\__\O`B\N__!(>``"+PA.DT_O`!"PKO_P9@``KM"`(D!( M:0`"3I(J`%B/9P``G"!%,/S__R\"+R[_\$AX``(O"$Z33^\`$+"N__!F?"\" M('4!<````E1.D"1U`7````&`(!)8C["U`7````(49PXO`"!U`7````(`3I!8 MCR2#)'4!<````A`@$K"U`7````(,9PXO`"!U`7````(`3I!8CR2$)'4!<``` M`@@@$K"U`7````($9PPO`"!U`7````(`3I`DA7`!8"(O!21U`7````(`3I(O M!$Z2+P-.DB\"('4!<````E1.D$*`3.XL//_43EY.=7<`3E;__$CG("0J?``` ME&Q+^]@`+S4!<````F0O+@`(('4!<````F!.D"0`4(]G``#F+P)(>``!2'@` M""\U`7````)<)'4!<````EA.DD_O`!!R`;*`9@``LG("+4'__"\"2'@``4AX M``1(;O_\3I)/[P`0<@&R@&8``)`M?````0#__"\"2'@``4AX``1(;O_\3I)/ M[P`0<@&R@&9L+P)(>`$`2'@``2(N``Q2@2\!3I)/[P`0#(````$`9DPO`B\` M2'@``B(N`!!4@2\!3I)/[P`0#(````$`9BXO`B\`2'@``B(N`!14@2\!3I)/ M[P`0#(````$`9A`O`B!U`7````)43I!P`6`.+P(@=0%P```"5$Z00H!,[B0$ M__!.7DYU)$YE=$)31#H@2YC+'8@,2XU(#$Y.3DO,#DO,C`@,#0Z M,SDZ-#<@;'5K96T@17AP("0``$Y6```O`B0N``PB+@`0(FX`""!"9Q8@`5.` M9PH2F$H99O9*@&8*2H%G`D(12AAF_)'"(`A3@"0?3EY.=0```)\`H`"A`*(`HP"D`*4`I@"G`*@`J0"J`*L`K`"M`*X` MKP"P`+$`L@"S`+0`M0"V`+<`N`"Y`+H`NP"\`+T`O@"_`,``P0#"`,,`Q`#% M`,8`QP#(`,D`R@#+`,P`S0#.`,\`T`#1`-(`TP#4`-4`U@#7`-@`V0#:`-L` MW`#=`-X`WP#@`.$`X@#C`.0`Y0#F`.<`Z`#I`.H`ZP#L`.T`[@#O`/``\0#R M`/,`]`#U`/8`]P#X`/D`^@#[`/P`_0#^`/].5@``+PTJ?```D,1+^]@`("X` M""!U`7````(0(%`P,`H"2,`J7TY>3G4D3F5T0E-$.B!S=')C<'DN4RQV(#$N M.2`Q.3DY+S$P+S(U(#(S.C0X.C$U('1H;W)P96H@17AP("0`(&\`""`O``0B M0!+89OQ.=0``)$YE=$)31#H@6-R;V9T($5X<"`D``!.5O^H+PTJ?```C\)+^]@`("X`"#U\____MCU\`@C_ MM"U`_Z@M0/^X+7Q______[`M?'______O$AN`!`O+@`,2&[_J"!U`7````&L M3I`@;O^H0A`J;O^D3EY.=21.971"4T0Z('=B=68N8RQV(#$N,3`@,3DY.2\P M.2\R,"`P-#HS.3HS-2!L=6ME;2!%>'`@)```3E8``$CG,"0J?```CRQ+^]@` M)"X`""1N``PE:@`8``@(*@`#``UG!DJJ`!!F)B\*('4!<````GQ.D%B/2H!G M%"!U`7````)X3I`@0'8)((-P_V!@`H(```#_(!*0J@`0L*H`%&T8+PH@=0%P M```"=$Z06(]*@&<$/\F/(````!@''@!3`8X`):"8#2Z@VT&9B:^@FPB M>/\F/'____\@=0%P```">$Z0($!R(B"!(G4!<````8!@"'@!3`8X`-:"0H(4 M&B!1$#`H`0@```)G!G+0U(%@BNC`!X)G'#A\_ZE!]"@`"````&<(.'S_R4'T M*``D"&``_VI*K@`,9Q(@+@`(2H1G!"`*4X`H;@`,*(`@`TSN//S_V$Y>3G4` M`"1.971"4T0Z('=A3G4` M`"1.971"4T0Z('9W87)N+F,L=B`Q+C0@,3DY.2\P."\Q-R`P,SHT-SHT,"!M M>6-R;V9T($5X<"`D`"5S.B``.B``)7,*``!.5@``2."YC+'8@,2XT(#$Y.3DO,#@O,3<@,#,Z M-#0Z,#`@;7EC'`@)```3E8``"\-*GP``(F42_O8`$AN``PO+@`( M('4!<````KA.D"IN__Q.7DYU__\````!``(``P`$``4`!@`'``@`"0`*``L` M#``-``X`#P`0`!$`$@`3`!0`%0`6`!<`&``9`!H`&P`<`!T`'@`?`"``(0`B M`",`)``E`"8`)P`H`"D`*@`K`"P`+0`N`"\`,``Q`#(`,P`T`#4`-@`W`#@` M.0`Z`#L`/``]`#X`/P!``&$`8@!C`&0`90!F`&<`:`!I`&H`:P!L`&T`;@!O M`'``<0!R`',`=`!U`'8`=P!X`'D`>@!;`%P`70!>`%\`8`!A`&(`8P!D`&4` M9@!G`&@`:0!J`&L`;`!M`&X`;P!P`'$`<@!S`'0`=0!V`'<`>`!Y`'H`>P!\ M`'T`?@!_`(``@0""`(,`A`"%`(8`AP"(`(D`B@"+`(P`C0".`(\`D`"1`)(` MDP"4`)4`E@"7`)@`F0":`)L`G`"=`)X`GP"@`*$`H@"C`*0`I0"F`*<`J`"I M`*H`JP"L`*T`K@"O`+``L0"R`+,`M`"U`+8`MP"X`+D`N@"[`+P`O0"^`+\` MP`#!`,(`PP#$`,4`Q@#'`,@`R0#*`,L`S`#-`,X`SP#0`-$`T@#3`-0`U0#6 M`-<`V`#9`-H`VP#<`-T`W@#?`.``X0#B`.,`Y`#E`.8`YP#H`.D`Z@#K`.P` M[0#N`.\`\`#Q`/(`\P#T`/4`]@#W`/@`^0#Z`/L`_`#]`/X`_TY6```O#2I\ M``"':$O[V``@+@`(('4!<````@@@4#`P"@)(P"I?3EY.=21.971"4T0Z(&5R M3G4D3F5T0E-$.B!F=W)I=&4N8RQV(#$N,3(@,3DY.2\P.2\R,"`P M-#HS.3HS,"!L=6ME;2!%>'`@)```3E;_[$CG.`0J?```A@Y+^]@`*"X`#"8N M`!`M;@`(_^PD`TP$*``M0O_P+4+__$/N_^PM2?_T<@$M0?_X2&[_]"\N`!0@ M=0%P```"P$Z02H!G"B8"EJ[__$Q$,`,@`TSN(!S_W$Y>3G4``"1.971"4T0Z M(&9V=W)I=&4N8RQV(#$N,3,@,3DY.2\P.2\R,"`P-#HS.3HR.2!L=6ME;2!% M>'`@)`!.5O_X2.<_/"I\``"%:DO[V``D;@`(*&X`#$JL``AG``+"""H``P`- M9P9*J@`09B8O"B!U`7````)\3I!8CTJ`9Q0@=0%P```">$Z0($!^"2"'8``" MF"94*!,F*P`$4(LR*@`,"`$``6=*8`@H$R8K``10BTJ#9_0@`PR#```$`&,& M(#P```0`+P`O!"\J`!P@:@`L3I`D`$_O``QO``)(V(*6@B`L``B0@BE```AF MQ&```C`(`0``9@`!*C(J``Q*@V8**!,F*P`$4(MG]C`!`D!"``Q`0@!F5K:J M``AC4"H2FJH`$"0J`!0B!=*#(`+0@"0`4H*R@F+T(D)(:0`!+RH`$"!U`7`` M``'`3I`B`%"/9P`!TB`"D*H`%-&J``@E00`0)4(`%-*%)($R*@`,)"H`"`@! M``EG(+2#8P(D`R\"+P0O$B!U`7````&\3I"5J@`(U9(D`V!P(!*PJ@`08RZT M@V0J+P(O!"\`('4!<````;Q.D-62+PH@=0%P```"=$Z03^\`$$J`9@`!6F`^ M)"H`%+2#8AHO`B\$+RH`'"!J`"Q.D"0`3^\`#&\``3A@'"0#+P(O!"\`('4! M<````;Q.D)6J``C5DD_O``S8@I:"("P`")""*4``"&8`_MY@``$`0J[__$*& M2H-F#D*N__PH$R8K``10BV?V2J[__&8N+P-(>``*+P0@=0%P```"Q$Z0(@!/ M[P`,9PH@!%.`+`&<@&`$+`-2AGX!+4?__"(&*BH`$+:&9`(B`R`J`!0M0/_X M)"H`"-2`(%*ZB&0LM(%L*"\"+P0O""!U`7````&\3I#5DB\*('4!<````G1. MD$_O`!!*@&9L8#JRKO_X;1@O`"\$+RH`'"!J`"Q.D"0`3^\`#&].8!PD`2\" M+P0O""!U`7````&\3I"5J@`(U9)/[P`,G()F%B\*('4!<````G1.D%B/2H!F M&D*N__S8@I:"("P`")""*4``"&8`_PI"@&`(`&H`0``,3G4D3F5T0E-$ M.B!V97)R+F,L=B`Q+C0@,3DY.2\P."\Q-R`P,SHT-SHT,"!M>6-R;V9T($5X M<"`D`"5S.B``.B``)7,*`$Y6``!(YS`T*GP``(%42_O8`"8N``P@=0%P```" M>$Z0($`D$"!U`7````$\+Q`O-0%P```"U"1U`7````#02&H`L"9U`7````'4 M3I-/[P`,2H-G)B\N`!`O`TAJ`+`@=0%P```!K$Z0+S4!<````M!(:@"P3I-/ M[P`4+P(@=0%P```"K$Z0+P`O-0%P```"S$AJ`+!.DR\N``@@=0%P```!S$Z0 M3G$``"1.971"4T0Z('9W87)N>"YC+'8@,2XT(#$Y.3DO,#@O,3<@,#,Z-#3G4D3F5T0E-$.B!M96UC:'(N8RQV(#$N,3$@,3DY.2\P.2\R,"`P M-#HS.3HT-2!L=6ME;2!%>'`@)```3E8``"`N`!`2+@`/2H!G$B!N``BR&&8& M(`A3@&`&4X!F\D*`3EY.=0``)$YE=$)31#H@'`@)`!.5@``+PTJ?``` M?U1+^]@`2'@(`"\U`7````+D+RX`""!U`7````+@3I`J;O_\3EY.=21.971" M4T0Z(&5X:70N8RQV(#$N."`Q.3DX+S$P+S$X(#$T.C,V.C,P(&ML96EN:R!% M>'`@)```3E8``$CG(#0J?```?NA+^]@`('4!<````O`F4$J+9R(D*P`$4X)K M%$7S+`@@4EF*3I!1RO_X0D)3@F3P)E-*BV;>('4!<````NP@4$J(9P).D"\N M``@@=0%P```"Z$Z03G$``"1.971"4T0Z('=S971U<"YC+'8@,2XY(#$Y.3DO M,#DO,C`@,#0Z,SDZ,S4@;'5K96T@17AP("0`3E8``$CG("0J?```?DQ+^]@` M)&X`""!U`7````+\2I!F"B!U`7````+X3I`P*@`,"````V9."```!&8&<$#0BK"!9PXO`2!U`7````(`3I!8CT*J`#`P*@`, M`D#_VS5```Q"J@`$)*H`$`!```@U0``,2JH`$&8,+PH@=0%P```"]$Z0,"H` M#`@```!G$$*J``@D*@`41((E0@`88!!"@0@```%F!"(J`!0E00`(0H!,[B0$ M__1.7DYU)$YE=$)31#H@7U]S=')E/^X@&82$!)G!%**$!(B0TH`9@#_8'#_3.XL'/OD3EY.=4Y6 M_Z!(YR`D*GP``'JX2_O8`$*G+RX`""!U`7````*<3I`D`%"/``! M2'@``2\N_]A"IR!U`7````,@3I`D0"\"('4!<````I1.D$_O`"!R_[**9@HO M+O_82'C__V`N#)+_B/^)9B!(>``(('4!<````;A.D"!`6(]*B&<*((HA;O_8 M``1@$B\N_]@O"B!U`7````,<3I!P_TSN)`3_E$Y>3G4``$Y6``!(YSX\*GP` M`'G@2_O8`"!N``@H;@`,)BX`$"@N`!1Z_[J(9B(@=0%P```">$Z0($!Z"6`` M`*QP%-"J`!#0BM"T*`A@``"@)%!\%-R*D\D@:@`$4XBQR6UZ(`G0B"(`:@)2 M@>*!)D%'\QH`)`OEBB`,)D*0LV@`9DQP%-"J``Q)\@@`(G-H""`)T+-H!"!` M4XBQR6T^(`G0B"(`:@)2@>*!)D%'\QH`)`OEBB`#D+0H`&>$:@8@05.(8`0B M05*)L$Z0($!Z4R"%(`1,[CQ\ M_]Q.7DYU``!.5@``+PTO"BI\``!X[$O[V``D;@`(7!E(&]R(&9O2!L979E;',@;V8@2!N;W0@0!07!E(&9O2!I;B!P0!) M;F%P<')O<')I871E(&EO8W1L(&9O2!O<&5N(&9I;&5S(&EN('-Y2!D979I8V4`0W)O&ES=',`1&5V:6-E(&)U&5C(&9O2Y3+'8@,2XQ,"`Q.3DY+S$P+S(U(#(S M.C0X.C$V('1H;W)P96H@17AP("0`("\`!"(O``QG#B!O``@B0!+89P93@6;X M3G53@6?Z0AE@^```)$YE=$)31#H@;W!E;F1I[^H"\*+R[^E"!U`7````-83I!0CTJ`;0`"G`@N``$`#V=.0H)(>``0 M+S4!<````U1(:@`\('4!<````TQ.D$_O``Q*@&<(""X`!?[/9R1T`6`@+PL@ M=0%P```"`$Z00J="IT*G+R[^E$Z23^\`%&`Z0H)(>``0+S4!<````U!(:@`\ M('4!<````TQ.D$_O``Q*@%?`2<`M0/Z<1*[^G$J"9@A*KOZ<9P`!\$*N_I!" M@I?+0H0,@@```_]B+-2,+@S?KOZ0+R[^D"\+('4!<````$Z0($!^%KZ0 M9@A*KOZ<9@#_%$J#;PC8@Y2#8`#_:B1$?`B-K@`,""X``@`/9T(O+OZ4('4! M<````I1.D$*G+RX`""!U`7````*<3I`M0/Z43^\`#'[_OH!F%B\+)'4!<``` M`@!.DB\%3I)"@&```6XB12-+``Q*KOZ<9@``W)G,8!SEBR)#2&D`!"!U`7`` M``&X3I`H0%B/2HQG``"\0H,H"[7$8S@M3/Z,($3HQ`>"9BQ"@C0H``0B!%.! M(`J0@;"";1K8@DJ09Q!*C&<&(F[^C"*(6*[^C%*#M<1BS$J,9Z`O-0%P```# M0$AX``0O`R\,('4!<````SQ.D$*T/`!"@D_O`!!*E&=`)DPD4TJ"9QHB0DAI M``A(:@`(('4!<````B!.D%"/2H!G!"0*8`)"D@PJ``X`!F8*""X````/9P)" MDEB+2I-FPB\,('4!<````@!.D%B/(D4C;OZ0`!"8J0`,(T0`"&!.(D4C3``0 M+PP@=0%P```!N$Z0(D4C0``,6(]F'B\%('4!<````@!.D"\N_I0@=0%P```" ME$Z00H!@.$*&0H6-R;V9T($5X<"`D M``!.5O_T+PTJ?```:SY+^]@`('4!<````VA*D&8X<@8M0?_X<@3G4``"1.971"4T0Z(&-L;W-E9&ER+F,L=B`Q+C$P(#(P M,#`O,#$O,C(@,C(Z,3DZ,#D@;7EC'`@)```3E8``$CG(#0J?``` M:I9+^]@`)&X`""\J`!PO"B!U`7````-P3I`D$G+_)(%"J@`$+RH`#"9U`7`` M``(`3I,O"DZ3+P(@=0%P```"E$Z03.XL!/_P3EY.=0``8/\``'!&(#P```"> M3D!E\$YU```D3F5T0E-$.B!S=')C;7`N4RQV(#$N,30@,3DY.2\Q,"\R-R`P M.3HQ,#HR-R!I'`@)``@;P`$(F\`"!(89R22&68B$AAG')(99AH2&&<4 MDAEF$A(89PR2&6?@56-R;V9T($5X<"`D`$Y6 M_]!(YS\\*GP``&E^2_O8`"0N``PB;@`0<@&RB646('4!<````GA.D"!`D*N__@B">C!!X)F%"(N``CHP0>"5\!)P"U`__A$KO_X+4+_W"() M3`(8`"U!_]P@04AH``0D=0%P```!N"U)_]1.DBU`__!8CR)N_]1F!G#_8``# M)BUN``C_["\N`!0O"2\"+R[_\"\N_^PD=0%P```#?"U)_]1.DB(N__#2KO_< M+4'_Y$*N__Q"A$_O`!0@+O_P5H!R_,"!(F[_U&```I0M;O_L_]`B+O_L5H$M M0?_@AC:MHIB^AC;4X1F^F``_FJW[O_09!I*KO_X9PHHV[?N_]!E^&`H&-NW M[O_09?A@'K7N__1D&$JN__AG"BC:M>[_]&7X8`@8VK7N__1E^"!N_^`@KO_0 M(B[_T%:!+4'_X'+\PZ[_X"!N_^BQ[O_D9@#]N"AN_^PM;O_P_^PM3/_P(@S2 MKO_<+4'_Y"`,5H!R_,"!(B[_Y"!`LI!F`/UD(BX`"+*N__!F("\N_]PO+O_L M+R[_\"!U`7````-X3I`M;O_L__!/[P`,+R[_\"!U`7````(`3I!"@$SN//S_ MJ$Y>3G5.5O_T2.<_/"I\``!EQDO[V``D+@`0+BX`%"P'W(9V!;:"93`O+@`8 M+PP$G`1(`B+O_TN(!F"%2!U\:YRV+6=@^V@6U"(@56 M@7;\PH,D"M2&(`*0K@`(T*X`#")!(H`J`$J$;QA!\G@`(@="@!`2%-`0P%.! M9O:5QR0*U(8D0K?*8L)@``#,+4O_^"9"M^[_^&18+PLD"Y2'+P(B;@`83I%0 MCTJ`7L!)P$2`N(!G-"(%5H%V_,*#(`N0K@`(T*X`#")!(H`J`$J$;Q8@0B(' M0H`0$A30$,!3@6;VD<:QRF+L)$O7QK?N__AEJ$J$;Q@@2Y''(@="@!`2%-`0 MP%.!9O:1QK'*8NPD2[G*8A0O"B8*EH'`@)`!.5@``2.0HDB\*('4!<``` M`@!.D$SN/`S_Z$Y>3G4D3F5T0E-$.B!R96%D9&ER+F,L=B`Q+C$U(#(P,#`O M,#$O,C(@,C(Z,3DZ,3(@;7EC'`@)`!.5@``2.;@@,```K9PI@%`P``&9G"F`,=!`R?``"8`1V M!(*#4H@0$&;6(&X`#"8)AH$@@R`"3.X@#/_T3EY.=21.971"4T0Z(&9C;&]S M92YC+'8@,2XQ,R`R,#`P+S`Q+S(Q(#$Y.C4S.C`R(&UY8W)O9G0@17AP("0` M`$Y6``!(YS`D*GP``%\<2_O8`"1N``@P*@`,9A8@=0%P```">$Z0($!V"2"# M3G5.5O^@2.<`/"I\``!;LDO[V``D;@`()FX` M#"AN`!!*:@`.;1A(;O^@,FH`#B\)('4!<````IA.D$J`;`1"E&`>(B[_J`*! M``#P``R!```@`%?`22YC+'8@,2XQ,"`R,#`P+S`Q+S(R(#(R.C$Y.C$Q(&UY M8W)O9G0@17AP("0``$Y6_]0O#2I\``!:VDO[V`!(;O_4+RX`""!U`7````.H M3I!R_[*`5L!)P$2`*F[_T$Y>3G4D3F5T0E-$.B!T8V=E=&%T='(N8RQV(#$N M-R`R,#`P+S`Q+S(R(#(R.C$Y.C(Q(&UY8W)O9G0@17AP("0``$Y6```O#2I\ M``!::$O[V``O+@`,+SQ`+'03+RX`""!U`7````.L3I`J;O_\3EY.=0``8/\` M`&`^<#9.0&7T3G4``&#_``!@+G!<3D!E]$YU```D3F5T0E-$.B!M96UC;7`N M4RQV(#$N,3`@,3DY.2\Q,"\R-2`R,SHT.#HQ-2!T:&]R<&5J($5X<"`D```@ M;P`$(F\`""`O``QG2B(("`$``&<(LPAF-%.`9SHB"0@!``!F%B(`Y(EG$+.( M9A93@6;X`H`````#9QRS"&8.4X!F^$YU68A9B7`$8.Y"@$*!$"`2(9"!3G4` M`"1.971"4T0Z('-N<')I;G1F+F,L=B`Q+C$R+C0N,2`R,#`P+S$P+S$Y(#$T M.C`T.C4R(&AE($5X<"`D`$Y6_Z@O#2\"*GP``%E`2_O8`"(N``@@+@`,;3P] M?/___[8]?`((_[0M0?^H+4'_N%.`+4#_L"U`_[Q(;@`4+RX`$$AN_Z@@=0%P M```!K$Z0(&[_J$(08!(@=0%P```">$Z0($!T%B""3G4` M`"1.971"4T0Z(&-T>7!E7RYC+'8@,2XQ-"`Q.3DW+S`W+S$S(#$Y.C0U.C0U M(&-H2!%>'`@)`!.5@``2.3G4D3F5T0E-$.B!F:6YD9G`N8RQV(#$N,3,@,C`P,"\P,2\R,2`Q M.3HU-3HP,B!M>6-R;V9T($5X<"`D``!.5@``2.3G5.5@``+PTO"BI\``!4_DO[V`!( M>``%('4!<````[Q.D"1U`7````.X6(^0J@`$2H!O("(29PHD09"J``1*@&[R M2H!O#B\`('4!<````[1.D"2`)&[_^"IN__Q.7DYU3E8``"\-*GP``%2B2_O8 M`$*G('4!<````G1.D"IN__Q.7DYU3E8``"\-*GP``%1^2_O8`"!U`7````+L M(+4!<````Z`@=0%P```"_'`!((`J7TY>3G4``"1.971"4T0Z(&9F;'5S:"YC M+'8@,2XQ,R`Q.3DY+S`Y+S(P(#`T.C,Y.C(V(&QU:V5M($5X<"`D``!.5@`` M+PTJ?```5!!+^]@`(&X`"$J(9A(O-0%P```#D"!U`7````.48"@P*``,`D`` M&&84('4!<````GA.D"!`<@D@@7#_8`PO""!U`7````.03I`J;O_\3EY.=4Y6 M``!(YS`@)&X`"#`J``Q(P`@```-G2"8J`!!G0B02E(,D@^C`!X)F$B5J`!0` M"&`J`&H`0``,H6(HF4DJ+9MA"@$SN/`3_[$Y>3G4D3F5T M0E-$.B!S=&1I;RYC+'8@,2XQ,2`Q.3DY+S`Y+S(P(#`T.C,Y.C,S(&QU:V5M M($5X<"`D`$Y6``!(YR`D*GP``%(42_O8`"1N``@O+@`0+RX`##)J``XO"2!U M`7````/(3I`@0$J(;18B"%O`2<#3J@!4)"H`4-6`)4(`4&`&`FKO_P`,(`A, M[B0$__1.7DYU3E8``"\-+PHJ?```4;A+^]@`)&X`"`@J````#&<<2'@``D*G M0J3G5.5@``+PTJ?```4/)+^]@` M(&X`"#!H``XO""!U`7````*43I`J;O_\3EY.=21.971"4T0Z(&9W86QK+F,L M=B`Q+CD@,3DY.2\P.2\R,"`P-#HS.3HR.2!L=6ME;2!%>'`@)```3E8``$CG M,#PJ?```4(Q+^]@`*&X`"$*#)G4!<````[A*BVCB9"*$,D;O_>0E(@"T)`2$`]0/_X/4O_^B`,0D!( M0#U`__P]3/_^)D0H12(+0D%(03U!_^X]2__P(`Q"0$A`/4#_\CU,__0T?``$ M+4K_SDI!9@``BD*`4Z[_SGP!O*[_SF9J)&[_VD*#-BH`!"1N_]XP*@`"*@!, M0U``/`!(1CPJ``0@!B@`3$-``#P`2$8\*@`&(`8D`$Q#(``\`$A&/"H`""`& M(@!,0Q``2JX`&&<*)&X`&"5```1"DCP%2$8\!"9&/`)(1CP!8``"SE2N_]HD M;O_:2FH``F<`_WPT?``$E>[_SBU*_])@"%.N_])4KO_>)&[_WDIJ``)G[G@$ MF*[_TB`$4X1K%"1'0?)*`$)058A1S/_Z0D13A&3R)$=%\@H`+@I"KO_*)&[_ MVD*#-BH``@R#``!__V(.4J[_RM:##(,``'__8_)*KO_*;S@O+O_*+"[_TB1N M_\Y()$E8BBU*_[8D252* M+4K_LD*N_\(M;O_._[XL+O^^W(8M1O^^,!$D;O^R5*[_LC02)&[_ME2N_[8V M$K!N_]AG(CU`_\@B+O_&2$%"03U"_\2"KO_"0H`P+O_8+@%,0'`"8!Q^`4A' M`H(``/__4X="@#`N_]C4@`R"``#__V(40H`P+O_63`<(`#("2$$R`[*`9=I" M@R@N_\YO3D*N_ZY"A2!N_[[1[O_:)"[_JM2$)&[_WCUR*@#_L#H058@B!4P' M&``@+O^ND(&0@R8`-8,J`$)#2$-\`4A&G(,F!@*#``#__U.$2H1NP$*`,!&0 M@R8`,H-"0TA#2H-G/E.'0H,H+O_.;S)"A4*"(&[_OM'N_]HB+O^JTH0D;O_> M.C(:`#0058@@!=""UH`U@QH`0D-(0U.$2H1NVM=1)&[_NE2N_[HTAU2)4J[_ MJBPN_ZJ\KO_2;P#^TDJN`!AG?DJN_\IG4B@N_]+8KO_.N*[_TF\\0H-Z$)JN M_\H@!-"`(&[_WM'`)&[_WD/R"/Y"@C80(@,L+O_*[*DT$56)(`+KJ()`,(%5 MB%.$N*[_TF[@)&[_WD)R2@`T;O_X/`I(1CPN__HF1C1N__P\"DA&/"[__BA& M)&X`&"2+)4P`!#1N_^0\"DA&/"[_YB9&-&[_Z#P*2$8\+O_J*$8@"R(,3.X\ M_/^`3EY.=4Y6``!(YSXP)FX`""PN``PH+@`0D3G4` M`"1.971"4T0Z('-Y6-R;V9T($5X<"`D`$Y6_^`O#2\"*GP``$LP2_O8`"`N``AT!"U"_^1T M$[2`9P`"NFT``)AT";2`9P`"%FU"=`2T@&<``5AM&'0"M(!G``$:;0`!.'0! MM(!G``#^8``#%G0&M(!G``$J;@`!0G0'M(!G``%D=`BT@&<``6A@``+V=`ZT M@&<``AIM('0+M(!G``'@;@`!S'0,M(!G``'D=`VT@&<``>Q@``+,=!"T@&<` M`@YN``'\=!&T@&<``A)T$K2`9P`"&F```JQT'+2`9P`!(FTZ=!>T@&<``C9M M$'05M(!G``(8;0`"'F```@9T&;2`9P`",&X``B)T&K2`9P``MG0;M(!G``"^ M8``":'0AM(!G``#\;2!T'K2`9P`"'FX``-9T'[2`9P``VG0@M(!G``'\8``" M/G0CM(!G``#J;@``VG0DM(!G``#J="6T@&<``.Y@``(>=`$M0O_H=`@M0O_L M8``"(DAN__!(>``'('4!<````]1.D'+_2H!F``(P(B[_]&```BAP9&```B1T M`2U"_^AT$V```:IT`2U"_^AT$BU"_^Q@``'>2&[_\$AX``A@NG0(+4+_Z'03 M+4+_[&```<1T""U"_^AT%"U"_^Q@``&T=`$M0O_H=!1@``%D=`$M0O_H=!$M M0O_L8``!F'0&8```K'0!+4+_Z'0@8``!0G0!+4+_Z'0E8``!-G0!+4+_Z'0H M8``!*G0!+4+_Z'0I8``!'G0!+4+_Z'0J8``!$G0!+4+_Z'0K8``!!G0!+4+_ MZ'0L+4+_[&```3IT""U"_^AT`BU"_^Q@``$J=`@M0O_H=`,M0O_L8``!&G0( M+4+_Z'0$+4+_[&```0IT""U"_^AT!2U"_^Q@``#Z=`@M0O_H=`8M0O_L8``` MZG0(+4+_Z'0'+4+_[&```-IT""U"_^@M0O_L8```S'0(+4+_Z'0)+4+_[&`` M`+QT""U"_^AT"BU"_^Q@``"L=`@M0O_H=`M@7'0(+4+_Z'0,8%)T""U"_^AT M#6!(=`@M0O_H=`Y@/G0(+4+_Z'0/8#1T""U"_^AT$&`J=`@M0O_H=!%@('0( M+4+_Z'028!9T`2U"_^AT)BU"_^Q@3'0!+4+_Z'0C+4+_[$*G0J=(;O_D2&[_ MX$AX``)(;O_H('4!<````VQ.D'3_M(!G&"`N_^!F0&`0('4!<````GA.D"!` M=!8@@G#_8"I"IT*G2&[_Y$AN_^!(>``"2&[_Z"!U`7````-L3I!R_[*`9P0B M+O_@(`$D+O_8*F[_W$Y>3G4``'`!3D!.=0``8/\``$U^<`1.0&7T3G4``&#_ M``!-;G`#3D!E]$YU``!@_P``35YP24Y`9?1.=0``8/\``$U.(#P```#"3D!E M\$YU``!@_P``33IP!DY`9?1.=0``)$YE=$)31#H@;6UA<"YC+'8@,2XQ,2`R M,#`P+S`Q+S(R(#(R.C$Y.C(P(&UY8W)O9G0@17AP("0``$Y6```O#2I\``!& MZ$O[V``O+@`@+RX`'$*G+RX`&"\N`!0O+@`0+RX`#"\N``A(>`#%0J<@=0%P M```#V$Z0(``J;O_\3EY.=0``)$YE=$)31#H@;'-E96LN8RQV(#$N-R`R,#`P M+S`Q+S(R(#(R.C$Y.C(P(&UY8W)O9G0@17AP("0``$Y6```O#2I\``!&9$O[ MV``O+@`4+RX`$"\N``Q"IR\N``A(>`#'0J<@=0%P```#V$Z0*F[__$Y>3G4D M3F5T0E-$.B!B8V]P>2Y3+'8@,2XQ-2`Q.3DY+S$P+S(U(#(S.C0X.C$T('1H M;W)P96H@17AP("0`(F\`!"!O``@B+P`,L2(9Q13@"+84$Z0($!T`6```21T`K2! M9@`!#G0!M*H`!&8P2HAG!G17M)%D,'18(H)*B&<``+Q(>`!8+S4!<````]PO M""!U`7````-X3I!@``"@2HAG#'0#M)%E!G`,8```V'0$(H)"@$J(9P``S"`J M``1T"[2`9P``G&TZ=`:T@&=Z;1QT`[2`9V!M!'0"8`AT!+2`9UYT!;2`9UA@ M``"(=`BT@&=>;EAT";2`9W!T"K2`9UA@<'00M(!G6&T6=`VT@&=0;DYT#K2` M9TAT#[2`9T)@4G02M(!G.FXX=!.T@&$Z0($!T%B""J( M9R("@0```!]3@"+8(M@BV"+8(M@BV"+8(MA1R/_N0D!3@&3F(`'DB&<44X`B MV%'(__P"@0````-G"%.!$MA1R?_\("\`!$YUT<'3P0R!````"&U8(`D(```` M9P03(%.!"````6<$,R!5@2`!ZHAG(@*!````'U.`(R`C(",@(R`C(",@(R`C M(%'(_^Y"0%.`9.8@`>2(9Q13@",@4:4X$3(%')__P@+P`$ M3G4``"1.971"4T0Z(&-E``80J2_O8`"!N M``@B;@`,(E%0B2\)(%!0B"\(('4!<````B!.D"IN__Q.7DYU```D3F5T0E-$ M.B!Q"9A3HQ`>"9@Y^!+Z$5L`:`$G%1(5@ M`GH"0J[__'X&OJX`#&5Z*$/9Q"0$3"XH```,(`/0@K",8P`$Q"9,MHQD4"\+ M)$N5Q"\**FX`%$Z54(]*@&\\2H5F""`3)I(D@&`J?@&^A6T4(@3DB2)+($H@ M$2+0(,!3@6;V8!`B!")+($H0$1+0$,!3@6;V)DJVBV6PV<0@`]""L(QBH&`` M!&`@+@`,XHA,!`@`*$/9P'X'OJX`#&0``:HF0R0N``Q3@DP$*``L`]R"?BB^ MK@`,9``!/"UN``S_^"XN__CFCTP$>``M1__X)`?4@RU'__3>ARU'__0D1]7# M+P(O`RIN`!1.E5"/2H!L'B\*+P).E5"/2H!M-"\*+P-.E5"/(@-*@&PH(@I@ M)"\*+P(J;@`43I50CTJ`;A(O"B\#3I50CR(*2H!L!B(#8`(B`B9!)$R5[O_X M)"[_^-2,+PPO"BIN`!1.E5"/2H!L'B\"+PQ.E5"/2H!M-"\"+PI.E5"/(@I* M@&PH(@)@)"\"+PPJ;@`43I50CTJ`;A(O`B\*3I50CR("2H!L!B(*8`(B#"A! M)`:4KO_T)$:5[O_X+PHO`BIN`!1.E5"/2H!L'B\&+PI.E5"/2H!M-"\&+P). ME5"/(@)*@&PH(@9@)"\&+PHJ;@`43I50CTJ`;A(O!B\"3I50CR(&2H!L!B(" M8`(B"BP!+PPO"RIN`!1.E5"/2H!L'B\&+PQ.E5"/2H!M-"\&+PM.E5"/(@M* M@&PH(@9@)"\&+PPJ;@`43I50CTJ`;A(O!B\+3I50CR(&2H!L!B(+8`(B#"A! M)"X`#%."2H5F"BI#(!4JE"B`8"I^`;Z%;10B!.2)(D,@3"`1(M`@P%.!9O9@ M$"($(D,@3!`1$M`0P%.!9O8F0]?$+`LH2TP$*``J0]O"+4W_]"1-8$)*A68( M(!,FDB2`8"I^`;Z%;10B!.2)(DL@2B`1(M`@P%.!9O9@$"($(DL@2A`1$M`0 MP%.!9O8Z?``!+4W__-?$E<2URV4``,(O`R\+*FX`%$Z5(@!0CVY&9CY^`2U' M__Q*A68((!0HDR:`8"I^`;Z%;10B!.2)(DP@2R`1(M`@P%.!9O9@$"($(DP@ M2Q`1$M`0P%.!9O;9Q-?$M3G4``"1.971"4T0Z(&1I=F1I,RYC+'8@,2XT(#$Y.3`%*@&H(1(%`@`I$``%"IR\!+P`O`R\" M('4!<````=Q.D$J$9P1$@4"`3.X@'/_P3EY.=0``X&0``'U*``#@:````$H` M`.!L``"!2@``X'````!*``#@=````$H``.!X``":2@``X'P``'!*``#@@``` M`$H``."$````2@``X(@```!*``#@C````$H``."0````2@``X)0```!*``#@ MF````$H``."<````2@``X*````!*``#@I````$H``."H````2@``X*P```!* M``#@L````$H``."T````2@``X+@```!*``#@O````$H``.#`````2@``X,0` M``!*``#@R````$H``.#,````2@``X-````!*``#@U````$H``.#8````2@`` MX-P```!*``#@X````$H``.#D````2@``X.@``+-*``#@[````$H``.#P```` M2@``X/0```!*``#@^````$H``.#\````2@``X0````!*``#A!```64H``.$( M````2@``X0P```!*``#A$```G$H``.$4````2@``X1@```!*``#A'````$H` M`.$@````2@``X20```!*``#A*````$H``.$L````2@``X3```'1*``#A-``` M`$H``.$X````2@``X3P```!*``#A0````$H``.%$````2@``X4@```!*``#A M3````$H``.%0````2@``X50```!*``#A6````$H``.%<````2@``X6````!* M``#A9````$H``.%H````2@``X6P```!*``#A<````$H``.%T````2@``X7@` M``!*``#A?````$H``.&`````2@``X80```!*``#AB````$H``.&,````2@`` MX9````!*``#AE````$H``.&8``"(2@``X9P``#M*``#AH````$H``.&D```` M2@``X:@```!*``#AK````$H``.&P````2@``X;0```!*``#AN```-$H``.&\ M````2@``X<````!*``#AQ```,DH``.'(```Q2@``X0``#-*``#AZ``` M`$H``.'L````2@``X?````!*``#A]````$H``.'X````2@``X?P```!*``#B M`````$H``.($````2@``X@@``%=*``#B#```H$H``.(0``!,2@``XA0``(Q* M``#B&```:TH``.(<``!N2@``XB```"1*``#B)````$H``.(H```I2@``XBP` M`*)*``#B,````$H``.(T``!C2@``XC@```!*``#B/```:$H``.)```!"2@`` MXD0``&=*``#B2```?DH``.),````2@``XE````!*``#B5````$H``.)8```` M2@``XEP```!*``#B8```ITH``.)D``!62@``XF@``#I*``#B;```'DH``.)P M``"&2@``XG0``)1*``#B>````$H``.)\````2@``XH```"5*``#BA````$H` M`.*(````2@``XHP```!*``#BD````$H``.*4````2@``XI@``$%*``#BG``` M)TH``.*@```52@``XJ0```!*``#BJ````$H``.*L````2@``XK````)*``#B MM```L$H``.*X``"*2@``XKP```!*``#BP```JTH``.+$````2@``XL@``'5* M``#BS```C4H``.+0````2@``XM0``*I*``#BV```LDH``.+<``!D2@``XN`` M`&5*``#BY```6$H``.+H``!Y2@``XNP``$E*``#B\```>$H``.+T``"I2@`` MXO@``#Q*``#B_```!4H``.,```!12@``XP0``%!*``#C"````$H``.,,``!: M2@``XQ````!*``#C%````$H``.,8```32@``XQP``"M*``#C(```;TH``.,D M``!S2@``XR@``"A*``#C+````$H``.,P````2@``XS0```!*``#C.````$H` M`.,\````2@``XT````A*``#C1````$H``.-(```@2@``XTP```M*``#C4``` M=TH``.-4```02@``XU@``)M*``#C7```1DH``.-@``!A2@``XV0``$M*``#C M:````$H``.-L```'2@``XW```#E*``#C=```3TH``.-X````2@``XWP``*-* M``#C@```H4H``..$````2@``XX@```!*``#CC````$H``..0````2@``XY0` M``!*``#CF```F$H``..<``!22@``XZ```$=*``#CI```M$H``..H``"H2@`` MXZP``$A*``#CL````$H``..T````2@``X[@``%]*``#CO```>TH``./```"M M2@``X\0``)=*``#CR````$H``./,```X2@``X]```"-*``#CU````$H``./8 M``!32@``X]P```!*``#CX```B4H``./D```92@``X^@```!*``#C[````$H` M`./P``!=2@``X_0``#U*``#C^````$H``./\```&2@``Y````&)*``#D!``` M3DH``.0(```:2@``Y`P``(1*``#D$```;$H``.04````2@``Y!@``)!*``#D M'```7DH``.0@````2@``Y"0``&9*``#D*```DTH``.0L````2@``Y#````!* M``#D-```/TH``.0X```L2@``Y#P```!*``#D0```)DH``.1$``!I2@``Y$@` M`&!*``#D3```#DH``.10``"'2@``YK(```1"``#FI@``!$(``.:B```$0@`` MYIX```1"``#FF@``!$(``.:6```$0@``YI(```1"``#FC@``@4(``.:&```& M0@``YFX```9"``#FO```!$(``.;8```$0@``YM0```1"``#FT```!$(``.;, M```$0@``YL@```1"``#FQ```!$(``.;````$0@``Y\```!Y"``#GQ```5D(` M`.D@```&0@``Z1P```1"``#I&```!$(``.D4```$0@``Z1````1"``#I#``` M!$(``.D(```$0@``Z00```1"``#I````!$(``.C\```$0@``Z/@```1"``#H M]```!$(``.CP```$0@``Z.P```1"``#HZ```!$(``.CD```$0@``Z.````1" M``#HW```!$(``.C8```$0@``Z-0```1"``#HT```!$(``.C,```$0@``Z,@` M``1"``#HQ```!$(``.C````$0@``Z+P```1"``#HN```!$(``.BT```$0@`` MZ+````1"``#HK```!$(``.BH```$0@``Z*0```1"``#HH```!$(``.B<```$ M0@``Z)@```1"``#HE```!$(``.B0```$0@``Z(P```1"``#HB```!$(``.B$ M```$0@``Z(````1"``#H?```!$(``.AX```$0@``Z'0```1"``#H<```!$(` M`.AL```$0@``Z&@```1"``#H9```!$(``.A@```$0@``Z%P```1"``#H6``` M!$(``.A4```$0@``Z%````1"``#H3```!$(``.A(```$0@``Z$0```1"``#H M0```!$(``.@\```$0@``Z#@```1"``#H-```!$(``.@P```$0@``Z"P```1" M``#H*```!$(``.@D```$0@``Z"````1"``#H'```!$(``.@8```$0@``Z!0` M``1"``#H$```!$(``.@,```$0@``Z`@```1"``#H!```!$(``.@````$0@`` MY_P```1"``#G^```!$(``.?T```$0@``Y_````1"``#G[```!$(``.?H```$ M0@``Y^0```1"``#GX```!$(``.?<```$0@``Y]@```1"``#GU```!$(``.?0 M```$0@``Y\P```1"``#GR```!$(``.DD``"40@``ZD0``'1"``#J/```!D(` M`.H0``!)0@``Z@P``'E"``#J"```>$(``.H$``!80@``Z@```'1"``#IN``` M24(``.FT``!Y0@``Z;```'A"``#IK```6$(``.FH``!T0@``Z6```$E"``#I M7```>4(``.E8``!X0@``Z50``%A"``#I4```=$(``.DP```(0@`````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````>````9````"X`````````"````#`````& M````>0```"$```"M````<@```'8```"0``````````H````S````"0```#\` M```:````-0```&<```"'````6P```*0````S````CP```&H```"&````$0`` M`%4````Y````80```"<```!-````%0```#D````%````+0````\````````` M.@```%(````#````/0```!,````V````/````%@````-````,0```%,```!X M`````0```&<````6````-P```",````^````.P```)T````T````6@```!0` M``!1````.````$L```!H````D0```"@```"I````"P```#(````"````0@`` M``P```!!````70`````````=````.P````X````T````2@```%D````'```` M+@```#$```!B````,````(,````0````3````!(````O````%P```#H````8 M````1P```!D````X````&P```%8````<````0P```!\````\````(````%,` M```B````2@```"0```!.````)0```&D````F````7P```"D```!R````*@`` M`%`````K````1````"P```!)````+0```$`````O````1@```#(```"%```` M-0```$4````V````?P```#<```!Z````/0```&4````^````2````#\```!= M````0````&P```!!`````````$(```!7````0P```$\```!$````5````$4` M``!\````1@```)0```!'````<0```$@```!;````20```&H```!+````:P`` M`$P```!<````30```&T```!.````C@```$\`````````4````'0```!1```` MF````%(```!C````5````&@```!5````BP```%8```!>````5P```&````!8 M````I0```%D```"!````6@```&\```!<````B@```%X```!F````7P```(@` M``!@````<````&$```"9````8@````````!C````DP```&0```![````90`` M`((`````````KP```&8```!S````:0```(````!K````;@```&P```"<```` M;0```'4```!N````?0```&\`````````<````(P```!Q````H````',```!W M````=````*,```!U````?@```'8`````````=P````````!X````D````'D` M``"-````>@````````![````H@```'P`````````?0````````!^```````` M`'\`````````@0````````""`````````(,`````````A````(0```"%```` MJP```(8```":````AP````````"(````E@```(D```")````B@````````"+ M````IP```(P`````````C0```)L```".````D@```)$```"5````D@```)\` M``"3````K@```)0`````````E0````````"6`````````)<`````````F``` M``````"9````EP```)H`````````FP````````"<`````````)T````````` MG@```*$```"@````J@```*$```">````H@````````"C````K````*0```"F M````I0````````"F`````````*<`````````J`````````"I````J````*H` M````````JP````````"L`````````*T`````````K@````````"O```````` M`+``````````L0````````"R````L````+,`````````M```````````!P`` M````X```````````"@4```````!T`````````!4%`@````!OS``````````@ M"P``````````````````)0$``````````````````"L%`@````"(S@`````` M```Q!0(`````A7@`````````.0`````````7T%`@````"?#@````````&'!0(`````@)``````#]=``````` M``'W!P$`````YKP````$```"#0`````````)$!0$`````;\@````$```"4@`4"`````(_$`````````H`% M`@`````N$`````````*)!0(`````F1(````````"E`4"`````"E&```````` M`J@%`@````!P:`````````*Q!0(`````33X````````"N@4"`````#^:```` M`````L0%`@`````IG@````````+5!0(`````*.X````````"Y@D``````/UX M`````````O(%`@````"BM`````````+]!0(`````FX0````````#!@4"```` M`(Z8`````````Q`%`@````!6O@````````,8!0(`````9G`````````#(@4" M`````$`T`````````RH%`@`````OL`````````,]!0(`````A)X````````# M204"`````&0R`````````U,%`@````"`4`````````-=!0(`````BJ(````` M```#9`4"`````';2`````````V\%`@````"?:@````````-X!0(`````/BP` M```````#@`<``````.14`````````YL%`0````!6Z````@(```.H!P$````` MY[P````$```#M@4"`````(]@`````````\`%````````4`````````/.!0(` M````8/X````````#V`4"`````%E,`````````]X%`@````!!R`````````/F M!0(`````C)X````````#\`4"`````)4@`````````_D%`@````!V&@`````` M``0"!0(`````=;H````````$#`4"`````&=D````````!!<%`@````"+L``` M``````0A!0(`````B:H````````$*@4"`````&($````````!#4%`@````!5 MX@````````0]!0(`````F.(````````$1`4"`````$G4````````!%$%`@`` M``"08`````````1R````````!',% M`@`````CH@````````1[!0(`````G%@````````$@PT%`@````!! M<@````````7T!0(`````F/(````````%^@4!`````(?$```!`0``!@4%`@`` M``!#,`````````80!0(`````+W@````````&(`4"`````'#\````````!BP% M`@````!]M`````````8U!0(`````+I0````````&/0D``````/V,```````` M!D0%`@````"+U`````````9-!P$`````YHX````$```&7`4"`````$^.```` M````!F4+``````````````````9K`0`````````````````&<@4"`````#$N M````````!GP%`@````"9:@````````:"!0(`````86@````````&B`4"```` M`)D"````````!I`%`@`````C*@````````:9!0(`````&!`````````&H04` M```````@````````!J8%`@`````E(`````````:L!0(`````F>X````````& MLP4"`````)DF````````!KH%`@````",0@````````;"!0(`````5(X````` M```&R0<``````.I,````````!M`%`@````"&,@````````;7!0(`````*MX` M```````&X@D``````/V4````````!N<%`@````"!-`````````;O!0(````` M0B8````````&^04"`````*"P````````!P()``````#]D`````````<2!0(` M````@`8`````7U]$64Y!34E#`%]?8V%C:&5C=&P`7VES0!? M8F-O<'D`7U]?9&EV9&DS`%]?1TQ/0D%,7T]&1E-%5%]404),15\`7U]?`!?=G-P0!?0!?=6YS971E;G8`7W-T M9%]S96%R8VA?<&%T:`!?861D7W-E87)C:%]P871H`%]?7W-D:61I;FET`%]A M;'!H87-O`!?7U]S8VQO0!?7!E`%]?7W%D:79R96T` M7W%S;W)T`%]A9&1?0!?7U]S9G9W&ET`%]?7W-R96%D`%]?7W-S965K`%]M8G-T;W=CF4`7U]?=6UO9&1I,P!?0!?:6]C=&P`7V5T97AT`%]?=&]U<'!E7!E7P!?7U]U9&EV9&DS`%]M9%]F:7A?:FUP`!?7V5R&ET`%]M=6YM87``7WAP10``'BX``!QN``#J;``` MYK(```8%``#J8```ZV@``.ML``#K<```&R4``!L0``#K8```ZV0``.9D```9 M!```%^(``.9N```7N```%AH``.I\``#]D```#KL```Y^```.7@``#D````X8 M``#J<````%````UT```-;@``YHX```S,``#FB@``ZEP``.IH```&;P``!FD` M``9L``#I-```!E\```95```&.```!B,```8&```%Y```!.4```32``#J=``` M`4T```$R```!&@``ZF0```#"``#FD@``YG(```$&````\````-L```#-```` ML@``ZE@``.I4``#J4```ZDP``/V(``#FA@``)JD``.M\``#K^```ZW@``":4 M``#K@```YK@``.O\```M]@``_70``/UP```JU```*ML``"K6```JS@``*DP` M`.DD``#FO```*.P``">E```PR@``,-H``#$3```PZ@``,0(``##[``#GO``` M,2X``$`T``"-<```(Z(``)IB```E6@``[````)P*``!A:```0#(``(FJ``!` M+0``D&```$T^``!)U```AQ```$@T``#NK```YL```.;<``#L!```)2```%;H M``#GQ```38P``.?```"'Q```2"X``$0-``!V7@``[<0``$=R``!'@@``2#X` M`.SD``!P:``````7A@``$G(``",0@``H+```&($``!5X@``CV```([\``". MF```CCP``)DF``"(W@``B,X``(JB``"`4```5=T``&#^``!5V@``5=4``%_F M``!>_```6N8``&"6``""=```7O@``%[U``!>\```7^,``%_>``!C)```[K`` M`)C4``#];```_8```(/N``"+U```_7@``&=D``!F<```8Q(``.D@``!OR``` M9#(``&,-``"9`@``F6H``&68``!D+P``9"H``&/\``!C]```?;0``';2``"B MM```@`8``)GN``";A`````"/Q```@CH` M`(5X``"+L```A)X``(7J``"&(@``G%@``(H4``#J/```E2```/<\``"8X@`` MF/(``)20``#J2```F1(``)\B``"='P``GPX``*,D``!UN@``J'P``'#(8/__ M___^``!@____,[(``&#___^T?```8/___[><``!@____6)P``&#___]`H@`` M8/___S\<``!@____=2(``&#___]<5@``8/___VV```!@____BVP``&#___^V MU@``8/___UCR``!@____<@```&#___]$@```8/___T80``!@____1!@``&#_ M__])M@``8/___[1```!@____M!0``&#___^T=```8/___Z/@``!@____H\@` M`&#___]*:@``8/___Z0.``!@____5M0``&#___]T)@``8/___UBX``!@____ M2A8``&#___])\@``8/___[.L``!@____2,(``&#___]NQ@``8/___VO&``!@ M____I^```&#___]*0@``8/___WOR``!@____1"```&#___]:%```8/___V?V M``!@____6$(``&#___]GW@``8/___U@J``!@____&L8``&#___]N`@``8/__ M_X]6``!@____:BP``&#___\_C```8/___X_D``!@____F58``&#___^;3@`` M8/___W@J``!@____;I@``&#___^*R@``8/___VJ*``!@____D%```&#___]J M*```8/___UT2``!@____7(X``&#___]Z:```8/___UM>``!@____NG(``&#_ M__][O@``8/___Z7T``!@____=)```&#___^Z,@`````@`&UA:6X`````YF@O M=7-R+VQI8F5X96,O;&0N```B1@`` M(J(``"+@```6(``````````````&!0``````!```)YP``$/C``!#V```0\\` M`$/#``!#N```0[```$.D0P`````````````````````````````````````` M``!#`````````````````````````````````````````$,````````````` M````````````````````````````0P`````````````````````````````` M``````````!#`````````````````````````````````````````$,````` M````````````````````````````````````0P`````````````````````` M```````````````````````!``!-C```5N@``&^T``!OG```;X(``&]R``!O M6@``;T<``&\Q``!O&@``;P@``&[T``!NX0``;L<``&ZP``!NG@``;I(``&Y\ M``!N<```;F0``&Y2``!N,```;B```&X1``!N````;>(``&W.``!MKP``;:`` M`&V1``!M>0``;6P``&U6``!M1P``;3L``&T:``!M"0``;.@``&S.``!LL``` M;)$``&QT``!L8P``;$0``&PM``!L%@``:_P``&OD``!KQ@``:Y8``&M_``!K M8```:U```&LY``!K%0``:O0``&K;``!JP0``:J4``&J-``!J;```:DH``&HV M``!J(P``:@$``&GN``!IX0``:=```&F\``!IJ0``:9H``&F&``!I<```:4X` M`&D\``!I*@``:18``&D```!HY@``:-,``&BZ``!HF```:(,``&AP``!H70`` M:$(``&@8``!H`@``Y\@``(?$`````````!$``/>4``````````````````0` M````````````````````Z30``(]@``"./```COP``(Z8```````````````` M```````````````````````````````````````````````````````(``$` M`````````````````.F,``"/8```CCP``([\``".F``````````````````` M````````````````````````````````````````````````````"@`"```` M``````````````#IY```CV```(X\``"._```CI@````````````````````` M``````````````````````````````````#I*`````,``.DT```````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` 0```````````````````````` ` end src/libexec/ld.aout_so/ld.so.sparc.uue010064400011300000175000003425371007717051600201470ustar00srcmastrnetbsd$NetBSD: ld.so.sparc.uue,v 1.3 2004/07/20 10:17:50 pk Exp $ This file was created using the following revisions: ld.h,v 1.2 1998/12/17 23:36:38 pk malloc.c,v 1.5.2.1 2001/04/01 15:47:54 he rtld.c,v 1.73.2.3 2001/04/01 15:48:57 he shlib.c,v 1.16.2.2 2001/04/01 15:49:24 he shlib.h,v 1.1 1998/12/15 23:16:14 pk sparc specific files: md-static-funcs.c,v 1.4 1998/12/15 21:23:57 pk md.c,v 1.19 1998/12/17 14:29:50 pk md.h,v 1.16.2.1 2001/04/01 15:51:41 he mdprologue.S,v 1.8 2004/07/15 03:00:21 chs begin 755 ld.so MP(H!"P`!`````"`````(@```%6P````@``````````"=X[^@0````H(0($J6 M(^`DT`+@!)`"``O2`N`(E!`@!Y'0(`!````"+P``0*X5X!RN!<`/@*8@`1*` M``,!````L@9`'M8&0`#4!<``E`*`"\(%X`2"`$`+DA``&9_`0`"0$``8L!`` M"(''X`B!Z```G>._H)`GX`32!^`$%0`/_Y02H_]``$"(D@I`"H(0``B!Z``` M@=X[^8D`8__X"B(`,O```_?___^JX%XE`H@``$ MT@9``!"``..P$#__T`:@")`"``G0)J`(U`(@%-("(!B2(D`*@*)@``2```:B M$"``D@)_]("B8``4O__^H@1@`=`&H`B`I&``U`(@%-(&0``"@``+H`*`"=0$ M``"0$``0T@9``*`$(`Q___^/E`*`":*$?_\RO__ZU`0``("F(`,$@``%@*8@ M`M(%X`C0!F``,T@7@$-`&8!C0(D``T@9@$$``0`+2(H`` MX@7@%$``0`+0)$``X`7@&$``0`+0)```Y`7@'$``0`+0)(``EA``"-0$0`"8 M$"``T`0``-(%X""`HH`(V@7@)!*```;6(D``T`2``("B``LB@``$T@7@))@0 M(`'2!>`DV"-``-`"0`"`HB```H``!@$```!``#_OT`7@*$``/^W0!>`L0``_ M[M`%X"C2!>`P0``_[M`B0`!``#_IT`7@-("B(``R@``%X`7@.$``/^H!```` MX`7@.$``/^'0!>`\@*``"))`(`#B!>!`TB0``$``/]O0!>!$@*``"))`(`#@ M!>!(TB1``$``/]70!>!,U`7@$("@``C0`H``DD`@`-(D``#:!F`,DA`@`)00 M(`"6$"``0``!Q)@0(`"&$``(U`#@')H0`!K0`J`(DA`@`)`"(`'0(J`(U@#@ M')00(`#0`N`,F!`@`)`2(`G$!>!0T"+@#,8@@`#0!>!40``!LM8&0`"&$``( MU@#@'("F(`/0`N`(D`(@`=`BX`C4`.`!8T")@#$``/Z70!>`LT@7@7("B(``"@``$T")``$`` M"*P!````X`7@8$``/YS0!>!D\`7@:-`D``!```!+T`8``-($``"`HF```H`` M!@$```!```#"T`8``$``/YF0$"``0``#(]`&``#2!F`,U`8``-8"8`C0`J`( MT"+``-(&8`S0!>!LX`)@!-0"``#2!"`$@*)@``*``"74)"`4U`9@%!,___BB M"H`)D!``$1,```A``#^&E!`@!X"B/_\R@``'T`9@%-8%X!"0$"`!T@7@<$`` M/X'4`L``0``_@I($(!"0$``1$P``"$``/WB4$"`%@*(__S*```?0!@``U@7@ M$)`0(`'2!>!T0``_<]0"P`#2!F`4@*(@``*```32)"`,D!`@`=`D(`A```;_ ML!`@`$``/V_0!F`(@!XT@7@?-0&(!R0 M$"`!V`*@(-H%X!#6!@``U`-``)8"P`S$!```VE0@"I8"P`)``#\IV%0@")(0 M`!"4$``8EA`@`)@0(`!```$.FA`@`)(0``C4`F`"D*`````$Q$7U1204-%7TQ/041%1%]/0DI%0U13 M7T9-5#(`````"25O("@E>"D*`````````&YO="!F;W5N9``````````E"(K)(@`"*```+L!>",0``^PM`%X)"JDB``(H``M.H% MX)00@`"S@*8@`("D8``B@`"O\`8@"-`&(!S2`B`$@*)@``*```?F!$``T`)@ M'-("0`#4`B`@D@)`"J8$P`GD!B`$@*2@`"*```+D!>"8T`1@!("B(``6@``# MH!``%:`0`!80@`"6U$P``("BH"4"@`!(@**@7"*``!C43```V`7@G)(#(%C0 M`F`(E@(__X"BX``6@``(UB)@"-`"8!B`HL`(!H``"8"BH`H"@``'`0```-`# M(%C4*@``D`(@`1"``'S0(R!80``^I)`0``H0@`!YT`P``("BH&X"@``-T`P` M`!2```>`HJ!T@**@``*``'*1*B`8$(``;J`$(`$B@``0U@7@G!"``&J@!"`! MU@7@G)@0(`J2`N!8T`)@")0"/_^`HJ``%H``$=0B8`A``#Z*D!`@"A"``%Z@ M!"`!F!`@"9("X%C0`F`(E`(__X"BH``6@``&U")@"-`"8!B`HH`(!H``!P$` M``#0`N!8V"H``)`"(`$0@`!-T"+@6$``/G:0$"`)$(``2J`$(`'43```@**@ M;@*``#W0#```%(``%8"BH'"`HJ!A(H``,-0%X!`4@``,@**@;8"BH$$B@``I MT`7@H#2``!+8!>"<@**@``*``#F1*B`8$(``#=@%X)PB@``HT`7@I!"```G8 M!>"<(H``*=`%X*`&@``?@**@>"*``"?0!>"HV`7@G)(#(%C0`F`(E@(__X"B MX``6@``(UB)@"-`"8!B`HL`(!H``"8"BH`H"@``'`0```-`#(%C4*@``D`(@ M`1"``!C0(R!80``^09`0``H0@``5H`0@`1"``!"2$``4T`7@H!"```W2`H`` MT`7@H!"```J2$``3$(``"-)48`C0!>"D$(``!=)48`H0@``#DA``$M(&``!` M`#XP`0```*`$(`'0#```D2H@&)4Z(!B`HJ``$K__:Z`$(`'P!B`(@*8@`#*_ M_T_B!B`,@%D0``^()`0("2B$``(0``^ M'9`0(""@$``(V`7@K,`D(`C2`P``$2```.`B0`#4!"`4E@0@"-8C``"0*H`( MT"0@%("F(``"@``&]B0``$``/A"0$``8$(```]`D(`3`)"`$\B0@#/HD(!CB M)"`<]"1@!/@D8!#`)&`(@*=@`!*```3`)&`,$(``);`0`!"`IN``$H``")(0 M(`#0!T``%0``")`:(`.`H``(DD`__Y(*0`K2)&`@T`=``("B(`<$@``#DA`@ M#)(0(!#2)&`4U`0@&+`0`!#2!"`._F-(&(!S0`F`,@(H@!`*```@!````T@8@#$``/=?0`D``0``]U=`& M(`S2!B`<0``]TI`0``G0!B`$@*(@``*```0!````0``]S`$```!``#W*D!`` M&(''X`B!Z```G>._:*@0`!CF!0``+P``/'___5FN!>/,@*9@``*```?`)[_4 MT`9@'-(&0`#4`B`@D@)`"J8$P`G0!2`$@*(@`#:``"S0!>`DD!`@`=`GO]2` MIF```H``%:`0(`#0!>!(T@(``("B8``R@``1TE4@"-`&8!C2`B`(V`)@"("C M(``R@``$T`9@'!"```G252`(T@9``-0"(""2`D`*H`)`#$``/7V0$``0TE4@ M")`0`!/452`*E@>_U$``!?&8$``0@*0@``*```2D$``(0``]EI`0`!"`I*`` M,H``$M`%X&C2!>"PD!`@`A"``,+0(D``T@(``("B8``"@``)I!``$]!,P`"` MHB`O`H``!9`0(`W2!>"P$(``M]`B0`#0!>!H\`(``("F(``"@``F`0```-`& M(`2`HB``(H``'O`&(`B8$``(U`L``)8$H`&1*J`8TDR``)$Z(!B`H@`)$H`` M#Y`0``J`HB``$H``!)@#(`$0@``,D!`@`-0+``#22L``D2J@&)$Z(!B`H@`) MD!``"@*___66`N`!T`K__Y`B@`B`HB```H``!X"F(`#P!B`(@*8@`#*__^#0 M!B`$@*8@`!*``(V0$``2DA`@`$``/5F4$"``HA``"("D?_\2@``(D!``$=`' MO]2`HB```H``@K`0(``0O_^7P">_U)('O]A``#U/E!`@(("B("`2@`!WT@>_ MV!$__\"`BD`(`H``"I00``D1```_D!(C_Y`*0`B`HB$($H``!Q$__\`0@``S MT`>_X("B80@"@``O$3__P("*@`@"@``)$0``/Y`2(_^0"D`(@*(A!Q*```<1 M/__`$(``)M`'O^"`HF$'`H``(A$__\"`BH`(`H``"1$``#^0$B/_D`I`"("B M(0L2@``'$3__P!"``!G0![_@@*)A"P*``!41/__`@(J`"`*```D1```_D!(C M_Y`*0`B`HB#,$H``!]`'O^`0@``-P".@7("B8,P"@``)T`>_X$``//R0$``1 MT@7@L)`0($\0@``]T")``-`'O^#`(Z!_W)H0(`#4![_DD@)`")("0`J0 M$"``E!`@!980(`)``#T'F!``$:`0``B`I#__`H``*]`'O]R4$"`'T@>_X$`` M/-N0!``(@*(@`!*``"07```$T@7@M-`'O]R6$N`2V`)``)`$``C4![_@P".@ M7)`"``K2![_DFA`@`$``//"4$"`'@*(__P*``!4!````0``\T)`0`!':![_< MD!``$IH$``W4`V`(DA``%)0"@!#4(V`(V`>_W)00`!G&![_@EA``$,0'O^28 M`P`#?__^II@#``(0@``%L!``"$``/+V0$``1L!`@`(''X`B!Z```=V%R;FEN M9SH@;&EN:R!M87`@96YT.@U@7@:-`"P`"`HB```H``"P$```"`H@`8 M`H``"("B(`"6`B`(T`(@"("B(``2O__[@*(`&("B(``R@``&T`8@"-(&(`1` M`#RST`7@N#"```R4!B`(V`7@K-`BP`#2`P``@*)`"B*```+6(P``U`8@'-`& M``!``#RJT@*@$(''X`B!Z````0```"YI;FET````7U]I;FET``"=X[^8+P`` M.W___"2N!>+X@*8@``*```V@$``8T`8@'-("(`R`BF`",H``!?`&(`A```!: MD!``&/`&(`B`IB``,K__^-`&(!RPE"```H``#@$```#0!B`6UB;VP@)7,@ M870@)7`@:6X@)7,@8VAA;F=E9"!S:7IE.B!E>'!E8W1E9"`E;&0L(&%C='5A M;"`E;&0`````0V%N;F]T(&1I#(T@8@!$``.^[4!,``T`8@%("B(``F@``4T`8@ M%-`&``"`HB``$H```]0&(!@1```(U@*@"-("X#!``#NZE!`@!X"B/_\R@``( MT`8@%,(%X,R0$"`!U`;``)(0``%``#NTU@8@!!,@``"0$@`)T"8@%-`%@`"` MBB"``H``59`0`!/`)[_T0``[W9(0`!74!8``D@J@'X"B8!8"@`!2H!``"),R MH`A``#O2D!``'9(0``BH!D`)T`T@!("B(!TB@``"\">_]-0&0`F6$"``I`<` M"I(0`!B0$``20```S)0'O_2BDB``,H``",0$8`C2!>#0E!``$M8&P`"0$"`! M0``[PM@&(`3:![_TAA```I:38``"@``$H`0``M`#0`"@!``(U`6``)(*H!^0 M`G_]@*(@!`B```>0`G_O@*(@`0B```2`HF`3$H``!9`*H!_0!@``H"0`")`* MH!^`HB`8$H``'9(0`!"`HN```H``&Y00`!78!2`,T@1@#("C``DB@``-U@-` M`-0#0`#6`V`$E`*``YH0``G0!>#40``[B9(0`!+$!&`(V`4@#-H'O_36`T`` MD!``$I8"P`*2$``50```5I00(`<0@``(I@3@#-(&``"4$``5D!``$T``.XZ6 M$"``I@3@#("DP!H*O_]BK`6@#-`&(!2`HB``%H``%P$```#0!@``@*(@`!*` M``/4!B`8$0``"-8"H`C2`N`P0``[0900(`6`HC__,H``"-(&(!38!>`0D!`@ M`=(%X-C4`P``0``[.]8&(`01(```D"I`"-`F(!2!Q^`(@>@``)WCOY@O```Z M?__ZWJX%X>#0!>!LX`(``("D(``"@``5`0```-`$(!"`HB```H``!("B`!@R M@``,X`0@!-($``#0"F`$@*(@!S*```?@!"`$U`)@#-`$(`Q``#M:T@)@".`$ M(`2`I"``,K__\-`$(!"!Q^`(@>@``)WCOY"0$``9DA``&/`GO_24![_T0``` M2)80(`&2DB```H``!M`'O_34`F`(T@(``)_"0`H!````@#!L]"H@!-`"@`#2!```^")@#/8D(`SZ)"`0T"0@!.`B@`#` M)"`(X"1``(''X`B1Z``0G>._D*P0`!C038``+P``.G__^G&N!>`L\B>@2/0G MH$SV)Z!0@*(@`+@0(`"Z$"``FA``%@*```Z8$"``$0``#X02(__62T``DSL@ M#I$K(`&:`V`!D`(`"=1+0`"0&@`+@**@`!*___B8"@`"D!``#$``.NR2$"`Y MT@7@W)$J(`+P`D`(@*8@``*``"&0$"``VDV``-`&``"8$``6U`(``-)*@`#6 M#8``@*-`"1*```N4`J`!@*+@``*```^8`R`!TDJ``-!+``"4`J`!@*(`"0*_ M__G6"P``T`J__Y`BP`B`HB``,H``!O`&(`@0@``(D!``&!"___N0$"``@*8@ M`#*__^;0!@``D!`@`("B(``2@`"WP@>@3-`%X&C`)[_TY`(``("DH``"@`"> M@*=@`,8'H$S0`,``@*(@``*```:P$"``@*2`"#*``)+D!*`(@*(@`#*```S@ M!*`8P@>@2("D@`$B@``(X`2@&-`$H!S2`B`,@(I@""*``(;D!*`(X`2@&-`$ M(`CV`B`D@*;@`"*``(#D!*`(X@2@'-`$8`R`BB`",H``>^0$H`C038``F!`@ M`/(-@`"`HB``EA``%@*```D;'___U$K``),K(`&6`N`!T$K``("B(``2O__[ MF`)`"I`38_^0"P`(0``ZC9(0`!O6!"`(F!``"-($@`"9*R`#T`1@(-0"X!B2 M`D`(J@)`"M8%0`R`HO__`H``7*`%0`ST!&`4@*0@`.@$8!@"@``JY@1@')$N M8!BC.B`8T`0``$``.FB2$``:T@4`"+`%``C43,`)E@3`"8"B@!'8#,`)$H`` M"Y0%H`&`HR```H``$Y8"X`'22H``T$K``)0"H`&`H@`)`K__^=@*P`#0"K__ MD",`"("B(``"@``/@*0@`-`$(`2`HB``$H``!I$J(`,0@``%H!`@`!"___>0 M$"``H`5`"("D(``RO__>T`0``("D(``B@``NY`2@"-`.(`2`HB`+,H``"M(& M(`BP!B`0T`8``,8'H$RL!,`(Y"#``.($H!P0O_^IX`2@&("B8``B@``?Y`2@ M"("B(`$2@``/T`X@!9`*(`^`HB`"`H``!H"G``DJ@``5N!``"1"``!3D!*`( MP@>@4("@8``R@``0Y`2@"-`.(`61,B`$@*(@`A*```C&!Z!,@*=@`#*``"/D M(,``NA``&!"```3D)[_T$(``'N0@P`#D!*`(@*2@`!*__VC&!Z!,@*=@``*` M``;&![_TP@>@3,8@0``0@``3L!``'8"G(``"@``/D!`@`4``.AV2$``#_]'___LJ6 M$"`!U@0``-("(`B2`L`)@*6`"3B``$_@!"`(T`0@&-0"(`CH`J`D@*4@`"*` M`$G@!"`(T`0@'*(0(`#2`B`@@*1`%-0"H!B2`L`)^`(@%*0"0`KV`B`8%H`` M./0"(!R1+&`#T@2`"("B?_\"@``OL`2`"("F(``B@``MH@1@`>H'O_30!@`` M0``YH)(0`!S2!B`$@*)@``*```68!L`(D2I@`Q"```.:!(`(FA`@`-`+(`2` MHB`!`H``&;`0``W2!4``T`,@")8"0`B`HL`3"H``%("C8`"`HL`6.(``$8"C M8`#0!"`$T"9``-($(!S0!```U`)@()`"``K0)F`$T@,``)(&@`G2)F`(`H`` M#M8F8`RF$``+NA`@`8"C8``RO__:T`8``*($8`&`I$`4!K__S9$L8`.`IV`` M(H``!>`$(`@0@``'L!`@`>`$(`B`I"``,K__GM`$(!RP$"``@&0T`7@:*00`!CB`@``@*1@``*``!G`)[_T MT`1@&-`"(`C4!$``T@(@$*`"@`F`I``2.H``#>($8`C0`B`T0``Y-Y(0(`R3 M*B`!D@)`"),J8`*2!``)@*2`"0J```>`I&``X@1@"("D8``RO__MT`1@&("D M8``R@``&U`1@&-(%X.24$``20``Y,9`0(`$1/_``X`1@'-8$H`C:`J`(D"K` M"-@$(""5*B`!T@1``)0"@`C6`V`4D@)`#)("0`N5*J`"D@)`"M`"8`32!"`4 M0``Y&9$R(`C4!"`8DA``$=@"@`C6!"`_]*`"P`R0$``0?__^%Y80(`&` MHB``$H``"M('O_38!>`0E!``$-8#``":$``2T@7@Z)`0(`%``#D+V`1@!("B M8``"@``$\`(@"-`"0`"P!@`(D!``$I(0``B4$``80``X^)80(`"!Q^`(@>@` M``$````O=F%R+W)U;B]L9"YS;RYH:6YT`0 MT`7@[)(0(`!``#C5E!`@`.(%X/"`HC__`H``/M`D0`!``#C\D@>_D("B(``R M@``ZT`7@\-('O\S@!>#T@*)@'PB``#32)```$0``!Y`2(_^0`D`(V`1``!4_ M__B0"@`*T"0``)(0``C`(Z!#\F@,`"=8%X0#0(H``!(``$MHBP`#0`R`#PT`(``("B(``F@``%T@7@^$``.'D!````T@7@^)`0/__0(D``@+`X`7@^-`$``"`HB```H``"X"B/_\"@``) M`0```-8%X/1``#B'T@+``-0%X/!``#ACT`*``,`D``"!Q^`(@>@``)WCOYB8 M$``8T$L``"\``#=___@`K@7B:-(+``"`HB``L!`@``*```\%```/FA"C_Y4^ M(`Z3*F`8D2X@`9@#(`&3.F`8D`(`"I`:``G62P``L`H`#8"BX``2O__VT@L` M`-0%X/B7/B`.V`*``),N(`&1+F`(D@)`"Y`"`!G4`R`$DAI`")80H_^`HJ`! M$H``#;`*0`N1+J`"D`(`&I$J(`*0`@`:E3X@#I,N(`&1*B`#D@)`"I`B`!J2 M&D`(L`I`"X''X`B!Z```0F%D(&YA;64@:6YD97@Z("4C>`H`````0F%D('!A M=&@@:6YD97@Z("4C>`H`````G>._F"\``#=___?$K@7A>.0%X/C0!(``T@(@ M#("B8``2@``-D!``&!"``&BP$"``0``X,M`%X0@0@`!DL!`@`-`%X0Q``#@M MDA```A"``%^P$"``DA``&7___ZR4$``:U@2``.`%X/S2`N`,0``X/J80`!"3 M*B`!D@)`"-0$``"3*F`$H@*`"980`!+0`L``T@1``-`"(!2`HD`(%K__Y0$` M``#$!&`$@*"`"!:__^6:$``8X`7A`-`$``#6"T``F`(`"=1*``F8`R`!DRK@ M&),Z8!B`HD`*$H``#9`0``N`HB```H``+)H#8`'6"T``TDL``)$JX!B1.B`8 M@*(`"9`0``L"O__WF`,@`=`+/_^0(L`(@*(@`#*``"+2!&`LT`1@"("B`!DR M@``>T@1@+-`$8"B`HB`!!(``!H"FX`#0!&`,@*(`&@:``!6`IN```H``#)`0 M`!O@!```0``X#J`$``*4$``(DA``$$``.`V0$``;@*(@`#*```K2!&`LT`7A M`-($8`3P`@``$(``#[`&``D0O__@D!`@`-($8"R`HG__`H``")$J8`&0`@`) MT@3``)$J(`36!>#X$+__M*("0`BP$"``@#XHA`` M&-`$``"`HB``$H``!O(GH$A___[(`0```-`$``"`HB```H``1X"B/_\B@`!& MX`7A!-`&P`"`HB``(H``0N`%X030!>`PT`(``("B(``2@``%EA``"("G(``" M@``RT@>@2("BX``B@``"U@7@A("B(``"@``&@*<@`"*```72!>"$$(```](% MX1#2!>"$E)<@`"*```+4!>"$0``WMY`0``N@$``($(``">`GO_26$``8D!`` M$7___T64$``:L)(@`!*``#T!````T@7A$$``-ZV0![_TL)(@`!*___72!Z!( M0``W:9`0`!"2$#__TB>_\)`0`!&2!Z!(E`>_\$``-Z26$"``L)(@``*```70 M![_P@*(`&A:``"P!````T@>@2)`0`!&4$``:?___*)80(`"PDB``$H``)`$` M``#@!>$$P";``-`$``"2$#__0``W+=(GO_"0$``1D@>@2)0'O_!``#>+EA`@ M`+`0``A``#=)T`0``("F(``"@``2U@>_\("BP!H6@``0`0```-`%X#C2`@`` M@*)@`!*```N2$``1T`7A%-0'H$A``#=&F!``&C"```5``#0``<')E;&]A M9#H@)7,Z(&]U="!O9B!M96UO_]-(%X1A``#$@E!``$$``-Q&0$"`!T`*@ M")`"(`'0(J`(U@)@'-("X`R2$F`(TB+@#-(%X1!``#_]*"2(``2O__; M`0```$``-N&0$``1@$HJ!`__Q"``#:B$"```H``#900`!`*@``'@*1@`@*``!R` MI&`#`H``(9`0`!`P@`!"$(``*J00`!`0@``3D!`@`-)*@`"8!6`!T$U``("B M0`@2@``+U@J``("BX``"O__WE`*@`=)+``#02H``F`,@`8"B``D"O__YU@J` M`-`+/_^0(L`($(``$X"B(`"0$``0D@>_]$``-M64$"`*UDP``!"```>H$``( MD@>_]$``-L^4$"`*UDP``*80``B`HN```H``'=`'O_322@``@*)@`!*``!D! M````H@1@`=(%X2Q``#:YD`>_\*"2(``2O__(@*1@`8"DH``"@``/D!``$M(& M0`!``#9NTB>_\-`F0`!``#9NT`>_\-(&8`01(```DA)`".8V8`K2)F`$$(`` M!^@V8`A``#9ET`9``$``-F"0$``8T"9``(''X`B!Z```G>._F"\``#5___7S MK@7B-("F(``2@``*`0```-0%X&BP$"`!T@*``-8"8!S0`N`(D`(@`1"``$;0 M(N`(0``V?)`0(!"@DB``$H``!Y`0`!C2!>$PD!`@#-`B0``0@``\L!`@`'__ M_VV2$``0U`7@4)`0`!!___A[T@*``+"2(``2@``)@(YB`-`%X+"P$"``U`(` M`-(%X3#0!```$(``$-0B0``R@``'T`8@'-(&(!S0`F`,D!(@"-`B8`S0!B`< MT@(@")00``F2`F`!@**@``2```C2(B`(T`0``$``-B@``%]?9FEN:0``G>._F"\``#5___6._D)(0 M`!@O```U?__U@*X%X&B`HF`!$H``!<`GO_30!>!H$(```]("``#2)[_TD!`` M&90'O_1___L`EA`@`8"B(``2@``$T@>_]!"```>P$"``@*)@``*```3P`B`( MT`)``+`&``B!Q^`(@>@``)WCOYB`IF`!+P``-'__]62N!>/X`H``!I`0("W2 M!>$PT")``!"```>P$#__T@7A,+`0(`#0`D``T":``,`B0`"!Q^`(@>@```$` M```N9FEN:0```)WCOY@O```T?__U4*X%XZC0!>!HX`(``("D(``"@``.`0`` M`-`$(!S2`B`,@(I@`C*```;@!"`(T@7A.'__^H&0$``0X`0@"("D(``RO__W MT`0@'(''X`B!Z```G>.^F*`'OOCR)Z!(]">@3/8GH%#X)Z!4^B>@6)(0`!B0 M$``00``UYI0'H$A``#7/D!``$)00``B2$``00``UXY`0(`&!Q^`(@>@``('# MX`BN`\`7G>._F"\``#1____\K@7B^.(%X3S0!$``@*(@`!*``">D$``80``U MUP$```"P$``(DA``&/`D0`!``#75$0``($```1$!````@*(@``*``#N0!C__ MT@7A0-8"0`"0"L`(D`(@!+"F``@<@``%@*8@`-`$0`"P!@`(@*8@``*```.0 M`L`8T")``-`$0`"@$"``@*(@"`B```:2$"`(DRI@`8"B``D8O__^H`0@`=`% MX43B!>$\X"(``-($0`"P`G_\@*2`&!B```6@$"``DA`@"!"```2P$#_\T`7A M1.`"``"0`D`8@*2`""B```GP!>%(DH)`"0*``!&0`D`8@*2`"!B___R@!"`! M\`7A2*,L(`+6!@`1@*+@`#*```K0`L``0```$)`0`!#6!@`1@*+@`#*```30 M`L``$(``"+`0(`"4$"#OT@7A2+`"X`30(D`1U"K``.`JX`&!Q^`(@>@``)WC MOYB2!B`#D!`@`:DJ``DO```T?___H:X%X8R`I2``!(``,`$```#0!>$\T`(` M`("E``@6@``'I@4`"*80``A``#5[DA``%!"```.D$``(I!`@`=`%X4SJ!>%` MT@(``-0%0`"2(D`*@*3`"02```Z0$``3X`7A/$``-6W2!```HA``"-($``!` M`#5I$0``($```*60!$`(@*(@``*``!$!````U@5``)4N(`+2!>%(D`+`$Z0$ MO__0)4``@*2@``2```C6(D`*D`+`%-`BP`"D!+__@*2@`!2___R6$``(@"P@*8@``*```P!````T`X__("B(.\2@``( ME@8__-`*X`'4!>%(D2H@`M("@`C2)C_\UB*`"(''X`B!Z```G>._F*(0`!@O M```T?___5JX%X&"`I&``$H``!K`0(`!___]3D!``&1"``$6P$``(T`Q__("B M(.\2@``%H`1__-0,(`$0@``/L!`@`9`0`!!````]DA`@`922(``V@``*V`7A M/-0%X5"0$``00```-M("@`"4DB``)H```I00(![8!>$\D@*@`]8#``"0$"`! MH2H`"8"D``L:@``$D`0__!"```.@!#_\H`(`"X"F(``"@``4@**@``*```N2 M`J`"U@,``)`0(`&5*@`)@**`"Q:```20`K_\$(```Y0"O_R4`@`+@*9`$!B` M``2`ID`*&(``$[`0`!%___^OD!``$7___QN0$``9L)(@`!*```2`I$`8$(`` M"K`0(``"@``(E!``$("B@!DX@``"E!``&9`0`!%``#3$DA``&(''X`B!Z``` MG>._F"\``#-___\&K@7C()00`!C6!>%(L!`@`)$N(`+0`L`(@*(@``*```N2 M$"``@*)`&0*```B`H@`*`H``"P$```#0`@``@*(@`!*___F2`F`!L`8@`8"F M(!TDO__QD2X@`K`0/_^!Q^`(@>@``&UO$\T`7A5$`` M-*V2$``0X`7A/)`0`!CB!>%`T@0``-8$0`"4(``)0``T::0JP`J2$``(%P`` M!)82X`+`(Z!%,U`1``)("@!*4`H`(U"0``!"```K2)$``X`7A6+`0(`!` M`#1JD!``$)00``B2$``00``T?I`0(`*!Q^`(@>@````````O=7-R+VQI8@`` M````````+V5M=6PO86]U="\``0```('#X`BN`\`7G>._F"\``#-____\K@7A M0.(%X5S@!>%@U`1``-`$``"4`J`"DRJ@`D```@74)$``T"0``$``-!&0$``8 MT@1``-0$``"3*F`"D@)`"M`B?_A``#1#D!``&$```>N0`B`,T@1``-0$``"3 M*F`"V@7A9)("0`K0(G_\U@M``)(0`!C6*@``U`M@`=0J(`'6"V`"UBH@`M0+ M8`/4*B`#U@M@!-8J(`34"V`%U"H@!=8+8`;6*B`&U`M@!]0J(`?6"V`(UBH@ M"-0+8`G4*B`)U@M@"M8J(`K8"V`+V"H@"]0$0`#6!```E2J@`I0"@`M``#1` MT`*__(''X`B!Z```G>._F"\``#-___^]K@7@1-(%X5RB$"``T`)``("D0`@6 M@``HJA``">@%X6"F$"`(U`4``*$L8`+0`H`00``T,)(0`!B`HB``,H``&M`% M0`#2!0``0``SS=`"0!#4!0``E`0`"D``,\G0`J`$Y`7A7-0$@`"0`K_^@*1` M"#:```S0)(``T`4``)0B@!&4`K_^D@(`$)4JH`)``#/CD`(`$]0$@`"0`K_^ MT"2``-`%0`"B!&`!@*1`"`:__]ZF!.`$@-P@*(@``*``!'P)Z!$0``SHP$```"P$``($(``!/`G MH$1___^``0```-(%X6A``#/=D`>@1("B(``2O__Z`0```$``,YF0$``8@@1$``,XH!```` ML!``"!"```3P)Z!$?___I@$```#2!>%H0``SQ)`'H$2`HB``$K__^@$```!` M`#.`D!``&(''X`B!Z```G>._F"\``#)___]7K@7BK.(%X6R@$"``DRP@`M`$ M0`E___]3H`0@`8"D(`$&O__\DRP@`H''X`B!Z```G>._F"\``#)___](K@7B M<*`0`!CR)Z!(X@7A<+`0(`"R$"``U@>@2-!*P`"`HB```H``&8"B("XR@``' MT@1``)`"X`&6$``(T">@2-!*P`#2!$``D`(`"=0*(`&`BJ`$$H``!)`0``L0 M@``+L!`@`)('H$A``#.8E!`@"I3H@8V%N="!H87!P96X``)WCOYB4$"``+P`` M,G___QFN!>&T@**`&1:``!&`ID`;@**`&Q:```Z`ID`;D2J@`M(&@`C0!@`( M@*(`"2:``!6P$#__%(``#I0"H`&`HH`9!K__]8"B@!N`ID`;$H``!("B@!D0 M@``+L!`@``*```B`HH`;,H``!-(%X700@``%L!`@`4``,S^0$"`!L!`__X'' MX`B!Z```;&EB)7,````O`````````"YS;RX`````<@```)WCOS#R)Z!(]">@ M3.H&0``O```R?__^ZJX%X/CT!H``D!``&$``,S_V)Z!0IA``")($X`N2"G_X MG".`";H#H!>%XE!``&$``,V"0$``=U@7A7+`0(`#0`L``I@3@`X"F``C` M)[^4%H``SK@0(`#@!>%@LR\@`M($``"H$"``T`)`&4``,U3`)[^0MI(@`"*` M`+_2!>%<,(``KX"C(``"@``CI`3@!("F(``R@``AT`P@!](,(`>0!.`"@*)` M"#*``!S0#"`'H@0@")`0`!&2$``=0``S%I00`!.`HB``,H``%-`,(`>2!,`0 MT$I@"("B("XR@``/T`P@!]!*8`F`HB!A,H``"]`,(`?8!>%@E!``$=(#``"H M$"`!T`)`&4```,[2!>%\L!``"-`,(`>`H@`2!H``B*P$(`B0$``6DA``'4`` M,OJ4$``3@*(@`!*``(&0!.`(H`0`"-(%X8"0$``00``R\I00(`2`HB``$H`` M>9($(`1___]'D`>_N*22(``"@`!T@*5__P*```B`I2``(H``!]@%X6!``#*K MD!``&+`0(`"H$"``V`7A8)00`!;6`P``T@7A?$```*?0`L`9H!``"$``,P;2 M!>&$HA``"$``,IV0$``0@*1@``*``%V0![^8DA`@`900("!``#+_EA``$8"B M("`"@``%`0```$``,OV0$``1,(``4D``,OJ0$``1T@>_F!D__\"`BD`,`H`` M!Y00``D9```_F!,C_Y`*0`P0@``#@*(A"X"B80L2@`!$&3__P("*@`P"@`!! M@*)@`!:``#^`I7__$H``!0$```"`IK__`H``&("E?_\"@``)@*:__Q*```B` MI7__T`>_N("B`!4"@``1H`>_N#"``#"`I7__`H``+H"FO_\"@``LT`>_N("B M`!42@``I@*2@`0*```70![^\@*(`&@:``"0!````H`>_N*('O]C6![^4D!`` M$)(0`!)___\;E!``$8"B(``$@``:F!`@`8"F(``"@``$V">_D$``,E*0$``8 MV`7A8)00`!;2`P``J!`@`-`"0!GD)[^40```3M(%X7RP$``(D!``$)(0`!%` M`#)LE!`@(-@'H$C6![_8T`>_W-8C``#8!Z!,T",``$``,JR0$``;H)(@`!*_ M_T_8!Z!00``RJI`0`!N`I2``$H``"]@'OY"`HR``$H``"`$```#2!>%@```$```!V:7)T=6%L(&UE;6]R>2!E M>&AA=7-T960`````G>._F"\``#%___W[K@7A/$``,DF0$``8@*(@`!*```4! M````T@7AB$``,C>0$"`!@0$``)$(``!8"B(`!``#)[`0```("B(``2@``%`0`` M`-(%X8A``#(AD!`@`8''X`B1Z``(G>._F*80`!A``#(PD!``$Z`0``A``#(M MD!``&:00``A``#(JD!``&J($`!*B!$`(?___T)`$8`&P$``(0``R99(0`!.@ M!@`0DA``&4``,F&0$``0D`0`$D``,EZ2$``:P"X`$8''X`B!Z```@/\(H``!/`&(`00@`!1 M\B8@")@0(`'4!>&,D@X@'Y,J8`+0`H`)U@7AD)`"/_^;*P`(Q`7AE)0#?__0 M`L`)FA-`"M@`@`FS/D`(@*,@`0*``!2R#D`-%(``!X"C(`*`HR```H``")(. M(!\0@``UDRI@`@*``!N2#B`?$(``,9,J8`+0#H``D@H`#9`J``VR!D`)D!(` M&1"``"[0+H``U`Z``)8'O_;2#J`!U"^_]M(JX`'0%[_VE`H`#;(&0`J0*@`- MD!(`&=`WO_;2"N`!U`^_]M(NH`$0@``>U"Z``-`.@`"6![_PU`Z@`=`OO_#8 M#J`"U"K@`=(.H`/8*N`"TBK@`]`'O_"4"T`(L@9`"I`J``V0$@`9T">_\-(* MX`/2+J`#V`K@`=0/O_#4+H``T`K@`M@NH`$0@``&T"Z@`M0`@`F0$"`!0``Q MG-(%X9B!Q^`(@>@``)(*H_\%`,``E3*@"I02@`('('`8DA)``P4`0`#4(@`` MTB(@!,0B(`B!VB``@=H@!(':(`B!P^`(`0```,8"```%)'0(QB)``(00H`&! MP^`(Q"(```````"=X[^8T`9@"("B(``"@``(D!``&$``,=>2$``9P"9@!+`0 M``@0@``$P"9@",`F8`2P$"``@_K-0GO[S2)[_,UC>_KMHGO[#8)[^T MDA``&900`!K:)[^@V">_J,`GO[A````LD!``$;"2(``&@``(T!>_K$``,;:0 M$``1@*(@`#*```*P$#__T!>_K("*($`"@``%`0```-`4(`R0$B!`T#0@#('' MX`B!Z````0```#`Q,C,T-38W.#EA8F-D968``````````"AN=6QL*0``,#$R M,S0U-C^G-`'8!"`HB``,H``#-`78`Q``#&%D!``'8"B(``"@``&D!`@"=(% MX+#0(D``$(`#)+`0/__0%V`,D`H@&H"B(`H2@``+I@>_J-!78`Z`HB``!H`` M!Y`0`!V2$``9?___GY00`!H0@`,6L!``".8GO^C`)[_PP">_[,`GOJ00@``% MI!``&8"B("4"@`",L@9`$)`'OJR2$``90``Q9I00(`&@DB``%+__^-`'OJRB MID`2`H``%X"D(`#D),``XB3@!-('O_"F!.`(T`>_[)("0!&0`B`!TB>_\("B M(`<$@``(T">_[)`0`!U___]MD@>_Z("B(``2@`+LI@>_J,0'OJ2$`(`1Q">^ MI("D(``$@`+I.0`"2!7_0@*)@"0B___BR!F`!K)0@`":__VZL M$#__$+__;9`%?^`0O_]HJ!4@@*`0(`"1+"`"D`(`$)$J(`&0`C_0H`(`%>I. M0`"2!7_0@*)@"0B___BR!F`!$+__7;@0`!`0O_]9J!4@0-!.0`"`HB!L,K__ M5:@5(!"R!F`!$+__4J@5(""T!J`$T`Z__Z0'OX`0@`$&T"^_@*@5(!"`C2`@ M`H``")0'OZC0!H``T@:@!-`_OUC@'[]8$(``#[0&H`B`C2`0$H``";0&H`2` MC2!``H``!@$```#0%K_^D2H@$!"```2C.B`0T`:__*(0``BA.B`?@*0@`#:` M`(Z0$"`!D!`@+=`OOJNBH``1H&``$!"``(B0$"`!@(T@(`*```?2![ZDM`:@ M!-0&O_R1.F`?$+_^^M`Z@`"`C2`0,H``"K0&H`2`C2!``H``!L0'OJ2T!J`$ MT`:__!"__O#$,@``M`:@!-`&O_S$![ZD$+_^Z\0B``"H%2`0@(T@(`*```B4 M![^HT`:``-(&H`30/[\8X!^_&!"```VT!J`(@(T@$!*```>T!J`$@(T@0`*` M``0!````$(``!.(6O_[0!K_\HA``"*`0(``0@`!9D!`@`+0&H`30!K_\Q`7A MG*(0``B@$"``Q">^G)`0(`*H%2`"JA`@>!"``$Z4![^HM`:@!.0&O_R`I*`` M(H```N0%X:"`I:``!H``#9`0`!*2$"``0``P+I00`!:`HB```H``!:(B`!*` MI$`6)(``GL`OOJL0@`";HA``%D``+].0$``2$(``EZ(0``BH%2`0@(T@(`*` M``B4![^HT`:``-(&H`30/[[HX!^^Z!"```VT!J`(@(T@$!*```>T!J`$@(T@ M0`*```0!````$(``!.(6O_[0!K_\HA``"*`0(``0@``@D!`@`1"```/$!>&D MQ`7AG)0'OZB`C2`@`H``",0GOIS0!H``T@:@!-`_OLC@'[[($(``#;0&H`B` MC2`0$H``![0&H`2`C2!``H``!`$````0@``$XA:__M`&O_RB$``(H!`@`("- M(`$"@``%D!`@`H"4`!$R@``"J!4@`L`OOJN`I:``!H```^PGOJ"H#3]_@)0` M$1*```:D$``*Q`>^H("@H``B@`!.D">`$H"B(`$B@``L@*0@``J```:`HB`" M`H``,YDL(!P0@``_Y`7AJ)H-(`&9+"`=ES1@`Y(3``N4#&`'D30@`Y0"H#"@ M$``(HA``":0$O_^`E``1$K__]M0L@`"`HV```H``-("BH#`"@``RD!`@,*0$ MO_\0@``OT"R``)00(`"6$"`*0``OPI(0`!&8`F`PI`2__Y`0`!"2$``1E!`@ M`)80(`I``"^]V"R``*`0``BB$``)@*0@`!B___&0$``0$H``!("D8`D8O__M M`0```)`$8#"D!+__$(``%M`L@`"9+"`^H*P0`!&`I8`")H```JP0``*`HF```H``!("-(`(0@``$ MK`6@`3*```*L!:`"A(T@A!*``#'$)[Z8H"<`%H"D(``$@``M@*0@$"2``!K0 M!>&L]@7AK+`0(!#V),``\"3@!-('O_"F!.`(T`>_[)("8!"0`B`!TB>_\("B M(`<$@``(T">_[)`0`!U___U^D@>_Z("B(``2@`#]I@>_J*`$/_"`I"`0-+__ M[O8DP`#0!>&LX"3@!-`DP`#2![_PI@3@"-`'O^R2`D`0D`(@`=(GO_"`HB`' M!(``"-`GO^R0$``=?__]:)('O^B`HB``$H``YZ8'OZC03[ZK@*(@``*```J0 M![ZKE!`@`=`DP`#4).`$T@>_\*8$X`C0![_L$(``#Y("8`&`C2`"`H``%Y`0 M(##0+[]XZB^_>9`0(`*4![]XU"3``-`DX`32![_PI@3@"-`'O^R2`F`"D`(@ M`=(GO_"`HB`'!(``"-`GO^R0$``=?__]1)('O^B`HB``$H``PZ8'OZC$![Z8 M@*"@@#*``#+$![Z@H"<`%H"D(``$@``M@*0@$"2``!K0!>&P]@7AL*H0(!#V M),``ZB3@!-('O_"F!.`(T`>_[)("8!"0`B`!TB>_\("B(`<$@``(T">_[)`0 M`!U___TGD@>_Z("B(``2@`"FI@>_J*`$/_"`I"`0-+__[O8DP`#0!>&PX"3@ M!-`DP`#2![_PI@3@"-`'O^R2`D`0D`(@`=(GO_"`HB`'!(``"-`GO^R0$``= M?__]$9('O^B`HB``$H``D*8'OZC$![Z@H""`$8"D(``$@``M@*0@$"2``!K0 M!>&P]@7AL*H0(!#V),``ZB3@!-('O_"F!.`(T`>_[)("8!"0`B`!TB>_\("B M(`<$@``(T">_[)`0`!U___SWD@>_Z("B(``2@`!VI@>_J*`$/_"`I"`0-+__ M[O8DP`#0!>&PX"3@!-`DP`#2![_PI@3@"-`'O^R2`D`0D`(@`=(GO_"`HB`' M!(``"-`GO^R0$``=?__\X9('O^B`HB``$H``8*8'OZCD),``XB3@!-('O_"F M!.`(T`>_[)("0!&0`B`!TB>_\("B(`<$@``(T">_[)`0`!U___S0D@>_Z("B M(``2@`!/I@>_J("-(`0"@``OH"<`%H"D(``$@``L@*0@$"2``!K0!>&LY`7A MK*(0(!#D),``XB3@!-('O_"F!.`(T`>_[)("8!"0`B`!TB>_\("B(`<$@``( MT">_[)`0`!U___RUD@>_Z("B(``2@``TI@>_J*`$/_"`I"`0-+__[N0DP`#0 M!>&LX"3@!-`DP`#2![_PU`>_[)("0!"4`J`!TB>_\("BH`<$@``(U">_[)`0 M`!U___R@D@>_Z("B(``R@``@T!=@#)(0`!:`HD`<)H```I(0`!S$![ZDT`>_ M\(0`@`F`HB```H``",0GOJ20$``=?__\D)('O^B`HB``,H``$-`78`S`)[_L M$+_]`J8'OZC0![_P@*(@``*```>0$``=?__\A)('O^B`HB``,H``!-`78`S` M)[_LT!=@#("*($`"@``#A!`__\0GOJ3P![ZD@_L/`GOZ#6)[^TDA``&900`!K6)[^H0``N M`)`'OZ#6![^@P"K``(''X`B1Z``(`````)WCOYCT)Z!,]B>@4/@GH%3Z)Z!8 MD!``&)(0`!E``"WUE`>@3`````""$"08A`/@")'0(```````@A`D+X0#X`B1 MT"```````((0)!F$`^`(D=`@``````""$"0KA`/@")'0(```````@A`D2H0# MX`B1T"``A!``#T````(!`````P``+((08?""`$`/GA```L0`8;2!P(```0`` M``````"!P^`(K@/`%YWCOY#03D``+P``+'____NN!>&T@*(@/2*```*R!F`! M0``M;9`0`!FD$``(D!``&$``+`,DRQ@`M0"``"2`D`*XB>_],`B M8`303@``@*(@``*```N2$``8T$I``("B(#T"@``(D")`&)("8`'02D``@*(@ M`!*___N`HB`]D")`&)`"`!)``"T1D`(@`I80``C4!>`,@*+@`-`'O_32`H`` MD2H@`@*__]36(D`(T@X``!"```B@$``+T$P``("B(#T"@``*D!`@/=(.``"@ M!"`!D2I@&("B(`#2+```$K__][`&(`&0$"`]T"P``-(.0`"@!"`!D2I@&-(L M```0@``&@*(@`-`.0`"3*B`8T"P``("B8`"R!F`!$K__^Z`$(`&P$"``@N!>.D$(``#N`%X`S4!```D2H@`I8"@`C2`N`$ M@*)@``*```?2(H`(E@+@!-`"X`2`HB``$K___=`BP`"0$``80``M/9('O_2` MHB``$K__\-`'O_2!Q^`(@>@````````E=X[^8+P``*W____RN!>,@T@7@"-`%X)S4`D``H`(@L-(%X;Q``"TLD!`` M$("F8``"@``%DA``&900`!I``"T:D!``$-(%X._F/(GH$CT)Z!,]B>@4/@GH%3Z)Z!8D!``&$``+1N2!Z!(@_K-0GO[34)[^H M\">_L/`GOZ#T)Z!,]B>@4/@GH%3Z)Z!8DA``&9`'OZ!``"S>E`>@3-8'OZ#` M*L``@=X[^8+P``*W____RN!>&X0``LW0$```#2!>"`%X@``,8*0`"4 M$``(A2C@&("@H``"@``)QBJ``)("8`'&"D``D`(@`84HX!B`H*``$K__^\8J M``"!P^`(D!``"@````#$2@``@*"@``*```>4$``(E`*@`<1*@`"`H*``,K__ M_I0"H`'$"D``ARB@&,0J@`"`H.``D@)@`1*___N4`J`!@=X[^8+P``*G____RN!>/`U@7A<*P0`!C4`L``I!``%N`, M@`"0!``*T@H@`8"*8`@2O__\I`2@`8"D("T2@``%@*0@*^!,@``0@``%JA`@ M`1*```2J$"``X$R``*0$H`&`IJ```H``!("FH!`2@``/@*:@`("D(#`2@``, M@*:@`-!,@`"`HB!X`H``!("B(%@2@``&@*:@`.!,H`&T$"`0I`2@`H"FH``2 M@``'@*5@`("D(#`2@``#M!`@"K00(`B`I6```H``!!$?__\0@``#)R```*82 M(_^0$``30``KM)(0`!JH$``(D!``$T``*]J2$``:@*5@``*```BF$``(@*4@ M`"2```6H(``4J"4`&J8$X`&H(``4L!`@`*(0(``0@``SU@7A<("D`!H6@``_ M@*1@``:``"R`I6```H``%H"F`!,&@``'`0```!*```R0$``8@*0`%`2```D! M````0``L"Z(0/_^2$"`BU@7A<-(B```0@``<,2```$``*WV2$``:L!``"-8% MX7`0@``5L"8`$!2```<3'___$H``#)`0`!B`I``4!(``"0$```!``"OWL!)C M_Y00("+6!>%PU"(``!"```BB$#__0``K:9(0`!JP$``(U@7A<+`&`!"B$"`! MX`R``*0$H`'0`L``D`0`"-`*(`&`BB`$`H``!("*(`,0O__)H`0_T`*```>` MBB`!`H```Y`$/ZF0!#_)$+__PJ`0``B`IF```H``!H"D8``"@``#D!``%I`$ MO__0)D``@._F/(GH$CT)Z!,]B>@4/@GH%3Z)Z!8D!`` M&$``*\Z2!Z!(@._F"\``"I____\K@7A*-(%X`C0!>"'00``KKI`0`!"` MIB```H``!9(0`!B4$``90``KG)`0`!#2!>'40``KI9`0`!"!Q^`(@>@``)WC MOYCT)Z!,]B>@4/@GH%3Z)Z!8D!``&)(0`!E``"NIE`>@3`````"!P^`(K@/` M%YWCOY@O```J?____*X%X*#0!>"@4/@GH%3Z)Z!8 MD`(@6$``*WV4!Z!(@'DUB8@*-`'O_32)B`@@(H@"`*```?P)B`< MD!``&)(0(`"4$"``0``K@````````E`(H@)@L.0"``#4`L``D!``$4``*T'2!>'H@*9@``*```B2$``9E!`` M&D``*R^0$``1T@7A[$``*SB0$``1X`7A\$``*SZ0$``2E!``")`0`!%``"LQ MDA``$$``*GB0$``8@=X[^8+P``*7____RN!>+XT@7A])`0`!A` M`"M`E!`@_X''X`B1Z``(G>._F*(0`!A``"JYD!``$:`"(`%``"JMD!``$+"2 M(``"@``%DA``$4``*Q24$``0,(```K`0(`"!Q^`(@>@``('#X`BN`\`7G>._ MF"\``"E____\K@7BB-`%X?CB`@``@*1@`"*``!/0!>'\X`1@!*"$/_\L@``+ MX@1``*0$8`B1+"`"T@2`")_"0``!````H(0__QR___R1+"`"X@1``("D8``R MO__SX`1@!-`%X?S0`@``@*(@``*```0!````G\(```$```!``"L-D!``&)WC MOYB0$``:0``J:I(0`!FBDB``,H``"=0&X`00@``LL!`@`)`D@!%``"IP$``(@**@`!:```6@$``*P";@!)00(`"@$``*@*1`$`B``!.D$``1 MT@;``)`0`!A``"K1E!``$-8&P`"0$``;E@+`$$``*O#6)L``HB1`$("B(``2 MO__GL`8`$.`&X`2`I$`0.+__\M(&P`#2!L``D!``&$``*L"4$``1U@;@!+`0 M`!K0!L``EB+`$9`"`!'0)L``UB;@!(''X`B!Z````````&QI8F,`````56YK M;F]W;B!E=X[^8+P``*7____RN!>$` MT`7B`$``*LR2$"``T@7B!*`0``C0`D``@*8`"!J``!"9+B`"T`7B"-("``"4 M$``8U@)`#)`0`!!``"K"DA`@`9(0``B0$``90``JP900`!J6!H`9$(``#<`J M__\5```_U@7B#)02H_^0$``00``JM9(0(`&4$``(DA``&I80`!A``"JVD!`` M&4``*K>0$``0@_^*`$(`'2 M#```F!``"9`#/[21*B`8D3H@&("B("@8@`!2D2H@`D````*2`^`4U`)`"('# MP`H!````````N````4````#\```!0````4````%````!0````4````%````! M0````4````%````!0````4````%````!0````4````%````!0````4````%` M```!0````4````%L```!0````4````%````!0````4````%````!0````4`` M``%L```!0````4````%````!0````4````%````!0````6R2$``2T$I``("B M(``"@``JU`I``)@'O_B`HL`,&H``)I("8`'4*L``T$I``)8"X`&`HB```H`` M(-0*0``0O__X@*+`#)(0`!C02D``@*(@``*``!G4"D``F`>_^("BP`P:@``5 MD@)@`=0JP`#0"D``E!``"("BH``"@``/E@+@`1"___B`HL`,D`>_^("BP`@Z M@``*H`0@`1"```;8*L``@*+`"#J```6@!"`!TBK``)8"X`&@!"`!T$P``("B M(``2O_^2DA``",`JP`!````1D!``$8"B/_\R@``,L!``"-!,``"`HB```H`` M!-(,``"@!"`!T@P``("B8``2O_^!EA``$;`0/_^!Q^`(@>@``)WCORB0$``8 M0``I,I(0(`"P$``(@*8__P*``"R0$``80``I69('OY"`HB```H``!M('O\Q` M`"D2D!``&!"``"2P$#__P".@7)H0(`"0$"``E!`@`980(`%``"DDF!``&*`0 M``A``"D&D!``&("D/_\R@``%T@0``-('O\P0@``1D!`__Q$_XC^0$B.)@*)` M"!*```O2![_,0``I-9`0(`BPDB```H``!=`'O\S@)@``$(``!]`F(`32![_, MD!``$$``*1`!````L!`__X''X`B!Z```G>._F("F/_\R@``-Q@8``$``*9`IB``0``I3;`0/_^2$"`)$(``"M(B```B@``( ML!`@`-`&``!``"BUT@8@!$``**&0$``8L!`@`(''X`B!Z````````%9A;'5E M('1O;R!L87)G92!T;R!B92!S=&]R960@:6X@9&%T82!T>7!E`````````$YO M(&UE7!E````````261E;G1I9FEE2!P965R``````````!3;V9T=V%R92!C875S960@8V]N;F5C=&EO M;B!A8F]R=```````````3F5T=V]R:R!D2!N;W0@7!E(&9O2!I;B!P2!F:6QE('-Y@`"9,J8!B3.F`8Q$H``("@@`D"@``%@*"@`!*___R0`B`!D!`@`('# MX`@!`````````("BH``"@``5EA``"!"```;$"D``E(*__P*``!`!````Q`I` M`(@`"'5N:6]N M````;F9S``$```"!P^`(K@/`%YWCOC"V$``8+P``)7____NN!>$TD!``&T`` M)A^2$"`$JA``"("E?_\2@``$D!``%1"``.RP$"``0``F1)('OY"`HB``$H`` M"-`'OY@3```\D`H`"14``!"`H@`*`H``!Y`0`!5``":H`0```)(0(!00@`#. MTB(``)(0(`)``";2E!`@`8"B/_\"@`#(`0```$``)BB0$"`HL)(@``*``,,! M````0``F1Z80)`"`BB/_(H```J80``B0$``50``FQ9('OI"`HB``!H``MH". M8`("@``7D`>^S-(%XB!``"8AE!`@$("B(``"@``&H!`@`-`7OI*`BB`@(H`` M#](%XB00@``,H!`@`4``)=V0$``4D!``%9(0(`"4$"``0``FL)80(``0@``/ MK!`@`*`0(`#2!>(DD`>^S$``)@J4$"`0@*``"+1@/_^`I"``$H``!:P0(`"` MIJ```H``C9`0`!.B$"``J!`@`*00(`"`I&/_&(``"I`0`!2L!8`30``F-9(0 M`!:HDB```H``AJ($0!.0)8`1I`4`")`0`!62$"``E!`@`$``)HZ6$"`!T#X@ M&)`0`!62$``20``FC)00`!&@$``(@*0__Q*```N`I"``0``F30$```#2`@`` M@*)@%A*```6`I"``@*:@`!*__\>`I"``!(``!("D(`"D!(`0HB1`$!2__]N` MI&/_LA9@"(".8`0"@``1HA``$D``)8F0$``5D!``&T``)9N2$"``JA``"("E M?_\2@``)@*:@`$``)8^0$``40``EC9`0`!@0@`!DL!`@`("FH``2@`!'Z"8@ M#!"```BF$"``D`0@`4``);"1*B`"II(@`"*``$#0!B`,I!``%*`0(`"`I(`1 M&H``%(",H`,2@``2E!``$M(4H`20!+__D"1`"("B0`@4@``-@*3@`-`"@`"` MHB```K__\Z0$@`F`I.```H```Y$L(`+4),`($+__[:`$(`&`I.```K__XI(0 M`!#6!>(HD!``$T``)D"4$"`$F2P@`L`DP`S0!,``@*(@``*``!FH$"``HA`` M$X"E(``"@``(X`1``)`$(`A``"6RD@4@"("B(``B@``#P"0``*@0`!#0#"`& M@*(@#C*```:B!&`$@(Y@`3*```+`)```H@1@!-`$0`"`HB``$K__[8"E(`!` M`"5#D!``$]`&(`SL)B`0D"2`"!"``!'0)B`(0``E:>8F(!"`HB``$H``"-`F M(`Q``"4WD!``&$``)2:0$``5$(``#+`0(`"$$"``AA`@`,0^(!BR#G_[ZB8` M`/(F("3`)B`$0``F"Y`0`!C0)B`@@0$``8 MX`8``)(0/__0!B`,TB8``$``)1W`)B`$0``E&Y`0`!A``"4*D!``$(''X`B1 MZ``(@A`DGH0#X`B1T"``A!``#T````(!`````P``)((080B"`$`/GA```L0` M8;2!P(```0`````````0@``(U`H``("@H``2@``$D`(@`1"```R0$"``U`H` M`,9*0`"%*J`8A3B@&("@@`.$$``*`K__]9("8`'0"G__D"*`"('#X`@!```` M`````)WCOWBZ$``:\">@1/(GH$B`IV`!&(``!_8GH%!``"6.L!`__Y(0(!80 M@`%-TB(``("/8`,2@``'P">_\,0'H$20"*`#@*``")I@/__:)[_PT`>@2$`` M)/F2$``=H!``"$``)0B0!"`$@*(@`!*```30)[_L$(`!.K`0/__$!Z!$EA`` M'<0GO^C2![_LD!```M0'H$BF$"``0``!,]@'H%#:![_LD`-@`Y`*/_S0`@`` MA`-`$,0GO^"`H@`"`H`!%\`GO_30!Z!(0``DW)(0`!W@)[_8V@>_Z)`#8`.V M$``-Q`>_[)`*/_S:![_@T">_W,0GO^2`H(`-`H``_*00``+$![_DJ!``&Y`` MH`.0"C_\T`(``-H'O^S0)[_DQ`>_Z)`B``VX`(`(V@>_Y,0'O^"`HT`"`H`` M"*P0`!R0`V`#D`H__-`"``#:![_LT">_Y)`B``W$![_H@*4`'!J``+"V`(`( M@*6`&QJ``*W:!Z!0D!``%)_#0`"2$``6@*(@`!2```>R$``4LA``%J(0`!2J M$``<$(``!;00/_^B$``6JA``&[00(`#$![_T@*"@`#*``!^F$``=H@1`'8"D M0!4:@`!3V@>@4)`0`!F?PT``DA``$8"B`!H$@`!-I@3@`8"DX`8RO__VH@1` M'800(`'$)[_T$(``#J80`!V0$``9G\-``)(0`!"`H@`:-(``!Z(0`!"`I,`= M$H``.JH0`!`0@``XP">_]*@4)`0`!F?P(``DA``$("B`!HD@``#JA``$*(0`!"0!$`=L!``"("E M0!@H@``FHA``%9`E0!%``"1HDA``'9$R(`%``"1KDA``':80``B@!$`3V@>@ M4)`0`!F?PT``DA``$("B`!HT@``$HA``$!"```.J$``0L`1`'8"E0!@8O__N MD"5`$1"```^B$``5H`1`$\0'H%"0$``9G\"``)(0`!"`H@`:-(```Z(0`!"J M$``0@*3`'1B___:G-.`!HA``%8"F0!02@``BIA``'=H'O_"`HV``(H``$=`- M@`#0!8``K`6@!-`D@`"`I8`1"K___*0$H`30!0``IH3__-`D@`"H!2`$$K__ M_*0$H`00@``O@*4`'-`-@`"L!:`!T"R``("E@!$*O__\I`2@`=`-``"FA/__ MT"R``*@%(`$2O__\I`2@`1"``"&`I0`_\("@H``B@``1T`T``-`%``"H M!2`$T"2``("E`!$*O__\I`2@!-`%@`"FA/_\T"2``*P%H`02O__\I`2@!!"` M``^`I0`_W("E`!P:@``3Q`>_\("@H``B@``+T`T``-`% M``"H!2`$T"2``("E`!P*O__\I`2@!!"```G:![__W)`&X`/V(T``Q`>_Y)`*/_S:![_@@*"`#1*__PC0)[_< MY`>_Z,0'O^S$)[_HY">_[)`$H`.0"C_\V@>_V-`"``":!(`-@*(`#1*__O': M)[_@Q`>@1-H'O^R`H(`-$H``#-`'O^S0!Z!(0``CPI(0`!V4$``(T`>_[$`` M)(K2![_HQ`>_Z,0GO^S0![_L0``CGK`0(`"!Q^`(@>@``)WCOYB`IJ`%&(`` M#ZLNX`&0$``8EA``')(0`!I```"OE!``&Z`&8`.@##_\D!``&D``(ZF2$``; MD`9`"!"``*70)```D@Z@`:`"8`20)H`00``CH9(0`!NL!@`(DA``$)`0`!:4 M$``;0```G)80`!R@)8`8H`9`$*`$(`.@##_\D!``&D``(Y22$``;M!``&*(& M0`CB)```IA``&9`0`!J?QP``D@:`&X"B(``T@``#J!`@`:@0(`"`IH`6&H`` MA;H0`!&B!H`5I!`@`H"D0!8:@``0H!``$9`0`!&?QP``D@1`&X"B(``T@``# MDA`@`9(0(`"`HD`4$H``!X"DH`^B!$`5@*1`%@J___2D!*`"@*2@#Q2``!VD M$``1H`:`%9($X`.0)``8D`9`")(*?_S0(D``@*4@``2```ZF$``(D@:`&Z`0 M`!O4#H``H(0__]`*0`#0+H``U"I``+0&H`$2O__ZD@)@`;0F@!N@!H`5M!`` M$("F@!$*O__JH`:`%1"``%"`H``4HA``$("D0!(:@``I@*4@`*`D0!N0$``0 MG\<``)(0`!&`HB``-(```Y(0(`&2$"``@*)`%"*``!JB!$`5D@3@`Y`D0!B0 M!D`(D@I__-`B0`"`I2``!(``$*80``B2$``0H!``&]0.@`"@A#__T`I``-`N M@`#4*D``M`:@`1*___J2`F`!DB)`%8"F@`DJO__VH!``&[00`!&B!$`5@*1` M$BJ__]V@)$`;@*4@``2```^2)$`;H!``&]0.@`"@A#__T`I``-`N@`#4*D`` MM`:@`1*___J2`F`!DB)`%8"F@`DJO__VH!``&[00`!&`IH`6"H``!Y`F@!N? MQP``DA``&H"B(``$@``)D`3@`Y($X`.0)H`8D`9`")(*?_S0(D``$(``!:80 M``B0"C_\^B(``*80`!V`H``4J&`__X"F@!8*O_^`H@:`%8''X`B!Z```G>._ MF+*&?_\"@``=I@8`&H"DP!@(@``7HA``$Z0D0!J0$``2G\;``)(0`!&`HB`` M!(``$*`0`!*4$``1EA``&M(,``"6@O__T`J``-`L``#2*H``H`0@`1*___J4 M`J`!HA``$H"D0!@8O__NI"1`&K*&?_\2O__GI@3`&H''X`B!Z```G>._F)`0 M`!A``".KDA``&8''X`B!Z```@=X[^8+P``(7____RN!>.H0``B MY)`0(!B"DB``(H``$[`0/__$!>(LU`"``-X&(`28$``*T!X@&)8+(!_&!>(P ME`*@`=0@@`"7*N`"V@#`"[`0``S0.&`(PB#`"]X@8!#:($``V"!@!(''X`B! MZ```G>._F"\``"%____@K@7C.-(%XC"0#F`?D2H@`N`"``F`I"```H``#*(" M``G0!"`$@*(`&0*```B`I"``HA``$.`$``"`I"``,K__^M`$(`2`I"```H`` M+`$```#2!"`0T`8@!("B0`@R@``-V!P@"-($(`C0!B`8@*)`"#*```C8'"`( MT@0@#-`&(!R`HD`((H``&M($``#8'"`(EA`@`-`&``"2$``,0``C3900``W$ M'"`(P"8@!,0^(!C0!"`0@*(@`"2```W2!```0``BVY`0`!B`HB``(H``"-($ M``#2!B`$T`0@$("B0`@&O__X`0```-($``"0$``00``B8-(D0`"!Q^`(@>@` M``````"=X[^8T@8@!-`&(`B`HD`(!H``"8"B8`#0!B`D@(H@"#*``#6P$"`` MP"8@!)(0(`"`HF``,H``%-H&(`S0!B`D@(H@"#*``!#:!B`,T`8``)(0(`"4 M$"``0``C'980(`'0/B`8T`8``-(&(`Q``",;U`8@$("B(``$@``/T"8@"-H& M(`S6!B`$F`-`"X"+(`,R@``9L!`@`-`&(!"2`O__U!,@!)`B``F`HH`(!(`` M!)`"P`H0@``0L!`@`-`F(`32`T`+@*)@`"*__]#2!B`$T`L@!H"B(`XR@``' ML!``#-`&("2`BB`!,K__R-(&(`2P$``,@$``"Q`!A MM('`@``!`````````)WCOYC03@``@*(@<@*```NP!B`!%(``!H"B('>`HB!A M`H``#980(`@P@``.`H``!Y80(`@P@``+EA`@!)(0(``0@``-E!`@`)(0(`$0 M@``*E!`F`)(0(`$0@``'E!`B"$``(HFP$"``DA`@%A"``!'2(@``T$X``("B M("L"@``(@*(@8A*```F0$D`*T$X@`8"B("L2@``%D!)`"I80(!"2$"`"D!)` M"M`F0`"P$``+@._F"\``"!____\K@7BZ-(% MXC30`D``@*(@`!*```2@$``80``B<@$```#2%"`,@(I@(!*```S`)"`$@(I@ M!#*``!O2!"`P@(I@$!*```B`BF`(0``B&`$```"2$"`)TB(``!"``$>P$#__ M`H``#I`28`1``");D!``$("B(``2@`!`L!`__]`4(`S`)"`(D`H_]Y(0``C0 M-"`,P"0@&)`28`00@``3T#0@#("B8``"@``0D`0@0("B0`@B@``%T`0@/$`` M(5J0$``)T`0@/,`D(#"`HB```H``!M`D(`30!"`XL!`@`!"``";0)```T`0@ M$("B(``R@``%T!0@#$``(CZ0$``0T!0@#("*(`,B@``%U@0@$$``(CO0!>(X MU@0@$-@$("22$``+T`0@'-8D``"?PP``U`0@%)00``C2%"`,$3__R)`J0`C4 M)"`$@**@`!2```K0-"`,,H``!9`2($"0$B`@$+__O]`T(`S0-"`,$+__O,`D M(`2P$"``@$``"Q`!AM('`@``!`````````)WCOY"0$``80```!I('O_2!Q^`( MD>@`"('#X`BN`\`7G>._F*00`!@O```@?___^ZX%X02`I*```H``+K`0(`#2 M!>`,T`)``("B(``R@``*T$R``#"``">P!@`1T@(``+`&(`&2)``)DSI@`A"` M`"'2)D``@*(@``*```N4$``2T$J``("B(#TB@``(X`)``)0"H`'02H``@*(@ M`!*___N`HB`]X`)``!"```VB(H`2DA``$D``(2>4$``1@*(@`#*```>@!"`$ MT$X`$8"B(#TBO__BT`7@#*`$(`3P!```@*8@`!*___.0$``8L!`@`(''X`B! MZ```G>._0/8GH%#X)Z!4^B>@6("F8``$@``0DA``&I0&?_^0$"((T#>_K-0G MO[34)[^H\">_L/`GOZ"0![^@0``A7I0'H%#6![^@L!``"!"```/`*L``L!`_ M_X''X`B!Z```@A`D!80#X`B1T"``A!``#T````(!`````P``'X(08\B"`$`/ MGA```L0`8;2!P(```0````````"`HJ``,H``"\1*0``0@``2D!`@`-`*?_\0 M@``/D"+`")2"O_\B@``,D!`@`,1*0`#&2@``D@)@`8"@P`(2O__VU@H``("@ MX``2O__VD`(@`9`0(`"!P^`(`0````````"=X[^8D!``&4``(+B2$``80``@ MR+(0``BPDB```H``!)00`!E``"&/DA`@`(''X`B!Z````````)WCOYB0$``8 M]">@3/8GH%#X)Z!4^B>@6)(0`!E``"$:E`>@3(''X`B1Z``(`````((0)`&$ M`^`(D=`@``````"`HJ`+&(``"I80``B`HJ```H``(P$```#2*L``E(*__Q*_ M__Z6`N`!,(``'9@*8/^`HR```H``!84K(`B8$P`"ARL@$)@3``.&BB`#`H`` M"(00(`2&((`#E"*``](JP`"&@/__$K___I8"X`&',J`"V"+``(:`__\2O__^ ME@+@!(:*H`,"@``&`0```-(JP`"&@/__$K___I8"X`&!P^`(`0````````"= MX[^8X`9@"("D(``"@`$$HA``&-`48`R`BB`(`H``!@$```#6!&`0@*+@`#*` M``SF!D``0``@RY`0`!&`HB``(H``!^8&0`!``"#GL!`__Y(0(`D0@`#XTB(` M`-@48`SD!,``@(L@`N`$X`0"@``=I@3@"("D(``R@``(T`1@'.`$X`3D!,`` M@*0@``*___VF!.`(T`1@'("D)``(@``#E!``$)00)`#6!&`LG\+``)(0`!*P MDB``!(``VZ0$@!C0!F`(D"(`&("B(`"@)``8$K__Z=`F8`@0@`#7L!`@`("+ M(`$2@`!WJA`@`!$``!"J$B(`@*0@`!*```?8%&`,X`3@!.0$P`"`I"```K__ M_:8$X`B0"P`5D2H@$)$Z(!"`H@`5$H``(8"+(@#0!&`(@*(`$!J``!V`BR(` MU@1@$-`$0`"4$``+J"(`"_`$8!20!0`0DRX@`;`"8`&`I@`(*K___I,N(`&0 M$``*0``@<9("8`*6DB```H``JY0"P!30!&`4T@1@")`F``B2`D`(V!1@#-(D M8`CP)&`4U"1``-8D8!"`BR(``H``$?`$8`B`I``8*H```K`0`!#0!$``E!`` M&$``('^2$``2U@1@"-`$0`"6(L`8D`(`&-8D8`C0)$``$(``+K`0`!#2!$`` MT`1@$("B0`@(@``1@*0`&`B```^0$``)DA``$D``(&V4$``8U@1``)`0`!&6 M`L`80``@3=8D0`"`HB``,H``?]`48`P0@``;T`9@"/`$8!2`I``8"H``"Y00 M`!C6!&`LT`1@')_"P`"2$``2L)(@`"2``'+0%&`,$(``#M`&8`BP$``0D!`` M"9(0`!)``"!1E!``&-8$8`C0!$``EB+`&)`"`!C6)&`(T"1``-`&8`BD!(`8 MD"(`&("B(`"@)``8$K__D=`F8`@0@`!?L!`@`*@0(`"`I"``$H``"8"E8`"J M$"``X`3@!.0$P`"`I"```K___:8$X`B`I6``,H``#M8$8!"0$``2DA`@"D`` M(!^4$``0DI(@``*```20!+__$(```Z@B0`BH!"`!JA`@`=8$8!"`I0`0"(`` M`Y@0`!28$``0U`1@%-`$8`B:$``*T@1``("B0`L(@``1L`(`"H"C`!@$@``. MD!``"9(0`!)``"`8E!``&-8$0`"0$``1E@+`&$``'_C6)$``@*(@`!*``"FH MI0`8,(``%X"C``T&@``*L!``#-8$8"R2$``2G\+``-`$8!RPDB``!(``'JBE M`!@P@``,D!``"9(0`!)``"``E!``&-8$8`C0!$``EB+`&)`"`!C6)&`(T"1` M`*BE`!@R@``(T`9@"$``']J0$``1@*(@`!*```NJ$"``T`9@"*0$@!B0(@`8 M@*(@`*`D`!@2O_^LT"9@"!"```:P$"``T!1@#+`0/_^0$B!`T#1@#(''X`B! MZ````````)WCOY"0$``8DA``&900`!J6$``;0``@/I@'O_#P'[_P@=X[](+P``'G____RN!>&`@):`&Q*```WX)Z!4U`7B/)`0(`'2`H`` M0``?/`$```"F$``(@*<@``*``4"D$``($(`!/O`_``"`IH`8&(``!]H'H%02 M@``+I!``&("FP!D(@``)IA``&8"C8``R@``"\#M``+`0(`"R$"``,(`!,:80 M`!FB![_HYC1@")$TH!"2$``2E33@$-`T8`+2-&`$I!``&J80`!O4-&`&J@>_ MV)_Z-8U8`+F-6`( M$H``0+@0(`22![_:N`<__X"G(`$R@``WD@)@`O(28`+0%&`"0``?!I(0`!FL M$``(T!1@`D``'^R2$``9TA1@!)$J(!"@$@`)D!``$$``'OR2$``9JA``")`0 M`!!``!_BDA``&=(48`:1*B`0H!(`"9`0`!!``![RDA``&:@0``B0$``00``? MV)(0`!G2%&`(D2H@$*`2``F0$``00``>Z)(0`!G:!Z!4@*-@``*```FB$``( MD!``$$``'\N2$``9DA``"-H'H%20$"``T#M``)$M8!"7+:`0D3(@$),L8!"D M$L`(E2T@$!"``-R3,F`0T!)``("B(``"O__%J@5@`M(48`*0$"`$D"(`'("B M8``2@``)T">_P-H'O\"B!&`"T!1@`IH#?_^`HB```K__^]HGO\#:![_`L#M@ M`+"&(`0,@``)DA`@!-H'O\21+B`!L(8__QR___W`,T`(V@>_P)(0(`22(D`- MV@>_Q!$``!_4%6`"DRI@`9`2(_^R$``*F@-`"=HGO\2`ID`(&(``",`GO[S: M![^\LRY@`9H#8`&`ID`("+___-HGO[S:![^\@*-@``2```O:![_`D!``$=0' MO[Q```"JD@-`'-0'O[R0!6`"0```II('/__4%6`"VA5@!*P0``K:)[^XF@1@ M!-HGO[2H$"``F@1@`MHGO[#:![^PMRT@`=`30`#:![^TX!1`&X"D`!8"@``- M\!-``*$L(!"@$@`0D!``$$``'H22$``6M!``")`0`!!``!]JDA``%A"```N@ M$``(D2H@$*$R(!`U``!`&P``/Z`$`!::$V/_@*0`#1B```RT!K__T`>_N$`` M'GB2$``:E2X@$)4RH!"3+"`0DA)`"H"B``D8O__S&P``/["7(``$@``7LA`@ M`!$``#^6$B/_.P``0),N(`'0%4`)H`8`%*$L(`&2$``:0``>9-8GOZS4%$`0 ML`8__Y0B@`BR(H`9D39@$-8'OZSR-$`0D"=`"("F(``4O__PL@H`"]`40!NR M(@`9DS9@$("B8``"@``6\C1`&[`0`!RT!K__@*8@``2```ZR$"``E`8`%)4J MH`&1+B`!UA5`"+`&/__2%$`*@*8@`)("0`NR!D`)\C1`"A2___:S-F`0T!1` M&Y`"`!G0-$`;V@>_Q*@%(`'T,T`;V@>_M)H#8`+:)[^TV@>_L)H#8`+:)[^P MV@>_P("E``T$O_^>V@>_L-H'H%2`HV```H``*-H'O[R`HV```H``&]H'O\"P M`T`<@*8`#02``!65+B`!V@>_O)("O_Z0$"`0F"(`#98"0!&4`H`1TA*``+`& M/__0$L``V@>_O)$J``R3.D`-DA)`"-H'O\#2,H``E`*__H"F``T4O__UE@+_ M_I$N(`'`-$`(T!>_ZM87O^R1*B`0TA>_[J02``O4%[_PDRI@$-H'H%2F$D`* MY#M``-`7O\K6%[_,D2H@$-(7O\ZD$@`+U!>_T),J8!"F$D`*L!``$K(0`!.! MQ^`(@>@``)@0(`"`HP`)%H``$H2D@-B\T M+SDS`)J20``2@``%EA``")'0(`*!P^`(D!```("BP`T*@`"5E!````,"``"` MHL`!"H``*)@0``"`HT`!&H``#8X0(`&;*V`$$+___)@#(`&:@T`-&H``!XX! MX`&#*&`$FS-@`9H#0`$0@``'CB'@`8"C0`L*O__W`0````*```(!````CJ'@ M`0:``'8!````EB+`#900(`$0@``*`0```)4JH`$&@``%FS-@`98BP`T0@``$ ME`*@`98"P`V4(J`!CJ'@`1:___>`DL``,(``99LK8`2`HT`+"+___IB#(`$" M@`!EF",@`8"2P`"5*J`$!H``+YLS8`&6HL`-!H``%YLS8`&6HL`-!H``"YLS M8`&6HL`-!H``!9LS8`&6HL`-$(``4)0"H`^6@L`-$(``390"H`V6@L`-!H`` M!9LS8`&6HL`-$(``1Y0"H`N6@L`-$(``1)0"H`F6@L`-!H``"YLS8`&6HL`- M!H``!9LS8`&6HL`-$(``.Y0"H`>6@L`-$(``.)0"H`66@L`-!H``!9LS8`&6 MHL`-$(``,I0"H`.6@L`-$(``+Y0"H`&6@L`-!H``%YLS8`&6HL`-!H``"YLS M8`&6HL`-!H``!9LS8`&6HL`-$(``(Y0"O_^6@L`-$(``()0"O_V6@L`-!H`` M!9LS8`&6HL`-$(``&I0"O_N6@L`-$(``%Y0"O_F6@L`-!H``"YLS8`&6HL`- M!H``!9LS8`&6HL`-$(``#I0"O_>6@L`-$(``"Y0"O_66@L`-!H``!9LS8`&6 MHL`-$(``!90"O_.6@L`-$(```I0"O_&8HR`!%K__HH"2P``F@``"E@+`"8'# MX`B0$``+`````$`H(RED:79R96TN;30)."XQ("A"97)K96QE>2D@-B\T+SDS M`("20`@6@``(C!``"("20``6@``$@)(``!:```.2(``)D"``")J20``2@``% MEA``")'0(`*!P^`(D!```("BP`T*@`"5E!````,"``"`HL`!"H``*)@0``"` MHT`!&H``#8X0(`&;*V`$$+___)@#(`&:@T`-&H``!XX!X`&#*&`$FS-@`9H# M0`$0@``'CB'@`8"C0`L*O__W`0````*```(!````CJ'@`0:``'8!````EB+` M#900(`$0@``*`0```)4JH`$&@``%FS-@`98BP`T0@``$E`*@`98"P`V4(J`! MCJ'@`1:___>`DL``,(``99LK8`2`HT`+"+___IB#(`$"@`!EF",@`8"2P`"5 M*J`$!H``+YLS8`&6HL`-!H``%YLS8`&6HL`-!H``"YLS8`&6HL`-!H``!9LS M8`&6HL`-$(``4)0"H`^6@L`-$(``390"H`V6@L`-!H``!9LS8`&6HL`-$(`` M1Y0"H`N6@L`-$(``1)0"H`F6@L`-!H``"YLS8`&6HL`-!H``!9LS8`&6HL`- M$(``.Y0"H`>6@L`-$(``.)0"H`66@L`-!H``!9LS8`&6HL`-$(``,I0"H`.6 M@L`-$(``+Y0"H`&6@L`-!H``%YLS8`&6HL`-!H``"YLS8`&6HL`-!H``!9LS M8`&6HL`-$(``(Y0"O_^6@L`-$(``()0"O_V6@L`-!H``!9LS8`&6HL`-$(`` M&I0"O_N6@L`-$(``%Y0"O_F6@L`-!H``"YLS8`&6HL`-!H``!9LS8`&6HL`- M$(``#I0"O_>6@L`-$(``"Y0"O_66@L`-!H``!9LS8`&6HL`-$(``!90"O_.6 M@L`-$(```I0"O_&8HR`!%K__HH"2P``F@``"E@+`"8"1@``F@``"EB``"X'# MX`B0$``+`````"1.971"4T0Z('-T=X[^8+P``&W____RN!>"HT@7B--`"0`"`HB``,H``!=06(`Q` M`!SB`0```-06(`R`BJ`(,H``'=`&(!"`BJ`0$H``!("*H`00@``KL!`__P*` M`!20$J`(T@8@,("B8``"@``)D`8@0("B0`@B@``%U!8@#$``&]Z0$``)U!8@ M#,`F(##0!B`0D@J_V]`F``"4$``)TC8@#,`F(`20$J`(T#8@#-`&(!"`HB`` M,H``!=`6(`Q``!S!D!``&-`6(`R`BB`!`H``!X"*(`+0!B`4P"8@")`@``@0 M@``&T"8@&!*```.0$"``T`8@%-`F(`BP$"``@=X[^0T!8@#"\``!I____[K@7CG("*(`("@``'D@8@0Y`0(`'0)B`4TB8@ M$!"``"?2)@``D!``&)('O_1````EE`>_\*`0``A``!O4T`>_])B2(``2@``+ MU`>_]-`6(`R4!B!#D!(@`I(0(`'2)B`4T#8@#-0F(!`0@``4U"8``-@F(!#6 M!>'\H!0@@-(%XD#2(L``T`>_\-0F(!2`HB```H``!]@F``!``!R1T%8@#H"B M(``R@``"H!0@`=`6(`R0$@`0T#8@#(''X`B!Z```G>._,*`0`!C05"`.+P`` M&G___\:N!>+(@*(@`":``!/`)H``0``;KY('OY"`HB``%H``!-0'OY@0@``, MP":``!,``#R4"H`)$0``")`:@`B`H``(U@>_V))@/_^`HN``$H``!M(F@`"0 M$"0`T"9``!"```VP$"@`UB9``!$``""`HH`(UB0@3!*```>P$"@`T@0@*-`% MX>"`HD`((H```K`0)`"!Q^`(@>@```````"!P^`(K@/`%YWCOVB1+B`!D`(` M&)$J(`*0(@`8D2H@`R\``!I____WK@7B!$``&WN0`B`3A)(@`!*```20`*`3 M$(``,[`0(`"4"C_X\""@!,`@@`"PAC__#(``+-0@H`C0!>)$E@*@4-@:(%"2 M`J!(V#^_T-@:``#8/[_PV!H@"-@_O^C8&B`0V#^_X-@:(!C8/[_8^!H@(/0: M("CH&B`PY!H@..`:($#8&B!(V#^_R-@?O_"PAC__V#J``-@?O^CX.G_8V#I_ MP-@?O^#T.G_@V#I_R-@?O]CH.G_HV#I_T-@?O\CD.G_PV#I``-@?O]#@.G_X MV#K``)("8%B6`N!8'+__[)0"H%BP$``"@$,T`7B--("``"`HF``,H``!_`%XDA```!1`0```!"```/P!>)(\`8``-(& M(`22@G__#(``"-0&(`C04J`,@*(@``*```^2@G__'+___)0"H%C0!@``@*(@ M`#*___3P!@``?___H9`0(`J`HB``$K__[M`F```0@``1L!`@`)`0(`&2$#__ MT#*@#-(RH`ZP$``*P"*``,`BH`C`(J`$P"*@$,`BH!3`(J`8P"*@,,`BH#3` M(J!$P"*@2(''X`B!Z```G>._F"\``!I___^%K@7@/$``&^&0$"`%X`7B2-($ M(`22(@`)@*)@``2```T!````T`0``("B(``"@``)@*)@`*`0``C0!"`$DB)` M"("B8``TO__YT`0``("B8``$@``%`0```'___W"0$``)T"0``(''X`B!Z``` MG>._F"\``!E___]GK@7CQ$``&[30!>),@.DU`7A_)80(`'0!>)`T@7B--`B@`#6(D``@=X[^8+P``&7____RN!>-H@*8@`#*```70%B`,0``;FM`%XDPP@``-D`H@ M&("B(``2@``(`0```$``&S\!````DA`@"=(B```0@``$D!`__T````20$``8 M@@``"1.971"4T0Z('5M=6PN4RQV(#$N M,R`Q.3DW+S`W+S$V(#$T.C,W.C0T(&-H_ MV)$N(`)````"D@/@%-0"0`B!P\`*`0```````)0```"@````P````-0```#@ M````R````0````$,```!/````4@```%4```!8````6P```%X```!A````90` M``&@```!K````;@```'$```!T````=P```'H```!]````@````#H````]``` M`1@```$D```"(````3````(,D!`@`1"``%^2$"`(D!`@!T``&O>2![_H@*(@ M`!*``'^P$#__$(``??`'O^P0@`![L!`@9)`0(`$0@`!7DA`@$Y`0(`$0@`!/ MDA`@$A"___&0$"`(D!`@"!"``$J2$"`3D!`@"!"``$>2$"`4D!`@`1"``$F2 M$"`4D!`@`1"``$&2$"`1D!`@!A"``#Z2$"`'D!`@`1"``$"2$"`@D!`@`1"` M`#V2$"`ED!`@"!"``#62$"`"D!`@"!"``#*2$"`#D!`@"!"``"^2$"`$D!`@ M"!"``"R2$"`%D!`@"!"``"F2$"`&D!`@"!"``":2$"`'D!`@"-`GO^00@``] MT">_X)`0(`@0@``?DA`@"9`0(`@0@``DA`@"Y`0(`@0 M@``;DA`@#)`0(`@0@``8DA`@#9`0(`@0@``5DA`@#I`0(`@0@``2DA`@#Y`0 M(`@0@``/DA`@$)`0(`@0@``,DA`@$9`0(`@0@``)DA`@$I`0(`&2$"`FT">_ MX!"``!K2)[_DD!`@`9(0("/0/[_@D`>_X)(0(`*4![__V)@0(`!``!J3 MFA`@`("B/_\"@``+T`>_W("B(``2@``5L!``"!"``!.P$#__0``:(`$```"2 M$"`6TB(``!"```VP$#__D`>_X)(0(`*4![__V)@0(`!``!I^FA`@`("B M/_\"@``#L!`___`'O]R!Q^`(@>@``)WCOVB0$``80``:=Y('O\B0.B``@*`` M"+!`(`"!Q^`(@>@```````!`*",I9&EV.`>`!@RA@!)LS8`&:`T`!$(``!XXAX`&`HT`+"K__]P$````"@``"`0`` M`(ZAX`$&@`!V`0```)8BP`V4$"`!$(``"@$```"5*J`!!H``!9LS8`&6(L`- M$(``!)0"H`&6`L`-E"*@`8ZAX`$6O__W@)+``#"``&6;*V`$@*-`"PB___Z8 M@R`!`H``99@C(`&`DL``E2J@!`:``"^;,V`!EJ+`#0:``!>;,V`!EJ+`#0:` M``N;,V`!EJ+`#0:```6;,V`!EJ+`#1"``%"4`J`/EH+`#1"``$V4`J`-EH+` M#0:```6;,V`!EJ+`#1"``$>4`J`+EH+`#1"``$24`J`)EH+`#0:```N;,V`! MEJ+`#0:```6;,V`!EJ+`#1"``#N4`J`'EH+`#1"``#B4`J`%EH+`#0:```6; M,V`!EJ+`#1"``#*4`J`#EH+`#1"``"^4`J`!EH+`#0:``!>;,V`!EJ+`#0:` M``N;,V`!EJ+`#0:```6;,V`!EJ+`#1"``".4`K__EH+`#1"``""4`K_]EH+` M#0:```6;,V`!EJ+`#1"``!J4`K_[EH+`#1"``!>4`K_YEH+`#0:```N;,V`! MEJ+`#0:```6;,V`!EJ+`#1"```Z4`K_WEH+`#1"```N4`K_UEH+`#0:```6; M,V`!EJ+`#1"```64`K_SEH+`#1"```*4`K_QF*,@`1:__Z*`DL``)H```I0B MH`&!P^`(D!``"@````""$"3"A`/@")'0(`"$$``/0````@$````#```7@A!C MF((`0`^>$``"Q`!AM('`@``!`````````((0)1>$`^`(D=`@`(00``]````" M`0````,``!>"$&-@@@!`#YX0``+$`&&T@<"```$`````````G>._F!,0"QV0 M$``8DA)@$T``&:J4$``9@@``)WCOYC0%B`,@(HA`"*```C2%B`, MT%8@#I(0(`"4$"``0``8])80(`+2%B`,%3__Q)0J0`K4-B`,T%8@#I(0`!E` M`!ABE!``&H''X`B1Z``(G>._F*`0`!B8$``9FA``&M!4(`Z2$``,E!``#4`` M&.&6$``;L!``"("F/_\2@``*LA``"8"F?_\R@``(T!0@#-(4(`P1/__$D"I` M"!"```?0-"`,T!0@#!,```20$@`)T#0@#/`\(%"!Q^`(@>@``)WCOYA``!?D MT%8@#H''X`B1Z``(@=X[^8+P``%W____RN!>!PY`7B2*80`!B` MI*```H``%+`0(`#@!*`$H(0__PR```SB!*`(T%1@#("B(``B@``&H(0__Y_$ MP`"0$``1L!8`"*"$/_\`$H`2!Q^`(@>@` M``````"!P^`(K@/`%YWCOX@O```6?____*X%X_#4!>)0T`*``("B(``R@``2 MT`7B4)`0(`:2$"`'EA`@!-`_O_#6)[_LD`>_\)(0(`*6![_LF!`@`$``&,:: M$"``@*(__S*```30!>)0$(```[`0/__P`@``@.`>`!@RA@!)LS8`&:`T`!$(``!XXAX`&`HT`+"K__]P$` M```"@``"`0```(ZAX`$&@`!V`0```)8BP`V4$"`!$(``"@$```"5*J`!!H`` M!9LS8`&6(L`-$(``!)0"H`&6`L`-E"*@`8ZAX`$6O__W@)+``#"``&6;*V`$ M@*-`"PB___Z8@R`!`H``99@C(`&`DL``E2J@!`:``"^;,V`!EJ+`#0:``!>; M,V`!EJ+`#0:```N;,V`!EJ+`#0:```6;,V`!EJ+`#1"``%"4`J`/EH+`#1"` M`$V4`J`-EH+`#0:```6;,V`!EJ+`#1"``$>4`J`+EH+`#1"``$24`J`)EH+` M#0:```N;,V`!EJ+`#0:```6;,V`!EJ+`#1"``#N4`J`'EH+`#1"``#B4`J`% MEH+`#0:```6;,V`!EJ+`#1"``#*4`J`#EH+`#1"``"^4`J`!EH+`#0:``!>; M,V`!EJ+`#0:```N;,V`!EJ+`#0:```6;,V`!EJ+`#1"``".4`K__EH+`#1"` M`""4`K_]EH+`#0:```6;,V`!EJ+`#1"``!J4`K_[EH+`#1"``!>4`K_YEH+` M#0:```N;,V`!EJ+`#0:```6;,V`!EJ+`#1"```Z4`K_WEH+`#1"```N4`K_U MEH+`#0:```6;,V`!EJ+`#1"```64`K_SEH+`#1"```*4`K_QF*,@`1:__Z*` MDL``)H```I0BH`&`D8``)H```I0@``J!P^`(D!``"@````""$"0$A`/@")'0 M(`"$$``/0````@$````#```6@A!@J((`0`^>$``"Q`!AM('`@``!```````` M`((0)`.$`^`(D=`@`(00``]````"`0````,``!:"$&!P@@!`#YX0``+$`&&T M@<"```$`````````@A`D-H0#X`B1T"``A!``#T````(!`````P``%H(08#B" M`$`/GA```L0`8;2!P(```0````````""$"0&A`/@")'0(`"$$``/0````@$` M```#```6@A!@`((`0`^>$``"Q`!AM('`@``!`````````)WCOY"8$``9E!`` M&)H0`!KV(Z!-EA`@`+`0``B!Q^`(D^@`"2]U:$``=D!`` M&$``%ZF4$``:$(``:;`0``B`HR```H``!H"B8`)``!0$B(L$+__S,`F@``0@``#D!`@%)`0(/\0O__' MT":``$``%M$!````DA`@%M(B``"P$#__@$``"Q`!A MM('`@``!`````````"1.971"4T0Z(&-E._F"\``!1____\K@7C&/`% MX+"!Q^`(@>@```````"=X[\P0``5\9`0`!BHDB``(H``5[`0/__0!0``0``5 MNY('OY"`HB``!H``4;`0/_^4$"``EA`@&$``%IC0'[_(IA``"4``%:N1+.`" MI)(@`!*``#:P$"``$(``1;`0/_\B@``(T`P@!Y_&@`"0$``0@*(@``*``"T! M````T`P@!Y`"(`20"C_\0``5FI`"(`BBDB```K__\9($(`C0!```T"1``-04 M(`20!&`(U#1@!-8,(`:P!B`!UBQ@!M@,(`>4"R#_E`*@`4``%D38+&`'@*8` M$PJ``!.1+B`"T`4``$``%8J2![^0@*(@`":``""P$#__E!`@`)80(`Q``!9G MT!^_R*80``F0$``20``5P9,LX`*DDB```K__T)$N(`*0`@`2XB(__$``%;20 M$``4H)(@`!*__\N`IJ``0``5LI`0`!2`IB```H``"("FX``"@``&EA``&Y`0 M`!*2$``80``64900(`3D)D``@@`"`````"=X[^8@(X@`Q*```BJ$"`"@(Z@`Q*```:`IF`& MD!Z@!("@``BJ0"``@*9@!AB``#NX$"``H@8`&I`0`!E``!4UDA``&J0&``B` MI$`2&H`"%X"D0!@(@``LH!``$;(D`!J0$``9G\;``)(0`!"`HB``!(``)8"E M8``2@``'@*5@`=($``#0!D``T"0``!"``!K2)D``%(``#I80`!"9-J`"E!`` M&=("P`"8@S__T`*``-`BP`#2(H``E@+@!!*___J4`J`$$(``#:`0`!F8$``: ME!``&=(*P`"8@S__T`J``-`JP`#2*H``E@+@`1*___J4`J`!H!``&8"D`!@8 MO__9LB0`&J($0!J`I$`2"K__TH"D0!@P@`'ED39@`4``%/V2$``:@*9@!PB` M`)JB!@`(F@9__Y`0``V@$``80``4]9(0`!J`IF`H"(``<:@&``B1-F`#0``4 M[Y(0`!JL$``(H`8`%KLMH`&D!T`8D!``&)_&P`"2$``0@*(@`!:```Z0$``0 MG\;``)(0`!*`HB``!H``%I`0`!B?QL``DA``$H"B(``6@``2D!``&!"``!"0 M$``2G\;``)(0`!*`HB``-(``"Y`0`!"0$``8G\;``)(0`!*`HB``%H``!9`0 M`!(0@``#D!``&)`0`!"@$``(IB1`%I`0`!.?QL``DA``$8"B(``6@``/I`1` M%I`0`!&?QL``DA``$H"B(``&@``7D!``$Y_&P`"2$``2@*(@`!:``!.0$``3 M$(``$9`0`!*0$``1G\;``)(0`!*`HB``-(``"Y`0`!&0$``3G\;``)(0`!*` MHB``%H``!9`0`!(0@``#D!``$Y`0`!&B$``(IB4`':0E`!:0$``3G\;``)(0 M`!*`HB``%H``#I`0`!*?QL``DA``%("B(``&@``6D!``$Y_&P`"2$``4@*(@ M`!:``!*0$``3$(``$)`0`!2?QL``DA``%("B(``T@``+D!``$I`0`!.?QL`` MDA``%("B(``6@``%D!``%!"```.0$``3D!``$J@0``B0$``0G\;``)(0`!&` MHB``%H``#I`0`!&?QL``DA``%("B(``&@``6D!``$)_&P`"2$``4@*(@`!:` M`!*0$``0$(``$)`0`!2?QL``DA``%("B(``T@``+D!``$9`0`!"?QL``DA`` M%("B(``6@``%D!``%!"```.0$``0D!``$:(0``B`I6``$H``!YH&?__2!@`` MT`1``-`F```0@``;TB1``("E8`$4@``.EA``$9DVH`*4$``8T@*``)B#/__0 M`L``T"*``-(BP`"4`J`$$K__^I8"X`00@``-H@8`&I@0`!J4$``8T@J``)B# M/__0"L``T"J``-(JP`"4`J`!$K__^I8"X`&B!@`:D!``#4``%#V2$``:I@8` M"*@0`!&D$``1$(``4:`0`!,2@``'@*5@`=($0`#0!```T"1``!"``!O2)``` M%(``#Y@0`!J9-J`"EA``$900`!#2`L``F(,__]`"@`#0(L``TB*``)8"X`02 MO__ZE`*@!!"```VX$"`!EA``$900`!#2"L``F(,__]`*@`#0*L``TBJ``)8" MX`$2O__ZE`*@`;@0(`&B!$`:$(``+:`D`!J?QL``DA``&)22(``T@`!8@*1` M$#*``":B!$`:@*5@`!*```>X$"`!T@2``-`$0`#0)(``$(``'-(D0`"`I6`! M%(``#Y@0`!J9-J`"EA``$I00`!'2`L``F(,__]`"@`#0(L``TB*``)8"X`02 MO__ZE`*@!!"```VD!(`:EA``$I00`!'2"L``F(,__]`*@`#0*L``TBJ``)8" MX`$2O__ZE`*@`:0$@!JB!$`:@*1`$`B__]20$``1,(``+9_&P`"2$``8E)(@ M`":``"R`I$`0,H``)J`D`!J`I6``$H``![@0(`'2!```T`3``-`D```0@``< MTB3``("E8`$4@``/F!``&IDVH`*6$``0E!``$]("P`"8@S__T`*``-`BP`#2 M(H``E@+@!!*___J4`J`$$(``#:8DP!J6$``0E!``$](*P`"8@S__T`J``-`J MP`#2*H``E@+@`1*___J4`J`!IB3`&J`D`!J`I$`0"+__U)`0`!"`I$`0"+__ M?H"E8`"`IR``$H``.I`0`!E``!.ODA``&J0&``BB$``4@*1`$AJ``)"`I$`8 M"(``+*`0`!&R)``:D!``&9_&P`"2$``0@*(@``2``"6`I6``$H``!X"E8`'2 M!```T`9``-`D```0@``:TB9``!2```Z6$``0F3:@`I00`!G2`L``F(,__]`" M@`#0(L``TB*``)8"X`02O__ZE`*@!!"```V@$``9F!``&I00`!G2"L``F(,_ M_]`*@`#0*L``TBJ``)8"X`$2O__ZE`*@`:`0`!F`I``8&+__V;(D`!JB!$`: M@*1`$@J__]*`I$`8,(``7D``$W>2$``:E"1`$I(D@!B:$``*@**`"02```.H M!@`(E!``"8"BH``$@``<@*5@`12```^0)$`*F3*@`I80``B4$``8T@*``)B# M/__0`L``T"*``-(BP`"4`J`$$K__^I8"X`00@``.D"4`$Y@0``J6$``(E!`` M&-(*@`"8@S__T`K``-`J@`#2*L``E`*@`1*___J6`N`!D"4`$Z`DP!"4(@`: M@**`$`B```.D$``0E!``$("BH``$@``<@*5@`12```^0)0`*F3*@`I80`!&4 M$``(T@+``)B#/__0`H``T"+``-(B@`"6`N`$$K__^I0"H`00@``.E!``#9@0 M``J6$``1E!``"-(*P`"8@S__T`J``-`JP`#2*H``E@+@`1*___J4`J`!E!`` M#8"B@!H(@``)D!``"D``$R.2$``:DA``")`0`!B4$``:?__]X)80`!N`I(`: M"(``![`E`!"0$``00``3&)(0`!H0O_W9LA``"(''X`B!Z```G>._F)`0`!B2 M$``9L!`@`)00`!J`HB``%H``!980`!N2H``)D&``"+`0(`&`IJ``%H``!0$` M``"6H``+E&``"K`>(`%``!/HF!`@`("F(``"@``%L!``")*@``F08``(L!`` M"(''X`B3Z``)```````!`&0``'<"```````!`L0``)P7____?``!`&@``#H" M```````!`&P``($"```````!`'`````"```````!`M````D7___]^``!`'0` M```"```````!`MP``"\7___][``!`'@````"```````!`N@``!@7___]X``! M`'P````"```````!`O0``!X7___]U``!`(`````"```````!`(0````"```` M```!`P```$$7___]?``!`(@````"```````!`(P````"```````!`PP``!87 M___];``!`)`````"```````!`Q@``$,7___]8``!`)0````"```````!`)@` M```"```````!`R0``$(7___]1``!`)P````"```````!`*`````"```````! M`*0````"```````!`*@````"```````!`*P````"```````!`+```&L"```` M```!`+0````"```````!`+@````"```````!`+P````"```````!`,`````" M```````!`,0````"```````!`,@``'L"```````!`S```)D7___[]``!`,P` M`*D"```````!`SP``"`7___[G``!`-`````"```````!`T@``%<7___[?``! M`U0``$L7___[=``!`-0````"```````!`V```)\7___['``!`-@````"```` M```!`-P````"```````!`.`````"```````!`.0````"```````!`.@````" M```````!`.P````"```````!`/`````"```````!`/0````"```````!`/@` M```"```````!`/P``&\"```````!`VP``'`7___WY``!`0`````"```````! M`00````"```````!`0@````"```````!`W@``#<7___V"``!`X0``#T7___U MO``!`0P``)0"```````!`Y```#$7___U<``!`YP``)T7___T@``!`Z@``#\7 M___S<``!`1```)("```````!`[0```,7___R<``!`\```(L7___R/``!`\P` M`)@7___Q$``!`10````"```````!`]@``$@7___OM``!`1@````"```````! M`^0``)H7___OA``!`1P````"```````!`2`````"```````!`_```!L7___M MD``!`20``%4"```````!`_P``(X7___M4``!!`@``!D7___L\``!`2@````" M```````!`2P````"```````!!!0``'P7___L(``!`3`````"```````!!"`` M`!\7___KJ``!`30````"```````!!"P``&P7___JS``!`3@````"```````! M!#@```T7___I\``!!$0```87___I.``!`3P````"```````!!%```&87___I M!``!!%P``!,7___DV``!`4`````"```````!`40````"```````!`4@````" M```````!`4P````"```````!`5`````"```````!!&@``#L7___@2``!`50` M```"```````!`5@````"```````!`5P````"```````!`6`````"```````! M`60````"```````!`6@````"```````!`6P````"```````!!'0``"H7___< MA``!!(```$87___<=``!`7`````"```````!!(P``)$7___;$``!!)@``!<7 M___:W``!!*0``*07___:K``!`70````"```````!`7@````"```````!`7P` M```"```````!`8`````"```````!`80````"```````!!+```"@7___8)``! M`8@````"```````!!+P``!H7___76``!`8P````"```````!`9`````"```` M```!`90````"```````!`9@````"```````!!,@``!47___3D``!!-0``&(7 M___3>``!`9P````"```````!!.```'47____U``!!.P```X7____P``!`:`` M```"```````!`:0````"```````!`:@````"```````!`:P````"```````! M`;```#4"```````!`;0````"```````!!/@``"X7___[%``!`;@````"```` M```!`;P``#,"```````!`<```#("```````!`<0````"```````!!00``"(7 M___^[``!!1```"87___^H``!`<@````"```````!``````"```````!!30``*$7___Y MU``!`>0````"```````!!4```(47___YK``!!4P``*87___YF``!!5@``!P7 M___X2``!!60``%P7___X-``!`>@````"```````!!7```"47___W;``!!7P` M`"L7___W"``!`>P````"```````!`?`````"```````!`?0````"```````! M`?@````"```````!!8@``&H7____[``!!90``*`7____7``!!:```&`7___^ MC``!!:P``(,7___^!``!`?P````"```````!`@`````"```````!!;@``&X7 M___Y&``!`@0````"```````!`@@````"```````!!<0``'87___W7``!!=`` M`(T7___W/``!`@P````"```````!`A`````"```````!!=P``)<7____U``! M!>@``$H7____Y``!`A0``#`"```````!!?0``(07____R``!`A@````"```` M```!!@```&D7___^[``!`AP````"```````!!@P``%\7____Q``!`B`````" M```````!!A@``&$7____Y``!!B0``*@7____T``!`B0````"```````!`B@` M```"```````!`BP````"```````!!C```%87____@``!!CP``!07____Y``! M`C`````"```````!`C0````"```````!!D@``"P7____Y``!!E0``$X7____ MX``!!F```$\7____S``!`C@``'("```````!`CP``$<"```````!`D```'," M```````!`D0``%0"```````!!FP``',7____5``!`D@````"```````!`DP` M```"```````!`E`````"```````!`E0````"```````!!G@```@7____X``! M`E@``'$"```````!`EP```L"```````!!H0``"$7____>``!!I```"D7____ MB``!`F`````"```````!!IP``$T7____Q``!`F0``#D"```````!`F@```4" M```````!!J@``$D7____D``!!K0``$`7____@``!`FP````"```````!!L`` M`'@7____2``!!LP``%T7____0``!`G`````"```````!`G0````"```````! M`G@````"```````!`GP````"```````!!M@``"T7____T``!!N0``*,7____ M5``!!O```%L7____%``!`H`````"```````!`H0````"```````!!OP``)X7 M___^M``!!P@``*H7___^&``!`H@``$4"```````!!Q0``%`7___\W``!!R`` M`)`7___[_``!!RP``",7____^``!!S@``%$7___ZP``!!T0``((7____^``! M`HP````"```````!`I`````"```````!!U```%D7____R``!`I0``$0"```` M```!!UP``),7____G``!!V@``!$7___^P``!!W0``#P7___^J``!`I@````" M```````!!X```&<7____W``!!XP``&,7____[``!`IP````"```````!!Y@` M``<7___^Z``!`J```%X"```````!!Z0```07____4``!`J0````"```````! M`J@``(@"```````!![```%H7___^#``!`JP``%D"```````!![P``#X7____ M0``!!\@``#@7___]I``!!]0``!T7____^``!!^```'X7____\``!`K`````" M```````!!^P``"<7____<``!`K0````"```````!!_@```\7____R``!"`0` M`&07___^H``!"!@```8"```LF``!"#0```8"```LJ``!"#P``'L"```````! M"$````0"```I9``!"$0```0"```JP``!"$@```0"```K+``!"$P```0"```K MG``!"%````0"```K\``!"%0```0"```;<``!"&````0"```&>``!"*@```0" M```````!$!@```0"```(T``!$!P```0"```(N``!$"````0"```(F``!$"0` M``0"```(B``!$"@```0"```(<``!$"P```0"```(6``!$#````0"```(0``! M$#0```0"```(*``!$#@```0"```($``!$#P```0"```'^``!$$````0"```' MX``!$$0```0"```'P``!$$@```0"```'J``!$$P```0"```'D``!$%````0" M```'@``!$%0```0"```':``!$%@```0"```'6``!$%P```0"```'2``!$&`` M``0"```',``!$&0```0"```'"``!$&@```0"```&^``!$&P```0"```&Z``! M$'````0"```&T``!$'0```0"```&L``!$'@```0"```&F``!$'P```0"```& M>``!$(````0"```&:``!$(0```0"```&6``!$(@```0"```&0``!$(P```0" M```&,``!$)````0"```&&``!$)0```0"```&"``!$)@```0"```%^``!$)P` M``0"```%T``!$*````0"```%N``!$*0```0"```%D``!$*@```0"```%<``! M$*P```0"```%4``!$+````0"```%,``!$+0```0"```%$``!$+@```0"```$ M^``!$+P```0"```$V``!$,````0"```$P``!$,0```0"```$J``!$,@```0" M```$B``!$,P```0"```$<``!$-````0"```$4``!$-0```0"```$(``!$-@` M``0"```$"``!$-P```0"```#Z``!$.````0"```#V``!$.0```0"```#P``! M$.@```0"```#F``!$.P```0"```#<``!$/````0"```#4``!$/0```0"```# M,``!$/@```0"```#$``!$/P```0"```"^``!$0````0"```"T``!$00```0" M```"J``!$0@```0"```"D``!$0P```0"```">``!$1````0"```"4``!$10` M``0"```".``!$1@```0"```"*``!$1P```0"```"$``!$2````0"```!^``! M$20```0"```!X``!$2@```0"```!T``!$2P```0"```!N``!$3````0"```! MH``!$30```0"```!>``!$3@```0"```!8``!$3P```0"```!2``!$4````0" M```!,``!$40```0"```!&``!$4@```0"````^``!$4P```0"````X``!$5`` M``0"````P``!$50```0"````F``!$5@```0"````@``!$5P```0"````:``! M$6````0"````4``!$60```0"````,``!$6@```0"```````!$6P```8"```) M*``!&"0```@"```$:``!&$0``&\"```````!&$@``%0"```````!&$P``'(" M```````!&%```',"```````!&%0``$<"```````!&)P``&\"````6``!&*`` M`%0"```````!&*0``'("```````!&*@``',"```````!&*P``$<"```````! M&/0``&\"````L``!&/@``%0"```````!&/P``'("```````!&0```',"```` M```!&00``$<"```````!&3````8"```"[``!&3@``&\"```````!&T0``(P" M`````````!@````S````!@```%(````>````/P````<```!:````#@```"P` M``!J````>0```!$````O````0``````````:````7````*8`````````(``` M`)````!.````;````(H```"-````=````)$````)````*P````T```!I```` M*````#D```">``````````,````P````$````%@````(````*@````0```!H M````+@```$T```!]``````````4````W````#````$`````^````5P```!,` M```U````90```((```!4````;@```!<````Q````#P```$$```!,````50`` M`#0```!C````(P```#L```"#``````````$```!@````"@```$@````X```` M20```"L```!0````%````#(````Z````1@````L````M````$@```"X````5 M````-````!8````X````&0```%X````;````5@```!P```!"````'0```#P` M```?````0P```"$````Z````(@```$H````D````-@```"4`````````)@`` M`&T````G````/@```"D````]````*@```$X````L````3P```"T```!P```` M+P```&0````P````4P```#$```!=````,@```$<````S`````````#4```!% M````-@```$0````W````@P```#D```!,````.P```)\````\````6P```#T` M``!A````/P```$L```!!````:P```$(```!1````0P```%0```!$````B@`` M`$4```"8````1@```'<```!'````<0```$@```!F````20````````!*```` M7P```$L```":````30````````!/````90```%````!9````40````````!2 M````E@```%,```!Z````50```*0```!6````8@```%<```!G````6````'P` M``!9````=````%H```!V````6P````````!<````CP```%T```!J````7@`` M`'X```!?````````>````*(```!Y````AP```'L`````````?````(X```!^```` M@0```'\`````````@````*````"!````A````((`````````A````)(```"% M````E````(8`````````B````(P```")````G````(L`````````C``````` M``"-`````````(X```"5````CP````````"0`````````)$`````````D@`` M`*,```"3`````````)0```"A````E0```)D```"7`````````)@```"7```` MF0````````":````G0```)L```"E````G`````````"=`````````)\````` M````H`````````"A`````````*(`````````HP````````"D`````````*4` M````````IP```*8```"H`````````*D`````````J@``````````!P`````! M````````````"@L```````````````````\!```````````````````5!0(` M````@(@`````````&P4"`````)WP`````````",'`0````$1;`````0````T M!0(`````CT0`````````.04"`````(RD`````````#\%`@````!;6``````` M``!+!0(`````3B``````````4P4"`````#M4`````````%T)``````$H6``` M``````!H!0(`````->@`````````<@4"`````$Q``````````'D%`@````"D M_`````````!^!0(`````MZ@`````````B`<``````0!@`````````)\%`@`` M``"4N`````````"K!0(`````K6``````````M`4"`````($@`````````+P% M`@````!7,`````````#%!0(`````3;``````````SP4"`````'\P```````` M`-<%`@````!1P`````````#?!0(`````3C``````````YP4"`````)HD```` M`````.T%`@````!4F`````````#U!0(`````GCP`````````^P4"`````'HP M`````````00%`@````"A*`````````$/!0(`````3E`````````!&`4"```` M`$WX`````````1\%`@````!.8`````````$I!0(`````@8@````````!,`4" M`````%-@`````````3@%`@````!XD`````````%!!0```````"`````````! M304"`````"_T`````````58%`@````!O@`````````%>!0(`````JP`````` M```!:`4"`````&I@`````````7`%`@````!]<`````````%[!0(`````DBP` M```````!@P4"`````%,@`````````8L%`@````!8V`````````&2!0(````` MJS@````````!G04"`````%&0`````````:0%`@````!.0`````````&M!0(` M````JZP````````!M`4"`````%F(`````````;P)``````$H7`````````') M"0`````!*&`````````!V`X'`0````$(I`````0` M``'_!0(`````4B@````````""`4"`````%>X`````````A`%`@````"I&``` M``````(8!0$`````:A0````$```")@Z`````````#&04" M`````)=,`````````R`%`@````!OT`````````,K!0(`````J\@````````# M-`4"`````$Z@`````````SP'``````$"N`````````-7!0(`````H\P````` M```#804```````"0`````````V\%`@````!98`````````-Y!0(`````5X@` M```````#?P4"`````),$`````````X<%`@````"94`````````.1!0(````` MFR`````````#F@4"`````&](`````````Z,%`@````!O"`````````.M!0(` M````8.`````````#N`4"`````)B4`````````\(%`@````"!6`````````/+ M!0(`````D[`````````#U@4"`````%*@`````````]X%`@````"GJ``````` M``/E!0(`````AM@````````#\`4"`````*[X`````````_<%`@`````S&``` M``````0'!0(`````+6`````````$#P4"`````(&8````````!!<'`0````$; M1`````0```0@!0(`````H4@````````$*`4"`````()`````````!#0)```` M``$H:`````````0^!0(`````/%@````````$2P4"`````#04````````!%X% M`@````"22`````````1F!P$````!&"@```$(```$;`4"`````%.H```````` M!'4)``````$H;`````````1_!0(`````HK@````````$B`4"`````*-<```` M````!)$%`@````"3(`````````2;!0(`````I&@````````$J`4"`````(:` M````````!+,%`@`````"``````````2Y!0(`````@"@````````$PPL````` M````````````!,H!``````````````````32"0`````!*'`````````$X04" M`````#P8````````!/`%`@`````VH`````````3[!0(`````J!@````````% M`@4``````.!`````````!0D%`@````!J\`````````42"0`````!*'0````` M```%&P4"`````'D@````````!28%`@````"2P`````````4N!0(`````?U`` M```````%.04"`````%I8````````!4`+``````````````````5&`0`````` M```````````%30+`````````%J@4"`````#NL````````!;()``````$H>``` M``````6Y!0(`````F+0````````%P@@%`@`` M``!J&`````````7N!0(`````6=`````````%]`4"`````'MH````````!?P% M`@`````M#`````````8%!0(`````'L@````````"`````"^H```````` M!A,%`@````"HB`````````8:!0(`````J%`````````&(04"`````)CP```` M````!BD%`@````!8``````````8P!P`````!'>@````````&-P4"`````'[X M````````!CX%`@`````W5`````````9)"0`````!*(`````````&3@4"```` M`'Q8````````!E8%`@````"38`````````9@!0(`````K4`````````&:0D` M`````2A\````````!GD%`@````![,`````!?7T193D%-24,`7V5R<@!?7V5R M<@!?;W!E;@!?:7-A='1Y`%]?7W-Y0!? M7-C86QL`%]?=V%R;@!?9V5T M975I9`!C97)R;W(`7W-T0!?=6YS971E;G8`7W-T9%]S96%R M8VA?<&%T:`!?861D7W-E87)C:%]P871H`%]?7W-D:61I;FET`%]A;'!H87-O M0!?7!E M7P!?;65M8W!Y`%]?7W-F=G=R:71E`%]M86EN7VUA<`!?;61?&ET`%]?7W-R96%D`%]?7W-S965K`%]M8G-T;W=CF4`7U]?=6UO9&1I,P!?0!?:6]C M=&P`7V5T97AT`%]O<&5N9&ER`%]E;G9IP``1WP``$=]``!'?@```$@```!,``!'?P```%```$>"````5```1X, M```!:``!'@0```&```$H:``!""```0A```$>```!'A````&8``$H<``!*'P` M``&P```!T```!=````6X```'$```!S@```=````'8```!W@```>8```'J``! M&"@```>X```'P```!\@``0@\``$H>``!"#@``!"````14```$5@```"0```2 M,```$E@``!)X```2F```$M@``1X4```<*```'F@``!Z8```@,``!'O@``1[\ M``$?```!'P0``1\(``$(8```(K```"+(```DL```)+@``";H```G````)R`` M`"@H```H.```*#```1\,```K>```+*@``1^8``$?&``!'YP``1\@``$?'``! M"*0``#&H```QP``!*&```2A<```S````-.```0BH``$;1```-H@``#!P&+(`0````,``!.!P&(@`0````,``!.!P&)``0````,``!.! MP&(P`0````,``!.!P&)0`0````,``!2!P&"T`0````,``!^!P&,P`0````,` M``V!P&#D`0````,```V!P&&L`0````,``!:!P&'0`0````,``!.!P&)@`0`` M``,``!6!P&.(`0````,```^!P&'\`0````,``"J!P&!0`0````,``!2!P&.H M`0````,``!6!P&.X`0````,```Z!P&,<`0````,``!:!P&&(`0````,```N! MP&.H`0````,```V!P&%(`0````,``""!P&"(`0````,``"F!P&/@`0````,` M`!J!P&(8`0````,``!6!P&+H`0````,``!Z!P&-H`0````,``">!P&(\`0`` M``,```^!P&'``0````,``":!P&(D`0````,```^!P&`8`0````,``!.!P&'X M`0````,```^!P&!8`0````,``!.!P&!``0````,``".!P&-$`0````,```N! MP&%@`0````,``""!P&$@`0````,``"B!P&#P`0````,``"2!P&(L`0````,` M`""!P&#``0````,```Z!P&.L`0````,``!2!P&'``0````,```V!P&-4`0`` M``,``!J!P&)@`0````,``!6!P&"8`0````,``!.!P&&P`0````,``"F!P&.H M`0````,``"F!P&!H`0````,``"F!P&#\`0````,``!2!P&&0`0````,``!2! MP&-@`0````,``!N!P&.``0````,``!2!P&(H`0````,``!J!P&+P`0````,` M`!:!P&```0````,``!:!P&)8`0````,``!^!P&!8`0````,``!Z!P&(P`0`` M``,``!N!P&,(`0````,```N!P&/T`0````,``!2!P&,@`0````,``""!P&)` M`0````,``":!P&#P`0````,``"2!P&.P`0````,``"2!P&+``0````,``"2! MP&)(`0````,``"&!P&*``0````,``"&!P&*H`0````,```^!P&-8`0````,` M`!2!P&$X`0````,``!^!P&-0`0````,``"B!P&%(`0````,``""!P&%8`0`` M``,``!2!P&*@`0````,``"N!P&%``0````,``!:!P&%@`0````,``!6!P&,P M`0````,``!:!P`0````,``!Z!P&.@`0````,``"6!P&-,`0````,``"B! MP&-<`0````,``!:!P&-8`0````,``""!P&&(`0````,``!^!P&%P`0````,` M`!>!P&!0`0````,``!>!P&.X`0````,``!J!P&*0`0````,``""!P&`H`0`` M``,``!B!P&#@`0````,``"J!P&,X`0````,``!^!P&+X`0````,``!N!P&-( M`0````,``"J!P&"(`0````,``!Z!P&,P`0````,``!N!P&/0`0````,``!Z! MP&"P`0````,``!Z!P&"0`0````,``"J!P&/(`0````,``!Z!P&$@`0````,` M`":!P&%0`0````,``":!P&"T`0````,``"6!P&"X`0````,``"B!P&/H`0`` M``,``""!P&&8`0````,``"&!P&+8`0````,``".!P&"D`0````,``">!P&'P M`0````,``":!P&,@`0````,``"B!P&"X`0````,``"J!P&$8`0````,``"B! MP&$H`0````,``"J!P&`8`0````,``"J!P&,``0````,``"V!P&.H`0````,` M`"N!P&+X`0```&UA:6X```````$($``````O=7-R+VQI8F5X96,O;&0N'`@)``````````$```R\``````````````````` M```````````````````````"`````@````H````````````````````````` M````````````````"@`````````*`````@`````````````````````````` M`````0````(``````````0````(````"`````@````(````"`````@````(` M```"`````@````(````"`````@````(````"`````@`````````"```````` M``(````(````$````"`````(````$````"`````>````%@```!8````6```` M#0````H````@````(`````H````-````%@````H````6````'@`````````@ M`````````!8D3F5T0E-$.B!V9G!R:6YT9BYC+'8@,2XS,"`Q.3DX+S$Q+S$U M(#$W.C$Y.C`U(&-H2YC+'8@,2XQ,"`Q.3DX+S`S M+S(V(#(S.C4S.C,V(&-G9"!%>'`@)````"1.971"4T0Z('9S<')I;G1F+F,L M=B`Q+C<@,3DY-R\P-R\Q,R`R,#HQ-3HS."!C:')I'`@)``````D M3F5T0E-$.B!E"YC M+'8@,2XS(#$Y.3'`@)``````` M````)$YE=$)31#H@=V%R;BYC+'8@,2XS(#$Y.3'`@)``D3F5T0E-$.B!S=')S97`N8RQV(#$N."`Q.3DX+S$P M+S$S(#(P.C,R.C`Y(&ML96EN:R!%>'`@)```````````)$YE=$)31#H@'`@ M)```)$YE=$)31#H@=V)U9BYC+'8@,2XX(#$Y.3@O,#(O,#,@,3@Z-#$Z,C0@ M<&5R'`@)```````)$YE=$)31#H@=V%R M;G@N8RQV(#$N,R`Q.3DW+S`W+S$W(#(Q.C,S.C,P('1H;W)P96H@17AP("0` M`````````"1.971"4T0Z('9W87)N>"YC+'8@,2XS(#$Y.3'`@)``````````D3F5T0E-$.B!E'`@)````"1.971"4T0Z('-T&ET+F,L=B`Q M+C@@,3DY."\Q,"\Q."`Q-#HS-CHS,"!K;&5I;FL@17AP("0``"1.971"4T0Z M(&9R96%D+F,L=B`Q+CD@,3DY."\P,B\P,R`Q.#HT,3HQ,B!P97)R>2!%>'`@ M)```)$YE=$)31#H@7U]S=')E(``!G<```9V```&=(``!G.```9R@``&<```!F MZ```9L```&:@``!F@```9F```&9```!F*```9@@``&7P``!EV```9;@``&6@ M``!E@```95```&4X``!E&```90@``&3P``!DR```9*```&2```!D8```9$`` M`&0H``!D````8]@``&/```!CJ```8X```&-H``!C6```8T```&,H``!C$``` M8P```&+H``!BT```8J@``&*0``!B>```8F```&)(``!B*```8A```&'P``!A MR```8;```&&8``!A@```86```&$P``$0&"1.971"4T0Z(&UM87`N8RQV(#$N M,3`@,3DY."\Q,2\Q-2`Q-SHR,SHP,"!C:')I'`@)``````````D M3F5T0E-$.B!I;F1E>"YC+'8@,2XY(#$Y.3@O,#,O,C8@,C,Z-3,Z,S8@8V=D M($5X<"`D`````"1.971"4T0Z('-T'`@)```)$YE=$)31#H@;W!E;F1I2!%>'`@)``````````D3F5T0E-$.B!S=')C;7`N8RQV(#$N,3`@,3DY."\P M,R\R-B`R,SHU,SHS-R!C9V0@17AP("0``"1.971"4T0Z(&UE'`@)``````````D M3F5T0E-$.B!S965K9&ER+F,L=B`Q+C8@,3DY-R\P-R\R,2`Q-#HP-SHR."!J M=&,@17AP("0``"1.971"4T0Z('1E;&QD:7(N8RQV(#$N.2`Q.3DX+S`R+S(X M(#$R.C4W.C(X(&5N86UI($5X<"`D```````````D3F5T0E-$.B!R96%D9&ER M+F,L=B`Q+C$R(#$Y.3@O,3$O,3,@,3(Z,S$Z-3$@8VAR:7-T;W,@17AP("0` M````)$YE=$)31#H@9FQA9W,N8RQV(#$N.2`Q.3DY+S`S+S$Y(#$R.C4U.C4R M(&-H'`@)```)$YE=$)31#H@2!%>'`@)``D M3F5T0E-$.B!G971E;G8N8RQV(#$N,3(@,3DY."\Q,2\Q-2`Q-SHQ,SHU,2!C M:')I'`@)```````)$YE=$)31#H@'`@)````````"1.971"4T0Z M('-T2!%>'`@)``D3F5T0E-$.B!F<')I;G1F+F,L=B`Q+C8@,3DY-R\P M-R\Q,R`R,#HQ-3HP,"!C:')I'`@)```````)$YE=$)31#H@;65M M'`@)``````D3F5T0E-$.B!U;6]D9&DS+F,L M=B`Q+C,@,3DY-R\P-R\Q,R`R,#HP,3HU."!C:')I'`@)``````` M)$YE=$)31#H@=61I=F1I,RYC+'8@,2XS(#$Y.3'`@ M)````"1.971"4T0Z(&UU;'1I8GET92YC+'8@,2XV(#$Y.3'`@)``````D3F5T0E-$.B!F:6YD9G`N8RQV(#$N,3(@,3DY."\Q,2\Q-2`Q M-SHQ.3HU,R!C:')I'`@)```````````$0`!(:`````````````` M````!`````````````````````$8*```H\P``**X``"C7```HPP````````` M```````````````````````````````````````````````````````````` M``@``0`````````````````!&(```*/,``"BN```HUP``*,,```````````` M```````````````````````````````````````````````````````````* M``(``````````````````1C8``"CS```HK@``*-<``"C#``````````````` M`````````````````````````````````````````1@<`````P`!&"@````` M)$YE=$)31#H@9F9L=7-H+F,L=B`Q+C$Q(#$Y.3@O,#(O,#,@,3@Z-#$Z,#<@ M<&5R'`@)``````````D3F5T0E-$ M.B!I'`@)```````````)$YE=$)31#H@8W1Y<&5?+F,L=B`Q+C$T(#$Y.32YC+'8@,2XQ,"`Q.3DX+S`S+S(V(#(S.C4S.C,V(&-G M9"!%>'`@)````"1.971"4T0Z('-T9&EO+F,L=B`Q+CD@,3DY."\Q,2\Q-2`Q M-SHQ.3HU,R!C:')I'`@)``````````D3F5T0E-$.B!F=V%L:RYC M+'8@,2XW(#$Y.3@O,#(O,#,@,3@Z-#$Z,38@<&5R2YC+'8@,2XQ,"`Q.3DX+S`S+S(V(#(S.C4S.C,V(&-G M9"!%>'`@)````"1.971"4T0Z('-C86YD:7(N8RQV(#$N,30@,3DY."\Q,2\Q M,R`Q,CHS,3HU,2!C:')I'`@)``````D3F5T0E-$.B!Q'`@)``````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M````````````````````````````!`8``````0``````#@L````````````` M$P$`````````````&04"`````("(````'P4"`````)WP````)PH````C`<``````0!@```` MHP4"`````)2X````KP4"`````*U@````N`4"`````($@````P`4"`````%

X```"%`4"`````*D8```"'`4!`````&H4```"*@@4"`````%"T M```"A`4"`````#6L```"E04"`````#3D```"I@D``````2AD```"L@4"```` M`*[4```"O04"`````(#````"Q@4"`````*,,```"T`4"`````%;H```"V`4" M`````%^X```"X@4"`````%$X```"Z@4"`````#W\```"_04"`````)6(```# M"04"`````%Q0```#$P4"`````'N@```#'04"`````)=,```#)`4"`````&_0 M```#+P4"`````*O(```#.`4"`````$Z@```#0`<``````0*X```#6P4"```` M`*/,```#904```````"0```#(```#@P4" M`````),$```#BP4"`````)E0```#E04"`````)L@```#G@4"`````&](```# MIP4"`````&\(```#L04"`````&#@```#O`4"`````)B4```#Q@4"`````(%8 M```#SP4"`````).P```#V@4"`````%*@```#X@4"`````*>H```#Z04"```` M`(;8```#]`4"`````*[X```#^P4"`````#,8```$"P4"`````"U@```$$P4" M`````(&8```$&P0D``````2AL```$@P4"```` M`**X```$C`4"`````*-<```$E04"`````),@```$GP4"`````*1H```$K`4" M`````(:````$MP4"``````(````$O04"`````(`H```$QPL````````````$ MS@$````````````$U@D``````2AP```$Y04"`````#P8```$]`4"`````#:@ M```$_P4"`````*@8```%!@4``````.!````%#04"`````&KP```%%@D````` M`2AT```%'P4"`````'D@```%*@4"`````)+````%,@4"`````']0```%/04" M`````%I8```%1`L````````````%2@$````````````%408```(:@0```````>H```(;P0` M``````>X```(=`0```````?````(>00```````?(```(?@0"``````PD```( MC00"`````"4````(F`0``````!"````(G00"`````!"X```(JP0``````!%0 M```(L`0``````!%8```(M00"`````!+X```(P`0"`````!9X```(S`0"```` M`!;P```(U@0``````!(P```(VP0``````!)8```(X`0``````!)X```(Y00` M`````!*8```(Z@0``````!+8```([P0"`````!@D```(]P0"`````!00"`````"+@```)@P0``````"2P```)B`0``````"2X```)C00``````";H M```)D@0``````"<````)EP0``````"<@```)G`0``````"@H```)H00````` M`"@P```)I@0``````"@X```)JP0"`````"@\```)M@@``````1\,```)OP0` M`````"MX```)Q`0``````"RH```)R0P````````%```)V@P````````$```) MZ0P````````3```)[0P````````$```)]@P````````@```*``P````````$ M```*$A\``````"U8```*&P0``````"U8```**@0``````"U8```*/`8!```` M`0AH```*0P@``````1^8```*2P0"`````#'D```*5@@``````1\8```*9@@` M`````1^<```*<@@``````1\@```*>00"`````"[````*@P@``````1\<```* MD00"`````#$X```*G00``````#&H```*H00``````#'````*I0P````````Y M```*K!\``````#+P```*M`0``````#+P```*PP0``````#+P```*U00````` M`#,````*V00``````#3@```*W00``````#:(```*X00``````#@P```````!@```+C0P```````!@```+HQ\``````#X8```+K@0` M`````#X8```+O00``````#X8```+SP8!`````0G0```+U@0"`````#X8```+ MX`0"`````#Y4```+[`8!`````0H0```+]@8!`````0H@```,``0``````#[X M```,!`0``````#\0```,"`0``````#\8```,#`0``````#\P```,$`0````` M`$#0```,%0P````````^```,'`P````````0```,)@P````````0```,,!\` M`````$Q````,.1\``````$VP```,11\``````$WX```,3Q\``````$WX```, M6!\``````$WX```,81\``````$WX```,:1\``````$WX```,<1\``````$X@ M```,>Q\``````$XP```,A1\``````$Y````,D!\``````$Y0```,FQ\````` M`$Y@```,IQ\``````$Z8```,L0@``````1^H```,R!\``````%$@```,T00` M`````%$@```,X`0``````%$H```,[Q\``````%&0```,]Q\``````%'````- M`1\``````%(H```-#!\``````%*````-%00``````%*````-)`0``````%*( M```-,P0``````%*0```-0A\``````%,@```-3!\``````%-@```-5A\````` M`%.H```-7A\``````%20```-:!\``````%;H```-<1\``````%<8```->P0` M`````%<8```-BP0``````%<@```-FQ\``````%>(```-HA\``````%>P```- MK!\``````%?X```-M1\``````%BX```-O00``````%BX```-RP0``````%C` M```-V00``````%C(```-YQ\``````%E8```-\P@``````1^X```."!\````` M`%F(```.$A\``````%G(```.&A\``````%I8```.(Q\``````%LP```.,00` M`````%LP```.100``````%LX```.61\``````%P````.9`0``````%P````. M=00``````%P(```.A@0``````%PX```.EP0``````%Q````.J!\``````%^X M```.LQ\``````&#@```.OQ\``````&$P```.SA\``````&H8```.UA\````` M`&I@```.X!\``````&J0```.ZQ\``````&KP```.]@0``````&L(```/!P0` M`````&L0```/&!\``````&\(```/)!\``````&](```/+Q\``````&^````/ M.1\``````&_0```/0A\``````'B0```/31\``````'BH```/6`@``````2"X M```/<`@``````2"\```/AA\``````'HP```/D1\``````'LP```/G1\````` M`'MH```/IQ\``````'N@```/L!\``````'Q8```/NA\``````'TP```/Q`0" M`````'TP```/V!\``````'[X```/X1\``````'\P```/ZQ\``````(`H```/ M]Q\``````("(```/_Q\``````(#````0"A\``````($@```0%!\``````(%8 M```0'Q\``````(&(```0*!\``````(&8```0,A\``````()````0/1\````` M`(:````02!\``````(:H```04Q\``````(;0```07@8!`````1;L```0Q\``````(\@```0@A\``````)'P```0C!\``````))(```0 MEA\``````)*(```0HQ\``````).H```0K1\``````)2P```0N!\``````)8X M```0P@@``````2%(```0UQ\``````)CH```0X1\``````)GH```0Z1\````` M`)L@```0]!\``````)WP```0_A\``````)X8```1"!\``````)X8```1$!\` M`````*"X```1'1\``````*#P```1*A\``````*$H```1-Q\``````*%(```1 M01\``````**X```12A\``````*/@```14Q\``````*1@```18@@``````2A( M```1?!\``````*38```1A!\``````*>H```1C1\``````*?@```1E1\````` M`*@8```1GA\``````*A0```1IQ\``````*B(```1L!\``````*BX```1N@0` M`````*BX```1RA\``````*L````1UA\``````*LX```1XQ\``````*MP```1 M[1\``````*O(```1^!\``````*TX```2`A\``````*U@```2#1\``````*[X M```2%A\``````+>H```2(%]?1%E.04U)0P!?97)R`%]?97)R`%]O<&5N`%]I M0`N9&EV`%]?7V1I=F1I,P!?7T=,3T)!3%]/1D93151?5$%"3$5?`%]?7W-M M86ME8G5F`%]S8V%N9&ER`%]C86QL;V,`7U]V=V%R;G@`7W9S<')I;G1F`%]G M971E;G8`7W-T7-C=&P`7U]?`!?;61?`!?;&EN:U]M87!? M:&5A9`!?;61?9V5T7V%D9&5N9`!?8VUP;F1E=V5Y`%]I;V-T;`!?971E>'0` M7V]P96YD:7(`7V5N=FER;VX`7U]?7!E7P!?7U]U9&EV9&DS`%]M9%]F:7A?:FUP M`!?7V5R&ET`%]M=6YM87``7WAP6UB M;VQ?:&5A9`!?9V5T9&5N=',`;61P6T`7U]?9&QC=&P`7U]?9&QE>&ET`%]?7V1L M861D<@!?;61?5]P871H`%]L9%]S=7!PF4`=F9PF5R;V5S+CD`3$,P`$Q#,0!,0S(`3$,S`$PR,#$` M7W)CF5R;V5S+CD`8F-O<'DN"YS M;P!G971U:60N"YS;P!V97)R>"YS;RYO+DQ#,`!V97)R>"YS;RYO+DQ#,0!W87)N+G-O M`'-T2YS;P!S=')C M870N"YS;RYO+DQ#,`!V=V%R;G@N&ET+G-O`&9R96%D+G-O`%]?7-C=&PN7-C=&PN7-C86QL+G-O M`&-E]7R```$Q:? MSV7^^P'O.K\``)_/:O[[`>\OOP``G\]/_OL![S"_``#04.\QR```W5#[`>\L MOP``G\]/_OL![Q6_``#54!('^P#O(K\``)_/1_[[`>__O@``U%'54!,"UE'0 M4>\$R```G\]"_OL![^6^``#44=50$P+64=!1[^['``"?SS[^^P'OR[X``-11 MU5`3`M91T%'OS,<``-VH#-1^U'[4?M1^W>_#PP``^P;/.@704%'0H1Q0UJ`( MT*$<4,@)H`S04?^)O0``W5G4?MUHU'[4?I_OF<,``/L&SPP%T%!1T*$<4-:@ M"-"A'%#(`J`,T5H#%0J>[Y?#``"H(!$,T*@,4)[OB<,``*`,G\]O_?L![T"^ M``#04.]%QP``$P?=4/L!SX87G\^L_?L![R6^``#04.\ZQP``W?\8O0``^P'/ M^P#5[RG'```3%-W_!;T``/L!ST0"U'[[`>\;O@``W?_QO```^P'/S@C0J`Q0 MT*`(4=#_WKP``%#0H`AAT*@,4-"@!%;0_\^\``"F%-6F!!-_RX__#P``J!17 MW0<\CP`0?MU7^P/OV[T``-%0C_____\2$]WOM,(``)_/,/W=`?L#[\N]``"? MIA#=J!3[`N_*O0``W04\CP`0?MU7^P/OHKT``-%0C_____\2$]WO>\(``)_/ M$OW=`?L#[Y*]``#0J!2F#-7_2[P``!,$T`&F"/L`S\(2W:@(^P'OBKT``-10 M!"5S.B!L:6(E_8Q0``$C6>KY=1X0!'I@0%GL]Y M_U$RJ`I^,J@(?M"I'%#!::`@4,%0:'[=[ZC!``#=4=T!^P;OP;P``-1^U'[4 M?MU9W5C4?OL&SP@#T%!1T*$<4-:@"-"A'%#(6J`,T*@,5M56$P,Q>O_0J0A9 M$P,Q4/_44`1,1%]44D%#15],3T%$141?3T)*14-44U]04D]'3D%-10``3$1? M5%)!0T5?3$]!1$5$7T]"2D5#5%-?1DU4,0`)+6PE;RXE;2`]/B`E<"`H)7@I M"@!,1%]44D%#15],3T%$141?3T)*14-44U]&350R``DE;R`H)7@I"@!N;W0@ M9F]U;F0`)7,`)60`)7```<`/P@A>T*P$5Y_/9/_[`>^HNP``T%!;$@6>SW7_ M6Y_/^3NP``T%"M_!(&GL]]_ZW\GZ^-^P'O?;L``-!0K?@2!9ZOFJWX MU5<2`S']`="G#%@2`S'J`=!H6M"G'%#0H`11$PS0H1Q0P6&@(%#`4%K0IP19 M$@6>SV__6="M^%;IJ`0$T*W\5IB&4A(#,;(!T5(E$@,QQ@#14H]<````$SZ> M_QNZ``!1GJ%84]"A8%##`5"A8)Z@_U`8"]%0H7`9$)%2"A,+T&-0D%)@UF,Q M8@'=4]U2^P+O/KL``#%4`9AF4)J/;E'14%$3&!0*U5`2`S%"`3$Z`=%0CW0` M```3(C$N`=`*4Y[_MKD``%">H%A2T*!@4<,!4:!@GJ'_41@E$2[0"5.>_Y>Y M``!1GJ%84M"A8%##`5"A8)Z@_U`8!M%0H7`9"]!B4)!38-9B,>$`W5+=4_L" M[[^Z```QTP"89E#04%*:CVY1T5!1$@,QH@`4*IJ/85'14%$3>104FH]!4=%0 M41-F%"C54!(#,:<`$1_14(]M````$VX1%)J/<%'14%$3=QE9T5"/>````!-T MGO\,N0``49ZA6%/0H6!0PP%0H6">H/]0&`O14*%P&0^14@H3"M!C4)!28-9C M$5+=4]U2^P+O,+H``!%%W5N?SP+^$3;=[]B^``"?S_;]$2K=6I_/[OT1(C*H M"'Z?S^?]$1@RJ`I^G\_=_1$.W5F?S]+]$0;=9Y_/T/W[`N_UN0``UE:89E#0 M4%+65M52$P,Q3O[0IPA7$P,Q!/X$!`'`!]"L!%G0K!!:T*P86-TD^P'OS;D` M`-!05]T@^P'OP;D``-!05M2F"-#O=;X``%#05F#!5@CO:;X``(H!IA306F;5 M61,/W5G[`>^AN0``T%"F!!$#U*8$T*P(I@S06*88T%>F'-2G"-2G#-"L#*<$ MT*P4IQ#56!($T%90!-10U5H2"M%H`Q(%/(\`$%#04*<@T`Q0T6@'%0/0$%#0 M4*<4T*8<4,%FH"!1T*884-"@"%#!4:`\.N0``W:8,^P'O!+D` M`-VF'/L![_JX``#0I@10$PG=4/L![^NX``#=5OL![^*X```$`<`/PB1>T*P$ M6]"L"%K4K=S0:UC56A,,T*H<4,%JH"!0P%!8Z:L$:M`!K=S56A,6U>\KP0`` M$@[0JAA0T*`(4-"@"%$2!-16$1;0JAQ0P6J@(%#!4%%6W5;[`>_]MP``W5:? MK=PRJPI^,JL(?MU8^P7/?P_04%G55A,)W5;[`>]IN```U5D2(]`"_\ZV``#4 M4`35[[W````3#I%H+Q,)T`W_M[8``!'GT%A9T/^@M@``4!,ST*`$41,BT%%2 MD&)1T%E3D5&#$@[64I51$Q208E&148,3\I%BH_\3!M"@"%`2TM50$P$$U'[4 M?MU9^P/O!;@``-!05]%7C_____\2"]6MW!.*U*W<,2'_W2"?K>#=5_L#[^RW M``#14"`3`S$[`="MX%+34H\``/__$QN]%2CPA0P5"M['[4?OL'[P*W``#04%;15H______$T'=!]VMZ,%6K>1^ M^P/O5;8``-50$BQ\?MWO3;L``#R/$A!^W0?=K>S!5JWD4,%0K>A^^P?OOK8` M`-%0C_____\2#-U7^P'O0+8``#$G_MU7^P'O-+8``,%6K>10P%:@"-U0P:WD MK>A0P5"M['[=5MU:W5O=6?L&SU'\!'=A]TN@``T*(<4-V@$-UB^P+O!+8```0N:6YI=`!?7VEN:70` MP`#0K`16T%97$Q;0IAQ0X`&@#`?=5OL!SP\!T*8(5A+JT%=6$Q;0IAQ0X`&@ M#`?=5OL!SXX#T*8(5A+JT%=6$R30IAQ0X`&@#!2?KZ;=5OL"SZP#GZ^BW5;[ M`L^B`]"F"%82W00$=V%R;FEN9SH@;F]N('!U"`H)7,I`$-A;FYO="!E;F%B;&4@=W)I=&5S('1O("5S.B5S`%5N9&5F:6YE M9"!S>6UB;VP@(B5S(B!I;B`E#0:U'!46JMZ-"K&%#0H`A0T*`P4-51$@>>P``04!$#P%%0 MT:WH4!\#,9(`T*WD5>$#91S0JQQ1T*W@5>\`&&50Q*$44,"A&%#!H1Q@4!$% MGL\!]U#5[SR\```3&M7O,+P``!(2W5#=:MVK!)_/5_[[!._4LP``Z*L4/]T' MT*L84-"@"%#=H##0:U`2!3R/`!!0W5#[`^\4LP``T5"/_____Q(6W:L$W>_J MMP``G\\^_MT!^P3O`;,``(@!JQ30K>15X`-E`S'A`-2M_-VMZ-U:^P+OE[,` M`-!05M"MY%7A!64#,>(`T*W@5>\`&&50Q*WL4,&M]%!8T*WT59%%H`0=$@30 M6ZW\P:WP:%G4?I^M_-U;W5G[!,\?`M!05Q(8W:L$W>]OMP``W5F?S]_]W0'[ M!>]$LP``T*<(4L!25M"M_%$3`\!A5M"MY%7I903#:U96T*WD5>$'94?541-# MT*<,4-&H#%`3(=U0W:@,W:$$P6%2?MU9G\^S_?L&[\JR``#0IPA2T*W\4=VM M_-VH#,%A4G[=!]VMZ-U9^P;/\``1)]1^W:WHW581%=1^W:WHW:WHW5K[`N^T ML@``P5!K?MU:^P3OO[(``,`(K>#`"*WDP`A:T5JM^!X#,27^Z:L40]T%T*L8 M4-"@"%#=H##0:U`2!3R/`!!0W5#[`^^OL0``T5"/_____Q(6W:L$W>^%M@`` MG\]4_=T!^P3OG+$``(H!JQ0$`<``T*P$5]#_4K```%83*]"F$%`3!=%05Q(9 MT&90D:`$!Q(0W:`,W:`(W:8,^P/O.[(``-"F!%82U@0$`0``P@1>T*P$4-!0 MK?S=`9^M_-U0W:P(^P3/O`#04%$3#-"M_%#!8*$(4/L`8`3``="L!%C06%+4 M495H$QMXC_)14#Y!8%"8@E',45#+CP#`__]0495B$N7'.5%0Q#E0PU!14-Y` M[]BY``!7$03!4`A7T&=0$O?=%/L![[^Q``#04%;=$/L![[.Q``#04&;=6/L! M[PNQ``#09E'04&'09E#0K`B@"-!F4)"L#*`$T&90T*P4H`S0K!"F#-"L&*80 MU*8(T/]:KP``I@305O]1KP``T%9GT%90!,`/PA1>U*W\U*WTT*P$4M11D&*M M\Y"M\U,3&WB/\E%0/D%@4)B"4D$*P$ MT*P,6-!5:-"L!%B0:*WST*4<4]"E&%0Q.O_0I`A1$T.14`$2'(N/\*0%4)%0 M`A,,T:W\41XMT%&M_!$GU:P0$B+M!`2D!0(2#]6M]!(*T%2M]-!5K?@1"]"L M#%C056C05%`$T*4(51,#,:3^U:WT$PW0K`Q8T*WX:-"M]%`$U:W\$@/44`34 M?MVM_-1^W0'=K?S=`?L"[UNO``#=4-VL!/L&SS7]T*P,6-1HT&!0!%]E;F0` MP`_"&%[0K`A;U*WXU%6>[R:W``!2T()1$Q/085#1H`BL!!(#,14!T*$(41+M M\SA5Y-#_WZP``%82`S'\`-!6K?S46M"F'%#A`:`,`S'A`-&L!&8>`S'8`-T! MGZW\W5:?KYG[!,]I_=!F4\%3H`A0T:P$4!L#,;@`T*884-"@"%+0HB19$@,Q MIP#0IAQ1P5.A(%#!4*(8K>C0H1BM]-"A'*WPT*$4K>S45=%561A]U%?!K>A7 M4M%BC_____\39M52$V+%8JWL4,&M]%!3T*($4!,*T*WH6'Y`:%01`M14T%12 MD:,$`1,YT*W\4,%@HPA1T5%:'RO14:P$&B70I@1KT*8<4,%FH""K!,&M\&.K M"-!1JPS14:P$$S3045K0`:WXU502GL`(5_)95875K?@2'="F"%83`S$$_]10 M!-1KU*L$T&%0T&"K"-"L!*L,T`%0!$-A;&P@=&\@8FEN9&5R(&9R;VT@=6YK M;F]W;B!L;V-A=&EO;CH@)7`*`%5N9&5F:6YE9"!S>6UB;VP@(B5S(B!C86QL M960@9G)O;2`EKJ!>U'[4 M?I^OWOL#[Q"L``#04.]IM0``T5"/_____Q(#,;T`GZV@W5#[`N^-K```U5`3 M`S&J`-"MU%#04.]#M0``T5`?&@,QEP">P/\/4,J/_P\``%#04.\HM0``?'[= M[QRU``#=`MT!W5#4?OL'[\6K``#04%'148______$V'04>\"M0``T6&/:4A$ M3!(-T._OM```4M&A&%(;"-WOXK0``!$,PP&A!%#14`$;#=U2W5'[`N^7JP`` M$27!4:$([\BT``#!4:$04-!0[\"T``#1H00!%0G!4*$<[_6O```$T.^:M``` M4!D)W5#[`>_:J@``T@#OC[0```0``-#OAK0``%`3*]%0C_____\3(MWO<+0` M`-U0^P+O,ZL``-WO7;0``/L![Z*J``#4[UBT```$`0``T*P$4M11E6(3&WB/ M\E%0/D%@4)B"4'=6-U9W5K[`\\<_]#O;+,``%/'HPQ0 M4<2C#%'#45!0Q#!0P>]9LP``4%;09E+0HQ11T5)1&*[0I@10T5!1&+/06E'` M[SVS``!2$0;64950$PZ085"14((3\I%AHO\20=&F"%D2.]&F*`$5!M&F#%@9 M+]57$R'=5_L![S^J``#=4,'O_[(``*8$?MU7^P/O-ZH``-50$@K![^FR``"F M!%`$T*8L4-%0C_____\2`S$Q_\0P4,'OR+(``%!6T.^\L@``4S%E_SH`=V%R M;FEN9SH@;&EB)7,N7=A>0`!P`?""%[0K`19T*P,6-"L$%K0K!16 MT.]3L@``4!(1^P#/O_S0[T6R``!0$@,QQP#14(______$@,QNP#5:A(#,;0` MT.\>L0``41('U582`S&0`-!64!(%GL_9ZU#=4)[/TNM2T%)0U5$3"=56$P6> MST3_4-U0T%%0$@/04E#=4/L#[T"I``#04%?05ZW\$1;=5MU8W:P(W5G[!,\7 M_M!05A,#,;$`G\\-_Y^M_/L"[Q^I``#04%82U]U7^P'O+:@``-(`K?C4?I^M M^)^L"-U9^P3O"*D``-!05A,'T:WX6!D!!-1^W5C=K`C=6?L$S\3]T%!6$P$$ MU&K2`*WXW>^XK```^P'O8:<``-1^GZWXGZP(W5G[!._$J```T%!6W>^7K``` M^P'OT*<``-56$R71K?A8&"O5[SBP```2(]U8W:WXW:P(W5F?SV[^^P7OV:<` M`!$,U%`$W5?[`>^/IP``T%90!'!R96QO860Z(&]U="!O9B!M96UOW:P$^P'O'Z<``-!06-!8K?P2:I^OE-T!^P+O@J<` M`-T0^P'OG:<``-!05A(.W5>?KX_=`?L#[V:G``#=5_L![^6F``#04&:*`:8$ MM*8*M*8(U'[=5OL"S_OMT%!1$@_=5Y_/=__=`?L#[S.G``#0H1Q0UJ`(T*$< M4,@(H`R?SWS]GZW\^P+OCJ<``-!05Q*/W5C[`>^T*P(6-1;W:P$^P'O<:8``-!0:(H!J`2TJ`JTJ`C=`Y^OT-U0^P/O+J<` M`-50$P$$P6@#4-!0K?C=+MU0^P+O1J<``-50$Q7=K?C[`>_\I@``T*WX49%! MH/\N$@$$T@!9T%E:U%<1:=%7`1,4'PW15P(3*]%7`Q,Y,9,`T%9;$4[05E"> MSW'_49%@@1()E8`3/9%@@1/WD6"A_Q)R$3#="I^M_-U6^P/OZ:8``-!06A$1 MW0J?K?S=5OL#[]:F``#04%F59A-(T*W\4)5@$D#65Y_/(O^?K?C[`N^3I@`` MT%!6$H356Q,GT&BM^-U;^P'OC:4``-!0:-VM^/L![XRE``"(`:@$L%JH"+!9 MJ`H$W6C[`>]VI0``W:P$^P'O8*4``-!0:`3``="L!%;0K`A8U582$M#_Q*,` M`%#0H!Q0UJ`(T`%0!-T0^P'OSZ4``-!05Q(*T`SOOZX``-10!-U7W5;[`L^5 M_MW_C:,``-U7^P+/.NS04%82']#_BZ,``.^6K@``W6?[`>\!I0``W5?[`>_X MI```$GZP(W:P$ MGLT`_U;=5OL#[YFD``#=5OL![SRD``#=4-U6W0'[`^^/I```!`$!)$YE=$)3 M1#H@;6%L;&]C+F,L=B`Q+C8N."XQ(#(P,#$O,#0O,#8@,#DZ,SDZ,C,@:&4@ M17AP("0``<`#T*P$6-#O-JT``%`2?/L`[TBD``#04%;05N\BK0``QU:/`(`` M`'[[`<^U`M50$@,QO`#0[XBL``!2PP%64=)24,M045#`!%##4%96&`?`[^VL M``!6U583",%25N]@K```U%?0"%'0[]6L``!0T5!1&PK`45'65]%041KVT%?O MPJP``-#ON*P``%##!%!6T5A6&@K0"%'45](#5A$3T%!1T.^?K```5Q$'P%%1 M$T'65\%15E#16%`:\,%75UB>[P:L``!9WD=I5M!F4A(+W5?[`:\@T&92$Q<^ M1VA0P%E0T&)@D(_O8I!7H@'!4@10!-10!`'``]"L!%G!60-0>%`!6!0!!-#O M-ZP``%'16%$8"=!15\=85U81!\%845?0`5;#[YNK``#OFJL``%#15U`5&L=1 M5U#'48\`@```4<%047[[`<^;`=50$@$$T.]PJP``4<%15^]GJP``T%%)[V>K M``#75A4.P5%84-!08=!04?56\P0$``#0K`10$@$$PP1049%AC^\3`020H0%2 MG`)24,J/`_S__U">0.\JJP``4-!@8=!18`3`!]"L!%G0K`A8U%K561((W5C[ M`<]!_@3#!%E6D6:/[Q()T`%:FJ8!41$CW0'=5OL"SYP`T%!1&!7=[QNF``#= M5OL"SXH`T%!1&`/0'E'!40-0>%`!5]#O/JL``%+15U(>!<($5Q$%GD>B_%?5 M6A,PU5$3%\%1`E!X4`%1T5%2&`7"!%$1!9Y!HOQ1T5A7&@G16%$;!-!94`3= M6?L!SR[_W5C[`<^Q_=!05A(#U%`$T5E6$QC05U#14%@;`]!84-U0W5;=6?L# M[T*A``#05E`$0`#0K`14T*P(4]10GN]`J@``5=12T(51$Q'14E,3#-%15!,/ MUE+085$2[_,=4.32`%`$!&UOSTW_5MU6^P'O=*`` M`-U0W5;=`OL#[\>@``#44`3%5^^MJ0``4,%14.\HJ0``P5%6[QRI``#05U`$ M+W5S\NGP``T/^XG0``4M#_M9T` M`%'04$*A^-U7^P'OWI\``)^@#/L!SU@%T/^4G0``4M#_D9T``%'04$*A_-!2 M4=#_@IT``%#00:#\5B@,SW#_9MU7T/]JG0``4=#_9YT``%#=0:#\^P+O%Z`` M``3``]"L!%G45M%6_T>=```9`S&3`-`(6-17W5G0_SF=``!0W49@^P+O]I\` M`-50$F/0_R2=``!0W49@^P'OD9X``-#_$YT``%#=1J`$^P'O?YX``-#__9P` M`%'#`E%0T590&"C#5E%0WT"?^/___]#_YIP``%#!4%=^P5!8?OL#[]*>``#0 M_\R<``!1PP)1_\.<``#`!%C`!%?R_[><``!6`A$#,7/_!`0Z`$``T*P$4!(! M!-U0^P'O"IX``-!05M!6K`01!]U0^P'/E/Z?K]F?K`3[`N_=G@``U5`2Z-U6 M^P'O[)T```0!0`#0K`10$@$$W5#[`>_,G0``T%!6T%:L!!$'W5#[`<_V_I^O MFY^L!/L"[Y^>``#54!+HW5;[`>^NG0``!`'``=`!6-16GN]SH@``5]V'^P'/ M)?[R6%;U!,`!U%?45M"L!%C0K`A0D&!1$S.142X2!M90T%"L")A@4=#_]YL` M`%#A`D&@`1S="I^L"-VL"/L#[UV>``#04(C65_,'5L305U`$U%`$8VUP;F1E M=V5Y.B!C86YT(&AA<'!E;@#``-"L"%/0K!!4U%+14E,8'M"L#%;0K`15T5)4 M&!'0A5'0AE#145`9$Q0:\E-2ZM%35!(#U%`$T5)3$@32`%`$T5)4$@30`5`$ MGZ^=W0'[`N]%G0``;&EB)7,`+P`NKH!>T*P$5M19T*P(4]!C MK9#0K`Q3T&.MC-U6^P'O99T``-!06L%:!U#*`U##4%Y>T%ZME-U6GZ^UW:V4 M^P/OX)T``,`#6M2MG-2MF-%9__B:```9`S&3`M#_\9H``%#0K9A3W4-@^P'O MPIT``-!0K8C4K834K8#54!(#,5\",38"U:P0$U;561)2FJ@'4<%:`E#145`2 M1=U:W:V4P5@(5MU6^P/OZIP``-50$B^12J@(+A(HD4JH"8]A$B#=5I_/,O_0 M_X>:``!0T*V84]U#8/L#SX@"T%!9T`&MA)JH!U'!6@10T5%0&`,QRP'=6MVM ME)^H"/L#[YB<``#54!,#,;4!W02?S^[^GDBJ"%;=5OL#[WV<``#54!,#,9H! MGZ8$GZW`^P+/#?[04%L2`S&'`=&MD(______$Q/5K803#MU9^P'O?YL``-19 MU*V$GZ@(G\^@_M#_]9D``%#0K9A3W4-@^P//]@'04%:?SXW^W5;[`N_$G``` MT%!7W5;[`>]$FP``U5<2`S$M`=U7W2#=`9^MH/L$[ZV<``#14"`3#-U7^P'O MJYP``#$,`=U7^P'OGYP``-"MH%+34H\``/__$QV]1F@``GZ@(G\]W_=#_S)@``%#0 MK9A3W4-@^P//S0#04%G4K83=(-U7W5;[`^^HF@``T%NMG-"L"%/0K>!CT*P, M4]"MY&/=K8C[`>^>FP``T%!8$P,QN/W=K8C[`>^8FP``U:V$$A/5K8`2#O+_ M:)@``*V8`A$#,6W]T%E0!'9I]"F@``U5`2#)^OT]T!^P+O#IH```0!``#0K`11T*P(4-51$@O=4/L! M[QF:```1"]U0W5'[`N\LFP``U5`2#)^OG=T!^P+OV)D```0!P`_0K`19T*P( M6]U9^P'O%YH``-!06-U;^P'O"YH``-!06MVL#/L![_Z9``#!6%I7P%!7GZF4Z("5X```` MT*P$4-"L"%+A!*`'&]!B4>F@!Q#08%">0:`$41,&P`10SE!BT%%0!-!B4`0` M`-"L#%#0K`A@!`$``-"L!%+0K`Q1PPE14,.L"%!3U:P0$P^PCP$!8I`!H@*0 M%Z(#$0ZP86*0`:("D!>B`\`"4Y"/[Z($D%.B!=`(4>]1&%-0D%"B!M`04.]0 M4%-0D%"B!^\845-1D%&B")`$H@D$``#0K`11T*P(4-!A8)`#800!)$YE=$)3 M1#H@=F9P'`@)``!0`#0K`A6U:8($@;4I@344`3=5MVL!/L"[YN9``#4I@C4I@0$ MP`&>SJC[7M"L!%BK`J@,K;2PJ`ZMMM"H'*W$T*@LK=2>S:C[4-!0K:C04*VX M/(\`!*VP/(\`!*V\U*W`W:P,W:P(GJVH5]U7^P//AP#04%89$-U7^P'O19D` M`-50$P/2`%;A!JVT!JB/0`"H#-!64`0@("`@("`@("`@("`@("`@,#`P,#`P M,#`P,#`P,#`P,#`Q,C,T-38W.#EA8F-D968`*&YU;&PI`#`Q,C,T-38W.#E! M0D-$148`8G5G(&EN('9F<')I;G1F.B!B860@8F%S90#`#Y[.7/]>T*P(5M3- M:/_0K`13X0.C#`75HQ`2'-VL!/L![[&8``#54!,.^P#OLI@``-`)8-(`4`30 MK`13JX_E_Z,,4+%0"A(2M:,.&0W=K`S=5MU3^P//TOX$T%:M@)ZMM%C06*WT MU*W\U*WXU,UX_\,$K`Q:T*V`6Q$-P%:M@-&MB"42`S'"`-W_^90``-VM@)^M MB/L#[U28``#04%84V\-;K8!7$SO06VC05Z@$P%>M_,`(6-"M^%#!4`&M^)Z@ M`5#14`<5%I^M]-VL!/L"SS7^U5`3`S$S"9ZMM%C`5\UX_]56%`,Q#`G6K8#4 MS7S_U,UP_]3-=/_2`%*4K8?0K8!3UE/04ZV`UU.88UF:CV-0T5E0$@,Q+P(5 M`S&5`-%9.118T5DQ&0,QQ`'162L2`S$>`10FT5DC$@,Q&P$4$=%9(!(#,0(! M,6L%UZV`,5#_T5DJ$@,Q"`$Q6@7162X2`S$=`10+T5DM$@,Q"P$Q107163`2 M`S%K`3$Z!9J/3U#165`2`S&<`A0/T5F/1````!(#,<$!,1T%T5F/50```!(# M,4`#T5F/6````!(#,8(#,0(%FH]O4-%94!(#,6D"%$2:CVE0T5E0$@,QC@$4 M&]%9CV0````2`S&``=%9CV@````2`S$W`3'+!-%9CVP````2`S$T`=%9CVX` M```2`S'(`3&P!)J/````!(#,?4",6P$E:V'$P,QK?Z06:V' M,:;^R`'-?/\QGO[`!%K`!*P,T&K-=/\9`S&-_L[-=/_-=/_(!,U\_S%^_M"M M@%/64]!3K8#74YAC6=%9*A(8P`1:P`2L#-!J5M!64AD#,5C^T@!2,5+^U%81 M''Y&9E">0*;04,%065;0K8!3UE/04ZV`UU.88UG#,%E0T5`)&]O05E(9`S$P M_M(`4C$J_LB/@````,U\_S$/_M16?D9F4)Y`IM!0P5!95M"M@%/64]!3K8#7 M4YAC6<,P65#14`D;V]!6S73_,>_]R(]`````S7S_,=3]T*V`4Y%C61(-GJ,! MK8#((,U\_S&^_<@0S7S_,;;]P`1:P`2L#)!JK8PQ:@/($,U\_]#-?/]3X053 M$<`(6L`(K`S0K`Q3?:/X5A$PT,U\_U/@!%,5T,U\_U/A!E,,P`1:P`2L##)J M4!$*P`1:P`2L#-!J4-!05GB/X5!7U5<8&WU6?M!2S6#_^P+O0Y4``'U05I`M MK8?0S6#_4M`!43'8`=#-?/]3X053&L`$6L`$K`S0:E+0S7C_4'B/X5!1?5!B M,8C\T,U\_U/@!%,;T,U\_U/A!E,2P`1:P`2L#-!J4+#->/]@,63\P`1:P`2L M#-!J4-#->/]@,5+\R!#-?/_0S7S_4^$%4Q'`"%K`"*P,T*P,4WVC^%81*M#- M?/]3X`13%=#-?/]3X093#,`$6L`$K`P\:E81"L`$6L`$K`S0:E;45]11,2X! MP`1:P`2L#-!J5M17T`)1GL\X^\UH_\@"S7S_FH]X63$,`<`$6L`$K`S0:EL2 M!9[/*OM;U5(9+=U2U'[=6]!2S6#_^P/O390``-#-8/]2U5`3#,-;4%?15U(4 M`S'X`=!25S'R`=U;^P'OV9(``-!05S'C`<@0S7S_T,U\_U/A!5,1P`A:P`BL M#-"L#%-]H_A6$2K0S7S_4^`$4Q70S7S_4^$&4PS`!%K`!*P,/&I6$0K`!%K` M!*P,T&I6U%?0`5$1;9[/GOK-:/\1!Y[/??K-:/_0S7S_4^$%4Q'`"%K`"*P, MT*P,4WVC^%81*M#-?/]3X`13%=#-?/]3X093#,`$6L`$K`P\:E81"L`$6L`$ MK`S0:E;45]`"4=#-?/]3Z5,.R5974!,(R`)3T%/-?/^4K8?04LUP_QD)RH^` M````S7S_GJVT6\E65U`2"=7-!U74^\#5592R5)34.\# M55=1?5!6R5974!+9UQ%-T`15D!Q4 MRX_P____5E#0S6C_4Y!#8'MX'%?-7/_O55164LE2S5S_4.]55%=1?5!6R597 M4!+0$1704%O=6_L![QF1``#04%>0K8=0$27#6UU0GJ"T5Y"MAU`1%]59$@,Q M.0.06:V,GJV,6]`!5Y2MAY10T%?-;/_15\UP_Q@'T,UP_\UL_Y50$P;6S6S_ M$0[0S7S_4^$!4P7``LUL_Y/-?/^/A!,#,8<`P\UL_\UT_U85?=%6$!5`GL^' M^&C0$*@$P!"M_,`(6-"M^%#!4`&M^)Z@`5#14`<5%I^M]-VL!/L"S\GWU5`3 M`S''`IZMM%C"$%;15A`4P)[/1_AHT%:H!,!6K?S`"%C0K?A0P5`!K?B>H`%0 MT5`'%1:?K?3=K`3[`L^)]]50$P,QAP*>K;18E:V'$PV>K8=HT`&H!-:M_!$= MT,U\_U/A`5,_D#"MA)!9K86>K81HT`*H!,`"K?S`"%C0K?A0P5`!K?B>H`%0 MT5`'%1:?K?3=K`3[`L\O]]50$P,Q+0*>K;18RX][____S7S_4-%0CX`````3 M`S&'`,/-;/_-=/]6%7W15A`50)[/H/=HT!"H!,`0K?S`"%C0K?A0P5`!K?B> MH`%0T5`'%1:?K?3=K`3[`L_2]M50$P,QT`&>K;18PA!6T580%,">SV#W:-!6 MJ`3`5JW\P`A8T*WX4,%0`:WXGJ`!4-%0!Q46GZWTW:P$^P+/DO;54!,#,9`! MGJVT6,-7S7#_5A5]T580%4">SQOW:-`0J`3`$*W\P`A8T*WX4,%0`:WXGJ`! M4-%0!Q46GZWTW:P$^P+/3?;54!,#,4L!GJVT6,(05M%6$!3`GL_;]FC05J@$ MP%:M_,`(6-"M^%#!4`&M^)Z@`5#14`<5%I^M]-VL!/L"SPWVU5`3`S$+`9ZM MM%C06VC05Z@$P%>M_,`(6-"M^%#!4`&M^)Z@`5#14`<5%I^M]-VL!/L"S]?U MU5`3`S'5`)ZMM%C0S7S_4^$"4WW#S6S_S73_5A5ST580%4">ST7V:-`0J`3` M$*W\P`A8T*WX4,%0`:WXGJ`!4-%0!Q46GZWTW:P$^P+/A_754!,#,84`GJVT M6,(05M%6$!3`GL\%]FC05J@$P%:M_-"M^%#!4`&M^)Z@`5#14`<5#Y^M]-VL M!/L"STKUU5`22]#-;/]0T5#-=/\8!=#-=/]0P%#->/_5K?P3#Y^M]-VL!/L" MSR#UU5`2(=2M^)ZMM%@Q@/;5K?P3#Y^M]-VL!/L"SP+UU5`2`]2M^-"L!%/A M!J,,!=(`S7C_T,UX_U`$`0$!0"@C*6)C;W!Y+G,)."XQ("A"97)K96QE>2D@ M-B\T+SDS``$!0`#0K`11T*P(4]"L#%;145,4"AD7!,)05BA086,\C___4-%6 M4!3O*%9A8P3`5E'`5E,\C___4!$8PE!6PE!1PE!3*%!A8SR/__]0PE!1PE!3 MT590%./"5E'"5E,H5F%C!`$!`21.971"4T0Z('9S<')I;G1F+F,L=B`Q+C$P M(#(P,#`O,#$O,C$@,3DZ-3$Z-#`@;7EC'`@)``!``">KJA>T*P$ M4+(`K;:PCP@"K;304*VHT%"MN-"/____?ZVPT(____]_K;S=K`S=K`B?K:C[ M`^\&C@``T*VH491A!`$!`21.971"4T0Z(&5R6-R;V9T M($5X<"`D``'`!\($7M"L!%G0K`A8D6@]$@+66-U8GO^4B0``5_L!9]!06I^M M_-U9^P+O.8T``-!05A,? M`````'[=_\V(``#=5OL#[[2,``#05O^]B```T/^WB```4-1'H`305ZW\T%E0 ME6D3"Y%@/1,&UE"58!+UPUE04)]`J@+[`>^UB@``T*W\4M#_@X@``%'04$)A M$X/0K?Q0T/]RB```4=!`8581!Y%F/1,*UE:0B5"04&82\9`]AI"(9I6&$ODQ M&/\!P`#"!%[0K`17GO]OB```5A$;>`*M_%#!_S&(``!041$#P`11T*$$4-!0 M81+TGZW\W5?[`F;54!+9!"1.971"4T0Z('9E6-R;V9T($5X<"`D`"5S.B``"@#``="L"%?=__R' M``"?K^J>_\^'``!6G\:P`)[_[(<``%C[`VC55Q,0W:P,W5>?QK``^P/O:(L` M`)^OPY_&L`#[`FC=K`3[`>^TB```)$YE=$)31#H@'`@)``!``#0K`10$P258!(#U%`$U:P($@32`%`$T`%0!``` MT*P$4="L"%`2`]10!-6L#!($T@!0!-51$P.88&&58!/IT`%0!`$``-"L!%`2 M`]10!)"L"�`5`$`0``T*P$4]"L"%30K`Q1U%+541,FU5,3'IB$4-!0@Q,: MUE+741,4F(10T%"#$O(1"M92UU$3!)6$$O;04E`$``#0K`14T*P(4="L#%+4 M4]51$@/44`355!(0U8$3'=93U8$2^A$5UE/74M52$PV085"04(3`!%&54!+K MT%-0!"1.971"4T0Z('5M;V1D:3,N8RQV(#$N,R`Q.3DW+S`W+S$S(#(P.C`Q M.C4X(&-HGZWX?:P,?GVL!'[[!>^MB0``?:WX M4`0D3F5T0E-$.B!U9&EV9&DS+F,L=B`Q+C,@,3DY-R\P-R\Q,R`R,#HP,3HU M-B!C:')I'`@)````-1^?:P,?GVL!'[[!>]9B0``!"1.971"4T0Z M('-E=&QO8V%L92YC+'8@,2XQ-RXV+C0@,C`P,2\P,2\R-2`Q.#HP-3HQ,2!J M:&%W:R!%>'`@)`!,0U]-15-304=%4P!,0U]424U%`$Q#7TY5345224,`3$-? M34].151!4ED`3$-?0U194$4`3$-?0T],3$%410!,0U]!3$P`4$%42%],3T-! M3$4`+W5S`6L!%">0._GB@``4`2>[P>0``!8P5@@5I[OU(H``%?` M(%>>R,``6=T@W5?=5OL#[T:(``#`(%;`(%?15ED5Z)5J$P,QMP">[XJ*``!9 MT*P$4MU":9[_2(0``%K[`6K04%83!)5F$@C=:?L!:M!05M56$P259A(*G\\S M__L!:M!05M56$Q.59A,/W2_=5OL"[V:&``#54!,%GL\7_U;=(-U6>`6L!%#! M4%A^^P/OR8<``-6L!!,#,4@!P5@@5\`$6=V)^P%JT%!6$Q.59A,/W2_=5OL" M[R&&``#54!,#T%A6W2#=5MU7^P/OC8<``,`@5Y[(P`!0T5=0%<8Q_P#5K`03 M%]T@W5IX!:P$4,%06'[[`^]DAP``,>,`W2_=6OL"[]:%``#04%<2(<%8(%:> MR,``5]T@W5K=5OL#[SN'``#`(%;15E<5ZS&R`-`!6)"G`5"14"\2$,%7`5'6 M5]91D&%0D5`O$_254!(#,>,`>`5869Y)[Z*.``!;PUI74-`?5M%0'QH#T%!6 MW5;=6MU;P"!9P"!;UEC[`^_IA@``P5994)1`[W*.``#`(%G`(%O66-!76I!G M49%1+Q(1UEJ0:E&142\3]A$%D5`O$P?65Y!G4!+TE5$2HM%8!A0@>`585I[O M-(X``%?=()]&I^"?1F?[`^^#A@``T5@&%>O5K`03"=VL!/L!S^$`!-19T`%8 MGL_7`%J>[^".``!0P5`@5Y[OS8@``%;`(%;=(-U6W5?[`^]$A@``W5C[`6K5 M4!,#T`%9P"!7P"!6\P98W=59$@/44`3[`*\1!"5S+R5S+R5S+R5S+R5S``'` M!YJ/YWZ>[WZ(``!7GZ<@G^]IT!6GL?` M`%C=5I^I(/L":M50$A#`(%;15E@5[)[O*(\``%`$G\>@`)_'@`"?IV"?IT"? MIR"?KY":C^=^G^\(CP``^PCON84``!'14$]325@`)7,O)7,O)7,`P`^>S@#\ M7M"L!%EX!5E:GDKO\H<``%C=6)[O$8T``%O!6EM6W5:>_Y"!``!7^P)GU5`2 M!-!84`2?SXW\W5;[`F?54!,,GZ^IW5;[`F?54!)^T5D"$FG0_T2!``!0GO]= M@0``5]%05Q,0W5#[`>^B@@``T%?_)X$``-#_18$``%">_T*!``!7T5!7$Q#= M4/L![W^"``#05_\H@0``T/\J@0``4)[_)X$``%?14%<3$-U0^P'O7((``-!7 M_PV!``#=(,%:6WZ>2N\\AP``5A%*W4GO%H<``-U6W>_ZC@``G\\5_SR/``1^ MGLT`_%;=5OL&[[.$``#160(2+-U6^P'OL80``-50$Q_=()J/0%;!6U9^GD;O M\(8``%;=5OL#[VZ$``#05E`$U%`$`0$!<@!"4T1#5%E010`!P`_"%%[4K>S4 M6-19GZ_EW:P$^P+O-X,``-!05Q(#U%`$W5?=`=T(GZWX^P3O*X,``-!05M%6 M`1,#,>"``#14*WP$P,Q)0$_0)\"````^P%KT%!8$@,Q$P&R`(#=5]VM M\-U6W5#[!.\Y@@``T5"M\!,#,?<`/T"?`@```/L!:]!061(#,>4`L@"`W5?= MK?#=5MU0^P3O"X(``-%0K?`3`S')`-!:K?306E+14E`:1M`(5)`84[!":%$\ M45#O5%-04'@(45&I45!":-"M]%*P0FE1/%%0[U134%!X"%%1J5%00FG04E#! M4`&M])Z@`5+14JWP&\#=5_L![[.!``#0_ZU^``!0GO_&?@``5=%051,)W5#[ M`>\+@```T*WL_X]^``#0_ZU^``!0GO^J?@``5=%051,)W5#[`>_G?P``T%C_ MD'X``-#_DGX``%">_X]^``!5T5!5$PG=4/L![\1_``#06?]U?@``T`%0!-U9 MGO]U?@``5OL!9MU8^P%FW:WL^P%FW5?[`>\E@0``U%`$=P#`#\($7M"L#%K0 MK!!;/(\``5B?K^G=K`3[`N_I@```T%!7$@/44`3=5]T!W0B?SWW]GO\E?@`` M6?L$:=%0`1,#,>D`T`)3G(_X4U7P51`(59P(4U&045705:W\W5?=4-T$GZW\ M^P1IT5`!$P,QO0"`A14:E14$)JT*W\4K!":U$\45#O5%904'@(45&I45!":\%2 M`:W\GJ(!4M%26!O$W5<\CP`!?MT"GZH"^P1IT5!8$B'=5SR/``%^W0*?JP+[ M!&G14%@2#=U7^P'O^'\``-`!4`3=5_L![^M_``#44`0D3F5T0E-$.B!S=')L M8W!Y+F,L=B`Q+C4@,3DY.2\P.2\R,"`P-#HS.3HT-R!L=6ME;2!%>'`@)``! M``#0K`A4T*P,4]"L!%+05%#54Q,=PP%341$"UU'541,+D(!BE8(2\]51$@K5 M4Q,"E&*5@!+\PU104-=0!`$``+P9!`$!`0``O"L$`0$!__\```$``@`#``0` M!0`&``<`"``)``H`"P`,``T`#@`/`!``$0`2`!,`%``5`!8`%P`8`!D`&@`; M`!P`'0`>`!\`(``A`"(`(P`D`"4`)@`G`"@`*0`J`"L`+``M`"X`+P`P`#$` M,@`S`#0`-0`V`#<`.``Y`#H`.P`\`#T`/@`_`$``00!"`$,`1`!%`$8`1P!( M`$D`2@!+`$P`30!.`$\`4`!1`%(`4P!4`%4`5@!7`%@`60!:`%L`7`!=`%X` M7P!@`$$`0@!#`$0`10!&`$<`2`!)`$H`2P!,`$T`3@!/`%``40!2`%,`5`!5 M`%8`5P!8`%D`6@![`'P`?0!^`'\`@`"!`((`@P"$`(4`A@"'`(@`B0"*`(L` MC`"-`(X`CP"0`)$`D@"3`)0`E0"6`)<`F`"9`)H`FP"<`)T`G@"?`*``H0"B M`*,`I`"E`*8`IP"H`*D`J@"K`*P`K0"N`*\`L`"Q`+(`LP"T`+4`M@"W`+@` MN0"Z`+L`O`"]`+X`OP#``,$`P@##`,0`Q0#&`,<`R`#)`,H`RP#,`,T`S@#/ M`-``T0#2`-,`U`#5`-8`UP#8`-D`V@#;`-P`W0#>`-\`X`#A`.(`XP#D`.4` MY@#G`.@`Z0#J`.L`[`#M`.X`[P#P`/$`\@#S`/0`]0#V`/<`^`#Y`/H`^P#\ M`/T`_@#_````T*P$4=#OGH$``%`R0:`"4`0!`0$D3F5T0E-$.B!S=')C<'DN M8RQV(#$N,3(@,3DY.2\P.2\R,"`P-#HS.3HT-B!L=6ME;2!%>'`@)``!``#0 MK`12T*P(4=!24Y!A4)!08Q,,UE'64I!A4)!08A+TT%-0!`$D3F5T0E-$.B!S M=')C870N8RQV(#$N,3(@,3DY.2\P.2\R,"`P-#HS.3HT-B!L=6ME;2!%>'`@ M)``!``#0K`10T*P(4M!0495@$P;6495A$OJ0@F&5@1+Y!`$!`21.971"4T0Z M('-P\&?```U5`3#OL`[P=\``#0"6#2 M`%`$FE=7PZ809E'14:84&0_=5OL![]%[``#54!+AU%'7I@C09E"05V#69M91 MT5&F%!,)Z:8,$M%7"A(-W5;[`>^F>P``U5`2MM!74`0!`21.971"4T0Z('-T M```4]!34)J+4N`#0J`!]]%2+1(&T`&M_!$( MU*W\T5(K$@.8BU+561,%T5D0$A[14C`2&9!K4)%0CW@3!I%0CU@2"IBK`5+` M`EO0$%G561(+T`I9T5(P$@/0"%G0C____W]8U:W\$P?0CP```(!8QUE84,50 M65'#45A:T%!8U:W\$PW56A4&PUE:6M98SEI:U%;45Q%JT5)9&0,QB`#55QE; MU:W\$R315E@9!Q(1T5):%0S2`%?0CP```(!6$2+0`5?$65;#4E96$3+15E@4 M!Q(BT5):%1W2`%?0C____W]6^P#O@GH``-`B8-#_&7<``%,1"=`!5\195L!2 M5IJ+4I!"HP%1X0)1!<(P4A&(BX_\45`3$9ZBJ5#I403#-U)0T%!2,7#_U:P( M$Q/0K`10U5<3!,,!6U#0K`A4T%!DT%90!"1.971"4T0Z('=A@``!"1.971"4T0Z('!R:6YT9BYC+'8@,2XX(#$Y.3DO,#DO,C`@,#0Z M,SDZ,S$@;'5K96T@17AP("0```"?K`C=K`2>_R9V``!0GZ!8^P/OUWD```0! M`21.971"4T0Z(&9O<&5N+F,L=B`Q+CD@,C`P,"\P,2\Q-2`P,3HQ,3HT-2!C M:')I'`@)`#``9ZNG%Z?K9S=K`C[`N\7>@``T%!8$@,QL`#[`.\4 M>@``T%!6$@,QH0`\C[8!?MVMG-VL!/L#[T)W``#04%<8`S&$`.$"K9P]GZV@ MW5?[`N_%=P``T5"/_____Q,=RX__#___K:A0T5"/`(```!,6^P#OVW@``)J/ M3V#=5_L![Z9V```10K!7I@ZP6*8,T%:F')[_FG4``*8DGO^6=0``IBR>_Y)U M``"F*)[_CG4``*8@X0.MG`W=`GQ^W5;[!.]^>0``T%90!+2F#-10!"1.971" M4T0Z('9W87)N+F,L=B`Q+C0@,3DY.2\P."\Q-R`P,SHT-SHT,"!M>6-R;V9T M($5X<"`D`"5S.B``.B``)7,*``'``]"L!%G[`.\Q>```T&!8W?_8=```GZ_: MGO^K=```5I_&L`">_\AT``!7^P-GU5D3&MVL"-U9G\:P`/L#[T1X``"?K[.? MQK``^P)GW5C[`>_E>```W5"?KZ&?QK``^P-G!"1.971"4T0Z('=A6-R;V9T($5X<"`D``$``)^L M"-VL!/L"[YMX```$`0'__P```0`"``,`!``%``8`!P`(``D`"@`+``P`#0`. M``\`$``1`!(`$P`4`!4`%@`7`!@`&0`:`!L`'``=`!X`'P`@`"$`(@`C`"0` M)0`F`"<`*``I`"H`*P`L`"T`+@`O`#``,0`R`#,`-``U`#8`-P`X`#D`.@`[ M`#P`/0`^`#\`0`!A`&(`8P!D`&4`9@!G`&@`:0!J`&L`;`!M`&X`;P!P`'$` M<@!S`'0`=0!V`'<`>`!Y`'H`6P!<`%T`7@!?`&``80!B`&,`9`!E`&8`9P!H M`&D`:@!K`&P`;0!N`&\`<`!Q`'(`0!Z`'L`?`!]`'X` M?P"``($`@@"#`(0`A0"&`(<`B`")`(H`BP",`(T`C@"/`)``D0"2`),`E`"5 M`)8`EP"8`)D`F@";`)P`G0">`)\`H`"A`*(`HP"D`*4`I@"G`*@`J0"J`*L` MK`"M`*X`KP"P`+$`L@"S`+0`M0"V`+<`N`"Y`+H`NP"\`+T`O@"_`,``P0#" M`,,`Q`#%`,8`QP#(`,D`R@#+`,P`S0#.`,\`T`#1`-(`TP#4`-4`U@#7`-@` MV0#:`-L`W`#=`-X`WP#@`.$`X@#C`.0`Y0#F`.<`Z`#I`.H`ZP#L`.T`[@#O M`/``\0#R`/,`]`#U`/8`]P#X`/D`^@#[`/P`_0#^`/\```#0K`11T.]R>0`` M4#)!H`)0!`$!`21.971"4T0Z(&5RS%5UA6GJWL4-!6H`305JW\T%"M]-`!K?B?K?3=K!#[`N\C=``` MU5`3$=U8PZW\5G[[`N_Q<@``T%!7T%=0!`$!)$YE=$)31#H@9G9W MT*P$6-"L"%/5HP@2`S&J`N$#J`P%U:@0$AO=6/L![[YS``#54!,.^P#OOW,` M`-`)8-(`4`30K`A5T&5:T&I9T*H$5\`(6K"H#%'A`5%0$0K0:EG0J@17P`A: MU5<3\M!74-%7CP`$```;!3R/``10W5#=6=VH'-"H+%#[`V#04%84`S$X`L!6 M6<-65U?0K`A5PU:E"%#04*4($K\Q'`+I40,Q*`&PJ`Q1U5<2#M!J6="J!%?` M"%K55Q/RJX__O5%0L5"/`$(24=&H"%<>2\.H$&A;T*@45I[_`7```%+!6U=1 MP5964,%0`5;15E$?\Y^F`=VH$/L"8M!041(#,;X!PZ@45E#`4*@(T%&H$-!6 MJ!3!45MHL*@,4="H"%;A"5$FGO^[;P``4-%75AX#T%=6W5;=6=UH^P-@PU:H M"*@(P%9HT%=6$6K0:%#14*@0&R?15U8;(MU6W5G=4/L#[_AR``#`5FC=6/L! M[VAR``#54!,#,4D!$3K0J!16T5=6'QC=5MU9W:@\[<0``U5`2']2M_,!6 M6<-65U?0K`A5PU:E"%#04*4($P,Q%__44`2HCT``J`S2`%`$`0$D3F5T0E-$ M.B!F6-R M;V9T($5X<"`D`"5S.B``"@`!P`'0K`17W?\:;```GZ_IGO_M:P``5I_&L`"> M_PIL``!8^P-HU5<3$-VL"-U7G\:P`/L#[X9O``"?K\*?QK``^P)H!`$!`21. M971"4T0Z(&UE;6-H'`@)````#R/``A^G^]E>0``W:P$^P/OJV\```0!`21. M971"4T0Z(&5X:70N8RQV(#$N."`Q.3DX+S$P+S$X(#$T.C,V.C,P(&ML96EN M:R!%>'`@)``!P`'0_S1K``!8$QW#`:@$5QD1WD>H"%;09E#"!%;[`&#T5_30 M:%@2X]#_$FL``%`3`_L`8-VL!/L![SYO```!`21.971"4T0Z('=S971U<"YC M+'8@,2XY(#$Y.3DO,#DO,C`@,#0Z,SDZ,S4@;'5K96T@17AP("0`0`#0K`16 MU?_`:@``$@?[`._[;@``L*8,4.`#4#[@!%`$T@!0!.$"4"W0IC!1$QF>ID!0 MT5%0$PG=4?L![Y]K``#4IC"PI@Q0JB10L%"F#-2F!-"F$&:I"%"F#-6F$!() MW5;[`>^S;@``L*8,4.E0"M2F",ZF%*88$0[44>`!4`30IA11T%&F"-10!`$D M3F5T0E-$.B!?7W-T*MU8T/_&:0``4-U&8-U6 MW0'=5_L$[Q5N``#=4-U9^P/O/FT``)1(J?\1(MU6GZ^9/(___W[=`=U7^P3O M[VT``-U0W5C=6?L$[R)M``#=5_L![^5M``#065`$`4Y,4U!!5$@`+W5S>SOS[7M"L!%D3!)5I$@32`%`$W2_=69[_&VD``%K[`FK54!,(W5G[ M`<\(`03[`.]\;```U5`2$I^OA9[_HV@``%;[`6;04%<2#)[/>O]7GO^/:``` M5I^OG?L!9M!06!,+W2_=6/L":M50$P2>KXQ8T%=6GLW\^U*09E&>S[4`6I51 M$@,Q@@##!%U3D5$Z$WF142429=96D&90D5"/8Q-B%`Z14(],$Q:14(].$RD1 M0)%0CVP33)%0CW031A$RT%A0E6`3/<,$75'14E$>-)"`@I5@$RT1\M!94)5@ M$R3#!%U1T5)1'AN0@(*58!,4$?+14E,>#9!F@A$(T5)3'@.048+65I!F41*" ME&*>S?S[5]U7^P%JT5"/_____Q(5D&91$P765I!F4=!74I51$P,Q5?\$!,`` MGJZ@7M1^W:P$^P+O$FD``-!05]%7C_____\2`02?K:#=5_L"[Y5I``#54!,- MW5?[`>^8:```T@!0!'Q^W5?=`=T!W:W4U'[[!^_L:```T%!6W5?[`>]T:``` MT5:/_____Q,JT&92G(_X4E#P4!`(4)P(4E&045#14(^)_XC_$@W="/L![Q%I M``#54!(0W:W4W5;[`N^Y:```T@!0!-!68-"MU*`$!,`/T*P$4-"L"%G14(__ M____$@_[`.\V:@``T`E@T*P04`308%;!5A17U%70I@1;G(_X6U#P4!`(4)P( M6U&045##`5!3T553%0,Q\P#!55-1>(_A45#0'UB0`5KO6%I04,!047B/_U%2 MQ5(,4,%05U309%N(__45+%4@Q0P5!75-!D6YR/^%M0\%`0"%"<"%M1D%%0PU"L#%`3-1@& MPP%24Q$$P5(!5=%54Q6V$1+54!@'PP%24S$,_\%2`54Q!?_[`.\*:0``FH]3 M8-"L$%`$T*806YR/^%M0\%`0"%"<"%M1D%%0GD"F%%#0I`A4G(_X5%+P4A`( M4IP(5%&045+`4E`$`0%``-"L!%;15H______$@[[`.^V:```T`E@T%90!-56 M$Q7=I@3=9OL"[_MF``#=5OL![ZIF``#44`0!`0$D3F5T0E-$.B!?7V5R7!E(&]R(&9O M2!L979E;',@;V8@2!N;W0@0!07!E(&9O0!);F%P<')O<')I871E(&EO8W1L(&9O2!O<&5N(&9I;&5S(&EN('-Y M0!/<&5R871I;VX@;F]T('-U<'!O2!D979I8V4`0W)O M&ES=',`1&5V:6-E(&)U&5C(&9O"YC+'8@,2XQ M,2`Q.3DY+S`Y+S(P(#`T.C,Y.C0T(&QU:V5M($5X<"`D````T*P$4)"L"%*0 M8%&145(2`02541(#U%`$UE`1[`$!)$YE=$)31#H@2YC+'8@,2XQ M,2`Q.3DY+S`Y+S(P(#`T.C,Y.C0X(&QU:V5M($5X<"`D````T*P$4-"L#%$3 M'-!04M"L"%,1!-=1$P^0@V*5@A+U$0*4@M=1$OH$`21.971"4T0Z(&]P96YD M:7(N8RQV(#$N,C`@,C`P,"\P,2\R,B`R,CHQ.3HQ,2!M>6-R;V9T($5X<"`D M````W0/=K`3[`J\+!'5N:6]N`&YFW03=K`3[`N^+70``T%#- MG/[14(______$@/44`2?K:#=S9S^^P+O"%X``-50$A++C_\/__^MJ%#14(\` M0```$PW[`.\C7P``T!1@,<4"W0'=`MW-G/[[`^^.8```T5"/_____Q(#,:H" MW23[`>^=70``T%!;$@,QF0+[`.\J7@``T%!1RX\`_/__45`\CP`$6=50$@/0 M45F>S:#^5MU6W]X6P``U'[=K`3[ M`N_`6P``T%#-G/[14(______$A3=6I[_5EH``%;[`6;=6_L!9M10!-!:JPS5 MS9C^$P,QO@#461$6WT:?!````/L![_=;``#04%D2`S&D`-16T%I8T5A7'CG0 M65/06%++C_S___]84!(I/*@$4<,!6%##4%=0T5%0%!C`45C58A,,U5D3`]!2 M8\`$4]96T5A7'\K561.CG_\26@``W03=5MU9^P3OH5X``-1&:=1:U6D3.-!9 M5]!G5M5:$Q&?J@B?I@C[`N\U7```U5`3!=!66A$"U&:1I@8.$@G0K`A4Z50" MU&;`!%?59Q++W5G[`>^[6@``T,V4_JL0PZL,6*L($1K06:L0W5G[`>\P6P`` MT%"K#!,E?*L4R@2L"-2K!-#-G/YKT*P(JR#=6_L![R5>``#04*L\E6@``U%`$`0$D3F5T0E-$.B!G971P86=EK?A0T`>@!-`$K?34?M1^GZWTG^^Z;@``W0+=4/L& M[YM=``#14(______$@$$T.^?;@``4`0!)$YE=$)31#H@8VQO6-R;V9T($5X<"`D``'``="L M!%;=IAS=5OL"[T1=``#09EC2`&;4I@3=I@R>_S98``!7^P%GW5;[`6?=6/L! M[R19```$`0$!`0$7[U,D`````+R/G@`?\@0!`0$D3F5T0E-$.B!S=')C;7`N M8RQV(#$N,3(@,3DY.2\P.2\R,"`P-#HS.3HT-B!L=6ME;2!%>'`@)``!``#0 MK`11T*P(4A$&UE&54!,4D&%0D5""$_*:85&:HO]0PU!14`344`0!)$YE=$)3 M1#H@;65R9V4N8RQV(#$N,3`@,C`P,"\P,2\R,B`R,CHQ.3HQ.2!M>6-R;V9T M($5X<"`D`,`/PCQ>T*P(5M"L#%7150$:#OL`[WU:``#0%F#2`%`$U*WXRX_\ M____55`2#\N/_/___ZP$4!($T`&M^,565:WS05:W(^P7/5`/!K?"M MW*WDU*W\U%C!K?`#4,H#4-"MR%718*WD$@,Q"0/0K>Q4P50#4,L#4*W@T*WP MK>C0K?!3T5.MY!(#,<<"P:WH`U#*`U#08*WHT%1:PZWPK>A0P:WL4*WTT*WT M6]&MZ*WD$PS!K>@#4,H#4-!@K>C#K?"MZ%#!K>Q05-%:K?0?`S$J`M%;5!\# M,4`"W5O=6GU3K#1K>BM MY!,#,3G]T*WL4]"M\*WLT%.M\,%3K=RMY,%3`U#*`U#18*WD$P,Q]_S1K`2M M\!(5W:W`S&+_@0$P`_0K`1;T*P,6L%;6EC#`:P(61,_T%A6T5A;&R_#6E97W5;= M5]"L$%/[`F/54!46-R;V9T($5X<"`D``$``-VL"-VL!/L"[^55```$)$YE=$)31#H@ M=&5L;&1I]14@``T%!2$@32`%`$T.]^9@``4,%0`>]U9@`` MT%"B!'VF%*((T*8$HA"<`E!1RH^#____49Y![UUF``!1T&%BT%)A!`'``="L M!%?0K`A1G`)14,J/@____U">0.\X9@``6-!H5A,2T:8$41,(T%98T&96$O+5 M5A(!!-&F$*<$$@[1I@BG%!('T:8,IQ@3,-1^?:8(?MUG^P3OJU0``'VF"*<4 MU*<$U:80%13=5_L![ZE2``#54!,'T:<$IA`9[-!F:-U6^P'O^E````0!)$YE M=$)31#H@14"L3"1$2D5!5$PH1"]`05-`" M4Q$#R`11UE*08E`2U="L"%#)45-@T%10!`$!`21.971"4T0Z(&9C;&]S92YC M+'8@,2XQ,R`R,#`P+S`Q+S(Q(#$Y.C4S.C`R(&UY8W)O9G0@17AP("0``<`` MT*P$5K"F#%`2#OL`[^%0``#0"6#2`%`$X0-0#MU6^P'OQ5(``-!05Q$"U%?0 MIB!0$PW=IAS[`6#54!@#T@!7E:8,&`K=IA#[`>^X3@``T*8P41,5GJ9`4-%1 M4!,)W5'[`>^@3@``U*8PT*9$4!,,W5#[`>^.3@``U*9$L@"F#K2F#-2F"-2F M!-!74`0!`21.971"4T0Z(')E9FEL;"YC+'8@,2XQ,2`Q.3DY+S`Y+S(P(#`T M.C,Y.C,R(&QU:V5M($5X<"`D``$``-"L!%&KC_;_H0Q0L5`)$@K=4?L![P=2 M```$U%`$`4``T*P$5M7__DP``!('^P#O.5$``-2F!+"F#%#@!5`2X`)0.>`$ M4`[[`._;3P``T`E@T@!0!.$#4!S=5OL![[]1``#54!+KJPBF#%"P4*8,U*8( MU*88J010I@P1+-"F,%$3)IZF0%#145`3"=U1^P'OJ4T``-2F,-"F/%#04*8$ M$P?0ICAFU%`$U:80$@G=5OL![\-0``"KC_S_I@Q0$PN?SSS_^P'O8U$``-"F M$&;=IA3=9MVF'-"F)%#[`V#04*8$JX\`(*8,4;!1I@S54!2U$@BI(%&F##%7 M_]2F!*F/0`!1I@PQ2O\!`21.971"4T0Z(&UA:V5B=68N8RQV(#$N,3(@,3DY M.2\P.2\R,"`P-#HS.3HS,"!L=6ME;2!%>'`@)`#``,((7M"L!%;@`:8,(9^M M_)^M^-U6^P.O8-!05]VM^/L![V--``#54!(4J`*F#)ZF0U#04&;04*80T`&F M%`2>_[E+``#_F$L``,B/@````%?04&;04*80T*WXIA35K?P3$C*F#G[[`>^) M4```U5`3`\@!5ZA7I@P$`<`!GJZ@7M"L!%;0K`A7T*P,6+6F#AD2GZV@,J8. M?OL"[P]-``#54!@$U&@1']10RX__#___K:A1T5&/`"```!("UE#04&C0K>10 M$@L\CP`$9SR/``A0!-!09]!0IDP\CP`(4-%1CP"````2$I[_XDH``%+1IBA2 M$@4\CP`$4`0!)$YE=$)31#H@:7-A='1Y+F,L=B`Q+C$P(#(P,#`O,#$O,C(@ M,C(Z,3DZ,3$@;7EC'`@)``!``#"+%Z?K=3=K`3[`N^Z3P``T5"/ M_____Q,$T`%0!-10!`$!)$YE=$)31#H@=&-G971A='1R+F,L=B`Q+C<@,C`P M,"\P,2\R,B`R,CHQ.3HR,2!M>6-R;V9T($5X<"`D``$``-VL"-V/$W0L0-VL M!/L#[V%/```$`0$7[T,6`````+PV'_0$`0$!%^\S%@````"\CUP`'_($`0$! M``#0K`Q0$SM]K`11>(_^4%,3"-&!@A(8]5/XRX_\____4%,3")&!@A(/]5/X MU%`$U7'5'`@)````)ZNJ%[0 MK`11T*P(4!@.^P#O?4P``-`68-(`4`2R`*VVL(\(`JVTT%&MJ-!1K;C74-!0 MK;#04*V\GZP0W:P,GZVH^P/ODDP``-"MJ%&4800!`0$D3F5T0E-$.B!C='EP M95\N8RQV(#$N,30@,3DY-R\P-R\Q,R`Q.3HT-3HT-2!C:')I'`@ M)```("`@("`@("`@*"@H*"@@("`@("`@("`@("`@("`@(""($!`0$!`0$!`0 M$!`0$!`0!`0$!`0$!`0$!!`0$!`0$!!!04%!04$!`0$!`0$!`0$!`0$!`0$! M`0$!`1`0$!`0$$)"0D)"0@("`@("`@("`@("`@("`@("`@("$!`0$"`````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M``````````````````````````````````````````````$!`0$!%^\+%``` M``"\!1_T!`$!`1?O^Q,`````O(\7`1_R!`$!`21.971"4T0Z(&-A;&QO8RYC M+'8@,2XY(#$Y.3@O,#(O,#,@,3@Z-#0Z,30@<&5R]\2```T%!8$@/44`3!6`]0RP-05M1HT%>H!-!6J`C7 M5QD1*(]8`.\970``9IZF6%;T5^_06%`$`4``U?^<1@``$@7[`,^C`)[O]T\` M`%81`]!F5M"F"%##`:8$41D/FH]84K6@#!,9P%)0]%'UU682W]T*^P'/=/_0 M4&82T]10!+`!H`S48-2@"-2@!-2@$-2@%-2@&+(`H`[4H##4H#34H$34H$@$ M0`#=!?L![VM+``">[XU/``!6PZ8$4%`5'=!F41,*T%%6PZ8$4%`4\=50%0K= M4/L!SQ/_T%!F!`$``-1^^P'OVT@```0``)ZO[__D10``T`'_X44```0D3F5T M0E-$.B!F9FQU'`@)``!``#0K`10$@N?KR/[`>^82@``!+.@#!@2#OL`[X9(``#0"6#2 M`%`$W5#[`:\!!,`!T*P$6#*H#%#A`U`_T*@05Q,YPU=H5M!7:,J/_/___U`2 M!]"H%*@($1[4J`@1&=U6W5?=J!S0J"Q0^P-@U5`5#L-05E;`4%?55A3CU%`$ MJ(]``*@,T@!0!`$!)$YE=$)31#H@9V5T96YV+F,L=B`Q+C$T(#$Y.3DO,#DO M,C`@,#0Z,SDZ,S<@;'5K96T@17AP("0``0``P@1>GZW\W:P$^P*O`03``]"L M!%D30]#_0$0``%`3.M!9495I$PN183T3!M91E6$2]<-945C04%<1&MU8W5G= M5OL#[WE&``#54!(&D49H/1,+P`17T&=6$N'44`3#__I#``!74-"L"%%XC_Y0 M89Y&J`%0!`$D3F5T0E-$.B!S=&1I;RYC+'8@,2XQ,2`Q.3DY+S`Y+S(P(#`T M.C,Y.C,S(&QU:V5M($5X<"`D`$``T*P$5MVL#-VL"#*F#G[[`^]510``T%!2 M&1+04E!XC^%24T@``*J/`!"F#-VL#-VL"#*F#G[[`^\`1@``!`%``-"L!%;=K!!] MK`A^,J8.?OL$[TI(``#14(______$A#148______$@>JCP`0I@P$J(\`$*8, M?5"F4`0``-"L!%`RH`Y^^P'O540```0D3F5T0E-$.B!F=V%L:RYC+'8@,2XY M(#$Y.3DO,#DO,C`@,#0Z,SDZ,CD@;'5K96T@17AP("0``<`'T*P$6M19GO]2 M0P``6!,DT*@(5L,!J`17&12UI@P3"-U6^P%JR%!9GJ985O17[-!H6!+6-R;V9T($5X<"`D`,`/GJZL7GVL!%9]K`Q3R5-44!(JT.\F3``` M4-U0W0'[`N]B1```T%!8T%!9U:P4$@,QLP/0K!15?59E,:D#T517&@<2%-%3 M5AL/U:P4$P?0K!15?59E?%`$PPQ=6L,87:W8PR1=K=1]5EBT:M`04I!24>]2 M45E0L%"J`K!9J@3O4E%84+!0J@:P6*H(?5-8[U)165#0K=A5L%"E`K!9I03O M4E%84;!1I0:P6*4(T`2MR+50$P,QU`##%EU0UZW(T:W(`1,#,;8`/*`"5MU6 M/*H"?OL"[Z]#``"P4*W`GO\)0@``6]U6/*H"?OL":W@04%`\J@11R5%05]U6 MW5?[`N^$0P``L%"MOMU6W5?[`FMX$%!0/*H&4!!04#RJ"%')45!7W5;=5_L"[T!#``"P4%K5K!03$-U6W5?[ M`FO44="L%%5]4&6PK!!543RMOE#)4%%9L*VX57@055$\6E`Q90+``E#` M`JW8M6`2`S$P_\.MR`2MS+6J`A(+UZW,P`):M:H"$_7#K!!34#RM MME'(45#14E`:VM16T*W(4Q4_T*W853Y#953!4UM2/$)J43QD4,("5,174,-0 M45'#5E%6L%9":IP05E`\4%##4(\```$`4,N/``#__U!6]5/)T*VL53QE4,-6 M4%;0K:Q5L%9ET!!1[U%15E`3.]=7U%;0K0*K^5#QB4>^MQ%9143QD4,("5'A74%"I4%%BP@)2UU/14ZW,%-ZT M0VJPK?95>!!543RM^%#)4%%9L*WZ57@055$\K?Q0R5!16-"L%%5]6&6PK=Y5 M>!!543RMX%#)4%%9L*WB57@055$\K>10R5!16'U84`0!P`?0K`18T*P(6="L M#%744M%261@FPU405(-4(%?06%/!6`)6/&-1>%5143R&4.]45U!0J5!1@_)9 M4ND\0FA0>%504+!00F@$)$YE=$)31#H@;F5G9&DR+F,L=B`Q+C,@,3DY-R\P M-R\Q,R`R,#HP,3HU,B!C:')I'`@)``!``!]K`10SE!2T%)3SE%1 MU5(3`M=1T%%4?5-0!"1.971"4T0Z('5R96TN4RQV(#$N,2`Q.3DU+S`T+S$W M(#$R.C(S.C0X(')A9V=E($5X<"`D``$!``#0K`A2&1G0K`10&0O'4E!1Q%)1 MPE%0!-11>U)045`$PU*L!%`>!-"L!%`$`0$!``#0K`13T*P(4AD>T&-0&0[' M4E!1Q%)1PE%0T%!C!-11>U)045#04&,$PU)C4!\$T%!C!-!C4`0D3F5T0E-$ M.B!U9&EV+E,L=B`Q+C$@,3DY-2\P-"\Q-R`Q,CHR,SHT-R!R86=G92!%>'`@ M)``!`0``T*P(4AD2T*P$4!D$QE)0!-11>U)04%$$T:P$4AX#U%`$T`%0!`$` M`-"L!%/0K`A2&1?08U`9!\924-!08P3447M24%!1T%!C!-%C4AX%U%#48P30 M`5#04&,$)$YE=$)31#H@PQQ`&?K?#=!_L" M[]!```#2`%'54!,#,=`!T*WP43')`9J/9%`$T`&MZ-`3K>PQ7@'0`:WHT!*M M[#&,`9^M\-T($<;0"*WHT!.M[#%Z`=`(K>C0%*WL,6\!T`&MZ-`4K>PQ*P'0 M`:WHT!&M[#%9`=`&K>C0!ZWL,4X!T`&MZ-`@K>PQ"@'0`:WHT"6M[#'_`-`! MK>C0**WL,?0`T`&MZ-`IK>PQZ0#0`:WHT"JM[#'>`-`!K>C0*ZWL,=,`T`&M MZ-`LK>PQ`0'0"*WHT`*M[#'V`-`(K>C0`ZWL,>L`T`BMZ-!1K>PQX`#0"*WH MT`6M[#'5`-`(K>C0!JWL,PQOP#0"%#04*WHT%"M[#&Q`-`( MK>C0":WL,:8`T`BMZ-`*K>PQFP#0"*WHT`NM[!%8T`BMZ-`,K>P13M`(K>C0 M#:WL$430"*WHT`ZM[!$ZT`BMZ-`/K>P1,-`(K>C0$*WL$2;0"*WHT!&M[!$< MT`BMZ-`2K>P1$M`!K>C0)JWL$4'0`:WHT".M[-1^U'Z?K>2?K>#=`I^MZ/L& M[ZL^``#14(______$@$$T*W@4!($T@!0!`3[`._'/```T!9@T@!0!-1^U'Z? MK>2?K>#=`I^MZ/L&[W(^``#2`%'14%$3!-"MX%'045`$`0$``+P!!`$!`0$! M%^^;!0````"\!!_T!`$!`1?OBP4`````O`,?]`0!`0$7[WL%`````+R/20`? M\@0!`0$!`1?O9P4`````O(_"`!_R!`$!`0$!%^]3!0````"\!A_T!`$D3F5T M0E-$.B!M;6%P+F,L=B`Q+C$Q(#(P,#`O,#$O,C(@,C(Z,3DZ,C`@;7EC/0``!`%`*",I;65M8W!Y+G,)."XQ("A"97)K96QE>2D@-B\T+SDS``$` M`#R/__]0?:P(4="L!%/145,:#1,4P%)1T5%3&B'"4E'14E`:"2A286/0K`10 M!,)0K`PH4&%CT*P,4K=0$>+`4E/14E`:#\)24<)24RA286/0K`10!,)0K`S" M4%'"4%,H4&%CT*P,4K=0PE!1PE!3$=`!`21.971"4T0Z('-T'`@)````-"L!%'0 MK`A3T*P,4A$"UU+54A,.D&%0D5"#$@G64950$NS44`2:85&:H_]0PU!14`0! M`0$D3F5T0E-$.B!S=')L96XN8RQV(#$N,3$@,3DY.2\P.2\R,"`P-#HS.3HT M-R!L=6ME;2!%>'`@)``!``#0K`11T%%0E6$3!M90E6`2^L-14%`$`0%`*",I M;65M2D@-B\T+SDS``$``-"L!%,\C___4'VL M"%'14E`:"BP`8U%28]!14`3"4*P,+`!C45!C$=P!`21.971"4T0Z('-Y__0`F$Q=?_0(&$Q;_\\CP`(83%G_]"/+`H#`&$Q7?_483%8_]`483%2_YJ/ M_V$Q2__[`._P-P``T!9@T@!0!`$!`1?O\P``````O(_*`!_R!`$!`0$!%^_? M``````"\C\8`'_($`0$!0"@C*6UE;6UO=F4N'`@)``! M`=U0^P#OY#8``-".8,X!4-!0400!`0``GO]@,P``4`0!`21.971"4T0Z('-C M86YD:7(N8RQV(#$N,3@@,C`P,"\P-"\Q-B`Q-#HT,SHU-R!MKJ!>W:P$^P'O`#8``-!06Q(#,1@!GZV@W6O[`N\X-0``U5`8`S$%`7T8 M?GVMU'[[!._7.```T%!:WDJ?`````'[[`>_M-```T%!8$@,QW0#463&:`-6L M#!,0W5;0K`Q2^P%BU5`2`S&%`)JF!U#`!%#*`U"?H`C[`>^W-```T%!7$@,Q MIP#09F>PI@2G!)"F!J<&D*8'IP>:IP=0GZ`!GZ8(GZ<(^P/OQ3<``-99T5E: M'S>?K:#=:_L"[YHT``#54!EJ?0Q^?:W4?OL$[SPX``#04%K>2I\`````?MU8 M^P+O<#4``-!06!-#T%=)J/S=6_L![T4U``#04%83`S%5_]U;^P'O0#4``-59 M$Q75K!`3$-VL$-T$W5G=6/L$[_'`@)`#`#\(07M"L!%K0K`Q9 MRX_\____6E`2%\N/_/___UE0$@W4K?316003"=:M]!$$T`*M]-2M\-&L"`8; M`S&0`,%:65C%K`A96\%:6U#16%`>?=!85]%86AMHW5?#65=6W5;0K!!4^P)D MU5`55=6M]!(+T&=0T&9GT%!F$3S1K?0!%""<'EE1RH\```#`4=!74]!64M!C M4-!B@]!0@M=1$O,1%M!94=!74]!64I!C4)!B@Y!0@M=1$O/#65=7T5=:&IC` M65C!6EM0T5A0'X0$!)`?4.\!4*P(4,194,%:4%C1K`@'&@,QX`'06E?#`:P( M4,194,%:4*W\T:P(*!H#,6`!D!U0[P-0K`A0Q5!9K?C!6JWX5M"M^%0^1&I7 MW5;=6M"L$%3[`F354!@FW5?=5M"L$%3[`F354!D]W5?=6M"L$%3[`F306E'5 M4!@NT%=1$2G=5]U6T*P05/L"9-50%!?=5]U:T*P05/L"9-!74=50&`C06E$1 M`]!64=!15\.M^%A;P5BM^%;=6-U;T*P05/L"9-50&";=5MU8T*P05/L"9-50 M&3W=5MU;T*P05/L"9-!;4=50&"[05E$1*=U6W5C0K!!4^P)DU5`4%]U6W5O0 MK!!4^P)DT%91U5`8"-!;41$#T%A1T%%8P:WXK?A0PU"M_%O#K?BM_%;=5MU; MT*P05/L"9-50&"G=K?S=5M"L$%3[`F354!E"W:W\W5O0K!!4^P)DT%M1U5`8 M,M"M_%$1+-VM_-U6T*P05/L"9-50%!G=K?S=6]"L$%3[`F30K?Q1U5`8"-!; M41$#T%91T%&M_-U8W5?0K!!4^P)DU5`8*=VM_-U8T*P05/L"9-50&4+=K?S= M5]"L$%3[`F305U'54!@RT*W\41$LW:W\W5C0K!!4^P)DU5`4&=VM_-U7T*P0 M5/L"9-"M_%'54!@(T%=1$0/06%'045C5K?02"]!J4-!H:M!0:!$YT:WT`10= MD!Y0[P)065'06E/06%+08U#08H/04(+741+S$1;065'06E/06%*08U"08H.0 M4(+741+SP5I95M!66,,!K`A0Q%E0P5I06]!;5Q%7U:WT$@O09E#09V;04&<1 M/-&M]`$4()P>65'*CP```,!1T%93T%=2T&-0T&*#T%""UU$2\Q$6T%E1T%93 MT%=2D&-0D&*#D%""UU$2\]`!K?#`65;#65=7T597&P,QZ0#=6MU6T*P05/L" M9-!0411=$E/0`:WPU:WT$@O0:%#09FC04&81/-&M]`$4()P>65'*CP```,!1 MT%A3T%92T&-0T&*#T%""UU$2\Q$6T%E1T%A3T%92D&-0D&*#D%""UU$2\\!9 M6,!95M%65QN3T597&G?=6MU7T*P05/L"9-!041E?$E30`:WPU:WT$@O09U#0 M:V?04&L1/-&M]`$4()P>65'*CP```,!1T%=3T%M2T&-0T&*#T%""UU$2\Q$6 MT%E1T%=3T%M2D&-0D&*#D%""UU$2\\-96UO#65=7T597&Y'15E<:`S&X_M6M M\!,#,9``P5I96,6L"%E;P5I;4-%84!Y]T%A7T5A:&VC=5\-95U;=5M"L$%3[ M`F354!55U:WT$@O09U#09F?04&81/-&M]`$4()P>65'*CP```,!1T%=3T%92 MT&-0T&*#T%""UU$2\Q$6T%E1T%=3T%92D&-0D&*#D%""UU$2\\-95U?15UH: MF,!96,%:6U#16%`?A`0$Q:P(65#!6E"M_,-:6%##6%91T5%0%0/04%'5414T MPU%64M&M]`$4&I`>4.\"4%%1T%I3T&-0T&*#T%""UU$2\Q$0T%I3D&-0D&*# MD%""UU$2\\-76U+#6ZW\4,-94%'145(;`]!24=51%37#4:W\4M&M]`$4&I`> M4.\"4%%1T%93T&-0T&*#T%""UU$2\Q$0T%93D&-0D&*#D%""UU$2\\-85E'1 M45D;&=VL$-U9W5G=4?L"[P'`@)``!P`?46GVL!%A]K`Q6 MU5D8$'U8?OL"[^(N``!]4%C0`5K55Q@0?59^^P+OSBX``'U05LP!6M1^?59^ M?5A^^P7O&2\``-5:$PI]4'[[`N^K+@``!`$!9,```(L``%1HP`````!4?,```%H``%2`P```,P`` M5(3````R``!4B,```&\``%2,P```6```5)#````I``!4E,```)```%28P``` M/```5)S```!D``!4H,```!0``%2DP```)0``5*C```"8``!4K,```(D``%2P MP```'@``5+3````[``!4N,```%<``%2\P```;```5,#```"K``!4Q,```(T` M`%3(P```>P``5,S```!*``!4T,```'P``%34P```60``5-C````D``!4W,`` M`'```%3@P```>@``5.3````*``!4Z,```$<``%3LP```.@``5/#````&``!4 M],```"<``%3XP```20``5/S```!(``!4`,$``&,``%0$P0``E```5`C!``!Q M``!4A,8```8``$2P``1"#*``!\``!$),H` M`$H``$10R@``!@``1%C*```&``!$```````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````V```` M:0```#\```!V````"````#<```#_____SB```!@````[````)````%L````E M````?@```'T```"7````$@```#(````-````70```"````!,````"P```%X` M```&````,0```#<```!@````)@```#X``````````````$T```!6````"0`` M`&X````!````+P```'\`````````4``````````J````0P```/_____M(0`` M8``````````:````.`````P`````````,````%H```!#``````````\````T M````'@```$@```""````F@```#P```!M````$P```#D```"&````C0````(` M```N````,0`````````H````4@```$H`````````$````#,````%````,``` M``0````]````,@```$D````<````90```!$```!"````)P```&<```!O```` MM@````<```!`````"@```&8````.````50```!0```!&````%0```#8````6 M````-0```!<````Z````&0```$4````;````1````!T```!!````'P```#P` M```A````1P```"(````_````(P```%`````I````5P```"L```!]````+``` M```````M````3P```"X```!+````+P```%\````S````30```#0```!W```` M-0```'$````X````5````#D```"Q````.@```'L````[`````````#T```!* M````/@```%@```!`````3@```$$```"5````0@```&\```!$````40```$4` M``!3````1@```&0```!'````>@```$@```!C````20```%P```!+````@P`` M`$P`````````3@```'P```!/````60```%$```!R````4@```'````!3```` M8@```%0```!Y````50```(````!6````80```%<```".````6````)8```!9 M````:````%H```!U````6P```(4```!<````;````%T```";````7@```&H` M``!?````:P```&$```"E````8@```*D```!C`````````````!Y````?P```'H```"/````>P```*(```!\```````` M`'X```"3````@````(8```"!````F0```(0```"1````A0```(L```"'```` MB````(@`````````B0````````"*`````````(L```"?````C````)````"- M`````````(X`````````CP```)P```"0`````````)$```"G````D@```)X` M``"4````E````)4```"8````E@````````"7`````````)@```"=````F0`` M`*X```":````K0```)L`````````G````*$```"=````HP```)X```"J```` MGP````````"@````J````*$```"O````H@````````"D`````````*4```"D M````I@````````"G````I@```*@`````````J0````````"J````K````*L` M````````K````*L```"M`````````*X`````````KP````````"P````L@`` M`+$`````````L@```+4```"S`````````+0`````````M0````````"V```` M`````+<`````````N```````````````!P````#`````````"@````4"``!@ M8P```````!4````+```````````````:`````0``````````````(`````4" M``#P>````````"8````%`@``.'8````````N````!P$``#3)````````/P`` M``4"``#\5@```````$L````%`@``@#8```````!3````!0(``%PH```````` M70````D```"`W0```````&@````%`@``:B0```````!R````!0(``$PU```` M````>0````4"```$E0```````(,````'````8,````````":````!0(```)U M````````I@````4"``!4C0```````*\````%`@``1'D```````"W````!0(` M`')4````````P`````4"``#N-0```````,H````%`@``!GP```````#2```` M!0(``!@Y````````V@````4"``"(-@```````.(````%`@``;D@```````#J M````!0(``$!Q````````\P````4"``":=@```````/X````%`@``($0````` M```'`0``!0(``&PV````````#@$```4"``"H@P```````!0!```%`@``6DX` M```````=`0``!0$``"A$````````*@$```4"``"8-@```````#0!```%`@`` M4(<````````[`0``!0(``-I&````````0P$```4"``"T.P```````%X!```% M`@``X&\```````!G`0``!0(``'(@````````<`$```4"``#N:````````'@! M```%`@``"(P```````""`0``!0(``*!C````````B@$```4"``#>0```````'D"```%`@``I'T```````"!`@``!0(` M`#XH````````B@(```4"``"4AP```````)4"```%`@``$B0```````"I`@`` M!0(``/IC````````L@(```4"``#:0P```````+L"```%`@``%C@```````#% M`@``!0(``%`D````````U@(```4"``#4(P```````.<"```)````C-T````` M``#S`@``!0(``(B.````````_@(```4"``!"B0````````<#```%`@``['P` M```````1`P``!0(``$9,````````&0,```4"``"860```````",#```%`@`` MD#@````````K`P``!0(``+XI````````/@,```4"``!\=0```````$H#```% M`@``NE<```````!4`P``!0(``"!R````````7@,```4"``!$>@```````&4# M```%`@``4FD```````!P`P``!0(``$R,````````>0,```4"``#@-@`````` M`($#```'````#,$```````"<`P``!0$``%A,````````J0,```P```````/$#```%`@``&(0```````#Z`P``!0(``*AH`````````P0` M``4"``!F:`````````T$```%`@``'%L````````8!```!0(``.IZ```````` M(@0```4"``"F>0```````"L$```%`@``'%8````````V!```!0(``*I+```` M````/@0```4"``!@AP```````$4$```%`@``($````````!2!```!0(``!Q^ M````````700```4"``#````````?`0```4"``#PB0```````(0$```%`@``@(,```````")!``` M!P$``#C)````````D@0```4"``"4B````````)H$```%`@``X((```````"? M!```!0(``/9/````````JP0```D```"0W0```````+4$```%`@``3BD````` M``#"!```!0(``"HC````````U00```4"``#R5````````-T$```'`0``2,D` M``````#C!```!0(``-1V````````ZP0```4"``"T1P```````/0$```)```` ME-T```````#^!```!0(``+1\````````!P4```4"```>?0```````!`%```% M`@``XCD````````:!0``!0(``.!G````````)P4```4"``"<.@```````#(% M```%`@``0@$````````X!0``!0(``%1W````````0@4```L````````````` M`$D%```!``````````````!1!0``"0```)C=````````8`4```4"```@*0`` M`````&\%```%`@``SB0```````!Z!0``!0(``+AV````````@04```4```"L MM@```````(@%```'`0``U,<```````"7!0``!0(``&!D````````H`4```D` M``"````````K@8```4"````%0```````+8&```% M`@``(`````````"[!@``!0(``$`@````````P08```4"``!.B````````,@& M```%`@``J(<```````#/!@``!0(``$)[````````UP8```4"``"62@`````` M`-X&```'````8,H```````#E!@``!0(``,AV````````[`8```4"```R)0`` M`````/<&```)````J-T```````#\!@``!0(``/1R````````!`<```4"```@ M.@````````X'```%`@``$(T````````7!P``"0```*3=````````)P<```4" M``#8<0```````%]?1%E.04U)0P!?:7-S971U9VED`%]E0!?7U]S>7-?97)R;&ES=#$T`%]?7W-T0!?7U]D M:79D:3,`7U]'3$]"04Q?3T9&4T547U1!0DQ%7P!?7U]S;6%K96)U9@!?&ET`%]S=')C870`7U]?7-C=&P`7W-T7-C=&P`7U]?`!?7V-A=&=E M=',`7U]V97)R>`!?;61?&ET`%]?7W-R96%D`%]?7W-S965K M`%]M8G-T;W=CF4`7U]?=6UO9&1I,P!?0!?:6]C=&P`7V5T97AT`%]?=&]U<'!E6UB;VQ?:&5A9`!?9V5T M9&5N=',`:6YD```````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M````````````````"````!#````HP``````````````````````````````` M`````````````````````````&#````,P0``6)4``#">``#HHP```````"X` M``!XKP``-`<```#```!P!0```,```)S=``"0W0``F-T``*3=``!(R0``H-T` M`$(```"(W0``A-T``#C)``#0QP``LHD``!9\``"W;__P0`````^FSOQW;_ M_P0`````^FSORV;__P0`````^FSO2W3__P0`````^FSOQ;?__P0`````^FSO M-\3__P0`````^FSOL[G__P0`````^FSOZY[__P0`````^FSO67___P0````` M^FSO;9___P0`````^FSON[+__P0`````^FSO>WO__P0`````^FSO([+__P0` M````^FSO[8;__P0`````^FSO5ZW__P0`````^FSO;[7__P0`````^FSO/;C_ M_P0`````^FSO99#__P0`````^FSO>8___P0`````^FSOOX[__P0`````^FSO MS:[__P0`````^FSOWY'__P0`````^FSO)\+__P0`````^FSOP;7__P0````` M^FSOP:___P0`````^FSO;9+__P0`````^FSO/Y3__P0`````^FSOMY7__P0` M````^FSO5['__P0`````^FSO*Z/__P0`````^FSOQ<+__P0`````^FSO0ZS_ M_P0`````^FSOL:/__P0`````^FSO?ZK__P0`````^FSO]\3__P0`````^FSO M&ZK__P0`````^FSO>\;__P0`````^FSOGZK__P0`````^FSOA[7__P0````` M^FSOK[?__P0`````^FSO-[#__P0`````^FSOC;#__P0`````^FSOG[#__P0` M````^FSOR\/__P0`````^FSOY[W__P0`````^FSOH[S__P0`````^FSO2\'_ M_P0`````^FSOQ\7__P0`````^FSOI\7__P0`````^FSOE\[__P0`````^FSO M8\C__P0``&UA:6X`````?,8``"]U``!6$P````````````!"!0``!``` M`'0B``"'.P``?#L``',[``!G.P``7#L``%0[``!(.P``0P`````````````` M``````````````````````````!#```````````````````````````````` M`````````$,`````````````````````````````````````````0P`````` M``````````````````````````````````!#```````````````````````` M`````````````````$,````````````````````````````````````````` M0P`````````````````````````````````````````!````*$0``%A,``!( M8P``,&,``!9C```&8P``[F(``-MB``#%8@``KF(``)QB``"(8@``=6(``%MB M``!$8@``,F(``"9B```08@``!&(``/AA``#F80``Q&$``+1A``"E80``E&$` M`'9A``!B80``0V$``#1A```E80``#6$```!A``#J8```VV```,]@``"N8``` MG6```'Q@``!B8```1&```"5@```(8```]U\``-A?``#!7P``JE\``)!?``!X M7P``6E\``"I?```37P``]%X``.1>``#-7@``J5X``(A>``!O7@``55X``#E> M```A7@```%X``-Y=``#*70``MUT``)5=``""70``=5T``&1=``!070``/5T` M`"Y=```:70``!%T``.)<``#07```OEP``*I<``"47```>EP``&=<``!.7``` M+%P``!=<```$7```\5L``-9;``"L6P``EEL``-S'``#D=P```````!$```"H MUP``````````````````!````````````````````$C)``!:?0``M'P``!Y] M``#L?``````````````````````````````````````````````````````` M``````````````````@``0````````````````"@R0``6GT``+1\```>?0`` M['P````````````````````````````````````````````````````````` M```````````````*``(`````````````````^,D``%I]``"T?```'GT``.Q\ M````````````````````````````````````````````````````````/,D` M``,```!(R0`````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` M```````````````````````````````````````````````````````````` -```````````````````` ` end src/libexec/ld.elf_so004075500011300000175000000000001522207755000150065ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/CVS004075500011300000175000000000001522207755000154415ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/CVS/Root010064400011300000175000000000441504273241000163520ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/ld.elf_so/CVS/Repository010064400011300000175000000000261504273241000176060ustar00srcmastrnetbsdsrc/libexec/ld.elf_so src/libexec/ld.elf_so/CVS/Entries010066400011300000175000000026611522207755000170600ustar00srcmastrnetbsd/README.TLS/1.7/Mon Jul 22 23:14:25 2024//Tnetbsd-11 /TODO/1.5/Wed Mar 9 23:10:07 2011//Tnetbsd-11 /compat.c/1.1/Wed Oct 17 23:36:58 2018//Tnetbsd-11 /debug.c/1.6/Fri Oct 22 05:39:56 2004//Tnetbsd-11 /debug.h/1.8/Sat Aug 3 21:59:57 2024//Tnetbsd-11 /diagassert.c/1.2/Fri Mar 16 11:44:54 2012//Tnetbsd-11 /expand.c/1.8/Fri May 2 23:04:56 2025//Tnetbsd-11 /hash.c/1.1/Sun Jul 30 09:20:14 2023//Tnetbsd-11 /hash.h/1.1/Sun Jul 30 09:20:14 2023//Tnetbsd-11 /ld.elf_so.1/1.22/Sun Sep 8 09:36:47 2024//Tnetbsd-11 /paths.c/1.43/Fri May 2 23:04:56 2025//Tnetbsd-11 /symbol.c/1.77/Fri May 2 23:04:31 2025//Tnetbsd-11 /symbols.map/1.4/Sun Apr 19 01:06:15 2020//Tnetbsd-11 /symver.c/1.4/Thu May 9 15:38:14 2013//Tnetbsd-11 /sysident.h/1.19/Tue Feb 9 10:20:03 2016//Tnetbsd-11 /xprintf.c/1.23/Sat Mar 6 20:09:39 2021//Tnetbsd-11 D/arch//// /rtldenv.h/1.12.42.1/Sat Jan 24 03:34:42 2026//Tnetbsd-11 /xmalloc.c/1.12.44.1/Sat Jan 24 03:34:42 2026//Tnetbsd-11 /headers.c/1.75.2.3/Sat Mar 7 03:35:30 2026//Tnetbsd-11 /tls.c/1.23.2.2/Sat Apr 4 03:33:57 2026//Tnetbsd-11 /Makefile/1.151.2.2/Sat May 9 03:35:52 2026//Tnetbsd-11 /map_object.c/1.69.2.1/Sat May 9 03:35:52 2026//Tnetbsd-11 /load.c/1.49.10.1/Sat Jul 4 03:34:42 2026//Tnetbsd-11 /reloc.c/1.120.2.1/Sat Jul 4 03:34:42 2026//Tnetbsd-11 /rtld.c/1.221.2.3/Sat Jul 4 03:34:42 2026//Tnetbsd-11 /rtld.h/1.150.2.3/Sat Jul 4 03:34:42 2026//Tnetbsd-11 /search.c/1.27.10.1/Sat Jul 4 03:34:42 2026//Tnetbsd-11 src/libexec/ld.elf_so/CVS/Tag010064400011300000175000000000131522207752200161440ustar00srcmastrnetbsdTnetbsd-11 src/libexec/ld.elf_so/Makefile010064400011300000175000000117501517752563000165340ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.151.2.2 2026/05/06 17:18:04 martin Exp $ # # NOTE: when changing ld.so, ensure that ldd still compiles. # NOLIBCSANITIZER=# defined NOSANITIZER= # defined WARNS?=4 LDELFSO_MACHINE_ARCH?= ${MACHINE_ARCH} # This needs to be before bsd.init.mk .if defined(BSD_MK_COMPAT_FILE) .include <${BSD_MK_COMPAT_FILE}> .endif # We are not building this with PIE PIE_CFLAGS= PIE_LDFLAGS= .include # for MKPIC definition .include # for SHLINKINSTALLDIR definition .if defined(LDELFSO_MACHINE_CPU) && !empty(LDELFSO_MACHINE_CPU) && \ exists(${.CURDIR}/arch/${LDELFSO_MACHINE_CPU}) ARCHSUBDIR= ${LDELFSO_MACHINE_CPU} .else ARCHSUBDIR= ${MACHINE_CPU} .endif M= ${.CURDIR}/arch/${ARCHSUBDIR} .if ((${MACHINE_CPU} == "aarch64") || \ (${LDELFSO_MACHINE_ARCH} == "alpha") || \ (${MACHINE_CPU} == "arm") || \ (${LDELFSO_MACHINE_ARCH} == "coldfire") || \ (${LDELFSO_MACHINE_ARCH} == "hppa") || \ (${LDELFSO_MACHINE_ARCH} == "i386") || \ (${LDELFSO_MACHINE_ARCH} == "m68k") || \ (${MACHINE_CPU} == "mips") || \ (${MACHINE_CPU} == "or1k") || \ (${MACHINE_CPU} == "powerpc") || \ (${MACHINE_CPU} == "riscv") || \ (${MACHINE_CPU} == "sh3") || \ (${LDELFSO_MACHINE_ARCH} == "sparc") || \ (${LDELFSO_MACHINE_ARCH} == "sparc64") || \ (${LDELFSO_MACHINE_ARCH} == "x86_64") || \ (${LDELFSO_MACHINE_ARCH} == "vax")) && \ ${MKPIC} != "no" LDFLAGS+= ${${ACTIVE_CC} == "clang":? -Wl,-Bsymbolic : -symbolic} \ -shared -nostartfiles -nodefaultlibs LDFLAGS+= -Wl,-static LDFLAGS+= -Wl,--warn-shared-textrel LDFLAGS+= -Wl,--no-undefined LDFLAGS+= -Wl,-Map=${.TARGET}.map COPTS+= -fvisibility=hidden # Adds SRCS, CPPFLAGS, LDFLAGS, etc. Must go first so MD startup source # is first. .if exists($M/Makefile.inc) .include "$M/Makefile.inc" .endif # Support compat ld.elf_so. .if defined(MLIBDIR) PROG= ld.elf_so-${MLIBDIR} CPPFLAGS+= -DRTLD_ARCH_SUBDIR=\"${MLIBDIR}\" . if ${MLIBDIR} == "o32" . endif .else PROG= ld.elf_so .endif CLIBOBJ!= cd ${NETBSDSRCDIR}/lib/libc && ${PRINTOBJDIR} SRCS+= compat.c SRCS+= debug.c SRCS+= diagassert.c SRCS+= expand.c SRCS+= hash.c SRCS+= headers.c SRCS+= load.c SRCS+= map_object.c SRCS+= paths.c SRCS+= reloc.c SRCS+= rtld.c SRCS+= search.c SRCS+= symbol.c SRCS+= symver.c SRCS+= tls.c SRCS+= xmalloc.c SRCS+= xprintf.c .if ${USE_FORT} == "yes" .PATH.c: ${NETBSDSRCDIR}/lib/libc/misc SRCS+= stack_protector.c .endif .PATH.c: ${NETBSDSRCDIR}/lib/libc/stdlib SRCS+= exit.c .PATH.c: ${NETBSDSRCDIR}/lib/libc/gen SRCS+= ctype_.c # ctype(3) tables without useless guard page CPPFLAGS.ctype_.c+= -I${NETBSDSRCDIR}/lib/libc/locale errlist_concat.h: ${NETBSDSRCDIR}/lib/libc/gen/errlist.awk ${NETBSDSRCDIR}/sys/sys/errno.h ${TOOL_AWK} -v concat=1 -f ${.ALLSRC} > ${.TARGET}.tmp && \ mv -f ${.TARGET}.tmp ${.TARGET} xprintf.c: errlist_concat.h CLEANFILES+= errlist_concat.h ${PROG}.map BINDIR= ${SHLINKINSTALLDIR} CPPFLAGS.tls.c+= -std=gnu11 CPPFLAGS+= -DLIBDIR=\"${LIBDIR}\" -D_PATH_RTLD=\"${BINDIR}/${PROG}\" CPPFLAGS+= -I${.CURDIR} -I. -D_KERNTYPES CPPFLAGS+= -DRTLD_LOADER -D_LIBC_INTERNAL CPPFLAGS+= -DGNU_RELRO CPPFLAGS+= -D_RTLD_SOURCE CPPFLAGS+= -DHAVE_INITFINI_ARRAY .if ${LDELFSO_MACHINE_ARCH} == "powerpc" CPPFLAGS+= -DRTLD_MAP_OBJECT_FIXUP .endif #CPPFLAGS+= -DDEBUG #CPPFLAGS+= -DRTLD_DEBUG #CPPFLAGS+= -DRTLD_DEBUG_RELOC #CPPFLAGS+= -DMALLOC_DEBUG .if !empty(LDELFSO_MACHINE_ARCH:Mearm*) CPPFLAGS+= -I${NETBSDSRCDIR}/lib/libexecinfo .endif #DBG= -g COPTS+= -O3 .if ${MACHINE_CPU} != "m68k" && ${MACHINE_CPU} != "sh3" && ${MACHINE_ARCH} != "vax" COPTS+= -fomit-frame-pointer .endif .if ${LDELFSO_MACHINE_ARCH} == "i386" || ${LDELFSO_MACHINE_ARCH} == "x86_64" COPTS+= -mno-3dnow -mno-mmx -mno-sse -mno-sse2 -mno-sse3 .endif .if ${SHLIBDIR} != ${LIBDIR} CPPFLAGS+= -DRTLD_DEFAULT_LIBRARY_PATH=\"${SHLIBDIR}:${LIBDIR}\" .endif LDADD+= -Wl,--version-script=${.CURDIR}/symbols.map LDADD+= -L${CLIBOBJ} -L${DESTDIR}${LIBDIR} .if ${MKPICLIB} != "no" LDADD+= -lc_pic .if ${MKPICINSTALL} != "no" DPADD+= ${LIBC_PIC} .endif DPADD+= ${CLIBOBJ}/libc_pic.a .else LDADD+= -lc DPADD+= ${CLIBOBJ}/libc.a .endif .if ${MACHINE_CPU} == "hppa" || ${MACHINE_CPU} == "sh3" # for $$divU, $$remU etc. (millicode) LDADD+= -lgcc DPADD+= ${LIBGCC} .endif STRIPFLAG= .PATH: $M ${PROG}: ${OBJS} ${DPADD} ${_MKMSG_LINK} ${PROG} ${CC} ${LDFLAGS} -o ${PROG} ${OBJS} ${LDADD} .if ${MKDEBUG} != "no" ( ${OBJCOPY} --only-keep-debug ${.TARGET} ${.TARGET}.debug \ && ${OBJCOPY} --strip-debug -p -R .gnu_debuglink \ --add-gnu-debuglink=${.TARGET}.debug ${.TARGET} \ ) || (rm -f ${.TARGET}.debug; false) _PROGDEBUG.${PROG} := ${PROG}.debug .endif .if ${SHLINKINSTALLDIR} != "/usr/libexec" SYMLINKS+= ${SHLINKINSTALLDIR}/${PROG} /usr/libexec/${PROG} .if ${MKDEBUG} != "no" SYMLINKS+= ${DEBUGDIR}${BINDIR}/${PROG}.debug \ ${DEBUGDIR}/usr${BINDIR}/${PROG}.debug .endif .endif .include .else MAN= ld.elf_so.1 .include .endif src/libexec/ld.elf_so/README.TLS010064400011300000175000000143701464756372100164220ustar00srcmastrnetbsdThread-local storage. Each thread has a thread control block, or TCB. The TCB is a variable-size structure headed by `struct tls_tcb' from , with: (a) static thread-local storage for the TLS data of initial objects, i.e., those loaded at startup rather than those dynamically loaded by dlopen (b) a pointer to a dynamic thread vector (DTV) for the TLS data pointers of objects that use global-dynamic or local-dynamic models (typically shared libraries or dlopenable modules) (c) the pthread_t pointer The per-thread lwp private pointer, also sometimes called TP (thread pointer), managed by the _lwp_setprivate and _lwp_setprivate syscalls, either points at the TCB directly, or, on some architectures, points at tp = tcb + sizeof(struct tls_tcb) + TLS_TP_OFFSET. This bias is chosen for architectures where signed displacements from TP enable twice the range of static TLS offsets when biased like this. Architectures with such a tp/tcb offset must provide void *__lwp_gettcb_fast(void); in machine/mcontext.h and must define __HAVE___LWP_GETTCB_FAST in machine/types.h to reflect this; otherwise they must provide __lwp_getprivate_fast to return the TCB pointer. Each architecture has one of two TLS variants, variant I or variant II. Variant I places the static thread-local storage _after_ the fixed content of the TCB, at increasing addresses (increasing addresses grow down in diagram): +---------------+ | dtv pointer | tcb points here (struct tls_tcb) +---------------+ | pthread_t | +---------------+ | obj0 tls | obj0->tlsoffset = 0 | | | | +---------------+ | obj1 tls | obj1->tlsoffset = 3 +---------------+ | obj2 tls | obj2->tlsoffset = 4 | | . . . . . . | | +---------------+ | objN tls | objN->tlsoffset = k +---------------+ Variant II places the static thread-local storage _before_ the fixed content of the TCB, at decreasing addresses: +---------------+ | objN tls | objN->tlsoffset = k +---------------+ | obj(N-1) tls | obj(N-1)->tlsoffset = k - 1 . . . . . . | | +---------------+ | obj2 tls | obj2->tlsoffset = 4 +---------------+ | obj1 tls | obj1->tlsoffset = 3 +---------------+ | obj0 tls | obj0->tlsoffset = 0 | | | | +---------------+ | tcb pointer | tcb points here (struct tls_tcb) +---------------+ | dtv pointer | +---------------+ | pthread_t | +---------------+ See [ELFTLS] Sec. 3 `Run-Time Handling of TLS', Figs 1 and 2, for bigger pictures including the DTV and dynamically allocated TLS blocks. Each architecture also has its own ELF ABI processor supplement with the architecture-specific relocations and TLS details. References: [ELFTLS] Ulrich Drepper, `ELF Handling For Thread-Local Storage', Version 0.21, 2023-08-22. https://akkadia.org/drepper/tls.pdf https://web.archive.org/web/20240718081934/https://akkadia.org/drepper/tls.pdf Steps for adding TLS support for a new platform: (1) Declare TLS variant in machine/types.h by defining either __HAVE_TLS_VARIANT_I or __HAVE_TLS_VARIANT_II. (2) _lwp_makecontext has to set the reserved register or kernel transfer variable in uc_mcontext according to the provided value of `private'. Note that _lwp_makecontext takes tcb, not tp, as an argument, so make sure to adjust it if needed for the tp/tcb offset. See src/lib/libc/arch/$PLATFORM/gen/_lwp.c. This is not possible on the VAX as there is no free space in ucontext_t. This requires either a special version of _lwp_create or versioning everything using ucontext_t. Debug support depends on getting the data from ucontext_t, so the second option is possibly required. (3) _lwp_setprivate(2) has to update the same register as _lwp_makecontext uses for the private area pointer. Normally cpu_lwp_setprivate is provided by MD to reflect the kernel view and enabled by defining __HAVE_CPU_LWP_SETPRIVATE in machine/types.h. cpu_setmcontext is responsible for keeping the MI l_private field synchronised by calling lwp_setprivate as needed. cpu_switchto has to update the mapping. _lwp_setprivate is used for the initial thread, all other threads created by libpthread use _lwp_makecontext for this purpose. (4) Provide __tls_get_addr and possible other MD functions for dynamic TLS offset computation. If such alternative entry points exist (currently only i386), also add a weak reference to 0 in src/lib/libc/tls/tls.c. The generic implementation can be found in tls.c and is used with __HAVE_COMMON___TLS_GET_ADDR. It depends on __lwp_getprivate_fast (see below). (5) Implement the necessary relocation records in mdreloc.c. There are typically three relocation types found in dynamic binaries: (a) R_TYPE(TLS_DTPOFF): Offset inside the module. The common TLS code ensures that the DTV vector points to offset 0 inside the module TLS block. This is normally def->st_value + rela->r_addend. (b) R_TYPE(TLS_DTPMOD): Module index. (c) R_TYPE(TLS_TPOFF): Static TLS offset. The code has to check whether the static TLS offset for this module has been allocated (defobj->tls_static) and otherwise call _rtld_tls_offset_allocate(). This may fail if no static space is available and the object has been pulled in via dlopen(3). It can also fail if the TLS area has already been used via a global-dynamic allocation. For TLS Variant I, this is typically: def->st_value + rela->r_addend + defobj->tlsoffset + sizeof(struct tls_tcb) e.g. the relocation doesn't include the fixed TCB. For TLS Variant II, this is typically: def->st_value - defobj->tlsoffset + rela->r_addend e.g. starting offset is counting down from the TCB. (6) If there is a tp/tcb offset, implement __lwp_gettcb_fast() __lwp_settcb() in machine/mcontext.h and set __HAVE___LWP_GETTCB_FAST __HAVE___LWP_SETTCB in machine/types.h. Otherwise, implement __lwp_getprivate_fast() in machine/mcontext.h and set __HAVE___LWP_GETPRIVATE_FAST in machine/types.h. (7) Test using src/tests/lib/libc/tls and src/tests/libexec/ld.elf_so. Make sure with "objdump -R" that t_tls_dynamic has two TPOFF relocations and h_tls_dlopen.so.1 and libh_tls_dynamic.so.1 have both two DTPMOD and DTPOFF relocations. src/libexec/ld.elf_so/TODO010064400011300000175000000020251153600431700155440ustar00srcmastrnetbsdrtld: * resolve MIPS binding lossage TLS: * implement proper allocator for static TLS and support for actively freeing DTV entries. binutils/gcc: * alpha: why are there GLOB_DAT relocs in ld.elf_so? * alpha: bogus textrels in rtti info * mips: why are there global GOT relocs in ld.elf_so? * mips: bogus textrels in .rel.dyn * powerpc: make sure the .got section is always executable * powerpc: fix ld scripts so that .rodata is still used for PIC machine-specific: * #ifdefs: headers.c:#ifndef __mips__ headers.c:#ifdef __mips__ reloc.c:#if defined(__hppa__) rtld.c:#if !defined(__hppa__) rtld.c:#if !defined(__mips__) && !defined(__hppa__) rtld.c:#if !defined(__arm__) && !defined(__mips__) && !defined(__sh__) rtld.c:#ifdef __mips__ rtld.h:#ifdef __mips__ symbol.c:#ifndef __mips__ issues to research: * sh, x86_64 have different absolute and GLOB_DAT relocs; nothing else does * sh, vax, x86_64 use addend on PLT; nothing else does rela: alpha hppa m68k powerpc sh sparc sparc64 vax x86_64 rel: arm i386 mips - mycroft 2003/09/24 src/libexec/ld.elf_so/compat.c010064400011300000175000000072151336174363200165210ustar00srcmastrnetbsd/* $NetBSD: compat.c,v 1.1 2018/10/17 23:36:58 joerg Exp $ */ /*- * Copyright (c) 2018 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Joerg Sonnenberger. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ /* * Early ELF support in NetBSD up to April 2nd, 2000 exposed dlopen and * friends via function pointers in the main object that is passed to the * startup code in crt0.o. Later versions kept the magic and version number * checks, but depend on normal symbol interposition to get the symbols from * rtld. The compatibility object build here contains just enough fields to * make either routine happy without polluting the rest of rtld. */ #include __RCSID("$NetBSD: compat.c,v 1.1 2018/10/17 23:36:58 joerg Exp $"); #include "rtld.h" #if defined(__alpha__) #define RTLD_OBJ_DLOPEN_OFFSET 264 #elif defined(__i386__) #define RTLD_OBJ_DLOPEN_OFFSET 140 #elif defined(__mips) && defined(_ABIO32) /* The MIPS legacy support is required for O32 only, N32 is not affected. */ #define RTLD_OBJ_DLOPEN_OFFSET 152 #elif defined(__powerpc__) && !defined(__powerpc64__) /* Only 32bit PowerPC is affected. */ #define RTLD_OBJ_DLOPEN_OFFSET 140 #elif defined(__sparc) && !defined(__sparc64__) /* Only 32bit SPARC is affected, 64bit SPARC ELF support was incomplete. */ #define RTLD_OBJ_DLOPEN_OFFSET 140 #endif #define RTLD_MAGIC 0xd550b87a #define RTLD_VERSION 1 #ifdef RTLD_OBJ_DLOPEN_OFFSET const uintptr_t _rtld_compat_obj[] = { # ifdef _LP64 # if BYTE_ORDER == BIG_ENDIAN [0] = (((uint64_t)RTLD_MAGIC) << 32) | RTLD_VERSION, # else [0] = (((uint64_t)RTLD_VERSION) << 32) | RTLD_MAGIC, # endif # else [0] = RTLD_MAGIC, [1] = RTLD_VERSION, # endif [(RTLD_OBJ_DLOPEN_OFFSET / sizeof(uintptr_t)) + 0] = (uintptr_t)dlopen, [(RTLD_OBJ_DLOPEN_OFFSET / sizeof(uintptr_t)) + 1] = (uintptr_t)dlsym, [(RTLD_OBJ_DLOPEN_OFFSET / sizeof(uintptr_t)) + 2] = (uintptr_t)dlerror, [(RTLD_OBJ_DLOPEN_OFFSET / sizeof(uintptr_t)) + 3] = (uintptr_t)dlclose, [(RTLD_OBJ_DLOPEN_OFFSET / sizeof(uintptr_t)) + 4] = (uintptr_t)dladdr, }; #else const uintptr_t _rtld_compat_obj[] = { # ifdef _LP64 # if BYTE_ORDER == BIG_ENDIAN [0] = (((uint64_t)RTLD_MAGIC) << 32) | RTLD_VERSION, # else [0] = (((uint64_t)RTLD_VERSION) << 32) | RTLD_MAGIC, # endif # else [0] = RTLD_MAGIC, [1] = RTLD_VERSION, # endif }; #endif /* RTLD_OBJ_DLOPEN_OFFSET */ src/libexec/ld.elf_so/debug.c010064400011300000175000000042441013611645400163140ustar00srcmastrnetbsd/* $NetBSD: debug.c,v 1.6 2004/10/22 05:39:56 skrll Exp $ */ /* * Copyright 1996 John D. Polstra. * Copyright 1996 Matt Thomas * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by John Polstra. * 4. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ /* * Support for printing debugging messages. */ #include #ifndef lint __RCSID("$NetBSD: debug.c,v 1.6 2004/10/22 05:39:56 skrll Exp $"); #endif /* not lint */ #include #include "debug.h" #include "rtldenv.h" #ifdef DEBUG int debug = 0; void debug_printf(const char *format, ...) { if (debug) { va_list ap; va_start(ap, format); xvprintf(format, ap); va_end(ap); xprintf("\n"); } } #endif src/libexec/ld.elf_so/debug.h010064400011300000175000000043231465352413500163260ustar00srcmastrnetbsd/* $NetBSD: debug.h,v 1.8 2024/08/03 21:59:57 riastradh Exp $ */ /* * Copyright 1996 John D. Polstra. * Copyright 1996 Matt Thomas * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by John Polstra. * 4. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ /* * Support for printing debugging messages. */ #ifndef DEBUG_H #define DEBUG_H #ifdef DEBUG extern void debug_printf __P((const char *, ...)) __attribute__((__format__(__printf__, 1, 2))); extern int debug; # define dbg(a) debug_printf a #else # define dbg(a) ((void) 0) #endif #ifdef RTLD_DEBUG_RELOC # define rdbg(a) debug_printf a #else # define rdbg(a) ((void) 0) #endif #if ELFSIZE == 64 #define PRImemsz PRIu64 #else #define PRImemsz PRIu32 #endif #endif src/libexec/ld.elf_so/diagassert.c010064400011300000175000000002261173062366600173610ustar00srcmastrnetbsd#include #include __dead void /*ARGSUSED*/ __diagassert13(const char *fn, int fl, const char *fu, const char *m) { abort(); } src/libexec/ld.elf_so/expand.c010064400011300000175000000103371500524763000165060ustar00srcmastrnetbsd/* $NetBSD: expand.c,v 1.8 2025/05/02 23:04:56 riastradh Exp $ */ /*- * Copyright (c) 2007 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Christos Zoulas. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include #ifndef lint __RCSID("$NetBSD: expand.c,v 1.8 2025/05/02 23:04:56 riastradh Exp $"); #endif /* not lint */ #include #include #include #ifdef DEBUG_EXPAND #include #include #define xwarn warn #define xerr err size_t _rtld_expand_path(char *, size_t, const char *, const char *, const char *); #else #include #include "rtld.h" #endif #include "../../lib/libc/include/__sysctl.h" /* __sysctl syscall stub */ static const struct { const char *name; size_t namelen; } bltn[] = { #define ADD(a) { #a, sizeof(#a) - 1 }, ADD(HWCAP) /* SSE, MMX, etc */ ADD(ISALIST) /* XXX */ ADD(ORIGIN) /* dirname argv[0] */ ADD(OSNAME) /* uname -s */ ADD(OSREL) /* uname -r */ ADD(PLATFORM) /* uname -p */ }; static int mib[3][2] = { { CTL_KERN, KERN_OSTYPE }, { CTL_KERN, KERN_OSRELEASE }, { CTL_HW, HW_MACHINE_ARCH }, }; static size_t expand(char *buf, const char *execname, size_t what, size_t bl) { const char *p, *ep; char *bp = buf; size_t len; char name[32]; switch (what) { case 0: /* HWCAP XXX: Not yet */ case 1: /* ISALIST XXX: Not yet */ return 0; case 2: /* ORIGIN */ if (execname == NULL) xerr(1, "execname not specified in AUX vector"); if ((ep = strrchr(p = execname, '/')) == NULL) xerr(1, "bad execname `%s' in AUX vector", execname); break; case 3: /* OSNAME */ case 4: /* OSREL */ case 5: /* PLATFORM */ len = sizeof(name); if (__sysctl(mib[what - 3], 2, name, &len, NULL, 0) == -1) { xwarn("sysctl"); return 0; } ep = (p = name) + len - 1; break; default: return 0; } while (p != ep && bl) *bp++ = *p++, bl--; return bp - buf; } size_t _rtld_expand_path(char *buf, size_t bufsize, const char *execname, const char *bp, const char *ep) { size_t i, ds = bufsize; char *dp = buf; const char *p; int br; for (p = bp; p < ep;) { if (*p == '$') { br = *++p == '{'; if (br) p++; for (i = 0; i < sizeof(bltn) / sizeof(bltn[0]); i++) { size_t s = bltn[i].namelen; const char *es = p + s; if ((br && *es != '}') || (!br && (es != ep && isalpha((unsigned char)*es)))) continue; if (strncmp(bltn[i].name, p, s) == 0) { size_t ls = expand(dp, execname, i, ds); if (ls >= ds) return bufsize; ds -= ls; dp += ls; p = es + br; goto done; } } p -= br + 1; } *dp++ = *p++; ds--; done:; } *dp = '\0'; return dp - buf; } #ifdef DEBUG_EXPAND int main(int argc, char *argv[]) { char buf[1024]; size_t i; for (i = 1; i < argc; i++) { char *p = argv[i], *ep = argv[i] + strlen(p); size_t n = _rtld_expand_path(buf, sizeof(buf), argv[0], p, ep); printf("%s\n", buf); } return 0; } #endif src/libexec/ld.elf_so/hash.c010064400011300000175000000053761446142551600161670ustar00srcmastrnetbsd/* $NetBSD: hash.c,v 1.1 2023/07/30 09:20:14 riastradh Exp $ */ /* * Copyright 1996 John D. Polstra. * Copyright 1996 Matt Thomas * Copyright 2002 Charles M. Hannum * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by John Polstra. * 4. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ /* * Dynamic linker for ELF. * * John Polstra . */ #include #ifndef lint __RCSID("$NetBSD: hash.c,v 1.1 2023/07/30 09:20:14 riastradh Exp $"); #endif /* not lint */ #include #include "hash.h" /* * SysV hash function for symbol table lookup. It is a slightly optimized * version of the hash specified by the System V ABI. */ Elf32_Word _rtld_sysv_hash(const char *name) { const unsigned char *p = (const unsigned char *) name; Elf32_Word h = 0; while (__predict_true(*p != '\0')) { h = (h << 4) + *p++; h ^= (h >> 24) & 0xf0; } return (h & 0x0fffffff); } /* * Hash function for symbol table lookup. Don't even think about changing * this. It is specified by the GNU toolchain ABI. */ Elf32_Word _rtld_gnu_hash(const char *name) { const unsigned char *p = (const unsigned char *) name; uint_fast32_t h = 5381; unsigned char c; for (c = *p; c != '\0'; c = *++p) h = h * 33 + c; return (h & 0xffffffff); } src/libexec/ld.elf_so/hash.h010064400011300000175000000036461446142551600161720ustar00srcmastrnetbsd/* $NetBSD: hash.h,v 1.1 2023/07/30 09:20:14 riastradh Exp $ */ /* * Copyright 1996 John D. Polstra. * Copyright 1996 Matt Thomas * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by John Polstra. * 4. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ #ifndef RTLD_HASH_H #define RTLD_HASH_H #include Elf32_Word _rtld_sysv_hash(const char *); Elf32_Word _rtld_gnu_hash(const char *); #endif /* RTLD_HASH_H */ src/libexec/ld.elf_so/headers.c010064400011300000175000000405311515271640200166420ustar00srcmastrnetbsd/* $NetBSD: headers.c,v 1.75.2.3 2026/03/04 19:29:37 martin Exp $ */ /* * Copyright 1996 John D. Polstra. * Copyright 1996 Matt Thomas * Copyright 2002 Charles M. Hannum * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by John Polstra. * 4. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ /* * Dynamic linker for ELF. * * John Polstra . */ #include #ifndef lint __RCSID("$NetBSD: headers.c,v 1.75.2.3 2026/03/04 19:29:37 martin Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include #include #include #include "debug.h" #include "rtld.h" /* * Process a shared object's DYNAMIC section, and save the important * information in its Obj_Entry structure. */ void _rtld_digest_dynamic(const char *execname, Obj_Entry *obj) { Elf_Dyn *dynp; Needed_Entry **needed_tail = &obj->needed; const Elf_Dyn *dyn_soname = NULL; const Elf_Dyn *dyn_rpath = NULL; bool use_pltrel = false; bool use_pltrela = false; Elf_Addr relsz = 0, relasz = 0, relrsz = 0; Elf_Addr pltrel = 0, pltrelsz = 0; #ifdef RTLD_LOADER Elf_Addr init = 0, fini = 0; #endif dbg(("headers: digesting PT_DYNAMIC at %p", obj->dynamic)); for (dynp = obj->dynamic; dynp->d_tag != DT_NULL; ++dynp) { dbg((" d_tag %ld at %p", (long)dynp->d_tag, dynp)); switch (dynp->d_tag) { case DT_REL: obj->rel = (const Elf_Rel *) (obj->relocbase + dynp->d_un.d_ptr); break; case DT_RELSZ: relsz = dynp->d_un.d_val; break; case DT_RELENT: assert(dynp->d_un.d_val == sizeof(Elf_Rel)); break; case DT_JMPREL: pltrel = dynp->d_un.d_ptr; break; case DT_PLTRELSZ: pltrelsz = dynp->d_un.d_val; break; case DT_RELA: obj->rela = (const Elf_Rela *) (obj->relocbase + dynp->d_un.d_ptr); break; case DT_RELASZ: relasz = dynp->d_un.d_val; break; case DT_RELAENT: assert(dynp->d_un.d_val == sizeof(Elf_Rela)); break; case DT_RELR: obj->relr = (const Elf_Relr *)(obj->relocbase + dynp->d_un.d_ptr); break; case DT_RELRSZ: relrsz = dynp->d_un.d_val; break; case DT_RELRENT: assert(dynp->d_un.d_val == sizeof(Elf_Relr)); break; case DT_PLTREL: use_pltrel = dynp->d_un.d_val == DT_REL; use_pltrela = dynp->d_un.d_val == DT_RELA; assert(use_pltrel || use_pltrela); break; case DT_SYMTAB: obj->symtab = (const Elf_Sym *) (obj->relocbase + dynp->d_un.d_ptr); break; case DT_SYMENT: assert(dynp->d_un.d_val == sizeof(Elf_Sym)); break; case DT_STRTAB: obj->strtab = (const char *) (obj->relocbase + dynp->d_un.d_ptr); break; case DT_STRSZ: obj->strsize = dynp->d_un.d_val; break; case DT_VERNEED: obj->verneed = (const Elf_Verneed *) (obj->relocbase + dynp->d_un.d_ptr); break; case DT_VERNEEDNUM: obj->verneednum = dynp->d_un.d_val; break; case DT_VERDEF: obj->verdef = (const Elf_Verdef *) (obj->relocbase + dynp->d_un.d_ptr); break; case DT_VERDEFNUM: obj->verdefnum = dynp->d_un.d_val; break; case DT_VERSYM: obj->versyms = (const Elf_Versym *) (obj->relocbase + dynp->d_un.d_ptr); break; case DT_HASH: { uint32_t nbuckets, nchains; const Elf_Symindx *hashtab = (const Elf_Symindx *) (obj->relocbase + dynp->d_un.d_ptr); if (hashtab[0] > UINT32_MAX) nbuckets = UINT32_MAX; else nbuckets = hashtab[0]; obj->nbuckets = nbuckets; obj->nchains = (nchains = hashtab[1]); obj->buckets = hashtab + 2; obj->chains = obj->buckets + obj->nbuckets; /* Validity check */ if (!obj->buckets || !nbuckets || !nchains) continue; obj->sysv_hash = true; /* * Should really be in _rtld_relocate_objects, * but _rtld_symlook_obj might be used before. */ fast_divide32_prepare(obj->nbuckets, &obj->nbuckets_m, &obj->nbuckets_s1, &obj->nbuckets_s2); } break; case DT_GNU_HASH: { uint32_t nmaskwords; uint32_t nbuckets, symndx; int bloom_size32; bool nmw_power2; const Elf_Symindx *hashtab = (const Elf_Symindx *) (obj->relocbase + dynp->d_un.d_ptr); if (hashtab[0] > UINT32_MAX) nbuckets = UINT32_MAX; else nbuckets = hashtab[0]; obj->nbuckets_gnu = nbuckets; nmaskwords = hashtab[2]; bloom_size32 = nmaskwords * (ELFSIZE / 32); obj->buckets_gnu = (const uint32_t *)(hashtab + 4 + bloom_size32); nmw_power2 = powerof2(nmaskwords); /* Validity check */ if (!nmw_power2 || !nbuckets || !obj->buckets_gnu) continue; obj->gnu_hash = true; obj->mask_bm_gnu = nmaskwords - 1; obj->symndx_gnu = (symndx = hashtab[1]); obj->shift2_gnu = hashtab[3]; obj->bloom_gnu = (const Elf_Addr *)(hashtab + 4); obj->chains_gnu = obj->buckets_gnu + nbuckets - symndx; /* * Should really be in _rtld_relocate_objects, * but _rtld_symlook_obj might be used before. */ fast_divide32_prepare(nbuckets, &obj->nbuckets_m_gnu, &obj->nbuckets_s1_gnu, &obj->nbuckets_s2_gnu); dbg(("found GNU Hash: buckets=%p " "nbuckets=%u chains=%p nchains=%lu " "bloom=%p mask_bm=%u shift2=%u " "symndx=%u", obj->buckets_gnu, obj->nbuckets_gnu, obj->chains_gnu, obj->nchains_gnu, obj->bloom_gnu, obj->mask_bm_gnu, obj->shift2_gnu, obj->symndx_gnu)); } break; case DT_NEEDED: { Needed_Entry *nep = NEW(Needed_Entry); nep->name = dynp->d_un.d_val; nep->obj = NULL; nep->next = NULL; *needed_tail = nep; needed_tail = &nep->next; } break; case DT_PLTGOT: obj->pltgot = (Elf_Addr *) (obj->relocbase + dynp->d_un.d_ptr); break; case DT_TEXTREL: obj->textrel = true; break; case DT_SYMBOLIC: obj->symbolic = true; break; case DT_RPATH: case DT_RUNPATH: /* * We have to wait until later to process this, because * we might not have gotten the address of the string * table yet. */ dyn_rpath = dynp; break; case DT_SONAME: dyn_soname = dynp; break; case DT_INIT: #ifdef RTLD_LOADER init = dynp->d_un.d_ptr; #endif break; #ifdef HAVE_INITFINI_ARRAY case DT_INIT_ARRAY: obj->init_array = (fptr_t *)(obj->relocbase + dynp->d_un.d_ptr); dbg(("headers: DT_INIT_ARRAY at %p", obj->init_array)); break; case DT_INIT_ARRAYSZ: obj->init_arraysz = dynp->d_un.d_val / sizeof(fptr_t); dbg(("headers: DT_INIT_ARRAYSZ %zu", obj->init_arraysz)); break; #endif case DT_FINI: #ifdef RTLD_LOADER fini = dynp->d_un.d_ptr; #endif break; #ifdef HAVE_INITFINI_ARRAY case DT_FINI_ARRAY: obj->fini_array = (fptr_t *)(obj->relocbase + dynp->d_un.d_ptr); dbg(("headers: DT_FINI_ARRAY at %p", obj->fini_array)); break; case DT_FINI_ARRAYSZ: obj->fini_arraysz = dynp->d_un.d_val / sizeof(fptr_t); dbg(("headers: DT_FINI_ARRAYSZ %zu", obj->fini_arraysz)); break; #endif #ifdef HAVE_INITFINI_ARRAY case DT_PREINIT_ARRAY: obj->preinit_array = (fptr_t *)(obj->relocbase + dynp->d_un.d_ptr); dbg(("headers: DT_PREINIT_ARRAY at %p", obj->preinit_array)); break; case DT_PREINIT_ARRAYSZ: obj->preinit_arraysz = dynp->d_un.d_val / sizeof(fptr_t); dbg(("headers: DT_PREINIT_ARRAYSZ %zu", obj->preinit_arraysz)); break; #endif /* * Don't process DT_DEBUG on MIPS as the dynamic * section is mapped read-only. DT_MIPS_RLD_MAP or * DT_MIPS_RLD_MAP_REL is used instead. * * XXX: n32/n64 may use DT_DEBUG, not sure yet. */ #ifndef __mips__ case DT_DEBUG: #ifdef RTLD_LOADER dynp->d_un.d_ptr = (Elf_Addr)&_rtld_debug; #endif break; #endif #ifdef __alpha__ case DT_ALPHA_PLTRO: obj->secureplt = (dynp->d_un.d_val != 0); break; #endif #ifdef __mips__ case DT_MIPS_LOCAL_GOTNO: obj->local_gotno = dynp->d_un.d_val; break; case DT_MIPS_SYMTABNO: obj->symtabno = dynp->d_un.d_val; break; case DT_MIPS_GOTSYM: obj->gotsym = dynp->d_un.d_val; break; /* * The .dynamic section is read-only, so the loader * can't write to it; instead, the linker reserves * space in a read/write .rld_map section for the * loader write to, and leaves a pointer to that space * in a DT_MIPS_RLD_MAP entry. * * Except pointers like that don't work for * position-independent executables, which use * DT_MIPS_RLD_MAP_REL instead. */ case DT_MIPS_RLD_MAP: #ifdef RTLD_LOADER *((Elf_Addr *)dynp->d_un.d_ptr) = (Elf_Addr)&_rtld_debug; #endif break; /* * The .dynamic section is read-only, so the loader * can't write to it; instead, the linker reserves * space in a read/write .rld_map section for the * loader write to, which might be mapped anywhere in * virtual address space for position-independent * executables, so the linker leaves its offset * relative to the .dynamic entry itself in the dynamic * entry. */ case DT_MIPS_RLD_MAP_REL: #ifdef RTLD_LOADER *(Elf_Addr *)((Elf_Addr)dynp + dynp->d_un.d_val) = (Elf_Addr)&_rtld_debug; #endif break; #endif #ifdef __powerpc__ #ifdef _LP64 case DT_PPC64_GLINK: obj->glink = (Elf_Addr)(uintptr_t)obj->relocbase + dynp->d_un.d_ptr; break; #else case DT_PPC_GOT: obj->gotptr = (Elf_Addr *)(obj->relocbase + dynp->d_un.d_ptr); break; #endif #endif case DT_FLAGS_1: obj->z_now = ((dynp->d_un.d_val & DF_1_NOW) != 0); obj->z_nodelete = ((dynp->d_un.d_val & DF_1_NODELETE) != 0); obj->z_initfirst = ((dynp->d_un.d_val & DF_1_INITFIRST) != 0); obj->z_noopen = ((dynp->d_un.d_val & DF_1_NOOPEN) != 0); break; } } obj->rellim = (const Elf_Rel *)((const uint8_t *)obj->rel + relsz); obj->relalim = (const Elf_Rela *)((const uint8_t *)obj->rela + relasz); obj->relrlim = (const Elf_Relr *)((const uint8_t *)obj->relr + relrsz); if (use_pltrel) { obj->pltrel = (const Elf_Rel *)(obj->relocbase + pltrel); obj->pltrellim = (const Elf_Rel *)(obj->relocbase + pltrel + pltrelsz); obj->pltrelalim = 0; /* On PPC and SPARC, at least, REL(A)SZ may include JMPREL. Trim rel(a)lim to save time later. */ if (obj->rellim && obj->pltrel && obj->rellim > obj->pltrel && obj->rellim <= obj->pltrellim) obj->rellim = obj->pltrel; } else if (use_pltrela) { obj->pltrela = (const Elf_Rela *)(obj->relocbase + pltrel); obj->pltrellim = 0; obj->pltrelalim = (const Elf_Rela *)(obj->relocbase + pltrel + pltrelsz); /* On PPC and SPARC, at least, REL(A)SZ may include JMPREL. Trim rel(a)lim to save time later. */ if (obj->relalim && obj->pltrela && obj->relalim > obj->pltrela && obj->relalim <= obj->pltrelalim) obj->relalim = obj->pltrela; } /* If the ELF Hash is present, "nchains" is the same in both hashes. */ if (!obj->sysv_hash && obj->gnu_hash) { uint_fast32_t i, nbucket, symndx; /* Otherwise, count the entries from the GNU Hash chain. */ nbucket = obj->nbuckets_gnu; symndx = obj->symndx_gnu; for (i = 0; i < nbucket; i++) { Elf_Word bkt = obj->buckets_gnu[i]; if (bkt == 0) continue; const uint32_t *hashval = &obj->chains_gnu[bkt]; do { symndx++; } while ((*hashval++ & 1U) == 0); } obj->nchains_gnu = (uint32_t)symndx; } #ifdef RTLD_LOADER #if defined(__HAVE_FUNCTION_DESCRIPTORS) if (init != 0) obj->init = (void (*)(void)) _rtld_function_descriptor_alloc(obj, NULL, init); if (fini != 0) obj->fini = (void (*)(void)) _rtld_function_descriptor_alloc(obj, NULL, fini); #else if (init != 0) obj->init = (void (*)(void)) (obj->relocbase + init); if (fini != 0) obj->fini = (void (*)(void)) (obj->relocbase + fini); #endif #endif if (dyn_rpath != NULL) { _rtld_add_paths(execname, &obj->rpaths, obj->strtab + dyn_rpath->d_un.d_val); } if (dyn_soname != NULL) { _rtld_object_add_name(obj, obj->strtab + dyn_soname->d_un.d_val); } } #ifdef RTLD_LOADER /* * Process a shared object's program header. This is used only for the * main program, when the kernel has already loaded the main program * into memory before calling the dynamic linker. It creates and * returns an Obj_Entry structure. */ Obj_Entry * _rtld_digest_phdr(const Elf_Phdr *phdr, int phnum, caddr_t entry) { Obj_Entry *obj; const Elf_Phdr *phlimit = phdr + phnum; const Elf_Phdr *ph; bool first_seg = true; Elf_Addr vaddr; size_t size; obj = _rtld_obj_new(); for (ph = phdr; ph < phlimit; ++ph) { if (ph->p_type != PT_PHDR) continue; obj->relocbase = (caddr_t)((uintptr_t)phdr - (uintptr_t)ph->p_vaddr); obj->phdr = phdr; /* Equivalent to relocbase + p_vaddr. */ obj->phsize = ph->p_memsz; dbg(("headers: phdr %p (%p) phsize %zu relocbase %p", obj->phdr, phdr, obj->phsize, obj->relocbase)); break; } for (ph = phdr; ph < phlimit; ++ph) { vaddr = (Elf_Addr)(uintptr_t)(obj->relocbase + ph->p_vaddr); switch (ph->p_type) { case PT_INTERP: obj->interp = (const char *)(uintptr_t)vaddr; dbg(("headers: %s %p phsize %" PRImemsz, "PT_INTERP", (void *)(uintptr_t)vaddr, ph->p_memsz)); break; case PT_LOAD: if (first_seg) { /* First load segment */ obj->vaddrbase = round_down(vaddr); obj->mapbase = (caddr_t)(uintptr_t)obj->vaddrbase; size = round_up(vaddr + ph->p_memsz) - obj->vaddrbase; obj->textsize = size; obj->mapsize = size; first_seg = false; } else { /* Last load segment */ size = round_up(vaddr + ph->p_memsz) - obj->vaddrbase; obj->mapsize = MAX(obj->mapsize, size); } dbg(("headers: %s %p phsize %" PRImemsz, "PT_LOAD", (void *)(uintptr_t)vaddr, ph->p_memsz)); break; case PT_DYNAMIC: obj->dynamic = (Elf_Dyn *)(uintptr_t)vaddr; dbg(("headers: %s %p phsize %" PRImemsz, "PT_DYNAMIC", (void *)(uintptr_t)vaddr, ph->p_memsz)); break; #ifdef GNU_RELRO case PT_GNU_RELRO: /* rounding happens later. */ obj->relro_page = obj->relocbase + ph->p_vaddr; obj->relro_size = ph->p_memsz; dbg(("headers: %s %p phsize %" PRImemsz, "PT_GNU_RELRO", (void *)(uintptr_t)vaddr, ph->p_memsz)); break; #endif #if defined(__HAVE_TLS_VARIANT_I) || defined(__HAVE_TLS_VARIANT_II) case PT_TLS: obj->tlsindex = 1; obj->tlssize = ph->p_memsz; obj->tlsalign = ph->p_align; obj->tlsinitsize = ph->p_filesz; obj->tlsinit = (void *)(obj->relocbase + (uintptr_t)ph->p_vaddr); dbg(("headers: %s %p phsize %" PRImemsz, "PT_TLS", (void *)(uintptr_t)vaddr, ph->p_memsz)); break; #endif #ifdef __ARM_EABI__ case PT_ARM_EXIDX: obj->exidx_start = (void *)(uintptr_t)vaddr; obj->exidx_sz = ph->p_memsz; dbg(("headers: %s %p phsize %" PRImemsz, "PT_ARM_EXIDX", (void *)(uintptr_t)vaddr, ph->p_memsz)); break; #endif } } obj->entry = entry; return obj; } #endif src/libexec/ld.elf_so/ld.elf_so.1010064400011300000175000000174531466727005700170340ustar00srcmastrnetbsd.\" $NetBSD: ld.elf_so.1,v 1.22 2024/09/08 09:36:47 rillig Exp $ .\" .\" Copyright (c) 2001 The NetBSD Foundation, Inc. .\" All rights reserved. .\" .\" This code is derived from software contributed to The NetBSD Foundation .\" by Nick Hudson. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" .\" THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS .\" ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED .\" TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR .\" PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS .\" BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR .\" CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF .\" SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS .\" INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN .\" CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) .\" ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE .\" POSSIBILITY OF SUCH DAMAGE. .\" .Dd April 15, 2019 .Dt LD.ELF_SO 1 .Os .Sh NAME .Nm ld.elf_so .Nd run-time link-editor (linker) .Sh DESCRIPTION .Nm is a self-contained, position independent program image providing run-time support for loading and link-editing shared objects into a process' address space. It uses information stored in data structures within the binary (see .Xr elf 5 ) and environment variables to determine which shared objects are needed. These shared objects are loaded at a convenient virtual address using the .Xr mmap 2 system call. After all shared objects have been successfully loaded, .Nm proceeds to resolve external references from both the main program and all objects loaded. Once all required references are resolved control is passed to the program via its entry point. .Ss Startup On the execution of a dynamically linked binary the kernel will load the program and its run-time linker as specified in the PT_INTERP section in the program header. At this point, instead of passing control directly to the program, the kernel passes control to the specified linker. An auxiliary vector of information is passed that includes the address of the program header, the size of each entry in the header, and the number of entries. The entry point of the program and the base address of where .Nm is loaded is also supplied. .Ss Finding objects Each .Xr elf 5 object file may contain information in its dynamic (PT_DYNAMIC) section about which shared objects it requires (often referred to as dependencies). These dependencies are specified in the optional .Dv DT_NEEDED entry within the dynamic section. Each .Dv DT_NEEDED entry refers to a filename string of the shared object that is to be searched for. .Pp The linker will search for libraries in three lists of paths: .Bl -enum .It A user defined list of paths as specified in LD_LIBRARY_PATH and .Xr ld.so.conf 5 . .Pp The use of ld.so.conf should be avoided as the setting of a global search path can present a security risk. .It A list of paths specified within a shared object using the .Dv DT_RPATH and .Dv DT_RUNPATH entries in the dynamic section. This is defined at shared object link time. .It The list of default paths which is set to .Pa /usr/lib . .El .Pp Dynamic loading via .Xr dlopen 3 uses the .Dv DT_RPATH and .Dv DT_RUNPATH entries of the main binary, independently of which object the call came from. .Pp .Nm will expand the following variables if present in the paths: .Bl -tag -width $PLATFORM .It $HWCAP Processor hardware capabilities, for example FPU, MMX, SSE. Currently unimplemented. .It $ISALIST List of instructions sets this processor can execute. Currently unimplemented. .It $ORIGIN The directory of the main object. .It $OSNAME The value of the .Dv kern.ostype .Xr sysctl 3 . .It $OSREL The value of the .Dv kern.osrelease .Xr sysctl 3 . .It $PLATFORM The value of the .Dv hw.machine_arch .Xr sysctl 3 . .El .Pp Both .Dv ${VARIABLE} and .Dv $VARIABLE are recognized. .Pp The filename string can be considered free form, however, it will almost always take the form lib.so., where name specifies the .Sq library name and number is conceptually the library's major version number. .Pp This name and another of the form lib.so are normally symbolic links to the real shared object which has a filename of the form lib.so..[.]. This naming convention allows a versioning scheme similar to .Xr a.out 5 . .Ss Relocation .Nm will perform all necessary relocations immediately except for relocations relating to the Procedure Linkage Table (PLT). The PLT is used as an indirection method for procedure calls to globally defined functions. It allows, through the use of intermediate code, the delayed binding of a call to a globally defined function to be performed at procedure call time. This .Sq lazy method is the default (see LD_BIND_NOW). .Ss Initialization A mechanism is provided for initialization and termination routines to be called, on a per-object basis before execution of the program proper begins or after the program has completed. This gives a shared object an opportunity to perform any extra set-up or completion work. .Pp The .Dv DT_INIT and .Dv DT_FINI entries in the dynamic section specify the addresses of the initialization and termination functions, respectively, for the shared object. .Nm arranges for each initialization function to be called before control is passed to the program and for the termination functions to be called by using .Xr atexit 3 . .Pp This mechanism is exploited by the system-supplied constructor initialization and destructor code located in .Pa /usr/lib/crtbeginS.o and .Pa /usr/lib/crtendS.o . These files are automatically included by .Xr cc 1 and .Xr c++ 1 in the list of object-code files passed to .Xr ld 1 when building a shared C or C++ object. .Sh ENVIRONMENT If the following environment variables exist they will be used by .Nm . .Bl -tag -width "LD_LIBRARY_PATH" .It Ev LD_LIBRARY_PATH A colon separated list of directories, overriding the default search path for shared libraries. .It Ev LD_PRELOAD A colon or space separated list of shared object filenames to be loaded .Em after the main program but .Em before its shared object dependencies. Space is allowed as a separator for backwards compatibility only. Support may be removed in a future release and should not be relied upon. .It Ev LD_BIND_NOW If defined immediate binding of Procedure Link Table (PLT) entries is performed instead of the default lazy method. .It Ev LD_DEBUG If defined a variety of debug information will be written to the standard error of a dynamically linked executed when it is run. This variable is only recognized if .Nm was compiled with debugging support .Sy ( -DDEBUG ) . .El .Sh FILES .Bl -tag -width /etc/ld.so.conf -compact .It Pa /etc/ld.so.conf library location hints supplied by the system administrator. .El .Sh SEE ALSO .Xr ld 1 , .Xr ld.aout_so 1 , .Xr dlfcn 3 , .Xr elf 5 .Sh HISTORY The ELF shared library model employed first appeared in Sys V R4. .Pp The path expansion variables first appeared in Solaris 10, and in .Nx 5.0 . .Sh SECURITY CONSIDERATIONS The environment variables .Ev LD_LIBRARY_PATH and .Ev LD_PRELOAD are not honored when executing in a set-user-ID or set-group-ID environment. This action is taken to prevent malicious substitution of shared object dependencies or interposition of symbols. src/libexec/ld.elf_so/load.c010064400011300000175000000256331522207752200161550ustar00srcmastrnetbsd/* $NetBSD: load.c,v 1.49.10.1 2026/07/03 18:36:36 martin Exp $ */ /* * Copyright 1996 John D. Polstra. * Copyright 1996 Matt Thomas * Copyright 2002 Charles M. Hannum * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by John Polstra. * 4. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ /* * Dynamic linker for ELF. * * John Polstra . */ #include #ifndef lint __RCSID("$NetBSD: load.c,v 1.49.10.1 2026/07/03 18:36:36 martin Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "debug.h" #include "rtld.h" static bool _rtld_load_by_name(const char *, Obj_Entry *, Needed_Entry **, int, sigset_t *); #ifdef RTLD_LOADER Objlist _rtld_list_main = /* Objects loaded at program startup */ SIMPLEQ_HEAD_INITIALIZER(_rtld_list_main); Objlist _rtld_list_global = /* Objects dlopened with RTLD_GLOBAL */ SIMPLEQ_HEAD_INITIALIZER(_rtld_list_global); void _rtld_objlist_push_head(Objlist *list, Obj_Entry *obj) { Objlist_Entry *elm; elm = NEW(Objlist_Entry); elm->obj = obj; SIMPLEQ_INSERT_HEAD(list, elm, link); } void _rtld_objlist_push_tail(Objlist *list, Obj_Entry *obj) { Objlist_Entry *elm; elm = NEW(Objlist_Entry); elm->obj = obj; SIMPLEQ_INSERT_TAIL(list, elm, link); } Objlist_Entry * _rtld_objlist_find(Objlist *list, const Obj_Entry *obj) { Objlist_Entry *elm; SIMPLEQ_FOREACH(elm, list, link) { if (elm->obj == obj) return elm; } return NULL; } #endif /* * Load a shared object into memory, if it is not already loaded. * * Returns a pointer to the Obj_Entry for the object. Returns NULL * on failure. */ Obj_Entry * _rtld_load_object(const char *filepath, int flags, sigset_t *mask) { Obj_Entry *obj; int fd = -1; struct stat sb; size_t pathlen = strlen(filepath); restart: /* * Search the list of objects for a matching path. If we find * a match, but it's concurrently running destructors, wait for * it with the rtld exclusive lock dropped and start over. */ for (obj = _rtld_objlist->next; obj != NULL; obj = obj->next) { if (pathlen == obj->pathlen && !strcmp(obj->path, filepath)) { if (__predict_false(_rtld_wait_for_fini(&obj, mask))) goto restart; assert(obj->refcount > 0); break; } } /* * If we didn't find a match by pathname, open the file and check * again by device and inode. This avoids false mismatches caused * by multiple links or ".." in pathnames. * * To avoid a race, we open the file and use fstat() rather than * using stat(). */ if (obj == NULL) { if ((fd = open(filepath, O_RDONLY)) == -1) { _rtld_error("Cannot open \"%s\"", filepath); return NULL; } if (fstat(fd, &sb) == -1) { _rtld_error("Cannot fstat \"%s\"", filepath); close(fd); return NULL; } for (obj = _rtld_objlist->next; obj != NULL; obj = obj->next) { if (obj->ino == sb.st_ino && obj->dev == sb.st_dev) { close(fd); if (__predict_false(_rtld_wait_for_fini(&obj, mask))) goto restart; assert(obj->refcount > 0); break; } } } #ifdef RTLD_LOADER if (pathlen == _rtld_objself.pathlen && strcmp(_rtld_objself.path, filepath) == 0) { close(fd); assert(_rtld_objself.refcount > 0); return &_rtld_objself; } #endif if (obj == NULL) { /* First use of this object, so we must map it in */ obj = _rtld_map_object(filepath, fd, &sb); (void)close(fd); if (obj == NULL) return NULL; _rtld_digest_dynamic(filepath, obj); if (flags & _RTLD_DLOPEN) { if (obj->z_noopen || (flags & _RTLD_NOLOAD)) { dbg(("refusing to load non-loadable \"%s\"", obj->path)); _rtld_error("Cannot dlopen non-loadable %s", obj->path); munmap(obj->mapbase, obj->mapsize); _rtld_obj_free(obj); return OBJ_ERR; } } *_rtld_objtail = obj; _rtld_objtail = &obj->next; _rtld_objgen++; _rtld_objcount++; _rtld_objloads++; _rtld_objrelocpending++; #ifdef RTLD_LOADER _rtld_linkmap_add(obj); /* for the debugger */ #endif dbg((" %p .. %p: %s", obj->mapbase, obj->mapbase + obj->mapsize - 1, obj->path)); if (obj->textrel) dbg((" WARNING: %s has impure text", obj->path)); } else { assert(obj->refcount > 0); } ++obj->refcount; #ifdef RTLD_LOADER if (flags & _RTLD_MAIN && !obj->mainref) { obj->mainref = 1; dbg(("adding %p (%s) to _rtld_list_main", obj, obj->path)); _rtld_objlist_push_tail(&_rtld_list_main, obj); } if (flags & _RTLD_GLOBAL && !obj->globalref) { obj->globalref = 1; dbg(("adding %p (%s) to _rtld_list_global", obj, obj->path)); _rtld_objlist_push_tail(&_rtld_list_global, obj); } #endif assert(obj->refcount > 0); return obj; } static bool _rtld_load_by_name(const char *name, Obj_Entry *obj, Needed_Entry **needed, int flags, sigset_t *mask) { Library_Xform *x = _rtld_xforms; Obj_Entry *o; size_t j; ssize_t i; bool got = false; union { int i; u_quad_t q; char s[16]; } val; /* * Caller must hold a reference to prevent concurrent dlclose * from unloading obj until we're done, even if we * unlock/wait/relock to wait for a dependency that is being * concurrently unloaded. */ assert(obj->neededrefcount); dbg(("load by name %s %p", name, x)); restart: /* * Search the list of objects for a matching path. If we find * a match, but it's concurrently running destructors, wait for * it with the rtld exclusive lock dropped and start over. */ for (o = _rtld_objlist->next; o != NULL; o = o->next) { if (_rtld_object_match_name(o, name)) { if (__predict_false(_rtld_wait_for_fini(&o, mask))) goto restart; assert(o->refcount > 0); ++o->refcount; (*needed)->obj = o; return true; } } for (; x; x = x->next) { if (strcmp(x->name, name) != 0) continue; j = sizeof(val); if ((i = _rtld_sysctl(x->ctlname, &val, &j)) == -1) { xwarnx(_PATH_LD_HINTS ": invalid/unknown sysctl for %s (%d)", name, errno); break; } switch (i) { case CTLTYPE_QUAD: xsnprintf(val.s, sizeof(val.s), "%" PRIu64, val.q); break; case CTLTYPE_INT: xsnprintf(val.s, sizeof(val.s), "%d", val.i); break; case CTLTYPE_STRING: break; default: xwarnx("unsupported sysctl type %d", (int)i); break; } dbg(("sysctl returns %s", val.s)); for (i = 0; i < RTLD_MAX_ENTRY && x->entry[i].value != NULL; i++) { dbg(("entry %ld", (unsigned long)i)); if (strcmp(x->entry[i].value, val.s) == 0) break; } if (i == RTLD_MAX_ENTRY) { xwarnx("sysctl value %s not found for lib%s", val.s, name); break; } for (j = 0; j < RTLD_MAX_LIBRARY && x->entry[i].library[j] != NULL; j++) { o = _rtld_load_library(x->entry[i].library[j], obj, flags, mask); if (o == NULL) { xwarnx("could not load %s for %s", x->entry[i].library[j], name); continue; } assert(o->refcount > 0); got = true; if (j == 0) (*needed)->obj = o; else { /* make a new one and put it in the chain */ Needed_Entry *ne = xmalloc(sizeof(*ne)); ne->name = (*needed)->name; ne->obj = o; ne->next = (*needed)->next; (*needed)->next = ne; *needed = ne; } } } if (got) return true; assert((*needed)->obj == NULL); (*needed)->obj = _rtld_load_library(name, obj, flags, mask); assert((*needed)->obj->refcount > 0); return ((*needed)->obj != NULL); } /* * Given a shared object, traverse its list of needed objects, and load * each of them. Returns 0 on success. Generates an error message and * returns -1 on failure. */ int _rtld_load_needed_objects(Obj_Entry *first, int flags, sigset_t *mask) { Obj_Entry *obj; int status = 0; for (obj = first; obj != NULL; obj = obj->next) { Needed_Entry *needed; /* * If obj is already being unloaded, there is no need * to load its dependencies, so just skip it. */ if (__predict_false(obj->refcount == 0)) continue; /* * Prevent obj from being concurrently unloaded until * we're done. We hold the rtld exclusive lock right * now, but _rtld_load_by_name may drop it. */ _rtld_load_needed_enter(obj); for (needed = obj->needed; needed != NULL; needed = needed->next) { const char *name = obj->strtab + needed->name; #ifdef RTLD_LOADER Obj_Entry *nobj; #endif if (__predict_false(needed->obj != NULL)) continue; if (!_rtld_load_by_name(name, obj, &needed, flags & ~_RTLD_NOLOAD, mask)) status = -1; /* FIXME - cleanup */ #ifdef RTLD_LOADER if (status == -1) break; if (flags & _RTLD_MAIN) continue; nobj = needed->obj; if (nobj->z_nodelete && !obj->ref_nodel) { dbg(("obj %s nodelete", nobj->path)); _rtld_ref_dag(nobj); nobj->ref_nodel = true; } #endif } /* * Allow obj to be concurrently unloaded now that we're * done loading its dependencies. */ _rtld_load_needed_exit(obj); #ifdef RTLD_LOADER if (status == -1) break; #endif } return status; } #ifdef RTLD_LOADER int _rtld_preload(const char *preload_path, sigset_t *mask) { const char *path; char *cp, *buf; int status = 0; if (preload_path != NULL && *preload_path != '\0') { cp = buf = xstrdup(preload_path); while ((path = strsep(&cp, " :")) != NULL && status == 0) { if (!_rtld_load_object(path, _RTLD_MAIN, mask)) status = -1; else dbg((" preloaded \"%s\"", path)); } xfree(buf); } return status; } #endif src/libexec/ld.elf_so/map_object.c010064400011300000175000000373611517752563000173510ustar00srcmastrnetbsd/* $NetBSD: map_object.c,v 1.69.2.1 2026/05/06 17:18:03 martin Exp $ */ /* * Copyright 1996 John D. Polstra. * Copyright 1996 Matt Thomas * Copyright 2002 Charles M. Hannum * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by John Polstra. * 4. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ #include #ifndef lint __RCSID("$NetBSD: map_object.c,v 1.69.2.1 2026/05/06 17:18:03 martin Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include #include #include "debug.h" #include "rtld.h" static int convert_prot(int); /* Elf flags -> mmap protection */ static int convert_flags(int); /* Elf flags -> mmap flags */ #define EA_UNDEF (~(Elf_Addr)0) /* * Map a shared object into memory. The argument is a file descriptor, * which must be open on the object and positioned at its beginning. * * The return value is a pointer to a newly-allocated Obj_Entry structure * for the shared object. Returns NULL on failure. */ Obj_Entry * _rtld_map_object(const char *path, int fd, const struct stat *sb) { Obj_Entry *obj; Elf_Ehdr *ehdr; Elf_Phdr *phdr; #if defined(__HAVE_TLS_VARIANT_I) || defined(__HAVE_TLS_VARIANT_II) Elf_Phdr *phtls; #endif Elf_Phdr *phlimit; Elf_Phdr **segs = NULL; int nsegs; caddr_t mapbase = MAP_FAILED; size_t mapsize = 0; int mapflags; Elf_Addr base_alignment; Elf_Addr base_vaddr; Elf_Addr base_vlimit; Elf_Addr text_vlimit; Elf_Addr text_end; void *base_addr; Elf_Off data_offset; Elf_Addr data_vaddr; Elf_Addr data_vlimit; int data_flags; int data_prot; caddr_t data_addr; Elf_Addr bss_vaddr; Elf_Addr bss_vlimit; caddr_t bss_addr; #if defined(__HAVE_TLS_VARIANT_I) || defined(__HAVE_TLS_VARIANT_II) Elf_Addr tls_vaddr = 0; /* Noise GCC */ #endif Elf_Addr phdr_vaddr; size_t phdr_memsz, phsize; int i; #ifdef RTLD_LOADER Elf_Addr clear_vaddr; caddr_t clear_page; caddr_t clear_addr; size_t nclear; #endif #ifdef GNU_RELRO Elf_Addr relro_page; size_t relro_size; #endif #ifdef notyet int stack_flags; #endif if (sb != NULL && sb->st_size < (off_t)sizeof (Elf_Ehdr)) { _rtld_error("%s: not ELF file (too short)", path); return NULL; } obj = _rtld_obj_new(); obj->path = xstrdup(path); obj->pathlen = strlen(path); if (sb != NULL) { obj->dev = sb->st_dev; obj->ino = sb->st_ino; } ehdr = mmap(NULL, _rtld_pagesz, PROT_READ, MAP_FILE | MAP_SHARED, fd, (off_t)0); obj->ehdr = ehdr; if (ehdr == MAP_FAILED) { _rtld_error("%s: read error: %s", path, xstrerror(errno)); goto error; } /* Make sure the file is valid */ if (memcmp(ELFMAG, ehdr->e_ident, SELFMAG) != 0) { _rtld_error("%s: not ELF file (magic number bad)", path); goto error; } if (ehdr->e_ident[EI_CLASS] != ELFCLASS) { _rtld_error("%s: invalid ELF class %x; expected %x", path, ehdr->e_ident[EI_CLASS], ELFCLASS); goto error; } /* Elf_e_ident includes class */ if (ehdr->e_ident[EI_VERSION] != EV_CURRENT || ehdr->e_version != EV_CURRENT || ehdr->e_ident[EI_DATA] != ELFDEFNNAME(MACHDEP_ENDIANNESS)) { _rtld_error("%s: unsupported file version", path); goto error; } if (ehdr->e_type != ET_EXEC && ehdr->e_type != ET_DYN) { _rtld_error("%s: unsupported file type", path); goto error; } switch (ehdr->e_machine) { ELFDEFNNAME(MACHDEP_ID_CASES) default: _rtld_error("%s: unsupported machine", path); goto error; } /* * We rely on the program header being in the first page. This is * not strictly required by the ABI specification, but it seems to * always true in practice. And, it simplifies things considerably. */ assert(ehdr->e_phentsize == sizeof(Elf_Phdr)); assert(ehdr->e_phoff + ehdr->e_phnum * sizeof(Elf_Phdr) <= _rtld_pagesz); /* * Scan the program header entries, and save key information. * * We rely on there being exactly two load segments, text and data, * in that order. */ phdr = (Elf_Phdr *) ((caddr_t)ehdr + ehdr->e_phoff); #if defined(__HAVE_TLS_VARIANT_I) || defined(__HAVE_TLS_VARIANT_II) phtls = NULL; #endif phsize = ehdr->e_phnum * sizeof(phdr[0]); obj->phdr = NULL; #ifdef GNU_RELRO relro_page = 0; relro_size = 0; #endif phdr_vaddr = EA_UNDEF; phdr_memsz = 0; phlimit = phdr + ehdr->e_phnum; segs = xmalloc(sizeof(segs[0]) * ehdr->e_phnum); if (segs == NULL) { _rtld_error("No memory for segs"); goto error; } #ifdef notyet stack_flags = PF_R | PF_W; #endif nsegs = -1; while (phdr < phlimit) { switch (phdr->p_type) { case PT_INTERP: obj->interp = (void *)(uintptr_t)phdr->p_vaddr; dbg(("%s: PT_INTERP %p", obj->path, obj->interp)); break; case PT_LOAD: segs[++nsegs] = phdr; if ((segs[nsegs]->p_align & (_rtld_pagesz - 1)) != 0) { _rtld_error( "%s: PT_LOAD segment %d not page-aligned", path, nsegs); goto error; } if ((segs[nsegs]->p_flags & PF_X) == PF_X) { text_end = MAX(text_end, round_up(segs[nsegs]->p_vaddr + segs[nsegs]->p_memsz)); } dbg(("%s: %s %p phsize %" PRImemsz, obj->path, "PT_LOAD", (void *)(uintptr_t)phdr->p_vaddr, phdr->p_memsz)); break; case PT_PHDR: phdr_vaddr = phdr->p_vaddr; phdr_memsz = phdr->p_memsz; dbg(("%s: %s %p phsize %" PRImemsz, obj->path, "PT_PHDR", (void *)(uintptr_t)phdr->p_vaddr, phdr->p_memsz)); break; #ifdef notyet case PT_GNU_STACK: stack_flags = phdr->p_flags; break; #endif #ifdef GNU_RELRO case PT_GNU_RELRO: relro_page = phdr->p_vaddr; relro_size = phdr->p_memsz; break; #endif case PT_DYNAMIC: obj->dynamic = (void *)(uintptr_t)phdr->p_vaddr; dbg(("%s: %s %p phsize %" PRImemsz, obj->path, "PT_DYNAMIC", (void *)(uintptr_t)phdr->p_vaddr, phdr->p_memsz)); break; #if defined(__HAVE_TLS_VARIANT_I) || defined(__HAVE_TLS_VARIANT_II) case PT_TLS: phtls = phdr; dbg(("%s: %s %p phsize %" PRImemsz, obj->path, "PT_TLS", (void *)(uintptr_t)phdr->p_vaddr, phdr->p_memsz)); break; #endif #ifdef __ARM_EABI__ case PT_ARM_EXIDX: obj->exidx_start = (void *)(uintptr_t)phdr->p_vaddr; obj->exidx_sz = phdr->p_memsz; break; #endif } ++phdr; } phdr = (Elf_Phdr *) ((caddr_t)ehdr + ehdr->e_phoff); obj->entry = (void *)(uintptr_t)ehdr->e_entry; if (!obj->dynamic) { _rtld_error("%s: not dynamically linked", path); goto error; } /* * Map the entire address space of the object as a file * region to stake out our contiguous region and establish a * base for relocation. We use a file mapping so that * the kernel will give us whatever alignment is appropriate * for the platform we're running on. * * We map it using the text protection, map the data segment * into the right place, then map an anon segment for the bss * and unmap the gaps left by padding to alignment. */ base_alignment = segs[0]->p_align; base_vaddr = round_down(segs[0]->p_vaddr); base_vlimit = round_up(segs[nsegs]->p_vaddr + segs[nsegs]->p_memsz); text_vlimit = round_up(segs[0]->p_vaddr + segs[0]->p_memsz); data_offset = round_down(segs[nsegs]->p_offset); data_vaddr = round_down(segs[nsegs]->p_vaddr); data_vlimit = round_up(segs[nsegs]->p_vaddr + segs[nsegs]->p_filesz); data_flags = convert_prot(segs[nsegs]->p_flags); #ifdef RTLD_LOADER clear_vaddr = segs[nsegs]->p_vaddr + segs[nsegs]->p_filesz; #endif obj->textsize = text_vlimit - base_vaddr; obj->vaddrbase = base_vaddr; obj->isdynamic = ehdr->e_type == ET_DYN; #if defined(__HAVE_TLS_VARIANT_I) || defined(__HAVE_TLS_VARIANT_II) if (phtls != NULL) { ++_rtld_tls_dtv_generation; obj->tlsindex = ++_rtld_tls_max_index; obj->tlssize = phtls->p_memsz; obj->tlsalign = phtls->p_align; obj->tlsinitsize = phtls->p_filesz; tls_vaddr = phtls->p_vaddr; dbg(("%s: tls index %zu size %zu align %zu initsize %zu", obj->path, obj->tlsindex, obj->tlssize, obj->tlsalign, obj->tlsinitsize)); } #endif /* * Calculate log2 of the base section alignment. */ mapflags = MAP_PRIVATE | MAP_ANON; if (base_alignment > _rtld_pagesz) { unsigned int log2 = 0; for (; base_alignment > 1; base_alignment >>= 1) log2++; mapflags |= MAP_ALIGNED(log2); } base_addr = NULL; #ifdef RTLD_LOADER if (!obj->isdynamic) { mapflags |= MAP_TRYFIXED; base_addr = (void *)(uintptr_t)base_vaddr; } #endif mapsize = base_vlimit - base_vaddr; mapbase = mmap(base_addr, mapsize, PROT_NONE, mapflags, -1, 0); if (mapbase == MAP_FAILED) { _rtld_error("mmap of entire address space failed: %s", xstrerror(errno)); goto error; } #ifdef RTLD_LOADER if (!obj->isdynamic && mapbase != base_addr) { _rtld_error("mmap of executable at correct address failed"); goto error; } #endif obj->phdr_loaded = false; for (i = 0; i <= nsegs; i++) { /* Overlay the segment onto the proper region. */ data_offset = round_down(segs[i]->p_offset); data_vaddr = round_down(segs[i]->p_vaddr); data_vlimit = round_up(segs[i]->p_vaddr + segs[i]->p_filesz); data_addr = mapbase + (data_vaddr - base_vaddr); data_prot = convert_prot(segs[i]->p_flags); data_flags = convert_flags(segs[i]->p_flags) | MAP_FIXED; if (data_vlimit != data_vaddr && mmap(data_addr, data_vlimit - data_vaddr, data_prot, data_flags, fd, data_offset) == MAP_FAILED) { _rtld_error("%s: mmap of data failed: %s", path, xstrerror(errno)); goto error; } #ifdef RTLD_MAP_OBJECT_FIXUP if (_rtld_map_segment_fixup(path, fd, ehdr, segs[i], data_addr, data_vlimit - data_vaddr, data_prot) == -1) { goto error; } #endif /* Do BSS setup */ if (segs[i]->p_filesz != segs[i]->p_memsz) { #ifdef RTLD_LOADER /* Clear any BSS in the last page of the segment. */ clear_vaddr = segs[i]->p_vaddr + segs[i]->p_filesz; clear_addr = mapbase + (clear_vaddr - base_vaddr); clear_page = mapbase + (round_down(clear_vaddr) - base_vaddr); if ((nclear = data_vlimit - clear_vaddr) > 0) { /* * Make sure the end of the segment is * writable. */ if ((data_prot & PROT_WRITE) == 0 && -1 == mprotect(clear_page, _rtld_pagesz, data_prot|PROT_WRITE)) { _rtld_error("%s: mprotect failed: %s", path, xstrerror(errno)); goto error; } memset(clear_addr, 0, nclear); /* Reset the data protection back */ if ((data_prot & PROT_WRITE) == 0) mprotect(clear_page, _rtld_pagesz, data_prot); } #endif /* Overlay the BSS segment onto the proper region. */ bss_vaddr = data_vlimit; bss_vlimit = round_up(segs[i]->p_vaddr + segs[i]->p_memsz); bss_addr = mapbase + (bss_vaddr - base_vaddr); if (bss_vlimit > bss_vaddr) { /* There is something to do */ if (mmap(bss_addr, bss_vlimit - bss_vaddr, data_prot, data_flags | MAP_ANON, -1, 0) == MAP_FAILED) { _rtld_error( "%s: mmap of bss failed: %s", path, xstrerror(errno)); goto error; } } } if (phdr_vaddr != EA_UNDEF && segs[i]->p_vaddr <= phdr_vaddr && segs[i]->p_memsz >= phdr_memsz) { obj->phdr_loaded = true; } if (segs[i]->p_offset <= ehdr->e_phoff && segs[i]->p_memsz >= phsize) { phdr_vaddr = segs[i]->p_vaddr + ehdr->e_phoff; phdr_memsz = phsize; obj->phdr_loaded = true; } } if (obj->phdr_loaded) { obj->phdr = (void *)(uintptr_t)phdr_vaddr; obj->phsize = phdr_memsz; } else { Elf_Phdr *buf = xmalloc(phsize); if (buf == NULL) { _rtld_error("%s: cannot allocate program header", path); goto error; } memcpy(buf, phdr, phsize); obj->phdr = buf; obj->phsize = phsize; } #if defined(__HAVE_TLS_VARIANT_I) || defined(__HAVE_TLS_VARIANT_II) if (phtls != NULL) { obj->tlsinit = mapbase + tls_vaddr; dbg(("%s: tls init = %p + %"PRImemsz" = %p", obj->path, mapbase, tls_vaddr, obj->tlsinit)); } #endif obj->mapbase = mapbase; obj->mapsize = mapsize; obj->relocbase = mapbase - base_vaddr; #ifdef GNU_RELRO /* rounding happens later. */ obj->relro_page = obj->relocbase + relro_page; obj->relro_size = relro_size; #endif if (obj->dynamic) obj->dynamic = (void *)(obj->relocbase + (Elf_Addr)(uintptr_t)obj->dynamic); if (obj->entry) obj->entry = (void *)(obj->relocbase + (Elf_Addr)(uintptr_t)obj->entry); if (obj->interp) obj->interp = (void *)(obj->relocbase + (Elf_Addr)(uintptr_t)obj->interp); if (obj->phdr_loaded) obj->phdr = (void *)(obj->relocbase + (Elf_Addr)(uintptr_t)obj->phdr); #ifdef __ARM_EABI__ if (obj->exidx_start) obj->exidx_start = (void *)(obj->relocbase + (Elf_Addr)(uintptr_t)obj->exidx_start); #endif xfree(segs); return obj; error: if (mapbase != MAP_FAILED) munmap(mapbase, mapsize); if (obj->ehdr != MAP_FAILED) munmap(obj->ehdr, _rtld_pagesz); _rtld_obj_free(obj); xfree(segs); return NULL; } void _rtld_obj_free(Obj_Entry *obj) { Objlist_Entry *elm; Name_Entry *entry; #if defined(__HAVE_TLS_VARIANT_I) || defined(__HAVE_TLS_VARIANT_II) if (obj->tls_static) _rtld_tls_offset_free(obj); #endif xfree(obj->path); while (obj->needed != NULL) { Needed_Entry *needed = obj->needed; obj->needed = needed->next; xfree(needed); } while ((entry = SIMPLEQ_FIRST(&obj->names)) != NULL) { SIMPLEQ_REMOVE_HEAD(&obj->names, link); xfree(entry); } while ((elm = SIMPLEQ_FIRST(&obj->dldags)) != NULL) { SIMPLEQ_REMOVE_HEAD(&obj->dldags, link); xfree(elm); } while ((elm = SIMPLEQ_FIRST(&obj->dagmembers)) != NULL) { SIMPLEQ_REMOVE_HEAD(&obj->dagmembers, link); xfree(elm); } if (!obj->phdr_loaded) xfree((void *)(uintptr_t)obj->phdr); xfree(obj); } Obj_Entry * _rtld_obj_new(void) { Obj_Entry *obj; obj = CNEW(Obj_Entry); SIMPLEQ_INIT(&obj->names); SIMPLEQ_INIT(&obj->dldags); SIMPLEQ_INIT(&obj->dagmembers); return obj; } /* * Given a set of ELF protection flags, return the corresponding protection * flags for MMAP. */ static int convert_prot(int elfflags) { int prot = 0; if (elfflags & PF_R) prot |= PROT_READ; #ifdef RTLD_LOADER if (elfflags & PF_W) prot |= PROT_WRITE; #endif if (elfflags & PF_X) prot |= PROT_EXEC; return prot; } static int convert_flags(int elfflags __unused) { int flags = MAP_PRIVATE; /* All mappings are private */ #ifdef MAP_NOCORE /* * Readonly mappings are marked "MAP_NOCORE", because they can be * reconstructed by a debugger. */ if (!(elfflags & PF_W)) flags |= MAP_NOCORE; #endif return flags; } src/libexec/ld.elf_so/paths.c010064400011300000175000000261601500524763000163470ustar00srcmastrnetbsd/* $NetBSD: paths.c,v 1.43 2025/05/02 23:04:56 riastradh Exp $ */ /* * Copyright 1996 Matt Thomas * Copyright 2002 Charles M. Hannum * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ #include #ifndef lint __RCSID("$NetBSD: paths.c,v 1.43 2025/05/02 23:04:56 riastradh Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "debug.h" #include "rtld.h" #include "../../lib/libc/include/__sysctl.h" /* __sysctl syscall stub */ static Search_Path *_rtld_find_path(Search_Path *, const char *, size_t); static Search_Path **_rtld_append_path(Search_Path **, Search_Path **, const char *, const char *, const char *); static void _rtld_process_mapping(Library_Xform **, const char *, const char *); static char *exstrdup(const char *, const char *); static const char *getstr(const char **, const char *, const char *); static const char *getcstr(const char **, const char *, const char *); static const char *getword(const char **, const char *, const char *); static int matchstr(const char *, const char *, const char *); static const char WS[] = " \t\n"; /* * Like xstrdup(), but takes end of string as a argument. */ static char * exstrdup(const char *bp, const char *ep) { char *cp; size_t len = ep - bp; cp = xmalloc(len + 1); memcpy(cp, bp, len); cp[len] = '\0'; return (cp); } /* * Like strsep(), but takes end of string and doesn't put any NUL. To * detect empty string, compare `*p' and return value. */ static const char * getstr(const char **p, const char *ep, const char *delim) { const char *cp = *p, *q, *r; if (ep < cp) /* End of string */ return (NULL); for (q = cp; q < ep; q++) for (r = delim; *r != 0; r++) if (*r == *q) goto done; done: *p = q; return (cp); } /* * Like getstr() above, but delim[] is complemented. */ static const char * getcstr(const char **p, const char *ep, const char *delim) { const char *cp = *p, *q, *r; if (ep < cp) /* End of string */ return (NULL); for (q = cp; q < ep; q++) for (r = delim; *r != *q; r++) if (*r == 0) goto done; done: *p = q; return (cp); } static const char * getword(const char **p, const char *ep, const char *delim) { (void)getcstr(p, ep, delim); /* * Now, we're looking non-delim, or end of string. */ return (getstr(p, ep, delim)); } /* * Match `bp' against NUL terminated string pointed by `p'. */ static int matchstr(const char *p, const char *bp, const char *ep) { int c; while (bp < ep) if ((c = *p++) == 0 || c != *bp++) return (0); return (*p == 0); } static Search_Path * _rtld_find_path(Search_Path *path, const char *pathstr, size_t pathlen) { for (; path != NULL; path = path->sp_next) { if (pathlen == path->sp_pathlen && memcmp(path->sp_path, pathstr, pathlen) == 0) return path; } return NULL; } static Search_Path ** _rtld_append_path(Search_Path **head_p, Search_Path **path_p, const char *execname, const char *bp, const char *ep) { Search_Path *path; char epath[MAXPATHLEN]; size_t len; len = _rtld_expand_path(epath, sizeof(epath), execname, bp, ep); if (len == 0) return path_p; if (_rtld_find_path(*head_p, bp, ep - bp) != NULL) return path_p; path = NEW(Search_Path); path->sp_pathlen = len; path->sp_path = exstrdup(epath, epath + len); path->sp_next = (*path_p); (*path_p) = path; path_p = &path->sp_next; dbg((" added path \"%s\"", path->sp_path)); return path_p; } void _rtld_add_paths(const char *execname, Search_Path **path_p, const char *pathstr) { Search_Path **head_p = path_p; if (pathstr == NULL) return; if (pathstr[0] == ':') { /* * Leading colon means append to current path */ while ((*path_p) != NULL) path_p = &(*path_p)->sp_next; pathstr++; } for (;;) { const char *bp = pathstr; const char *ep = strchr(bp, ':'); if (ep == NULL) ep = &pathstr[strlen(pathstr)]; path_p = _rtld_append_path(head_p, path_p, execname, bp, ep); if (ep[0] == '\0') break; pathstr = ep + 1; } } /* * Process library mappings of the form: * ... */ static void _rtld_process_mapping(Library_Xform **lib_p, const char *bp, const char *ep) { Library_Xform *hwptr = NULL; const char *ptr, *key, *ekey, *lib, *elib, *l; int i, j; dbg((" processing mapping \"%.*s\"", (int)(ep - bp), bp)); if ((ptr = getword(&bp, ep, WS)) == NULL || ptr == bp) return; dbg((" library \"%.*s\"", (int)(bp - ptr), ptr)); hwptr = xmalloc(sizeof(*hwptr)); memset(hwptr, 0, sizeof(*hwptr)); hwptr->name = exstrdup(ptr, bp); bp++; if ((ptr = getword(&bp, ep, WS)) == NULL || ptr == bp) { xwarnx("missing sysctl variable name"); goto cleanup; } dbg((" sysctl \"%.*s\"", (int)(bp - ptr), ptr)); hwptr->ctlname = exstrdup(ptr, bp); for (i = 0; bp++, (ptr = getword(&bp, ep, WS)) != NULL;) { dbg((" ptr = %.*s", (int)(bp - ptr), ptr)); if (ptr == bp) continue; if (i == RTLD_MAX_ENTRY) { no_more: xwarnx("maximum library entries exceeded `%s'", hwptr->name); goto cleanup; } if ((key = getstr(&ptr, bp, ":")) == NULL) { xwarnx("missing sysctl variable value for `%s'", hwptr->name); goto cleanup; } ekey = ptr++; if ((lib = getstr(&ptr, bp, ":")) == NULL) { xwarnx("missing sysctl library list for `%s'", hwptr->name); goto cleanup; } elib = ptr; /* No need to advance */ for (j = 0; (l = getstr(&lib, elib, ",")) != NULL; j++, lib++) { if (j == RTLD_MAX_LIBRARY) { xwarnx("maximum library entries exceeded `%s'", hwptr->name); goto cleanup; } dbg((" library \"%.*s\"", (int)(lib - l), l)); hwptr->entry[i].library[j] = exstrdup(l, lib); } if (j == 0) { xwarnx("No library map entries for `%s/%.*s'", hwptr->name, (int)(bp - ptr), ptr); goto cleanup; } j = i; for (; (l = getstr(&key, ekey, ",")) != NULL; i++, key++) { /* * Allow empty key (it is valid as string * value). Thus, we loop at least once and * `i' is incremented. */ dbg((" key \"%.*s\"", (int)(key - l), l)); if (i == RTLD_MAX_ENTRY) goto no_more; if (i != j) (void)memcpy(hwptr->entry[i].library, hwptr->entry[j].library, sizeof(hwptr->entry[j].library)); hwptr->entry[i].value = exstrdup(l, key); } } if (i == 0) { xwarnx("No library entries for `%s'", hwptr->name); goto cleanup; } hwptr->next = *lib_p; *lib_p = hwptr; return; cleanup: if (hwptr->name) xfree(hwptr->name); xfree(hwptr); } void _rtld_process_hints(const char *execname, Search_Path **path_p, Library_Xform **lib_p, const char *fname) { int fd; char *buf, small[128]; const char *b, *ep, *ptr; struct stat st; ssize_t sz; Search_Path **head_p = path_p; if ((fd = open(fname, O_RDONLY)) == -1) { /* Don't complain */ return; } /* Try to avoid mmap/stat on the file. */ buf = small; buf[0] = '\0'; sz = read(fd, buf, sizeof(small)); if (sz == -1) { xwarn("read: %s", fname); (void)close(fd); return; } if (sz >= (ssize_t)sizeof(small)) { if (fstat(fd, &st) == -1) { /* Complain */ xwarn("fstat: %s", fname); (void)close(fd); return; } sz = (ssize_t) st.st_size; buf = mmap(0, sz, PROT_READ, MAP_SHARED|MAP_FILE, fd, 0); if (buf == MAP_FAILED) { xwarn("mmap: %s", fname); (void)close(fd); return; } } (void)close(fd); while ((*path_p) != NULL) path_p = &(*path_p)->sp_next; for (b = buf, ep = buf + sz; b < ep; b++) { (void)getcstr(&b, ep, WS); if (b == ep) break; ptr = getstr(&b, ep, "\n#"); if (*ptr == '/') { /* * Since '/' != '\n' and != '#', we know ptr < * b. And we will stop when b[-1] == '/'. */ while (b[-1] == ' ' || b[-1] == '\t') b--; path_p = _rtld_append_path(head_p, path_p, execname, ptr, b); } else _rtld_process_mapping(lib_p, ptr, b); /* * b points one of ' ', \t, \n, # or equal to ep. So, * make sure we are at newline or end of string. */ (void)getstr(&b, ep, "\n"); } if (buf != small) (void)munmap(buf, sz); } /* Basic name -> sysctl MIB translation */ int _rtld_sysctl(const char *name, void *oldp, size_t *oldlen) { const char *node, *ep; struct sysctlnode query, *result, *newresult; int mib[CTL_MAXNAME], r; size_t res_size, n, i; u_int miblen = 0; /* Start with 16 entries, will grow it up as needed. */ res_size = 16 * sizeof(struct sysctlnode); result = xmalloc(res_size); if (result == NULL) return (-1); ep = name + strlen(name); do { i = ~0ul; while (*name == '/' || *name == '.') name++; if (name >= ep) break; mib[miblen] = CTL_QUERY; memset(&query, 0, sizeof(query)); query.sysctl_flags = SYSCTL_VERSION; n = res_size; if (__sysctl(mib, miblen + 1, result, &n, &query, sizeof(query)) == -1) { if (errno != ENOMEM) goto bad; /* Grow up result */ res_size = n; newresult = xrealloc(result, res_size); if (newresult == NULL) goto bad; result = newresult; if (__sysctl(mib, miblen + 1, result, &n, &query, sizeof(query)) == -1) goto bad; } n /= sizeof(struct sysctlnode); node = getstr(&name, ep, "./"); for (i = 0; i < n; i++) if (matchstr(result[i].sysctl_name, node, name)) { mib[miblen] = result[i].sysctl_num; miblen++; break; } } while (name < ep && miblen <= CTL_MAXNAME); if (name < ep || i == ~0ul) goto bad; r = SYSCTL_TYPE(result[i].sysctl_flags); xfree(result); if (__sysctl(mib, miblen, oldp, oldlen, NULL, 0) == -1) return (-1); return r; bad: xfree(result); return (-1); } src/libexec/ld.elf_so/reloc.c010064400011300000175000000315311522207752200163340ustar00srcmastrnetbsd/* $NetBSD: reloc.c,v 1.120.2.1 2026/07/03 18:36:36 martin Exp $ */ /* * Copyright 1996 John D. Polstra. * Copyright 1996 Matt Thomas * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by John Polstra. * 4. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ /* * Dynamic linker for ELF. * * John Polstra . */ #include #ifndef lint __RCSID("$NetBSD: reloc.c,v 1.120.2.1 2026/07/03 18:36:36 martin Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include #include #include #include "debug.h" #include "hash.h" #include "rtld.h" #ifndef RTLD_INHIBIT_COPY_RELOCS static int _rtld_do_copy_relocation(const Obj_Entry *, const Elf_Rela *); static int _rtld_do_copy_relocation(const Obj_Entry *dstobj, const Elf_Rela *rela) { void *dstaddr = (void *)(dstobj->relocbase + rela->r_offset); const Elf_Sym *dstsym = dstobj->symtab + ELF_R_SYM(rela->r_info); const char *name = dstobj->strtab + dstsym->st_name; Elf_Hash hash; size_t size = dstsym->st_size; const void *srcaddr; const Elf_Sym *srcsym = NULL; Obj_Entry *srcobj; hash.sysv = _rtld_sysv_hash(name); hash.gnu = _rtld_gnu_hash(name); if (__predict_false(size == 0)) { #if defined(__powerpc__) && !defined(__LP64) /* PR port-macppc/47464 */ if (strcmp(name, "_SDA_BASE_") == 0 || strcmp(name, "_SDA2_BASE_") == 0) { rdbg(("COPY %s %s --> ignoring old binutils bug", dstobj->path, name)); return 0; } #endif #if 0 /* shall we warn? */ xwarnx("%s: zero size COPY relocation for \"%s\"", dstobj->path, name); #endif } for (srcobj = dstobj->next; srcobj != NULL; srcobj = srcobj->next) { srcsym = _rtld_symlook_obj(name, &hash, srcobj, 0, _rtld_fetch_ventry(dstobj, ELF_R_SYM(rela->r_info))); if (srcsym != NULL) break; } if (srcobj == NULL) { _rtld_error("Undefined symbol \"%s\" referenced from COPY" " relocation in %s", name, dstobj->path); return (-1); } srcaddr = (const void *)(srcobj->relocbase + srcsym->st_value); rdbg(("COPY %s %s %s --> src=%p dst=%p size %ld", dstobj->path, srcobj->path, name, srcaddr, (void *)dstaddr, (long)size)); (void)memcpy(dstaddr, srcaddr, size); return (0); } #endif /* RTLD_INHIBIT_COPY_RELOCS */ /* * Process the special R_xxx_COPY relocations in the main program. These * copy data from a shared object into a region in the main program's BSS * segment. * * Returns 0 on success, -1 on failure. */ int _rtld_do_copy_relocations(const Obj_Entry *dstobj) { #ifndef RTLD_INHIBIT_COPY_RELOCS /* COPY relocations are invalid elsewhere */ assert(!dstobj->isdynamic); if (dstobj->rel != NULL) { const Elf_Rel *rel; for (rel = dstobj->rel; rel < dstobj->rellim; ++rel) { if (ELF_R_TYPE(rel->r_info) == R_TYPE(COPY)) { Elf_Rela ourrela; ourrela.r_info = rel->r_info; ourrela.r_offset = rel->r_offset; ourrela.r_addend = 0; if (_rtld_do_copy_relocation(dstobj, &ourrela) < 0) return (-1); } } } if (dstobj->rela != NULL) { const Elf_Rela *rela; for (rela = dstobj->rela; rela < dstobj->relalim; ++rela) { if (ELF_R_TYPE(rela->r_info) == R_TYPE(COPY)) { if (_rtld_do_copy_relocation(dstobj, rela) < 0) return (-1); } } } #ifdef GNU_RELRO /* * If the main program is lazily bound (default -- whether or * not LD_BINDNOW is set in the calling environment), we are * now done writing to anything covered by RELRO and we can * safely make it read-only. There may still be ifunc * resolution to do later; it will happen in a read/write * segment and will not be made read-only. * * But if the main program is eagerly bound (i.e., the object * has DF_1_NOW set in DT_FLAGS_1, whether or not LD_BIND_NOW * is set in the calling environment), we delay protecting the * RELRO region as read-only until we have resolved ifuncs -- * at which point we will make the ifunc resolution read-only * too. */ if (!dstobj->z_now && _rtld_relro(dstobj, true) == -1) return -1; #endif #endif /* RTLD_INHIBIT_COPY_RELOCS */ return (0); } /* * _rtld_relocate_relr(obj) * * Relocate the RELR entries of obj. The RELR table is encoded as * a sequence of alternating addresses and bitmaps. Each address * entry has the low-order bit clear, and each bitmap has the * low-order bit set: * * AAAAAAA0 * BBBBBBB1 * BBBBBBB1 * BBBBBBB1 * AAAAAAA0 * BBBBBBB1 * ... * * Each address A is taken relative to obj->relocbase, and has * obj->relocbase added to the Elf_Addr it points at. For each * bit i in the following bitmaps concatenated starting at 1, * excluding the low-order bit used to distinguish bitmaps from * addresses, the Elf_Addr at the address * * A + sizeof(Elf_Addr)*i * * (again, relative to obj->relocbase) has obj->relocbase added * too. * * DT_RELR relocations are processed before any DT_REL or DT_RELA * relocations. * * References: * * Rahul Chaudhry, `Re: Proposal for a new section type SHT_RELR', * generic-abi mailing list, 2018-02-07. * * https://groups.google.com/g/generic-abi/c/bX460iggiKg/m/Jnz1lgLJAgAJ * https://web.archive.org/web/20241213012330/https://groups.google.com/g/generic-abi/c/bX460iggiKg/m/Jnz1lgLJAgAJ */ static void _rtld_relocate_relr(Obj_Entry *obj) { const Elf_Relr *relr; if (obj->relr == obj->relrlim) return; for (relr = obj->relr; relr < obj->relrlim;) { Elf_Addr *where; /* * At an address entry. Relocate the address. */ assert((*relr & 1) == 0); where = (Elf_Addr *)(obj->relocbase + *relr); *where++ += (Elf_Addr)obj->relocbase; /* * Process every bitmap entry after the address. */ while (++relr < obj->relrlim && *relr & 1) { unsigned i; /* * Process every set bit in the bitmap. Note * that the first bit (i=0) is not processed * here -- it's just metadata to mark a bitmap * entry. */ for (i = 1; i < CHAR_BIT*sizeof(*relr); i++, where++) { if (*relr & ((Elf_Relr)1 << i)) *where += (Elf_Addr)obj->relocbase; } } } } /* * Relocate newly-loaded shared objects. The argument is a pointer to * the Obj_Entry for the first such object. All objects from the first * to the end of the list of objects are relocated. Returns 0 on success, * or -1 on failure. */ int _rtld_relocate_objects(Obj_Entry *first, bool bind_now) { Obj_Entry *obj; int ok = 1; for (obj = first; obj != NULL; obj = obj->next) { if (obj->relocated) continue; obj->relocated = true; _rtld_objrelocpending--; if ((!obj->sysv_hash && !obj->gnu_hash) || obj->symtab == NULL || obj->strtab == NULL) { _rtld_error("%s: Shared object has no run-time" " symbol table", obj->path); return -1; } if (obj->nbuckets == UINT32_MAX) { _rtld_error("%s: Symbol table too large", obj->path); return -1; } rdbg((" relocating %s (%ld/%ld rel/rela, %ld/%ld plt rel/rela)", obj->path, (long)(obj->rellim - obj->rel), (long)(obj->relalim - obj->rela), (long)(obj->pltrellim - obj->pltrel), (long)(obj->pltrelalim - obj->pltrela))); if (obj->textrel) { xwarnx("%s: text relocations", obj->path); /* * There are relocations to the write-protected text * segment. */ if (mprotect(obj->mapbase, obj->textsize, PROT_READ | PROT_WRITE) == -1) { _rtld_error("%s: Cannot write-enable text " "segment: %s", obj->path, xstrerror(errno)); return -1; } } dbg(("doing relative relocations")); _rtld_relocate_relr(obj); dbg(("doing non-PLT relocations")); if (_rtld_relocate_nonplt_objects(obj) < 0) ok = 0; if (obj->textrel) { /* Re-protected the text segment. */ if (mprotect(obj->mapbase, obj->textsize, PROT_READ | PROT_EXEC) == -1) { _rtld_error("%s: Cannot write-protect text " "segment: %s", obj->path, xstrerror(errno)); return -1; } } dbg(("doing lazy PLT binding")); if (_rtld_relocate_plt_lazy(obj) < 0) ok = 0; if (obj->z_now || bind_now) { dbg(("doing immediate PLT binding")); if (_rtld_relocate_plt_objects(obj) < 0) ok = 0; } if (!ok) return -1; dbg(("fixing up PLTGOT")); /* Set the special PLTGOT entries. */ if (obj->pltgot != NULL) _rtld_setup_pltgot(obj); #ifdef GNU_RELRO if (_rtld_relro(obj, false) == -1) return -1; #endif } return 0; } Elf_Addr _rtld_resolve_ifunc(const Obj_Entry *obj, const Elf_Sym *def) { Elf_Addr target; _rtld_shared_exit(); target = _rtld_resolve_ifunc2(obj, (Elf_Addr)obj->relocbase + def->st_value); _rtld_shared_enter(); return target; } Elf_Addr _rtld_resolve_ifunc2(const Obj_Entry *obj, Elf_Addr addr) { Elf_Addr target; target = _rtld_call_function_addr(obj, addr); return target; } #if \ !defined(RTLD_COMMON_CALL_IFUNC_RELA) && \ !defined(RTLD_COMMON_CALL_IFUNC_REL) && \ !defined(RTLD_ARCH_CALL_IFUNC) void _rtld_call_ifunc(Obj_Entry *obj, sigset_t *mask, u_int cur_objgen) { } #endif #ifdef RTLD_COMMON_CALL_IFUNC_RELA # ifdef __sparc__ # include # endif void _rtld_call_ifunc(Obj_Entry *obj, sigset_t *mask, u_int cur_objgen) { const Elf_Rela *rela; Elf_Addr *where; #ifdef __sparc__ Elf_Word *where2; #endif Elf_Addr target; while (obj->ifunc_remaining > 0 && _rtld_objgen == cur_objgen) { rela = obj->pltrelalim - obj->ifunc_remaining--; #ifdef __sparc__ #define PLT_IRELATIVE R_TYPE(JMP_IREL) #else #define PLT_IRELATIVE R_TYPE(IRELATIVE) #endif if (ELF_R_TYPE(rela->r_info) != PLT_IRELATIVE) continue; #ifdef __sparc__ where2 = (Elf_Word *)(obj->relocbase + rela->r_offset); #else where = (Elf_Addr *)(obj->relocbase + rela->r_offset); #endif target = (Elf_Addr)(obj->relocbase + rela->r_addend); _rtld_exclusive_exit(mask); target = _rtld_resolve_ifunc2(obj, target); _rtld_exclusive_enter(mask); #ifdef __sparc__ sparc_write_branch(where2 + 1, (void *)target); #else if (*where != target) *where = target; #endif } while (obj->ifunc_remaining_nonplt > 0 && _rtld_objgen == cur_objgen) { rela = obj->relalim - obj->ifunc_remaining_nonplt--; if (ELF_R_TYPE(rela->r_info) != R_TYPE(IRELATIVE)) continue; where = (Elf_Addr *)(obj->relocbase + rela->r_offset); target = (Elf_Addr)(obj->relocbase + rela->r_addend); _rtld_exclusive_exit(mask); target = _rtld_resolve_ifunc2(obj, target); _rtld_exclusive_enter(mask); if (*where != target) *where = target; } } #endif #ifdef RTLD_COMMON_CALL_IFUNC_REL void _rtld_call_ifunc(Obj_Entry *obj, sigset_t *mask, u_int cur_objgen) { const Elf_Rel *rel; Elf_Addr *where, target; while (obj->ifunc_remaining > 0 && _rtld_objgen == cur_objgen) { rel = obj->pltrellim - obj->ifunc_remaining; --obj->ifunc_remaining; if (ELF_R_TYPE(rel->r_info) == R_TYPE(IRELATIVE)) { where = (Elf_Addr *)(obj->relocbase + rel->r_offset); _rtld_exclusive_exit(mask); target = _rtld_resolve_ifunc2(obj, *where); _rtld_exclusive_enter(mask); if (*where != target) *where = target; } } while (obj->ifunc_remaining_nonplt > 0 && _rtld_objgen == cur_objgen) { rel = obj->rellim - obj->ifunc_remaining_nonplt--; if (ELF_R_TYPE(rel->r_info) == R_TYPE(IRELATIVE)) { where = (Elf_Addr *)(obj->relocbase + rel->r_offset); _rtld_exclusive_exit(mask); target = _rtld_resolve_ifunc2(obj, *where); _rtld_exclusive_enter(mask); if (*where != target) *where = target; } } } #endif src/libexec/ld.elf_so/rtld.c010064400011300000175000001662511522207752200162050ustar00srcmastrnetbsd/* $NetBSD: rtld.c,v 1.221.2.3 2026/07/03 18:36:36 martin Exp $ */ /* * Copyright 1996 John D. Polstra. * Copyright 1996 Matt Thomas * Copyright 2002 Charles M. Hannum * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by John Polstra. * 4. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ /* * Dynamic linker for ELF. * * John Polstra . */ #include #ifndef lint __RCSID("$NetBSD: rtld.c,v 1.221.2.3 2026/07/03 18:36:36 martin Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "debug.h" #include "hash.h" #include "rtld.h" #if !defined(lint) #include "sysident.h" #endif /* * Hidden function from common/lib/libc/atomic - nop on machines * with enough atomic ops. Need to explicitly call it early. * libc has the same symbol and will initialize itself, but not our copy. */ void __libc_atomic_init(void); /* * Function declarations. */ static void _rtld_init(caddr_t, caddr_t, const char *); static void _rtld_exit(void); Elf_Addr _rtld(Elf_Addr *, Elf_Addr); /* * Data declarations. */ static char *error_message; /* Message for dlopen(), or NULL */ struct r_debug _rtld_debug; /* The SVR4 interface for the debugger */ bool _rtld_trust; /* False for setuid and setgid programs */ Obj_Entry *_rtld_objlist; /* Head of linked list of shared objects */ Obj_Entry **_rtld_objtail; /* Link field of last object in list */ Obj_Entry *_rtld_objmain; /* The main program shared object */ Obj_Entry _rtld_objself; /* The dynamic linker shared object */ u_int _rtld_objcount; /* Number of objects in _rtld_objlist */ u_int _rtld_objrelocpending = 1; /* Number of objects pending reloc */ u_int _rtld_objloads; /* Number of objects loaded in _rtld_objlist */ u_int _rtld_objgen; /* Generation count for _rtld_objlist */ const char _rtld_path[] = _PATH_RTLD; /* Initialize a fake symbol for resolving undefined weak references. */ Elf_Sym _rtld_sym_zero = { .st_info = ELF_ST_INFO(STB_GLOBAL, STT_NOTYPE), .st_shndx = SHN_ABS, }; size_t _rtld_pagesz; /* Page size, as provided by kernel */ Search_Path *_rtld_default_paths; Search_Path *_rtld_paths; Library_Xform *_rtld_xforms; static void *auxinfo; /* * Global declarations normally provided by crt0. */ char *__progname; char **environ; static volatile bool _rtld_mutex_may_recurse; #if defined(RTLD_DEBUG) #ifndef __sh__ extern Elf_Addr _GLOBAL_OFFSET_TABLE_[]; #else /* 32-bit SuperH */ register Elf_Addr *_GLOBAL_OFFSET_TABLE_ asm("r12"); #endif #endif /* RTLD_DEBUG */ extern Elf_Dyn _DYNAMIC; static void _rtld_call_fini_functions(sigset_t *, int); static void _rtld_call_init_functions(sigset_t *); static void _rtld_call_preinit_functions(sigset_t *); static void _rtld_initlist_visit(Objlist *, Obj_Entry *, int); static void _rtld_initlist_tsort(Objlist *, int); static Obj_Entry *_rtld_dlcheck(void *); static void _rtld_init_dag(Obj_Entry *); static void _rtld_init_dag1(Obj_Entry *, Obj_Entry *); static void _rtld_objlist_remove(Objlist *, Obj_Entry *); static void _rtld_objlist_clear(Objlist *); static void _rtld_unload_object(sigset_t *, Obj_Entry *, bool); static void _rtld_unref_dag(Obj_Entry *); static Obj_Entry *_rtld_obj_from_addr(const void *); static void _rtld_fill_dl_phdr_info(const Obj_Entry *, struct dl_phdr_info *); /* * _rtld_load_needed_enter(obj) * * Mark obj as busy loading its dependencies. Multiple threads * may be working on a single thread's dependencies concurrently; * dlclose will wait until they are all done. Caller must follow * this by _rtld_load_needed_enter. * * Non-reentrant: a thread must not call this again until it has * called _rtld_load_needed_exit. * * Caller must hold the rtld exclusive lock. obj must have * positive refcount; if it is already slated for destruction, * this is not useful. */ void _rtld_load_needed_enter(Obj_Entry *obj) { assert(obj->refcount > 0); assert(obj->neededrefcount < INT_MAX); obj->neededrefcount++; } /* * _rtld_load_needed_exit(obj) * * Mark obj as no longer busy loading its dependencies after * _rtld_load_needed_enter. * * Caller must hold the rtld exclusive lock. Will not release or * reacquire it. * * Caller must have previously called * _rtld_loadingneeded_enter(obj, ...) in the same thread. */ void _rtld_load_needed_exit(Obj_Entry *obj) { assert(obj->neededrefcount > 0); if (__predict_false(--obj->neededrefcount)) return; if (__predict_true(obj->neededwaiter == 0)) return; assert(obj->refcount == 0); _lwp_unpark(obj->neededwaiter, &obj->neededrefcount); obj->neededwaiter = 0; } /* * _rtld_wait_for_load_needed(&obj, mask) * * If another thread is concurrently loading obj's dependencies, * release the rtld exclusive lock, wait until it is done, * reacquire the rtld exclusive lock, and return true. On * return, obj is nulled out. * * Otherwise, if there is no thread concurrently loading obj's * dependencies, leave it intact and return false without * releasing and reacquiring the rtld exclusive lock -- obj is * safe to free now. * * Caller must hold the rtld exclusive lock. May release and * reacquire the rtld exclusive lock. obj must have refcount zero * already; this is only for when we are preparing to free obj. */ static bool _rtld_wait_for_load_needed(Obj_Entry **objp, sigset_t *mask) { Obj_Entry *obj = *objp; lwpid_t next; /* * This is only useful when obj is already marked for * destruction. */ assert(obj->refcount == 0); /* * If there are no threads concurrently loading obj's * dependencies, nothing to do. */ if (__predict_true(obj->neededrefcount == 0)) return false; /* * Queue ourselves up to be notified when all threads are done * loading obj's dependencies, and remember the next thread to * be notified. */ next = obj->neededwaiter; obj->neededwaiter = _lwp_self(); /* * Release the rtld exclusive lock to wait and reacquire it * when done. After we release the lock, we can't dereference * obj -- it may be concurrently freed by dlclose. */ _rtld_exclusive_exit(mask); *objp = NULL; _lwp_park(CLOCK_REALTIME, 0, NULL, 0, &obj->neededrefcount, NULL); _rtld_exclusive_enter(mask); /* * If another thread was waiting too, notify that thread. */ if (next) _lwp_unpark(next, &obj->neededrefcount); /* * Notify the caller that we released/reacquired the rtld * exclusive lock to wait for a state change so they must start * over from the top. */ return true; } /* * _rtld_initfini_enter(&obj, mask) * * Prepare to call an init/fini routine and return true if the * caller should do it and then call _rtld_initfini_exit, or false * if we waited for a state change and the caller must start over * from the top. * * If another thread is concurrently running an init/fini routine * for the same object, release the rtld exclusive lock, wait * until it's done (or a spurious wakeup), reacquire the rtld * exclusive lock, null out obj, and return false. Returning * false does _not_ imply the init/fini is done -- it only implies * that it _may_ be done but the caller must reassess the rtld * state and start over from the top. * * Otherwise, mark obj as running an init/fini routine in this * thread and return true, without releasing and reacquiring the * rtld exclusive lock. * * Caller must hold the rtld exclusive lock. May release and * reacquire the rtld exclusive lock. */ static bool _rtld_initfini_enter(Obj_Entry **objp, sigset_t *mask) { Obj_Entry *obj = *objp; lwpid_t next; /* * If no other thread is concurrently running an init/fini * routine for this object, claim the object for this thread * and return true without releasing or reacquiring the rtld * exclusive lock. */ if (__predict_true(obj->initfinilock == 0)) { obj->initfinilock = _lwp_self(); return true; } /* * Remember whether anyone else is waiting for the lock, and * record ourselves as waiting. */ next = obj->initfinilockwaiter; obj->initfinilockwaiter = _lwp_self(); /* * Release the rtld exclusive lock, wait for a state change, * and reacquire the rtld exclusive lock. Must not touch obj * after releasing the rtld exclusive lock -- it may be * concurrently freed by dlclose. */ _rtld_exclusive_exit(mask); *objp = NULL; _lwp_park(CLOCK_REALTIME, 0, NULL, 0, &obj->initfinilock, NULL); _rtld_exclusive_enter(mask); /* * If anyone else was waiting for the lock, wake them too. */ if (next) _lwp_unpark(next, &obj->initfinilock); /* * Notify the caller we failed to claim the object and * released/reacquired the lock to wait for a state change so * they must start over from the top. */ return false; } /* * _rtld_initfini_exit(obj) * * Mark obj as no longer running an init/fini routine in this * thread, and wake any threads waiting for _rtld_initfini_enter * on it. * * Caller must hold the rtld exclusive lock. Will not release or * reacquire it. * * Caller must have previously called _rtld_initfini_enter(&obj, * ...) in the same thread, and it must have returned true. */ static void _rtld_initfini_exit(Obj_Entry *obj) { /* * We had better have claimed this object. Relinquish our * claim. */ assert(obj->initfinilock == _lwp_self()); obj->initfinilock = 0; /* * If there's anyone waiting for the lock, wake them. This may * provoke a thundering herd but it's unlikely that there will * be much contention on dlopen/dlclose in the real world. */ if (__predict_true(obj->initfinilockwaiter == 0)) return; _lwp_unpark(obj->initfinilockwaiter, &obj->initfinilock); obj->initfinilockwaiter = 0; } /* * _rtld_fini_done(obj) * * Mark obj as done running destructors. Wake any waiters in * _rtld_wait_for_fini(&obj, ...). * * Caller must hold the rtld exclusive lock. Will not release or * reacquire it. */ static void _rtld_fini_done(Obj_Entry *obj) { assert(obj->refcount == 0); if (__predict_true(obj->finiwaiter == 0)) return; _lwp_unpark(obj->finiwaiter, &obj->refcount); obj->finiwaiter = 0; } /* * _rtld_wait_for_fini(&obj, mask) * * If another thread is concurrently running destructors for obj, * release the rtld exclusive lock, wait for that to complete, * reacquire the rtld exclusive lock, and return true. On return, * obj is nulled out -- it was in the process of being destroyed * when we started and it may be completely gone by the time we * return. * * Otherwise, if there is no thread concurrently running * destructors for obj, leave it intact and return false without * releasing and reacquiring the rtld exclusive lock -- obj is * safe to use. * * Caller must either hold the rtld exclusive lock, or be * single-threaded; if single-threaded, this is guaranteed to * return false, and mask may be null. */ bool _rtld_wait_for_fini(Obj_Entry **objp, sigset_t *mask) { Obj_Entry *obj = *objp; lwpid_t next; /* * If the object is still referenced, it can't be in the * process of destruction, so nothing to do -- notify the * caller we didn't wait. */ if (__predict_true(obj->refcount > 0)) return false; /* * We can only reach this point if there are threads running * dlopen or dlclose concurrently. This can't happen during * initial program load -- pthread_create is not available for * use in a constructor -- so initial program load can skip * taking the rtld exclusive lock. */ assert(mask != NULL); /* * Queue ourselves up to be notified when concurrent fini is * done, and remember the next thread to be notified. */ next = obj->finiwaiter; obj->finiwaiter = _lwp_self(); /* * Release the rtld exclusive lock to wait and reacquire it * when done. After we release the lock, we can't dereference * obj -- it may be concurrently freed by dlclose. */ _rtld_exclusive_exit(mask); *objp = NULL; _lwp_park(CLOCK_REALTIME, 0, NULL, 0, &obj->refcount, NULL); _rtld_exclusive_enter(mask); /* * If another thread was waiting too, notify that thread. */ if (next) _lwp_unpark(next, &obj->refcount); /* * Notify the caller that we released/reacquired the rtld * exclusive lock to wait for a state change so they must start * over from the top. */ return true; } static inline void _rtld_call_initfini_function(fptr_t func, sigset_t *mask) { _rtld_exclusive_exit(mask); (*func)(); _rtld_exclusive_enter(mask); } static void _rtld_call_fini_function(Obj_Entry *obj, sigset_t *mask, u_int cur_objgen) { if (obj->fini_arraysz == 0 && (obj->fini == NULL || obj->fini_called)) return; if (obj->fini != NULL && !obj->fini_called) { dbg (("calling fini function %s at %p%s", obj->path, (void *)obj->fini, obj->z_initfirst ? " (DF_1_INITFIRST)" : "")); obj->fini_called = 1; _rtld_call_initfini_function(obj->fini, mask); } #ifdef HAVE_INITFINI_ARRAY /* * Now process the fini_array if it exists. Simply go from * start to end. We need to make restartable so just advance * the array pointer and decrement the size each time through * the loop. * * Paranoia: avoid touching obj if the generation has changed. */ while (__predict_true(_rtld_objgen == cur_objgen) && obj->fini_arraysz > 0) { fptr_t fini = *obj->fini_array++; obj->fini_arraysz--; dbg (("calling fini array function %s at %p%s", obj->path, (void *)fini, obj->z_initfirst ? " (DF_1_INITFIRST)" : "")); _rtld_call_initfini_function(fini, mask); } #endif /* HAVE_INITFINI_ARRAY */ } static void _rtld_call_fini_functions(sigset_t *mask, int force) { Objlist_Entry *elm; Objlist finilist; u_int cur_objgen; dbg(("_rtld_call_fini_functions(%d)", force)); restart: cur_objgen = _rtld_objgen; SIMPLEQ_INIT(&finilist); _rtld_initlist_tsort(&finilist, 1); /* First pass: objects _not_ marked with DF_1_INITFIRST. */ SIMPLEQ_FOREACH(elm, &finilist, link) { Obj_Entry *obj = elm->obj; if (!obj->z_initfirst) { if (obj->refcount > 0 && !force) { continue; } if (!_rtld_initfini_enter(&obj, mask)) { _rtld_objlist_clear(&finilist); goto restart; } _rtld_call_fini_function(obj, mask, cur_objgen); _rtld_initfini_exit(obj); if (_rtld_objgen != cur_objgen) { dbg(("restarting fini iteration")); _rtld_objlist_clear(&finilist); goto restart; } } } /* Second pass: objects marked with DF_1_INITFIRST. */ SIMPLEQ_FOREACH(elm, &finilist, link) { Obj_Entry *obj = elm->obj; if (obj->refcount > 0 && !force) { continue; } if (!_rtld_initfini_enter(&obj, mask)) { _rtld_objlist_clear(&finilist); goto restart; } _rtld_call_fini_function(obj, mask, cur_objgen); _rtld_initfini_exit(obj); if (_rtld_objgen != cur_objgen) { dbg(("restarting fini iteration")); _rtld_objlist_clear(&finilist); goto restart; } } _rtld_objlist_clear(&finilist); } static void _rtld_call_init_function(Obj_Entry *obj, sigset_t *mask, u_int cur_objgen) { if (obj->init_arraysz == 0 && (obj->init_called || obj->init == NULL)) return; if (!obj->init_called && obj->init != NULL) { dbg (("calling init function %s at %p%s", obj->path, (void *)obj->init, obj->z_initfirst ? " (DF_1_INITFIRST)" : "")); obj->init_called = 1; _rtld_call_initfini_function(obj->init, mask); } #ifdef HAVE_INITFINI_ARRAY /* * Now process the init_array if it exists. Simply go from * start to end. We need to make restartable so just advance * the array pointer and decrement the size each time through * the loop. */ while (obj->init_arraysz > 0 && _rtld_objgen == cur_objgen) { fptr_t init = *obj->init_array++; obj->init_arraysz--; dbg (("calling init_array function %s at %p%s", obj->path, (void *)init, obj->z_initfirst ? " (DF_1_INITFIRST)" : "")); _rtld_call_initfini_function(init, mask); } #endif /* HAVE_INITFINI_ARRAY */ } static bool _rtld_call_ifunc_functions(sigset_t *mask, Obj_Entry *obj, u_int cur_objgen) { if (!_rtld_initfini_enter(&obj, mask)) return true; if (obj->ifunc_remaining #if defined(IFUNC_NONPLT) || obj->ifunc_remaining_nonplt #endif ) { _rtld_call_ifunc(obj, mask, cur_objgen); if (_rtld_objgen != cur_objgen) { _rtld_initfini_exit(obj); return true; } } _rtld_initfini_exit(obj); return false; } static void _rtld_call_preinit_functions(sigset_t *mask) { #ifdef HAVE_INITFINI_ARRAY Obj_Entry *obj = _rtld_objmain; /* * Process the init_array if it exists. Simply go from start * to end. */ for (size_t i = 0; i < obj->preinit_arraysz; i++) { fptr_t preinit = obj->preinit_array[i]; dbg (("calling preinit_array function %s at %p", obj->path, (void *)preinit)); _rtld_call_initfini_function(preinit, mask); } #endif /* HAVE_INITFINI_ARRAY */ } static void _rtld_call_init_functions(sigset_t *mask) { Objlist_Entry *elm; Objlist initlist; u_int cur_objgen; dbg(("_rtld_call_init_functions()")); restart: cur_objgen = _rtld_objgen; SIMPLEQ_INIT(&initlist); _rtld_initlist_tsort(&initlist, 0); /* First pass: objects with IRELATIVE relocations. */ SIMPLEQ_FOREACH(elm, &initlist, link) { Obj_Entry *obj = elm->obj; if (__predict_false(_rtld_wait_for_fini(&obj, mask))) { _rtld_objlist_clear(&initlist); goto restart; } if (_rtld_call_ifunc_functions(mask, obj, cur_objgen)) { dbg(("restarting init iteration")); _rtld_objlist_clear(&initlist); goto restart; } } /* * XXX: For historic reasons, init/fini of the main object are called * from crt0. Don't introduce that mistake for ifunc, so look at * the head of _rtld_objlist that _rtld_initlist_tsort skipped. */ assert(_rtld_objlist->refcount != 0); if (_rtld_call_ifunc_functions(mask, _rtld_objlist, cur_objgen)) { dbg(("restarting init iteration")); _rtld_objlist_clear(&initlist); goto restart; } /* Second pass: objects marked with DF_1_INITFIRST. */ SIMPLEQ_FOREACH(elm, &initlist, link) { Obj_Entry *obj = elm->obj; if (__predict_false(_rtld_wait_for_fini(&obj, mask))) { _rtld_objlist_clear(&initlist); goto restart; } if (obj->z_initfirst) { if (!_rtld_initfini_enter(&obj, mask)) { _rtld_objlist_clear(&initlist); goto restart; } _rtld_call_init_function(obj, mask, cur_objgen); _rtld_initfini_exit(obj); if (_rtld_objgen != cur_objgen) { dbg(("restarting init iteration")); _rtld_objlist_clear(&initlist); goto restart; } } } /* Third pass: all other objects. */ SIMPLEQ_FOREACH(elm, &initlist, link) { Obj_Entry *obj = elm->obj; if (__predict_false(_rtld_wait_for_fini(&obj, mask))) { _rtld_objlist_clear(&initlist); goto restart; } if (!_rtld_initfini_enter(&obj, mask)) { _rtld_objlist_clear(&initlist); goto restart; } _rtld_call_init_function(obj, mask, cur_objgen); _rtld_initfini_exit(obj); if (_rtld_objgen != cur_objgen) { dbg(("restarting init iteration")); _rtld_objlist_clear(&initlist); goto restart; } } _rtld_objlist_clear(&initlist); } /* * Initialize the dynamic linker. The argument is the address at which * the dynamic linker has been mapped into memory. The primary task of * this function is to create an Obj_Entry for the dynamic linker and * to resolve the PLT relocation for platforms that need it (those that * define __HAVE_FUNCTION_DESCRIPTORS */ static void _rtld_init(caddr_t mapbase, caddr_t relocbase, const char *execname) { const Elf_Ehdr *ehdr; /* Conjure up an Obj_Entry structure for the dynamic linker. */ _rtld_objself.path = __UNCONST(_rtld_path); _rtld_objself.pathlen = sizeof(_rtld_path)-1; _rtld_objself.rtld = true; _rtld_objself.mapbase = mapbase; _rtld_objself.relocbase = relocbase; _rtld_objself.dynamic = (Elf_Dyn *) &_DYNAMIC; _rtld_objself.strtab = "_rtld_sym_zero"; /* * Set value to -relocbase so that * * _rtld_objself.relocbase + _rtld_sym_zero.st_value == 0 * * This allows unresolved references to weak symbols to be computed * to a value of 0. */ _rtld_sym_zero.st_value = -(uintptr_t)relocbase; _rtld_digest_dynamic(_rtld_path, &_rtld_objself); assert(!_rtld_objself.needed); #if !defined(__hppa__) assert(!_rtld_objself.pltrel && !_rtld_objself.pltrela); #else _rtld_relocate_plt_objects(&_rtld_objself); #endif #if !defined(__mips__) && !defined(__hppa__) assert(!_rtld_objself.pltgot); #endif #if !defined(__arm__) && !defined(__mips__) && !defined(__sh__) /* ARM, MIPS and SH{3,5} have a bogus DT_TEXTREL. */ assert(!_rtld_objself.textrel); #endif _rtld_add_paths(execname, &_rtld_default_paths, RTLD_DEFAULT_LIBRARY_PATH); #ifdef RTLD_ARCH_SUBDIR _rtld_add_paths(execname, &_rtld_default_paths, RTLD_DEFAULT_LIBRARY_PATH "/" RTLD_ARCH_SUBDIR); #endif /* Make the object list empty. */ _rtld_objlist = NULL; _rtld_objtail = &_rtld_objlist; _rtld_objcount = 0; _rtld_debug.r_version = R_DEBUG_VERSION; _rtld_debug.r_brk = _rtld_debug_state; _rtld_debug.r_state = RT_CONSISTENT; _rtld_debug.r_ldbase = _rtld_objself.relocbase; ehdr = (Elf_Ehdr *)mapbase; _rtld_objself.phdr = (Elf_Phdr *)((char *)mapbase + ehdr->e_phoff); _rtld_objself.phsize = ehdr->e_phnum * sizeof(_rtld_objself.phdr[0]); __libc_atomic_init(); } /* * Cleanup procedure. It will be called (by the atexit() mechanism) just * before the process exits. */ static void _rtld_exit(void) { sigset_t mask; dbg(("rtld_exit()")); _rtld_exclusive_enter(&mask); _rtld_call_fini_functions(&mask, 1); _rtld_exclusive_exit(&mask); } __dso_public void * _dlauxinfo(void) { return auxinfo; } /* * Main entry point for dynamic linking. The argument is the stack * pointer. The stack is expected to be laid out as described in the * SVR4 ABI specification, Intel 386 Processor Supplement. Specifically, * the stack pointer points to a word containing ARGC. Following that * in the stack is a null-terminated sequence of pointers to argument * strings. Then comes a null-terminated sequence of pointers to * environment strings. Finally, there is a sequence of "auxiliary * vector" entries. * * This function returns the entry point for the main program, the dynamic * linker's exit procedure in sp[0], and a pointer to the main object in * sp[1]. */ Elf_Addr _rtld(Elf_Addr *sp, Elf_Addr relocbase) { const AuxInfo *pAUX_base, *pAUX_entry, *pAUX_execfd, *pAUX_phdr, *pAUX_phent, *pAUX_phnum, *pAUX_euid, *pAUX_egid, *pAUX_ruid, *pAUX_rgid; const AuxInfo *pAUX_pagesz; char **env, **oenvp; const AuxInfo *auxp; Obj_Entry *obj; Elf_Addr *const osp = sp; bool bind_now = 0; const char *ld_bind_now, *ld_preload, *ld_library_path; const char **argv; const char *execname, *objmain_name; long argc; const char **real___progname; const Obj_Entry **real___mainprog_obj; char ***real_environ; sigset_t mask; #ifdef DEBUG const char *ld_debug; #endif #ifdef RTLD_DEBUG int i = 0; #endif /* * On entry, the dynamic linker itself has not been relocated yet. * Be very careful not to reference any global data until after * _rtld_init has returned. It is OK to reference file-scope statics * and string constants, and to call static and global functions. */ /* Find the auxiliary vector on the stack. */ /* first Elf_Word reserved to address of exit routine */ #if defined(RTLD_DEBUG) debug = 1; dbg(("sp = %p, argc = %ld, argv = %p <%s> relocbase %p", sp, (long)sp[2], &sp[3], (char *) sp[3], (void *)relocbase)); #ifndef __x86_64__ dbg(("got is at %p, dynamic is at %p", _GLOBAL_OFFSET_TABLE_, &_DYNAMIC)); #endif #endif sp += 2; /* skip over return argument space */ argv = (const char **) &sp[1]; argc = *(long *)sp; sp += 2 + argc; /* Skip over argc, arguments, and NULL * terminator */ env = (char **) sp; while (*sp++ != 0) { /* Skip over environment, and NULL terminator */ #if defined(RTLD_DEBUG) dbg(("env[%d] = %p %s", i++, (void *)sp[-1], (char *)sp[-1])); #endif } auxinfo = (AuxInfo *) sp; pAUX_base = pAUX_entry = pAUX_execfd = NULL; pAUX_phdr = pAUX_phent = pAUX_phnum = NULL; pAUX_euid = pAUX_ruid = pAUX_egid = pAUX_rgid = NULL; pAUX_pagesz = NULL; execname = NULL; /* Digest the auxiliary vector. */ for (auxp = auxinfo; auxp->a_type != AT_NULL; ++auxp) { switch (auxp->a_type) { case AT_BASE: pAUX_base = auxp; break; case AT_ENTRY: pAUX_entry = auxp; break; case AT_EXECFD: pAUX_execfd = auxp; break; case AT_PHDR: pAUX_phdr = auxp; break; case AT_PHENT: pAUX_phent = auxp; break; case AT_PHNUM: pAUX_phnum = auxp; break; #ifdef AT_EUID case AT_EUID: pAUX_euid = auxp; break; case AT_RUID: pAUX_ruid = auxp; break; case AT_EGID: pAUX_egid = auxp; break; case AT_RGID: pAUX_rgid = auxp; break; #endif #ifdef AT_SUN_EXECNAME case AT_SUN_EXECNAME: execname = (const char *)(const void *)auxp->a_v; break; #endif case AT_PAGESZ: pAUX_pagesz = auxp; break; } } /* Initialize and relocate ourselves. */ if (pAUX_base == NULL) { _rtld_error("Bad pAUX_base"); _rtld_die(); } assert(pAUX_pagesz != NULL); _rtld_pagesz = (int)pAUX_pagesz->a_v; _rtld_init((caddr_t)pAUX_base->a_v, (caddr_t)relocbase, execname); __progname = _rtld_objself.path; environ = env; _rtld_trust = ((pAUX_euid ? (uid_t)pAUX_euid->a_v : geteuid()) == (pAUX_ruid ? (uid_t)pAUX_ruid->a_v : getuid())) && ((pAUX_egid ? (gid_t)pAUX_egid->a_v : getegid()) == (pAUX_rgid ? (gid_t)pAUX_rgid->a_v : getgid())); #ifdef DEBUG ld_debug = NULL; #endif ld_bind_now = NULL; ld_library_path = NULL; ld_preload = NULL; /* * Inline avoid using normal getenv/unsetenv here as the libc * code is quite a bit more complicated. */ for (oenvp = env; *env != NULL; ++env) { static const char bind_var[] = "LD_BIND_NOW="; static const char debug_var[] = "LD_DEBUG="; static const char path_var[] = "LD_LIBRARY_PATH="; static const char preload_var[] = "LD_PRELOAD="; #define LEN(x) (sizeof(x) - 1) if ((*env)[0] != 'L' || (*env)[1] != 'D') { /* * Special case to skip most entries without * the more expensive calls to strncmp. */ *oenvp++ = *env; } else if (strncmp(*env, debug_var, LEN(debug_var)) == 0) { if (_rtld_trust) { #ifdef DEBUG ld_debug = *env + LEN(debug_var); #endif *oenvp++ = *env; } } else if (strncmp(*env, bind_var, LEN(bind_var)) == 0) { if (_rtld_trust) { ld_bind_now = *env + LEN(bind_var); *oenvp++ = *env; } } else if (strncmp(*env, path_var, LEN(path_var)) == 0) { if (_rtld_trust) { ld_library_path = *env + LEN(path_var); *oenvp++ = *env; } } else if (strncmp(*env, preload_var, LEN(preload_var)) == 0) { if (_rtld_trust) { ld_preload = *env + LEN(preload_var); *oenvp++ = *env; } } else { *oenvp++ = *env; } #undef LEN } *oenvp++ = NULL; /* * Set the main name. Prefer the name passed by the kernel first, * then the argument vector, and fall back to "main program" * This way the name will be an absolute path if available. */ objmain_name = execname ? execname : (argv[0] ? argv[0] : "main program"); if (ld_bind_now != NULL && *ld_bind_now != '\0') bind_now = true; if (_rtld_trust) { #ifdef DEBUG #ifdef RTLD_DEBUG debug = 0; #endif if (ld_debug != NULL && *ld_debug != '\0') debug = 1; #endif _rtld_add_paths(execname, &_rtld_paths, ld_library_path); } else { // Prevent $ORIGIN expansion execname = NULL; } _rtld_process_hints(execname, &_rtld_paths, &_rtld_xforms, _PATH_LD_HINTS); dbg(("dynamic linker is initialized, mapbase=%p, relocbase=%p", _rtld_objself.mapbase, _rtld_objself.relocbase)); /* * Load the main program, or process its program header if it is * already loaded. */ if (pAUX_execfd != NULL) { /* Load the main program. */ int fd = pAUX_execfd->a_v; dbg(("loading main program")); _rtld_objmain = _rtld_map_object(objmain_name, fd, NULL); close(fd); if (_rtld_objmain == NULL) _rtld_die(); } else { /* Main program already loaded. */ const Elf_Phdr *phdr; int phnum; caddr_t entry; dbg(("processing main program's program header")); assert(pAUX_phdr != NULL); phdr = (const Elf_Phdr *) pAUX_phdr->a_v; assert(pAUX_phnum != NULL); phnum = pAUX_phnum->a_v; assert(pAUX_phent != NULL); assert(pAUX_phent->a_v == sizeof(Elf_Phdr)); assert(pAUX_entry != NULL); entry = (caddr_t) pAUX_entry->a_v; _rtld_objmain = _rtld_digest_phdr(phdr, phnum, entry); _rtld_objmain->path = xstrdup(objmain_name); _rtld_objmain->pathlen = strlen(_rtld_objmain->path); } _rtld_objmain->mainprog = true; /* * Get the actual dynamic linker pathname from the executable if * possible. (It should always be possible.) That ensures that * the debugger will find the right dynamic linker even if a * non-standard one is being used. */ if (_rtld_objmain->interp != NULL && strcmp(_rtld_objmain->interp, _rtld_objself.path) != 0) { _rtld_objself.path = xstrdup(_rtld_objmain->interp); _rtld_objself.pathlen = strlen(_rtld_objself.path); } dbg(("actual dynamic linker is %s", _rtld_objself.path)); _rtld_digest_dynamic(execname, _rtld_objmain); /* Link the main program into the list of objects. */ *_rtld_objtail = _rtld_objmain; _rtld_objtail = &_rtld_objmain->next; _rtld_objcount++; _rtld_objloads++; _rtld_linkmap_add(_rtld_objmain); _rtld_objself.path = xstrdup(_rtld_objself.path); _rtld_linkmap_add(&_rtld_objself); ++_rtld_objmain->refcount; _rtld_objmain->mainref = 1; _rtld_objlist_push_tail(&_rtld_list_main, _rtld_objmain); if (ld_preload) { /* * Pre-load user-specified objects after the main program * but before any shared object dependencies. */ dbg(("preloading objects")); if (_rtld_preload(ld_preload, NULL) == -1) _rtld_die(); } dbg(("loading needed objects")); if (_rtld_load_needed_objects(_rtld_objmain, _RTLD_MAIN, NULL) == -1) _rtld_die(); dbg(("checking for required versions")); for (obj = _rtld_objlist; obj != NULL; obj = obj->next) { if (_rtld_verify_object_versions(obj) == -1) _rtld_die(); } #if defined(__HAVE_TLS_VARIANT_I) || defined(__HAVE_TLS_VARIANT_II) dbg(("initializing initial Thread Local Storage offsets")); /* * All initial objects get the TLS space from the static block. */ for (obj = _rtld_objlist; obj != NULL; obj = obj->next) _rtld_tls_offset_allocate(obj); #endif dbg(("relocating objects")); if (_rtld_relocate_objects(_rtld_objmain, bind_now) == -1) _rtld_die(); dbg(("doing copy relocations")); if (_rtld_do_copy_relocations(_rtld_objmain) == -1) _rtld_die(); #if defined(__HAVE_TLS_VARIANT_I) || defined(__HAVE_TLS_VARIANT_II) dbg(("initializing Thread Local Storage for main thread")); /* * Set up TLS area for the main thread. * This has to be done after all relocations are processed, * since .tdata may contain relocations. */ _rtld_tls_initial_allocation(); #endif /* * Set the __progname, environ and, __mainprog_obj before * calling anything that might use them. */ real___progname = _rtld_objmain_sym("__progname"); if (real___progname) { if (argv[0] != NULL) { if ((*real___progname = strrchr(argv[0], '/')) == NULL) (*real___progname) = argv[0]; else (*real___progname)++; } else { (*real___progname) = NULL; } } real_environ = _rtld_objmain_sym("environ"); if (real_environ) *real_environ = environ; /* * Set __mainprog_obj for old binaries. */ real___mainprog_obj = _rtld_objmain_sym("__mainprog_obj"); if (real___mainprog_obj) *real___mainprog_obj = _rtld_objmain; _rtld_debug_state(); /* say hello to the debugger! */ _rtld_exclusive_enter(&mask); dbg(("calling main preinit array functions")); _rtld_call_preinit_functions(&mask); dbg(("calling _init functions")); _rtld_call_init_functions(&mask); dbg(("control at program entry point = %p, obj = %p, exit = %p", _rtld_objmain->entry, _rtld_objmain, _rtld_exit)); _rtld_exclusive_exit(&mask); #ifdef GNU_RELRO /* * If the main program is lazily bound (default -- whether or * not LD_BINDNOW is set in the calling environment), its RELRO * region has already been mapped read-only in * _rtld_do_copy_relocations. The ifunc resolutions lie * outside this region, so future lazy ifunc resolution is * unaffected by the RELRO region's being read-only. * * If the main program is eagerly bound (i.e., the object has * DF_1_NOW set in DT_FLAGS_1, whether or not LD_BIND_NOW is * set in the calling environment), we deferred that from * _rtld_do_copy_relocations so that the ifunc resolution, we * have now resolved all ifuncs in it, so we can commit the * RELRO region to be read-only -- and that means ifunc * resolutions are read-only too. */ if (_rtld_objmain->z_now && _rtld_relro(_rtld_objmain, true) == -1) _rtld_die(); #endif /* * Return with the entry point and the exit procedure in at the top * of stack. */ ((void **) osp)[0] = _rtld_exit; ((void **) osp)[1] = __UNCONST(_rtld_compat_obj); return (Elf_Addr) _rtld_objmain->entry; } void _rtld_die(void) { const char *msg = dlerror(); if (msg == NULL) msg = "Fatal error"; xerrx(1, "%s", msg); } static Obj_Entry * _rtld_dlcheck(void *handle) { Obj_Entry *obj; for (obj = _rtld_objlist; obj != NULL; obj = obj->next) if (obj == (Obj_Entry *) handle) break; if (obj == NULL || obj->dl_refcount == 0) { _rtld_error("Invalid shared object handle %p", handle); return NULL; } return obj; } static void _rtld_initlist_visit(Objlist* list, Obj_Entry *obj, int rev) { Needed_Entry* elm; /* dbg(("_rtld_initlist_visit(%s)", obj->path)); */ /* * If the object hasn't been relocated yet, we have nothing to * do -- another thread is running dlopen, and will get to it * eventually, but it isn't ordered with respect to any * initializers we have to run. */ if (!obj->relocated) return; /* * If the object has already been visited, we have nothing to * do, so skip it. Note: This is reset at the beginning of * _rtld_initlist_topsort; it does not reflect whether the * initializers have actually run yet. */ if (obj->init_done) return; obj->init_done = 1; for (elm = obj->needed; elm != NULL; elm = elm->next) { if (elm->obj != NULL) { _rtld_initlist_visit(list, elm->obj, rev); } } if (rev) { _rtld_objlist_push_head(list, obj); } else { _rtld_objlist_push_tail(list, obj); } } static void _rtld_initlist_tsort(Objlist* list, int rev) { dbg(("_rtld_initlist_tsort")); Obj_Entry* obj; /* * We don't include objmain here (starting from next) * because csu handles it */ for (obj = _rtld_objlist->next; obj; obj = obj->next) { obj->init_done = 0; } for (obj = _rtld_objlist->next; obj; obj = obj->next) { _rtld_initlist_visit(list, obj, rev); } } static void _rtld_init_dag(Obj_Entry *root) { _rtld_init_dag1(root, root); } static void _rtld_init_dag1(Obj_Entry *root, Obj_Entry *obj) { const Needed_Entry *needed; if (!obj->mainref) { if (_rtld_objlist_find(&obj->dldags, root)) return; dbg(("add %p (%s) to %p (%s) DAG", obj, obj->path, root, root->path)); _rtld_objlist_push_tail(&obj->dldags, root); _rtld_objlist_push_tail(&root->dagmembers, obj); } for (needed = obj->needed; needed != NULL; needed = needed->next) if (needed->obj != NULL) _rtld_init_dag1(root, needed->obj); } /* * Note, this is called only for objects loaded by dlopen(). */ static void _rtld_unload_object(sigset_t *mask, Obj_Entry *root, bool do_fini_funcs) { _rtld_unref_dag(root); if (root->refcount == 0) { /* We are finished with some objects. */ Obj_Entry *obj; Obj_Entry **linkp; Objlist_Entry *elm; assert(root->dl_refcount == 0); assert(!root->z_nodelete); assert(!root->ref_nodel); /* * A concurrent dlopen of some other library might have * picked up this object while loading needed entries. * Wait for that to complete. The root can't go away * at this point: we already hold the last actual * reference to it. */ obj = root; (void)_rtld_wait_for_load_needed(&obj, mask); assert(root->refcount == 0); assert(root->dl_refcount == 0); assert(!root->z_nodelete); assert(!root->ref_nodel); /* * Finalize objects that are about to be unmapped. Set * root->dlclosing while we do this so concurrent * dlclose calls, which can run while the rtld * exclusive lock is dropped across fini calls, will * skip this when garbage-collecting the object list. */ if (do_fini_funcs) { root->dlclosing = true; _rtld_call_fini_functions(mask, 0); assert(root->dlclosing); assert(root->refcount == 0); assert(root->dl_refcount == 0); root->dlclosing = false; } /* Remove the DAG from all objects' DAG lists. */ SIMPLEQ_FOREACH(elm, &root->dagmembers, link) _rtld_objlist_remove(&elm->obj->dldags, root); /* Remove the DAG from the RTLD_GLOBAL list. */ if (root->globalref) { root->globalref = 0; _rtld_objlist_remove(&_rtld_list_global, root); } /* * Unmap all objects that are no longer referenced. * * Objects that are unreferenced but have dlclosing or * initfinilock set must be in use in a concurrent call * to _rtld_unload_object, which will go through the * list of objects to unmap when it is done, so we skip * them -- this avoids pulling the rug out from under * the concurrent call, and won't leak. * * For objects that are still having their dependencies * loaded, we have to wait until the loading is done -- * and while we're waiting, another thread might free * it, so we have to start over from the top. */ restart: linkp = &_rtld_objlist->next; while ((obj = *linkp) != NULL) { if (obj->refcount == 0 && !obj->dlclosing && obj->initfinilock == 0) { if (__predict_false( _rtld_wait_for_load_needed(&obj, mask))) goto restart; dbg(("unloading \"%s\"", obj->path)); if (obj->ehdr != MAP_FAILED) munmap(obj->ehdr, _rtld_pagesz); munmap(obj->mapbase, obj->mapsize); _rtld_objlist_remove(&_rtld_list_global, obj); _rtld_linkmap_delete(obj); *linkp = obj->next; _rtld_objcount--; _rtld_fini_done(obj); _rtld_obj_free(obj); } else linkp = &obj->next; } _rtld_objtail = linkp; _rtld_objgen++; } } void _rtld_ref_dag(Obj_Entry *root) { const Needed_Entry *needed; assert(root); assert(root->refcount > 0); ++root->refcount; dbg(("incremented reference on \"%s\" (%d)", root->path, root->refcount)); for (needed = root->needed; needed != NULL; needed = needed->next) { if (needed->obj != NULL) _rtld_ref_dag(needed->obj); } } static void _rtld_unref_dag(Obj_Entry *root) { assert(root); assert(root->refcount != 0); --root->refcount; dbg(("decremented reference on \"%s\" (%d)", root->path, root->refcount)); if (root->refcount == 0) { const Needed_Entry *needed; for (needed = root->needed; needed != NULL; needed = needed->next) { if (needed->obj != NULL) _rtld_unref_dag(needed->obj); } } } __strong_alias(__dlclose,dlclose) int dlclose(void *handle) { Obj_Entry *root; sigset_t mask; dbg(("dlclose of %p", handle)); _rtld_exclusive_enter(&mask); root = _rtld_dlcheck(handle); if (root == NULL) { _rtld_exclusive_exit(&mask); return -1; } assert(root->refcount != 0); assert(root->dl_refcount != 0); _rtld_debug.r_state = RT_DELETE; _rtld_debug_state(); --root->dl_refcount; assert(root->refcount != 0); _rtld_unload_object(&mask, root, true); _rtld_debug.r_state = RT_CONSISTENT; _rtld_debug_state(); _rtld_exclusive_exit(&mask); return 0; } __strong_alias(__dlerror,dlerror) char * dlerror(void) { char *msg = error_message; error_message = NULL; return msg; } __strong_alias(__dlopen,dlopen) void * dlopen(const char *name, int mode) { Obj_Entry *obj = NULL; int flags = _RTLD_DLOPEN; bool nodelete; bool now; sigset_t mask; int result; dbg(("dlopen of %s 0x%x", name, mode)); _rtld_exclusive_enter(&mask); flags |= (mode & RTLD_GLOBAL) ? _RTLD_GLOBAL : 0; flags |= (mode & RTLD_NOLOAD) ? _RTLD_NOLOAD : 0; nodelete = (mode & RTLD_NODELETE) ? true : false; now = ((mode & RTLD_MODEMASK) == RTLD_NOW) ? true : false; _rtld_debug.r_state = RT_ADD; _rtld_debug_state(); if (name == NULL) { obj = _rtld_objmain; assert(obj->refcount > 0); obj->refcount++; } else obj = _rtld_load_library(name, _rtld_objmain, flags, &mask); if (obj != NULL) { assert(obj->refcount > 0); ++obj->dl_refcount; if (_rtld_objrelocpending) { /* We loaded something new. */ result = _rtld_load_needed_objects(obj, flags, &mask); if (result != -1) { Objlist_Entry *entry; _rtld_init_dag(obj); SIMPLEQ_FOREACH(entry, &obj->dagmembers, link) { result = _rtld_verify_object_versions(entry->obj); if (result == -1) break; } } if (result == -1 || _rtld_relocate_objects(_rtld_objlist, (now || obj->z_now)) == -1) { obj->dl_refcount--; _rtld_unload_object(&mask, obj, false); obj = NULL; } else { _rtld_call_init_functions(&mask); } } if (obj != NULL) { if ((nodelete || obj->z_nodelete) && !obj->ref_nodel) { dbg(("dlopen obj %s nodelete", obj->path)); _rtld_ref_dag(obj); obj->z_nodelete = obj->ref_nodel = true; } } } _rtld_debug.r_state = RT_CONSISTENT; _rtld_debug_state(); dbg(("dlopen of %s 0x%x returned %p%s%s%s", name, mode, obj, obj ? "" : " (", obj ? "" : error_message, obj ? "" : ")")); _rtld_exclusive_exit(&mask); return obj; } /* * Find a symbol in the main program. */ _Pragma("GCC diagnostic push") /* _rtld_donelist_init: -Wno-stack-protector */ _Pragma("GCC diagnostic ignored \"-Wstack-protector\"") void * _rtld_objmain_sym(const char *name) { Elf_Hash hash; const Elf_Sym *def; const Obj_Entry *obj; DoneList donelist; hash.sysv = _rtld_sysv_hash(name); hash.gnu = _rtld_gnu_hash(name); obj = _rtld_objmain; _rtld_donelist_init(&donelist); def = _rtld_symlook_list(name, &hash, &_rtld_list_main, &obj, 0, NULL, &donelist); if (def != NULL) return obj->relocbase + def->st_value; return NULL; } _Pragma("GCC diagnostic pop") #if defined(__powerpc__) && !defined(__clang__) static __noinline void * hackish_return_address(void) { #if __GNUC_PREREQ__(6,0) #pragma GCC diagnostic push #pragma GCC diagnostic ignored "-Wframe-address" #endif return __builtin_return_address(1); #if __GNUC_PREREQ__(6,0) #pragma GCC diagnostic pop #endif } #endif #ifdef __HAVE_FUNCTION_DESCRIPTORS #define lookup_mutex_enter() _rtld_exclusive_enter(&mask) #define lookup_mutex_exit() _rtld_exclusive_exit(&mask) #else #define lookup_mutex_enter() _rtld_shared_enter() #define lookup_mutex_exit() _rtld_shared_exit() #endif _Pragma("GCC diagnostic push") /* _rtld_donelist_init: -Wno-stack-protector */ _Pragma("GCC diagnostic ignored \"-Wstack-protector\"") static void * do_dlsym(void *handle, const char *name, const Ver_Entry *ventry, void *retaddr) { const Obj_Entry *obj; Elf_Hash hash; const Elf_Sym *def; const Obj_Entry *defobj; DoneList donelist; const u_int flags = SYMLOOK_DLSYM | SYMLOOK_IN_PLT; #ifdef __HAVE_FUNCTION_DESCRIPTORS sigset_t mask; #endif lookup_mutex_enter(); hash.sysv = _rtld_sysv_hash(name); hash.gnu = _rtld_gnu_hash(name); def = NULL; defobj = NULL; switch ((intptr_t)handle) { case (intptr_t)NULL: case (intptr_t)RTLD_NEXT: case (intptr_t)RTLD_DEFAULT: case (intptr_t)RTLD_SELF: if ((obj = _rtld_obj_from_addr(retaddr)) == NULL) { _rtld_error("Cannot determine caller's shared object"); lookup_mutex_exit(); return NULL; } switch ((intptr_t)handle) { case (intptr_t)NULL: /* Just the caller's shared object. */ def = _rtld_symlook_obj(name, &hash, obj, flags, ventry); defobj = obj; break; case (intptr_t)RTLD_NEXT: /* Objects after callers */ obj = obj->next; /*FALLTHROUGH*/ case (intptr_t)RTLD_SELF: /* Caller included */ for (; obj; obj = obj->next) { if ((def = _rtld_symlook_obj(name, &hash, obj, flags, ventry)) != NULL) { defobj = obj; break; } } /* * Search the dynamic linker itself, and possibly * resolve the symbol from there if it is not defined * already or weak. This is how the application links * to dynamic linker services such as dlopen. */ if (!def || ELF_ST_BIND(def->st_info) == STB_WEAK) { const Elf_Sym *symp = _rtld_symlook_obj(name, &hash, &_rtld_objself, flags, ventry); if (symp != NULL) { def = symp; defobj = &_rtld_objself; } } break; case (intptr_t)RTLD_DEFAULT: def = _rtld_symlook_default(name, &hash, obj, &defobj, flags, ventry); break; default: abort(); } break; default: if ((obj = _rtld_dlcheck(handle)) == NULL) { lookup_mutex_exit(); return NULL; } _rtld_donelist_init(&donelist); if (obj->mainprog) { /* Search main program and all libraries loaded by it */ def = _rtld_symlook_list(name, &hash, &_rtld_list_main, &defobj, flags, ventry, &donelist); } else { Needed_Entry fake; DoneList depth; /* Search the object and all the libraries loaded by it. */ fake.next = NULL; fake.obj = __UNCONST(obj); fake.name = 0; _rtld_donelist_init(&depth); def = _rtld_symlook_needed(name, &hash, &fake, &defobj, flags, ventry, &donelist, &depth); } break; } if (def != NULL) { void *p; if (ELF_ST_TYPE(def->st_info) == STT_GNU_IFUNC) { #ifdef __HAVE_FUNCTION_DESCRIPTORS lookup_mutex_exit(); _rtld_shared_enter(); #endif p = (void *)_rtld_resolve_ifunc(defobj, def); _rtld_shared_exit(); return p; } #ifdef __HAVE_FUNCTION_DESCRIPTORS if (ELF_ST_TYPE(def->st_info) == STT_FUNC) { p = (void *)_rtld_function_descriptor_alloc(defobj, def, 0); lookup_mutex_exit(); return p; } #endif /* __HAVE_FUNCTION_DESCRIPTORS */ p = defobj->relocbase + def->st_value; lookup_mutex_exit(); return p; } _rtld_error("Undefined symbol \"%s\"", name); lookup_mutex_exit(); return NULL; } _Pragma("GCC diagnostic pop") __strong_alias(__dlsym,dlsym) void * dlsym(void *handle, const char *name) { void *retaddr; dbg(("dlsym of %s in %p", name, handle)); #if defined(__powerpc__) && !defined(__clang__) retaddr = hackish_return_address(); #else retaddr = __builtin_return_address(0); #endif return do_dlsym(handle, name, NULL, retaddr); } __strong_alias(__dlvsym,dlvsym) void * dlvsym(void *handle, const char *name, const char *version) { Ver_Entry *ventry = NULL; Ver_Entry ver_entry; void *retaddr; dbg(("dlvsym of %s@%s in %p", name, version ? version : NULL, handle)); if (version != NULL) { ver_entry.name = version; ver_entry.file = NULL; ver_entry.hash = _rtld_sysv_hash(version); ver_entry.flags = 0; ventry = &ver_entry; } #if defined(__powerpc__) && !defined(__clang__) retaddr = hackish_return_address(); #else retaddr = __builtin_return_address(0); #endif return do_dlsym(handle, name, ventry, retaddr); } __strong_alias(__dladdr,dladdr) int dladdr(const void *addr, Dl_info *info) { const Obj_Entry *obj; const Elf_Sym *def, *best_def; void *symbol_addr; unsigned long symoffset; #ifdef __HAVE_FUNCTION_DESCRIPTORS sigset_t mask; #endif dbg(("dladdr of %p", addr)); lookup_mutex_enter(); #ifdef __HAVE_FUNCTION_DESCRIPTORS addr = _rtld_function_descriptor_function(addr); #endif /* __HAVE_FUNCTION_DESCRIPTORS */ obj = _rtld_obj_from_addr(addr); if (obj == NULL) { _rtld_error("No shared object contains address"); lookup_mutex_exit(); return 0; } info->dli_fname = obj->path; info->dli_fbase = obj->mapbase; info->dli_saddr = (void *)0; info->dli_sname = NULL; /* * Walk the symbol list looking for the symbol whose address is * closest to the address sent in. */ best_def = NULL; for (symoffset = 0; symoffset < obj->nchains; symoffset++) { def = obj->symtab + symoffset; /* * For skip the symbol if st_shndx is either SHN_UNDEF or * SHN_COMMON. */ if (def->st_shndx == SHN_UNDEF || def->st_shndx == SHN_COMMON) continue; /* * If the symbol is greater than the specified address, or if it * is further away from addr than the current nearest symbol, * then reject it. */ symbol_addr = obj->relocbase + def->st_value; if (symbol_addr > addr || symbol_addr < info->dli_saddr) continue; /* Update our idea of the nearest symbol. */ info->dli_sname = obj->strtab + def->st_name; info->dli_saddr = symbol_addr; best_def = def; /* Exact match? */ if (info->dli_saddr == addr) break; } #ifdef __HAVE_FUNCTION_DESCRIPTORS if (best_def != NULL && ELF_ST_TYPE(best_def->st_info) == STT_FUNC) info->dli_saddr = (void *)_rtld_function_descriptor_alloc(obj, best_def, 0); #else __USE(best_def); #endif /* __HAVE_FUNCTION_DESCRIPTORS */ lookup_mutex_exit(); return 1; } __strong_alias(__dlinfo,dlinfo) int dlinfo(void *handle, int req, void *v) { const Obj_Entry *obj; void *retaddr; dbg(("dlinfo for %p %d", handle, req)); _rtld_shared_enter(); if (handle == RTLD_SELF) { #if defined(__powerpc__) && !defined(__clang__) retaddr = hackish_return_address(); #else retaddr = __builtin_return_address(0); #endif if ((obj = _rtld_obj_from_addr(retaddr)) == NULL) { _rtld_error("Cannot determine caller's shared object"); _rtld_shared_exit(); return -1; } } else { if ((obj = _rtld_dlcheck(handle)) == NULL) { _rtld_shared_exit(); return -1; } } switch (req) { case RTLD_DI_LINKMAP: { const struct link_map **map = v; *map = &obj->linkmap; break; } default: _rtld_error("Invalid request"); _rtld_shared_exit(); return -1; } _rtld_shared_exit(); return 0; } static void _rtld_fill_dl_phdr_info(const Obj_Entry *obj, struct dl_phdr_info *phdr_info) { phdr_info->dlpi_addr = (Elf_Addr)obj->relocbase; /* XXX: wrong but not fixing it yet */ phdr_info->dlpi_name = obj->path; phdr_info->dlpi_phdr = obj->phdr; phdr_info->dlpi_phnum = obj->phsize / sizeof(obj->phdr[0]); #if defined(__HAVE_TLS_VARIANT_I) || defined(__HAVE_TLS_VARIANT_II) phdr_info->dlpi_tls_modid = obj->tlsindex; phdr_info->dlpi_tls_data = obj->tlsinit; #else phdr_info->dlpi_tls_modid = 0; phdr_info->dlpi_tls_data = 0; #endif phdr_info->dlpi_adds = _rtld_objloads; phdr_info->dlpi_subs = _rtld_objloads - _rtld_objcount; } __strong_alias(__dl_iterate_phdr,dl_iterate_phdr); int dl_iterate_phdr(int (*callback)(struct dl_phdr_info *, size_t, void *), void *param) { struct dl_phdr_info phdr_info; const Obj_Entry *obj; int error = 0; dbg(("dl_iterate_phdr")); _rtld_shared_enter(); for (obj = _rtld_objlist; obj != NULL; obj = obj->next) { _rtld_fill_dl_phdr_info(obj, &phdr_info); /* XXXlocking: exit point */ error = callback(&phdr_info, sizeof(phdr_info), param); if (error) break; } if (error == 0) { _rtld_fill_dl_phdr_info(&_rtld_objself, &phdr_info); /* XXXlocking: exit point */ error = callback(&phdr_info, sizeof(phdr_info), param); } _rtld_shared_exit(); return error; } void __dl_cxa_refcount(void *addr, ssize_t delta) { sigset_t mask; Obj_Entry *obj; if (delta == 0) return; dbg(("__dl_cxa_refcount of %p with %zd", addr, delta)); _rtld_exclusive_enter(&mask); obj = _rtld_obj_from_addr(addr); if (obj == NULL) { dbg(("__dl_cxa_refcont: address not found")); _rtld_error("No shared object contains address"); _rtld_exclusive_exit(&mask); return; } if (delta > 0 && obj->cxa_refcount > SIZE_MAX - delta) _rtld_error("Reference count overflow"); else if (delta < 0 && obj->cxa_refcount < -1 + (size_t)-(delta + 1)) _rtld_error("Reference count underflow"); else { if (obj->cxa_refcount == 0) { assert(obj->refcount > 0); ++obj->refcount; } obj->cxa_refcount += delta; dbg(("new reference count: %zu", obj->cxa_refcount)); if (obj->cxa_refcount == 0) { --obj->refcount; if (obj->refcount == 0) _rtld_unload_object(&mask, obj, true); } } _rtld_exclusive_exit(&mask); } __dso_public pid_t __locked_fork(int *my_errno) { pid_t result; _rtld_shared_enter(); result = __fork(); if (result == -1) *my_errno = errno; _rtld_shared_exit(); return result; } /* * Error reporting function. Use it like printf. If formats the message * into a buffer, and sets things up so that the next call to dlerror() * will return the message. */ void _rtld_error(const char *fmt,...) { static char buf[512]; va_list ap; va_start(ap, fmt); xvsnprintf(buf, sizeof buf, fmt, ap); dbg(("%s: %s", __func__, buf)); error_message = buf; va_end(ap); } void _rtld_debug_state(void) { #if defined(__hppa__) __asm volatile("nop" ::: "memory"); #endif /* Prevent optimizer from removing calls to this function */ __insn_barrier(); } void _rtld_linkmap_add(Obj_Entry *obj) { struct link_map *l = &obj->linkmap; struct link_map *prev; obj->linkmap.l_name = obj->path; obj->linkmap.l_addr = obj->relocbase; obj->linkmap.l_ld = obj->dynamic; #ifdef __mips__ /* XXX This field is not standard and will be removed eventually. */ obj->linkmap.l_offs = obj->relocbase; #endif if (_rtld_debug.r_map == NULL) { _rtld_debug.r_map = l; return; } /* * Scan to the end of the list, but not past the entry for the * dynamic linker, which we want to keep at the very end. */ for (prev = _rtld_debug.r_map; prev->l_next != NULL && prev->l_next != &_rtld_objself.linkmap; prev = prev->l_next); l->l_prev = prev; l->l_next = prev->l_next; if (l->l_next != NULL) l->l_next->l_prev = l; prev->l_next = l; } void _rtld_linkmap_delete(Obj_Entry *obj) { struct link_map *l = &obj->linkmap; if (l->l_prev == NULL) { if ((_rtld_debug.r_map = l->l_next) != NULL) l->l_next->l_prev = NULL; return; } if ((l->l_prev->l_next = l->l_next) != NULL) l->l_next->l_prev = l->l_prev; } static Obj_Entry * _rtld_obj_from_addr(const void *addr) { Obj_Entry *obj; for (obj = _rtld_objlist; obj != NULL; obj = obj->next) { if (addr < (void *) obj->mapbase) continue; if (addr < (void *) (obj->mapbase + obj->mapsize)) return obj; } return NULL; } static void _rtld_objlist_clear(Objlist *list) { while (!SIMPLEQ_EMPTY(list)) { Objlist_Entry* elm = SIMPLEQ_FIRST(list); SIMPLEQ_REMOVE_HEAD(list, link); xfree(elm); } } static void _rtld_objlist_remove(Objlist *list, Obj_Entry *obj) { Objlist_Entry *elm; if ((elm = _rtld_objlist_find(list, obj)) != NULL) { SIMPLEQ_REMOVE(list, elm, Struct_Objlist_Entry, link); xfree(elm); } } #define RTLD_EXCLUSIVE_MASK 0x80000000U static volatile unsigned int _rtld_mutex; static volatile unsigned int _rtld_waiter_exclusive; static volatile unsigned int _rtld_waiter_shared; void _rtld_shared_enter(void) { unsigned int cur; lwpid_t waiter, self = 0; for (;;) { cur = _rtld_mutex; /* * First check if we are currently not exclusively locked. */ if ((cur & RTLD_EXCLUSIVE_MASK) == 0) { /* Yes, so increment use counter */ if (atomic_cas_uint(&_rtld_mutex, cur, cur + 1) != cur) continue; membar_acquire(); return; } /* * Someone has an exclusive lock. Puts us on the waiter list. */ if (!self) self = _lwp_self(); if (cur == (self | RTLD_EXCLUSIVE_MASK)) { if (_rtld_mutex_may_recurse) return; _rtld_error("%s: dead lock detected", __func__); _rtld_die(); } waiter = atomic_swap_uint(&_rtld_waiter_shared, self); /* * Check for race against _rtld_exclusive_exit before sleeping. */ membar_sync(); if ((_rtld_mutex & RTLD_EXCLUSIVE_MASK) || _rtld_waiter_exclusive) _lwp_park(CLOCK_REALTIME, 0, NULL, 0, __UNVOLATILE(&_rtld_mutex), NULL); /* Try to remove us from the waiter list. */ atomic_cas_uint(&_rtld_waiter_shared, self, 0); if (waiter) _lwp_unpark(waiter, __UNVOLATILE(&_rtld_mutex)); } } void _rtld_shared_exit(void) { lwpid_t waiter; /* * Shared lock taken after an exclusive lock. * Just assume this is a partial recursion. */ if (_rtld_mutex & RTLD_EXCLUSIVE_MASK) return; /* * Wakeup LWPs waiting for an exclusive lock if this is the last * LWP on the shared lock. */ membar_release(); if (atomic_dec_uint_nv(&_rtld_mutex)) return; membar_sync(); if ((waiter = _rtld_waiter_exclusive) != 0) _lwp_unpark(waiter, __UNVOLATILE(&_rtld_mutex)); } void _rtld_exclusive_enter(sigset_t *mask) { lwpid_t waiter, self = _lwp_self(); unsigned int locked_value = (unsigned int)self | RTLD_EXCLUSIVE_MASK; unsigned int cur; sigset_t blockmask; sigfillset(&blockmask); sigdelset(&blockmask, SIGTRAP); /* Allow the debugger */ sigprocmask(SIG_BLOCK, &blockmask, mask); for (;;) { if (atomic_cas_uint(&_rtld_mutex, 0, locked_value) == 0) { membar_acquire(); break; } waiter = atomic_swap_uint(&_rtld_waiter_exclusive, self); membar_sync(); cur = _rtld_mutex; if (cur == locked_value) { _rtld_error("%s: dead lock detected", __func__); _rtld_die(); } if (cur) _lwp_park(CLOCK_REALTIME, 0, NULL, 0, __UNVOLATILE(&_rtld_mutex), NULL); atomic_cas_uint(&_rtld_waiter_exclusive, self, 0); if (waiter) _lwp_unpark(waiter, __UNVOLATILE(&_rtld_mutex)); } } void _rtld_exclusive_exit(sigset_t *mask) { lwpid_t waiter; membar_release(); _rtld_mutex = 0; membar_sync(); if ((waiter = _rtld_waiter_exclusive) != 0) _lwp_unpark(waiter, __UNVOLATILE(&_rtld_mutex)); if ((waiter = _rtld_waiter_shared) != 0) _lwp_unpark(waiter, __UNVOLATILE(&_rtld_mutex)); sigprocmask(SIG_SETMASK, mask, NULL); } int _rtld_relro(const Obj_Entry *obj, bool wantmain) { #ifdef GNU_RELRO /* * If our VM page size is larger than the page size used by the * linker when laying out the object, we could end up making data * read-only that is unintended. Detect and avoid this situation. * It may mean we are unable to protect everything we'd like, but * it's better than crashing. */ uintptr_t relro_end = (uintptr_t)obj->relro_page + obj->relro_size; uintptr_t relro_start = round_down((uintptr_t)obj->relro_page); assert(relro_end >= relro_start); size_t relro_size = round_down(relro_end) - relro_start; if (relro_size == 0) return 0; if (wantmain != (obj ==_rtld_objmain)) return 0; dbg(("RELRO %s %p %zx", obj->path, (void *)relro_start, relro_size)); if (mprotect((void *)relro_start, relro_size, PROT_READ) == -1) { _rtld_error("%s: Cannot enforce relro " "protection: %s", obj->path, xstrerror(errno)); return -1; } #endif return 0; } src/libexec/ld.elf_so/rtld.h010064400011300000175000000456731522207752200162160ustar00srcmastrnetbsd/* $NetBSD: rtld.h,v 1.150.2.3 2026/07/03 18:36:36 martin Exp $ */ /* * Copyright 1996 John D. Polstra. * Copyright 1996 Matt Thomas * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by John Polstra. * 4. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ #ifndef RTLD_H #define RTLD_H #include #include #include #include #include #include #include #include #include #include "rtldenv.h" #include "link.h" #if defined(_RTLD_SOURCE) #if defined(__ARM_EABI__) && !defined(__ARM_DWARF_EH__) #include "unwind.h" #endif #ifndef RTLD_DEFAULT_LIBRARY_PATH #define RTLD_DEFAULT_LIBRARY_PATH "/usr/lib" #endif #define _PATH_LD_HINTS "/etc/ld.so.conf" extern size_t _rtld_pagesz; #define round_down(x) ((x) & ~(_rtld_pagesz - 1)) #define round_up(x) round_down((x) + _rtld_pagesz - 1) #define NEW(type) ((type *) xmalloc(sizeof(type))) #define CNEW(type) ((type *) xcalloc(sizeof(type))) /* * Fill in a DoneList with an allocation large enough to hold all of * the currently-loaded objects. Keep this in a macro since it calls * alloca and we want that to occur within the scope of the caller. * Callers must be built with -Wno-stack-protector. */ #define _rtld_donelist_init(dlp) \ ((dlp)->num_alloc = _rtld_objcount, \ (dlp)->objs = alloca((dlp)->num_alloc * sizeof((dlp)->objs[0])), \ assert((dlp)->objs != NULL), \ (dlp)->num_used = 0) typedef struct Struct_Elf_Hash { unsigned long sysv; unsigned long gnu; } Elf_Hash; #endif /* _RTLD_SOURCE */ /* * C++ has mandated the use of the following keywords for its new boolean * type. We might as well follow their lead. */ struct Struct_Obj_Entry; typedef struct Struct_Objlist_Entry { SIMPLEQ_ENTRY(Struct_Objlist_Entry) link; struct Struct_Obj_Entry *obj; } Objlist_Entry; typedef SIMPLEQ_HEAD(Struct_Objlist, Struct_Objlist_Entry) Objlist; typedef struct Struct_Name_Entry { SIMPLEQ_ENTRY(Struct_Name_Entry) link; char name[1]; } Name_Entry; typedef struct Struct_Needed_Entry { struct Struct_Needed_Entry *next; struct Struct_Obj_Entry *obj; unsigned long name; /* Offset of name in string table */ } Needed_Entry; typedef struct _rtld_search_path_t { struct _rtld_search_path_t *sp_next; const char *sp_path; size_t sp_pathlen; } Search_Path; typedef struct Struct_Ver_Entry { Elf_Word hash; u_int flags; const char *name; const char *file; } Ver_Entry; /* Ver_Entry.flags */ #define VER_INFO_HIDDEN 0x01 #define RTLD_MAX_ENTRY 10 #define RTLD_MAX_LIBRARY 4 #define RTLD_MAX_CTL 2 typedef struct _rtld_library_xform_t { struct _rtld_library_xform_t *next; char *name; const char *ctlname; struct { char *value; char *library[RTLD_MAX_LIBRARY]; } entry[RTLD_MAX_ENTRY]; } Library_Xform; /* * Shared object descriptor. * * Items marked with "(%)" are dynamically allocated, and must be freed * when the structure is destroyed. */ typedef void (*fptr_t)(void); typedef struct Struct_Obj_Entry { struct Struct_Obj_Entry *next; char *path; /* Pathname of underlying file (%) */ int refcount; int dl_refcount; /* Number of times loaded by dlopen */ /* These items are computed by map_object() or by digest_phdr(). */ caddr_t mapbase; /* Base address of mapped region */ size_t mapsize; /* Size of mapped region in bytes */ size_t textsize; /* Size of text segment in bytes */ Elf_Addr vaddrbase; /* Base address in shared object file */ caddr_t relocbase; /* Reloc const = mapbase - *vaddrbase */ Elf_Dyn *dynamic; /* Dynamic section */ caddr_t entry; /* Entry point */ const Elf_Phdr *phdr; /* Program header (may be xmalloc'ed) */ size_t phsize; /* Size of program header in bytes */ /* Items from the dynamic section. */ Elf_Addr *pltgot; /* PLTGOT table */ const Elf_Rel *rel; /* Relocation entries */ const Elf_Rel *rellim; /* Limit of Relocation entries */ const Elf_Rela *rela; /* Relocation entries */ const Elf_Rela *relalim; /* Limit of Relocation entries */ const Elf_Relr *relr; /* Relative relocations */ const Elf_Relr *relrlim; /* Limit of relative relocations */ const Elf_Rel *pltrel; /* PLT relocation entries */ const Elf_Rel *pltrellim; /* Limit of PLT relocation entries */ const Elf_Rela *pltrela; /* PLT relocation entries */ const Elf_Rela *pltrelalim; /* Limit of PLT relocation entries */ const Elf_Sym *symtab; /* Symbol table */ const char *strtab; /* String table */ unsigned long strsize; /* Size in bytes of string table */ #if defined(__mips__) || defined(__riscv__) Elf_Word local_gotno; /* Number of local GOT entries */ Elf_Word symtabno; /* Number of dynamic symbols */ Elf_Word gotsym; /* First dynamic symbol in GOT */ #endif /* SysV Hash fields */ const Elf_Symindx *buckets; /* Hash table buckets array */ unsigned long unused1; /* Used to be nbuckets */ const Elf_Symindx *chains; /* Hash table chain array */ unsigned long nchains; /* Number of chains */ Search_Path *rpaths; /* Search path specified in object */ Needed_Entry *needed; /* Shared objects needed by this (%) */ fptr_t init; /* Initialization function to call */ fptr_t fini; /* Termination function to call */ u_int32_t mainprog:1, /* True if this is the main program */ rtld:1, /* True if this is the dynamic linker */ textrel:1, /* True if there are relocations to * text seg */ symbolic:1, /* True if generated with * "-Bsymbolic" */ printed:1, /* True if ldd has printed it */ isdynamic:1, /* True if this is a pure PIC object */ mainref:1, /* True if on _rtld_list_main */ globalref:1, /* True if on _rtld_list_global */ init_done:1, /* True if .init has been added */ init_called:1, /* True if .init function has been * called */ fini_called:1, /* True if .fini function has been * called */ z_now:1, /* True if object's symbols should be bound immediately */ z_nodelete:1, /* True if object should never be unloaded */ z_initfirst:1, /* True if object's .init/.fini take * priority over others */ z_noopen:1, /* True if object should never be dlopen'ed */ phdr_loaded:1, /* Phdr is loaded and doesn't need to * be freed. */ #ifdef __alpha__ secureplt:1, /* True if PLT is read-only format */ #endif #if defined(__HAVE_TLS_VARIANT_I) || defined(__HAVE_TLS_VARIANT_II) tls_static:1, /* True if static TLS offset * has been allocated */ tls_dynamic:1, /* True if any non-static DTV entry * has been allocated */ #endif ref_nodel:1, /* Refcount increased to prevent dlclose */ sysv_hash:1, /* SysV Hash available */ gnu_hash:1; /* GNU Hash available */ struct link_map linkmap; /* for the debugger */ /* These items are computed by map_object() or by digest_phdr(). */ const char *interp; /* Pathname of the interpreter, if any */ Objlist dldags; /* Object belongs to these dlopened DAGs (%) */ Objlist dagmembers; /* DAG has these members (%) */ dev_t dev; /* Object's filesystem's device */ ino_t ino; /* Object's inode number */ void *ehdr; /* SysV Hash fields */ uint32_t nbuckets; /* Number of buckets */ uint32_t nbuckets_m; /* Precomputed for fast remainder */ uint8_t nbuckets_s1; uint8_t nbuckets_s2; /* GNU Hash fields */ const uint32_t *buckets_gnu; /* Hash table buckets array */ uint32_t nbuckets_gnu; /* Number of GNU hash buckets */ uint32_t nbuckets_m_gnu; /* Precomputed for fast remainder */ uint8_t nbuckets_s1_gnu; uint8_t nbuckets_s2_gnu; const uint32_t *chains_gnu; /* Hash table chain array */ #define nchains_gnu nchains /* Number of symbols, shared with SysV Hash */ const Elf_Addr *bloom_gnu; uint32_t symndx_gnu; /* First accessible symbol on dynsym table */ uint32_t mask_bm_gnu; /* Bloom filter words - 1 (bitmask) */ uint32_t shift2_gnu; /* Bloom filter shift count */ size_t pathlen; /* Pathname length */ SIMPLEQ_HEAD(, Struct_Name_Entry) names; /* List of names for this * object we know about. */ #ifdef __powerpc__ #ifdef _LP64 Elf_Addr glink; /* global linkage */ #else Elf_Addr *gotptr; /* GOT table (secure-plt only) */ #endif #endif #if defined(__HAVE_TLS_VARIANT_I) || defined(__HAVE_TLS_VARIANT_II) /* Thread Local Storage support for this module */ size_t tlsindex; /* Index in DTV */ void *tlsinit; /* Base address of TLS init block */ size_t tlsinitsize; /* Size of TLS init block */ size_t tlssize; /* Size of TLS block */ size_t tlsoffset; /* Offset in the static TLS block */ size_t tlsalign; /* Needed alignment for static TLS */ #endif #ifdef GNU_RELRO /* relocation readonly */ void *relro_page; size_t relro_size; #endif /* symbol versioning */ const Elf_Verneed *verneed; /* Required versions. */ Elf_Word verneednum; /* Number of entries in verneed table */ const Elf_Verdef *verdef; /* Provided versions. */ Elf_Word verdefnum; /* Number of entries in verdef table */ const Elf_Versym *versyms; /* Symbol versions table */ Ver_Entry *vertab; /* Versions required/defined by this * object */ int vertabnum; /* Number of entries in vertab */ /* init_array/fini_array */ fptr_t *init_array; /* start of init array */ size_t init_arraysz; /* # of entries in it */ fptr_t *fini_array; /* start of fini array */ size_t fini_arraysz; /* # of entries in it */ fptr_t *preinit_array; /* start of preinit array */ size_t preinit_arraysz;/* # of entries in it */ /* IRELATIVE relocations */ size_t ifunc_remaining; #if \ defined(__aarch64__) || \ defined(__arm__) || \ defined(__i386__) || \ defined(__powerpc__) || \ defined(__sparc__) || \ defined(__x86_64__) #define IFUNC_NONPLT /* On SPARC, the PLT variant is called JMP_IREL and counted above. */ size_t ifunc_remaining_nonplt; #endif size_t cxa_refcount; /* For TLS destructors. */ #ifdef __ARM_EABI__ void *exidx_start; size_t exidx_sz; #endif int finiwaiter; /* dlopen thread waiting for dlclose */ int initfinilock; /* thread running init/fini */ int initfinilockwaiter; /* thread waiting to init/fini */ int neededrefcount; /* #threads loading obj's deps */ int neededwaiter; /* thread waiting for neededrefcount */ bool relocated; /* true if already relocated */ bool dlclosing; /* true if being dlclosed now */ } Obj_Entry; typedef struct Struct_DoneList { const Obj_Entry **objs; /* Array of object pointers */ unsigned int num_alloc; /* Allocated size of the array */ unsigned int num_used; /* Number of array slots used */ } DoneList; #if defined(_RTLD_SOURCE) extern struct r_debug _rtld_debug; extern Search_Path *_rtld_default_paths; extern Obj_Entry *_rtld_objlist; extern Obj_Entry **_rtld_objtail; extern u_int _rtld_objrelocpending; extern u_int _rtld_objcount; extern u_int _rtld_objloads; extern const uintptr_t _rtld_compat_obj[]; extern Obj_Entry *_rtld_objmain; extern Obj_Entry _rtld_objself; extern Search_Path *_rtld_paths; extern Library_Xform *_rtld_xforms; extern bool _rtld_trust; extern Objlist _rtld_list_global; extern Objlist _rtld_list_main; extern Elf_Sym _rtld_sym_zero; extern u_int _rtld_objgen; #define RTLD_MODEMASK 0x3 /* Flags to be passed into _rtld_symlook_ family of functions. */ #define SYMLOOK_IN_PLT 0x01 /* Lookup for PLT symbol */ #define SYMLOOK_DLSYM 0x02 /* Return newest versioned symbol. Used by dlsym. */ /* Flags for _rtld_load_object() and friends. */ #define _RTLD_GLOBAL 0x01 /* Add object to global DAG. */ #define _RTLD_MAIN 0x02 #define _RTLD_NOLOAD 0x04 /* dlopen() specified RTLD_NOLOAD. */ #define _RTLD_DLOPEN 0x08 /* Load_object() called from dlopen(). */ /* Preallocation for static TLS model */ #define RTLD_STATIC_TLS_RESERVATION 64 /* rtld.c */ __dso_public char *dlerror(void); __dso_public void *dlopen(const char *, int); __dso_public void *dlsym(void *, const char *); __dso_public int dlclose(void *); __dso_public int dladdr(const void *, Dl_info *); __dso_public int dlinfo(void *, int, void *); __dso_public int dl_iterate_phdr(int (*)(struct dl_phdr_info *, size_t, void *), void *); __dso_public void *_dlauxinfo(void) __pure; __dso_public void __dl_cxa_refcount(void *addr, ssize_t delta); __dso_public pid_t __locked_fork(int *); #if defined(__ARM_EABI__) && !defined(__ARM_DWARF_EH__) /* * This is used by libgcc to find the start and length of the exception table * associated with a PC. */ __dso_public _Unwind_Ptr __gnu_Unwind_Find_exidx(_Unwind_Ptr, int *); #endif /* These aren't exported */ void _rtld_error(const char *, ...) __printflike(1,2); void _rtld_die(void) __dead; void *_rtld_objmain_sym(const char *); __dso_public void _rtld_debug_state(void) __noinline; void _rtld_linkmap_add(Obj_Entry *); void _rtld_linkmap_delete(Obj_Entry *); void _rtld_objlist_push_head(Objlist *, Obj_Entry *); void _rtld_objlist_push_tail(Objlist *, Obj_Entry *); Objlist_Entry *_rtld_objlist_find(Objlist *, const Obj_Entry *); void _rtld_ref_dag(Obj_Entry *); #ifdef RTLD_LOADER void _rtld_load_needed_enter(Obj_Entry *); void _rtld_load_needed_exit(Obj_Entry *); bool _rtld_wait_for_fini(Obj_Entry **, sigset_t *); #else static inline void _rtld_load_needed_enter(Obj_Entry *obj) { obj->neededrefcount++; } static inline void _rtld_load_needed_exit(Obj_Entry *obj) { obj->neededrefcount--; } static inline bool _rtld_wait_for_fini(Obj_Entry **objp, sigset_t *mask) { assert((*objp)->refcount); return false; } #endif void _rtld_shared_enter(void); void _rtld_shared_exit(void); void _rtld_exclusive_enter(sigset_t *); void _rtld_exclusive_exit(sigset_t *); int _rtld_relro(const Obj_Entry *, bool); /* expand.c */ size_t _rtld_expand_path(char *, size_t, const char *, const char *,\ const char *); /* headers.c */ void _rtld_digest_dynamic(const char *, Obj_Entry *); Obj_Entry *_rtld_digest_phdr(const Elf_Phdr *, int, caddr_t); /* load.c */ Obj_Entry *_rtld_load_object(const char *, int, sigset_t *); int _rtld_load_needed_objects(Obj_Entry *, int, sigset_t *); int _rtld_preload(const char *, sigset_t *); /* arch//fixup.c */ int _rtld_map_segment_fixup(const char *, int, Elf_Ehdr *, Elf_Phdr *, caddr_t, size_t, int); #define OBJ_ERR (Obj_Entry *)(-1) /* path.c */ void _rtld_add_paths(const char *, Search_Path **, const char *); void _rtld_process_hints(const char *, Search_Path **, Library_Xform **, const char *); int _rtld_sysctl(const char *, void *, size_t *); /* reloc.c */ int _rtld_do_copy_relocations(const Obj_Entry *); int _rtld_relocate_objects(Obj_Entry *, bool); int _rtld_relocate_nonplt_objects(Obj_Entry *); int _rtld_relocate_plt_lazy(Obj_Entry *); int _rtld_relocate_plt_objects(const Obj_Entry *); void _rtld_setup_pltgot(const Obj_Entry *); Elf_Addr _rtld_resolve_ifunc(const Obj_Entry *, const Elf_Sym *); Elf_Addr _rtld_resolve_ifunc2(const Obj_Entry *, Elf_Addr); void _rtld_call_ifunc(Obj_Entry *, sigset_t *, u_int); /* search.c */ Obj_Entry *_rtld_load_library(const char *, const Obj_Entry *, int, sigset_t *); /* symbol.c */ const Elf_Sym *_rtld_symlook_obj(const char *, Elf_Hash *, const Obj_Entry *, u_int, const Ver_Entry *); const Elf_Sym *_rtld_find_symdef(unsigned long, const Obj_Entry *, const Obj_Entry **, u_int); const Elf_Sym *_rtld_find_plt_symdef(unsigned long, const Obj_Entry *, const Obj_Entry **, bool); const Elf_Sym *_rtld_symlook_list(const char *, Elf_Hash *, const Objlist *, const Obj_Entry **, u_int, const Ver_Entry *, DoneList *); const Elf_Sym *_rtld_symlook_default(const char *, Elf_Hash *, const Obj_Entry *, const Obj_Entry **, u_int, const Ver_Entry *); const Elf_Sym *_rtld_symlook_needed(const char *, Elf_Hash *, const Needed_Entry *, const Obj_Entry **, u_int, const Ver_Entry *, DoneList *, DoneList *); /* symver.c */ void _rtld_object_add_name(Obj_Entry *, const char *); int _rtld_object_match_name(const Obj_Entry *, const char *); int _rtld_verify_object_versions(Obj_Entry *); static __inline const Ver_Entry * _rtld_fetch_ventry(const Obj_Entry *obj, unsigned long symnum) { Elf_Half vernum; if (obj->vertab) { vernum = VER_NDX(obj->versyms[symnum].vs_vers); if (vernum >= obj->vertabnum) { _rtld_error("%s: symbol %s has wrong verneed value %d", obj->path, &obj->strtab[symnum], vernum); } else if (obj->vertab[vernum].hash) { return &obj->vertab[vernum]; } } return NULL; } #if defined(__HAVE_TLS_VARIANT_I) || defined(__HAVE_TLS_VARIANT_II) /* tls.c */ void *_rtld_tls_get_addr(void *, size_t, size_t); void _rtld_tls_initial_allocation(void); int _rtld_tls_offset_allocate(Obj_Entry *); void _rtld_tls_offset_free(Obj_Entry *); extern size_t _rtld_tls_dtv_generation; extern size_t _rtld_tls_max_index; __dso_public extern void *__tls_get_addr(void *); #ifdef __i386__ __dso_public extern void *___tls_get_addr(void *) __attribute__((__regparm__(1))); #endif #endif /* map_object.c */ struct stat; Obj_Entry *_rtld_map_object(const char *, int, const struct stat *); void _rtld_obj_free(Obj_Entry *); Obj_Entry *_rtld_obj_new(void); #ifdef RTLD_LOADER /* function descriptors */ #ifdef __HAVE_FUNCTION_DESCRIPTORS Elf_Addr _rtld_function_descriptor_alloc(const Obj_Entry *, const Elf_Sym *, Elf_Addr); const void *_rtld_function_descriptor_function(const void *); Elf_Addr _rtld_call_function_addr(const Obj_Entry *, Elf_Addr); #else static inline Elf_Addr _rtld_call_function_addr(const Obj_Entry *obj, Elf_Addr addr) { return ((Elf_Addr(*)(void))addr)(); } #endif /* __HAVE_FUNCTION_DESCRIPTORS */ #endif /* RTLD_LOADER */ #endif /* _RTLD_SOURCE */ #endif /* RTLD_H */ src/libexec/ld.elf_so/rtldenv.h010064400011300000175000000061671513503672200167220ustar00srcmastrnetbsd/* $NetBSD: rtldenv.h,v 1.12.42.1 2026/01/22 20:31:07 martin Exp $ */ /* * Copyright 1996 Matt Thomas * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ #ifndef _RTLDENV_H #define _RTLDENV_H #include #include void *xcalloc(size_t); void *xmalloc(size_t); void *xrealloc(void *, size_t); void *xmalloc_aligned(size_t, size_t, size_t); char *xstrdup(const char *); void xfree(void *); #ifdef RTLD_LOADER void xprintf(const char *, ...) __attribute__((__format__(__printf__, 1, 2))); void xvprintf(const char *, va_list) __attribute__((__format__(__printf__, 1, 0))); void xsnprintf(char *, size_t, const char *, ...) __attribute__((__format__(__printf__, 3, 4))); size_t xvsnprintf(char *, size_t, const char *, va_list) __attribute__((__format__(__printf__, 3, 0))); void xwarn(const char *, ...) __attribute__((__format__(__printf__, 1, 2))); void xwarnx(const char *, ...) __attribute__((__format__(__printf__, 1, 2))); void xerr(int, const char *, ...) __attribute__((__noreturn__, __format__(__printf__, 2, 3))); void xerrx(int, const char *, ...) __attribute__((__noreturn__, __format__(__printf__, 2, 3))); void xassert(const char *, int, const char *) __dead; const char *xstrerror(int); int xunsetenv(const char *); # ifdef DEBUG # define assert(cond) ((cond) ? (void) 0 : xassert(__FILE__, __LINE__, #cond)) # else # define assert(cond) (void) 0 # endif #else # include # include # include # define xprintf printf # define xvprintf vprintf # define xsnprintf snprintf # define xvsnprintf vsnprintf # define xwarn warn # define xwarnx warnx # define xerr err # define xerrx errx # define xassert assert # define xstrerror strerror #endif #endif /* _RTLDENV_H */ src/libexec/ld.elf_so/search.c010064400011300000175000000134461522207752200165020ustar00srcmastrnetbsd/* $NetBSD: search.c,v 1.27.10.1 2026/07/03 18:36:36 martin Exp $ */ /* * Copyright 1996 Matt Thomas * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by John Polstra. * 4. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ /* * Dynamic linker for ELF. * * John Polstra . */ #include #ifndef lint __RCSID("$NetBSD: search.c,v 1.27.10.1 2026/07/03 18:36:36 martin Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include #include #include #include "debug.h" #include "rtld.h" /* * Data declarations. */ static Search_Path *_rtld_invalid_paths; static Obj_Entry *_rtld_search_library_path(const char *, size_t, const char *, size_t, int, sigset_t *); static Obj_Entry * _rtld_search_library_path(const char *name, size_t namelen, const char *dir, size_t dirlen, int flags, sigset_t *mask) { char pathname[MAXPATHLEN]; size_t pathnamelen; Obj_Entry *obj; Search_Path *sp; pathnamelen = dirlen + 1 + namelen; if (pathnamelen >= sizeof(pathname)) return NULL; for (sp = _rtld_invalid_paths; sp != NULL; sp = sp->sp_next) { if (sp->sp_pathlen == pathnamelen && sp->sp_path[dirlen] == '/' && !memcmp(name, sp->sp_path + dirlen + 1, namelen) && !memcmp(dir, sp->sp_path, dirlen)) { return NULL; } } memcpy(pathname, dir, dirlen); pathname[dirlen] = '/'; memcpy(pathname + dirlen + 1, name, namelen); pathname[pathnamelen] = '\0'; dbg((" Trying \"%s\"", pathname)); obj = _rtld_load_object(pathname, flags, mask); if (obj == NULL) { Search_Path *path; path = NEW(Search_Path); path->sp_pathlen = pathnamelen; path->sp_path = xstrdup(pathname); path->sp_next = _rtld_invalid_paths; _rtld_invalid_paths = path; } else { assert(obj->refcount > 0); } return obj; } /* * Find the library with the given name, and return its full pathname. * The returned string is dynamically allocated. Generates an error * message and returns NULL if the library cannot be found. * * If the second argument is non-NULL, then it refers to an already- * loaded shared object, whose library search path will be searched. */ Obj_Entry * _rtld_load_library(const char *name, const Obj_Entry *refobj, int flags, sigset_t *mask) { extern char *__progname; char tmperror[512], *tmperrorp; Search_Path *sp; const char *pathname; int namelen; Obj_Entry *obj; if (strchr(name, '/') != NULL) { /* Hard coded pathname */ if (name[0] != '/' && !_rtld_trust) { _rtld_error( "absolute pathname required for shared object \"%s\"", name); return NULL; } pathname = name; goto found; } dbg((" Searching for \"%s\" (%p)", name, refobj)); tmperrorp = dlerror(); if (tmperrorp != NULL) { strlcpy(tmperror, tmperrorp, sizeof(tmperror)); tmperrorp = tmperror; } namelen = strlen(name); for (sp = _rtld_paths; sp != NULL; sp = sp->sp_next) if ((obj = _rtld_search_library_path(name, namelen, sp->sp_path, sp->sp_pathlen, flags, mask)) != NULL) goto pathfound; if (refobj != NULL) for (sp = refobj->rpaths; sp != NULL; sp = sp->sp_next) if ((obj = _rtld_search_library_path(name, namelen, sp->sp_path, sp->sp_pathlen, flags, mask)) != NULL) goto pathfound; for (sp = _rtld_default_paths; sp != NULL; sp = sp->sp_next) if ((obj = _rtld_search_library_path(name, namelen, sp->sp_path, sp->sp_pathlen, flags, mask)) != NULL) goto pathfound; _rtld_error("%s: Shared object \"%s\" not found", refobj ? refobj->path : __progname, name); return NULL; pathfound: /* * The library has been found, but it couldn't be loaded for some * reason. */ if (obj == OBJ_ERR) return NULL; /* * Successfully found a library; restore the dlerror state as it was * before _rtld_load_library() was called (any failed call to * _rtld_search_library_path() will set the dlerror state, but if the * library was eventually found, then the error state should not * change. */ if (tmperrorp) _rtld_error("%s", tmperror); else (void)dlerror(); assert(obj->refcount > 0); return obj; found: obj = _rtld_load_object(pathname, flags, mask); if (obj == OBJ_ERR) return NULL; assert(obj->refcount > 0); return obj; } src/libexec/ld.elf_so/symbol.c010064400011300000175000000421651500524757700165520ustar00srcmastrnetbsd/* $NetBSD: symbol.c,v 1.77 2025/05/02 23:04:31 riastradh Exp $ */ /* * Copyright 1996 John D. Polstra. * Copyright 1996 Matt Thomas * Copyright 2002 Charles M. Hannum * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by John Polstra. * 4. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ /* * Dynamic linker for ELF. * * John Polstra . */ #include #ifndef lint __RCSID("$NetBSD: symbol.c,v 1.77 2025/05/02 23:04:31 riastradh Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include #include #include #include "debug.h" #include "hash.h" #include "rtld.h" /* * If the given object is already in the donelist, return true. Otherwise * add the object to the list and return false. */ static bool _rtld_donelist_check(DoneList *dlp, const Obj_Entry *obj) { unsigned int i; for (i = 0; i < dlp->num_used; i++) if (dlp->objs[i] == obj) return true; /* * Our donelist allocation may not always be sufficient as we're not * thread safe. We'll handle it properly anyway. */ if (dlp->num_used < dlp->num_alloc) dlp->objs[dlp->num_used++] = obj; return false; } const Elf_Sym * _rtld_symlook_list(const char *name, Elf_Hash *hash, const Objlist *objlist, const Obj_Entry **defobj_out, u_int flags, const Ver_Entry *ventry, DoneList *dlp) { const Elf_Sym *symp; const Elf_Sym *def; const Obj_Entry *defobj; const Objlist_Entry *elm; def = NULL; defobj = NULL; SIMPLEQ_FOREACH(elm, objlist, link) { if (_rtld_donelist_check(dlp, elm->obj)) continue; rdbg(("search object %p (%s) for %s", elm->obj, elm->obj->path, name)); symp = _rtld_symlook_obj(name, hash, elm->obj, flags, ventry); if (symp != NULL) { if ((def == NULL) || (ELF_ST_BIND(symp->st_info) != STB_WEAK)) { def = symp; defobj = elm->obj; if (ELF_ST_BIND(def->st_info) != STB_WEAK) break; } } } if (def != NULL) *defobj_out = defobj; return def; } /* * Search the symbol table of a shared object and all objects needed by it for * a symbol of the given name. Search order is breadth-first. Returns a pointer * to the symbol, or NULL if no definition was found. */ const Elf_Sym * _rtld_symlook_needed(const char *name, Elf_Hash *hash, const Needed_Entry *needed, const Obj_Entry **defobj_out, u_int flags, const Ver_Entry *ventry, DoneList *breadth, DoneList *depth) { const Elf_Sym *def, *def_w; const Needed_Entry *n; const Obj_Entry *obj, *defobj, *defobj1; def = def_w = NULL; defobj = NULL; for (n = needed; n != NULL; n = n->next) { if ((obj = n->obj) == NULL) continue; if (_rtld_donelist_check(breadth, obj)) continue; def = _rtld_symlook_obj(name, hash, obj, flags, ventry); if (def == NULL) continue; defobj = obj; if (ELF_ST_BIND(def->st_info) != STB_WEAK) { *defobj_out = defobj; return (def); } } /* * Either the symbol definition has not been found in directly needed * objects, or the found symbol is weak. */ for (n = needed; n != NULL; n = n->next) { if ((obj = n->obj) == NULL) continue; if (_rtld_donelist_check(depth, obj)) continue; def_w = _rtld_symlook_needed(name, hash, obj->needed, &defobj1, flags, ventry, breadth, depth); if (def_w == NULL) continue; if (def == NULL || ELF_ST_BIND(def_w->st_info) != STB_WEAK) { def = def_w; defobj = defobj1; if (ELF_ST_BIND(def_w->st_info) != STB_WEAK) break; } } if (def != NULL) *defobj_out = defobj; return def; } static bool _rtld_symlook_obj_matched_symbol(const char *name, const Obj_Entry *obj, u_int flags, const Ver_Entry *ventry, unsigned long symnum, const Elf_Sym **vsymp, int *vcount) { const Elf_Sym *symp; const char *strp; Elf_Half verndx; symp = obj->symtab + symnum; strp = obj->strtab + symp->st_name; rdbg(("check \"%s\" vs \"%s\" in %s", name, strp, obj->path)); if (name[1] != strp[1] || strcmp(name, strp)) return false; #if defined(__mips__) || defined(__vax__) if (symp->st_shndx == SHN_UNDEF) return false; #else /* * XXX DANGER WILL ROBINSON! * If we have a function pointer in the executable's * data section, it points to the executable's PLT * slot, and there is NO relocation emitted. To make * the function pointer comparable to function pointers * in shared libraries, we must resolve data references * in the libraries to point to PLT slots in the * executable, if they exist. */ if (symp->st_shndx == SHN_UNDEF && ((flags & SYMLOOK_IN_PLT) || symp->st_value == 0 || ELF_ST_TYPE(symp->st_info) != STT_FUNC)) return false; #endif if (ventry == NULL) { if (obj->versyms != NULL) { verndx = VER_NDX(obj->versyms[symnum].vs_vers); if (verndx > obj->vertabnum) { _rtld_error("%s: symbol %s references " "wrong version %d", obj->path, &obj->strtab[symnum], verndx); return false; } /* * If we are not called from dlsym (i.e. this * is a normal relocation from unversioned * binary), accept the symbol immediately * if it happens to have first version after * this shared object became versioned. * Otherwise, if symbol is versioned and not * hidden, remember it. If it is the only * symbol with this name exported by the shared * object, it will be returned as a match at the * end of the function. If symbol is global * (verndx < 2) accept it unconditionally. */ if (!(flags & SYMLOOK_DLSYM) && verndx == VER_NDX_GIVEN) { *vsymp = symp; return true; } else if (verndx >= VER_NDX_GIVEN) { if (!(obj->versyms[symnum].vs_vers & VER_NDX_HIDDEN)) { if (*vsymp == NULL) *vsymp = symp; (*vcount)++; } return false; } } *vsymp = symp; return true; } else { if (obj->versyms == NULL) { if (_rtld_object_match_name(obj, ventry->name)){ _rtld_error("%s: object %s should " "provide version %s for symbol %s", _rtld_objself.path, obj->path, ventry->name, &obj->strtab[symnum]); return false; } } else { verndx = VER_NDX(obj->versyms[symnum].vs_vers); if (verndx > obj->vertabnum) { _rtld_error("%s: symbol %s references " "wrong version %d", obj->path, &obj->strtab[symnum], verndx); return false; } if (obj->vertab[verndx].hash != ventry->hash || strcmp(obj->vertab[verndx].name, ventry->name)) { /* * Version does not match. Look if this * is a global symbol and if it is not * hidden. If global symbol (verndx < 2) * is available, use it. Do not return * symbol if we are called by dlvsym, * because dlvsym looks for a specific * version and default one is not what * dlvsym wants. */ if ((flags & SYMLOOK_DLSYM) || (obj->versyms[symnum].vs_vers & VER_NDX_HIDDEN) || (verndx >= VER_NDX_GIVEN)) return false; } } *vsymp = symp; return true; } } /* * Search the symbol table of a single shared object for a symbol of * the given name. Returns a pointer to the symbol, or NULL if no * definition was found. * * SysV Hash version. */ static const Elf_Sym * _rtld_symlook_obj_sysv(const char *name, unsigned long hash, const Obj_Entry *obj, u_int flags, const Ver_Entry *ventry) { unsigned long symnum; const Elf_Sym *vsymp = NULL; int vcount = 0; for (symnum = obj->buckets[fast_remainder32(hash, obj->nbuckets, obj->nbuckets_m, obj->nbuckets_s1, obj->nbuckets_s2)]; symnum != ELF_SYM_UNDEFINED; symnum = obj->chains[symnum]) { assert(symnum < obj->nchains); if (_rtld_symlook_obj_matched_symbol(name, obj, flags, ventry, symnum, &vsymp, &vcount)) { return vsymp; } } if (vcount == 1) return vsymp; return NULL; } /* * Search the symbol table of a single shared object for a symbol of * the given name. Returns a pointer to the symbol, or NULL if no * definition was found. * * GNU Hash version. */ static const Elf_Sym * _rtld_symlook_obj_gnu(const char *name, unsigned long hash, const Obj_Entry *obj, u_int flags, const Ver_Entry *ventry) { unsigned long symnum; const Elf_Sym *vsymp = NULL; const Elf32_Word *hashval; Elf_Addr bloom_word; Elf32_Word bucket; int vcount = 0; unsigned int h1, h2; /* Pick right bitmask word from Bloom filter array */ bloom_word = obj->bloom_gnu[(hash / ELFSIZE) & obj->mask_bm_gnu]; /* Calculate modulus word size of gnu hash and its derivative */ h1 = hash & (ELFSIZE - 1); h2 = ((hash >> obj->shift2_gnu) & (ELFSIZE - 1)); /* Filter out the "definitely not in set" queries */ if (((bloom_word >> h1) & (bloom_word >> h2) & 1) == 0) return NULL; /* Locate hash chain and corresponding value element*/ bucket = obj->buckets_gnu[fast_remainder32(hash, obj->nbuckets_gnu, obj->nbuckets_m_gnu, obj->nbuckets_s1_gnu, obj->nbuckets_s2_gnu)]; if (bucket == 0) return NULL; hashval = &obj->chains_gnu[bucket]; do { if (((*hashval ^ hash) >> 1) == 0) { symnum = hashval - obj->chains_gnu; if (_rtld_symlook_obj_matched_symbol(name, obj, flags, ventry, symnum, &vsymp, &vcount)) { return vsymp; } } } while ((*hashval++ & 1) == 0); if (vcount == 1) return vsymp; return NULL; } /* * Search the symbol table of a single shared object for a symbol of * the given name. Returns a pointer to the symbol, or NULL if no * definition was found. * * The symbol's hash value is passed in for efficiency reasons; that * eliminates many recomputations of the hash value. * * Redirect to either GNU Hash (whenever available) or ELF Hash. */ const Elf_Sym * _rtld_symlook_obj(const char *name, Elf_Hash *hash, const Obj_Entry *obj, u_int flags, const Ver_Entry *ventry) { assert(obj->sysv_hash || obj->gnu_hash); /* Always prefer the GNU Hash as it is faster. */ if (obj->gnu_hash) return _rtld_symlook_obj_gnu(name, hash->gnu, obj, flags, ventry); else return _rtld_symlook_obj_sysv(name, hash->sysv, obj, flags, ventry); } /* * Given a symbol number in a referencing object, find the corresponding * definition of the symbol. Returns a pointer to the symbol, or NULL if * no definition was found. Returns a pointer to the Obj_Entry of the * defining object via the reference parameter DEFOBJ_OUT. */ const Elf_Sym * _rtld_find_symdef(unsigned long symnum, const Obj_Entry *refobj, const Obj_Entry **defobj_out, u_int flags) { const Elf_Sym *ref; const Elf_Sym *def; const Obj_Entry *defobj; const char *name; Elf_Hash hash; ref = refobj->symtab + symnum; name = refobj->strtab + ref->st_name; /* * We don't have to do a full scale lookup if the symbol is local. * We know it will bind to the instance in this load module; to * which we already have a pointer (ie ref). */ if (ELF_ST_BIND(ref->st_info) != STB_LOCAL) { if (ELF_ST_TYPE(ref->st_info) == STT_SECTION) { _rtld_error("%s: Bogus symbol table entry %lu", refobj->path, symnum); } hash.sysv = _rtld_sysv_hash(name); hash.gnu = _rtld_gnu_hash(name); defobj = NULL; def = _rtld_symlook_default(name, &hash, refobj, &defobj, flags, _rtld_fetch_ventry(refobj, symnum)); } else { rdbg(("STB_LOCAL symbol %s in %s", name, refobj->path)); def = ref; defobj = refobj; } /* * If we found no definition and the reference is weak, treat the * symbol as having the value zero. */ if (def == NULL && ELF_ST_BIND(ref->st_info) == STB_WEAK) { rdbg((" returning _rtld_sym_zero@_rtld_objself")); def = &_rtld_sym_zero; defobj = &_rtld_objself; } if (def != NULL) { *defobj_out = defobj; } else { rdbg(("lookup failed")); _rtld_error("%s: Undefined %ssymbol \"%s\" (symnum = %ld)", refobj->path, (flags & SYMLOOK_IN_PLT) ? "PLT " : "", name, symnum); } return def; } const Elf_Sym * _rtld_find_plt_symdef(unsigned long symnum, const Obj_Entry *obj, const Obj_Entry **defobj, bool imm) { const Elf_Sym *def = _rtld_find_symdef(symnum, obj, defobj, SYMLOOK_IN_PLT); if (__predict_false(def == NULL)) return NULL; if (__predict_false(def == &_rtld_sym_zero)) { /* tp is set during lazy binding. */ if (imm) { const Elf_Sym *ref = obj->symtab + symnum; const char *name = obj->strtab + ref->st_name; _rtld_error( "%s: Trying to call undefined weak symbol `%s'", obj->path, name); return NULL; } } return def; } /* * Given a symbol name in a referencing object, find the corresponding * definition of the symbol. Returns a pointer to the symbol, or NULL if * no definition was found. Returns a pointer to the Obj_Entry of the * defining object via the reference parameter DEFOBJ_OUT. */ _Pragma("GCC diagnostic push") /* _rtld_donelist_init: -Wno-stack-protector */ _Pragma("GCC diagnostic ignored \"-Wstack-protector\"") const Elf_Sym * _rtld_symlook_default(const char *name, Elf_Hash *hash, const Obj_Entry *refobj, const Obj_Entry **defobj_out, u_int flags, const Ver_Entry *ventry) { const Elf_Sym *def; const Elf_Sym *symp; const Obj_Entry *obj; const Obj_Entry *defobj; const Objlist_Entry *elm; def = NULL; defobj = NULL; DoneList donelist; _rtld_donelist_init(&donelist); /* Look first in the referencing object if linked symbolically. */ if (refobj->symbolic && !_rtld_donelist_check(&donelist, refobj)) { rdbg(("search referencing object for %s", name)); symp = _rtld_symlook_obj(name, hash, refobj, flags, ventry); if (symp != NULL) { def = symp; defobj = refobj; } } /* Search all objects loaded at program start up. */ if (def == NULL || ELF_ST_BIND(def->st_info) == STB_WEAK) { rdbg(("search _rtld_list_main for %s", name)); symp = _rtld_symlook_list(name, hash, &_rtld_list_main, &obj, flags, ventry, &donelist); if (symp != NULL && (def == NULL || ELF_ST_BIND(symp->st_info) != STB_WEAK)) { def = symp; defobj = obj; } } /* Search all RTLD_GLOBAL objects. */ if (def == NULL || ELF_ST_BIND(def->st_info) == STB_WEAK) { rdbg(("search _rtld_list_global for %s", name)); symp = _rtld_symlook_list(name, hash, &_rtld_list_global, &obj, flags, ventry, &donelist); if (symp != NULL && (def == NULL || ELF_ST_BIND(symp->st_info) != STB_WEAK)) { def = symp; defobj = obj; } } /* Search all dlopened DAGs containing the referencing object. */ SIMPLEQ_FOREACH(elm, &refobj->dldags, link) { if (def != NULL && ELF_ST_BIND(def->st_info) != STB_WEAK) break; rdbg(("search DAG with root %p (%s) for %s", elm->obj, elm->obj->path, name)); symp = _rtld_symlook_list(name, hash, &elm->obj->dagmembers, &obj, flags, ventry, &donelist); if (symp != NULL && (def == NULL || ELF_ST_BIND(symp->st_info) != STB_WEAK)) { def = symp; defobj = obj; } } /* * Finally, look in the referencing object if not linked symbolically. * This is necessary for DF_1_NODELETE objects where the containing DAG * has been unlinked, so local references are resolved properly. */ if ((def == NULL || ELF_ST_BIND(def->st_info) == STB_WEAK) && !refobj->symbolic && !_rtld_donelist_check(&donelist, refobj)) { rdbg(("search referencing object for %s", name)); symp = _rtld_symlook_obj(name, hash, refobj, flags, ventry); if (symp != NULL) { def = symp; defobj = refobj; } } /* * Search the dynamic linker itself, and possibly resolve the * symbol from there. This is how the application links to * dynamic linker services such as dlopen. */ if (def == NULL || ELF_ST_BIND(def->st_info) == STB_WEAK) { rdbg(("Search the dynamic linker itself.")); symp = _rtld_symlook_obj(name, hash, &_rtld_objself, flags, ventry); if (symp != NULL) { def = symp; defobj = &_rtld_objself; } } if (def != NULL) *defobj_out = defobj; return def; } _Pragma("GCC diagnostic pop") src/libexec/ld.elf_so/symbols.map010064400011300000175000000006551364672200700172610ustar00srcmastrnetbsd{ global: dlopen; __dlopen; dlclose; __dlclose; dlsym; __dlsym; dlvsym; __dlvsym; dlerror; __dlerror; dladdr; __dladdr; dlinfo; __dlinfo; dl_iterate_phdr; ____dl_iterate_phdr; _dlauxinfo; _rtld_tls_allocate; _rtld_tls_free; __tls_get_addr; ___tls_get_addr; __gnu_Unwind_Find_exidx; __dl_cxa_refcount; __locked_fork; local: *; }; src/libexec/ld.elf_so/symver.c010064400011300000175000000235371214274134600165640ustar00srcmastrnetbsd/* $NetBSD: symver.c,v 1.4 2013/05/09 15:38:14 christos Exp $ */ /*- * Copyright 1996, 1997, 1998, 1999, 2000 John D. Polstra. * Copyright 2003 Alexander Kabaev . * Copyright 2009, 2010, 2011 Konstantin Belousov . * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. * * $FreeBSD: head/libexec/rtld-elf/rtld.c 220004 2011-03-25 18:23:10Z avg $ */ /*- * Copyright (c) 2011 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by NONAKA Kimihiro. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include __RCSID("$NetBSD: symver.c,v 1.4 2013/05/09 15:38:14 christos Exp $"); #include #include #include #include "debug.h" #include "rtld.h" void _rtld_object_add_name(Obj_Entry *obj, const char *name) { Name_Entry *entry; size_t len; len = strlen(name); entry = xmalloc(sizeof(Name_Entry) + len); if (entry != NULL) { strcpy(entry->name, name); SIMPLEQ_INSERT_TAIL(&obj->names, entry, link); } } int _rtld_object_match_name(const Obj_Entry *obj, const char *name) { Name_Entry *entry; SIMPLEQ_FOREACH(entry, &obj->names, link) { dbg(("name: %s, entry->name: %s", name, entry->name)); if (strcmp(name, entry->name) == 0) return 1; } return 0; } #ifdef RTLD_LOADER static Obj_Entry * locate_dependency(const Obj_Entry *obj, const char *name) { const Objlist_Entry *entry; const Needed_Entry *needed; SIMPLEQ_FOREACH(entry, &_rtld_list_main, link) { if (_rtld_object_match_name(entry->obj, name)) return entry->obj; } for (needed = obj->needed; needed != NULL; needed = needed->next) { dbg(("needed: name: %s, str: %s", name, &obj->strtab[needed->name])); if (strcmp(name, &obj->strtab[needed->name]) == 0 || (needed->obj != NULL && _rtld_object_match_name(needed->obj, name))) { /* * If there is DT_NEEDED for the name we are looking * for, we are all set. Note that object might not be * found if dependency was not loaded yet, so the * function can return NULL here. This is expected * and handled properly by the caller. */ return needed->obj; } } _rtld_error("%s: Unexpected inconsistency: dependency %s not found", obj->path, name); return NULL; } static int check_object_provided_version(Obj_Entry *refobj, const Obj_Entry *depobj, const Elf_Vernaux *vna) { const char *vername = &refobj->strtab[vna->vna_name]; const char *depstrtab = depobj->strtab; const Elf_Verdef *vd = depobj->verdef; const Elf_Word hash = vna->vna_hash; if (vd == NULL) { _rtld_error("%s: version %s required by %s not defined", depobj->path, vername, refobj->path); return -1; } for (;; vd = (const Elf_Verdef *)((const char *)vd + vd->vd_next)) { if (vd->vd_version != VER_DEF_CURRENT) { _rtld_error( "%s: Unsupported version %d of Elf_Verdef entry", depobj->path, vd->vd_version); return -1; } dbg(("hash: 0x%x, vd_hash: 0x%x", hash, vd->vd_hash)); if (hash == vd->vd_hash) { const Elf_Verdaux *vda = (const Elf_Verdaux *) ((const char *)vd + vd->vd_aux); dbg(("vername: %s, str: %s", vername, &depstrtab[vda->vda_name])); if (strcmp(vername, &depstrtab[vda->vda_name]) == 0) return 0; } if (vd->vd_next == 0) break; } if (vna->vna_flags & VER_FLG_WEAK) return 0; _rtld_error("%s: version %s required by %s not found", depobj->path, vername, refobj->path); return -1; } int _rtld_verify_object_versions(Obj_Entry *obj) { const char *strtab = obj->strtab; const Elf_Verneed *vn; const Elf_Vernaux *vna; const Elf_Verdef *vd; const Elf_Verdaux *vda; const Obj_Entry *depobj; int maxvertab, vernum; dbg(("obj->path: %s", obj->path)); /* * If we don't have string table or objects that have their version * requirements already checked, we must be ok. */ if (strtab == NULL || obj->vertab != NULL) return 0; maxvertab = 0; /* * Walk over defined and required version records and figure out * max index used by any of them. Do very basic sanity checking * while there. */ for (vn = obj->verneed; vn != NULL; vn = (const Elf_Verneed *)((const char *)vn + vn->vn_next)) { if (vn->vn_version != VER_NEED_CURRENT) { _rtld_error( "%s: Unsupported version %d of Elf_Verneed entry", obj->path, vn->vn_version); return -1; } dbg(("verneed: vn_file: %d, str: %s", vn->vn_file, &strtab[vn->vn_file])); depobj = locate_dependency(obj, &strtab[vn->vn_file]); assert(depobj != NULL); for (vna = (const Elf_Vernaux *)((const char *)vn + vn->vn_aux); /*CONSTCOND*/1; vna = (const Elf_Vernaux *)((const char *)vna + vna->vna_next)) { if (check_object_provided_version(obj, depobj, vna) == -1) return -1; vernum = VER_NEED_IDX(vna->vna_other); if (vernum > maxvertab) maxvertab = vernum; if (vna->vna_next == 0) { /* No more symbols. */ break; } } if (vn->vn_next == 0) { /* No more dependencies. */ break; } } for (vd = obj->verdef; vd != NULL; vd = (const Elf_Verdef *)((const char *)vd + vd->vd_next)) { if (vd->vd_version != VER_DEF_CURRENT) { _rtld_error( "%s: Unsupported version %d of Elf_Verdef entry", obj->path, vd->vd_version); return -1; } dbg(("verdef: vn_ndx: 0x%x", vd->vd_ndx)); vernum = VER_DEF_IDX(vd->vd_ndx); if (vernum > maxvertab) maxvertab = vernum; if (vd->vd_next == 0) { /* No more definitions. */ break; } } dbg(("maxvertab: %d", maxvertab)); if (maxvertab == 0) return 0; /* * Store version information in array indexable by version index. * Verify that object version requirements are satisfied along the * way. */ obj->vertabnum = maxvertab + 1; obj->vertab = (Ver_Entry *)xcalloc(obj->vertabnum * sizeof(Ver_Entry)); for (vn = obj->verneed; vn != NULL; vn = (const Elf_Verneed *)((const char *)vn + vn->vn_next)) { for (vna = (const Elf_Vernaux *)((const char *)vn + vn->vn_aux); /*CONSTCOND*/1; vna = (const Elf_Vernaux *)((const char *)vna + vna->vna_next)) { vernum = VER_NEED_IDX(vna->vna_other); assert(vernum <= maxvertab); obj->vertab[vernum].hash = vna->vna_hash; obj->vertab[vernum].name = &strtab[vna->vna_name]; obj->vertab[vernum].file = &strtab[vn->vn_file]; obj->vertab[vernum].flags = (vna->vna_other & VER_NEED_HIDDEN) ? VER_INFO_HIDDEN : 0; dbg(("verneed: vernum: %d, hash: 0x%x, name: %s, " "file: %s, flags: 0x%x", vernum, obj->vertab[vernum].hash, obj->vertab[vernum].name, obj->vertab[vernum].file, obj->vertab[vernum].flags)); if (vna->vna_next == 0) { /* No more symbols. */ break; } } if (vn->vn_next == 0) { /* No more dependencies. */ break; } } for (vd = obj->verdef; vd != NULL; vd = (const Elf_Verdef *)((const char *)vd + vd->vd_next)) { if ((vd->vd_flags & VER_FLG_BASE) == 0) { vernum = VER_DEF_IDX(vd->vd_ndx); assert(vernum <= maxvertab); vda = (const Elf_Verdaux *) ((const char *)vd + vd->vd_aux); obj->vertab[vernum].hash = vd->vd_hash; obj->vertab[vernum].name = &strtab[vda->vda_name]; obj->vertab[vernum].file = NULL; obj->vertab[vernum].flags = 0; dbg(("verdef: vernum: %d, hash: 0x%x, name: %s", vernum, obj->vertab[vernum].hash, obj->vertab[vernum].name)); } if (vd->vd_next == 0) { /* No more definitions. */ break; } } return 0; } #endif src/libexec/ld.elf_so/sysident.h010064400011300000175000000067451265633652300171170ustar00srcmastrnetbsd/* $NetBSD: sysident.h,v 1.19 2016/02/09 10:20:03 skrll Exp $ */ /* * Copyright (c) 1997 Christopher G. Demetriou * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed for the * NetBSD Project. See http://www.NetBSD.org/ for * information about NetBSD. * 4. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. * * <> */ /* * Here we define the NetBSD OS Version in an ELF .note section, structured * like: * * [NOTE HEADER] * long name size * long description size * long note type * * [NOTE DATUM] * string OS name * * OSVERSION notes also have: * long OS version (__NetBSD_Version__ constant from param.h) * * The DATUM fields should be padded out such that their actual (not * declared) sizes % 4 == 0. * * These are used by the kernel to determine if this binary is really a * NetBSD binary, or some other OS's. */ /* XXX: NetBSD 1.5 compatibility only! */ #if __NetBSD_Version__ < 105010000 #define ELF_NOTE_TYPE_NETBSD_TAG 1 #endif #define __S(x) __STRING(x) __asm( ".pushsection\t\".note.netbsd.ident\", \"a\"\n" "\t.p2align\t2\n\n" "\t.long\t" __S(ELF_NOTE_NETBSD_NAMESZ) "\n" "\t.long\t" __S(ELF_NOTE_NETBSD_DESCSZ) "\n" "\t.long\t" __S(ELF_NOTE_TYPE_NETBSD_TAG) "\n" "\t.ascii\t" __S(ELF_NOTE_NETBSD_NAME) "\n" "\t.long\t" __S(__NetBSD_Version__) "\n\n" "\t.popsection\n" ); __asm( ".pushsection\t\".note.netbsd.pax\", \"a\"\n" "\t.p2align\t2\n\n" "\t.long\t" __S(ELF_NOTE_PAX_NAMESZ) "\n" "\t.long\t" __S(ELF_NOTE_PAX_DESCSZ) "\n" "\t.long\t" __S(ELF_NOTE_TYPE_PAX_TAG) "\n" "\t.ascii\t" __S(ELF_NOTE_PAX_NAME) "\n" "\t.long\t" __S(0) "\n\n" "\t.popsection\n" ); #ifdef ELF_NOTE_MARCH_DESC __asm( ".pushsection\t\".note.netbsd.march\", \"a\"\n" "\t.p2align\t2\n\n" "\t.long\t" __S(ELF_NOTE_MARCH_NAMESZ) "\n" "\t.long\t2f-1f\n" "\t.long\t" __S(ELF_NOTE_TYPE_MARCH_TAG) "\n" "\t.ascii\t" __S(ELF_NOTE_MARCH_NAME) "\n" "1:\t.asciz\t" __S(ELF_NOTE_MARCH_DESC) "\n" "2:\n" "\t.p2align\t2\n\n" "\t.popsection\n" ); #endif src/libexec/ld.elf_so/tls.c010064400011300000175000000426551516410324500160400ustar00srcmastrnetbsd/* $NetBSD: tls.c,v 1.23.2.2 2026/04/02 17:48:32 martin Exp $ */ /*- * Copyright (c) 2011 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Joerg Sonnenberger. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include __RCSID("$NetBSD: tls.c,v 1.23.2.2 2026/04/02 17:48:32 martin Exp $"); /* * Thread-local storage * * Reference: * * [ELFTLS] Ulrich Drepper, `ELF Handling For Thread-Local * Storage', Version 0.21, 2023-08-22. * https://akkadia.org/drepper/tls.pdf * https://web.archive.org/web/20240718081934/https://akkadia.org/drepper/tls.pdf */ #include #include #include #include #include #include #include "debug.h" #include "rtld.h" #include #if defined(__HAVE_TLS_VARIANT_I) || defined(__HAVE_TLS_VARIANT_II) static struct tls_tcb *_rtld_tls_allocate_locked(void); static void *_rtld_tls_module_allocate(struct tls_tcb *, size_t); /* A macro to test correct alignment of a pointer. */ #define ALIGNED_P(ptr, algnmt) ((algnmt) == 0 || ((uintptr_t)(ptr) & ((algnmt) - 1)) == 0) /* * DTV offset * * On some architectures (m68k, mips, or1k, powerpc, and riscv), * the DTV offsets passed to __tls_get_addr have a bias relative * to the start of the DTV, in order to maximize the range of TLS * offsets that can be used by instruction encodings with signed * displacements. */ #ifndef TLS_DTV_OFFSET #define TLS_DTV_OFFSET 0 #endif /* * Alignment of the static data * * In Variant I, the thread pointer (TP) can be anchored in three ways * depending on the architecture. It either points * * - directly to the TCB (e.g. Arm, and AArch64); or * - at a specific "biased" offset within the data (e.g. PowerPC), or * directly at the data (e.g. RISC-V). These architectures define * __HAVE___LWP_SETTCB to handle the offset * * An area of memory with the correct alignment is allocated and the * struct tcb placed as follows for each case above * * - at the start of the aligned memory with data starting at the first * object's required alignment. * - just below the second max alignment boundary so that data starts * on the second max alignment boundary. * * The code is written such that obj->tlsoffset is always relative to * the end of the struct tcb. Maybe this is suboptimal? * */ #if defined(__HAVE_TLS_VARIANT_I) && !defined(__HAVE___LWP_SETTCB) #define _RTLD_TLS_INITIAL_OFFSET sizeof(struct tls_tcb) #endif #ifndef _RTLD_TLS_INITIAL_OFFSET #define _RTLD_TLS_INITIAL_OFFSET 0 #endif static size_t _rtld_tls_static_space; /* Static TLS space allocated */ static size_t _rtld_tls_static_offset = _RTLD_TLS_INITIAL_OFFSET; /* Next offset for static TLS to use */ static size_t _rtld_tls_static_max_align; size_t _rtld_tls_dtv_generation = 1; /* Bumped on each load of obj w/ TLS */ size_t _rtld_tls_max_index = 1; /* Max index into up-to-date DTV */ /* * DTV -- Dynamic Thread Vector * * The DTV is a per-thread array that maps each module with * thread-local storage to a pointer into part of the thread's TCB * (thread control block), or dynamically loaded TLS blocks, * reserved for that module's storage. * * The TCB itself, struct tls_tcb, has a pointer to the DTV at * tcb->tcb_dtv. * * The layout is: * * +---------------+ * | max index | -1 max index i for which dtv[i] is alloced * +---------------+ * | generation | 0 void **dtv points here * +---------------+ * | obj 1 tls ptr | 1 TLS pointer for obj w/ obj->tlsindex 1 * +---------------+ * | obj 2 tls ptr | 2 TLS pointer for obj w/ obj->tlsindex 2 * +---------------+ * . * . * . * * The values of obj->tlsindex start at 1; this way, * dtv[obj->tlsindex] works, when dtv[0] is the generation. The * TLS pointers go either into the static thread-local storage, * for the initial objects (i.e., those loaded at startup), or * into TLS blocks dynamically allocated for objects that * dynamically loaded by dlopen. * * The generation field is a cache of the global generation number * _rtld_tls_dtv_generation, which is bumped every time an object * with TLS is loaded in _rtld_map_object, and cached by * __tls_get_addr (via _rtld_tls_get_addr) when a newly loaded * module lies outside the bounds of the current DTV. * * XXX Why do we keep max index and generation separately? They * appear to be initialized the same, always incremented together, * and always stored together. * * XXX Why is this not a struct? * * struct dtv { * size_t dtv_gen; * void *dtv_module[]; * }; */ #define DTV_GENERATION(dtv) ((size_t)((dtv)[0])) #define DTV_MAX_INDEX(dtv) ((size_t)((dtv)[-1])) #define SET_DTV_GENERATION(dtv, val) (dtv)[0] = (void *)(size_t)(val) #define SET_DTV_MAX_INDEX(dtv, val) (dtv)[-1] = (void *)(size_t)(val) /* * _rtld_tls_get_addr(tcb, idx, offset) * * Slow path for __tls_get_addr (see below), called to allocate * TLS space if needed for the object obj with obj->tlsindex idx, * at offset, which must be below obj->tlssize. * * This may allocate a DTV if the current one is too old, and it * may allocate a dynamically loaded TLS block if there isn't one * already allocated for it. * * XXX Why is the first argument passed as `void *tls' instead of * just `struct tls_tcb *tcb'? */ void * _rtld_tls_get_addr(void *tls, size_t idx, size_t offset) { struct tls_tcb *tcb = tls; void **dtv, **new_dtv; sigset_t mask; _rtld_exclusive_enter(&mask); dtv = tcb->tcb_dtv; /* * If the generation number has changed, we have to allocate a * new DTV. * * XXX Do we really? Isn't it enough to check whether idx <= * DTV_MAX_INDEX(dtv)? */ if (__predict_false(DTV_GENERATION(dtv) != _rtld_tls_dtv_generation)) { size_t to_copy = DTV_MAX_INDEX(dtv); /* * "2 +" because the first element is the generation and * the second one is the maximum index. */ new_dtv = xcalloc((2 + _rtld_tls_max_index) * sizeof(*dtv)); ++new_dtv; /* advance past DTV_MAX_INDEX */ if (to_copy > _rtld_tls_max_index) /* XXX How? */ to_copy = _rtld_tls_max_index; memcpy(new_dtv + 1, dtv + 1, to_copy * sizeof(*dtv)); xfree(dtv - 1); /* retreat back to DTV_MAX_INDEX */ dtv = tcb->tcb_dtv = new_dtv; SET_DTV_MAX_INDEX(dtv, _rtld_tls_max_index); SET_DTV_GENERATION(dtv, _rtld_tls_dtv_generation); } if (__predict_false(dtv[idx] == NULL)) dtv[idx] = _rtld_tls_module_allocate(tcb, idx); _rtld_exclusive_exit(&mask); return (uint8_t *)dtv[idx] + offset; } /* * _rtld_tls_initial_allocation() * * Allocate the TCB (thread control block) for the initial thread, * once the static TLS space usage has been determined (plus some * slop to allow certain special cases like Mesa to be dlopened). * * This must be done _after_ all initial objects (i.e., those * loaded at startup, as opposed to objects dynamically loaded by * dlopen) have had TLS offsets allocated if need be by * _rtld_tls_offset_allocate, and have had relocations processed. */ void _rtld_tls_initial_allocation(void) { struct tls_tcb *tcb; _rtld_tls_static_space = _rtld_tls_static_offset + RTLD_STATIC_TLS_RESERVATION; #ifndef __HAVE_TLS_VARIANT_I _rtld_tls_static_space = roundup2(_rtld_tls_static_space, alignof(max_align_t)); #ifdef __HAVE___LWP_SETTCB if (_rtld_tls_static_max_align > sizeof(struct tls_tcb)) _rtld_tls_static_space += _rtld_tls_static_max_align - sizeof(struct tls_tcb); #endif #endif dbg(("_rtld_tls_static_space %zu", _rtld_tls_static_space)); tcb = _rtld_tls_allocate_locked(); #ifdef __HAVE___LWP_SETTCB __lwp_settcb(tcb); #else _lwp_setprivate(tcb); #endif } /* * _rtld_tls_allocate_locked() * * Internal subroutine to allocate a TCB (thread control block) * for the current thread. * * This allocates a DTV and a TCB that points to it, including * static space in the TCB for the TLS of the initial objects. * TLS blocks for dynamically loaded objects are allocated lazily. * * Caller must either be single-threaded (at startup via * _rtld_tls_initial_allocation) or hold the rtld exclusive lock * (via _rtld_tls_allocate). */ static struct tls_tcb * _rtld_tls_allocate_locked(void) { Obj_Entry *obj; struct tls_tcb *tcb; uint8_t *p, *q; p = xmalloc_aligned(_rtld_tls_static_space + sizeof(struct tls_tcb), _rtld_tls_static_max_align, 0); memset(p, 0, _rtld_tls_static_space + sizeof(struct tls_tcb)); #ifdef __HAVE_TLS_VARIANT_I #ifdef __HAVE___LWP_SETTCB if (_rtld_tls_static_max_align > sizeof(struct tls_tcb)) p += _rtld_tls_static_max_align - sizeof(struct tls_tcb); #endif tcb = (struct tls_tcb *)p; p += sizeof(struct tls_tcb); #else p += _rtld_tls_static_space; tcb = (struct tls_tcb *)p; tcb->tcb_self = tcb; #endif dbg(("lwp %d tls tcb %p", _lwp_self(), tcb)); /* * "2 +" because the first element is the generation and the second * one is the maximum index. */ tcb->tcb_dtv = xcalloc(sizeof(*tcb->tcb_dtv) * (2 + _rtld_tls_max_index)); ++tcb->tcb_dtv; /* advance past DTV_MAX_INDEX */ SET_DTV_MAX_INDEX(tcb->tcb_dtv, _rtld_tls_max_index); SET_DTV_GENERATION(tcb->tcb_dtv, _rtld_tls_dtv_generation); for (obj = _rtld_objlist; obj != NULL; obj = obj->next) { if (obj->tls_static) { #ifdef __HAVE_TLS_VARIANT_I q = p + obj->tlsoffset; #else q = p - obj->tlsoffset; #endif dbg(("%s: [lwp %d] tls dtv %p-%p index %zu " "offset %zx alignment %zx tlsinit %p%s", obj->path, _lwp_self(), q, q + obj->tlsinitsize, obj->tlsindex, obj->tlsoffset, obj->tlsalign, obj->tlsinit, ALIGNED_P(q, obj->tlsalign) ? "" : " BAD ALIGNMENT")); assert(ALIGNED_P(q, obj->tlsalign)); if (obj->tlsinitsize) memcpy(q, obj->tlsinit, obj->tlsinitsize); tcb->tcb_dtv[obj->tlsindex] = q; } } return tcb; } /* * _rtld_tls_allocate() * * Allocate a TCB (thread control block) for the current thread. * * Called by pthread_create for non-initial threads. (The initial * thread's TCB is allocated by _rtld_tls_initial_allocation.) */ struct tls_tcb * _rtld_tls_allocate(void) { struct tls_tcb *tcb; sigset_t mask; _rtld_exclusive_enter(&mask); tcb = _rtld_tls_allocate_locked(); _rtld_exclusive_exit(&mask); return tcb; } /* * _rtld_tls_free(tcb) * * Free a TCB allocated with _rtld_tls_allocate. * * Frees any TLS blocks for dynamically loaded objects that tcb's * DTV points to, and frees tcb's DTV, and frees tcb. */ void _rtld_tls_free(struct tls_tcb *tcb) { size_t i, max_index; uint8_t *p, *p_end; sigset_t mask; _rtld_exclusive_enter(&mask); #ifdef __HAVE_TLS_VARIANT_I p = (uint8_t *)tcb; #else p = (uint8_t *)tcb - _rtld_tls_static_space; #endif p_end = p + _rtld_tls_static_space; max_index = DTV_MAX_INDEX(tcb->tcb_dtv); for (i = 1; i <= max_index; ++i) { if ((uint8_t *)tcb->tcb_dtv[i] < p || (uint8_t *)tcb->tcb_dtv[i] >= p_end) xfree(tcb->tcb_dtv[i]); } xfree(tcb->tcb_dtv - 1); /* retreat back to DTV_MAX_INDEX */ xfree(p); _rtld_exclusive_exit(&mask); } /* * _rtld_tls_module_allocate(tcb, idx) * * Allocate thread-local storage in the thread with the given TCB * (thread control block) for the object obj whose obj->tlsindex * is idx. * * If obj has had space in static TLS reserved (obj->tls_static), * return a pointer into that. Otherwise, allocate a TLS block, * mark obj as having a TLS block allocated (obj->tls_dynamic), * and return it. * * Called by _rtld_tls_get_addr to get the thread-local storage * for an object the first time around. */ static void * _rtld_tls_module_allocate(struct tls_tcb *tcb, size_t idx) { Obj_Entry *obj; uint8_t *p; for (obj = _rtld_objlist; obj != NULL; obj = obj->next) { if (obj->tlsindex == idx) break; } if (obj == NULL) { _rtld_error("Module for TLS index %zu missing", idx); _rtld_die(); } if (obj->tls_static) { #ifdef __HAVE_TLS_VARIANT_I p = (uint8_t *)tcb + obj->tlsoffset + sizeof(struct tls_tcb); #else p = (uint8_t *)tcb - obj->tlsoffset; #endif return p; } p = xmalloc_aligned(obj->tlssize, obj->tlsalign, 0); memcpy(p, obj->tlsinit, obj->tlsinitsize); memset(p + obj->tlsinitsize, 0, obj->tlssize - obj->tlsinitsize); obj->tls_dynamic = 1; return p; } /* * _rtld_tls_offset_allocate(obj) * * Allocate a static thread-local storage offset for obj. * * Called by _rtld at startup for all initial objects. Called * also by MD relocation logic, which is allowed (for Mesa) to * allocate an additional 64 bytes (RTLD_STATIC_TLS_RESERVATION) * of static thread-local storage in dlopened objects. */ int _rtld_tls_offset_allocate(Obj_Entry *obj) { size_t offset, next_offset; if (obj->tls_dynamic) return -1; if (obj->tls_static) return 0; if (obj->tlssize == 0) { obj->tlsoffset = 0; obj->tls_static = 1; return 0; } #ifdef __HAVE_TLS_VARIANT_I offset = roundup2(_rtld_tls_static_offset, obj->tlsalign); next_offset = offset + obj->tlssize; #ifndef __HAVE___LWP_GETTCB_FAST offset -= sizeof(struct tls_tcb); #endif #else offset = roundup2(_rtld_tls_static_offset + obj->tlssize, obj->tlsalign); next_offset = offset; #endif /* * Check if the static allocation was already done. * This happens if dynamically loaded modules want to use * static TLS space. * * XXX Keep an actual free list and callbacks for initialisation. */ if (_rtld_tls_static_space) { if (obj->tlsinitsize) { _rtld_error("%s: Use of initialized " "Thread Local Storage with model initial-exec " "and dlopen is not supported", obj->path); return -1; } if (next_offset > _rtld_tls_static_space) { _rtld_error("%s: No space available " "for static Thread Local Storage", obj->path); return -1; } } if (obj->tlsalign > _rtld_tls_static_max_align) { _rtld_tls_static_max_align = obj->tlsalign; } obj->tlsoffset = offset; dbg(("%s: static tls offset 0x%zx size %zu align %zu (%zx/%zx)", obj->path, obj->tlsoffset, obj->tlssize, obj->tlsalign, _rtld_tls_static_offset, next_offset)); _rtld_tls_static_offset = next_offset; obj->tls_static = 1; return 0; } /* * _rtld_tls_offset_free(obj) * * Free a static thread-local storage offset for obj. * * Called by dlclose (via _rtld_unload_object -> _rtld_obj_free). * * Since static thread-local storage is normally not used by * dlopened objects (with the exception of Mesa), this doesn't do * anything to recycle the space right now. */ void _rtld_tls_offset_free(Obj_Entry *obj) { /* * XXX See above. */ obj->tls_static = 0; return; } #if defined(__HAVE_COMMON___TLS_GET_ADDR) && defined(RTLD_LOADER) /* * __tls_get_addr(tlsindex) * * Symbol directly called by code generated by the compiler for * references thread-local storage in the general-dynamic or * local-dynamic TLS models (but not initial-exec or local-exec). * * The argument is a pointer to * * struct { * unsigned long int ti_module; * unsigned long int ti_offset; * }; * * as in, e.g., [ELFTLS] Sec. 3.4.3. This coincides with the * type size_t[2] on all architectures that use this common * __tls_get_addr definition (XXX but why do we write it as * size_t[2]?). * * ti_module, i.e., arg[0], is the obj->tlsindex assigned at * load-time by _rtld_map_object, and ti_offset, i.e., arg[1], is * assigned at link-time by ld(1), possibly adjusted by * TLS_DTV_OFFSET. * * Some architectures -- specifically IA-64 -- use a different * calling convention. Some architectures -- specifically i386 * -- also use another entry point ___tls_get_addr (that's three * leading underscores) with a different calling convention. */ void * __tls_get_addr(void *arg_) { size_t *arg = (size_t *)arg_; void **dtv; #ifdef __HAVE___LWP_GETTCB_FAST struct tls_tcb * const tcb = __lwp_gettcb_fast(); #else struct tls_tcb * const tcb = __lwp_getprivate_fast(); #endif size_t idx = arg[0], offset = arg[1] + TLS_DTV_OFFSET; dtv = tcb->tcb_dtv; /* * Fast path: access to an already allocated DTV entry. This * checks the current limit and the entry without needing any * locking. Entries are only freed on dlclose() and it is an * application bug if code of the module is still running at * that point. */ if (__predict_true(idx <= DTV_MAX_INDEX(dtv) && dtv[idx] != NULL)) return (uint8_t *)dtv[idx] + offset; return _rtld_tls_get_addr(tcb, idx, offset); } #endif #endif /* __HAVE_TLS_VARIANT_I || __HAVE_TLS_VARIANT_II */ src/libexec/ld.elf_so/xmalloc.c010064400011300000175000000275011513503672200166710ustar00srcmastrnetbsd/* $NetBSD: xmalloc.c,v 1.12.44.1 2026/01/22 20:31:07 martin Exp $ */ /* * Copyright 1996 John D. Polstra. * Copyright 1996 Matt Thomas * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by John Polstra. * 4. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ /* * Copyright (c) 1983 Regents of the University of California. * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #if defined(LIBC_SCCS) && !defined(lint) /*static char *sccsid = "from: @(#)malloc.c 5.11 (Berkeley) 2/23/91";*/ #endif /* LIBC_SCCS and not lint */ /* * malloc.c (Caltech) 2/21/82 * Chris Kingsley, kingsley@cit-20. * * This is a very fast storage allocator. It allocates blocks of a small * number of different sizes, and keeps free lists of each size. Blocks that * don't exactly fit are passed up to the next larger size. In this * implementation, the available sizes are 2^n-4 (or 2^n-10) bytes long. * This is designed for use in a virtual memory environment. */ #include #ifndef lint __RCSID("$NetBSD: xmalloc.c,v 1.12.44.1 2026/01/22 20:31:07 martin Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include #include #include "rtld.h" /* * Pre-allocate mmap'ed pages */ #define NPOOLPAGES (32 * 1024 / pagesz) static char *pagepool_start, *pagepool_end; static int morepages(int); #define PAGEPOOL_SIZE (size_t)(pagepool_end - pagepool_start) /* * The overhead on a block is at least 4 bytes. When free, this space * contains a pointer to the next free block, and the bottom two bits must * be zero. When in use, the first byte is set to MAGIC, and the second * byte is the size index. The remaining bytes are for alignment. */ union overhead { union overhead *ov_next; /* when free */ struct { uint16_t ovu_index; /* bucket # */ uint8_t ovu_magic; /* magic number */ } ovu; #define ov_magic ovu.ovu_magic #define ov_index ovu.ovu_index }; static void morecore(size_t); static void *imalloc(size_t); #define MAGIC 0xef /* magic # on accounting info */ #define AMAGIC 0xdf /* magic # for aligned alloc */ /* * nextf[i] is the pointer to the next free block of size * (FIRST_BUCKET_SIZE << i). The overhead information precedes the data * area returned to the user. */ #define FIRST_BUCKET_SHIFT 3 #define FIRST_BUCKET_SIZE (1U << FIRST_BUCKET_SHIFT) #define NBUCKETS 30 static union overhead *nextf[NBUCKETS]; static size_t pagesz; /* page size */ static size_t pageshift; /* page size shift */ #ifdef MSTATS /* * nmalloc[i] is the difference between the number of mallocs and frees * for a given block size. */ static u_int nmalloc[NBUCKETS]; #endif #if defined(MALLOC_DEBUG) #define ASSERT(p) if (!(p)) botch("p") static void botch(const char *s) { xwarnx("\r\nassertion botched: %s\r\n", s); abort(); } #else #define ASSERT(p) #endif #define TRACE() xprintf("TRACE %s:%d\n", __FILE__, __LINE__) static void * cp2op(void *cp) { return (((caddr_t)cp - sizeof(union overhead))); } static void * imalloc(size_t nbytes) { union overhead *op; size_t bucket; size_t amt; /* * First time malloc is called, setup page size. */ if (pagesz == 0) { size_t n, m; pagesz = n = _rtld_pagesz; pageshift = ffs(pagesz) - 1; if (morepages(NPOOLPAGES) == 0) return NULL; op = (union overhead *)(pagepool_start); m = sizeof (*op) - (((char *)op - (char *)NULL) & (n - 1)); if (n < m) n += pagesz - m; else n -= m; if (n) { pagepool_start += n; } } /* * Convert amount of memory requested into closest block size * stored in hash buckets which satisfies request. * Account for space used per block for accounting. */ amt = FIRST_BUCKET_SIZE; bucket = 0; while (nbytes > amt - sizeof(*op)) { amt <<= 1; bucket++; if (amt == 0 || bucket >= NBUCKETS) return (NULL); } /* * If nothing in hash bucket right now, * request more memory from the system. */ if ((op = nextf[bucket]) == NULL) { morecore(bucket); if ((op = nextf[bucket]) == NULL) return (NULL); } /* remove from linked list */ nextf[bucket] = op->ov_next; op->ov_magic = MAGIC; op->ov_index = bucket; #ifdef MSTATS nmalloc[bucket]++; #endif return ((char *)(op + 1)); } void * xmalloc_aligned(size_t size, size_t align, size_t offset) { void *mem; union overhead *ov; uintptr_t x; if (align < FIRST_BUCKET_SIZE) align = FIRST_BUCKET_SIZE; offset &= align - 1; mem = imalloc(size + align + offset + sizeof(union overhead)); if (mem == NULL) return (NULL); x = roundup2((uintptr_t)mem + sizeof(union overhead), align); x += offset; ov = cp2op((void *)x); ov->ov_magic = AMAGIC; ov->ov_index = x - (uintptr_t)mem + sizeof(union overhead); return ((void *)x); } /* * Allocate more memory to the indicated bucket. */ static void morecore(size_t bucket) { union overhead *op; size_t sz; /* size of desired block */ size_t amt; /* amount to allocate */ size_t nblks; /* how many blocks we get */ sz = FIRST_BUCKET_SIZE << bucket; if (sz < pagesz) { amt = pagesz; nblks = amt >> (bucket + FIRST_BUCKET_SHIFT); } else { amt = sz; nblks = 1; } if (amt > PAGEPOOL_SIZE) if (morepages((amt >> pageshift) + NPOOLPAGES) == 0) return; op = (union overhead *)pagepool_start; pagepool_start += amt; /* * Add new memory allocated to that on * free list for this hash bucket. */ nextf[bucket] = op; while (--nblks > 0) { op->ov_next = (union overhead *)((caddr_t)op + sz); op = (union overhead *)((caddr_t)op + sz); } } void xfree(void *cp) { union overhead *op, *opx; size_t size; if (cp == NULL) return; opx = cp2op(cp); op = opx->ov_magic == AMAGIC ? (void *)((caddr_t)cp - opx->ov_index) : opx; ASSERT(op->ov_magic == MAGIC); /* make sure it was in use */ if (op->ov_magic != MAGIC) return; /* sanity */ size = op->ov_index; ASSERT(size < NBUCKETS); op->ov_next = nextf[size]; /* also clobbers ov_magic */ nextf[size] = op; #ifdef MSTATS nmalloc[size]--; #endif } static void * irealloc(void *cp, size_t nbytes) { size_t onb; size_t i; union overhead *op; char *res; if (cp == NULL) return (imalloc(nbytes)); op = (union overhead *)((caddr_t)cp - sizeof (union overhead)); if (op->ov_magic != MAGIC) { static const char *err_str = "memory corruption or double free in realloc\n"; extern char *__progname; write(STDERR_FILENO, __progname, strlen(__progname)); write(STDERR_FILENO, err_str, strlen(err_str)); abort(); } i = op->ov_index; onb = 1 << (i + FIRST_BUCKET_SHIFT); if (onb < pagesz) onb -= sizeof (*op); else onb += pagesz - sizeof (*op); /* avoid the copy if same size block */ if (i) { i = 1 << (i + 2); if (i < pagesz) i -= sizeof (*op); else i += pagesz - sizeof (*op); } if (nbytes <= onb && nbytes > i) { return(cp); } if ((res = imalloc(nbytes)) == NULL) return (NULL); if (cp != res) { /* common optimization if "compacting" */ memcpy(res, cp, (nbytes < onb) ? nbytes : onb); xfree(cp); } return (res); } #ifdef MSTATS /* * mstats - print out statistics about malloc * * Prints two lines of numbers, one showing the length of the free list * for each size category, the second showing the number of mallocs - * frees for each size category. */ void mstats(char *s) { int i, j; union overhead *p; int totfree = 0, totused = 0; xprintf("Memory allocation statistics %s\nfree:\t", s); for (i = 0; i < NBUCKETS; i++) { for (j = 0, p = nextf[i]; p; p = p->ov_next, j++) ; xprintf(" %d", j); totfree += j * (1 << (i + FIRST_BUCKET_SHIFT)); } xprintf("\nused:\t"); for (i = 0; i < NBUCKETS; i++) { xprintf(" %d", nmalloc[i]); totused += nmalloc[i] * (1 << (i + FIRST_BUCKET_SHIFT)); } xprintf("\n\tTotal in use: %d, total free: %d\n", totused, totfree); } #endif static int morepages(int n) { int fd = -1; int offset; #ifdef NEED_DEV_ZERO fd = open("/dev/zero", O_RDWR, 0); if (fd == -1) xerr(1, "/dev/zero"); #endif if (PAGEPOOL_SIZE > pagesz) { caddr_t addr = (caddr_t) (((long)pagepool_start + pagesz - 1) & ~(pagesz - 1)); if (munmap(addr, pagepool_end - addr) != 0) xwarn("morepages: munmap %p", addr); } offset = (long)pagepool_start - ((long)pagepool_start & ~(pagesz - 1)); if ((pagepool_start = mmap(0, n * pagesz, PROT_READ|PROT_WRITE, MAP_ANON|MAP_PRIVATE, fd, 0)) == (caddr_t)-1) { xprintf("Cannot map anonymous memory"); return 0; } pagepool_end = pagepool_start + n * pagesz; pagepool_start += offset; #ifdef NEED_DEV_ZERO close(fd); #endif return n; } void * xcalloc(size_t size) { return memset(xmalloc(size), 0, size); } void * xmalloc(size_t size) { void *p = imalloc(size); if (p == NULL) xerr(1, "%s", xstrerror(errno)); return p; } void * xrealloc(void *p, size_t size) { p = irealloc(p, size); if (p == NULL) xerr(1, "%s", xstrerror(errno)); return p; } char * xstrdup(const char *str) { size_t len; char *copy; len = strlen(str) + 1; copy = xmalloc(len); memcpy(copy, str, len); return (copy); } src/libexec/ld.elf_so/xprintf.c010064400011300000175000000150171402076060300167150ustar00srcmastrnetbsd/* $NetBSD: xprintf.c,v 1.23 2021/03/06 20:09:39 christos Exp $ */ /* * Copyright 1996 Matt Thomas * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ #include #ifndef lint __RCSID("$NetBSD: xprintf.c,v 1.23 2021/03/06 20:09:39 christos Exp $"); #endif /* not lint */ #include #include #include #include #include #include "rtldenv.h" #ifdef RTLD_LOADER #define SZ_LONG 0x01 #define SZ_UNSIGNED 0x02 #define SZ_SIZE_T 0x04 /* * Non-mallocing printf, for use by malloc and rtld itself. * This avoids putting in most of stdio. * * deals with formats %x, %p, %s, and %d. */ size_t xvsnprintf(char *buf, size_t buflen, const char *fmt, va_list ap) { char *bp = buf; char *const ep = buf + buflen - 4; int size, prec; while (*fmt != '\0' && bp < ep) { switch (*fmt) { case '\\':{ if (fmt[1] != '\0') *bp++ = *++fmt; continue; } case '%':{ size = 0; prec = -1; rflag: switch (fmt[1]) { case '*': prec = va_arg(ap, int); /* FALLTHROUGH */ case '.': case '#': fmt++; goto rflag; case 'l': case 'j': size |= SZ_LONG; fmt++; goto rflag; case 'z': size |= SZ_SIZE_T; fmt++; goto rflag; case 'u': size |= SZ_UNSIGNED; /* FALLTHROUGH */ case 'd':{ long sval; unsigned long uval; char digits[sizeof(int) * 3], *dp = digits; #define SARG() \ (size & SZ_LONG ? va_arg(ap, long) : \ ((size & SZ_SIZE_T ? (long)va_arg(ap, size_t) : \ va_arg(ap, int)))) #define UARG() \ (size & SZ_LONG ? va_arg(ap, unsigned long) : \ ((size & SZ_SIZE_T ? va_arg(ap, size_t) : \ va_arg(ap, unsigned int)))) if (fmt[1] == 'd') { if (size & SZ_UNSIGNED) sval = UARG(); else sval = SARG(); if (sval < 0) { if ((sval << 1) == 0) { /* * We can't flip the * sign of this since * it can't be * represented as a * positive number in * two complement, * handle the first * digit. After that, * it can be flipped * since it is now not * 2^(n-1). */ *dp++ = '0'-(sval % 10); sval /= 10; } *bp++ = '-'; uval = -sval; } else { uval = sval; } } else { if (size & SZ_UNSIGNED) uval = UARG(); else uval = SARG(); } do { *dp++ = '0' + (uval % 10); uval /= 10; } while (uval != 0); do { *bp++ = *--dp; } while (dp != digits && bp < ep); fmt += 2; break; } case 'x': case 'p':{ unsigned long val = va_arg(ap, unsigned long); unsigned long mask = ~(~0UL >> 4); int bits = sizeof(val) * 8 - 4; const char hexdigits[] = "0123456789abcdef"; if (fmt[1] == 'p') { *bp++ = '0'; *bp++ = 'x'; } /* handle the border case */ if (val == 0) { *bp++ = '0'; fmt += 2; break; } /* suppress 0s */ while ((val & mask) == 0) bits -= 4, mask >>= 4; /* emit the hex digits */ while (bits >= 0 && bp < ep) { *bp++ = hexdigits[(val & mask) >> bits]; bits -= 4, mask >>= 4; } fmt += 2; break; } case 's':{ const char *str = va_arg(ap, const char *); int len; if (str == NULL) str = "(null)"; if (prec < 0) len = strlen(str); else len = prec; if (ep - bp < len) len = ep - bp; memcpy(bp, str, len); bp += len; fmt += 2; break; } case 'c':{ int c = va_arg(ap, int); *bp++ = (char)c; fmt += 2; break; } default: *bp++ = *fmt; break; } break; } default: *bp++ = *fmt++; break; } } *bp = '\0'; return bp - buf; } void xvprintf(const char *fmt, va_list ap) { char buf[256]; (void) write(2, buf, xvsnprintf(buf, sizeof(buf), fmt, ap)); } void xprintf(const char *fmt, ...) { va_list ap; va_start(ap, fmt); xvprintf(fmt, ap); va_end(ap); } void xsnprintf(char *buf, size_t buflen, const char *fmt, ...) { va_list ap; va_start(ap, fmt); xvsnprintf(buf, buflen, fmt, ap); va_end(ap); } #include "errlist_concat.h" const char * xstrerror(int error) { if (error >= concat_nerr || error < 0) { static char buf[128]; xsnprintf(buf, sizeof(buf), "Unknown error: %d", error); return buf; } return concat_errlist + concat_offset[error]; } void xerrx(int eval, const char *fmt, ...) { va_list ap; va_start(ap, fmt); xvprintf(fmt, ap); va_end(ap); (void) write(2, "\n", 1); exit(eval); } void xerr(int eval, const char *fmt, ...) { int saved_errno = errno; va_list ap; va_start(ap, fmt); xvprintf(fmt, ap); va_end(ap); xprintf(": %s\n", xstrerror(saved_errno)); exit(eval); } void xwarn(const char *fmt, ...) { int saved_errno = errno; va_list ap; va_start(ap, fmt); xvprintf(fmt, ap); va_end(ap); xprintf(": %s\n", xstrerror(saved_errno)); errno = saved_errno; } void xwarnx(const char *fmt, ...) { va_list ap; va_start(ap, fmt); xvprintf(fmt, ap); va_end(ap); (void) write(2, "\n", 1); } #ifdef DEBUG void xassert(const char *file, int line, const char *failedexpr) { xprintf("assertion \"%s\" failed: file \"%s\", line %d\n", failedexpr, file, line); abort(); /* NOTREACHED */ } #endif #endif src/libexec/ld.elf_so/arch004075500011300000175000000000001522207755000157235ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/CVS004075500011300000175000000000001522207755000163565ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/CVS/Root010064400011300000175000000000441504273241000172670ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/ld.elf_so/arch/CVS/Repository010064400011300000175000000000331504273241000205210ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch src/libexec/ld.elf_so/arch/CVS/Entries010066400011300000175000000002601522207755000177660ustar00srcmastrnetbsdD/aarch64//// D/alpha//// D/arm//// D/hppa//// D/i386//// D/m68k//// D/mips//// D/or1k//// D/powerpc//// D/riscv//// D/sh3//// D/sparc//// D/sparc64//// D/vax//// D/x86_64//// src/libexec/ld.elf_so/arch/CVS/Tag010064400011300000175000000000131522207752200170610ustar00srcmastrnetbsdTnetbsd-11 src/libexec/ld.elf_so/arch/aarch64004075500011300000175000000000001504273241000171445ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/aarch64/CVS004075500011300000175000000000001504273241000175775ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/aarch64/CVS/Root010064400011300000175000000000441504273241000205170ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/ld.elf_so/arch/aarch64/CVS/Repository010064400011300000175000000000431504273241000217520ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/aarch64 src/libexec/ld.elf_so/arch/aarch64/CVS/Entries010064400011300000175000000002451504273241000212100ustar00srcmastrnetbsd/Makefile.inc/1.3/Sat Dec 4 08:53:34 2021//Tnetbsd-11 /mdreloc.c/1.19/Mon Jul 22 23:10:35 2024//Tnetbsd-11 /rtld_start.S/1.7/Tue Jul 23 18:11:53 2024//Tnetbsd-11 D src/libexec/ld.elf_so/arch/aarch64/CVS/Tag010064400011300000175000000000131522207752200203110ustar00srcmastrnetbsdTnetbsd-11 src/libexec/ld.elf_so/arch/aarch64/Makefile.inc010064400011300000175000000004471415262621600214440ustar00srcmastrnetbsd# $NetBSD: Makefile.inc,v 1.3 2021/12/04 08:53:34 skrll Exp $ SRCS+= rtld_start.S mdreloc.c # XXX Should not be in CPPFLAGS! CPPFLAGS+= -fpic CPPFLAGS+= -DELFSIZE=64 CPPFLAGS+= -DELF_NOTE_MARCH_DESC=\"${LDELFSO_MACHINE_ARCH}\" CPPFLAGS+= -DRTLD_ARCH_CALL_IFUNC LDFLAGS+= -Wl,-e,_rtld_start src/libexec/ld.elf_so/arch/aarch64/mdreloc.c010064400011300000175000000317671464756335300210510ustar00srcmastrnetbsd/* $NetBSD: mdreloc.c,v 1.19 2024/07/22 23:10:35 riastradh Exp $ */ /*- * Copyright (c) 2014 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Matt Thomas of 3am Software Foundry. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ /*- * Copyright (c) 2014-2015 The FreeBSD Foundation * All rights reserved. * * Portions of this software were developed by Andrew Turner * under sponsorship from the FreeBSD Foundation. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint __RCSID("$NetBSD: mdreloc.c,v 1.19 2024/07/22 23:10:35 riastradh Exp $"); #endif /* not lint */ /* * AArch64 ELF relocations. * * References: * * [AAELF64] ELF for the Arm 64-bit Architecture (AArch64), * 2022Q3. Arm Ltd. * https://github.com/ARM-software/abi-aa/blob/2982a9f3b512a5bfdc9e3fea5d3b298f9165c36b/aaelf64/aaelf64.rst * * [TLSDESC] Glauber de Oliveira Costa and Alexandre Oliva, * `Thread-Local Storage Access in Dynamic Libraries in the ARM * Platform', 2006. * https://www.fsfla.org/~lxoliva/writeups/TLS/paper-lk2006.pdf */ #include #include #include "debug.h" #include "rtld.h" struct tls_data { size_t td_tlsindex; Elf_Addr td_tlsoffs; }; void _rtld_bind_start(void); void _rtld_relocate_nonplt_self(Elf_Dyn *, Elf_Addr); Elf_Addr _rtld_bind(const Obj_Entry *, Elf_Word); void *_rtld_tlsdesc_static(void *); void *_rtld_tlsdesc_undef(void *); void *_rtld_tlsdesc_dynamic(void *); /* * AARCH64 PLT looks like this; * * PLT HEADER <8 instructions> * PLT ENTRY #0 <4 instructions> * PLT ENTRY #1 <4 instructions> * . * . * PLT ENTRY #n <4 instructions> * * PLT HEADER * stp x16, x30, [sp, #-16]! * adrp x16, (GOT+16) * ldr x17, [x16, #PLT_GOT+0x10] * add x16, x16, #PLT_GOT+0x10 * br x17 * nop * nop * nop * * PLT ENTRY #n * adrp x16, PLTGOT + n * 8 * ldr x17, [x16, PLTGOT + n * 8] * add x16, x16, :lo12:PLTGOT + n * 8 * br x17 */ void _rtld_setup_pltgot(const Obj_Entry *obj) { obj->pltgot[1] = (Elf_Addr) obj; obj->pltgot[2] = (Elf_Addr) &_rtld_bind_start; } static struct tls_data * _rtld_tlsdesc_alloc(size_t tlsindex, Elf_Addr offs) { struct tls_data *tlsdesc; tlsdesc = xmalloc(sizeof(*tlsdesc)); tlsdesc->td_tlsindex = tlsindex; tlsdesc->td_tlsoffs = offs; return tlsdesc; } static void _rtld_tlsdesc_fill(const Obj_Entry *obj, const Elf_Rela *rela, Elf_Addr *where, u_int flags) { const Elf_Sym *def; const Obj_Entry *defobj; Elf_Addr offs = 0; unsigned long symnum = ELF_R_SYM(rela->r_info); if (symnum != 0) { def = _rtld_find_symdef(ELF_R_SYM(rela->r_info), obj, &defobj, flags); if (def == NULL) _rtld_die(); if (def == &_rtld_sym_zero) { /* Weak undefined thread variable */ where[0] = (Elf_Addr)_rtld_tlsdesc_undef; where[1] = rela->r_addend; rdbg(("TLSDESC %s (weak) in %s --> %p", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)where[1])); return; } offs = def->st_value; } else { defobj = obj; } offs += rela->r_addend; if (defobj->tls_static) { /* Variable is in initially allocated TLS segment */ where[0] = (Elf_Addr)_rtld_tlsdesc_static; where[1] = defobj->tlsoffset + offs + sizeof(struct tls_tcb); rdbg(("TLSDESC %s --> %p static", obj->path, (void *)where[1])); } else { /* TLS offset is unknown at load time, use dynamic resolving */ where[0] = (Elf_Addr)_rtld_tlsdesc_dynamic; where[1] = (Elf_Addr)_rtld_tlsdesc_alloc(defobj->tlsindex, offs); rdbg(("TLSDESC %s in %s --> %p dynamic (%zu, %p)", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)where[1], defobj->tlsindex, (void *)offs)); } } void _rtld_relocate_nonplt_self(Elf_Dyn *dynp, Elf_Addr relocbase) { const Elf_Rela *rela = 0, *relalim; Elf_Addr relasz = 0; Elf_Addr *where; for (; dynp->d_tag != DT_NULL; dynp++) { switch (dynp->d_tag) { case DT_RELA: rela = (const Elf_Rela *)(relocbase + dynp->d_un.d_ptr); break; case DT_RELASZ: relasz = dynp->d_un.d_val; break; } } relalim = (const Elf_Rela *)((const uint8_t *)rela + relasz); for (; rela < relalim; rela++) { where = (Elf_Addr *)(relocbase + rela->r_offset); *where += (Elf_Addr)relocbase; } } int _rtld_relocate_nonplt_objects(Obj_Entry *obj) { const Elf_Sym *def = NULL; const Obj_Entry *defobj = NULL; unsigned long last_symnum = ULONG_MAX; for (const Elf_Rela *rela = obj->rela; rela < obj->relalim; rela++) { Elf_Addr *where; Elf_Addr tmp; unsigned long symnum = ULONG_MAX; where = (Elf_Addr *)(obj->relocbase + rela->r_offset); switch (ELF_R_TYPE(rela->r_info)) { case R_TYPE(ABS64): /* word S + A */ case R_TYPE(GLOB_DAT): /* word S + A */ case R_TLS_TYPE(TLS_DTPREL): case R_TLS_TYPE(TLS_DTPMOD): case R_TLS_TYPE(TLS_TPREL): symnum = ELF_R_SYM(rela->r_info); if (last_symnum != symnum) { last_symnum = symnum; def = _rtld_find_symdef(symnum, obj, &defobj, false); if (def == NULL) return -1; } default: break; } switch (ELF_R_TYPE(rela->r_info)) { case R_TYPE(NONE): break; case R_TYPE(ABS64): /* word S + A */ case R_TYPE(GLOB_DAT): /* word S + A */ tmp = (Elf_Addr)defobj->relocbase + def->st_value + rela->r_addend; if (*where != tmp) *where = tmp; rdbg(("ABS64/GLOB_DAT %s in %s --> %p @ %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)tmp, where, defobj->path)); break; case R_TYPE(IRELATIVE): /* IFUNC relocations are handled in _rtld_call_ifunc */ if (obj->ifunc_remaining_nonplt == 0) obj->ifunc_remaining_nonplt = obj->relalim - rela; rdbg(("IRELATIVE in %s, %zx", obj->path, obj->ifunc_remaining_nonplt)); /* FALLTHROUGH */ case R_TYPE(RELATIVE): /* word B + A */ *where = (Elf_Addr)(obj->relocbase + rela->r_addend); rdbg(("RELATIVE in %s --> %p", obj->path, (void *)*where)); break; case R_TYPE(COPY): /* * These are deferred until all other relocations have * been done. All we do here is make sure that the * COPY relocation is not in a shared library. They * are allowed only in executable files. */ if (obj->isdynamic) { _rtld_error( "%s: Unexpected R_COPY relocation in shared library", obj->path); return -1; } rdbg(("COPY (avoid in main)")); break; case R_TYPE(TLSDESC): _rtld_tlsdesc_fill(obj, rela, where, 0); break; case R_TLS_TYPE(TLS_DTPREL): *where = (Elf_Addr)(def->st_value + rela->r_addend); rdbg(("TLS_DTPREL %s in %s --> %p", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where)); break; case R_TLS_TYPE(TLS_DTPMOD): *where = (Elf_Addr)(defobj->tlsindex); rdbg(("TLS_DTPMOD %s in %s --> %p", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where)); break; case R_TLS_TYPE(TLS_TPREL): if (!defobj->tls_static && _rtld_tls_offset_allocate(__UNCONST(defobj))) return -1; *where = (Elf_Addr)(def->st_value + defobj->tlsoffset + rela->r_addend + sizeof(struct tls_tcb)); rdbg(("TLS_TPREL %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where, defobj->path)); break; default: rdbg(("sym = %lu, type = %lu, offset = %p, " "addend = %p, contents = %p", (u_long)ELF_R_SYM(rela->r_info), (u_long)ELF_R_TYPE(rela->r_info), (void *)rela->r_offset, (void *)rela->r_addend, (void *)*where)); _rtld_error("%s: Unsupported relocation type %ld " "in non-PLT relocations", obj->path, (u_long) ELF_R_TYPE(rela->r_info)); return -1; } } return 0; } int _rtld_relocate_plt_lazy(Obj_Entry *obj) { if (!obj->relocbase) return 0; for (const Elf_Rela *rela = obj->pltrela; rela < obj->pltrelalim; rela++) { Elf_Addr *where = (Elf_Addr *)(obj->relocbase + rela->r_offset); assert(ELF_R_TYPE(rela->r_info) == R_TYPE(JUMP_SLOT) || ELF_R_TYPE(rela->r_info) == R_TYPE(TLSDESC) || ELF_R_TYPE(rela->r_info) == R_TYPE(IRELATIVE)); switch (ELF_R_TYPE(rela->r_info)) { case R_TYPE(JUMP_SLOT): /* Just relocate the GOT slots pointing into the PLT */ *where += (Elf_Addr)obj->relocbase; rdbg(("fixup !main in %s --> %p", obj->path, (void *)*where)); break; case R_TYPE(TLSDESC): _rtld_tlsdesc_fill(obj, rela, where, SYMLOOK_IN_PLT); break; case R_TYPE(IRELATIVE): obj->ifunc_remaining = obj->pltrelalim - rela; break; } } return 0; } void _rtld_call_ifunc(Obj_Entry *obj, sigset_t *mask, u_int cur_objgen) { const Elf_Rela *rela; Elf_Addr *where, target; while (obj->ifunc_remaining > 0 && _rtld_objgen == cur_objgen) { rela = obj->pltrelalim - obj->ifunc_remaining; --obj->ifunc_remaining; if (ELF_R_TYPE(rela->r_info) == R_TYPE(IRELATIVE)) { where = (Elf_Addr *)(obj->relocbase + rela->r_offset); target = (Elf_Addr)(obj->relocbase + rela->r_addend); _rtld_exclusive_exit(mask); target = _rtld_resolve_ifunc2(obj, target); _rtld_exclusive_enter(mask); if (*where != target) *where = target; } } } static int _rtld_relocate_plt_object(const Obj_Entry *obj, const Elf_Rela *rela, Elf_Addr *tp) { Elf_Addr *where = (Elf_Addr *)(obj->relocbase + rela->r_offset); Elf_Addr new_value; const Elf_Sym *def; const Obj_Entry *defobj; switch (ELF_R_TYPE(rela->r_info)) { case R_TYPE(JUMP_SLOT): def = _rtld_find_plt_symdef(ELF_R_SYM(rela->r_info), obj, &defobj, tp != NULL); if (__predict_false(def == NULL)) return -1; if (__predict_false(def == &_rtld_sym_zero)) return 0; if (ELF_ST_TYPE(def->st_info) == STT_GNU_IFUNC) { if (tp == NULL) return 0; new_value = _rtld_resolve_ifunc(defobj, def); } else { new_value = (Elf_Addr)(defobj->relocbase + def->st_value); } rdbg(("bind now/fixup in %s --> old=%p new=%p", defobj->strtab + def->st_name, (void *)*where, (void *)new_value)); if (*where != new_value) *where = new_value; if (tp) *tp = new_value; break; case R_TYPE(TLSDESC): _rtld_tlsdesc_fill(obj, rela, where, SYMLOOK_IN_PLT); break; } return 0; } Elf_Addr _rtld_bind(const Obj_Entry *obj, Elf_Word relaidx) { const Elf_Rela *rela = obj->pltrela + relaidx; Elf_Addr new_value = 0; _rtld_shared_enter(); int err = _rtld_relocate_plt_object(obj, rela, &new_value); if (err) _rtld_die(); _rtld_shared_exit(); return new_value; } int _rtld_relocate_plt_objects(const Obj_Entry *obj) { const Elf_Rela *rela; int err = 0; for (rela = obj->pltrela; rela < obj->pltrelalim; rela++) { err = _rtld_relocate_plt_object(obj, rela, NULL); if (err) break; } return err; } src/libexec/ld.elf_so/arch/aarch64/rtld_start.S010064400011300000175000000233321464777115100215500ustar00srcmastrnetbsd/* $NetBSD: rtld_start.S,v 1.7 2024/07/23 18:11:53 riastradh Exp $ */ /*- * Copyright (c) 2014 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Matt Thomas of 3am Software Foundry. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ /*- * Copyright (c) 2014 The FreeBSD Foundation * All rights reserved. * * This software was developed by Andrew Turner under * sponsorship from the FreeBSD Foundation. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include RCSID("$NetBSD: rtld_start.S,v 1.7 2024/07/23 18:11:53 riastradh Exp $") /* * void _rtld_start(void (*cleanup)(void), const Obj_Entry *obj, * struct ps_strings *ps_strings); * * X0 = NULL * X1 = NULL * X2 = ps_strings * X30 (LR) = 0 * X29 (FP) = 0 */ ENTRY_NP(_rtld_start) mov x24, x2 /* save ps_strings */ adrp x1, :got:_DYNAMIC /* load _DYNAMIC offset from GOT */ ldr x1, [x1, #:got_lo12:_DYNAMIC] adrp x0, _DYNAMIC /* get &_DYNAMIC */ add x0, x0, #:lo12:_DYNAMIC sub x25, x0, x1 /* relocbase = &_DYNAMIC - GOT:_DYNAMIC */ mov x1, x25 /* pass as 2nd argument */ bl _C_LABEL(_rtld_relocate_nonplt_self) sub sp, sp, #16 /* reserve space for returns */ mov x0, sp /* pointer to reserved space */ mov x1, x25 /* pass relocbase */ bl _C_LABEL(_rtld) mov x17, x0 /* save entry point */ ldp x0, x1, [sp], #16 /* pop cleanup & obj_main */ mov x2, x24 /* restore ps_strings */ br x17 /* call saved entry point */ END(_rtld_start) /* * Upon entry from plt0 entry: * * SP+0 = &PLTGOT[n + 3] * SP+8 = return addr * X16 = &PLTGOT[2] */ ENTRY_NP(_rtld_bind_start) ldr x9, [sp] /* x9 = &PLTGOT[n+3] */ /* save x0-x8 for arguments */ stp x0, x1, [sp, #-16]! stp x2, x3, [sp, #-16]! stp x4, x5, [sp, #-16]! stp x6, x7, [sp, #-16]! stp x8, xzr, [sp, #-16]! /* save q0-q7 for arguments */ stp q0, q1, [sp, #-32]! stp q2, q3, [sp, #-32]! stp q4, q5, [sp, #-32]! stp q6, q7, [sp, #-32]! ldr x0, [x16, #-8] /* x0 = PLTGOT[1] */ sub x1, x9, x16 /* x1 = &PLTGOT[n+3] - &PLTGOT[1] = offset+8 */ sub x1, x1, #8 /* x1 = offset */ lsr x1, x1, #3 /* x1 /= sizeof(void *) */ bl _C_LABEL(_rtld_bind) mov x17, x0 /* save result */ /* restore q0-q7 for arguments */ ldp q6, q7, [sp], #32 ldp q4, q5, [sp], #32 ldp q2, q3, [sp], #32 ldp q0, q1, [sp], #32 /* restore x0-x8 for arguments */ ldp x8, xzr, [sp], #16 ldp x6, x7, [sp], #16 ldp x4, x5, [sp], #16 ldp x2, x3, [sp], #16 ldp x0, x1, [sp], #16 ldp xzr, lr, [sp], #16 /* restore original lr pushed by plt0 */ br x17 /* call bound function */ END(_rtld_bind_start) /* * Entry points used by _rtld_tlsdesc_fill. They will be passed in x0 * a pointer to: * * struct rel_tlsdesc { * uint64_t resolver_fnc; * uint64_t resolver_arg; * }; * * They are called with nonstandard calling convention and must * preserve all registers except x0. */ /* * uint64_t@x0 * _rtld_tlsdesc_static(struct rel_tlsdesc *rel_tlsdesc@x0); * * Resolver function for TLS symbols resolved at load time. * * rel_tlsdesc->resolver_arg is the offset of the static * thread-local storage region, relative to the start of the TCB. * * Nonstandard calling convention: Must preserve all registers * except x0. */ ENTRY(_rtld_tlsdesc_static) .cfi_startproc ldr x0, [x0, #8] /* x0 := tcboffset */ ret /* return x0 = tcboffset */ .cfi_endproc END(_rtld_tlsdesc_static) /* * uint64_t@x0 * _rtld_tlsdesc_undef(struct rel_tlsdesc *rel_tlsdesc@x0); * * Resolver function for weak and undefined TLS symbols. * * rel_tlsdesc->resolver_arg is the Elf_Rela rela->r_addend. * * Nonstandard calling convention: Must preserve all registers * except x0. */ ENTRY(_rtld_tlsdesc_undef) .cfi_startproc str x1, [sp, #-16]! /* save x1 on stack */ .cfi_adjust_cfa_offset 16 mrs x1, tpidr_el0 /* x1 := current thread tcb */ ldr x0, [x0, #8] /* x0 := rela->r_addend */ sub x0, x0, x1 /* x0 := rela->r_addend - tcb */ ldr x1, [sp], #16 /* restore x1 from stack */ .cfi_adjust_cfa_offset -16 .cfi_endproc ret /* return x0 = rela->r_addend - tcb */ END(_rtld_tlsdesc_undef) /* * uint64_t@x0 * _rtld_tlsdesc_dynamic(struct rel_tlsdesc *tlsdesc@x0); * * Resolver function for TLS symbols from dlopen(). * * rel_tlsdesc->resolver_arg is a pointer to a struct tls_data * object allocated during relocation. * * Nonstandard calling convention: Must preserve all registers * except x0. */ ENTRY(_rtld_tlsdesc_dynamic) .cfi_startproc /* Save registers used in fast path */ stp x1, x2, [sp, #(-2 * 16)]! stp x3, x4, [sp, #(1 * 16)] .cfi_adjust_cfa_offset 2 * 16 .cfi_rel_offset x1, 0 .cfi_rel_offset x2, 8 .cfi_rel_offset x3, 16 .cfi_rel_offset x4, 24 /* Try for the fast path -- inlined version of __tls_get_addr. */ ldr x1, [x0, #8] /* x1 := tlsdesc (struct tls_data *) */ mrs x4, tpidr_el0 /* x4 := tcb */ ldr x0, [x4] /* x0 := dtv = tcb->tcb_dtv */ ldr x3, [x0, #-8] /* x3 := max = DTV_MAX_INDEX(dtv) */ ldr x2, [x1, #0] /* x2 := idx = tlsdesc->td_tlsindex */ cmp x2, x3 b.gt 1f /* Slow path if idx > max */ ldr x3, [x0, x2, lsl #3] /* x3 := dtv[idx] */ cbz x3, 1f /* Slow path if dtv[idx] is null */ /* * Fast path * * return (dtv[tlsdesc->td_tlsindex] + tlsdesc->td_tlsoffs - tcb) */ ldr x2, [x1, #8] /* x2 := offs = tlsdesc->td_tlsoffs */ add x2, x2, x3 /* x2 := addr = dtv[idx] + offs */ sub x0, x2, x4 /* x0 := addr - tcb /* Restore fast path registers and return */ ldp x3, x4, [sp, #(1 * 16)] ldp x1, x2, [sp], #(2 * 16) .cfi_adjust_cfa_offset -2 * 16 ret /* return x0 = addr - tcb */ /* * Slow path * * return _rtld_tls_get_addr(tp, tlsdesc->td_tlsindex, * tlsdesc->td_tlsoffs); * */ 1: /* Save all integer registers */ stp x29, x30, [sp, #-(8 * 16)]! .cfi_adjust_cfa_offset 8 * 16 .cfi_rel_offset x29, 0 .cfi_rel_offset x30, 8 stp x5, x6, [sp, #(1 * 16)] stp x7, x8, [sp, #(2 * 16)] stp x9, x10, [sp, #(3 * 16)] stp x11, x12, [sp, #(4 * 16)] stp x13, x14, [sp, #(5 * 16)] stp x15, x16, [sp, #(6 * 16)] stp x17, x18, [sp, #(7 * 16)] .cfi_rel_offset x5, 16 .cfi_rel_offset x6, 24 .cfi_rel_offset x7, 32 .cfi_rel_offset x8, 40 .cfi_rel_offset x9, 48 .cfi_rel_offset x10, 56 .cfi_rel_offset x11, 64 .cfi_rel_offset x12, 72 .cfi_rel_offset x13, 80 .cfi_rel_offset x14, 88 .cfi_rel_offset x15, 96 .cfi_rel_offset x16, 104 .cfi_rel_offset x17, 112 .cfi_rel_offset x18, 120 /* Find the tls offset */ mov x0, x4 /* x0 := tcb */ mov x3, x1 /* x3 := tlsdesc */ ldr x1, [x3, #0] /* x1 := idx = tlsdesc->td_tlsindex */ ldr x2, [x3, #8] /* x2 := offs = tlsdesc->td_tlsoffs */ bl _rtld_tls_get_addr /* x0 := addr = _rtld_tls_get_addr(tcb, * idx, offs) */ mrs x1, tpidr_el0 /* x1 := tcb */ sub x0, x0, x1 /* x0 := addr - tcb */ /* Restore slow path registers */ ldp x17, x18, [sp, #(7 * 16)] ldp x15, x16, [sp, #(6 * 16)] ldp x13, x14, [sp, #(5 * 16)] ldp x11, x12, [sp, #(4 * 16)] ldp x9, x10, [sp, #(3 * 16)] ldp x7, x8, [sp, #(2 * 16)] ldp x5, x6, [sp, #(1 * 16)] ldp x29, x30, [sp], #(8 * 16) .cfi_adjust_cfa_offset -8 * 16 .cfi_restore x29 .cfi_restore x30 /* Restore fast path registers and return */ ldp x3, x4, [sp, #16] ldp x1, x2, [sp], #(2 * 16) .cfi_adjust_cfa_offset -2 * 16 .cfi_endproc ret /* return x0 = addr - tcb */ END(_rtld_tlsdesc_dynamic) src/libexec/ld.elf_so/arch/alpha004075500011300000175000000000001504273241000170015ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/alpha/CVS004075500011300000175000000000001504273241000174345ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/alpha/CVS/Root010064400011300000175000000000441504273241000203540ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/ld.elf_so/arch/alpha/CVS/Repository010064400011300000175000000000411504273241000216050ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/alpha src/libexec/ld.elf_so/arch/alpha/CVS/Entries010064400011300000175000000002531504273241000210440ustar00srcmastrnetbsd/Makefile.inc/1.12/Sat Jun 4 16:17:17 2005//Tnetbsd-11 /alpha_reloc.c/1.47/Fri Apr 18 19:11:44 2025//Tnetbsd-11 /rtld_start.S/1.17/Fri Apr 18 17:56:49 2025//Tnetbsd-11 D src/libexec/ld.elf_so/arch/alpha/CVS/Tag010064400011300000175000000000131522207752200201460ustar00srcmastrnetbsdTnetbsd-11 src/libexec/ld.elf_so/arch/alpha/Makefile.inc010064400011300000175000000003711025035201500212610ustar00srcmastrnetbsd# $NetBSD: Makefile.inc,v 1.12 2005/06/04 16:17:17 lukem Exp $ SRCS+= rtld_start.S alpha_reloc.c # XXX Should not be in CPPFLAGS! CPPFLAGS+= -fpic -mno-fp-regs CPPFLAGS+= -DELFSIZE=64 #CPPFLAGS+= -DRTLD_DEBUG_ALPHA LDFLAGS+= -Wl,-e,_rtld_start src/libexec/ld.elf_so/arch/alpha/alpha_reloc.c010064400011300000175000000411741500052176000214770ustar00srcmastrnetbsd/* $NetBSD: alpha_reloc.c,v 1.47 2025/04/18 19:11:44 riastradh Exp $ */ /* * Copyright (c) 2001 Wasabi Systems, Inc. * All rights reserved. * * Written by Jason R. Thorpe for Wasabi Systems, Inc. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed for the NetBSD Project by * Wasabi Systems, Inc. * 4. The name of Wasabi Systems, Inc. may not be used to endorse * or promote products derived from this software without specific prior * written permission. * * THIS SOFTWARE IS PROVIDED BY WASABI SYSTEMS, INC. ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL WASABI SYSTEMS, INC * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ /* * Copyright 1996, 1997, 1998, 1999 John D. Polstra. * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ #include #ifndef lint __RCSID("$NetBSD: alpha_reloc.c,v 1.47 2025/04/18 19:11:44 riastradh Exp $"); #endif /* not lint */ #include #include #include #include "rtld.h" #include "debug.h" #ifdef RTLD_DEBUG_ALPHA #define adbg(x) xprintf x #else #define adbg(x) /* nothing */ #endif void _rtld_bind_start_secureplt(void); void _rtld_bind_start(void); void _rtld_bind_start_old(void); void _rtld_relocate_nonplt_self(Elf_Dyn *, Elf_Addr); caddr_t _rtld_bind(const Obj_Entry *, Elf_Addr); static inline int _rtld_relocate_plt_object(const Obj_Entry *, const Elf_Rela *, Elf_Addr *); void _rtld_setup_pltgot(const Obj_Entry *obj) { uint32_t word0; /* * If we're using Alpha secureplt, the PLTGOT points to the * .got.plt section. Just fill in the rtld binding stub and * we're done -- we're not writing to instruction memory, so no * imb needed. */ if (obj->secureplt) { obj->pltgot[0] = (Elf_Addr) _rtld_bind_start_secureplt; obj->pltgot[1] = (Elf_Addr) obj; return; } /* * The non-secureplt PLTGOT on the Alpha looks like this: * * PLT HEADER * . * . 32 bytes * . * PLT ENTRY #0 * . * . 12 bytes * . * PLT ENTRY #1 * . * . 12 bytes * . * etc. * * The old-format entries look like (displacements filled in * by the linker): * * ldah $28, 0($31) # 0x279f0000 * lda $28, 0($28) # 0x239c0000 * br $31, plt0 # 0xc3e00000 * * The new-format entries look like: * * br $28, plt0 # 0xc3800000 * # 0x00000000 * # 0x00000000 * * What we do is fetch the first PLT entry and check to * see the first word of it matches the first word of the * old format. If so, we use a binding routine that can * handle the old format, otherwise we use a binding routine * that handles the new format. * * Note that this is done on a per-object basis, we can mix * and match shared objects build with both the old and new * linker. */ word0 = *(uint32_t *)(((char *) obj->pltgot) + 32); if ((word0 & 0xffff0000) == 0x279f0000) { /* Old PLT entry format. */ adbg(("ALPHA: object %p has old PLT format\n", obj)); obj->pltgot[2] = (Elf_Addr) &_rtld_bind_start_old; obj->pltgot[3] = (Elf_Addr) obj; } else { /* New PLT entry format. */ adbg(("ALPHA: object %p has new PLT format\n", obj)); obj->pltgot[2] = (Elf_Addr) &_rtld_bind_start; obj->pltgot[3] = (Elf_Addr) obj; } __asm volatile("imb"); } /* * It is possible for the compiler to emit relocations for unaligned data. * We handle this situation with these inlines. */ #define RELOC_ALIGNED_P(x) \ (((uintptr_t)(x) & (sizeof(void *) - 1)) == 0) static inline Elf_Addr load_ptr(void *where) { Elf_Addr res; memcpy(&res, where, sizeof(res)); return (res); } static inline void store_ptr(void *where, Elf_Addr val) { memcpy(where, &val, sizeof(val)); } void _rtld_relocate_nonplt_self(Elf_Dyn *dynp, Elf_Addr relocbase) { const Elf_Rela *rela = 0, *relalim; Elf_Addr relasz = 0; Elf_Addr *where; for (; dynp->d_tag != DT_NULL; dynp++) { switch (dynp->d_tag) { case DT_RELA: rela = (const Elf_Rela *)(relocbase + dynp->d_un.d_ptr); break; case DT_RELASZ: relasz = dynp->d_un.d_val; break; } } relalim = (const Elf_Rela *)((const uint8_t *)rela + relasz); for (; rela < relalim; rela++) { where = (Elf_Addr *)(relocbase + rela->r_offset); /* XXX For some reason I see a few GLOB_DAT relocs here. */ *where += (Elf_Addr)relocbase; } } int _rtld_relocate_nonplt_objects(Obj_Entry *obj) { const Elf_Rela *rela; Elf_Addr target = -1; const Elf_Sym *def = NULL; const Obj_Entry *defobj = NULL; unsigned long last_symnum = ULONG_MAX; for (rela = obj->rela; rela < obj->relalim; rela++) { Elf_Addr *where; Elf_Addr tmp; unsigned long symnum = ELF_R_SYM(rela->r_info); where = (Elf_Addr *)(obj->relocbase + rela->r_offset); switch (ELF_R_TYPE(rela->r_info)) { case R_TYPE(REFQUAD): case R_TYPE(GLOB_DAT): case R_TYPE(TPREL64): case R_TYPE(DTPMOD64): case R_TYPE(DTPREL64): if (last_symnum != symnum) { last_symnum = symnum; def = _rtld_find_symdef(symnum, obj, &defobj, false); if (def == NULL) return -1; } break; default: break; } switch (ELF_R_TYPE(rela->r_info)) { case R_TYPE(NONE): break; case R_TYPE(REFQUAD): case R_TYPE(GLOB_DAT): target = (Elf_Addr)(defobj->relocbase + def->st_value); tmp = target + rela->r_addend; if (__predict_true(RELOC_ALIGNED_P(where))) { if (*where != tmp) *where = tmp; } else { if (load_ptr(where) != tmp) store_ptr(where, tmp); } rdbg(("REFQUAD/GLOB_DAT %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)tmp, defobj->path)); break; case R_TYPE(RELATIVE): if (__predict_true(RELOC_ALIGNED_P(where))) *where += (Elf_Addr)obj->relocbase; else store_ptr(where, load_ptr(where) + (Elf_Addr)obj->relocbase); rdbg(("RELATIVE in %s --> %p", obj->path, (void *)*where)); break; case R_TYPE(COPY): /* * These are deferred until all other relocations have * been done. All we do here is make sure that the * COPY relocation is not in a shared library. They * are allowed only in executable files. */ if (obj->isdynamic) { _rtld_error( "%s: Unexpected R_COPY relocation in shared library", obj->path); return -1; } rdbg(("COPY (avoid in main)")); break; case R_TYPE(TPREL64): if (!defobj->tls_static && _rtld_tls_offset_allocate(__UNCONST(defobj))) return -1; tmp = (Elf64_Addr)(def->st_value + sizeof(struct tls_tcb) + defobj->tlsoffset + rela->r_addend); if (__predict_true(RELOC_ALIGNED_P(where))) *where = tmp; else store_ptr(where, tmp); rdbg(("TPREL64 %s in %s --> %p", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where)); break; case R_TYPE(DTPMOD64): tmp = (Elf64_Addr)defobj->tlsindex; if (__predict_true(RELOC_ALIGNED_P(where))) *where = tmp; else store_ptr(where, tmp); rdbg(("DTPMOD64 %s in %s --> %p", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where)); break; case R_TYPE(DTPREL64): tmp = (Elf64_Addr)(def->st_value + rela->r_addend); if (__predict_true(RELOC_ALIGNED_P(where))) *where = tmp; else store_ptr(where, tmp); rdbg(("DTPREL64 %s in %s --> %p", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where)); break; default: rdbg(("sym = %lu, type = %lu, offset = %p, " "addend = %p, contents = %p, symbol = %s", (u_long)ELF_R_SYM(rela->r_info), (u_long)ELF_R_TYPE(rela->r_info), (void *)rela->r_offset, (void *)rela->r_addend, (void *)load_ptr(where), obj->strtab + obj->symtab[symnum].st_name)); _rtld_error("%s: Unsupported relocation type %ld " "in non-PLT relocations", obj->path, (u_long) ELF_R_TYPE(rela->r_info)); return -1; } } return 0; } int _rtld_relocate_plt_lazy(Obj_Entry *obj) { const Elf_Rela *rela; if (!obj->relocbase) return 0; for (rela = obj->pltrela; rela < obj->pltrelalim; rela++) { Elf_Addr *where = (Elf_Addr *)(obj->relocbase + rela->r_offset); assert(ELF_R_TYPE(rela->r_info) == R_TYPE(JMP_SLOT)); /* Just relocate the GOT slots pointing into the PLT */ *where += (Elf_Addr)obj->relocbase; rdbg(("fixup !main in %s --> %p", obj->path, (void *)*where)); } return 0; } static inline int _rtld_relocate_plt_object(const Obj_Entry *obj, const Elf_Rela *rela, Elf_Addr *tp) { Elf_Addr *where = (Elf_Addr *)(obj->relocbase + rela->r_offset); Elf_Addr new_value; const Elf_Sym *def; const Obj_Entry *defobj; Elf_Addr stubaddr; unsigned long info = rela->r_info; assert(ELF_R_TYPE(info) == R_TYPE(JMP_SLOT)); def = _rtld_find_plt_symdef(ELF_R_SYM(info), obj, &defobj, tp != NULL); if (__predict_false(def == NULL)) return -1; if (__predict_false(def == &_rtld_sym_zero)) return 0; if (ELF_ST_TYPE(def->st_info) == STT_GNU_IFUNC) { if (tp == NULL) return 0; new_value = _rtld_resolve_ifunc(defobj, def); } else { new_value = (Elf_Addr)(defobj->relocbase + def->st_value); } rdbg(("bind now/fixup in %s --> old=%p new=%p", defobj->strtab + def->st_name, (void *)*where, (void *)new_value)); if ((stubaddr = *where) != new_value) { int64_t delta, idisp; uint32_t insn[3], *stubptr; int insncnt; Elf_Addr pc; /* Point this GOT entry at the target. */ *where = new_value; /* * Alpha shared objects may have multiple GOTs, each * of which may point to this entry in the PLT. But, * we only have a reference to the first GOT entry which * points to this PLT entry. In order to avoid having to * re-bind this call every time a non-first GOT entry is * used, we will attempt to patch up the PLT entry to * reference the target, rather than the binder. * * When the PLT stub gets control, PV contains the address * of the PLT entry. Each PLT entry has room for 3 insns. * If the displacement of the target from PV fits in a signed * 32-bit integer, we can simply add it to PV. Otherwise, * we must load the GOT entry itself into PV. * * Note if the shared object uses the old PLT format, then * we cannot patch up the PLT safely, and so we skip it * in that case[*]. And if the shared object has a read-only * secureplt, then we also skip it. * * [*] Actually, if we're not doing lazy-binding, then * we *can* (and do) patch up this PLT entry; the PLTGOT * thunk won't yet point to any binder entry point, and * so this test will fail as it would for the new PLT * entry format. */ if (obj->secureplt) { rdbg((" secureplt format")); goto out; } if (obj->pltgot[2] == (Elf_Addr) &_rtld_bind_start_old) { rdbg((" old PLT format")); goto out; } delta = new_value - stubaddr; rdbg((" stubaddr=%p, where-stubaddr=%ld, delta=%ld", (void *)stubaddr, (long)where - (long)stubaddr, (long)delta)); insncnt = 0; if ((int32_t)delta == delta) { /* * We can adjust PV with an LDA, LDAH sequence. * * First, build an LDA insn to adjust the low 16 * bits. */ insn[insncnt++] = 0x08 << 26 | 27 << 21 | 27 << 16 | (delta & 0xffff); rdbg((" LDA $27,%d($27)", (int16_t)delta)); /* * Adjust the delta to account for the effects of * the LDA, including sign-extension. */ delta -= (int16_t)delta; if (delta != 0) { /* * Build an LDAH instruction to adjust the * high 16 bits. */ insn[insncnt++] = 0x09 << 26 | 27 << 21 | 27 << 16 | ((delta >> 16) & 0xffff); rdbg((" LDAH $27,%d($27)", (int16_t)(delta >> 16))); } } else { int64_t dhigh; /* We must load the GOT entry. */ delta = (Elf_Addr)where - stubaddr; /* * If the GOT entry is too far away from the PLT * entry, then we can't patch up the PLT entry. * This PLT entry will have to be bound for each * GOT entry except for the first one. This program * will still run, albeit very slowly. It is very * unlikely that this case will ever happen in * practice. */ if ((int32_t)delta != delta) { rdbg((" PLT stub too far from GOT to relocate")); goto out; } dhigh = delta - (int16_t)delta; if (dhigh != 0) { /* * Build an LDAH instruction to adjust the * high 16 bits. */ insn[insncnt++] = 0x09 << 26 | 27 << 21 | 27 << 16 | ((dhigh >> 16) & 0xffff); rdbg((" LDAH $27,%d($27)", (int16_t)(dhigh >> 16))); } /* Build an LDQ to load the GOT entry. */ insn[insncnt++] = 0x29 << 26 | 27 << 21 | 27 << 16 | (delta & 0xffff); rdbg((" LDQ $27,%d($27)", (int16_t)delta)); } /* * Now, build a JMP or BR insn to jump to the target. If * the displacement fits in a sign-extended 21-bit field, * we can use the more efficient BR insn. Otherwise, we * have to jump indirect through PV. */ pc = stubaddr + (4 * (insncnt + 1)); idisp = (int64_t)(new_value - pc) >> 2; if (-0x100000 <= idisp && idisp < 0x100000) { insn[insncnt++] = 0x30 << 26 | 31 << 21 | (idisp & 0x1fffff); rdbg((" BR $31,%p", (void *)new_value)); } else { insn[insncnt++] = 0x1a << 26 | 31 << 21 | 27 << 16 | (idisp & 0x3fff); rdbg((" JMP $31,($27),%d", (int)(idisp & 0x3fff))); } /* * Fill in the tail of the PLT entry first, for reentrancy. * Until we have overwritten the first insn (an unconditional * branch), the remaining insns have no effect. */ stubptr = (uint32_t *)stubaddr; while (insncnt > 1) { insncnt--; stubptr[insncnt] = insn[insncnt]; } /* * Commit the tail of the insn sequence to memory * before overwriting the first insn. */ __asm volatile("wmb" ::: "memory"); stubptr[0] = insn[0]; /* * I-stream will be sync'd when we either return from * the binder (lazy bind case) or when the PLTGOT thunk * is patched up (bind-now case). */ } out: if (tp) *tp = new_value; return 0; } caddr_t _rtld_bind(const Obj_Entry *obj, Elf_Addr reloff) { const Elf_Rela *rela = (const Elf_Rela *)((const uint8_t *)obj->pltrela + reloff); Elf_Addr result = 0; /* XXX gcc */ int err; _rtld_shared_enter(); err = _rtld_relocate_plt_object(obj, rela, &result); if (err) _rtld_die(); _rtld_shared_exit(); return (caddr_t)result; } int _rtld_relocate_plt_objects(const Obj_Entry *obj) { const Elf_Rela *rela; for (rela = obj->pltrela; rela < obj->pltrelalim; rela++) if (_rtld_relocate_plt_object(obj, rela, NULL) < 0) return -1; return 0; } src/libexec/ld.elf_so/arch/alpha/rtld_start.S010064400011300000175000000207161500051114100213570ustar00srcmastrnetbsd/* $NetBSD: rtld_start.S,v 1.17 2025/04/18 17:56:49 riastradh Exp $ */ /* * Copyright 1996 Matt Thomas * Portions copyright 2002 Charles M. Hannum * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ #include /* * Note: we can call ourselves LEAF even though we use callee-saved * registers because we're the root of the call graph. */ LEAF_NOPROFILE(_rtld_start, 0) .set noreorder br pv, 1f 1: LDGP(pv) /* * Relocate ourself. */ br s2, 2f /* get our PC */ 2: ldiq s3, 2b /* get where the linker thought we were */ subq s2, s3, a1 /* relocbase */ lda t5, _DYNAMIC addq a1, t5, a0 /* &_DYNAMIC */ /* Squirrel away ps_strings. */ mov a3, s0 bsr ra, _rtld_relocate_nonplt_self LDGP(ra) /* * Allocate space on the stack for the cleanup and obj_main * entries that _rtld() will provide for us. */ lda sp, -16(sp) subq s2, s3, a1 /* relocbase */ mov sp, a0 /* sp */ CALL(_rtld) /* v0 = _rtld(sp, relocbase); */ ldq a1, 0(sp) /* cleanup */ ldq a2, 8(sp) /* obj_main */ lda sp, 16(sp) /* pop stack */ mov sp, a0 /* stack pointer */ mov s0, a3 /* ps_strings */ mov v0, pv /* set up PV for entry point */ jsr ra, (v0), 0 /* (*_start)(sp, cleanup, obj, ps_strings); */ ldgp gp, 0(ra) CALL(exit) halt END(_rtld_start) #define RTLD_BIND_START_PROLOGUE \ /* at_reg already used by PLT code. */ \ .set noat ; \ \ /* \ * Allocate stack frame and preserve all registers that the \ * caller would have normally saved themselves. \ */ \ lda sp, -168(sp) ; \ stq ra, 0(sp) ; \ stq v0, 8(sp) ; \ stq t0, 16(sp) /* XXX t0-t7 necessary? */ ; \ stq t1, 24(sp) ; \ stq t2, 32(sp) ; \ stq t3, 40(sp) ; \ stq t4, 48(sp) ; \ stq t5, 56(sp) ; \ stq t6, 64(sp) ; \ stq t7, 72(sp) ; \ stq a0, 80(sp) ; \ stq a1, 88(sp) ; \ stq a2, 96(sp) ; \ stq a3, 104(sp) ; \ stq a4, 112(sp) ; \ stq a5, 120(sp) ; \ stq t8, 128(sp) /* XXX t8-t11 necessary? */ ; \ stq t9, 136(sp) ; \ stq t10, 144(sp) ; \ stq t11, 152(sp) ; \ stq gp, 160(sp) ; \ \ /* \ * Load our global pointer. Note, can't use pv, since it is \ * already used by the PLT code. \ */ \ br t0, 1f ; \ 1: LDGP(t0) #define RTLD_BIND_START_EPILOGUE(imb) \ /* Move the destination address into position. */ \ mov v0, pv ; \ \ /* Restore program registers. */ \ ldq ra, 0(sp) ; \ ldq v0, 8(sp) ; \ ldq t0, 16(sp) ; \ ldq t1, 24(sp) ; \ ldq t2, 32(sp) ; \ ldq t3, 40(sp) ; \ ldq t4, 48(sp) ; \ ldq t5, 56(sp) ; \ ldq t6, 64(sp) ; \ ldq t7, 72(sp) ; \ ldq a0, 80(sp) ; \ ldq a1, 88(sp) ; \ ldq a2, 96(sp) ; \ ldq a3, 104(sp) ; \ ldq a4, 112(sp) ; \ ldq a5, 120(sp) ; \ ldq t8, 128(sp) ; \ ldq t9, 136(sp) ; \ ldq t10, 144(sp) ; \ ldq t11, 152(sp) ; \ ldq gp, 160(sp) ; \ /* XXX LDGP? */ \ \ /* \ * We've patched the PLT; sync the I-stream. \ */ \ imb ; \ \ /* Pop the stack frame and turn control to the destination. */ \ lda sp, 168(sp) ; \ jmp zero, (pv) /* * _rtld_bind_start_secureplt(_rtld_bind_start_secureplt@pv, obj@at, * (sizeof(Elf_Rela)*index)@t11) * * Lazy binding entry point, called via PLT with read-only * secureplt, when DT_ALPHA_PLTRO is set. The PLT itself looks * something like this: * * _PROCEDURE_LINKAGE_TABLE_: * subq pv, at, t11 // t11 := pv - ent0 = 4*index * s4subq t11, t11, t11 // t11 := 12*index * addq t11, t11, t11 // t11 := 24*index * // = sizeof(Elf_Rela)*index * ldah at, ...(at) // at := PLTGOT * lda at, ...(at) * ldq pv, 0(at) // pv := PLTGOT[0] * // = _rtld_bind_start_secureplt * ldq at, 8(at) // at := PLTGOT[1] * // = obj * jmp (pv) * 0: br at, _PROCEDURE_LINKAGE_TABLE_ // at := ent0 * ent0: br 0b // pv - ent0 = 0 = 4*index * ent1: br 0b // pv - ent0 = 4 = 4*index * ent2: br 0b // pv - ent0 = 8 = 4*index * ... */ NESTED_NOPROFILE(_rtld_bind_start_secureplt, 0, 168, ra, 0, 0) RTLD_BIND_START_PROLOGUE /* Set up the arguments for _rtld_bind. */ mov at_reg, a0 mov t11, a1 CALL(_rtld_bind) RTLD_BIND_START_EPILOGUE(/* no text writes, so no imb */) END(_rtld_bind_start_secureplt) /* * _rtld_bind_start(_rtld_bind_start@pv, &PLTGOT[2]@pv, * (ent0 + 4*(3*index + 1))@at) * * Lazy binding entry point, called via PLT with read/write * non-secureplt, when DT_ALPHA_PLTRO is not set. The PLT itself * looks something like this at program startup, with PLTGOT (an * array of 64-bit Elf_Addr) pointing at _PROCEDURE_LINKAGE_TABLE_ * and PLTGOT[2] and PLTGOT[3] initialized by _rtld_setup_pltgot: * * _PROCEDURE_LINKAGE_TABLE_: * br pv, .Lref // pv := .Lref * .Lref: ldq pv, 12(pv) // pv := PLTGOT[2] * = _rtld_bind_start * unop // no-op for alignment * jmp pv, (pv) // pv := &PLTGOT[2] * .qword (_rtld_bind_start) // PLTGOT[2] * .qword (object pointer) // PLTGOT[3] * ent0: br at, _PROCEDURE_LINKAGE_TABLE_ * unop // space for adjusted stub * unop // space for adjusted stub * ent1: br at, _PROCEDURE_LINKAGE_TABLE_ * unop * unop * ent2: br at, _PROCEDURE_LINKAGE_TABLE_ * unop * unop * ... * * Note: Distance from &PLTGOT[2] (pv) to ent[0] + 4 (at) is 20 * bytes, and each ent[index] + 4 (at) after that is separated by * 3 instructions, i.e., 12 bytes. */ NESTED_NOPROFILE(_rtld_bind_start, 0, 168, ra, 0, 0) RTLD_BIND_START_PROLOGUE /* Set up the arguments for _rtld_bind. */ subq at_reg, pv, a1 /* calculate offset of reloc entry */ ldq a0, 8(pv) /* object structure */ subq a1, 20, a1 /* = (at - pv - 20) / 12 * 24 */ addq a1, a1, a1 CALL(_rtld_bind) RTLD_BIND_START_EPILOGUE(imb) END(_rtld_bind_start) /* * _rtld_bind_start_old(&PLTGOT[2]@pv, (sizeof(Elf_Rela)*index)@at) * * Lazy binding entry point, called via PLT. This version is for * the old PLT entry format, for which the PLT looks something * like this at program startup, with PLTGOT (an array of 64-bit * Elf_Addr) pointing at _PROCEDURE_LINKAGE_TABLE_, and PLTGOT[2] * and PLTGOT[3] initialized by _rtld_setup_pltgot: * * _PROCEDURE_LINKAGE_TABLE_: * br pv, 1f // pv := .Lref * .Lref: ldq pv, 12(pv) // pv := PLTGOT[2] * = _rtld_bind_start * unop // no-op for alignment * jmp pv, (pv) // pv := &PLTGOT[2] * .qword (_rtld_bind_start) // PLTGOT[2] * .qword (object pointer) // PLTGOT[3] * ent0: ldah at, 0 // at := 24*0 * lda at, 0(at) // = sizeof(Elf_Rela)*index * br _PROCEDURE_LINKAGE_TABLE_ * ent1: ldah at, 0 // at := 24*1 * lda at, 24(at) // = sizeof(Elf_Rela)*index * br _PROCEDURE_LINKAGE_TABLE_ * ent3: ldah at, 0 // at := 24*2 * lda at, 48(at) // = sizeof(Elf_Rela)*index * br _PROCEDURE_LINKAGE_TABLE_ * ... */ NESTED_NOPROFILE(_rtld_bind_start_old, 0, 168, ra, 0, 0) RTLD_BIND_START_PROLOGUE /* Set up the arguments for _rtld_bind. */ ldq a0, 8(pv) /* object structure */ mov at_reg, a1 /* offset of reloc entry */ CALL(_rtld_bind) RTLD_BIND_START_EPILOGUE(imb) END(_rtld_bind_start_old) src/libexec/ld.elf_so/arch/arm004075500011300000175000000000001504273241000164735ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/arm/CVS004075500011300000175000000000001504273241000171265ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/arm/CVS/Root010064400011300000175000000000441504273241000200460ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/ld.elf_so/arch/arm/CVS/Repository010064400011300000175000000000371504273241000213040ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/arm src/libexec/ld.elf_so/arch/arm/CVS/Entries010064400011300000175000000003361504273241000205400ustar00srcmastrnetbsd/Makefile.inc/1.22/Thu Dec 27 18:58:14 2018//Tnetbsd-11 /find_exidx.c/1.4/Sun Aug 10 23:35:27 2014//Tnetbsd-11 /mdreloc.c/1.48/Sat Aug 3 21:59:58 2024//Tnetbsd-11 /rtld_start.S/1.12/Tue Dec 3 00:19:56 2013//Tnetbsd-11 D src/libexec/ld.elf_so/arch/arm/CVS/Tag010064400011300000175000000000131522207752200176400ustar00srcmastrnetbsdTnetbsd-11 src/libexec/ld.elf_so/arch/arm/Makefile.inc010064400011300000175000000006241341122030600207530ustar00srcmastrnetbsd# $NetBSD: Makefile.inc,v 1.22 2018/12/27 18:58:14 christos Exp $ SRCS+= rtld_start.S mdreloc.c #CPUFLAGS.rtld_start.S+= -marm # XXX Should not be in CPPFLAGS! CPPFLAGS+= -fpic CPPFLAGS+= -DELFSIZE=32 CPPFLAGS+= -DRTLD_COMMON_CALL_IFUNC_REL .if !empty(LDELFSO_MACHINE_ARCH:Mearm*) CPPFLAGS+= -DELF_NOTE_MARCH_DESC=\"${LDELFSO_MACHINE_ARCH}\" SRCS+= find_exidx.c .endif LDFLAGS+= -Wl,-e,_rtld_start src/libexec/ld.elf_so/arch/arm/find_exidx.c010064400011300000175000000054621237200067700210510ustar00srcmastrnetbsd/*- * Copyright (c) 2013 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Matt Thomas of 3am Software Foundry. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include #ifndef lint __RCSID("$NetBSD: find_exidx.c,v 1.4 2014/08/10 23:35:27 matt Exp $"); #endif /* not lint */ #include "debug.h" #include "rtld.h" #if defined(__ARM_EABI__) && !defined(__ARM_DWARF_EH__) _Unwind_Ptr __gnu_Unwind_Find_exidx(_Unwind_Ptr pc, int * pcount) { const Obj_Entry *obj; _Unwind_Ptr start = NULL; int count = 0; dbg(("__gnu_Unwind_Find_exidx")); _rtld_shared_enter(); vaddr_t va = (vaddr_t)pc; for (obj = _rtld_objlist; obj != NULL; obj = obj->next) { /* * If the address we are looking for is inside this object, * we've found the object to inspect. */ if ((vaddr_t)obj->mapbase <= va && va < (vaddr_t)obj->mapbase + obj->mapsize) break; } /* * If we found an object and it has some exception data, we * need to see if the address matches a PT_LOAD section. */ if (obj != NULL && obj->exidx_start != NULL) { va -= (vaddr_t)obj->relocbase; const Elf_Phdr *ph = obj->phdr; const Elf_Phdr * const phlimit = ph + obj->phsize / sizeof(*ph); for (; ph < phlimit; ph++) { if (ph->p_type == PT_LOAD && ph->p_vaddr <= va && va < ph->p_vaddr + ph->p_memsz) { count = obj->exidx_sz / 8; start = obj->exidx_start; break; } } } _rtld_shared_exit(); /* * deal with the return values. */ *pcount = count; return start; } #endif src/libexec/ld.elf_so/arch/arm/mdreloc.c010064400011300000175000000216551465352413600203640ustar00srcmastrnetbsd/* $NetBSD: mdreloc.c,v 1.48 2024/08/03 21:59:58 riastradh Exp $ */ #include #ifndef lint __RCSID("$NetBSD: mdreloc.c,v 1.48 2024/08/03 21:59:58 riastradh Exp $"); #endif /* not lint */ /* * Arm (32-bit) ELF relocations. * * Reference: * * [AAELF32] ELF for the Arm Architecture, 2022Q3. Arm Ltd. * https://github.com/ARM-software/abi-aa/blob/2982a9f3b512a5bfdc9e3fea5d3b298f9165c36b/aaelf32/aaelf32.rst */ #include #include #include "debug.h" #include "rtld.h" void _rtld_bind_start(void); void _rtld_relocate_nonplt_self(Elf_Dyn *, Elf_Addr); caddr_t _rtld_bind(const Obj_Entry *, Elf_Word); void _rtld_setup_pltgot(const Obj_Entry *obj) { obj->pltgot[1] = (Elf_Addr) obj; obj->pltgot[2] = (Elf_Addr) &_rtld_bind_start; } void _rtld_relocate_nonplt_self(Elf_Dyn *dynp, Elf_Addr relocbase) { const Elf_Rel *rel = 0, *rellim; Elf_Addr relsz = 0; Elf_Addr *where; for (; dynp->d_tag != DT_NULL; dynp++) { switch (dynp->d_tag) { case DT_REL: rel = (const Elf_Rel *)(relocbase + dynp->d_un.d_ptr); break; case DT_RELSZ: relsz = dynp->d_un.d_val; break; } } rellim = (const Elf_Rel *)((const uint8_t *)rel + relsz); for (; rel < rellim; rel++) { where = (Elf_Addr *)(relocbase + rel->r_offset); *where += (Elf_Addr)relocbase; } } /* * It is possible for the compiler to emit relocations for unaligned data. * We handle this situation with these inlines. */ #define RELOC_ALIGNED_P(x) \ (((uintptr_t)(x) & (sizeof(void *) - 1)) == 0) static inline Elf_Addr load_ptr(void *where) { Elf_Addr res; memcpy(&res, where, sizeof(res)); return (res); } static inline void store_ptr(void *where, Elf_Addr val) { memcpy(where, &val, sizeof(val)); } int _rtld_relocate_nonplt_objects(Obj_Entry *obj) { const Elf_Rel *rel; const Elf_Sym *def = NULL; const Obj_Entry *defobj = NULL; unsigned long last_symnum = ULONG_MAX; for (rel = obj->rel; rel < obj->rellim; rel++) { Elf_Addr *where; Elf_Addr tmp; unsigned long symnum; where = (Elf_Addr *)(obj->relocbase + rel->r_offset); switch (ELF_R_TYPE(rel->r_info)) { case R_TYPE(PC24): /* word32 S - P + A */ case R_TYPE(ABS32): /* word32 B + S + A */ case R_TYPE(GLOB_DAT): /* word32 B + S */ case R_TYPE(TLS_DTPOFF32): case R_TYPE(TLS_DTPMOD32): case R_TYPE(TLS_TPOFF32): symnum = ELF_R_SYM(rel->r_info); if (last_symnum != symnum) { last_symnum = symnum; def = _rtld_find_symdef(symnum, obj, &defobj, false); if (def == NULL) return -1; } break; default: break; } switch (ELF_R_TYPE(rel->r_info)) { case R_TYPE(NONE): break; #if 1 /* XXX should not occur */ case R_TYPE(PC24): { /* word32 S - P + A */ Elf32_Sword addend; /* * Extract addend and sign-extend if needed. */ addend = *where; if (addend & 0x00800000) addend |= 0xff000000; tmp = (Elf_Addr)obj->relocbase + def->st_value - (Elf_Addr)where + (addend << 2); if ((tmp & 0xfe000000) != 0xfe000000 && (tmp & 0xfe000000) != 0) { _rtld_error( "%s: R_ARM_PC24 relocation @ %p to %s failed " "(displacement %ld (%#lx) out of range)", obj->path, where, obj->strtab + obj->symtab[ ELF_R_SYM(rel->r_info)].st_name, (long) tmp, (long) tmp); return -1; } tmp >>= 2; *where = (*where & 0xff000000) | (tmp & 0x00ffffff); rdbg(("PC24 %s in %s --> %p @ %p in %s", obj->strtab + obj->symtab[ELF_R_SYM(rel->r_info)] .st_name, obj->path, (void *)*where, where, defobj->path)); break; } #endif case R_TYPE(ABS32): /* word32 B + S + A */ case R_TYPE(GLOB_DAT): /* word32 B + S */ if (__predict_true(RELOC_ALIGNED_P(where))) { tmp = *where + (Elf_Addr)defobj->relocbase + def->st_value; /* Set the Thumb bit, if needed. */ if (ELF_ST_TYPE(def->st_info) == STT_ARM_TFUNC) tmp |= 1; *where = tmp; } else { tmp = load_ptr(where) + (Elf_Addr)defobj->relocbase + def->st_value; /* Set the Thumb bit, if needed. */ if (ELF_ST_TYPE(def->st_info) == STT_ARM_TFUNC) tmp |= 1; store_ptr(where, tmp); } rdbg(("ABS32/GLOB_DAT %s in %s --> %p @ %p in %s", obj->strtab + obj->symtab[ELF_R_SYM(rel->r_info)] .st_name, obj->path, (void *)tmp, where, defobj->path)); break; case R_TYPE(IRELATIVE): /* IFUNC relocations are handled in _rtld_call_ifunc */ if (obj->ifunc_remaining_nonplt == 0) obj->ifunc_remaining_nonplt = obj->rellim - rel; /* FALL-THROUGH */ case R_TYPE(RELATIVE): /* word32 B + A */ if (__predict_true(RELOC_ALIGNED_P(where))) { tmp = *where + (Elf_Addr)obj->relocbase; *where = tmp; } else { tmp = load_ptr(where) + (Elf_Addr)obj->relocbase; store_ptr(where, tmp); } rdbg(("RELATIVE in %s --> %p", obj->path, (void *)tmp)); break; case R_TYPE(COPY): /* * These are deferred until all other relocations have * been done. All we do here is make sure that the * COPY relocation is not in a shared library. They * are allowed only in executable files. */ if (obj->isdynamic) { _rtld_error( "%s: Unexpected R_COPY relocation in shared library", obj->path); return -1; } rdbg(("COPY (avoid in main)")); break; case R_TYPE(TLS_DTPOFF32): tmp = (Elf_Addr)(def->st_value); if (__predict_true(RELOC_ALIGNED_P(where))) *where = tmp; else store_ptr(where, tmp); rdbg(("TLS_DTPOFF32 %s in %s --> %p", obj->strtab + obj->symtab[ELF_R_SYM(rel->r_info)] .st_name, obj->path, (void *)tmp)); break; case R_TYPE(TLS_DTPMOD32): tmp = (Elf_Addr)(defobj->tlsindex); if (__predict_true(RELOC_ALIGNED_P(where))) *where = tmp; else store_ptr(where, tmp); rdbg(("TLS_DTPMOD32 %s in %s --> %p", obj->strtab + obj->symtab[ELF_R_SYM(rel->r_info)] .st_name, obj->path, (void *)tmp)); break; case R_TYPE(TLS_TPOFF32): if (!defobj->tls_static && _rtld_tls_offset_allocate(__UNCONST(defobj))) return -1; if (__predict_true(RELOC_ALIGNED_P(where))) tmp = *where; else tmp = load_ptr(where); tmp += (Elf_Addr)def->st_value + defobj->tlsoffset + sizeof(struct tls_tcb); if (__predict_true(RELOC_ALIGNED_P(where))) *where = tmp; else store_ptr(where, tmp); rdbg(("TLS_TPOFF32 %s in %s --> %p", obj->strtab + obj->symtab[ELF_R_SYM(rel->r_info)] .st_name, obj->path, (void *)tmp)); break; default: rdbg(("sym = %lu, type = %lu, offset = %p, " "contents = %p", (u_long)ELF_R_SYM(rel->r_info), (u_long)ELF_R_TYPE(rel->r_info), (void *)rel->r_offset, (void *)load_ptr(where))); _rtld_error("%s: Unsupported relocation type %ld " "in non-PLT relocations", obj->path, (u_long) ELF_R_TYPE(rel->r_info)); return -1; } } return 0; } int _rtld_relocate_plt_lazy(Obj_Entry *obj) { const Elf_Rel *rel; for (rel = obj->pltrellim; rel-- > obj->pltrel; ) { Elf_Addr *where = (Elf_Addr *)(obj->relocbase + rel->r_offset); assert(ELF_R_TYPE(rel->r_info) == R_TYPE(JUMP_SLOT) || ELF_R_TYPE(rel->r_info) == R_TYPE(IRELATIVE)); if (ELF_R_TYPE(rel->r_info) == R_TYPE(IRELATIVE)) obj->ifunc_remaining = obj->pltrellim - rel; /* Just relocate the GOT slots pointing into the PLT */ *where += (Elf_Addr)obj->relocbase; rdbg(("fixup !main in %s --> %p", obj->path, (void *)*where)); } return 0; } static int _rtld_relocate_plt_object(const Obj_Entry *obj, const Elf_Rel *rel, Elf_Addr *tp) { Elf_Addr *where = (Elf_Addr *)(obj->relocbase + rel->r_offset); Elf_Addr new_value; const Elf_Sym *def; const Obj_Entry *defobj; unsigned long info = rel->r_info; assert(ELF_R_TYPE(info) == R_TYPE(JUMP_SLOT)); def = _rtld_find_plt_symdef(ELF_R_SYM(info), obj, &defobj, tp != NULL); if (__predict_false(def == NULL)) return -1; if (__predict_false(def == &_rtld_sym_zero)) return 0; if (ELF_ST_TYPE(def->st_info) == STT_GNU_IFUNC) { if (tp == NULL) return 0; new_value = _rtld_resolve_ifunc(defobj, def); } else { new_value = (Elf_Addr)(defobj->relocbase + def->st_value); } /* Set the Thumb bit, if needed. */ if (ELF_ST_TYPE(def->st_info) == STT_ARM_TFUNC) new_value |= 1; rdbg(("bind now/fixup in %s --> old=%p new=%p", defobj->strtab + def->st_name, (void *)*where, (void *)new_value)); if (*where != new_value) *where = new_value; if (tp) *tp = new_value; return 0; } caddr_t _rtld_bind(const Obj_Entry *obj, Elf_Word reloff) { const Elf_Rel *rel = (const Elf_Rel *)((const uint8_t *)obj->pltrel + reloff); Elf_Addr new_value = 0; /* XXX gcc */ int err; _rtld_shared_enter(); err = _rtld_relocate_plt_object(obj, rel, &new_value); if (err) _rtld_die(); _rtld_shared_exit(); return (caddr_t)new_value; } int _rtld_relocate_plt_objects(const Obj_Entry *obj) { const Elf_Rel *rel; int err = 0; for (rel = obj->pltrel; rel < obj->pltrellim; rel++) { err = _rtld_relocate_plt_object(obj, rel, NULL); if (err) break; } return err; } src/libexec/ld.elf_so/arch/arm/rtld_start.S010064400011300000175000000061731224722165400210730ustar00srcmastrnetbsd/* $NetBSD: rtld_start.S,v 1.12 2013/12/03 00:19:56 matt Exp $ */ /*- * Copyright (c) 1998, 2002 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Matt Thomas and by Charles M. Hannum. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include RCSID("$NetBSD: rtld_start.S,v 1.12 2013/12/03 00:19:56 matt Exp $") ENTRY_NP(_rtld_start) sub sp, sp, #8 /* make room for obj_main & exit proc */ movs r4, r0 /* save ps_strings */ ldr r6, .Lgot ldr r5, .Ldynamic add r6, r6, pc /* r6 = &GOT[0]; pc = &LPIC1; */ adds r0, r6, r5 /* arg0 = &_DYNAMIC */ .LPIC1: ldr r5, [r6] /* GOT[0] = &_DYNAMIC */ subs r5, r0, r5 /* relocbase = GOT[0] - &_DYNAMIC */ movs r1, r5 /* arg1 = relocabase */ bl _rtld_relocate_nonplt_self movs r1, r5 /* relocbase */ mov r0, sp /* sp */ bl _rtld /* call the shared loader */ movs r3, r0 /* save entry point */ #ifdef __thumb__ ldr r2, [sp, #0] /* pop r2 = cleanup */ ldr r1, [sp, #4] /* pop r1 = obj_main */ add sp, sp, #8 #else ldr r2, [sp], #4 /* pop r2 = cleanup */ ldr r1, [sp], #4 /* pop r1 = obj_main */ #endif movs r0, r4 /* restore ps_strings */ RETr(r3) .align 0 .Lgot: .word _GLOBAL_OFFSET_TABLE_ - .LPIC1 .Ldynamic: .word _DYNAMIC(GOTOFF) END(_rtld_start) /* * stack[0] = RA * ip = &GOT[n+3] * lr = &GOT[2] */ ARM_ENTRY_NP(_rtld_bind_start) stmdb sp!,{r0-r4,sl,fp} /* 8 byte aligned (lr already saved) */ sub r1, ip, lr /* r1 = 4 * (n + 1) */ sub r1, r1, #4 /* r1 = 4 * n */ add r1, r1, r1 /* r1 = 8 * n */ ldr r0, [lr, #-4] /* get obj ptr from GOT[1] */ mov r4, ip /* save GOT location */ bl _rtld_bind /* Call the binder */ str r0, [r4] /* save address in GOT */ mov ip, r0 /* save new address */ ldmia sp!,{r0-r4,sl,fp,lr} /* restore the stack */ RETr(ip) /* jump to the new address */ END(_rtld_bind_start) src/libexec/ld.elf_so/arch/hppa004075500011300000175000000000001504273241000166445ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/hppa/CVS004075500011300000175000000000001504273241000172775ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/hppa/CVS/Root010064400011300000175000000000441504273241000202170ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/ld.elf_so/arch/hppa/CVS/Repository010064400011300000175000000000401504273241000214470ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/hppa src/libexec/ld.elf_so/arch/hppa/CVS/Entries010064400011300000175000000002511504273241000207050ustar00srcmastrnetbsd/Makefile.inc/1.8/Sat Sep 12 07:22:16 2009//Tnetbsd-11 /hppa_reloc.c/1.53/Mon Jul 29 13:16:19 2024//Tnetbsd-11 /rtld_start.S/1.14/Mon May 30 17:06:34 2022//Tnetbsd-11 D src/libexec/ld.elf_so/arch/hppa/CVS/Tag010064400011300000175000000000131522207752200200110ustar00srcmastrnetbsdTnetbsd-11 src/libexec/ld.elf_so/arch/hppa/Makefile.inc010064400011300000175000000004701125264605000211340ustar00srcmastrnetbsd# $NetBSD: Makefile.inc,v 1.8 2009/09/12 07:22:16 skrll Exp $ SRCS+= rtld_start.S hppa_reloc.c # XXX Should not be in CPPFLAGS! CPPFLAGS+= -fpic CPPFLAGS+= -DELFSIZE=32 #CPPFLAGS+= -DDEBUG #CPPFLAGS+= -DRTLD_DEBUG #CPPFLAGS+= -DRTLD_DEBUG_RELOC #CPPFLAGS+= -DRTLD_DEBUG_HPPA LDFLAGS+= -Wl,-e,'$$rtld_start' src/libexec/ld.elf_so/arch/hppa/hppa_reloc.c010064400011300000175000000502461465171304300212150ustar00srcmastrnetbsd/* $NetBSD: hppa_reloc.c,v 1.53 2024/07/29 13:16:19 skrll Exp $ */ /*- * Copyright (c) 2002, 2004 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Matt Fredette and Nick Hudson. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ /* * HP PA-RISC ELF relocations. * * References: * * [PAELF] Processor-Specific ELF Supplement for PA-RISC, Version * 1.5, 1998-08-20. * https://parisc.wiki.kernel.org/images-parisc/0/0e/Elf-pa-hp.pdf * https://web.archive.org/web/20240712004045/https://parisc.wiki.kernel.org/images-parisc/0/0e/Elf-pa-hp.pdf * * [PATLS] Randolph Chung, Carlos O'Donell, and John David * Anglin, `Implementing Thread Local Storage for HP PA-RISC * Linux', 2013-11-11. * http://www.parisc-linux.org/documentation/tls/hppa-tls-implementation.pdf * https://web.archive.org/web/20240722131647/http://www.parisc-linux.org/documentation/tls/hppa-tls-implementation.pdf */ #include #ifndef lint __RCSID("$NetBSD: hppa_reloc.c,v 1.53 2024/07/29 13:16:19 skrll Exp $"); #endif /* not lint */ #include #include #include #include #include "rtld.h" #include "debug.h" #ifdef RTLD_DEBUG_HPPA #define hdbg(x) xprintf x #else #define hdbg(x) /* nothing */ #endif caddr_t _rtld_bind(const Obj_Entry *, const Elf_Addr); void _rtld_bind_start(void); void __rtld_setup_hppa_pltgot(const Obj_Entry *, Elf_Addr *); void _rtld_set_dp(Elf_Addr *); /* * It is possible for the compiler to emit relocations for unaligned data. * We handle this situation with these inlines. */ #define RELOC_ALIGNED_P(x) \ (((uintptr_t)(x) & (sizeof(void *) - 1)) == 0) static inline Elf_Addr load_ptr(void *where) { if (__predict_true(RELOC_ALIGNED_P(where))) return *(Elf_Addr *)where; else { Elf_Addr res; (void)memcpy(&res, where, sizeof(res)); return res; } } static inline void store_ptr(void *where, Elf_Addr val) { if (__predict_true(RELOC_ALIGNED_P(where))) *(Elf_Addr *)where = val; else (void)memcpy(where, &val, sizeof(val)); } static __inline void fdc(void *addr) { __asm volatile("fdc %%r0(%%sr0, %0)" : : "r" (addr)); } static __inline void fic(void *addr) { __asm volatile("fic %%r0(%%sr0,%0)" : : "r" (addr)); } static __inline void sync(void) { __asm volatile("sync" : : : "memory"); } #define PLT_STUB_MAGIC1 0x00c0ffee #define PLT_STUB_MAGIC2 0xdeadbeef #define PLT_STUB_INSN1 0x0e801081 /* ldw 0(%r20), %r1 */ #define PLT_STUB_INSN2 0xe820c000 /* bv %r0(%r1) */ /* * In the runtime architecture (ABI), PLABEL function pointers are * distinguished from normal function pointers by having the next-least- * significant bit set. (This bit is referred to as the L field in HP * documentation). The $$dyncall millicode is aware of this. */ #define RTLD_MAKE_PLABEL(plabel) (((Elf_Addr)(plabel)) | (1 << 1)) #define RTLD_IS_PLABEL(addr) (((Elf_Addr)(addr)) & (1 << 1)) #define RTLD_GET_PLABEL(addr) ((hppa_plabel *) (((Elf_Addr)addr) & ~3)) /* * This is the PLABEL structure. The function PC and * shared linkage members must come first, as they are * the actual PLABEL. */ typedef struct _hppa_plabel { Elf_Addr hppa_plabel_pc; Elf_Addr hppa_plabel_sl; SLIST_ENTRY(_hppa_plabel) hppa_plabel_next; } hppa_plabel; /* * For now allocated PLABEL structures are tracked on a * singly linked list. This maybe should be revisited. */ static SLIST_HEAD(hppa_plabel_head, _hppa_plabel) hppa_plabel_list = SLIST_HEAD_INITIALIZER(hppa_plabel_list); /* * Because I'm hesitant to use NEW while relocating self, * this is a small pool of preallocated PLABELs. */ #define HPPA_PLABEL_PRE (32) static hppa_plabel hppa_plabel_pre[HPPA_PLABEL_PRE]; static int hppa_plabel_pre_next = 0; void _rtld_relocate_nonplt_self(Elf_Dyn *, Elf_Addr); int _rtld_relocate_plt_objects(const Obj_Entry *); static inline int _rtld_relocate_plt_object(const Obj_Entry *, const Elf_Rela *, Elf_Addr *); /* * This bootstraps the dynamic linker by relocating its GOT. * On the hppa, unlike on other architectures, static strings * are found through the GOT. Static strings are essential * for RTLD_DEBUG, and I suspect they're used early even when * !defined(RTLD_DEBUG), making relocating the GOT essential. * * It gets worse. Relocating the GOT doesn't mean just walking * it and adding the relocbase to all of the entries. You must * find and use the GOT relocations, since those RELA relocations * have the necessary addends - the GOT comes initialized as * zeroes. */ void _rtld_relocate_nonplt_self(Elf_Dyn *dynp, Elf_Addr relocbase) { const Elf_Rela *relafirst, *rela, *relalim; Elf_Addr relasz; void *where; Elf_Addr *pltgot; const Elf_Rela *plabel_relocs[HPPA_PLABEL_PRE]; int nplabel_relocs = 0; int i; const Elf_Sym *symtab, *sym; unsigned long symnum; hppa_plabel *plabel; /* * Process the DYNAMIC section, looking for the non-PLT relocations. */ relafirst = NULL; relasz = 0; symtab = NULL; pltgot = NULL; for (; dynp->d_tag != DT_NULL; ++dynp) { switch (dynp->d_tag) { case DT_RELA: relafirst = (const Elf_Rela *) (relocbase + dynp->d_un.d_ptr); break; case DT_RELASZ: relasz = dynp->d_un.d_val; break; case DT_SYMTAB: symtab = (const Elf_Sym *) (relocbase + dynp->d_un.d_ptr); break; case DT_PLTGOT: pltgot = (Elf_Addr *) (relocbase + dynp->d_un.d_ptr); break; } } relalim = (const Elf_Rela *)((const char *)relafirst + relasz); for (rela = relafirst; rela < relalim; rela++) { symnum = ELF_R_SYM(rela->r_info); where = (void *)(relocbase + rela->r_offset); switch (ELF_R_TYPE(rela->r_info)) { case R_TYPE(DIR32): if (symnum == 0) store_ptr(where, relocbase + rela->r_addend); else { sym = symtab + symnum; store_ptr(where, relocbase + rela->r_addend + sym->st_value); } break; case R_TYPE(PLABEL32): /* * PLABEL32 relocation processing is done in two phases * * i) local function relocations (symbol number == 0) * can be resolved immediately. * * ii) external function relocations are deferred until * we finish all other relocations so that global * data isn't accessed until all other non-PLT * relocations have been done. */ if (symnum == 0) *((Elf_Addr *)where) = relocbase + rela->r_addend; else plabel_relocs[nplabel_relocs++] = rela; break; default: break; } } assert(nplabel_relocs < HPPA_PLABEL_PRE); for (i = 0; i < nplabel_relocs; i++) { rela = plabel_relocs[i]; where = (void *)(relocbase + rela->r_offset); sym = symtab + ELF_R_SYM(rela->r_info); plabel = &hppa_plabel_pre[hppa_plabel_pre_next++]; plabel->hppa_plabel_pc = (Elf_Addr) (relocbase + sym->st_value + rela->r_addend); plabel->hppa_plabel_sl = (Elf_Addr)pltgot; SLIST_INSERT_HEAD(&hppa_plabel_list, plabel, hppa_plabel_next); *((Elf_Addr *)where) = (Elf_Addr)(RTLD_MAKE_PLABEL(plabel)); } #if defined(RTLD_DEBUG_HPPA) for (rela = relafirst; rela < relalim; rela++) { where = (void *)(relocbase + rela->r_offset); switch (ELF_R_TYPE(rela->r_info)) { case R_TYPE(DIR32): hdbg(("DIR32 rela @%p(%p) -> %p(%p)\n", (void *)rela->r_offset, (void *)where, (void *)rela->r_addend, (void *)*((Elf_Addr *)where) )); break; case R_TYPE(PLABEL32): symnum = ELF_R_SYM(rela->r_info); if (symnum == 0) { hdbg(("PLABEL rela @%p(%p) -> %p(%p)\n", (void *)rela->r_offset, (void *)where, (void *)rela->r_addend, (void *)*((Elf_Addr *)where) )); } else { sym = symtab + symnum; hdbg(("PLABEL32 rela @%p(%p), symnum=%ld(%p) -> %p(%p)\n", (void *)rela->r_offset, (void *)where, symnum, (void *)sym->st_value, (void *)rela->r_addend, (void *)*((Elf_Addr *)where) )); } break; default: hdbg(("rela XXX reloc\n")); break; } } #endif /* RTLD_DEBUG_HPPA */ } /* * This allocates a PLABEL. If called with a non-NULL def, the * plabel is for the function associated with that definition * in the defining object defobj, plus the given addend. If * called with a NULL def, the plabel is for the function at * the (unrelocated) address in addend in the object defobj. */ Elf_Addr _rtld_function_descriptor_alloc(const Obj_Entry *defobj, const Elf_Sym *def, Elf_Addr addend) { Elf_Addr func_pc, func_sl; hppa_plabel *plabel; if (def != NULL) { /* * We assume that symbols of type STT_NOTYPE * are undefined. Return NULL for these. */ if (ELF_ST_TYPE(def->st_info) == STT_NOTYPE) return (Elf_Addr)NULL; /* Otherwise assert that this symbol must be a function. */ assert(ELF_ST_TYPE(def->st_info) == STT_FUNC); func_pc = (Elf_Addr)(defobj->relocbase + def->st_value + addend); } else func_pc = (Elf_Addr)(defobj->relocbase + addend); /* * Search the existing PLABELs for one matching * this function. If there is one, return it. */ func_sl = (Elf_Addr)(defobj->pltgot); SLIST_FOREACH(plabel, &hppa_plabel_list, hppa_plabel_next) if (plabel->hppa_plabel_pc == func_pc && plabel->hppa_plabel_sl == func_sl) return RTLD_MAKE_PLABEL(plabel); /* * Once we've used up the preallocated set, we start * using NEW to allocate plabels. */ if (hppa_plabel_pre_next < HPPA_PLABEL_PRE) plabel = &hppa_plabel_pre[hppa_plabel_pre_next++]; else { plabel = NEW(hppa_plabel); if (plabel == NULL) return (Elf_Addr)-1; } /* Fill the new entry and insert it on the list. */ plabel->hppa_plabel_pc = func_pc; plabel->hppa_plabel_sl = func_sl; SLIST_INSERT_HEAD(&hppa_plabel_list, plabel, hppa_plabel_next); return RTLD_MAKE_PLABEL(plabel); } /* * If a pointer is a PLABEL, this unwraps it. */ const void * _rtld_function_descriptor_function(const void *addr) { return (RTLD_IS_PLABEL(addr) ? (const void *) RTLD_GET_PLABEL(addr)->hppa_plabel_pc : addr); } /* This sets up an object's GOT. */ void _rtld_setup_pltgot(const Obj_Entry *obj) { Elf_Word *got = obj->pltgot; assert(got[-2] == PLT_STUB_MAGIC1); assert(got[-1] == PLT_STUB_MAGIC2); __rtld_setup_hppa_pltgot(obj, got); fdc(&got[-2]); fdc(&got[-1]); fdc(&got[1]); sync(); fic(&got[-2]); fic(&got[-1]); fic(&got[1]); sync(); /* * libc makes use of %t1 (%r22) to pass errno values to __cerror. Fixup * the PLT stub to not use %r22. */ got[-7] = PLT_STUB_INSN1; got[-6] = PLT_STUB_INSN2; fdc(&got[-7]); fdc(&got[-6]); sync(); fic(&got[-7]); fic(&got[-6]); sync(); } int _rtld_relocate_nonplt_objects(Obj_Entry *obj) { const Elf_Rela *rela; const Elf_Sym *def = NULL; const Obj_Entry *defobj = NULL; unsigned long last_symnum = ULONG_MAX; /* * This will be done by the crt0 code, but make sure it's set * early so that symbols overridden by the non-pic binary * get the right DP value. */ if (obj->mainprog) { hdbg(("setting DP to %p", obj->pltgot)); _rtld_set_dp(obj->pltgot); } for (rela = obj->rela; rela < obj->relalim; rela++) { Elf_Addr *where; Elf_Addr tmp; where = (Elf_Addr *)(obj->relocbase + rela->r_offset); unsigned long symnum = ELF_R_SYM(rela->r_info); /* First, handle DIR32 and PLABEL32 without symbol. */ if (symnum == 0) { switch (ELF_R_TYPE(rela->r_info)) { default: break; case R_TYPE(DIR32): tmp = (Elf_Addr)(obj->relocbase + rela->r_addend); if (load_ptr(where) != tmp) store_ptr(where, tmp); rdbg(("DIR32 in %s --> %p", obj->path, (void *)load_ptr(where))); continue; case R_TYPE(PLABEL32): /* * This is a PLABEL for a static function, and * the dynamic linker has both allocated a PLT * entry for this function and told us where it * is. We can safely use the PLT entry as the * PLABEL because there should be no other * PLABEL reloc referencing this function. * This object should also have an IPLT * relocation to initialize the PLT entry. * * The dynamic linker should also have ensured * that the addend has the * next-least-significant bit set; the * $$dyncall millicode uses this to distinguish * a PLABEL pointer from a plain function * pointer. */ tmp = (Elf_Addr) (obj->relocbase + rela->r_addend); if (*where != tmp) *where = tmp; rdbg(("PLABEL32 in %s --> %p", obj->path, (void *)*where)); continue; } } switch (ELF_R_TYPE(rela->r_info)) { case R_TYPE(DIR32): case R_TYPE(PLABEL32): case R_TYPE(COPY): case R_TYPE(TLS_TPREL32): case R_TYPE(TLS_DTPMOD32): case R_TYPE(TLS_DTPOFF32): if (last_symnum != symnum) { last_symnum = symnum; if (ELF_R_TYPE(rela->r_info) == R_TYPE(DIR32)) { /* * DIR32 relocation against local * symbols are special... */ def = obj->symtab + symnum; defobj = obj; if (def->st_name == 0) break; } def = _rtld_find_symdef(symnum, obj, &defobj, false); if (def == NULL) return -1; } break; default: break; } switch (ELF_R_TYPE(rela->r_info)) { case R_TYPE(NONE): break; case R_TYPE(DIR32): tmp = (Elf_Addr)(defobj->relocbase + def->st_value + rela->r_addend); if (load_ptr(where) != tmp) store_ptr(where, tmp); rdbg(("DIR32 %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)load_ptr(where), defobj->path)); break; case R_TYPE(PLABEL32): tmp = _rtld_function_descriptor_alloc(defobj, def, rela->r_addend); if (tmp == (Elf_Addr)-1) return -1; if (*where != tmp) *where = tmp; rdbg(("PLABEL32 %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where, defobj->path)); break; case R_TYPE(COPY): /* * These are deferred until all other relocations have * been done. All we do here is make sure that the * COPY relocation is not in a shared library. They * are allowed only in executable files. */ if (obj->isdynamic) { _rtld_error( "%s: Unexpected R_COPY relocation in shared library", obj->path); return -1; } rdbg(("COPY (avoid in main)")); break; case R_TYPE(TLS_TPREL32): if (!defobj->tls_static && _rtld_tls_offset_allocate(__UNCONST(defobj))) return -1; *where = (Elf_Addr)(defobj->tlsoffset + def->st_value + rela->r_addend + sizeof(struct tls_tcb)); rdbg(("TPREL32 %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where, defobj->path)); break; case R_TYPE(TLS_DTPMOD32): *where = (Elf_Addr)(defobj->tlsindex); rdbg(("TLS_DTPMOD32 %s in %s --> %p", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where)); break; case R_TYPE(TLS_DTPOFF32): *where = (Elf_Addr)(def->st_value); rdbg(("TLS_DTPOFF32 %s in %s --> %p", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where)); break; default: rdbg(("sym = %lu, type = %lu, offset = %p, " "addend = %p, contents = %p, symbol = %s", symnum, (u_long)ELF_R_TYPE(rela->r_info), (void *)rela->r_offset, (void *)rela->r_addend, (void *)load_ptr(where), obj->strtab + obj->symtab[symnum].st_name)); _rtld_error("%s: Unsupported relocation type %ld " "in non-PLT relocations", obj->path, (u_long) ELF_R_TYPE(rela->r_info)); return -1; } } return 0; } int _rtld_relocate_plt_lazy(Obj_Entry *obj) { const Elf_Rela *rela; for (rela = obj->pltrela; rela < obj->pltrelalim; rela++) { Elf_Addr *where = (Elf_Addr *)(obj->relocbase + rela->r_offset); Elf_Addr func_pc, func_sl; /* skip R_PARISC_NONE entries */ if (ELF_R_TYPE(rela->r_info) == R_TYPE(NONE)) continue; assert(ELF_R_TYPE(rela->r_info) == R_TYPE(IPLT)); /* * If this is an IPLT reloc for a static function, * fully resolve the PLT entry now. */ if (ELF_R_SYM(rela->r_info) == 0) { func_pc = (Elf_Addr)(obj->relocbase + rela->r_addend); func_sl = (Elf_Addr)(obj->pltgot); } /* * Otherwise set up for lazy binding. */ else { /* * This function pointer points to the PLT * stub added by the linker, and instead of * a shared linkage value, we stash this * relocation's offset. The PLT stub has * already been set up to transfer to * _rtld_bind_start. */ func_pc = ((Elf_Addr)(obj->pltgot)) - 16; func_sl = (Elf_Addr) ((const char *)rela - (const char *)(obj->pltrela)); } rdbg(("lazy bind %s(%p) --> old=(%p,%p) new=(%p,%p)", obj->path, (void *)where, (void *)where[0], (void *)where[1], (void *)func_pc, (void *)func_sl)); /* * Fill this PLT entry and return. */ where[0] = func_pc; where[1] = func_sl; } return 0; } static inline int _rtld_relocate_plt_object(const Obj_Entry *obj, const Elf_Rela *rela, Elf_Addr *tp) { Elf_Word *where = (Elf_Word *)(obj->relocbase + rela->r_offset); const Elf_Sym *def; const Obj_Entry *defobj; Elf_Addr func_pc, func_sl; unsigned long info = rela->r_info; assert(ELF_R_TYPE(info) == R_TYPE(IPLT)); if (ELF_R_SYM(info) == 0) { func_pc = (Elf_Addr)(obj->relocbase + rela->r_addend); func_sl = (Elf_Addr)(obj->pltgot); } else { def = _rtld_find_plt_symdef(ELF_R_SYM(info), obj, &defobj, tp != NULL); if (__predict_false(def == NULL)) return -1; if (__predict_false(def == &_rtld_sym_zero)) return 0; if (ELF_ST_TYPE(def->st_info) == STT_GNU_IFUNC) { if (tp == NULL) return 0; Elf_Addr ptr = _rtld_resolve_ifunc(defobj, def); assert(RTLD_IS_PLABEL(ptr)); hppa_plabel *label = RTLD_GET_PLABEL(ptr); func_pc = label->hppa_plabel_pc; func_sl = label->hppa_plabel_sl; } else { func_pc = (Elf_Addr)(defobj->relocbase + def->st_value + rela->r_addend); func_sl = (Elf_Addr)(defobj->pltgot); } rdbg(("bind now/fixup in %s --> old=(%p,%p) new=(%p,%p)", defobj->strtab + def->st_name, (void *)where[0], (void *)where[1], (void *)func_pc, (void *)func_sl)); } /* * Fill this PLT entry and return. */ if (where[0] != func_pc) where[0] = func_pc; if (where[1] != func_sl) where[1] = func_sl; if (tp) *tp = (Elf_Addr)where; return 0; } caddr_t _rtld_bind(const Obj_Entry *obj, Elf_Word reloff) { const Elf_Rela *rela; Elf_Addr new_value = 0; /* XXX gcc */ int err; rela = (const Elf_Rela *)((const char *)obj->pltrela + reloff); assert(ELF_R_SYM(rela->r_info) != 0); _rtld_shared_enter(); err = _rtld_relocate_plt_object(obj, rela, &new_value); if (err) _rtld_die(); _rtld_shared_exit(); return (caddr_t)new_value; } int _rtld_relocate_plt_objects(const Obj_Entry *obj) { const Elf_Rela *rela = obj->pltrela; for (; rela < obj->pltrelalim; rela++) { if (_rtld_relocate_plt_object(obj, rela, NULL) < 0) return -1; } return 0; } Elf_Addr _rtld_call_function_addr(const Obj_Entry *obj, Elf_Addr ptr) { volatile hppa_plabel plabel; Elf_Addr (*f)(void); plabel.hppa_plabel_pc = (Elf_Addr)ptr; plabel.hppa_plabel_sl = (Elf_Addr)(obj->pltgot); f = (Elf_Addr (*)(void))RTLD_MAKE_PLABEL(&plabel); return f(); } src/libexec/ld.elf_so/arch/hppa/rtld_start.S010064400011300000175000000161761424517463200212530ustar00srcmastrnetbsd/* $NetBSD: rtld_start.S,v 1.14 2022/05/30 17:06:34 skrll Exp $ */ /*- * Copyright (c) 2002 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Matt Fredette. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include #include .import _GLOBAL_OFFSET_TABLE_ ENTRY($rtld_start,HPPA_FRAME_SIZE) /* Start stack calling convention. */ copy %r3, %r1 copy %sp, %r3 stw,ma %r1, HPPA_FRAME_SIZE(%sp) /* * Save our single argument, the ps_strings pointer. We'll need this * twice later: once to call _rtld, and again to transfer to the * program's entry point. */ stw %arg0, HPPA_FRAME_ARG(0)(%r3) /* * We can't move to C until we relocate at least the * Global Offset Table. Even finding the GOT is tricky * without inadvertently causing the linker to make * relocations for this part of the text segment. */ bl L$lpc1, %r19 depi 0, 31, 2, %r19 L$lpc1: addil L'_DYNAMIC - ($PIC_pcrel$0 - 8), %r19 ldo R'_DYNAMIC - ($PIC_pcrel$0 - 12)(%r1),%arg0 /* * Load the absolute address of the beginning of the GOT into %r19, the * shared library linkage table register, leaving it ready-to-use by * the dynamic linker C code. */ addil L'_GLOBAL_OFFSET_TABLE_ - ($PIC_pcrel$0 - 16), %r19 ldo R'_GLOBAL_OFFSET_TABLE_ - ($PIC_pcrel$0 - 20)(%r1),%r19 /* * The linker sets the first entry in the GOT to the unrelocated * address of _DYNAMIC. Subtract this from the absolute address of * _DYNAMIC to get our relocbase. */ ldw 0(%r19), %arg1 sub %arg0, %arg1, %arg1 ; %arg1 = relocbase bl _rtld_relocate_nonplt_self, %rp copy %arg1, %r4 ; save for later /* * Recover the ps_strings pointer, and take out the * ps_argvstr member. */ ldw HPPA_FRAME_ARG(0)(%r3), %arg0 ; ps_strings ldw 0(%arg0), %arg0 ; ps_argvstr member first in struct /* * ps_argvstr - 4 would get us a pointer to argc, comparable to the * initial stack pointer on architectures where the stack grows down. * Subtracting an additional eight creates the storage for obj and * cleanup that _rtld needs. */ ldo -12(%arg0), %arg0 stw %arg0, HPPA_FRAME_ARG(1)(%r3) /* Call _rtld, copying relocbase into arg1. */ bl _rtld, %rp copy %r4, %arg1 ; %arg1 = relocbase /* Prepare the arguments for the entry point. */ ldw HPPA_FRAME_ARG(1)(%r3), %r1 ldw HPPA_FRAME_ARG(0)(%r3), %arg0 ; ps_strings ldw 0(%r1), %arg1 ; cleanup ldw 4(%r1), %arg2 ; obj /* End stack calling convention. */ ldo HPPA_FRAME_SIZE(%r3), %sp ldw,mb -HPPA_FRAME_SIZE(%sp), %r3 /* Go for it. */ bv %r0(%ret0) copy %r0, %rp EXIT($rtld_start) /* * This does our setup for an object's GOT. %arg0 is the Obj_Entry * for the * object, and %arg1 is its GOT pointer. */ LEAF_ENTRY(__rtld_setup_hppa_pltgot) /* * The second entry of the GOT is reserved for the dynamic linker. We * put the Obj_Entry * for the object in there. */ stw %arg0, 4(%arg1) /* * Fill the fixup_func and fixup_ltp members of the PLT stub. This * stub is inserted by the linker immediately before the GOT. We use * this stub to enter our binder. */ bl L$lpc2, %arg0 depi 0, 31, 2, %arg0 L$lpc2: addil L'_rtld_bind_start - ($PIC_pcrel$0 - 8), %arg0 ldo R'_rtld_bind_start - ($PIC_pcrel$0 - 12)(%r1),%arg0 stw %arg0, -8(%arg1) bv %r0(%rp) stw %r19, -4(%arg1) EXIT(__rtld_setup_hppa_pltgot) /* * In order to support lazy binding, this implementation of _rtld_bind_start is * very closely tied to the shared-library call stub and the PLT stub, both * inserted by the linker. */ /* * This is a magic branch instruction that is used by GCC's * __canonicalize_funcptr_for_compare() function to fixup relocations * in order to do function pointer comparisons. */ bl _rtld_bind, %rp ENTRY(_rtld_bind_start,HPPA_FRAME_SIZE) /* Start stack calling convention. */ copy %r3, %r1 copy %sp, %r3 stw,ma %r1, HPPA_FRAME_SIZE(%sp) /* * We have to save all calling convention registers that are set by the * caller, because we have to restore them before transferring to the * bound function. Note that this includes %ret0, %ret1, and %t1. * * %ret0 and %ret1 because they can have meaning on entry to a * function. * * %t1 because it's used by libc to pass on errno values to cerror. */ stw %rp, HPPA_FRAME_CRP(%r3) stw %arg0, HPPA_FRAME_ARG(0)(%r3) stw %arg1, HPPA_FRAME_ARG(1)(%r3) stw %arg2, HPPA_FRAME_ARG(2)(%r3) stw %arg3, HPPA_FRAME_ARG(3)(%r3) /* 0(%r3) is filled with the saved %r3 above */ stw %ret0, 4(%r3) stw %ret1, 8(%r3) stw %t1, 12(%r3) /* %r22 */ /* * The linker PLT stub loads %r20 with (GOT - 8) for the object that * needs binding done. The second entry of the GOT is reserved for the * dynamic linker's use, and we previously stashed the object's * Obj_Entry * there. */ ldw 12(%r20), %arg0 /* * The linker shared-library call stub loads %r19 from the shared * linkage member of the PLT entry. We previously stashed the reloff * of the relocation there. */ copy %r19, %arg1 /* * The linker PLT stub loads %r21 with the fixup_ltp word in itself. * We previously stashed our %r19 value there. */ bl _rtld_bind, %rp copy %r21, %r19 /* * Our hppa version of _rtld_bind returns to us the address of the PLT * entry that it fixed up. Load the function address and shared * linkage for the newly bound function. */ ldw 0(%ret0), %r21 ldw 4(%ret0), %r19 /* Restore registers saved above. */ ldw HPPA_FRAME_CRP(%r3), %rp ldw HPPA_FRAME_ARG(0)(%r3), %arg0 ldw HPPA_FRAME_ARG(1)(%r3), %arg1 ldw HPPA_FRAME_ARG(2)(%r3), %arg2 ldw HPPA_FRAME_ARG(3)(%r3), %arg3 ldw 4(%r3), %ret0 ldw 8(%r3), %ret1 ldw 12(%r3), %t1 /* %r22 */ /* End stack calling convention. */ ldo HPPA_FRAME_SIZE(%r3), %sp ldw,mb -HPPA_FRAME_SIZE(%sp), %r3 /* Transfer to the function. */ bv %r0(%r21) nop EXIT(_rtld_bind_start) LEAF_ENTRY_NOPROFILE(_rtld_set_dp) bv %r0(%rp) copy %arg0, %dp EXIT(_rtld_set_dp) src/libexec/ld.elf_so/arch/i386004075500011300000175000000000001504273241000164055ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/i386/CVS004075500011300000175000000000001504273241000170405ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/i386/CVS/Root010064400011300000175000000000441504273241000177600ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/ld.elf_so/arch/i386/CVS/Repository010064400011300000175000000000401504273241000212100ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/i386 src/libexec/ld.elf_so/arch/i386/CVS/Entries010064400011300000175000000002471504273241000204530ustar00srcmastrnetbsd/Makefile.inc/1.15/Tue Apr 3 21:10:27 2018//Tnetbsd-11 /mdreloc.c/1.48/Wed Apr 16 17:37:48 2025//Tnetbsd-11 /rtld_start.S/1.11/Sun Dec 5 00:56:07 2010//Tnetbsd-11 D src/libexec/ld.elf_so/arch/i386/CVS/Tag010064400011300000175000000000131522207752300175530ustar00srcmastrnetbsdTnetbsd-11 src/libexec/ld.elf_so/arch/i386/Makefile.inc010064400011300000175000000003611326076670300207050ustar00srcmastrnetbsd# $NetBSD: Makefile.inc,v 1.15 2018/04/03 21:10:27 joerg Exp $ SRCS+= rtld_start.S mdreloc.c # XXX Should not be in CPPFLAGS! CPPFLAGS+= -fpic CPPFLAGS+= -DELFSIZE=32 CPPFLAGS+= -DRTLD_COMMON_CALL_IFUNC_REL LDFLAGS+= -Wl,-e,.rtld_start src/libexec/ld.elf_so/arch/i386/mdreloc.c010064400011300000175000000241241477776535400203100ustar00srcmastrnetbsd/* $NetBSD: mdreloc.c,v 1.48 2025/04/16 17:37:48 riastradh Exp $ */ /* * Copyright 1996 John D. Polstra. * Copyright 1996 Matt Thomas * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by John Polstra. * 4. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ /* * i386 ELF relocations. * * References: * * [ABI386-4] System V Application Binary Interface: Intel386 * Architecture Processor Supplement, Fourth Edition, 1997-03-19, * The Santa Cruz Operation, Inc. * https://www.sco.com/developers/devspecs/abi386-4.pdf * https://web.archive.org/web/20250329184450/https://www.sco.com/developers/devspecs/abi386-4.pdf * * Note: Intel and SuSE have published an update to the i386 ELF * supplement, but it is not entirely compatible (e.g., it requires * 16-byte alignment for the stack pointer, not just 4-byte alignment), * so it is not reliable as a normative reference: * * [ABI386-2015] System V Application Binary Interface: Intel386 * Architecture Processor Supplement, Version 1.0, 2015-02-03. * https://uclibc.org/docs/psABI-i386.pdf * https://web.archive.org/web/20250118211449/https://uclibc.org/docs/psABI-i386.pdf * https://gitlab.com/x86-psABIs/i386-ABI */ #include #ifndef lint __RCSID("$NetBSD: mdreloc.c,v 1.48 2025/04/16 17:37:48 riastradh Exp $"); #endif /* not lint */ #include #include #include "debug.h" #include "rtld.h" void _rtld_bind_start(void); void _rtld_relocate_nonplt_self(Elf_Dyn *, Elf_Addr); caddr_t _rtld_bind(const Obj_Entry *, Elf_Word); #define rdbg_symname(obj, rela) \ ((obj)->strtab + (obj)->symtab[ELF_R_SYM((rela)->r_info)].st_name) void _rtld_setup_pltgot(const Obj_Entry *obj) { obj->pltgot[1] = (Elf_Addr) obj; obj->pltgot[2] = (Elf_Addr) &_rtld_bind_start; } void _rtld_relocate_nonplt_self(Elf_Dyn *dynp, Elf_Addr relocbase) { const Elf_Rel *rel = 0, *rellim; Elf_Addr relsz = 0; Elf_Addr *where; for (; dynp->d_tag != DT_NULL; dynp++) { switch (dynp->d_tag) { case DT_REL: rel = (const Elf_Rel *)(relocbase + dynp->d_un.d_ptr); break; case DT_RELSZ: relsz = dynp->d_un.d_val; break; } } if (rel == 0 || relsz == 0) return; rellim = (const Elf_Rel *)((const uint8_t *)rel + relsz); for (; rel < rellim; rel++) { where = (Elf_Addr *)(relocbase + rel->r_offset); *where += (Elf_Addr)relocbase; } } int _rtld_relocate_nonplt_objects(Obj_Entry *obj) { const Elf_Rel *rel; Elf_Addr target = 0; const Elf_Sym *def = NULL; const Obj_Entry *defobj = NULL; unsigned long last_symnum = ULONG_MAX; for (rel = obj->rel; rel < obj->rellim; rel++) { Elf_Addr *where; Elf_Addr tmp; unsigned long symnum; where = (Elf_Addr *)(obj->relocbase + rel->r_offset); switch (ELF_R_TYPE(rel->r_info)) { case R_TYPE(PC32): case R_TYPE(GOT32): case R_TYPE(32): case R_TYPE(GLOB_DAT): case R_TYPE(TLS_TPOFF): case R_TYPE(TLS_TPOFF32): case R_TYPE(TLS_DTPMOD32): case R_TYPE(TLS_DTPOFF32): symnum = ELF_R_SYM(rel->r_info); if (symnum != last_symnum) { last_symnum = symnum; def = _rtld_find_symdef(symnum, obj, &defobj, false); if (def == NULL) return -1; } break; default: break; } switch (ELF_R_TYPE(rel->r_info)) { case R_TYPE(NONE): break; #if 1 /* XXX should not occur */ case R_TYPE(PC32): target = (Elf_Addr)(defobj->relocbase + def->st_value); *where += target - (Elf_Addr)where; rdbg(("PC32 %s in %s --> %p in %s", rdbg_symname(obj, rel), obj->path, (void *)*where, defobj->path)); break; case R_TYPE(GOT32): #endif case R_TYPE(32): case R_TYPE(GLOB_DAT): target = (Elf_Addr)(defobj->relocbase + def->st_value); tmp = target + *where; if (*where != tmp) *where = tmp; rdbg(("32/GLOB_DAT %s in %s --> %p in %s", rdbg_symname(obj, rel), obj->path, (void *)*where, defobj->path)); break; case R_TYPE(IRELATIVE): /* IFUNC relocations are handled in _rtld_call_ifunc */ if (obj->ifunc_remaining_nonplt == 0) { obj->ifunc_remaining_nonplt = obj->rellim - rel; } /* FALL-THROUGH */ case R_TYPE(RELATIVE): *where += (Elf_Addr)obj->relocbase; rdbg(("RELATIVE in %s --> %p", obj->path, (void *)*where)); break; case R_TYPE(COPY): /* * These are deferred until all other relocations have * been done. All we do here is make sure that the * COPY relocation is not in a shared library. They * are allowed only in executable files. */ if (obj->isdynamic) { _rtld_error( "%s: Unexpected R_COPY relocation in shared library", obj->path); return -1; } rdbg(("COPY (avoid in main)")); break; case R_TYPE(TLS_TPOFF): if (!defobj->tls_static && _rtld_tls_offset_allocate(__UNCONST(defobj))) return -1; *where += (Elf_Addr)(def->st_value - defobj->tlsoffset); rdbg(("TLS_TPOFF %s in %s --> %p", rdbg_symname(obj, rel), obj->path, (void *)*where)); break; case R_TYPE(TLS_TPOFF32): if (!defobj->tls_static && _rtld_tls_offset_allocate(__UNCONST(defobj))) return -1; *where += (Elf_Addr)(defobj->tlsoffset - def->st_value); rdbg(("TLS_TPOFF32 %s in %s --> %p", rdbg_symname(obj, rel), obj->path, (void *)*where)); break; case R_TYPE(TLS_DTPMOD32): *where = (Elf_Addr)(defobj->tlsindex); rdbg(("TLS_DTPMOD32 %s in %s --> %p", rdbg_symname(obj, rel), obj->path, (void *)*where)); break; case R_TYPE(TLS_DTPOFF32): *where = (Elf_Addr)(def->st_value); rdbg(("TLS_DTPOFF32 %s in %s --> %p", rdbg_symname(obj, rel), obj->path, (void *)*where)); break; default: rdbg(("sym = %lu, type = %lu, offset = %p, " "contents = %p, symbol = %s", (u_long)ELF_R_SYM(rel->r_info), (u_long)ELF_R_TYPE(rel->r_info), (void *)rel->r_offset, (void *)*where, rdbg_symname(obj, rel))); _rtld_error("%s: Unsupported relocation type %ld " "in non-PLT relocations", obj->path, (u_long) ELF_R_TYPE(rel->r_info)); return -1; } } return 0; } int _rtld_relocate_plt_lazy(Obj_Entry *obj) { const Elf_Rel *rel; for (rel = obj->pltrellim; rel-- > obj->pltrel; ) { Elf_Addr *where = (Elf_Addr *)(obj->relocbase + rel->r_offset); assert(ELF_R_TYPE(rel->r_info) == R_TYPE(JMP_SLOT) || ELF_R_TYPE(rel->r_info) == R_TYPE(IRELATIVE)); if (ELF_R_TYPE(rel->r_info) == R_TYPE(IRELATIVE)) obj->ifunc_remaining = obj->pltrellim - rel; /* Just relocate the GOT slots pointing into the PLT */ *where += (Elf_Addr)obj->relocbase; rdbg(("fixup !main in %s --> %p", obj->path, (void *)*where)); } return 0; } static inline int _rtld_relocate_plt_object(const Obj_Entry *obj, const Elf_Rel *rel, Elf_Addr *tp) { Elf_Addr *where = (Elf_Addr *)(obj->relocbase + rel->r_offset); Elf_Addr target; const Elf_Sym *def; const Obj_Entry *defobj; unsigned long info = rel->r_info; if (ELF_R_TYPE(info) == R_TYPE(IRELATIVE)) return 0; assert(ELF_R_TYPE(info) == R_TYPE(JMP_SLOT)); def = _rtld_find_plt_symdef(ELF_R_SYM(info), obj, &defobj, tp != NULL); if (__predict_false(def == NULL)) return -1; if (__predict_false(def == &_rtld_sym_zero)) return 0; if (ELF_ST_TYPE(def->st_info) == STT_GNU_IFUNC) { if (tp == NULL) return 0; target = _rtld_resolve_ifunc(defobj, def); } else { target = (Elf_Addr)(defobj->relocbase + def->st_value); } rdbg(("bind now/fixup in %s --> old=%p new=%p", defobj->strtab + def->st_name, (void *)*where, (void *)target)); if (*where != target) *where = target; if (tp) *tp = target; return 0; } caddr_t _rtld_bind(const Obj_Entry *obj, Elf_Word reloff) { const Elf_Rel *rel = (const Elf_Rel *)((const uint8_t *)obj->pltrel + reloff); Elf_Addr new_value; int err; new_value = 0; /* XXX gcc */ _rtld_shared_enter(); err = _rtld_relocate_plt_object(obj, rel, &new_value); if (err) _rtld_die(); _rtld_shared_exit(); return (caddr_t)new_value; } int _rtld_relocate_plt_objects(const Obj_Entry *obj) { const Elf_Rel *rel; int err = 0; for (rel = obj->pltrel; rel < obj->pltrellim; rel++) { err = _rtld_relocate_plt_object(obj, rel, NULL); if (err) break; } return err; } /* * i386 specific GNU variant of __tls_get_addr using register based * argument passing. */ #define DTV_MAX_INDEX(dtv) ((size_t)((dtv)[-1])) __dso_public __attribute__((__regparm__(1))) void * ___tls_get_addr(void *arg_) { size_t *arg = (size_t *)arg_; void **dtv; struct tls_tcb *tcb = __lwp_getprivate_fast(); size_t idx = arg[0], offset = arg[1]; dtv = tcb->tcb_dtv; if (__predict_true(idx < DTV_MAX_INDEX(dtv) && dtv[idx] != NULL)) return (uint8_t *)dtv[idx] + offset; return _rtld_tls_get_addr(tcb, idx, offset); } src/libexec/ld.elf_so/arch/i386/rtld_start.S010064400011300000175000000053011147656144700210070ustar00srcmastrnetbsd/* $NetBSD: rtld_start.S,v 1.11 2010/12/05 00:56:07 joerg Exp $ */ /*- * Copyright (c) 1998, 2002 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Christos Zoulas and by Charles M. Hannum. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include .text .align 4 .globl .rtld_start .hidden .rtld_start .type .rtld_start,@function .rtld_start: subl $8,%esp # make room of obj_main and exit proc pushl %ebx # save ps_strings call 1f 1: popl %edx leal _DYNAMIC-1b(%edx),%ecx # &_DYNAMIC movl %ecx,%ebx subl _GLOBAL_OFFSET_TABLE_-1b(%edx),%ebx pushl %ebx # relocbase pushl %ecx # &_DYNAMIC call _rtld_relocate_nonplt_self leal 12(%esp),%eax # &cleanup pushl %ebx # relocbase pushl %eax # sp call _rtld # _rtld(sp, relocbase) addl $16,%esp # pop args popl %ebx # %ebx = ps_strings popl %edx # %edx = cleanup popl %ecx # %ecx = obj_main jmp *%eax .align 4 .globl _rtld_bind_start .hidden _rtld_bind_start .type _rtld_bind_start,@function _rtld_bind_start: # (obj, reloff) pushf # save registers pushl %eax pushl %ecx pushl %edx pushl 20(%esp) # Copy of reloff pushl 20(%esp) # Copy of obj call _rtld_bind # Call the binder addl $8,%esp # pop binder args movl %eax,20(%esp) # Store function to be called in obj popl %edx popl %ecx popl %eax popf leal 4(%esp),%esp # Discard reloff, do not change eflags ret src/libexec/ld.elf_so/arch/m68k004075500011300000175000000000001504273241000165015ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/m68k/CVS004075500011300000175000000000001504273241000171345ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/m68k/CVS/Root010064400011300000175000000000441504273241000200540ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/ld.elf_so/arch/m68k/CVS/Repository010064400011300000175000000000401504273241000213040ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/m68k src/libexec/ld.elf_so/arch/m68k/CVS/Entries010064400011300000175000000002471504273241000205470ustar00srcmastrnetbsd/Makefile.inc/1.10/Sat Jun 4 16:17:17 2005//Tnetbsd-11 /mdreloc.c/1.37/Fri Apr 18 12:56:47 2025//Tnetbsd-11 /rtld_start.S/1.11/Tue Mar 18 18:20:38 2014//Tnetbsd-11 D src/libexec/ld.elf_so/arch/m68k/CVS/Tag010064400011300000175000000000131522207752300176470ustar00srcmastrnetbsdTnetbsd-11 src/libexec/ld.elf_so/arch/m68k/Makefile.inc010064400011300000175000000003111025035201500207530ustar00srcmastrnetbsd# $NetBSD: Makefile.inc,v 1.10 2005/06/04 16:17:17 lukem Exp $ SRCS+= rtld_start.S mdreloc.c # XXX Should not be in CPPFLAGS! CPPFLAGS+= -fpic CPPFLAGS+= -DELFSIZE=32 LDFLAGS+= -Wl,-e,.rtld_start src/libexec/ld.elf_so/arch/m68k/mdreloc.c010064400011300000175000000211551500044601700203510ustar00srcmastrnetbsd/* $NetBSD: mdreloc.c,v 1.37 2025/04/18 12:56:47 riastradh Exp $ */ /* * Copyright 1996 John D. Polstra. * Copyright 1996 Matt Thomas * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by John Polstra. * 4. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ /* * m68k ELF relocations. * * References: * * [M68KSYSVABI] System V Application Binary Interface: Motorola * 68000 Processor Family Supplement, 1990, AT&T. * https://people.debian.org/~glaubitz/m68k-sysv-abi.pdf * https://web.archive.org/web/20250317195959/https://people.debian.org/~glaubitz/m68k-sysv-abi.pdf */ #include #ifndef lint __RCSID("$NetBSD: mdreloc.c,v 1.37 2025/04/18 12:56:47 riastradh Exp $"); #endif /* not lint */ #include #include "debug.h" #include "rtld.h" #include void _rtld_bind_start(void); void _rtld_relocate_nonplt_self(Elf_Dyn *, Elf_Addr); caddr_t _rtld_bind(const Obj_Entry *, Elf_Word); static inline int _rtld_relocate_plt_object(const Obj_Entry *, const Elf_Rela *, Elf_Addr *); void _rtld_setup_pltgot(const Obj_Entry *obj) { obj->pltgot[1] = (Elf_Addr) obj; obj->pltgot[2] = (Elf_Addr) &_rtld_bind_start; } void _rtld_relocate_nonplt_self(Elf_Dyn *dynp, Elf_Addr relocbase) { const Elf_Rela *rela = 0, *relalim; Elf_Addr relasz = 0; Elf_Addr *where; for (; dynp->d_tag != DT_NULL; dynp++) { switch (dynp->d_tag) { case DT_RELA: rela = (const Elf_Rela *)(relocbase + dynp->d_un.d_ptr); break; case DT_RELASZ: relasz = dynp->d_un.d_val; break; } } relalim = (const Elf_Rela *)((const uint8_t *)rela + relasz); for (; rela < relalim; rela++) { where = (Elf_Addr *)(relocbase + rela->r_offset); *where += (Elf_Addr)relocbase; } } int _rtld_relocate_nonplt_objects(Obj_Entry *obj) { const Elf_Rela *rela; const Elf_Sym *def = NULL; const Obj_Entry *defobj = NULL; unsigned long last_symnum = ULONG_MAX; for (rela = obj->rela; rela < obj->relalim; rela++) { Elf_Addr *where; Elf_Addr tmp; unsigned long symnum; where = (Elf_Addr *)(obj->relocbase + rela->r_offset); switch (ELF_R_TYPE(rela->r_info)) { case R_TYPE(PC32): case R_TYPE(GOT32): case R_TYPE(32): case R_TYPE(GLOB_DAT): case R_TYPE(TLS_DTPMOD32): case R_TYPE(TLS_DTPREL32): case R_TYPE(TLS_TPREL32): symnum = ELF_R_SYM(rela->r_info); if (last_symnum != symnum) { last_symnum = symnum; def = _rtld_find_symdef(symnum, obj, &defobj, false); if (def == NULL) return -1; } break; default: break; } switch (ELF_R_TYPE(rela->r_info)) { case R_TYPE(NONE): break; #if 1 /* XXX should not occur */ case R_TYPE(PC32): tmp = (Elf_Addr)(defobj->relocbase + def->st_value + rela->r_addend) - (Elf_Addr)where; if (*where != tmp) *where = tmp; rdbg(("PC32 %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where, defobj->path)); break; case R_TYPE(GOT32): #endif case R_TYPE(32): case R_TYPE(GLOB_DAT): tmp = (Elf_Addr)(defobj->relocbase + def->st_value + rela->r_addend); if (*where != tmp) *where = tmp; rdbg(("32/GLOB_DAT %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where, defobj->path)); break; case R_TYPE(RELATIVE): *where += (Elf_Addr)obj->relocbase; rdbg(("RELATIVE in %s --> %p", obj->path, (void *)*where)); break; case R_TYPE(COPY): /* * These are deferred until all other relocations have * been done. All we do here is make sure that the * COPY relocation is not in a shared library. They * are allowed only in executable files. */ if (obj->isdynamic) { _rtld_error( "%s: Unexpected R_COPY relocation in shared library", obj->path); return -1; } rdbg(("COPY (avoid in main)")); break; case R_TYPE(TLS_DTPMOD32): *where = (Elf_Addr)defobj->tlsindex; rdbg(("DTPMOD32 %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where, defobj->path)); break; case R_TYPE(TLS_DTPREL32): *where = (Elf_Addr)(def->st_value + rela->r_addend - TLS_DTV_OFFSET); rdbg(("DTPREL32 %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where, defobj->path)); break; case R_TYPE(TLS_TPREL32): if (!defobj->tls_static && _rtld_tls_offset_allocate(__UNCONST(defobj))) return -1; *where = (Elf_Addr)(def->st_value + rela->r_addend + defobj->tlsoffset - TLS_TP_OFFSET); rdbg(("TPREL32 %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where, defobj->path)); break; default: rdbg(("sym = %lu, type = %lu, offset = %p, " "addend = %p, contents = %p, symbol = %s", (u_long)ELF_R_SYM(rela->r_info), (u_long)ELF_R_TYPE(rela->r_info), (void *)rela->r_offset, (void *)rela->r_addend, (void *)*where, obj->strtab + obj->symtab[symnum].st_name)); _rtld_error("%s: Unsupported relocation type %ld " "in non-PLT relocations", obj->path, (u_long) ELF_R_TYPE(rela->r_info)); return -1; } } return 0; } int _rtld_relocate_plt_lazy(Obj_Entry *obj) { const Elf_Rela *rela; if (!obj->relocbase) return 0; for (rela = obj->pltrela; rela < obj->pltrelalim; rela++) { Elf_Addr *where = (Elf_Addr *)(obj->relocbase + rela->r_offset); assert(ELF_R_TYPE(rela->r_info) == R_TYPE(JMP_SLOT)); /* Just relocate the GOT slots pointing into the PLT */ *where += (Elf_Addr)obj->relocbase; rdbg(("fixup !main in %s --> %p", obj->path, (void *)*where)); } return 0; } static inline int _rtld_relocate_plt_object(const Obj_Entry *obj, const Elf_Rela *rela, Elf_Addr *tp) { Elf_Addr *where = (Elf_Addr *)(obj->relocbase + rela->r_offset); Elf_Addr new_value; const Elf_Sym *def; const Obj_Entry *defobj; unsigned long info = rela->r_info; assert(ELF_R_TYPE(info) == R_TYPE(JMP_SLOT)); def = _rtld_find_plt_symdef(ELF_R_SYM(info), obj, &defobj, tp != NULL); if (__predict_false(def == NULL)) return -1; if (__predict_false(def == &_rtld_sym_zero)) return 0; assert(rela->r_addend == 0); if (ELF_ST_TYPE(def->st_info) == STT_GNU_IFUNC) { if (tp == NULL) return 0; new_value = _rtld_resolve_ifunc(defobj, def); } else { new_value = (Elf_Addr)(defobj->relocbase + def->st_value + rela->r_addend); } rdbg(("bind now/fixup in %s --> old=%p new=%p", defobj->strtab + def->st_name, (void *)*where, (void *)new_value)); if (*where != new_value) *where = new_value; if (tp) *tp = new_value - rela->r_addend; return 0; } caddr_t _rtld_bind(const Obj_Entry *obj, Elf_Word reloff) { const Elf_Rela *rela = (const Elf_Rela *)((const uint8_t *)obj->pltrela + reloff); Elf_Addr result; int err; result = 0; /* XXX gcc */ _rtld_shared_enter(); err = _rtld_relocate_plt_object(obj, rela, &result); if (err) _rtld_die(); _rtld_shared_exit(); return (caddr_t)result; } int _rtld_relocate_plt_objects(const Obj_Entry *obj) { const Elf_Rela *rela; for (rela = obj->pltrela; rela < obj->pltrelalim; rela++) if (_rtld_relocate_plt_object(obj, rela, NULL) < 0) return -1; return 0; } src/libexec/ld.elf_so/arch/m68k/rtld_start.S010064400011300000175000000053711231210716600210720ustar00srcmastrnetbsd/* $NetBSD: rtld_start.S,v 1.11 2014/03/18 18:20:38 riastradh Exp $ */ /*- * Copyright (c) 1999, 2002, 2003 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Klaus Klein and by Charles M. Hannum. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include .text .align 4 .globl .rtld_start .type .rtld_start,@function .rtld_start: subql #8,%sp | storage for obj and cleanup GOT_SETUP(%a0) LEA_LCL(_DYNAMIC,%a1) movel %a1,%a5 subl (%a0),%a5 movel %a5,-(%sp) | relocbase movel %a1,-(%sp) | &_DYNAMIC jbsr _rtld_relocate_nonplt_self@PLTPC addql #8,%sp | pop arguments movel %a5,-(%sp) | relocbase pea 4(%sp) | sp jbsr _rtld@PLTPC | entry = _rtld(sp, relocbase) addql #8,%sp | pop arguments moveal (%sp)+,%a1 | cleanup moveal (%sp)+,%a0 | obj moveal %d0,%a3 jmp (%a3) | Go for it! .size .rtld_start,.-.rtld_start .align 4 .globl _rtld_bind_start .type _rtld_bind_start,@function _rtld_bind_start: INTERRUPT_SAVEREG movel 20(%sp),-(%sp) | push reloff movel (16+4)(%sp),-(%sp) | push obj jbsr _rtld_bind@PLTPC | %a0 = _rtld_bind(obj, reloff) addql #8,%sp | pop args #ifdef __SVR4_ABI__ movel %a0,(16+4)(%sp) | write fake `return' address over obj #else movel %d0,(16+4)(%sp) | write fake `return' address over obj #endif INTERRUPT_RESTOREREG | restore caller-saved registers addql #4,%sp | skip reloff rts | `return' right into function .size _rtld_bind_start,.-_rtld_bind_start src/libexec/ld.elf_so/arch/mips004075500011300000175000000000001504273241000166645ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/mips/CVS004075500011300000175000000000001504273241000173175ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/mips/CVS/Root010064400011300000175000000000441504273241000202370ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/ld.elf_so/arch/mips/CVS/Repository010064400011300000175000000000401504273241000214670ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/mips src/libexec/ld.elf_so/arch/mips/CVS/Entries010064400011300000175000000002521504273241000207260ustar00srcmastrnetbsd/Makefile.inc/1.21/Sat Dec 4 08:50:41 2021//Tnetbsd-11 /mips_reloc.c/1.78/Sat Nov 30 01:04:05 2024//Tnetbsd-11 /rtld_start.S/1.11/Sat Aug 3 21:59:58 2024//Tnetbsd-11 D src/libexec/ld.elf_so/arch/mips/CVS/Tag010064400011300000175000000000131522207752300200320ustar00srcmastrnetbsdTnetbsd-11 src/libexec/ld.elf_so/arch/mips/Makefile.inc010064400011300000175000000003641415262574100211640ustar00srcmastrnetbsd# $NetBSD: Makefile.inc,v 1.21 2021/12/04 08:50:41 skrll Exp $ SRCS+= rtld_start.S mips_reloc.c COPTS+= -G0 CPPFLAGS+= -DELFSIZE=_MIPS_SZPTR CPPFLAGS+= -DRTLD_INHIBIT_COPY_RELOCS AFLAGS+= -Wa,--fatal-warnings LDFLAGS+= -Wl,-e,rtld_start src/libexec/ld.elf_so/arch/mips/mips_reloc.c010064400011300000175000000361551472246220500212600ustar00srcmastrnetbsd/* $NetBSD: mips_reloc.c,v 1.78 2024/11/30 01:04:05 christos Exp $ */ /* * Copyright 1997 Michael L. Hitch * Portions copyright 2002 Charles M. Hannum * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ /* * MIPS ELF relocations, for all ABIs: o32, n32, n64. * * References: * * [SYSVMIPS32ABI] System V Application Binary Interface: MIPS * RISC Processor Supplement, 3rd ed., 1996. * https://www.sco.com/developers/devspecs/mipsabi.pdf * https://web.archive.org/web/20221026055746/http://www.sco.com/developers/devspecs/mipsabi.pdf * * [SGIMIPS64ELF] 64-bit ELF Object File Specification, Draft * Version 2.5, MIPS Technologies / Silicon Graphics Computer * Systems. Archived 2015-08-18. * https://web.archive.org/web/20150818210955/http://techpubs.sgi.com/library/manuals/4000/007-4658-001/pdf/007-4658-001.pdf */ #include #ifndef lint __RCSID("$NetBSD: mips_reloc.c,v 1.78 2024/11/30 01:04:05 christos Exp $"); #endif /* not lint */ #include #include #include #include #include #include "debug.h" #include "rtld.h" #include #ifdef __mips_o32 #define SUPPORT_OLD_BROKEN_LD #endif void _rtld_bind_start(void); void _rtld_relocate_nonplt_self(Elf_Dyn *, Elf_Addr); caddr_t _rtld_bind(Elf_Word, Elf_Addr, Elf_Addr, Elf_Addr); /* * It is possible for the compiler to emit relocations for unaligned data. * We handle this situation with these inlines. */ #if ELFSIZE == 64 /* * ELF64 MIPS encodes the relocs uniquely. The first 32-bits of info contain * the symbol index. The top 32-bits contain three relocation types encoded * in big-endian integer with first relocation in LSB. This means for little * endian we have to byte swap that integer (r_type). */ #define Elf_Sxword Elf64_Sxword #define ELF_R_NXTTYPE_64_P(r_type) ((((r_type) >> 8) & 0xff) == R_TYPE(64)) #if BYTE_ORDER == LITTLE_ENDIAN #undef ELF_R_SYM #undef ELF_R_TYPE #define ELF_R_SYM(r_info) ((r_info) & 0xffffffff) #define ELF_R_TYPE(r_info) bswap32((r_info) >> 32) #endif #else #define ELF_R_NXTTYPE_64_P(r_type) (0) #define Elf_Sxword Elf32_Sword #endif #define GOT1_MASK (~(Elf_Addr)0 >> 1) static inline Elf_Sxword load_ptr(void *where, size_t len) { Elf_Sxword val; if (__predict_true(((uintptr_t)where & (len - 1)) == 0)) { #if ELFSIZE == 64 if (len == sizeof(Elf_Sxword)) return *(Elf_Sxword *)where; #endif return *(Elf_Sword *)where; } val = 0; #if BYTE_ORDER == LITTLE_ENDIAN (void)memcpy(&val, where, len); #endif #if BYTE_ORDER == BIG_ENDIAN uint8_t *valp = (void *)&val; (void)memcpy(valp + sizeof(val) - len, where, len); #endif return (len == sizeof(Elf_Sxword)) ? val : (Elf_Sword)val; } static inline void store_ptr(void *where, Elf_Sxword val, size_t len) { if (__predict_true(((uintptr_t)where & (len - 1)) == 0)) { #if ELFSIZE == 64 if (len == sizeof(Elf_Sxword)) { *(Elf_Sxword *)where = val; return; } #endif *(Elf_Sword *)where = val; return; } #if BYTE_ORDER == LITTLE_ENDIAN (void)memcpy(where, &val, len); #endif #if BYTE_ORDER == BIG_ENDIAN const uint8_t *valp = (const void *)&val; (void)memcpy(where, valp + sizeof(val) - len, len); #endif } void _rtld_setup_pltgot(const Obj_Entry *obj) { obj->pltgot[0] = (Elf_Addr) &_rtld_bind_start; /* XXX only if obj->pltgot[1] & 0x80000000 ?? */ obj->pltgot[1] = (Elf_Addr) obj; } void _rtld_relocate_nonplt_self(Elf_Dyn *dynp, Elf_Addr relocbase) { const Elf_Rel *rel = 0, *rellim; Elf_Addr relsz = 0; void *where; const Elf_Sym *symtab = NULL, *sym; Elf_Addr *got = NULL; Elf_Word local_gotno = 0, symtabno = 0, gotsym = 0; size_t i; for (; dynp->d_tag != DT_NULL; dynp++) { switch (dynp->d_tag) { case DT_REL: rel = (const Elf_Rel *)(relocbase + dynp->d_un.d_ptr); break; case DT_RELSZ: relsz = dynp->d_un.d_val; break; case DT_SYMTAB: symtab = (const Elf_Sym *)(relocbase + dynp->d_un.d_ptr); break; case DT_PLTGOT: got = (Elf_Addr *)(relocbase + dynp->d_un.d_ptr); break; case DT_MIPS_LOCAL_GOTNO: local_gotno = dynp->d_un.d_val; break; case DT_MIPS_SYMTABNO: symtabno = dynp->d_un.d_val; break; case DT_MIPS_GOTSYM: gotsym = dynp->d_un.d_val; break; } } i = (got[1] & 0x80000000) ? 2 : 1; /* Relocate the local GOT entries */ got += i; for (; i < local_gotno; i++) *got++ += relocbase; sym = symtab + gotsym; /* Now do the global GOT entries */ for (i = gotsym; i < symtabno; i++) { *got = sym->st_value + relocbase; ++sym; ++got; } rellim = (const Elf_Rel *)((uintptr_t)rel + relsz); for (; rel < rellim; rel++) { Elf_Word r_symndx, r_type; where = (void *)(relocbase + rel->r_offset); r_symndx = ELF_R_SYM(rel->r_info); r_type = ELF_R_TYPE(rel->r_info); switch (r_type & 0xff) { case R_TYPE(REL32): { const size_t rlen = ELF_R_NXTTYPE_64_P(r_type) ? sizeof(Elf_Sxword) : sizeof(Elf_Sword); Elf_Sxword old = load_ptr(where, rlen); Elf_Sxword val = old; #if ELFSIZE == 64 assert(r_type == R_TYPE(REL32) || r_type == (R_TYPE(REL32)|(R_TYPE(64) << 8))); #endif assert(r_symndx < gotsym); sym = symtab + r_symndx; assert(ELF_ST_BIND(sym->st_info) == STB_LOCAL); val += relocbase; store_ptr(where, val, sizeof(Elf_Sword)); rdbg(("REL32/L(%p) %p -> %p in ", where, (void *)old, (void *)val)); store_ptr(where, val, rlen); break; } case R_TYPE(GPREL32): case R_TYPE(NONE): break; default: abort(); } } } int _rtld_relocate_nonplt_objects(Obj_Entry *obj) { const Elf_Rel *rel; Elf_Addr *got = obj->pltgot; const Elf_Sym *sym, *def = NULL; const Obj_Entry *defobj = NULL; unsigned long last_symnum = ULONG_MAX; Elf_Word i; #ifdef SUPPORT_OLD_BROKEN_LD int broken; #endif #ifdef SUPPORT_OLD_BROKEN_LD broken = 0; sym = obj->symtab; for (i = 1; i < 12; i++) if (sym[i].st_info == ELF_ST_INFO(STB_LOCAL, STT_NOTYPE)) broken = 1; dbg(("%s: broken=%d", obj->path, broken)); #endif i = (got[1] & 0x80000000) ? 2 : 1; /* Relocate the local GOT entries */ got += i; for (; i < obj->local_gotno; i++) *got++ += (Elf_Addr)obj->relocbase; sym = obj->symtab + obj->gotsym; /* Now do the global GOT entries */ for (i = obj->gotsym; i < obj->symtabno; i++) { rdbg((" doing got %d sym %p (%s, %lx)", i - obj->gotsym, sym, sym->st_name + obj->strtab, (u_long) *got)); #ifdef SUPPORT_OLD_BROKEN_LD if (ELF_ST_TYPE(sym->st_info) == STT_FUNC && broken && sym->st_shndx == SHN_UNDEF) { /* * XXX DANGER WILL ROBINSON! * You might think this is stupid, as it intentionally * defeats lazy binding -- and you'd be right. * Unfortunately, for lazy binding to work right, we * need to a way to force the GOT slots used for * function pointers to be resolved immediately. This * is supposed to be done automatically by the linker, * by not outputting a PLT slot and setting st_value * to 0 if there are non-PLT references, but older * versions of GNU ld do not do this. */ def = _rtld_find_symdef(i, obj, &defobj, false); if (def == NULL) return -1; *got = def->st_value + (Elf_Addr)defobj->relocbase; } else #endif if (ELF_ST_TYPE(sym->st_info) == STT_FUNC && sym->st_value != 0 && sym->st_shndx == SHN_UNDEF) { /* * If there are non-PLT references to the function, * st_value should be 0, forcing us to resolve the * address immediately. * * XXX DANGER WILL ROBINSON! * The linker is not outputting PLT slots for calls to * functions that are defined in the same shared * library. This is a bug, because it can screw up * link ordering rules if the symbol is defined in * more than one module. For now, if there is a * definition, we fail the test above and force a full * symbol lookup. This means that all intra-module * calls are bound immediately. - mycroft, 2003/09/24 */ *got = sym->st_value + (Elf_Addr)obj->relocbase; } else if (sym->st_info == ELF_ST_INFO(STB_GLOBAL, STT_SECTION)) { /* Symbols with index SHN_ABS are not relocated. */ if (sym->st_shndx != SHN_ABS) *got = sym->st_value + (Elf_Addr)obj->relocbase; } else { def = _rtld_find_symdef(i, obj, &defobj, false); if (def == NULL) return -1; *got = def->st_value + (Elf_Addr)defobj->relocbase; } rdbg((" --> now %lx", (u_long) *got)); ++sym; ++got; } got = obj->pltgot; for (rel = obj->rel; rel < obj->rellim; rel++) { unsigned long symnum; void *where; where = obj->relocbase + rel->r_offset; switch (ELF_R_TYPE(rel->r_info) & 0xff) { #if ELFSIZE == 64 case R_TYPE(TLS_DTPMOD64): case R_TYPE(TLS_DTPREL64): case R_TYPE(TLS_TPREL64): #else case R_TYPE(TLS_DTPMOD32): case R_TYPE(TLS_DTPREL32): case R_TYPE(TLS_TPREL32): #endif symnum = ELF_R_SYM(rel->r_info); if (last_symnum != symnum) { last_symnum = symnum; def = _rtld_find_symdef(symnum, obj, &defobj, false); if (def == NULL) return -1; } break; default: break; } switch (ELF_R_TYPE(rel->r_info) & 0xff) { case R_TYPE(NONE): break; case R_TYPE(REL32): { /* 32-bit PC-relative reference */ const Elf_Sym *def2; const size_t rlen = ELF_R_NXTTYPE_64_P(ELF_R_TYPE(rel->r_info)) ? sizeof(Elf_Sxword) : sizeof(Elf_Sword); Elf_Sxword old = load_ptr(where, rlen); Elf_Sxword val = old; def2 = obj->symtab + ELF_R_SYM(rel->r_info); if (ELF_R_SYM(rel->r_info) >= obj->gotsym) { val += got[obj->local_gotno + ELF_R_SYM(rel->r_info) - obj->gotsym]; rdbg(("REL32/G(%p) %p --> %p (%s) in %s", where, (void *)old, (void *)val, obj->strtab + def2->st_name, obj->path)); } else { /* * XXX: ABI DIFFERENCE! * * Old NetBSD binutils would generate shared * libs with section-relative relocations being * already adjusted for the start address of * the section. * * New binutils, OTOH, generate shared libs * with the same relocations being based at * zero, so we need to add in the start address * of the section. * * --rkb, Oct 6, 2001 */ if (def2->st_info == ELF_ST_INFO(STB_LOCAL, STT_SECTION) #ifdef SUPPORT_OLD_BROKEN_LD && !broken #endif ) val += (Elf_Addr)def->st_value; val += (Elf_Addr)obj->relocbase; rdbg(("REL32/L(%p) %p -> %p (%s) in %s", where, (void *)old, (void *)val, obj->strtab + def2->st_name, obj->path)); } store_ptr(where, val, rlen); break; } #if ELFSIZE == 64 case R_TYPE(TLS_DTPMOD64): #else case R_TYPE(TLS_DTPMOD32): #endif { Elf_Addr old = load_ptr(where, ELFSIZE / 8); Elf_Addr val = old; val += (Elf_Addr)defobj->tlsindex; store_ptr(where, val, ELFSIZE / 8); rdbg(("DTPMOD %s in %s --> %p in %s", obj->strtab + obj->symtab[ELF_R_SYM(rel->r_info)].st_name, obj->path, (void *)old, defobj->path)); break; } #if ELFSIZE == 64 case R_TYPE(TLS_DTPREL64): #else case R_TYPE(TLS_DTPREL32): #endif { Elf_Addr old = load_ptr(where, ELFSIZE / 8); Elf_Addr val = old; val += (Elf_Addr)def->st_value - TLS_DTV_OFFSET; store_ptr(where, val, ELFSIZE / 8); rdbg(("DTPREL %s in %s --> %p in %s", obj->strtab + obj->symtab[ELF_R_SYM(rel->r_info)].st_name, obj->path, (void *)old, defobj->path)); break; } #if ELFSIZE == 64 case R_TYPE(TLS_TPREL64): #else case R_TYPE(TLS_TPREL32): #endif { Elf_Addr old = load_ptr(where, ELFSIZE / 8); Elf_Addr val = old; if (!defobj->tls_static && _rtld_tls_offset_allocate(__UNCONST(defobj))) return -1; val += (Elf_Addr)(def->st_value + defobj->tlsoffset - TLS_TP_OFFSET); store_ptr(where, val, ELFSIZE / 8); rdbg(("TPREL %s in %s --> %p in %s", obj->strtab + obj->symtab[ELF_R_SYM(rel->r_info)].st_name, obj->path, where, defobj->path)); break; } default: rdbg(("sym = %lu, type = %lu, offset = %p, " "contents = %p, symbol = %s", (u_long)ELF_R_SYM(rel->r_info), (u_long)ELF_R_TYPE(rel->r_info), (void *)rel->r_offset, (void *)load_ptr(where, sizeof(Elf_Sword)), obj->strtab + obj->symtab[ELF_R_SYM(rel->r_info)].st_name)); _rtld_error("%s: Unsupported relocation type %ld " "in non-PLT relocations", obj->path, (u_long) ELF_R_TYPE(rel->r_info)); return -1; } } return 0; } int _rtld_relocate_plt_lazy(Obj_Entry *obj) { /* PLT fixups were done above in the GOT relocation. */ return 0; } static inline int _rtld_relocate_plt_object(const Obj_Entry *obj, Elf_Word sym, Elf_Addr *tp) { Elf_Addr *got = obj->pltgot; const Elf_Sym *def; const Obj_Entry *defobj; Elf_Addr new_value; def = _rtld_find_plt_symdef(sym, obj, &defobj, tp != NULL); if (__predict_false(def == NULL)) return -1; if (__predict_false(def == &_rtld_sym_zero)) return 0; if (ELF_ST_TYPE(def->st_info) == STT_GNU_IFUNC) { if (tp == NULL) return 0; new_value = _rtld_resolve_ifunc(defobj, def); } else { new_value = (Elf_Addr)(defobj->relocbase + def->st_value); } rdbg(("bind now/fixup in %s --> new=%p", defobj->strtab + def->st_name, (void *)new_value)); got[obj->local_gotno + sym - obj->gotsym] = new_value; if (tp) *tp = new_value; return 0; } caddr_t _rtld_bind(Elf_Word a0, Elf_Addr a1, Elf_Addr a2, Elf_Addr a3) { Elf_Addr *got = (Elf_Addr *)(a2 - 0x7ff0); const Obj_Entry *obj = (Obj_Entry *)(got[1] & GOT1_MASK); Elf_Addr new_value = 0; /* XXX gcc */ int err; _rtld_shared_enter(); err = _rtld_relocate_plt_object(obj, a0, &new_value); if (err) _rtld_die(); _rtld_shared_exit(); return (caddr_t)new_value; } int _rtld_relocate_plt_objects(const Obj_Entry *obj) { const Elf_Sym *sym = obj->symtab + obj->gotsym; Elf_Word i; for (i = obj->gotsym; i < obj->symtabno; i++, sym++) { if (ELF_ST_TYPE(sym->st_info) == STT_FUNC) if (_rtld_relocate_plt_object(obj, i, NULL) < 0) return -1; } return 0; } src/libexec/ld.elf_so/arch/mips/rtld_start.S010064400011300000175000000107311465352413600212630ustar00srcmastrnetbsd/* $NetBSD: rtld_start.S,v 1.11 2024/08/03 21:59:58 riastradh Exp $ */ /* * Copyright 1997 Michael L. Hitch * Portions copyright 2002 Charles M. Hannum * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ #include .globl _C_LABEL(_rtld_relocate_nonplt_self) .globl _C_LABEL(_rtld) #define PTR_SIZE (1< 1*PTR_SIZE(sp) for atexit # -> 2*PTR_SIZE(sp) for obj_main move s0, a0 # save stack pointer from a0 move s3, a3 # save ps_strings pointer PTR_LA a1, 1f bal 1f PTR_LA t0, _C_LABEL(_rtld_relocate_nonplt_self) 1: PTR_SUBU a1, ra, a1 # relocbase move s2, a1 # save for _rtld PTR_LA a0, _DYNAMIC PTR_ADDU t9, a1, t0 jalr t9 # _rtld_relocate_nonplt_self(dynp, relocabase) PTR_ADDU a0, a1, a0 # &_DYNAMIC move a1, s2 # relocbase PTR_ADDU a0, sp, 2*PTR_SIZE # sp jal _C_LABEL(_rtld) # v0 = _rtld(sp, relocbase) nop PTR_L a1, 2*PTR_SIZE(sp) # our atexit function PTR_L a2, 3*PTR_SIZE(sp) # obj_main entry PTR_ADDU sp, 4*PTR_SIZE # readjust stack move a0, s0 # stack pointer move t9, v0 jr t9 # _start(sp, cleanup, obj); move a3, s3 # restore ps_strings END(rtld_start) #define XCALLFRAME_SIZ (12*SZREG) #define XCALLFRAME_RA (10*SZREG) #define XCALLFRAME_GP (9*SZREG) #define XCALLFRAME_S0 (8*SZREG) #define XCALLFRAME_A3 (7*SZREG) #define XCALLFRAME_A2 (6*SZREG) #define XCALLFRAME_A1 (5*SZREG) #define XCALLFRAME_A0 (4*SZREG) #if defined(__mips_n32) || defined(__mips_n64) #define XCALLFRAME_A7 (3*SZREG) #define XCALLFRAME_A6 (2*SZREG) #define XCALLFRAME_A5 (1*SZREG) #define XCALLFRAME_A4 (0*SZREG) #endif .globl _rtld_bind_start .ent _rtld_bind_start _rtld_bind_start: .frame sp, XCALLFRAME_SIZ, $15 move v1, gp # save old GP #if defined(__mips_o32) || defined(__mips_o64) PTR_ADDU t9, 8 # modify T9 to point at .cpload #endif SETUP_GP PTR_SUBU sp, XCALLFRAME_SIZ # save arguments and sp value in stack SETUP_GP64(XCALLFRAME_GP, _rtld_bind_start) SAVE_GP(XCALLFRAME_GP) #if defined(__mips_n32) || defined(__mips_n64) REG_S a4, XCALLFRAME_A4(sp) REG_S a5, XCALLFRAME_A5(sp) REG_S a6, XCALLFRAME_A6(sp) REG_S a7, XCALLFRAME_A7(sp) #endif REG_S a0, XCALLFRAME_A0(sp) REG_S a1, XCALLFRAME_A1(sp) REG_S a2, XCALLFRAME_A2(sp) REG_S a3, XCALLFRAME_A3(sp) REG_S $15, XCALLFRAME_RA(sp) # ra is in t7/t3 REG_S s0, XCALLFRAME_S0(sp) move s0, sp move a0, t8 # symbol index move a1, $15 # old RA move a2, v1 # old GP move a3, ra # current RA jal _C_LABEL(_rtld_bind) nop move sp, s0 REG_L ra, XCALLFRAME_RA(sp) REG_L s0, XCALLFRAME_S0(sp) REG_L a0, XCALLFRAME_A0(sp) REG_L a1, XCALLFRAME_A1(sp) REG_L a2, XCALLFRAME_A2(sp) REG_L a3, XCALLFRAME_A3(sp) #if defined(__mips_n32) || defined(__mips_n64) REG_L a4, XCALLFRAME_A4(sp) REG_L a5, XCALLFRAME_A5(sp) REG_L a6, XCALLFRAME_A6(sp) REG_L a7, XCALLFRAME_A7(sp) #endif RESTORE_GP64 PTR_ADDU sp, XCALLFRAME_SIZ move t9, v0 jr t9 nop END(_rtld_bind_start) src/libexec/ld.elf_so/arch/or1k004075500011300000175000000000001504273241000165705ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/or1k/CVS004075500011300000175000000000001504273241000172235ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/or1k/CVS/Root010064400011300000175000000000441504273241000201430ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/ld.elf_so/arch/or1k/CVS/Repository010064400011300000175000000000401504273241000213730ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/or1k src/libexec/ld.elf_so/arch/or1k/CVS/Entries010064400011300000175000000002441504273241000206330ustar00srcmastrnetbsd/Makefile.inc/1.2/Sat Dec 4 08:51:08 2021//Tnetbsd-11 /mdreloc.c/1.6/Sat Nov 30 01:04:05 2024//Tnetbsd-11 /rtld_start.S/1.1/Wed Sep 3 19:34:26 2014//Tnetbsd-11 D src/libexec/ld.elf_so/arch/or1k/CVS/Tag010064400011300000175000000000131522207752300177360ustar00srcmastrnetbsdTnetbsd-11 src/libexec/ld.elf_so/arch/or1k/Makefile.inc010064400011300000175000000003541415262577400210750ustar00srcmastrnetbsd# $NetBSD: Makefile.inc,v 1.2 2021/12/04 08:51:08 skrll Exp $ SRCS+= mdreloc.c LDFLAGS+= -Wl,-e,_rtld_start CPPFLAGS+= -fPIC SRCS+= rtld_start.S CPPFLAGS+= -DELFSIZE=32 #LDFLAGS+= -Wl,--script,${.CURDIR}/arch/powerpc/ld.so.script src/libexec/ld.elf_so/arch/or1k/mdreloc.c010064400011300000175000000200461472246220500204450ustar00srcmastrnetbsd/* $NetBSD: mdreloc.c,v 1.6 2024/11/30 01:04:05 christos Exp $ */ /*- * Copyright (c) 2014 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Matt Thomas of 3am Software Foundry. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include #ifndef lint __RCSID("$NetBSD: mdreloc.c,v 1.6 2024/11/30 01:04:05 christos Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include "debug.h" #include "rtld.h" #include void _rtld_bind_start(void); Elf_Addr _rtld_bind(const Obj_Entry *, Elf_Word); void _rtld_relocate_nonplt_self(Elf_Dyn *, Elf_Addr); static int _rtld_relocate_plt_object(const Obj_Entry *, const Elf_Rela *, int, Elf_Addr *); /* * The OR1k PLT format is simple. */ void _rtld_setup_pltgot(const Obj_Entry *obj) { obj->pltgot[1] = (Elf_Addr) obj; obj->pltgot[2] = (Elf_Addr) _rtld_bind_start; dbg(("obj %s plt pltgot=%p start=%p obj=%p", obj->path, obj->pltgot, (void *) obj->pltgot[1], (void *) obj->pltgot[2])); } void _rtld_relocate_nonplt_self(Elf_Dyn *dynp, Elf_Addr relocbase) { const Elf_Rela *rela = 0, *relalim; Elf_Addr relasz = 0; Elf_Addr *where; for (; dynp->d_tag != DT_NULL; dynp++) { switch (dynp->d_tag) { case DT_RELA: rela = (const Elf_Rela *)(relocbase + dynp->d_un.d_ptr); break; case DT_RELASZ: relasz = dynp->d_un.d_val; break; } } relalim = (const Elf_Rela *)((const uint8_t *)rela + relasz); for (; rela < relalim; rela++) { where = (Elf_Addr *)(relocbase + rela->r_offset); *where = (Elf_Addr)(relocbase + rela->r_addend); } } int _rtld_relocate_nonplt_objects(Obj_Entry *obj) { const Elf_Rela *rela; const Elf_Sym *def = NULL; const Obj_Entry *defobj = NULL; unsigned long last_symnum = ULONG_MAX; for (rela = obj->rela; rela < obj->relalim; rela++) { Elf_Addr *where; Elf_Addr tmp; unsigned long symnum; where = (Elf_Addr *)(obj->relocbase + rela->r_offset); switch (ELF_R_TYPE(rela->r_info)) { case R_TYPE(32): /*

S + A */ case R_TYPE(GLOB_DAT): /*
S + A */ case R_TYPE(TLS_DTPMOD): case R_TYPE(TLS_DTPOFF): case R_TYPE(TLS_TPOFF): symnum = ELF_R_SYM(rela->r_info); if (last_symnum != symnum) { last_symnum = symnum; def = _rtld_find_symdef(symnum, obj, &defobj, false); if (def == NULL) return -1; } break; default: break; } switch (ELF_R_TYPE(rela->r_info)) { #if 1 /* XXX Should not be necessary. */ case R_TYPE(JMP_SLOT): #endif case R_TYPE(NONE): break; case R_TYPE(32): /*
S + A */ case R_TYPE(GLOB_DAT): /*
S + A */ tmp = (Elf_Addr)(defobj->relocbase + def->st_value + rela->r_addend); if (*where != tmp) *where = tmp; rdbg(("32/GLOB_DAT %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where, defobj->path)); break; case R_TYPE(RELATIVE): /*
B + A */ *where = (Elf_Addr)(obj->relocbase + rela->r_addend); rdbg(("RELATIVE in %s --> %p", obj->path, (void *)*where)); break; case R_TYPE(COPY): /* * These are deferred until all other relocations have * been done. All we do here is make sure that the * COPY relocation is not in a shared library. They * are allowed only in executable files. */ if (obj->isdynamic) { _rtld_error( "%s: Unexpected R_COPY relocation in shared library", obj->path); return -1; } rdbg(("COPY (avoid in main)")); break; case R_TYPE(TLS_DTPMOD): *where = (Elf_Addr)defobj->tlsindex; rdbg(("DTPMOD32 %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where, defobj->path)); break; case R_TYPE(TLS_DTPOFF): *where = (Elf_Addr)(def->st_value + rela->r_addend - TLS_DTV_OFFSET); rdbg(("DTPOFF %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where, defobj->path)); break; case R_TYPE(TLS_TPOFF): if (!defobj->tls_static && _rtld_tls_offset_allocate(__UNCONST(defobj))) return -1; *where = (Elf_Addr)(def->st_value + rela->r_addend + defobj->tlsoffset - TLS_TP_OFFSET); rdbg(("TPREL %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where, defobj->path)); break; default: rdbg(("sym = %lu, type = %lu, offset = %p, " "addend = %p, contents = %p, symbol = %s", (u_long)ELF_R_SYM(rela->r_info), (u_long)ELF_R_TYPE(rela->r_info), (void *)rela->r_offset, (void *)rela->r_addend, (void *)*where, obj->strtab + obj->symtab[symnum].st_name)); _rtld_error("%s: Unsupported relocation type %ld " "in non-PLT relocations", obj->path, (u_long) ELF_R_TYPE(rela->r_info)); return -1; } } return 0; } int _rtld_relocate_plt_lazy(Obj_Entry *obj) { const Elf_Rela *rela; int reloff; for (rela = obj->pltrela, reloff = 0; rela < obj->pltrelalim; rela++, reloff++) { Elf_Word *where = (Elf_Word *)(obj->relocbase + rela->r_offset); assert(ELF_R_TYPE(rela->r_info) == R_TYPE(JMP_SLOT)); /* * For now, simply treat then as relative. */ *where += (Elf_Addr)obj->relocbase; } return 0; } static int _rtld_relocate_plt_object(const Obj_Entry *obj, const Elf_Rela *rela, int reloff, Elf_Addr *tp) { Elf_Word *where = (Elf_Word *)(obj->relocbase + rela->r_offset); Elf_Addr value; const Elf_Sym *def; const Obj_Entry *defobj; unsigned long info = rela->r_info; assert(ELF_R_TYPE(info) == R_TYPE(JMP_SLOT)); def = _rtld_find_plt_symdef(ELF_R_SYM(info), obj, &defobj, tp != NULL); if (__predict_false(def == NULL)) return -1; if (__predict_false(def == &_rtld_sym_zero)) return 0; value = (Elf_Addr)(defobj->relocbase + def->st_value); rdbg(("bind now/fixup in %s --> new=%p", defobj->strtab + def->st_name, (void *)value)); /* * Simply replace the entry in GOT with the * address of the routine. */ assert(where >= (Elf_Word *)obj->pltgot); assert(where < (Elf_Word *)obj->pltgot + (obj->pltrelalim - obj->pltrela)); *where = value; if (tp) *tp = value; return 0; } Elf_Addr _rtld_bind(const Obj_Entry *obj, Elf_Word reloff) { const Elf_Rela *rela = obj->pltrela + reloff; Elf_Addr new_value; int err; new_value = 0; /* XXX gcc */ _rtld_shared_enter(); err = _rtld_relocate_plt_object(obj, rela, reloff, &new_value); if (err) _rtld_die(); _rtld_shared_exit(); return new_value; } int _rtld_relocate_plt_objects(const Obj_Entry *obj) { const Elf_Rela *rela; int reloff; for (rela = obj->pltrela, reloff = 0; rela < obj->pltrelalim; rela++, reloff++) { if (_rtld_relocate_plt_object(obj, rela, reloff, NULL) < 0) return -1; } return 0; } src/libexec/ld.elf_so/arch/or1k/rtld_start.S010064400011300000175000000071301240166650200211570ustar00srcmastrnetbsd/* $NetBSD: rtld_start.S,v 1.1 2014/09/03 19:34:26 matt Exp $ */ /*- * Copyright (c) 2014 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Matt Thomas of 3am Software Foundry. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include .globl _rtld_start .globl _rtld #define CF_LEN (3*__SIZEOF_POINTER__) #define CF_OBJ (2*__SIZEOF_POINTER__) #define CF_CLEANUP (1*__SIZEOF_POINTER__) /* * void ___start(void (*cleanup)(void), const Obj_Entry *obj, * struct ps_strings *ps_strings); */ ENTRY_NP(_rtld_start) l.sw CF_LEN(r1), r1 # reserve some stack space #if 0 l.ori r26, r3, 0 # obj (should be 0) l.ori r28, r4, 0 # cleanup (should be 0) #endif l.ori r30, r5, 0 # ps_strings l.addi r1, r1, -CF_LEN PIC_GOTSETUP(r16) l.movhi r3, gotoffhi(_DYNAMIC) # get _DYNAMIC gotoff address l.ori r3, r3, gotofflo(_DYNAMIC) l.lwz r7, 0(r16) # get base-relative &_DYNAMIC l.add r3, r3, r16 # r3 = _DYNAMIC actual address l.sub r24, r3, r7 # r24 = relocbase l.ori r4, r24, 0 # r4 = relocbase l.jal _C_LABEL(_rtld_relocate_nonplt_self) l.nop l.addi r3, r1, CF_CLEANUP l.ori r4, r24, 0 # r4 = relocbase l.jal _C_LABEL(_rtld) # _start = _rtld(sp, relocbase) l.nop l.lwz r3, CF_OBJ(r1) # obj l.lwz r4, CF_CLEANUP(r1) # cleanup l.ori r5, r30, 0 # ps_strings l.addi r1, r1, CF_LEN # pop stack l.jalr r11 # _start(obj, cleanup, ps_strings) l.ori r13, r0, 1 # _exit() l.sys 0 END(_rtld_start) .globl _rtld_bind /* * r11 = rela offset * r12 = GOT[1] (&obj) * r15 = GOT[2] (&_rtld_bind_start) */ ENTRY_NP(_rtld_bind_start) l.sw -4(r1), r9 # save lr l.sw -8(r1), r8 # save arg5 l.sw -12(r1), r7 # save arg4 l.sw -16(r1), r6 # save arg3 l.sw -20(r1), r5 # save arg2 l.sw -24(r1), r4 # save arg1 l.sw -28(r1), r3 # save arg0 l.sw -32(r1), r1 # establish stack frame l.addi r1, r1, -32 l.ori r3, r12, 0 # obj l.ori r4, r11, 0 # reloff l.jal _C_LABEL(_rtld_bind) # _rtld_bind(obj, reloff) l.nop l.addi r1, r1, 32 # pop stack frame l.lwz r3, -28(r1) # restore arg0 l.lwz r4, -24(r1) # restore arg1 l.lwz r5, -20(r1) # restore arg2 l.lwz r6, -16(r1) # restore arg3 l.lwz r7, -12(r1) # restore arg4 l.lwz r8, -8(r1) # restore arg5 l.lwz r9, -4(r1) # restore lr l.jr r11 # jump to routine l.nop END(_rtld_bind_start) src/libexec/ld.elf_so/arch/powerpc004075500011300000175000000000001517752563000174105ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/powerpc/CVS004075500011300000175000000000001517752563000200435ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/powerpc/CVS/Root010064400011300000175000000000441504273241000207460ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/ld.elf_so/arch/powerpc/CVS/Repository010064400011300000175000000000431504273241000222010ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/powerpc src/libexec/ld.elf_so/arch/powerpc/CVS/Entries010066400011300000175000000004341517752563000214560ustar00srcmastrnetbsd/ppc_reloc.c/1.66/Sat Nov 30 01:04:05 2024//Tnetbsd-11 /rtld_start.S/1.17/Mon Sep 26 01:52:22 2011//Tnetbsd-11 /rtld_start64.S/1.2/Thu Mar 6 19:19:40 2014//Tnetbsd-11 /Makefile.inc/1.17.4.1/Sat May 9 03:35:52 2026//Tnetbsd-11 /fixup.c/1.3.2.2/Wed May 6 17:18:04 2026//Tnetbsd-11 D src/libexec/ld.elf_so/arch/powerpc/CVS/Tag010064400011300000175000000000131522207752300205410ustar00srcmastrnetbsdTnetbsd-11 src/libexec/ld.elf_so/arch/powerpc/Makefile.inc010064400011300000175000000005161517752563000216760ustar00srcmastrnetbsd# $NetBSD: Makefile.inc,v 1.17.4.1 2026/05/06 17:18:04 martin Exp $ SRCS+= ppc_reloc.c fixup.c LDFLAGS+= -Wl,-e,_rtld_start CPPFLAGS+= -fPIC CPPFLAGS+= -DRTLD_COMMON_CALL_IFUNC_RELA .if ${LDELFSO_MACHINE_ARCH} == "powerpc64" SRCS+= rtld_start64.S CPPFLAGS+= -DELFSIZE=64 .else SRCS+= rtld_start.S CPPFLAGS+= -DELFSIZE=32 .endif src/libexec/ld.elf_so/arch/powerpc/ppc_reloc.c010064400011300000175000000372001472246220500215710ustar00srcmastrnetbsd/* $NetBSD: ppc_reloc.c,v 1.66 2024/11/30 01:04:05 christos Exp $ */ /*- * Copyright (C) 1998 Tsubai Masanari * Portions copyright 2002 Charles M. Hannum * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ /* * Power ELF relocations. * * Reference: * * Power Architecture(R) 32-bit * Application Binary Interface Supplement 1.0 - Linux(R) * http://web.archive.org/web/20120608163845/https://www.power.org/resources/downloads/Power-Arch-32-bit-ABI-supp-1.0-Linux.pdf * * 64-bit PowerPC ELF Application Binary Interface Supplement 1.9 * https://refspecs.linuxfoundation.org/ELF/ppc64/PPC-elf64abi-1.9.pdf */ #include #ifndef lint __RCSID("$NetBSD: ppc_reloc.c,v 1.66 2024/11/30 01:04:05 christos Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include "debug.h" #include "rtld.h" #include void _rtld_powerpc_pltcall(Elf_Word); void _rtld_powerpc_pltresolve(Elf_Word, Elf_Word); #define __u64(x) ((uint64_t)(x)) #define __u32(x) ((uint32_t)(x)) #define __ha48 __u64(0xffffffff8000) #define __ha32 __u64(0xffff8000) #define __ha16 __u32(0x8000) #define __ha(x,n) ((((x) >> (n)) + (((x) & __ha##n) == __ha##n)) & 0xffff) #define __hi(x,n) (((x) >> (n)) & 0xffff) #ifdef __LP64 #define highesta(x) __ha(__u64(x), 48) #define highest(x) __hi(__u64(x), 48) #define higher(x) __ha(__u64(x), 32) #define higher(x) __hi(__u64(x), 32) #endif #define ha(x) __ha(__u32(x), 16) #define hi(x) __hi(__u32(x), 16) #define lo(x) (__u32(x) & 0xffff) #ifdef _LP64 /* function descriptor for _rtld_bind_start */ extern const uint64_t _rtld_bind_start[3]; #else void _rtld_bind_bssplt_start(void); void _rtld_bind_secureplt_start(void); #endif Elf_Addr _rtld_bind(const Obj_Entry *, Elf_Word); void _rtld_relocate_nonplt_self(Elf_Dyn *, Elf_Addr); static int _rtld_relocate_plt_object(const Obj_Entry *, const Elf_Rela *, int, Elf_Addr *); /* * The PPC32 PLT format consists of three sections: * (1) The "pltcall" and "pltresolve" glue code. This is always 18 words. * (2) The code part of the PLT entries. There are 2 words per entry for * up to 8192 entries, then 4 words per entry for any additional entries. * (3) The data part of the PLT entries, comprising a jump table. * This section is half the size of the second section (ie. 1 or 2 words * per entry). */ void _rtld_setup_pltgot(const Obj_Entry *obj) { #ifdef _LP64 /* * For powerpc64, just copy the function descriptor to pltgot[0]. */ if (obj->pltgot != NULL) { obj->pltgot[0] = (Elf_Addr) _rtld_bind_start[0]; obj->pltgot[1] = (Elf_Addr) _rtld_bind_start[1]; obj->pltgot[2] = (Elf_Addr) obj; } #else /* * Secure-PLT is much more sane. */ if (obj->gotptr != NULL) { obj->gotptr[1] = (Elf_Addr) _rtld_bind_secureplt_start; obj->gotptr[2] = (Elf_Addr) obj; dbg(("obj %s secure-plt gotptr=%p start=%p obj=%p", obj->path, obj->gotptr, (void *) obj->gotptr[1], (void *) obj->gotptr[2])); } else { /* * Setup the plt glue routines (for bss-plt). */ #define BSSPLTCALL_SIZE 20 #define BSSPLTRESOLVE_SIZE 24 Elf_Word *pltcall, *pltresolve; Elf_Word *jmptab; int N = obj->pltrelalim - obj->pltrela; /* Entries beyond 8192 take twice as much space. */ if (N > 8192) N += N-8192; dbg(("obj %s bss-plt pltgot=%p jmptab=%u start=%p obj=%p", obj->path, obj->pltgot, 18 + N * 2, _rtld_bind_bssplt_start, obj)); pltcall = obj->pltgot; jmptab = pltcall + 18 + N * 2; memcpy(pltcall, _rtld_powerpc_pltcall, BSSPLTCALL_SIZE); pltcall[1] |= ha(jmptab); pltcall[2] |= lo(jmptab); pltresolve = obj->pltgot + 8; memcpy(pltresolve, _rtld_powerpc_pltresolve, BSSPLTRESOLVE_SIZE); pltresolve[0] |= ha(_rtld_bind_bssplt_start); pltresolve[1] |= lo(_rtld_bind_bssplt_start); pltresolve[3] |= ha(obj); pltresolve[4] |= lo(obj); /* * Invalidate the icache for only the code part of the PLT * (and not the jump table at the end). */ __syncicache(pltcall, (char *)jmptab - (char *)pltcall); } #endif } void _rtld_relocate_nonplt_self(Elf_Dyn *dynp, Elf_Addr relocbase) { const Elf_Rela *rela = 0, *relalim; Elf_Addr relasz = 0; Elf_Addr *where; for (; dynp->d_tag != DT_NULL; dynp++) { switch (dynp->d_tag) { case DT_RELA: rela = (const Elf_Rela *)(relocbase + dynp->d_un.d_ptr); break; case DT_RELASZ: relasz = dynp->d_un.d_val; break; } } relalim = (const Elf_Rela *)((const uint8_t *)rela + relasz); for (; rela < relalim; rela++) { where = (Elf_Addr *)(relocbase + rela->r_offset); *where = (Elf_Addr)(relocbase + rela->r_addend); } } int _rtld_relocate_nonplt_objects(Obj_Entry *obj) { const Elf_Rela *rela; const Elf_Sym *def = NULL; const Obj_Entry *defobj = NULL; unsigned long last_symnum = ULONG_MAX; for (rela = obj->rela; rela < obj->relalim; rela++) { Elf_Addr *where; Elf_Addr tmp; unsigned long symnum; where = (Elf_Addr *)(obj->relocbase + rela->r_offset); symnum = ELF_R_SYM(rela->r_info); switch (ELF_R_TYPE(rela->r_info)) { #ifdef _LP64 case R_TYPE(ADDR64): /*
S + A */ #else case R_TYPE(ADDR32): /*
S + A */ case R_TYPE(UADDR32): /*
S + A */ #endif case R_TYPE(GLOB_DAT): /*
S + A */ case R_TYPE(ADDR16_LO): case R_TYPE(ADDR16_HI): case R_TYPE(ADDR16_HA): case R_TYPE(DTPMOD): case R_TYPE(DTPREL): case R_TYPE(TPREL): if (last_symnum != symnum) { last_symnum = symnum; def = _rtld_find_symdef(symnum, obj, &defobj, false); if (def == NULL) return -1; } break; default: break; } switch (ELF_R_TYPE(rela->r_info)) { #if 1 /* XXX Should not be necessary. */ case R_TYPE(JMP_SLOT): #endif case R_TYPE(NONE): break; #ifdef _LP64 case R_TYPE(ADDR64): /*
S + A */ #else case R_TYPE(ADDR32): /*
S + A */ case R_TYPE(UADDR32): /*
S + A */ #endif case R_TYPE(GLOB_DAT): /*
S + A */ tmp = (Elf_Addr)(defobj->relocbase + def->st_value + rela->r_addend); if (*where != tmp) *where = tmp; rdbg(("32/GLOB_DAT %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where, defobj->path)); break; /* * Recent GNU ld does not resolve ADDR16_{LO,HI,HA} if * the reloc is in a writable section and the symbol * is not already referenced from text. */ case R_TYPE(ADDR16_LO): { tmp = (Elf_Addr)(defobj->relocbase + def->st_value + rela->r_addend); uint16_t tmp16 = lo(tmp); uint16_t *where16 = (uint16_t *)where; if (*where16 != tmp16) *where16 = tmp16; rdbg(("ADDR16_LO %s in %s --> #lo(%p) = 0x%x in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)tmp, tmp16, defobj->path)); break; } case R_TYPE(ADDR16_HI): case R_TYPE(ADDR16_HA): { tmp = (Elf_Addr)(defobj->relocbase + def->st_value + rela->r_addend); uint16_t tmp16 = hi(tmp); if (ELF_R_TYPE(rela->r_info) == R_TYPE(ADDR16_HA) && (tmp & __ha16)) ++tmp16; /* adjust to ha(tmp) */ uint16_t *where16 = (uint16_t *)where; if (*where16 != tmp16) *where16 = tmp16; rdbg(("ADDR16_H%c %s in %s --> #h%c(%p) = 0x%x in %s", (ELF_R_TYPE(rela->r_info) == R_TYPE(ADDR16_HI) ? 'I' : 'A'), obj->strtab + obj->symtab[symnum].st_name, obj->path, (ELF_R_TYPE(rela->r_info) == R_TYPE(ADDR16_HI) ? 'i' : 'a'), (void *)tmp, tmp16, defobj->path)); break; } case R_TYPE(RELATIVE): /*
B + A */ *where = (Elf_Addr)(obj->relocbase + rela->r_addend); rdbg(("RELATIVE in %s --> %p", obj->path, (void *)*where)); break; case R_TYPE(COPY): /* * These are deferred until all other relocations have * been done. All we do here is make sure that the * COPY relocation is not in a shared library. They * are allowed only in executable files. */ if (obj->isdynamic) { _rtld_error( "%s: Unexpected R_COPY relocation in shared library", obj->path); return -1; } rdbg(("COPY (avoid in main)")); break; case R_TYPE(DTPMOD): *where = (Elf_Addr)defobj->tlsindex; rdbg(("DTPMOD32 %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where, defobj->path)); break; case R_TYPE(DTPREL): *where = (Elf_Addr)(def->st_value + rela->r_addend - TLS_DTV_OFFSET); rdbg(("DTPREL32 %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where, defobj->path)); break; case R_TYPE(TPREL): if (!defobj->tls_static && _rtld_tls_offset_allocate(__UNCONST(defobj))) return -1; *where = (Elf_Addr)(def->st_value + rela->r_addend + defobj->tlsoffset - TLS_TP_OFFSET); rdbg(("TPREL32 %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where, defobj->path)); break; case R_TYPE(IRELATIVE): /* IFUNC relocations are handled in _rtld_call_ifunc */ if (obj->ifunc_remaining_nonplt == 0) { obj->ifunc_remaining_nonplt = obj->relalim - rela; } break; default: rdbg(("sym = %lu, type = %lu, offset = %p, " "addend = %p, contents = %p, symbol = %s", (u_long)ELF_R_SYM(rela->r_info), (u_long)ELF_R_TYPE(rela->r_info), (void *)rela->r_offset, (void *)rela->r_addend, (void *)*where, obj->strtab + obj->symtab[symnum].st_name)); _rtld_error("%s: Unsupported relocation type %ld " "in non-PLT relocations", obj->path, (u_long) ELF_R_TYPE(rela->r_info)); return -1; } } return 0; } int _rtld_relocate_plt_lazy(Obj_Entry *obj) { #ifdef _LP64 /* * For PowerPC64, the plt stubs handle an empty function descriptor * so there's nothing to do. */ /* XXX ifunc support */ #else Elf_Addr * const pltresolve = obj->pltgot + 8; const Elf_Rela *rela; for (rela = obj->pltrelalim; rela-- > obj->pltrela;) { size_t reloff = rela - obj->pltrela; Elf_Word *where = (Elf_Word *)(obj->relocbase + rela->r_offset); assert(ELF_R_TYPE(rela->r_info) == R_TYPE(JMP_SLOT) || ELF_R_TYPE(rela->r_info) == R_TYPE(IRELATIVE)); if (ELF_R_TYPE(rela->r_info) == R_TYPE(IRELATIVE)) { /* No ifunc support for old-style insecure PLT. */ assert(obj->gotptr != NULL); obj->ifunc_remaining = obj->pltrelalim - rela; } if (obj->gotptr != NULL) { /* * For now, simply treat then as relative. */ *where += (Elf_Addr)obj->relocbase; } else { int distance; if (reloff < 32768) { /* li r11,reloff */ *where++ = 0x39600000 | reloff; } else { /* lis r11,ha(reloff) */ /* addi r11,lo(reloff) */ *where++ = 0x3d600000 | ha(reloff); *where++ = 0x396b0000 | lo(reloff); } /* b pltresolve */ distance = (Elf_Addr)pltresolve - (Elf_Addr)where; *where++ = 0x48000000 | (distance & 0x03fffffc); /* * Icache invalidation is not done for each entry here * because we sync the entire code part of the PLT once * in _rtld_setup_pltgot() after all the entries have been * initialized. */ /* __syncicache(where - 3, 12); */ } } #endif /* !_LP64 */ return 0; } static int _rtld_relocate_plt_object(const Obj_Entry *obj, const Elf_Rela *rela, int reloff, Elf_Addr *tp) { Elf_Word *where = (Elf_Word *)(obj->relocbase + rela->r_offset); Elf_Addr value; const Elf_Sym *def; const Obj_Entry *defobj; unsigned long info = rela->r_info; assert(ELF_R_TYPE(info) == R_TYPE(JMP_SLOT)); def = _rtld_find_plt_symdef(ELF_R_SYM(info), obj, &defobj, tp != NULL); if (__predict_false(def == NULL)) return -1; if (__predict_false(def == &_rtld_sym_zero)) return 0; if (ELF_ST_TYPE(def->st_info) == STT_GNU_IFUNC) { if (tp == NULL) return 0; value = _rtld_resolve_ifunc(defobj, def); } else { value = (Elf_Addr)(defobj->relocbase + def->st_value); } rdbg(("bind now/fixup in %s --> new=%p", defobj->strtab + def->st_name, (void *)value)); #ifdef _LP64 /* * For PowerPC64 we simply replace the function descriptor in the * PLTGOT with the one from source object. */ assert(where >= (Elf_Word *)obj->pltgot); assert(where < (Elf_Word *)obj->pltgot + (obj->pltrelalim - obj->pltrela)); const Elf_Addr * const fdesc = (Elf_Addr *) value; where[0] = fdesc[0]; where[1] = fdesc[1]; where[2] = fdesc[2]; #else ptrdiff_t distance = value - (Elf_Addr)where; if (obj->gotptr != NULL) { /* * For Secure-PLT we simply replace the entry in GOT with the * address of the routine. */ assert(where >= (Elf_Word *)obj->pltgot); assert(where < (Elf_Word *)obj->pltgot + (obj->pltrelalim - obj->pltrela)); *where = value; } else if (labs(distance) < 32*1024*1024) { /* inside 32MB? */ /* b value # branch directly */ *where = 0x48000000 | (distance & 0x03fffffc); __syncicache(where, 4); } else { Elf_Addr *pltcall, *jmptab; int N = obj->pltrelalim - obj->pltrela; /* Entries beyond 8192 take twice as much space. */ if (N > 8192) N += N-8192; pltcall = obj->pltgot; jmptab = pltcall + 18 + N * 2; jmptab[reloff] = value; if (reloff < 32768) { /* li r11,reloff */ *where++ = 0x39600000 | reloff; } else { #ifdef notyet /* lis r11,ha(value) */ /* addi r11,lo(value) */ /* mtctr r11 */ /* bctr */ *where++ = 0x3d600000 | ha(value); *where++ = 0x396b0000 | lo(value); *where++ = 0x7d6903a6; *where++ = 0x4e800420; #else /* lis r11,ha(reloff) */ /* addi r11,lo(reloff) */ *where++ = 0x3d600000 | ha(reloff); *where++ = 0x396b0000 | lo(reloff); #endif } /* b pltcall */ distance = (Elf_Addr)pltcall - (Elf_Addr)where; *where++ = 0x48000000 | (distance & 0x03fffffc); __syncicache(where - 3, 12); } #endif /* _LP64 */ if (tp) *tp = value; return 0; } Elf_Addr _rtld_bind(const Obj_Entry *obj, Elf_Word reloff) { const Elf_Rela *rela = obj->pltrela + reloff; Elf_Addr new_value; int err; new_value = 0; /* XXX gcc */ _rtld_shared_enter(); err = _rtld_relocate_plt_object(obj, rela, reloff, &new_value); if (err) _rtld_die(); _rtld_shared_exit(); #ifdef _LP64 return obj->glink; #else return new_value; #endif } int _rtld_relocate_plt_objects(const Obj_Entry *obj) { const Elf_Rela *rela; int reloff; for (rela = obj->pltrela, reloff = 0; rela < obj->pltrelalim; rela++, reloff++) { if (_rtld_relocate_plt_object(obj, rela, reloff, NULL) < 0) return -1; } return 0; } src/libexec/ld.elf_so/arch/powerpc/rtld_start.S010064400011300000175000000102751163775532600220030ustar00srcmastrnetbsd/* $NetBSD: rtld_start.S,v 1.17 2011/09/26 01:52:22 mrg Exp $ */ /*- * Copyright (C) 1998 Tsubai Masanari * Portions copyright 2002 Charles M. Hannum * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ #include .globl _rtld_start .globl _rtld .text _rtld_start: stwu %r1,-48(%r1) stw %r3,12(%r1) # argc stw %r4,16(%r1) # argv stw %r5,20(%r1) # envp /* stw %r6,24(%r1) # obj (always 0) */ /* stw %r7,28(%r1) # cleanup (always 0) */ stw %r8,32(%r1) # ps_strings bcl 20,31,1f 1: mflr %r30 mr %r3,%r30 # save for _DYNAMIC addis %r30,%r30,_GLOBAL_OFFSET_TABLE_-1b@ha addi %r30,%r30,_GLOBAL_OFFSET_TABLE_-1b@l addis %r3,%r3,_DYNAMIC-1b@ha # get _DYNAMIC actual address addi %r3,%r3,_DYNAMIC-1b@l lwz %r28,0(%r30) # get base-relative &_DYNAMIC sub %r28,%r3,%r28 # r28 = relocbase mr %r4,%r28 # r4 = relocbase bl _rtld_relocate_nonplt_self lwz %r3,16(%r1) addi %r3,%r3,-12 # sp = &argv[-3] /* XXX */ mr %r4,%r28 # r4 = relocbase bl _rtld # _start = _rtld(sp, relocbase) mtlr %r3 lwz %r3,12(%r1) # argc lwz %r4,16(%r1) # argv lwz %r5,20(%r1) # envp lwz %r6,-8(%r4) # obj = sp[1] (== argv[-2]) lwz %r7,-12(%r4) # cleanup = sp[0] (== argv[-3]) lwz %r8,32(%r1) # ps_strings addi %r1,%r1,48 blrl # _start(argc, argv, envp, obj, cleanup, ps_strings) li %r0,1 # _exit() sc END(_rtld_start) .globl _rtld_bind /* * secure-plt expects %r11 to be the offset to the rela entry. * bss-plt expects %r11 to be index of the rela entry. * So for bss-plt, we multiply the index by 12 to get the offset. */ ENTRY_NOPROFILE(_rtld_bind_secureplt_start) stwu %r1,-160(%r1) stw %r0,20(%r1) /* * Instead of division which is costly we will use multiplicative * inverse. a / n = ((a * inv(n)) >> 32) * where inv(n) = (0x100000000 + n - 1) / n */ mr %r0,%r11 lis %r11,0x15555556@h # load multiplicative inverse of 12 ori %r11,%r11,0x15555556@l mulhwu %r11,%r11,%r0 # get high half of multiplication b 1f ENTRY_NOPROFILE(_rtld_bind_bssplt_start) stwu %r1,-160(%r1) stw %r0,20(%r1) 1: mflr %r0 stw %r0,16(%r1) # save lr mfcr %r0 stw %r0,12(%r1) # save cr stmw %r3,24(%r1) # save r3-r31 mr %r3,%r12 # obj mr %r4,%r11 # reloff bl _rtld_bind # _rtld_bind(obj, reloff) mtctr %r3 lmw %r3,24(%r1) # load r3-r31 lwz %r0,12(%r1) # restore cr mtcr %r0 lwz %r0,16(%r1) # restore lr mtlr %r0 lwz %r0,20(%r1) addi %r1,%r1,160 bctr END(_rtld_bind_secureplt_start) .globl _rtld_powerpc_pltcall .globl _rtld_powerpc_pltresolve _rtld_powerpc_pltcall: slwi %r11,%r11,2 addis %r11,%r11,0 # addis 11,11,jmptab@ha lwz %r11,0(%r11) # lwz 11,jmptab@l(11) mtctr %r11 bctr _rtld_powerpc_pltresolve: lis %r12,0 # lis 12,_rtld_bind_bssplt_start@ha addi %r12,%r12,0 # addi 12,12,_rtld_bind_bssplt_start@l mtctr %r12 lis %r12,0 # lis 12,obj@ha addi %r12,%r12,0 # addi 12,12,obj@l bctr src/libexec/ld.elf_so/arch/powerpc/rtld_start64.S010064400011300000175000000102541230614511400221300ustar00srcmastrnetbsd/* $NetBSD: rtld_start64.S,v 1.2 2014/03/06 19:19:40 matt Exp $ */ /*- * Copyright (C) 1998 Tsubai Masanari * Portions copyright 2002 Charles M. Hannum * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ #include .globl _rtld_relocate_nonplt_self .globl _rtld .text ENTRY_NOPROFILE(_rtld_start) mr %r23,%r3 // argc mr %r24,%r4 // argv mr %r25,%r5 // envp /* mr %r26,%r6 // obj (always 0) */ /* mr %r27,%r7 // cleanup (always 0) */ mr %r28,%r8 // ps_strings li %r0,0 stdu %r0,-64(%r1) // terminate stack chain std %r2,40(%r1) // save TOC std %r0,16(%r1) // ditto bcl 20,31,1f 1: mflr %r30 ld %r3,0(%r2) // TOC[0] = &TOC sub %r29,%r2,%r3 // compute relocbase addis %r3,%r3,_DYNAMIC-1b@ha // get _DYNAMIC actual address addi %r3,%r3,_DYNAMIC-1b@l mr %r4,%r29 // r4 = relocbase CALL(_rtld_relocate_nonplt_self) addi %r3,%r1,48 // sp = mr %r4,%r29 // r4 = relocbase CALL(_rtld) // _start = _rtld(sp, relocbase) ld %r0,0(%r3) // func address ld %r2,8(%r3) // TOC address ld %r11,16(%r3) // environment pointer mtctr %r0 // so we can call it. mr %r3,%r23 // argc mr %r4,%r24 // argv mr %r5,%r25 // envp ld %r6,56(%r1) // obj = [1] ld %r7,48(%r1) // cleanup = [0] mr %r8,%r28 // ps_strings bctrl // _start(argc, argv, envp, obj, cleanup, ps_strings) nop li %r0,1 // _exit() sc END(_rtld_start) .globl _rtld_bind /* * %r0 has the index of the rela, %r12 has a pointer to the plt entry. */ ENTRY_NOPROFILE(_rtld_bind_start) std %r3,-72(%r1) // save argument register std %r4,-64(%r1) // save argument register std %r5,-56(%r1) // save argument register std %r6,-48(%r1) // save argument register std %r7,-40(%r1) // save argument register std %r8,-32(%r1) // save argument register std %r9,-24(%r1) // save argument register std %r10,-16(%r1) // save argument register std %r31,-8(%r1) // save register stdu %r1,-(48+80)(%r1) // create back chain mflr %r10 std %r10,16(%r1) // save LR mfcr %r9 std %r9,8(%r1) // save CR to be safe mr %r31, %r12 // save this across bind call mr %r3, %r11 // obj mr %r4, %r0 // reloff CALL(_rtld_bind) // _rtld_bind(obj, reloff) mtctr %r3 mr %r12,%r31 // restore r12 ld %r0,8(%r1) // get saved CR mtcr %r0 // restore it ld %r0,16(%r1) // get saved LR mtlr %r0 // restore it addi %r1,%r1,(48+80) // adjust stack ld %r3,-72(%r1) // restore argument register ld %r4,-64(%r1) // restore argument register ld %r5,-56(%r1) // restore argument register ld %r6,-48(%r1) // restore argument register ld %r7,-40(%r1) // restore argument register ld %r8,-32(%r1) // restore argument register ld %r9,-24(%r1) // restore argument register ld %r10,-16(%r1) // restore argument register ld %r31,-8(%r1) // restore register bctr END(_rtld_bind_start) src/libexec/ld.elf_so/arch/powerpc/fixup.c010064400011300000175000000121241517667371400207710ustar00srcmastrnetbsd/* $NetBSD: fixup.c,v 1.3.2.2 2026/05/06 17:18:04 martin Exp $ */ /*- * Copyright (c) 2026 Jared McNeill * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint __RCSID("$NetBSD: fixup.c,v 1.3.2.2 2026/05/06 17:18:04 martin Exp $"); #endif #include #include #include #include #include #include "debug.h" #include "rtld.h" static bool _rtld_fixup_init; static uint32_t _rtld_ppc_pvr; static int _rtld_ncpus; union instr { u_int i_int; struct { u_int i_opcd:6; u_int i_rs:5; u_int i_ra:5; u_int i_rb:5; u_int i_xo:10; u_int i_rc:1; } i_x; }; #define OPC_integer_31 0x1f #define OPC31_DCBST 0x036 #define OPC31_STWCX 0x096 #define IBMESPRESSO_P(_pvr) (((_pvr) >> 16) == 0x7001) static int _rtld_espresso_fixup_range(caddr_t data_addr, size_t data_size, int data_prot) { uint32_t *start, *end, *where; union instr previ; start = (uint32_t *)data_addr; end = start + data_size / sizeof(*where); previ.i_int = 0; if ((data_prot & PROT_WRITE) == 0 && mprotect(start, data_size, data_prot | PROT_WRITE) == -1) { _rtld_error("Cannot write-enable segment: %s", xstrerror(errno)); return -1; } for (where = start; where < end; where++) { union instr i = *(union instr *)where; if (i.i_x.i_opcd == OPC_integer_31 && i.i_x.i_xo == OPC31_STWCX && i.i_x.i_rc == 1) { if (previ.i_x.i_opcd == OPC_integer_31 && previ.i_x.i_xo == OPC31_DCBST && previ.i_x.i_rs == 0 && previ.i_x.i_ra == i.i_x.i_ra && previ.i_x.i_rb == i.i_x.i_rb) { dbg(("skip instruction at %p (not required)", where)); goto next_opcode; } dbg(("fixup instruction at %p: 0x%x", where, i.i_int)); i.i_x.i_rc = 0; *where = i.i_int; __syncicache(where, 4); } next_opcode: previ = i; } if ((data_prot & PROT_WRITE) == 0 && mprotect(start, data_size, data_prot) == -1) { _rtld_error("Cannot write-protect segment: %s", xstrerror(errno)); return -1; } return 0; } static int _rtld_espresso_fixup(const char *path, int fd, Elf_Ehdr *ehdr, Elf_Phdr *phdr, caddr_t data_addr, size_t data_size, int data_prot) { Elf_Shdr *shdr; size_t shdr_size; int i; if (_rtld_ncpus == 1 || ehdr->e_shnum == 0 || (phdr->p_flags & PF_X) == 0) { return 0; } shdr_size = (size_t)ehdr->e_shentsize * ehdr->e_shnum; shdr = mmap(NULL, shdr_size, PROT_READ, MAP_FILE | MAP_SHARED, fd, ehdr->e_shoff); if (shdr == MAP_FAILED) { _rtld_error("%s: mmap of shdr failed: %s", path, xstrerror(errno)); return -1; } for (i = 0; i < ehdr->e_shnum; i++) { Elf_Addr start = shdr[i].sh_addr; Elf_Addr end = shdr[i].sh_addr + shdr[i].sh_size - 1; if (shdr[i].sh_type != SHT_PROGBITS) { continue; } if ((shdr[i].sh_flags & SHF_EXECINSTR) == 0) { continue; } if (start >= phdr->p_vaddr && end < phdr->p_vaddr + phdr->p_filesz) { dbg(("%s: fixup (espresso) from %p to %p", path, (void *)start, (void *)end)); if (_rtld_espresso_fixup_range( data_addr + (start - phdr->p_vaddr), shdr[i].sh_size, data_prot) != 0) { _rtld_error("%s: fixup failed", path); munmap(shdr, shdr_size); return -1; } } } munmap(shdr, shdr_size); return 0; } int _rtld_map_segment_fixup(const char *path, int fd, Elf_Ehdr *ehdr, Elf_Phdr *phdr, caddr_t data_addr, size_t data_size, int data_prot) { if (!_rtld_fixup_init) { ssize_t i; size_t j; j = sizeof(_rtld_ppc_pvr); i = _rtld_sysctl("machdep.pvr", &_rtld_ppc_pvr, &j); if (i != CTLTYPE_INT) { _rtld_ppc_pvr = 0; } j = sizeof(_rtld_ncpus); i = _rtld_sysctl("hw.ncpu", &_rtld_ncpus, &j); if (i != CTLTYPE_INT) { _rtld_ncpus = 1; } _rtld_fixup_init = true; } if (IBMESPRESSO_P(_rtld_ppc_pvr)) { return _rtld_espresso_fixup(path, fd, ehdr, phdr, data_addr, data_size, data_prot); } return 0; } src/libexec/ld.elf_so/arch/riscv004075500011300000175000000000001504273241000170425ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/riscv/CVS004075500011300000175000000000001504273241000174755ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/riscv/CVS/Root010064400011300000175000000000441504273241000204150ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/ld.elf_so/arch/riscv/CVS/Repository010064400011300000175000000000411504273241000216460ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/riscv src/libexec/ld.elf_so/arch/riscv/CVS/Entries010064400011300000175000000002451504273241000211060ustar00srcmastrnetbsd/Makefile.inc/1.2/Thu Dec 27 18:58:14 2018//Tnetbsd-11 /mdreloc.c/1.11/Sun Dec 1 09:27:12 2024//Tnetbsd-11 /rtld_start.S/1.6/Sun May 7 12:41:48 2023//Tnetbsd-11 D src/libexec/ld.elf_so/arch/riscv/CVS/Tag010064400011300000175000000000131522207752300202100ustar00srcmastrnetbsdTnetbsd-11 src/libexec/ld.elf_so/arch/riscv/Makefile.inc010064400011300000175000000004311341122030600213160ustar00srcmastrnetbsd# $NetBSD: Makefile.inc,v 1.2 2018/12/27 18:58:14 christos Exp $ SRCS+= rtld_start.S mdreloc.c # XXX Should not be in CPPFLAGS! CPPFLAGS+= -fpic .if ${LDELFSO_MACHINE_ARCH} == "riscv64" CPPFLAGS+= -DELFSIZE=64 .else CPPFLAGS+= -DELFSIZE=32 .endif LDFLAGS+= -Wl,-e,_rtld_start src/libexec/ld.elf_so/arch/riscv/mdreloc.c010064400011300000175000000205571472302576000207300ustar00srcmastrnetbsd/* $NetBSD: mdreloc.c,v 1.11 2024/12/01 09:27:12 skrll Exp $ */ /*- * Copyright (c) 2014 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Matt Thomas of 3am Software Foundry. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include #ifndef lint __RCSID("$NetBSD: mdreloc.c,v 1.11 2024/12/01 09:27:12 skrll Exp $"); #endif /* not lint */ /* * RISC-V ELF relocations. * * Reference: * * [RISCVELF] RISC-V ELF Specification, 2024-07-17. * https://github.com/riscv-non-isa/riscv-elf-psabi-doc/blob/9fec6080d15e7f009c9e714d1e9b8dd7177b0b67/riscv-elf.adoc */ #include #include #include #include #include #include #include "debug.h" #include "rtld.h" void _rtld_bind_start(void); void _rtld_relocate_nonplt_self(Elf_Dyn *, Elf_Addr); void *_rtld_bind(const Obj_Entry *, Elf_Word); void _rtld_setup_pltgot(const Obj_Entry *obj) { obj->pltgot[0] = (Elf_Addr) &_rtld_bind_start; obj->pltgot[1] = (Elf_Addr) obj; } void _rtld_relocate_nonplt_self(Elf_Dyn *dynp, Elf_Addr relocbase) { const Elf_Rela *rela = NULL, *relalim; Elf_Addr relasz = 0; for (; dynp->d_tag != DT_NULL; dynp++) { switch (dynp->d_tag) { case DT_RELA: rela = (const Elf_Rela *)(relocbase + dynp->d_un.d_ptr); break; case DT_RELASZ: relasz = dynp->d_un.d_val; break; } } relalim = (const Elf_Rela *)((uintptr_t)rela + relasz); for (; rela < relalim; rela++) { Elf_Word r_type = ELF_R_TYPE(rela->r_info); Elf_Addr *where = (Elf_Addr *)(relocbase + rela->r_offset); switch (r_type) { case R_TYPE(RELATIVE): { Elf_Addr val = relocbase + rela->r_addend; *where = val; rdbg(("RELATIVE/L(%p) -> %p in ", where, (void *)val)); break; } case R_TYPE(NONE): break; default: abort(); } } } int _rtld_relocate_nonplt_objects(Obj_Entry *obj) { const Elf_Rela *rela; const Elf_Sym *def = NULL; const Obj_Entry *defobj = NULL; unsigned long last_symnum = ULONG_MAX; for (rela = obj->rela; rela < obj->relalim; rela++) { Elf_Addr * const where = (Elf_Addr *)(obj->relocbase + rela->r_offset); const Elf_Word r_type = ELF_R_TYPE(rela->r_info); unsigned long symnum; switch (r_type) { case R_TYPESZ(ADDR): case R_TYPESZ(TLS_DTPMOD): case R_TYPESZ(TLS_DTPREL): case R_TYPESZ(TLS_TPREL): symnum = ELF_R_SYM(rela->r_info); if (last_symnum != symnum) { last_symnum = symnum; def = _rtld_find_symdef(symnum, obj, &defobj, false); if (def == NULL) return -1; } break; default: break; } switch (r_type) { case R_TYPE(NONE): break; case R_TYPE(RELATIVE): { const Elf_Addr val = (Elf_Addr)obj->relocbase + rela->r_addend; rdbg(("RELATIVE(%p) -> %p (%s) in %s", where, (void *)val, obj->strtab + obj->symtab[ELF_R_SYM(rela->r_info)].st_name, obj->path)); *where = val; break; } case R_TYPESZ(ADDR): { const Elf_Addr val = (Elf_Addr)defobj->relocbase + def->st_value + rela->r_addend; rdbg(("ADDR(%p) -> %p (%s) in %s%s", where, (void *)val, obj->strtab + obj->symtab[ELF_R_SYM(rela->r_info)].st_name, obj->path, def == &_rtld_sym_zero ? " (symzero)" : "")); *where = val; break; } case R_TYPE(COPY): /* * These are deferred until all other relocations have * been done. All we do here is make sure that the * COPY relocation is not in a shared library. They * are allowed only in executable files. */ if (obj->isdynamic) { _rtld_error("%s: Unexpected R_COPY relocation" " in shared library", obj->path); return -1; } rdbg(("COPY (avoid in main)")); break; case R_TYPESZ(TLS_DTPMOD): { const Elf_Addr val = (Elf_Addr)defobj->tlsindex; rdbg(("TLS_DTPMOD(%p) -> %p (%s) in %s", where, (void *)val, obj->strtab + obj->symtab[ELF_R_SYM(rela->r_info)].st_name, obj->path)); *where = val; break; } case R_TYPESZ(TLS_DTPREL): { const Elf_Addr val = (Elf_Addr)(def->st_value + rela->r_addend - TLS_DTV_OFFSET); rdbg(("TLS_DTPREL(%p) -> %p (%s) in %s", where, (void *)val, obj->strtab + obj->symtab[ELF_R_SYM(rela->r_info)].st_name, defobj->path)); *where = val; break; } case R_TYPESZ(TLS_TPREL): if (!defobj->tls_static && _rtld_tls_offset_allocate(__UNCONST(defobj))) return -1; *where = (Elf_Addr)(def->st_value + defobj->tlsoffset + rela->r_addend); rdbg(("TLS_TPREL %s in %s --> %p in %s", obj->strtab + obj->symtab[ELF_R_SYM(rela->r_info)].st_name, obj->path, (void *)*where, defobj->path)); break; default: rdbg(("sym = %lu, type = %lu, offset = %p, " "addend = %p, contents = %p", (u_long)ELF_R_SYM(rela->r_info), (u_long)ELF_R_TYPE(rela->r_info), (void *)rela->r_offset, (void *)rela->r_addend, (void *)*where)); _rtld_error("%s: Unsupported relocation type %ld " "in non-PLT relocations", obj->path, (u_long)r_type); return -1; } } return 0; } int _rtld_relocate_plt_lazy(Obj_Entry *obj) { if (!obj->relocbase) return 0; for (const Elf_Rela *rela = obj->pltrela; rela < obj->pltrelalim; rela++) { Elf_Addr *where = (Elf_Addr *)(obj->relocbase + rela->r_offset); switch (ELF_R_TYPE(rela->r_info)) { case R_TYPE(JMP_SLOT): /* Just relocate the GOT slots pointing into the PLT */ *where += (Elf_Addr)obj->relocbase; rdbg(("fixup !main in %s --> %p", obj->path, (void *)*where)); break; default: rdbg(("not yet... %d", (int)ELF_R_TYPE(rela->r_info) )); } } return 0; } static int _rtld_relocate_plt_object(const Obj_Entry *obj, const Elf_Rela *rela, Elf_Addr *tp) { Elf_Addr * const where = (Elf_Addr *)(obj->relocbase + rela->r_offset); const Obj_Entry *defobj; Elf_Addr new_value; assert(ELF_R_TYPE(rela->r_info) == R_TYPE(JMP_SLOT)); const Elf_Sym *def = _rtld_find_plt_symdef(ELF_R_SYM(rela->r_info), obj, &defobj, tp != NULL); if (__predict_false(def == NULL)) return -1; if (__predict_false(def == &_rtld_sym_zero)) return -1; if (ELF_ST_TYPE(def->st_info) == STT_GNU_IFUNC) { if (tp == NULL) return 0; new_value = _rtld_resolve_ifunc(defobj, def); } else { new_value = (Elf_Addr)(defobj->relocbase + def->st_value); } rdbg(("bind now/fixup in %s --> old=%p new=%p", defobj->strtab + def->st_name, (void *)*where, (void *)new_value)); if (*where != new_value) *where = new_value; if (tp) *tp = new_value; return 0; } void * _rtld_bind(const Obj_Entry *obj, Elf_Word gotoff) { const Elf_Addr relidx = (gotoff / sizeof(Elf_Addr)); const Elf_Rela *pltrela = obj->pltrela + relidx; Elf_Addr new_value = 0; _rtld_shared_enter(); const int err = _rtld_relocate_plt_object(obj, pltrela, &new_value); if (err) _rtld_die(); _rtld_shared_exit(); return (void *)new_value; } int _rtld_relocate_plt_objects(const Obj_Entry *obj) { for (const Elf_Rela *rela = obj->pltrela; rela < obj->pltrelalim; rela++) { if (_rtld_relocate_plt_object(obj, rela, NULL) < 0) return -1; } return 0; } src/libexec/ld.elf_so/arch/riscv/rtld_start.S010064400011300000175000000075771442571621400214540ustar00srcmastrnetbsd/* $NetBSD: rtld_start.S,v 1.6 2023/05/07 12:41:48 skrll Exp $ */ /*- * Copyright (c) 2014 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Matt Thomas of 3am Software Foundry. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include .globl _C_LABEL(_rtld_relocate_nonplt_self) .globl _C_LABEL(_rtld) #define PTRSZ __SIZEOF_POINTER__ /* * void * ___start( * void (*cleanup)(void), * struct ps_strings *ps_strings * ) */ ENTRY(_rtld_start) mv s0, sp # save stack pointer addi sp, sp, -4 * PTRSZ # adjust stack pointer # -> 2 * PTR_SIZE(sp) for atexit # -> 3 * PTR_SIZE(sp) for obj_main mv s1, a1 # save ps_strings pointer .L0: auipc gp, %pcrel_hi(_GLOBAL_OFFSET_TABLE_) PTR_L t0, %pcrel_lo(.L0)(gp) # &_DYNAMIC .L1: auipc a0, %pcrel_hi(_DYNAMIC) addi a0, a0, %pcrel_lo(.L1) sub s2, a0, t0 # save for _rtld mv a1, s2 call _C_LABEL(_rtld_relocate_nonplt_self) mv a1, s2 # relocbase addi a0, sp, 2 * PTRSZ # sp call _C_LABEL(_rtld) # a0 = _rtld(sp, relocbase) mv t0, a0 PTR_L a0, 2 * PTRSZ(sp) # cleanup function // PTR_L a1, 3 * PTRSZ(sp) # obj_main pointer (not used) mv a1, s1 # restore ps_strings mv sp, s0 # restore stack pointer mv s0, zero # break stack chain jr t0 # _start(cleanup, ps_strings); END(_rtld_start) /* * Needs to be 12 so that stack alignment is preserved on both RV32 and RV64. */ #define XCALLFRAME_SIZ (12 * SZREG) #define XCALLFRAME_RA ( 8 * SZREG) #define XCALLFRAME_A7 ( 7 * SZREG) #define XCALLFRAME_A6 ( 6 * SZREG) #define XCALLFRAME_A5 ( 5 * SZREG) #define XCALLFRAME_A4 ( 4 * SZREG) #define XCALLFRAME_A3 ( 3 * SZREG) #define XCALLFRAME_A2 ( 2 * SZREG) #define XCALLFRAME_A1 ( 1 * SZREG) #define XCALLFRAME_A0 ( 0 * SZREG) /* * t0 = obj pointer * t1 = reloc offset */ ENTRY_NP(_rtld_bind_start) addi sp, sp, -XCALLFRAME_SIZ // save arguments on stack REG_S a0, XCALLFRAME_A0(sp) REG_S a1, XCALLFRAME_A1(sp) REG_S a2, XCALLFRAME_A2(sp) REG_S a3, XCALLFRAME_A3(sp) REG_S a4, XCALLFRAME_A4(sp) REG_S a5, XCALLFRAME_A5(sp) REG_S a6, XCALLFRAME_A6(sp) REG_S a7, XCALLFRAME_A7(sp) REG_S ra, XCALLFRAME_RA(sp) mv a0, t0 /* object from got.plt[1] */ mv a1, t1 /* reloc offset */ call _C_LABEL(_rtld_bind) mv t0, a0 /* save function pointer */ REG_L a0, XCALLFRAME_A0(sp) REG_L a1, XCALLFRAME_A1(sp) REG_L a2, XCALLFRAME_A2(sp) REG_L a3, XCALLFRAME_A3(sp) REG_L a4, XCALLFRAME_A4(sp) REG_L a5, XCALLFRAME_A5(sp) REG_L a6, XCALLFRAME_A6(sp) REG_L a7, XCALLFRAME_A7(sp) REG_L ra, XCALLFRAME_RA(sp) addi sp, sp, XCALLFRAME_SIZ jr t0 END(_rtld_bind_start) src/libexec/ld.elf_so/arch/sh3004075500011300000175000000000001504273241000164115ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/sh3/CVS004075500011300000175000000000001504273241000170445ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/sh3/CVS/Root010064400011300000175000000000441504273241000177640ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/ld.elf_so/arch/sh3/CVS/Repository010064400011300000175000000000371504273241000212220ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/sh3 src/libexec/ld.elf_so/arch/sh3/CVS/Entries010064400011300000175000000002451504273241000204550ustar00srcmastrnetbsd/Makefile.inc/1.7/Sat Jun 4 16:17:17 2005//Tnetbsd-11 /mdreloc.c/1.38/Wed Apr 16 17:51:01 2025//Tnetbsd-11 /rtld_start.S/1.7/Mon Apr 28 20:23:03 2008//Tnetbsd-11 D src/libexec/ld.elf_so/arch/sh3/CVS/Tag010064400011300000175000000000131522207752300175570ustar00srcmastrnetbsdTnetbsd-11 src/libexec/ld.elf_so/arch/sh3/Makefile.inc010064400011300000175000000003101025035201500206620ustar00srcmastrnetbsd# $NetBSD: Makefile.inc,v 1.7 2005/06/04 16:17:17 lukem Exp $ SRCS+= rtld_start.S mdreloc.c # XXX Should not be in CPPFLAGS! CPPFLAGS+= -fpic CPPFLAGS+= -DELFSIZE=32 LDFLAGS+= -Wl,-e,.rtld_start src/libexec/ld.elf_so/arch/sh3/mdreloc.c010064400011300000175000000220431477776700500203050ustar00srcmastrnetbsd/* $NetBSD: mdreloc.c,v 1.38 2025/04/16 17:51:01 riastradh Exp $ */ /* * Copyright 1996 John D. Polstra. * Copyright 1996 Matt Thomas * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by John Polstra. * 4. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ #include #ifndef lint __RCSID("$NetBSD: mdreloc.c,v 1.38 2025/04/16 17:51:01 riastradh Exp $"); #endif /* not lint */ /* * SuperH ELF relocations. * * Reference: * * [RM0197] SH-4 generic and C specific application binary interface * https://www.st.com/resource/en/reference_manual/rm0197-sh4-generic-and-c-specific-application-binary-interface-stmicroelectronics.pdf */ #include #include #include "debug.h" #include "rtld.h" void _rtld_bind_start(void); void _rtld_relocate_nonplt_self(Elf_Dyn *, Elf_Addr); caddr_t _rtld_bind(const Obj_Entry *, Elf_Word); static inline int _rtld_relocate_plt_object(const Obj_Entry *, const Elf_Rela *, Elf_Addr *); void _rtld_setup_pltgot(const Obj_Entry *obj) { obj->pltgot[1] = (Elf_Addr) obj; obj->pltgot[2] = (Elf_Addr) &_rtld_bind_start; } void _rtld_relocate_nonplt_self(Elf_Dyn *dynp, Elf_Addr relocbase) { const Elf_Rela *rela = 0, *relalim; Elf_Addr relasz = 0; Elf_Addr *where; for (; dynp->d_tag != DT_NULL; dynp++) { switch (dynp->d_tag) { case DT_RELA: rela = (const Elf_Rela *)(relocbase + dynp->d_un.d_ptr); break; case DT_RELASZ: relasz = dynp->d_un.d_val; break; } } relalim = (const Elf_Rela *)((const uint8_t *)rela + relasz); for (; rela < relalim; rela++) { where = (Elf_Addr *)(relocbase + rela->r_offset); *where = (Elf_Addr)(relocbase + rela->r_addend); } } int _rtld_relocate_nonplt_objects(Obj_Entry *obj) { const Elf_Rela *rela; const Elf_Sym *def = NULL; const Obj_Entry *defobj = NULL; unsigned long last_symnum = ULONG_MAX; for (rela = obj->rela; rela < obj->relalim; rela++) { Elf_Addr *where; Elf_Addr tmp; unsigned long symnum; where = (Elf_Addr *)(obj->relocbase + rela->r_offset); switch (ELF_R_TYPE(rela->r_info)) { case R_TYPE(GOT32): case R_TYPE(REL32): case R_TYPE(DIR32): case R_TYPE(GLOB_DAT): case R_TYPE(TLS_DTPOFF32): case R_TYPE(TLS_DTPMOD32): case R_TYPE(TLS_TPOFF32): symnum = ELF_R_SYM(rela->r_info); if (last_symnum != symnum) { last_symnum = symnum; def = _rtld_find_symdef(symnum, obj, &defobj, false); if (def == NULL) return -1; } break; default: break; } switch (ELF_R_TYPE(rela->r_info)) { case R_TYPE(NONE): break; #if 1 /* XXX should not occur */ case R_TYPE(GOT32): tmp = (Elf_Addr)(defobj->relocbase + def->st_value + rela->r_addend); if (*where != tmp) *where = tmp; rdbg(("GOT32 %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where, defobj->path)); break; case R_TYPE(REL32): tmp = (Elf_Addr)(defobj->relocbase + def->st_value + rela->r_addend) - (Elf_Addr)where; if (*where != tmp) *where = tmp; rdbg(("PC32 %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where, defobj->path)); break; #endif case R_TYPE(DIR32): tmp = (Elf_Addr)(defobj->relocbase + def->st_value + rela->r_addend); if (*where != tmp) *where = tmp; rdbg(("32 %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where, defobj->path)); break; case R_TYPE(GLOB_DAT): tmp = (Elf_Addr)(defobj->relocbase + def->st_value) + rela->r_addend; if (*where != tmp) *where = tmp; rdbg(("GLOB_DAT %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where, defobj->path)); break; case R_TYPE(RELATIVE): if (rela->r_addend) *where = (Elf_Addr)obj->relocbase + rela->r_addend; else *where += (Elf_Addr)obj->relocbase; rdbg(("RELATIVE in %s --> %p", obj->path, (void *)*where)); break; case R_TYPE(COPY): /* * These are deferred until all other relocations have * been done. All we do here is make sure that the * COPY relocation is not in a shared library. They * are allowed only in executable files. */ if (obj->isdynamic) { _rtld_error( "%s: Unexpected R_COPY relocation in shared library", obj->path); return -1; } rdbg(("COPY (avoid in main)")); break; case R_TYPE(TLS_DTPOFF32): *where = (Elf_Addr)(def->st_value); rdbg(("TLS_DTPOFF32 %s in %s --> %p", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where)); break; case R_TYPE(TLS_DTPMOD32): *where = (Elf_Addr)(defobj->tlsindex); rdbg(("TLS_DTPMOD32 %s in %s --> %p", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where)); break; case R_TYPE(TLS_TPOFF32): if (!defobj->tls_static && _rtld_tls_offset_allocate(__UNCONST(defobj))) return -1; *where = (Elf_Addr)def->st_value + rela->r_addend + defobj->tlsoffset + sizeof(struct tls_tcb); rdbg(("TLS_TPOFF32 %s in %s --> %p", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where)); break; default: rdbg(("sym = %lu, type = %lu, offset = %p, " "addend = %p, contents = %p, symbol = %s", (u_long)ELF_R_SYM(rela->r_info), (u_long)ELF_R_TYPE(rela->r_info), (void *)rela->r_offset, (void *)rela->r_addend, (void *)*where, obj->strtab + obj->symtab[symnum].st_name)); _rtld_error("%s: Unsupported relocation type %ld " "in non-PLT relocations", obj->path, (u_long) ELF_R_TYPE(rela->r_info)); return -1; } } return 0; } int _rtld_relocate_plt_lazy(Obj_Entry *obj) { const Elf_Rela *rela; if (!obj->relocbase) return 0; for (rela = obj->pltrela; rela < obj->pltrelalim; rela++) { Elf_Addr *where = (Elf_Addr *)(obj->relocbase + rela->r_offset); assert(ELF_R_TYPE(rela->r_info) == R_TYPE(JMP_SLOT)); /* Just relocate the GOT slots pointing into the PLT */ *where += (Elf_Addr)obj->relocbase; rdbg(("fixup !main in %s --> %p", obj->path, (void *)*where)); } return 0; } caddr_t _rtld_bind(const Obj_Entry *obj, Elf_Word reloff) { const Elf_Rela *rela = (const Elf_Rela *)((const uint8_t *)obj->pltrela + reloff); Elf_Addr new_value; int err; new_value = 0; /* XXX gcc */ _rtld_shared_enter(); err = _rtld_relocate_plt_object(obj, rela, &new_value); if (err) _rtld_die(); _rtld_shared_exit(); return (caddr_t)new_value; } int _rtld_relocate_plt_objects(const Obj_Entry *obj) { const Elf_Rela *rela = obj->pltrela; for (; rela < obj->pltrelalim; rela++) if (_rtld_relocate_plt_object(obj, rela, NULL) < 0) return -1; return 0; } static inline int _rtld_relocate_plt_object(const Obj_Entry *obj, const Elf_Rela *rela, Elf_Addr *tp) { Elf_Addr *where = (Elf_Addr *)(obj->relocbase + rela->r_offset); Elf_Addr new_value; const Elf_Sym *def; const Obj_Entry *defobj; unsigned long info = rela->r_info; assert(ELF_R_TYPE(info) == R_TYPE(JMP_SLOT)); def = _rtld_find_plt_symdef(ELF_R_SYM(info), obj, &defobj, tp != NULL); if (__predict_false(def == NULL)) return -1; if (__predict_false(def == &_rtld_sym_zero)) return 0; if (ELF_ST_TYPE(def->st_info) == STT_GNU_IFUNC) { if (tp == NULL) return 0; new_value = _rtld_resolve_ifunc(defobj, def); } else { new_value = (Elf_Addr)(defobj->relocbase + def->st_value); } rdbg(("bind now/fixup in %s --> old=%p new=%p", defobj->strtab + def->st_name, (void *)*where, (void *)new_value)); if (*where != new_value) *where = new_value; if (tp) *tp = new_value; return 0; } src/libexec/ld.elf_so/arch/sh3/rtld_start.S010064400011300000175000000066021100543104700207740ustar00srcmastrnetbsd/* $NetBSD: rtld_start.S,v 1.7 2008/04/28 20:23:03 martin Exp $ */ /*- * Copyright (c) 2001, 2002 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Marcus Comstedt. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include .text .align 2 .globl .rtld_start .type .rtld_start,@function .rtld_start: mova 2f,r0 mov.l @r0,r2 add r0,r2 /* GOT */ mov.l @(4,r0),r4 /* _DYNAMIC@GOTOFF */ add r2,r4 /* _DYNAMIC */ mov.l @(12,r0),r1 /* _rtld_relocate_nonplt_self offset */ mov.l @(8,r0),r0 /* _DYNAMIC@GOT */ mov r4,r5 mov.l @(r0,r2),r0 /* where linker thinks _DYNAMIC is */ sub r0,r5 /* compute relocation base */ bsrf r1 /* _rtld_relocate_nonplt_self(dynp, relocbase) */ mov.l r5,@-r15 /* save relocbase */ 4: mov.l @r15+,r5 /* restore relocbase */ add #-8,r15 /* room for values returned by _rtld */ mov r15,r4 mov.l 1f,r0 bsrf r0 /* _rtld(sp, relocbase) */ mov.l r9,@-r15 /* save ps_strings */ 3: mov.l @r15+,r9 /* restore ps_strings */ mov.l @r15+,r7 /* from _rtld: exit procedure */ mov.l @r15+,r8 /* from _rtld: main object */ mov.l @r15,r4 /* restore argc */ mov r15,r5 /* restore argv */ add #4,r5 mov r4,r6 /* restore envp */ shll2 r6 add r15,r6 jmp @r0 /* entry point returned by _rtld */ add #8,r6 .align 2 1: .long _rtld-3b 2: .long _GLOBAL_OFFSET_TABLE_ .long _DYNAMIC@GOTOFF .long _DYNAMIC@GOT .long _rtld_relocate_nonplt_self-4b .size .rtld_start,.-.rtld_start .align 2 .globl _rtld_bind_start .type _rtld_bind_start,@function _rtld_bind_start: /* r0 = obj, r1 = reloff */ mov.l r2,@-r15 /* save registers */ mov.l r3,@-r15 mov.l r4,@-r15 mov.l r5,@-r15 mov.l r6,@-r15 mov.l r7,@-r15 sts.l mach,@-r15 sts.l macl,@-r15 sts.l pr,@-r15 mov r0,r4 /* copy of obj */ mov.l 2f,r0 bsrf r0 /* call the binder */ mov r1,r5 /* copy of reloff */ 4: lds.l @r15+,pr /* restore registers */ lds.l @r15+,macl lds.l @r15+,mach mov.l @r15+,r7 mov.l @r15+,r6 mov.l @r15+,r5 mov.l @r15+,r4 mov.l @r15+,r3 jmp @r0 mov.l @r15+,r2 .align 2 2: .long _rtld_bind-4b .size _rtld_bind_start,.-_rtld_bind_start .end src/libexec/ld.elf_so/arch/sparc004075500011300000175000000000001504273241000170245ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/sparc/CVS004075500011300000175000000000001504273241000174575ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/sparc/CVS/Root010064400011300000175000000000441504273241000203770ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/ld.elf_so/arch/sparc/CVS/Repository010064400011300000175000000000411504273241000216300ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/sparc src/libexec/ld.elf_so/arch/sparc/CVS/Entries010064400011300000175000000002471504273241000210720ustar00srcmastrnetbsd/Makefile.inc/1.15/Tue Apr 3 21:10:27 2018//Tnetbsd-11 /mdreloc.c/1.60/Sat Aug 3 21:59:58 2024//Tnetbsd-11 /rtld_start.S/1.16/Mon Apr 28 20:23:03 2008//Tnetbsd-11 D src/libexec/ld.elf_so/arch/sparc/CVS/Tag010064400011300000175000000000131522207752300201720ustar00srcmastrnetbsdTnetbsd-11 src/libexec/ld.elf_so/arch/sparc/Makefile.inc010064400011300000175000000003621326076670300213250ustar00srcmastrnetbsd# $NetBSD: Makefile.inc,v 1.15 2018/04/03 21:10:27 joerg Exp $ SRCS+= rtld_start.S mdreloc.c # XXX Should not be in CPPFLAGS! CPPFLAGS+= -fpic CPPFLAGS+= -DELFSIZE=32 CPPFLAGS+= -DRTLD_COMMON_CALL_IFUNC_RELA LDFLAGS+= -Wl,-e,_rtld_start src/libexec/ld.elf_so/arch/sparc/mdreloc.c010064400011300000175000000341261465352413600207120ustar00srcmastrnetbsd/* $NetBSD: mdreloc.c,v 1.60 2024/08/03 21:59:58 riastradh Exp $ */ /*- * Copyright (c) 1999, 2002 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Paul Kranenburg and by Charles M. Hannum. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ /* * SPARC ELF relocations. * * Reference: * * SPARC Compliance Definition 2.4.1 * http://sparc.org/wp-content/uploads/2014/01/SCD.2.4.1.pdf.gz */ #include #ifndef lint __RCSID("$NetBSD: mdreloc.c,v 1.60 2024/08/03 21:59:58 riastradh Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include "rtldenv.h" #include "debug.h" #include "rtld.h" /* * The following table holds for each relocation type: * - the width in bits of the memory location the relocation * applies to (not currently used) * - the number of bits the relocation value must be shifted to the * right (i.e. discard least significant bits) to fit into * the appropriate field in the instruction word. * - flags indicating whether * * the relocation involves a symbol * * the relocation is relative to the current position * * the relocation is for a GOT entry * * the relocation is relative to the load address * */ #define _RF_S 0x80000000 /* Resolve symbol */ #define _RF_A 0x40000000 /* Use addend */ #define _RF_P 0x20000000 /* Location relative */ #define _RF_G 0x10000000 /* GOT offset */ #define _RF_B 0x08000000 /* Load address relative */ #define _RF_U 0x04000000 /* Unaligned */ #define _RF_SZ(s) (((s) & 0xff) << 8) /* memory target size */ #define _RF_RS(s) ( (s) & 0xff) /* right shift */ static const int reloc_target_flags[R_TYPE(TLS_TPOFF64)+1] = { 0, /* NONE */ _RF_S|_RF_A| _RF_SZ(8) | _RF_RS(0), /* RELOC_8 */ _RF_S|_RF_A| _RF_SZ(16) | _RF_RS(0), /* RELOC_16 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(0), /* RELOC_32 */ _RF_S|_RF_A|_RF_P| _RF_SZ(8) | _RF_RS(0), /* DISP_8 */ _RF_S|_RF_A|_RF_P| _RF_SZ(16) | _RF_RS(0), /* DISP_16 */ _RF_S|_RF_A|_RF_P| _RF_SZ(32) | _RF_RS(0), /* DISP_32 */ _RF_S|_RF_A|_RF_P| _RF_SZ(32) | _RF_RS(2), /* WDISP_30 */ _RF_S|_RF_A|_RF_P| _RF_SZ(32) | _RF_RS(2), /* WDISP_22 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(10), /* HI22 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(0), /* 22 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(0), /* 13 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(0), /* LO10 */ _RF_G| _RF_SZ(32) | _RF_RS(0), /* GOT10 */ _RF_G| _RF_SZ(32) | _RF_RS(0), /* GOT13 */ _RF_G| _RF_SZ(32) | _RF_RS(10), /* GOT22 */ _RF_S|_RF_A|_RF_P| _RF_SZ(32) | _RF_RS(0), /* PC10 */ _RF_S|_RF_A|_RF_P| _RF_SZ(32) | _RF_RS(10), /* PC22 */ _RF_A|_RF_P| _RF_SZ(32) | _RF_RS(2), /* WPLT30 */ _RF_SZ(32) | _RF_RS(0), /* COPY */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(0), /* GLOB_DAT */ _RF_SZ(32) | _RF_RS(0), /* JMP_SLOT */ _RF_A| _RF_B| _RF_SZ(32) | _RF_RS(0), /* RELATIVE */ _RF_S|_RF_A| _RF_U| _RF_SZ(32) | _RF_RS(0), /* UA_32 */ /* TLS and 64 bit relocs not listed here... */ }; #ifdef RTLD_DEBUG_RELOC static const char *reloc_names[] = { "NONE", "RELOC_8", "RELOC_16", "RELOC_32", "DISP_8", "DISP_16", "DISP_32", "WDISP_30", "WDISP_22", "HI22", "22", "13", "LO10", "GOT10", "GOT13", "GOT22", "PC10", "PC22", "WPLT30", "COPY", "GLOB_DAT", "JMP_SLOT", "RELATIVE", "UA_32", /* not used with 32bit userland, besides a few of the TLS ones */ "PLT32", "HIPLT22", "LOPLT10", "LOPLT10", "PCPLT22", "PCPLT32", "10", "11", "64", "OLO10", "HH22", "HM10", "LM22", "PC_HH22", "PC_HM10", "PC_LM22", "WDISP16", "WDISP19", "GLOB_JMP", "7", "5", "6", "DISP64", "PLT64", "HIX22", "LOX10", "H44", "M44", "L44", "REGISTER", "UA64", "UA16", "TLS_GD_HI22", "TLS_GD_LO10", "TLS_GD_ADD", "TLS_GD_CALL", "TLS_LDM_HI22", "TLS_LDM_LO10", "TLS_LDM_ADD", "TLS_LDM_CALL", "TLS_LDO_HIX22", "TLS_LDO_LOX10", "TLS_LDO_ADD", "TLS_IE_HI22", "TLS_IE_LO10", "TLS_IE_LD", "TLS_IE_LDX", "TLS_IE_ADD", "TLS_LE_HIX22", "TLS_LE_LOX10", "TLS_DTPMOD32", "TLS_DTPMOD64", "TLS_DTPOFF32", "TLS_DTPOFF64", "TLS_TPOFF32", "TLS_TPOFF64", }; #endif #define RELOC_RESOLVE_SYMBOL(t) ((reloc_target_flags[t] & _RF_S) != 0) #define RELOC_PC_RELATIVE(t) ((reloc_target_flags[t] & _RF_P) != 0) #define RELOC_BASE_RELATIVE(t) ((reloc_target_flags[t] & _RF_B) != 0) #define RELOC_UNALIGNED(t) ((reloc_target_flags[t] & _RF_U) != 0) #define RELOC_USE_ADDEND(t) ((reloc_target_flags[t] & _RF_A) != 0) #define RELOC_TARGET_SIZE(t) ((reloc_target_flags[t] >> 8) & 0xff) #define RELOC_VALUE_RIGHTSHIFT(t) (reloc_target_flags[t] & 0xff) #define RELOC_TLS(t) (t >= R_TYPE(TLS_GD_HI22)) static const int reloc_target_bitmask[] = { #define _BM(x) (~(-(1ULL << (x)))) 0, /* NONE */ _BM(8), _BM(16), _BM(32), /* RELOC_8, _16, _32 */ _BM(8), _BM(16), _BM(32), /* DISP8, DISP16, DISP32 */ _BM(30), _BM(22), /* WDISP30, WDISP22 */ _BM(22), _BM(22), /* HI22, _22 */ _BM(13), _BM(10), /* RELOC_13, _LO10 */ _BM(10), _BM(13), _BM(22), /* GOT10, GOT13, GOT22 */ _BM(10), _BM(22), /* _PC10, _PC22 */ _BM(30), 0, /* _WPLT30, _COPY */ -1, -1, -1, /* _GLOB_DAT, JMP_SLOT, _RELATIVE */ _BM(32) /* _UA32 */ #undef _BM }; #define RELOC_VALUE_BITMASK(t) (reloc_target_bitmask[t]) void _rtld_bind_start(void); void _rtld_relocate_nonplt_self(Elf_Dyn *, Elf_Addr); caddr_t _rtld_bind(const Obj_Entry *, Elf_Word); static inline int _rtld_relocate_plt_object(const Obj_Entry *, const Elf_Rela *, Elf_Addr *); void _rtld_setup_pltgot(const Obj_Entry *obj) { /* * PLTGOT is the PLT on the sparc. * The first entry holds the call the dynamic linker. * We construct a `call' sequence that transfers * to `_rtld_bind_start()'. * The second entry holds the object identification. * Note: each PLT entry is three words long. */ #define SAVE 0x9de3bfa0 /* i.e. `save %sp,-96,%sp' */ #define CALL 0x40000000 #define NOP 0x01000000 obj->pltgot[0] = SAVE; obj->pltgot[1] = CALL | ((Elf_Addr) &_rtld_bind_start - (Elf_Addr) &obj->pltgot[1]) >> 2; obj->pltgot[2] = NOP; obj->pltgot[3] = (Elf_Addr) obj; } void _rtld_relocate_nonplt_self(Elf_Dyn *dynp, Elf_Addr relocbase) { const Elf_Rela *rela = 0, *relalim; Elf_Addr relasz = 0; Elf_Addr *where; for (; dynp->d_tag != DT_NULL; dynp++) { switch (dynp->d_tag) { case DT_RELA: rela = (const Elf_Rela *)(relocbase + dynp->d_un.d_ptr); break; case DT_RELASZ: relasz = dynp->d_un.d_val; break; } } relalim = (const Elf_Rela *)((const uint8_t *)rela + relasz); for (; rela < relalim; rela++) { where = (Elf_Addr *)(relocbase + rela->r_offset); *where += (Elf_Addr)(relocbase + rela->r_addend); } } int _rtld_relocate_nonplt_objects(Obj_Entry *obj) { const Elf_Rela *rela; const Elf_Sym *def = NULL; const Obj_Entry *defobj = NULL; unsigned long last_symnum = ULONG_MAX; for (rela = obj->rela; rela < obj->relalim; rela++) { Elf_Addr *where; Elf_Word type, value, mask; unsigned long symnum; where = (Elf_Addr *) (obj->relocbase + rela->r_offset); type = ELF_R_TYPE(rela->r_info); if (type == R_TYPE(NONE)) continue; /* We do JMP_SLOTs in _rtld_bind() below */ if (type == R_TYPE(JMP_SLOT)) continue; /* IFUNC relocations are handled in _rtld_call_ifunc */ if (type == R_TYPE(IRELATIVE)) { if (obj->ifunc_remaining_nonplt == 0) { obj->ifunc_remaining_nonplt = obj->relalim - rela; } continue; } /* COPY relocs are also handled elsewhere */ if (type == R_TYPE(COPY)) continue; /* * We use the fact that relocation types are an `enum' * Note: R_SPARC_TLS_TPOFF64 is currently numerically largest. */ if (type > R_TYPE(TLS_TPOFF64)) return (-1); value = rela->r_addend; if (RELOC_RESOLVE_SYMBOL(type) || RELOC_TLS(type)) { symnum = ELF_R_SYM(rela->r_info); if (last_symnum != symnum) { last_symnum = symnum; def = _rtld_find_symdef(symnum, obj, &defobj, false); if (def == NULL) return -1; } } /* * Handle TLS relocations here, they are different. */ if (RELOC_TLS(type)) { switch (type) { case R_TYPE(TLS_DTPMOD32): *where = (Elf_Addr)defobj->tlsindex; rdbg(("TLS_DTPMOD32 %s in %s --> %p", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where)); break; case R_TYPE(TLS_DTPOFF32): *where = (Elf_Addr)(def->st_value + rela->r_addend); rdbg(("TLS_DTPOFF32 %s in %s --> %p", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where)); break; case R_TYPE(TLS_TPOFF32): if (!defobj->tls_static && _rtld_tls_offset_allocate(__UNCONST(defobj))) return -1; *where = (Elf_Addr)(def->st_value - defobj->tlsoffset + rela->r_addend); rdbg(("TLS_TPOFF32 %s in %s --> %p", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where)); break; } continue; } /* * If it is no TLS relocation (handled above), we can not * deal with it if it is beyond R_SPARC_6. */ if (type > R_TYPE(6)) return (-1); /* * Handle relative relocs here, as an optimization. */ if (type == R_TYPE(RELATIVE)) { *where += (Elf_Addr)(obj->relocbase + value); rdbg(("RELATIVE in %s --> %p", obj->path, (void *)*where)); continue; } if (RELOC_RESOLVE_SYMBOL(type)) { /* Add in the symbol's absolute address */ value += (Elf_Word)(defobj->relocbase + def->st_value); } if (RELOC_PC_RELATIVE(type)) { value -= (Elf_Word)where; } if (RELOC_BASE_RELATIVE(type)) { /* * Note that even though sparcs use `Elf_rela' * exclusively we still need the implicit memory addend * in relocations referring to GOT entries. * Undoubtedly, someone f*cked this up in the distant * past, and now we're stuck with it in the name of * compatibility for all eternity.. * * In any case, the implicit and explicit should be * mutually exclusive. We provide a check for that * here. */ #define DIAGNOSTIC #ifdef DIAGNOSTIC if (value != 0 && *where != 0) { xprintf("BASE_REL(%s): where=%p, *where 0x%x, " "addend=0x%x, base %p\n", obj->path, where, *where, rela->r_addend, obj->relocbase); } #endif value += (Elf_Word)(obj->relocbase + *where); } mask = RELOC_VALUE_BITMASK(type); value >>= RELOC_VALUE_RIGHTSHIFT(type); value &= mask; if (RELOC_UNALIGNED(type)) { /* Handle unaligned relocations. */ Elf_Addr tmp = 0; char *ptr = (char *)where; int i, size = RELOC_TARGET_SIZE(type)/8; /* Read it in one byte at a time. */ for (i=0; i> (8*i)) & 0xff); #ifdef RTLD_DEBUG_RELOC value = (Elf_Word)tmp; #endif } else { *where &= ~mask; *where |= value; #ifdef RTLD_DEBUG_RELOC value = (Elf_Word)*where; #endif } #ifdef RTLD_DEBUG_RELOC if (RELOC_RESOLVE_SYMBOL(type)) { rdbg(("%s %s in %s --> %p in %s", reloc_names[type], obj->strtab + obj->symtab[ELF_R_SYM(rela->r_info)].st_name, obj->path, (void *)value, defobj->path)); } else { rdbg(("%s in %s --> %p", reloc_names[type], obj->path, (void *)value)); } #endif } return (0); } int _rtld_relocate_plt_lazy(Obj_Entry *obj) { const Elf_Rela *rela; for (rela = obj->pltrelalim; rela-- > obj->pltrela; ) { if (ELF_R_TYPE(rela->r_info) == R_TYPE(JMP_IREL)) obj->ifunc_remaining = obj->pltrelalim - rela + 1; } return 0; } caddr_t _rtld_bind(const Obj_Entry *obj, Elf_Word reloff) { const Elf_Rela *rela = (const Elf_Rela *)((const uint8_t *)obj->pltrela + reloff); Elf_Addr value; int err; value = 0; /* XXX gcc */ _rtld_shared_enter(); err = _rtld_relocate_plt_object(obj, rela, &value); if (err) _rtld_die(); _rtld_shared_exit(); return (caddr_t)value; } int _rtld_relocate_plt_objects(const Obj_Entry *obj) { const Elf_Rela *rela = obj->pltrela; for (; rela < obj->pltrelalim; rela++) if (_rtld_relocate_plt_object(obj, rela, NULL) < 0) return -1; return 0; } static inline int _rtld_relocate_plt_object(const Obj_Entry *obj, const Elf_Rela *rela, Elf_Addr *tp) { const Elf_Sym *def; const Obj_Entry *defobj; Elf_Word *where = (Elf_Addr *)(obj->relocbase + rela->r_offset); Elf_Addr value; unsigned long info = rela->r_info; if (ELF_R_TYPE(info) == R_TYPE(JMP_IREL)) return 0; assert(ELF_R_TYPE(info) == R_TYPE(JMP_SLOT)); def = _rtld_find_plt_symdef(ELF_R_SYM(info), obj, &defobj, tp != NULL); if (__predict_false(def == NULL)) return -1; if (__predict_false(def == &_rtld_sym_zero)) return 0; if (ELF_ST_TYPE(def->st_info) == STT_GNU_IFUNC) { if (tp == NULL) return 0; value = _rtld_resolve_ifunc(defobj, def); } else { value = (Elf_Addr)(defobj->relocbase + def->st_value); } rdbg(("bind now/fixup in %s --> new=%p", defobj->strtab + def->st_name, (void *)value)); sparc_write_branch(where + 1, (void *)value); if (tp) *tp = value; return 0; } src/libexec/ld.elf_so/arch/sparc/rtld_start.S010064400011300000175000000056721100543104700214150ustar00srcmastrnetbsd/* $NetBSD: rtld_start.S,v 1.16 2008/04/28 20:23:03 martin Exp $ */ /*- * Copyright (c) 1999, 2002, 2003 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Christos Zoulas, Paul Kranenburg, and by Charles M. Hannum. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include .section ".text" .align 4 .global _rtld_start .type _rtld_start,@function _rtld_start: mov 0, %fp /* Erect a fence post for ourselves */ mov %g1, %l1 /* save ps_strings */ sub %sp, 32+8, %sp /* room for return args and save area */ sethi %hi(_GLOBAL_OFFSET_TABLE_-4), %l7 call 0f add %l7, %lo(_GLOBAL_OFFSET_TABLE_+4), %l7 call _DYNAMIC+8 0: add %l7, %o7, %l7 /* real &_GLOBAL_OFFSET_TABLE_ */ ld [%o7+8], %o0 /* load stub call instruction */ ld [%l7], %l0 /* base-relative &_DYNAMIC */ sll %o0, 2, %o0 /* extract PC offset */ add %o0, %o7, %o0 /* real &_DYNAMIC */ sub %o0, %l0, %l0 /* relocbase */ call _rtld_relocate_nonplt_self mov %l0, %o1 /* relocbase */ mov %l0, %o1 /* relocbase */ call _rtld add %sp, 96, %o0 /* &argc - 8 */ ld [%sp + 96], %g3 /* arg: cleanup */ ld [%sp + 96 + 4], %g2 /* arg: obj */ add %sp, 32+8, %sp /* restore stack pointer */ jmp %o0 mov %l1, %g1 /* restore ps_strings */ .section ".text" .align 4 .global _rtld_bind_start .type _rtld_bind_start,@function _rtld_bind_start: # (obj, reloff) ld [%o7 + 8], %o0 /* obj id is in second PLT slot */ srl %g1, 10, %o1 /* offset is in high 22 bits */ call _rtld_bind /* Call _rtld_bind(obj, offset) */ sub %o1, 12*4, %o1 /* first 4 `pltrel' entries missing! */ jmp %o0 /* return value == function address */ restore src/libexec/ld.elf_so/arch/sparc64004075500011300000175000000000001504273241000171765ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/sparc64/CVS004075500011300000175000000000001504273241000176315ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/sparc64/CVS/Root010064400011300000175000000000441504273241000205510ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/ld.elf_so/arch/sparc64/CVS/Repository010064400011300000175000000000431504273241000220040ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/sparc64 src/libexec/ld.elf_so/arch/sparc64/CVS/Entries010064400011300000175000000002461504273241000212430ustar00srcmastrnetbsd/Makefile.inc/1.9/Tue Apr 3 21:10:27 2018//Tnetbsd-11 /mdreloc.c/1.72/Sat Aug 3 21:59:58 2024//Tnetbsd-11 /rtld_start.S/1.18/Sat Aug 3 21:59:58 2024//Tnetbsd-11 D src/libexec/ld.elf_so/arch/sparc64/CVS/Tag010064400011300000175000000000131522207752300203440ustar00srcmastrnetbsdTnetbsd-11 src/libexec/ld.elf_so/arch/sparc64/Makefile.inc010064400011300000175000000003611326076670300214760ustar00srcmastrnetbsd# $NetBSD: Makefile.inc,v 1.9 2018/04/03 21:10:27 joerg Exp $ SRCS+= rtld_start.S mdreloc.c # XXX Should not be in CPPFLAGS! CPPFLAGS+= -fpic CPPFLAGS+= -DELFSIZE=64 CPPFLAGS+= -DRTLD_COMMON_CALL_IFUNC_RELA LDFLAGS+= -Wl,-e,_rtld_start src/libexec/ld.elf_so/arch/sparc64/mdreloc.c010064400011300000175000000466131465352413600210700ustar00srcmastrnetbsd/* $NetBSD: mdreloc.c,v 1.72 2024/08/03 21:59:58 riastradh Exp $ */ /*- * Copyright (c) 2000 Eduardo Horvath. * Copyright (c) 1999, 2002 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Paul Kranenburg and by Charles M. Hannum. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ /* * SPARC ELF relocations. * * Reference: * * SPARC Compliance Definition 2.4.1 * http://sparc.org/wp-content/uploads/2014/01/SCD.2.4.1.pdf.gz */ #include #ifndef lint __RCSID("$NetBSD: mdreloc.c,v 1.72 2024/08/03 21:59:58 riastradh Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include "rtldenv.h" #include "debug.h" #include "rtld.h" /* * The following table holds for each relocation type: * - the width in bits of the memory location the relocation * applies to (not currently used) * - the number of bits the relocation value must be shifted to the * right (i.e. discard least significant bits) to fit into * the appropriate field in the instruction word. * - flags indicating whether * * the relocation involves a symbol * * the relocation is relative to the current position * * the relocation is for a GOT entry * * the relocation is relative to the load address * */ #define _RF_S 0x80000000 /* Resolve symbol */ #define _RF_A 0x40000000 /* Use addend */ #define _RF_P 0x20000000 /* Location relative */ #define _RF_G 0x10000000 /* GOT offset */ #define _RF_B 0x08000000 /* Load address relative */ #define _RF_U 0x04000000 /* Unaligned */ #define _RF_SZ(s) (((s) & 0xff) << 8) /* memory target size */ #define _RF_RS(s) ( (s) & 0xff) /* right shift */ static const int reloc_target_flags[R_TYPE(TLS_TPOFF64)+1] = { 0, /* NONE */ _RF_S|_RF_A| _RF_SZ(8) | _RF_RS(0), /* RELOC_8 */ _RF_S|_RF_A| _RF_SZ(16) | _RF_RS(0), /* RELOC_16 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(0), /* RELOC_32 */ _RF_S|_RF_A|_RF_P| _RF_SZ(8) | _RF_RS(0), /* DISP_8 */ _RF_S|_RF_A|_RF_P| _RF_SZ(16) | _RF_RS(0), /* DISP_16 */ _RF_S|_RF_A|_RF_P| _RF_SZ(32) | _RF_RS(0), /* DISP_32 */ _RF_S|_RF_A|_RF_P| _RF_SZ(32) | _RF_RS(2), /* WDISP_30 */ _RF_S|_RF_A|_RF_P| _RF_SZ(32) | _RF_RS(2), /* WDISP_22 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(10), /* HI22 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(0), /* 22 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(0), /* 13 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(0), /* LO10 */ _RF_G| _RF_SZ(32) | _RF_RS(0), /* GOT10 */ _RF_G| _RF_SZ(32) | _RF_RS(0), /* GOT13 */ _RF_G| _RF_SZ(32) | _RF_RS(10), /* GOT22 */ _RF_S|_RF_A|_RF_P| _RF_SZ(32) | _RF_RS(0), /* PC10 */ _RF_S|_RF_A|_RF_P| _RF_SZ(32) | _RF_RS(10), /* PC22 */ _RF_A|_RF_P| _RF_SZ(32) | _RF_RS(2), /* WPLT30 */ _RF_SZ(32) | _RF_RS(0), /* COPY */ _RF_S|_RF_A| _RF_SZ(64) | _RF_RS(0), /* GLOB_DAT */ _RF_SZ(32) | _RF_RS(0), /* JMP_SLOT */ _RF_A| _RF_B| _RF_SZ(64) | _RF_RS(0), /* RELATIVE */ _RF_S|_RF_A| _RF_U| _RF_SZ(32) | _RF_RS(0), /* UA_32 */ _RF_A| _RF_SZ(32) | _RF_RS(0), /* PLT32 */ _RF_A| _RF_SZ(32) | _RF_RS(10), /* HIPLT22 */ _RF_A| _RF_SZ(32) | _RF_RS(0), /* LOPLT10 */ _RF_A|_RF_P| _RF_SZ(32) | _RF_RS(0), /* PCPLT32 */ _RF_A|_RF_P| _RF_SZ(32) | _RF_RS(10), /* PCPLT22 */ _RF_A|_RF_P| _RF_SZ(32) | _RF_RS(0), /* PCPLT10 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(0), /* 10 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(0), /* 11 */ _RF_S|_RF_A| _RF_SZ(64) | _RF_RS(0), /* 64 */ _RF_S|_RF_A|/*extra*/ _RF_SZ(32) | _RF_RS(0), /* OLO10 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(42), /* HH22 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(32), /* HM10 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(10), /* LM22 */ _RF_S|_RF_A|_RF_P| _RF_SZ(32) | _RF_RS(42), /* PC_HH22 */ _RF_S|_RF_A|_RF_P| _RF_SZ(32) | _RF_RS(32), /* PC_HM10 */ _RF_S|_RF_A|_RF_P| _RF_SZ(32) | _RF_RS(10), /* PC_LM22 */ _RF_S|_RF_A|_RF_P| _RF_SZ(32) | _RF_RS(2), /* WDISP16 */ _RF_S|_RF_A|_RF_P| _RF_SZ(32) | _RF_RS(2), /* WDISP19 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(0), /* GLOB_JMP */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(0), /* 7 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(0), /* 5 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(0), /* 6 */ _RF_S|_RF_A|_RF_P| _RF_SZ(64) | _RF_RS(0), /* DISP64 */ _RF_A| _RF_SZ(64) | _RF_RS(0), /* PLT64 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(10), /* HIX22 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(0), /* LOX10 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(22), /* H44 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(12), /* M44 */ _RF_S|_RF_A| _RF_SZ(32) | _RF_RS(0), /* L44 */ _RF_S|_RF_A| _RF_SZ(64) | _RF_RS(0), /* REGISTER */ _RF_S|_RF_A| _RF_U| _RF_SZ(64) | _RF_RS(0), /* UA64 */ _RF_S|_RF_A| _RF_U| _RF_SZ(16) | _RF_RS(0), /* UA16 */ /* TLS relocs not represented here! */ }; #ifdef RTLD_DEBUG_RELOC static const char *reloc_names[] = { "NONE", "RELOC_8", "RELOC_16", "RELOC_32", "DISP_8", "DISP_16", "DISP_32", "WDISP_30", "WDISP_22", "HI22", "22", "13", "LO10", "GOT10", "GOT13", "GOT22", "PC10", "PC22", "WPLT30", "COPY", "GLOB_DAT", "JMP_SLOT", "RELATIVE", "UA_32", "PLT32", "HIPLT22", "LOPLT10", "LOPLT10", "PCPLT22", "PCPLT32", "10", "11", "64", "OLO10", "HH22", "HM10", "LM22", "PC_HH22", "PC_HM10", "PC_LM22", "WDISP16", "WDISP19", "GLOB_JMP", "7", "5", "6", "DISP64", "PLT64", "HIX22", "LOX10", "H44", "M44", "L44", "REGISTER", "UA64", "UA16", "TLS_GD_HI22", "TLS_GD_LO10", "TLS_GD_ADD", "TLS_GD_CALL", "TLS_LDM_HI22", "TLS_LDM_LO10", "TLS_LDM_ADD", "TLS_LDM_CALL", "TLS_LDO_HIX22", "TLS_LDO_LOX10", "TLS_LDO_ADD", "TLS_IE_HI22", "TLS_IE_LO10", "TLS_IE_LD", "TLS_IE_LDX", "TLS_IE_ADD", "TLS_LE_HIX22", "TLS_LE_LOX10", "TLS_DTPMOD32", "TLS_DTPMOD64", "TLS_DTPOFF32", "TLS_DTPOFF64", "TLS_TPOFF32", "TLS_TPOFF64", }; #endif #define RELOC_RESOLVE_SYMBOL(t) ((reloc_target_flags[t] & _RF_S) != 0) #define RELOC_PC_RELATIVE(t) ((reloc_target_flags[t] & _RF_P) != 0) #define RELOC_BASE_RELATIVE(t) ((reloc_target_flags[t] & _RF_B) != 0) #define RELOC_UNALIGNED(t) ((reloc_target_flags[t] & _RF_U) != 0) #define RELOC_USE_ADDEND(t) ((reloc_target_flags[t] & _RF_A) != 0) #define RELOC_TARGET_SIZE(t) ((reloc_target_flags[t] >> 8) & 0xff) #define RELOC_VALUE_RIGHTSHIFT(t) (reloc_target_flags[t] & 0xff) #define RELOC_TLS(t) (t >= R_TYPE(TLS_GD_HI22)) static const long reloc_target_bitmask[] = { #define _BM(x) (~(-(1ULL << (x)))) 0, /* NONE */ _BM(8), _BM(16), _BM(32), /* RELOC_8, _16, _32 */ _BM(8), _BM(16), _BM(32), /* DISP8, DISP16, DISP32 */ _BM(30), _BM(22), /* WDISP30, WDISP22 */ _BM(22), _BM(22), /* HI22, _22 */ _BM(13), _BM(10), /* RELOC_13, _LO10 */ _BM(10), _BM(13), _BM(22), /* GOT10, GOT13, GOT22 */ _BM(10), _BM(22), /* _PC10, _PC22 */ _BM(30), 0, /* _WPLT30, _COPY */ -1, _BM(32), -1, /* _GLOB_DAT, JMP_SLOT, _RELATIVE */ _BM(32), _BM(32), /* _UA32, PLT32 */ _BM(22), _BM(10), /* _HIPLT22, LOPLT10 */ _BM(32), _BM(22), _BM(10), /* _PCPLT32, _PCPLT22, _PCPLT10 */ _BM(10), _BM(11), -1, /* _10, _11, _64 */ _BM(13), _BM(22), /* _OLO10, _HH22 */ _BM(10), _BM(22), /* _HM10, _LM22 */ _BM(22), _BM(10), _BM(22), /* _PC_HH22, _PC_HM10, _PC_LM22 */ _BM(16), _BM(19), /* _WDISP16, _WDISP19 */ -1, /* GLOB_JMP */ _BM(7), _BM(5), _BM(6), /* _7, _5, _6 */ -1, -1, /* DISP64, PLT64 */ _BM(22), _BM(13), /* HIX22, LOX10 */ _BM(22), _BM(10), _BM(12), /* H44, M44, L44 */ -1, -1, _BM(16), /* REGISTER, UA64, UA16 */ #undef _BM }; #define RELOC_VALUE_BITMASK(t) (reloc_target_bitmask[t]) /* * Instruction templates: */ /* %hi(v)/%lo(v) with variable shift */ #define HIVAL(v, s) (((v) >> (s)) & 0x003fffff) #define LOVAL(v, s) (((v) >> (s)) & 0x000003ff) void _rtld_bind_start_0(long, long); void _rtld_bind_start_1(long, long); void _rtld_relocate_nonplt_self(Elf_Dyn *, Elf_Addr); caddr_t _rtld_bind(const Obj_Entry *, Elf_Word); /* * Install rtld function call into this PLT slot. */ #define SAVE 0x9de3bf50 /* i.e. `save %sp,-176,%sp' */ #define SETHI_l0 0x21000000 #define SETHI_l1 0x23000000 #define OR_l0_l0 0xa0142000 #define SLLX_l0_32_l0 0xa12c3020 #define OR_l0_l1_l0 0xa0140011 #define JMPL_l0_o0 0x91c42000 #define MOV_g1_o1 0x92100001 void _rtld_install_plt(Elf_Word *, Elf_Addr); static inline int _rtld_relocate_plt_object(const Obj_Entry *, const Elf_Rela *, Elf_Addr *); void _rtld_install_plt(Elf_Word *pltgot, Elf_Addr proc) { pltgot[0] = SAVE; pltgot[1] = SETHI_l0 | HIVAL(proc, 42); pltgot[2] = SETHI_l1 | HIVAL(proc, 10); pltgot[3] = OR_l0_l0 | LOVAL(proc, 32); pltgot[4] = SLLX_l0_32_l0; pltgot[5] = OR_l0_l1_l0; pltgot[6] = JMPL_l0_o0 | LOVAL(proc, 0); pltgot[7] = MOV_g1_o1; } void _rtld_setup_pltgot(const Obj_Entry *obj) { /* * On sparc64 we got troubles. * * Instructions are 4 bytes long. * Elf[64]_Addr is 8 bytes long, so are our pltglot[] * array entries. * Each PLT entry jumps to PLT0 to enter the dynamic * linker. * Loading an arbitrary 64-bit pointer takes 6 * instructions and 2 registers. * * Somehow we need to issue a save to get a new stack * frame, load the address of the dynamic linker, and * jump there, in 8 instructions or less. * * Oh, we need to fill out both PLT0 and PLT1. */ { Elf_Word *entry = (Elf_Word *)obj->pltgot; /* Install in entries 0 and 1 */ _rtld_install_plt(&entry[0], (Elf_Addr) &_rtld_bind_start_0); _rtld_install_plt(&entry[8], (Elf_Addr) &_rtld_bind_start_1); /* * Install the object reference in first slot * of entry 2. */ obj->pltgot[8] = (Elf_Addr) obj; } } void _rtld_relocate_nonplt_self(Elf_Dyn *dynp, Elf_Addr relocbase) { const Elf_Rela *rela = 0, *relalim; Elf_Addr relasz = 0; Elf_Addr *where; for (; dynp->d_tag != DT_NULL; dynp++) { switch (dynp->d_tag) { case DT_RELA: rela = (const Elf_Rela *)(relocbase + dynp->d_un.d_ptr); break; case DT_RELASZ: relasz = dynp->d_un.d_val; break; } } relalim = (const Elf_Rela *)((const uint8_t *)rela + relasz); for (; rela < relalim; rela++) { where = (Elf_Addr *)(relocbase + rela->r_offset); *where = (Elf_Addr)(relocbase + rela->r_addend); } } int _rtld_relocate_nonplt_objects(Obj_Entry *obj) { const Elf_Rela *rela; const Elf_Sym *def = NULL; const Obj_Entry *defobj = NULL; unsigned long last_symnum = ULONG_MAX; for (rela = obj->rela; rela < obj->relalim; rela++) { Elf_Addr *where; Elf_Word type; Elf_Addr value = 0, mask; unsigned long symnum; where = (Elf_Addr *) (obj->relocbase + rela->r_offset); type = ELF_R_TYPE(rela->r_info); if (type == R_TYPE(NONE)) continue; /* OLO10 relocations have extra info */ if ((type & 0x00ff) == R_SPARC_OLO10) type = R_SPARC_OLO10; /* We do JMP_SLOTs in _rtld_bind() below */ if (type == R_TYPE(JMP_SLOT)) continue; /* IFUNC relocations are handled in _rtld_call_ifunc */ if (type == R_TYPE(IRELATIVE)) { if (obj->ifunc_remaining_nonplt == 0) { obj->ifunc_remaining_nonplt = obj->relalim - rela; } continue; } /* COPY relocs are also handled elsewhere */ if (type == R_TYPE(COPY)) continue; /* * We use the fact that relocation types are an `enum' * Note: R_SPARC_TLS_TPOFF64 is currently numerically largest. */ if (type > R_TYPE(TLS_TPOFF64)) { dbg(("unknown relocation type %x at %p", type, rela)); return -1; } value = rela->r_addend; if (RELOC_RESOLVE_SYMBOL(type) || RELOC_TLS(type)) { symnum = ELF_R_SYM(rela->r_info); if (last_symnum != symnum) { last_symnum = symnum; def = _rtld_find_symdef(symnum, obj, &defobj, false); if (def == NULL) return -1; } } /* * Handle TLS relocations here, they are different. */ if (RELOC_TLS(type)) { switch (type) { case R_TYPE(TLS_DTPMOD64): *where = (Elf64_Addr)defobj->tlsindex; rdbg(("TLS_DTPMOD64 %s in %s --> %p", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where)); break; case R_TYPE(TLS_DTPOFF64): *where = (Elf64_Addr)(def->st_value + rela->r_addend); rdbg(("DTPOFF64 %s in %s --> %p", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where)); break; case R_TYPE(TLS_TPOFF64): if (!defobj->tls_static && _rtld_tls_offset_allocate(__UNCONST(defobj))) return -1; *where = (Elf64_Addr)(def->st_value - defobj->tlsoffset + rela->r_addend); rdbg(("TLS_TPOFF64 %s in %s --> %p", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where)); break; } continue; } /* * Handle relative relocs here, as an optimization. */ if (type == R_TYPE(RELATIVE)) { *where = (Elf_Addr)(obj->relocbase + value); rdbg(("RELATIVE in %s --> %p", obj->path, (void *)*where)); continue; } if (RELOC_RESOLVE_SYMBOL(type)) { /* Add in the symbol's absolute address */ value += (Elf_Addr)(defobj->relocbase + def->st_value); } if (type == R_SPARC_OLO10) { value = (value & 0x3ff) + (((Elf64_Xword)rela->r_info<<32)>>40); } if (RELOC_PC_RELATIVE(type)) { value -= (Elf_Addr)where; } if (RELOC_BASE_RELATIVE(type)) { /* * Note that even though sparcs use `Elf_rela' * exclusively we still need the implicit memory addend * in relocations referring to GOT entries. * Undoubtedly, someone f*cked this up in the distant * past, and now we're stuck with it in the name of * compatibility for all eternity.. * * In any case, the implicit and explicit should be * mutually exclusive. We provide a check for that * here. */ #ifdef DIAGNOSTIC if (value != 0 && *where != 0) { xprintf("BASE_REL(%s): where=%p, *where 0x%lx, " "addend=0x%lx, base %p\n", obj->path, where, *where, rela->r_addend, obj->relocbase); } #endif /* XXXX -- apparently we ignore the preexisting value */ value += (Elf_Addr)(obj->relocbase); } mask = RELOC_VALUE_BITMASK(type); value >>= RELOC_VALUE_RIGHTSHIFT(type); value &= mask; if (RELOC_UNALIGNED(type)) { /* Handle unaligned relocations. */ Elf_Addr tmp = 0; char *ptr = (char *)where; int i, size = RELOC_TARGET_SIZE(type)/8; /* Read it in one byte at a time. */ for (i=0; i> (8*i)) & 0xff); #ifdef RTLD_DEBUG_RELOC value = (Elf_Addr)tmp; #endif } else if (RELOC_TARGET_SIZE(type) > 32) { *where &= ~mask; *where |= value; #ifdef RTLD_DEBUG_RELOC value = (Elf_Addr)*where; #endif } else { Elf32_Addr *where32 = (Elf32_Addr *)where; *where32 &= ~mask; *where32 |= value; #ifdef RTLD_DEBUG_RELOC value = (Elf_Addr)*where32; #endif } #ifdef RTLD_DEBUG_RELOC if (RELOC_RESOLVE_SYMBOL(type)) { rdbg(("%s %s in %s --> %p in %s", reloc_names[type], obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)value, defobj->path)); } else { rdbg(("%s in %s --> %p", reloc_names[type], obj->path, (void *)value)); } #endif } return (0); } int _rtld_relocate_plt_lazy(Obj_Entry *obj) { const Elf_Rela *rela; for (rela = obj->pltrelalim; rela-- > obj->pltrela; ) { if (ELF_R_TYPE(rela->r_info) == R_TYPE(JMP_IREL)) obj->ifunc_remaining = obj->pltrelalim - rela + 1; } return 0; } caddr_t _rtld_bind(const Obj_Entry *obj, Elf_Word reloff) { const Elf_Rela *rela = obj->pltrela + reloff; Elf_Addr result; int err; result = 0; /* XXX gcc */ if (ELF_R_TYPE(obj->pltrela->r_info) == R_TYPE(JMP_SLOT) || ELF_R_TYPE(obj->pltrela->r_info) == R_TYPE(JMP_IREL)) { /* * XXXX * * The first four PLT entries are reserved. There is some * disagreement whether they should have associated relocation * entries. Both the SPARC 32-bit and 64-bit ELF * specifications say that they should have relocation entries, * but the 32-bit SPARC binutils do not generate them, and now * the 64-bit SPARC binutils have stopped generating them too. * * So, to provide binary compatibility, we will check the first * entry, if it is reserved it should not be of the type * JMP_SLOT or JMP_REL. If it is either of those, then * the 4 reserved entries were not generated and our index * is 4 entries too far. */ rela -= 4; } _rtld_shared_enter(); err = _rtld_relocate_plt_object(obj, rela, &result); if (err) _rtld_die(); _rtld_shared_exit(); return (caddr_t)result; } int _rtld_relocate_plt_objects(const Obj_Entry *obj) { const Elf_Rela *rela; rela = obj->pltrela; /* * Check for first four reserved entries - and skip them. * See above for details. */ if (ELF_R_TYPE(obj->pltrela->r_info) != R_TYPE(JMP_SLOT) && ELF_R_TYPE(obj->pltrela->r_info) != R_TYPE(JMP_IREL)) rela += 4; for (; rela < obj->pltrelalim; rela++) if (_rtld_relocate_plt_object(obj, rela, NULL) < 0) return -1; return 0; } static inline void _rtld_write_plt(Elf_Word *where, Elf_Addr value, const Elf_Rela *rela, const Obj_Entry *obj) { if (rela && rela->r_addend) { Elf_Addr *ptr = (Elf_Addr *)where; /* * This entry is >= 32768. The relocations points to a * PC-relative pointer to the bind_0 stub at the top of the * PLT section. Update it to point to the target function. */ ptr[0] += value - (Elf_Addr)obj->pltgot; } else { sparc_write_branch(where + 1, (void *)value); } } /* * New inline function that is called by _rtld_relocate_plt_object and * _rtld_bind */ static inline int _rtld_relocate_plt_object(const Obj_Entry *obj, const Elf_Rela *rela, Elf_Addr *tp) { Elf_Word *where = (Elf_Word *)(obj->relocbase + rela->r_offset); const Elf_Sym *def; const Obj_Entry *defobj; Elf_Addr value; unsigned long info = rela->r_info; if (ELF_R_TYPE(info) == R_TYPE(JMP_IREL)) return 0; assert(ELF_R_TYPE(info) == R_TYPE(JMP_SLOT)); def = _rtld_find_plt_symdef(ELF_R_SYM(info), obj, &defobj, tp != NULL); if (__predict_false(def == NULL)) return -1; if (__predict_false(def == &_rtld_sym_zero)) return 0; if (ELF_ST_TYPE(def->st_info) == STT_GNU_IFUNC) { if (tp == NULL) return 0; value = _rtld_resolve_ifunc(defobj, def); } else { value = (Elf_Addr)(defobj->relocbase + def->st_value); } rdbg(("bind now/fixup in %s at %p --> new=%p", defobj->strtab + def->st_name, (void*)where, (void *)value)); _rtld_write_plt(where, value, rela, obj); if (tp) *tp = value; return 0; } src/libexec/ld.elf_so/arch/sparc64/rtld_start.S010064400011300000175000000130571465352413600216010ustar00srcmastrnetbsd/* $NetBSD: rtld_start.S,v 1.18 2024/08/03 21:59:58 riastradh Exp $ */ /*- * Copyright (c) 2000 Eduardo Horvath. * Copyright (c) 1999, 2002, 2003 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Christos Zoulas, Paul Kranenburg and by Charles M. Hannum. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include #define _LOCORE #include /* * ELF: * On startup the stack should contain 16 extended word register save area, * followed by the arg count, etc. * * _rtld() expects the stack pointer to point to two longwords for argument * return followed by argc, etc. We need to create a pointer to * &argc + 16 and pass that in. The return args will be in those locations. * * NB: We are violating the ELF spec by passing a pointer to the ps strings in * %g1 instead of a termination routine. */ .register %g2,#scratch .register %g3,#scratch /* Offset of ARGC from bottom of stack */ #define ARGC 176 .section ".text" .align 4 .global _rtld_start .type _rtld_start,@function _rtld_start: mov 0, %fp /* Erect a fence post for ourselves */ mov %g1, %l1 /* save ps_strings */ sub %sp, 48+16, %sp /* Make room for return args */ sethi %hi(_GLOBAL_OFFSET_TABLE_-4), %l7 call 0f add %l7, %lo(_GLOBAL_OFFSET_TABLE_+4), %l7 call _DYNAMIC+8 0: add %l7, %o7, %l7 /* real &_GLOBAL_OFFSET_TABLE_ */ ld [%o7+8], %o0 /* load stub call instruction */ ldx [%l7], %l0 /* base-relative &_DYNAMIC */ sll %o0, 2, %o0 /* extract PC offset */ sra %o0, 0, %o0 /* sign-extend */ add %o0, %o7, %o0 /* real &_DYNAMIC */ sub %o0, %l0, %l0 /* relocbase */ call _rtld_relocate_nonplt_self mov %l0, %o1 /* relocbase */ mov %l0, %o1 /* relocbase */ call _rtld add %sp, BIAS + ARGC, %o0 /* &argc - 16 */ ldx [%sp + BIAS + ARGC], %g3 /* arg: cleanup */ ldx [%sp + BIAS + ARGC + 8], %g2 /* arg: obj */ add %sp, 48+16, %sp /* restore stack pointer */ jmp %o0 mov %l1, %g1 /* restore ps_strings */ /* * We have two separate entry points to the runtime linker. * I'm implementing this following the SPARC v9 ABI spec. * * _rtld_bind_start_0(y, x) is called from .PLT0, and is used for * PLT entries above 32768. * * _rtld_bind_start_1(y, x) is called from .PLT1, and is used for * PLT entries below 32768. * * The first two entries of PLT2 contain the xword object pointer. * * These routines are called with two longword arguments, * x and y. To calculate the address of the entry, * _rtld_bind_start_1(y, x) does: * * n = x >> 15; * * and _rtld_bind_start_0(y, x) does: * * i = x - y + 8 - 32768*32; * n = 32768 + (i/5120)*160 + (i%5120)/24; * * Neither routine needs to issue a save since it's already been * done in the PLT entry. */ .section ".text" .align 4 .global _rtld_bind_start_0 .type _rtld_bind_start_0,@function _rtld_bind_start_0: # (y, x) /* %o0 = obj->pltgot[6] */ /* %o1 = plt[4] */ /* %o1 - %o0 + 8 == offset of plt[] from obj->pltgot[] */ /* -32768*32 to get offset from beginning of upper PLT section */ sethi %hi(32768*32-8), %l1 sub %o1, %o0, %l0 /* i = x - y */ or %l1, %lo(32768*32-8), %l1 sub %l0, %l1, %l0 /* i = x - y + 8 - 32768*32 */ ldx [%o0 + (10*4)], %o0 /* Load object pointer from PLT2 */ sethi %hi(5120), %l1 sdivx %l0, %l1, %l1 /* Calculate i/5120 */ sllx %l1, 2, %l2 add %l2, %l1, %l2 sllx %l2, 10, %l2 sub %l0, %l2, %l2 /* And i%5120 */ /* Let the division churn for a bit. */ sdivx %l2, 24, %l4 /* (i%5120)/24 */ /* 160 is (32 * 5) or (32 * (4 + 1)) */ sllx %l1, 2, %l3 /* 4 * (i/5120) */ add %l1, %l3, %l3 /* 5 * (i/5120) */ sllx %l3, 5, %l3 /* 32 * 5 * (i/5120) */ sethi %hi(32768), %l6 add %l3, %l4, %l5 /* %l5 = (i/5120)*160 + (i%5120)/24; */ call _rtld_bind /* Call _rtld_bind(obj, offset) */ add %l5, %l6, %o1 /* %o1 = 32768 + ... */ jmp %o0 /* return value == function address */ restore /* Dump our stack frame */ .section ".text" .align 4 .global _rtld_bind_start_1 .type _rtld_bind_start_1,@function _rtld_bind_start_1: # (y, x) ldx [%o0 + (2*4)], %o0 /* Load object pointer from PLT2 */ call _rtld_bind /* Call _rtld_bind(obj, offset) */ srax %o1, 15, %o1 /* %o1 is the index to our PLT slot */ jmp %o0 /* return value == function address */ restore /* Dump our stack frame */ src/libexec/ld.elf_so/arch/vax004075500011300000175000000000001504273241000165125ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/vax/CVS004075500011300000175000000000001504273241000171455ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/vax/CVS/Root010064400011300000175000000000441504273241000200650ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/ld.elf_so/arch/vax/CVS/Repository010064400011300000175000000000371504273241000213230ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/vax src/libexec/ld.elf_so/arch/vax/CVS/Entries010064400011300000175000000002471504273241000205600ustar00srcmastrnetbsd/Makefile.inc/1.11/Sat Sep 19 14:54:17 2009//Tnetbsd-11 /mdreloc.c/1.35/Wed Apr 16 18:01:01 2025//Tnetbsd-11 /rtld_start.S/1.25/Sat Aug 3 21:59:59 2024//Tnetbsd-11 D src/libexec/ld.elf_so/arch/vax/CVS/Tag010064400011300000175000000000131522207752300176600ustar00srcmastrnetbsdTnetbsd-11 src/libexec/ld.elf_so/arch/vax/Makefile.inc010064400011300000175000000003301125517023100207710ustar00srcmastrnetbsd# $NetBSD: Makefile.inc,v 1.11 2009/09/19 14:54:17 skrll Exp $ SRCS+= rtld_start.S mdreloc.c # XXX Should not be in CPPFLAGS! CPPFLAGS+= -fpic CPPFLAGS+= -DELFSIZE=32 LDFLAGS+= -Wl,-Bsymbolic -Wl,-e,_rtld_start src/libexec/ld.elf_so/arch/vax/mdreloc.c010064400011300000175000000160411477777013500204050ustar00srcmastrnetbsd/* $NetBSD: mdreloc.c,v 1.35 2025/04/16 18:01:01 riastradh Exp $ */ /* * Copyright 1996 John D. Polstra. * Copyright 1996 Matt Thomas * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by John Polstra. * 4. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ #include #ifndef lint __RCSID("$NetBSD: mdreloc.c,v 1.35 2025/04/16 18:01:01 riastradh Exp $"); #endif /* not lint */ #include #include "debug.h" #include "rtld.h" void _rtld_bind_start(void); void _rtld_relocate_nonplt_self(Elf_Dyn *, Elf_Addr); caddr_t _rtld_bind(const Obj_Entry *, Elf_Word); static inline int _rtld_relocate_plt_object(const Obj_Entry *, const Elf_Rela *, Elf_Addr *); void _rtld_setup_pltgot(const Obj_Entry *obj) { obj->pltgot[1] = (Elf_Addr) obj; obj->pltgot[2] = (Elf_Addr) &_rtld_bind_start; } void _rtld_relocate_nonplt_self(Elf_Dyn *dynp, Elf_Addr relocbase) { const Elf_Rela *rela = 0, *relalim; Elf_Addr relasz = 0; Elf_Addr *where; for (; dynp->d_tag != DT_NULL; dynp++) { switch (dynp->d_tag) { case DT_RELA: rela = (const Elf_Rela *)(relocbase + dynp->d_un.d_ptr); break; case DT_RELASZ: relasz = dynp->d_un.d_val; break; } } relalim = (const Elf_Rela *)((const uint8_t *)rela + relasz); for (; rela < relalim; rela++) { where = (Elf_Addr *)(relocbase + rela->r_offset); *where = (Elf_Addr)(relocbase + rela->r_addend); } } int _rtld_relocate_nonplt_objects(Obj_Entry *obj) { const Elf_Rela *rela; const Elf_Sym *def = NULL; const Obj_Entry *defobj = NULL; unsigned long last_symnum = ULONG_MAX; for (rela = obj->rela; rela < obj->relalim; rela++) { Elf_Addr *where; Elf_Addr tmp; unsigned long symnum; where = (Elf_Addr *)(obj->relocbase + rela->r_offset); switch (ELF_R_TYPE(rela->r_info)) { case R_TYPE(32): /* word32 S + A */ case R_TYPE(GLOB_DAT): /* word32 S + A */ symnum = ELF_R_SYM(rela->r_info); if (last_symnum != symnum) { last_symnum = symnum; def = _rtld_find_symdef(symnum, obj, &defobj, false); if (def == NULL) return -1; } break; default: break; } switch (ELF_R_TYPE(rela->r_info)) { case R_TYPE(NONE): break; case R_TYPE(32): /* word32 S + A */ case R_TYPE(GLOB_DAT): /* word32 S + A */ tmp = (Elf_Addr)(defobj->relocbase + def->st_value + rela->r_addend); if (*where != tmp) *where = tmp; rdbg(("32/GLOB_DAT %s in %s --> %p in %s", obj->strtab + obj->symtab[symnum].st_name, obj->path, (void *)*where, defobj->path)); break; case R_TYPE(RELATIVE): /* word32 B + A */ tmp = (Elf_Addr)(obj->relocbase + rela->r_addend); if (*where != tmp) *where = tmp; rdbg(("RELATIVE in %s --> %p", obj->path, (void *)*where)); break; case R_TYPE(COPY): /* * These are deferred until all other relocations have * been done. All we do here is make sure that the * COPY relocation is not in a shared library. They * are allowed only in executable files. */ if (obj->isdynamic) { _rtld_error( "%s: Unexpected R_COPY relocation in shared library", obj->path); return -1; } rdbg(("COPY (avoid in main)")); break; default: rdbg(("sym = %lu, type = %lu, offset = %p, " "addend = %p, contents = %p", (u_long)ELF_R_SYM(rela->r_info), (u_long)ELF_R_TYPE(rela->r_info), (void *)rela->r_offset, (void *)rela->r_addend, (void *)*where)); _rtld_error("%s: Unsupported relocation type %ld " "in non-PLT relocations", obj->path, (u_long) ELF_R_TYPE(rela->r_info)); return -1; } } return 0; } int _rtld_relocate_plt_lazy(Obj_Entry *obj) { const Elf_Rela *rela; if (!obj->relocbase) return 0; for (rela = obj->pltrela; rela < obj->pltrelalim; rela++) { Elf_Addr *where = (Elf_Addr *)(obj->relocbase + rela->r_offset); assert(ELF_R_TYPE(rela->r_info) == R_TYPE(JMP_SLOT)); /* Just relocate the GOT slots pointing into the PLT */ *where += (Elf_Addr)obj->relocbase; rdbg(("lazy fixup pltgot %p in %s --> %p", where, obj->path, (void *)*where)); } return 0; } static inline int _rtld_relocate_plt_object(const Obj_Entry *obj, const Elf_Rela *rela, Elf_Addr *tp) { Elf_Addr *where = (Elf_Addr *)(obj->relocbase + rela->r_offset); Elf_Addr new_value; const Elf_Sym *def; const Obj_Entry *defobj; unsigned long info = rela->r_info; assert(ELF_R_TYPE(info) == R_TYPE(JMP_SLOT)); def = _rtld_find_plt_symdef(ELF_R_SYM(info), obj, &defobj, tp != NULL); if (__predict_false(def == NULL)) return -1; if (__predict_false(def == &_rtld_sym_zero)) return 0; if (ELF_ST_TYPE(def->st_info) == STT_GNU_IFUNC) { if (tp == NULL) return 0; new_value = _rtld_resolve_ifunc(defobj, def); } else { new_value = (Elf_Addr)(defobj->relocbase + def->st_value + rela->r_addend); } rdbg(("bind now/fixup pltgot %p in %s --> old=%p new=%p", where, defobj->strtab + def->st_name, (void *)*where, (void *)new_value)); if (*where != new_value) *where = new_value; if (tp) *tp = new_value - rela->r_addend; return 0; } caddr_t _rtld_bind(const Obj_Entry *obj, Elf_Word reloff) { const Elf_Rela *rela = (const Elf_Rela *)((const uint8_t *)obj->pltrela + reloff); Elf_Addr result; int err; result = 0; /* XXX gcc */ _rtld_shared_enter(); err = _rtld_relocate_plt_object(obj, rela, &result); if (err) _rtld_die(); _rtld_shared_exit(); return (caddr_t)result; } int _rtld_relocate_plt_objects(const Obj_Entry *obj) { const Elf_Rela *rela; for (rela = obj->pltrela; rela < obj->pltrelalim; rela++) if (_rtld_relocate_plt_object(obj, rela, NULL) < 0) return -1; return 0; } src/libexec/ld.elf_so/arch/vax/rtld_start.S010064400011300000175000000234151465352413700211150ustar00srcmastrnetbsd/* $NetBSD: rtld_start.S,v 1.25 2024/08/03 21:59:59 riastradh Exp $ */ /* * Copyright 1996 Matt Thomas * Portions copyright 2002, 2003 Charles M. Hannum * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ #include /* R9 contains the address of PS_STRINGS and since its caller saved, * we can just use it. R6 has a backup copy of the stack pointer which * we can use as well. */ ENTRY(_rtld_start, 0) /* Allocate space on the stack for the cleanup and obj_main * entries that _rtld() will provide for us. */ clrl %fp subl2 $8,%sp movab _DYNAMIC,%r0 subl3 _GLOBAL_OFFSET_TABLE_,%r0,%r10 pushl %r10 /* relocbase */ pushl %r0 /* &_DYNAMIC */ calls $2,_rtld_relocate_nonplt_self pushl %r10 /* relocbase */ pushal 4(%sp) /* sp */ calls $2,_rtld /* entry = _rtld(sp, relocbase) */ movq (%sp)+,%r7 /* grab cleanup and obj_main into %r7/%r8 */ jmp 2(%r0) /* jump to entry point + 2 */ END(_rtld_start) /* * Lazy binding entry point, called via PLT via JMP into pltgot[1]. * SP+4: address to relocation offset * SP+0: obj entry points */ ALTENTRY(_rtld_bind_start) pushl %r1 /* need to preserve r1 */ movq -8(%fp),%r0 /* get addresses of plt.got & reloc index */ pushl (%r1) /* push relocation offset */ pushl %r0 /* push address of obj entry */ calls $2,_rtld_bind /* * This code checks to see if we got called via a call{s,g} $n,*pcrel32 * This is by far the most common case (a call indirectly via the PLT). */ subl3 $7,16(%fp),%r1 /* return address */ bicb3 $1,(%r1),%r2 /* fetch opcode of instruction */ cmpb $0xfa,%r2 /* is it calls/callg */ jneq 20f /* no it isn't */ cmpb $0xff,2(%r1) /* and deferred 32-bit PC displacement? */ jneq 20f /* no it isn't */ /* * This makes sure the longword with the PLT's address has been updated * to point to the routine's address. If it hasn't, then returning * would put us in an infinite loop. Instead we punt and fake up a * callframe. */ movl 3(%r1),%r3 /* get displacement */ addl2 16(%fp),%r3 /* add ending location */ cmpl (%r3),%r0 /* does it contain the routine address? */ #ifdef DEBUG jneq 30f /* no it doesn't, die */ #else jneq 20f /* no it doesn't, go fake a new callframe */ #endif 11: movl %r1,16(%fp) /* backup to the calls/callg */ jbc $29,4(%fp),12f /* skip if this was a callg */ clrl (%ap) /* clear argument count */ 12: movl (%sp)+,%r1 /* restore r1 */ ret /* return and redo the call */ #if 1 20: /* * Since the calling standard says only r6-r11 should be saved, * that simplies things for us. That means we can use r0-r5 as * temporaries without worrying about preserving them. This means * can hold the current fixed callframe in r2-r5 as we build the * callframe without having to worry about overwriting the existing * callframe. */ extzv $0,$12,(%r0),%r1/* get routine's save mask */ bitw $0x3f,%r1 /* does the routine use r0-r5? */ jneq 30f /* yes, that sucks */ jbc $29,4(%fp),27f /* handle callg */ movq 4(%fp),%r2 /* fetch callframe status & saved AP */ movq 12(%fp),%r4 /* fetch callframe saved FP & PC */ insv %r1,$16,$12,%r2 /* update save mask */ movl (%sp)+,%fp /* use fp to keep saved r1 */ movl %ap,%sp /* reset stack to top of callframe */ 22: pushr %r1 /* push registers */ movq %r4,-(%sp) /* push callframe saved FP & PC */ movq %r2,-(%sp) /* push callframe status & saved AP */ pushl $0 /* push condition handler */ movl %fp,%r1 /* restore r1 */ movl %sp,%fp /* sp == fp now */ #if 1 jmp 2(%r0) /* jump past entry mask */ #else /* * More correct but IV/DV are never set so ignore doing this for now. */ movpsl -(%sp) /* push PSL */ clrb (%sp) /* clear user flags */ jbc $14,(%r0),24f /* IV need to be set? */ bisb2 $0x20,(%sp) /* yes, set it. */ 24: jbc $15,(%r0),25f /* DV need to be set? */ bisb2 $0x80,(%sp) /* yes, set it. */ 25: pushab 2(%r0) /* push address of first instruction */ rei /* and go to it (updating PSW) */ #endif /* * Count how many registers are being used for callg. */ 27: movl $0x32212110,%r3 /* bit counts */ extzv $6,$3,%r1,%r2 /* extract bits 6-8 */ ashl $2,%r2,%r2 /* shift by 2 */ extzv %r2,$4,%r3,%r4 /* extract count */ extzv $9,$3,%r1,%r2 /* extract bits 9-11 */ ashl $2,%r2,%r2 /* shift by 2 */ extzv %r2,$4,%r3,%r5 /* extract count */ movq 4(%fp),%r2 /* fetch callframe status & saved AP */ insv %r1,$16,$12,%r2 /* update save mask */ addl3 %r4,%r5,%r1 /* add counts and discard them */ movq 12(%fp),%r4 /* fetch callframe saved FP & PC */ moval 20(%fp)[%r1],%sp/* pop callframe */ extzv $16,$12,%r2,%r1 /* get save mask back */ jbr 22b /* now build the new callframe */ 30: calls $0,_C_LABEL(_rtld_die) #else /* * Check to see if called via call? $n,w^off(reg) */ 20: addl2 $2,%r1 /* 16-bit displacement */ bicb3 $1,(%r1),%r2 /* fetch opcode of instruction */ cmpb $0xfa,%r2 /* is it calls/callg */ jneq 30f /* no it isn't */ bicb3 $0x1f,2(%r1),%r3/* extract addressing mode */ cmpb $0xc0,%r3 /* 16-bit displacement? */ jeql 11b /* yes, redo the call */ halt /* * Check to see if called via call? $n,b^off(reg) */ 30: incl %r1 /* 8-bit displacement */ bicb3 $1,(%r1),%r2 /* fetch opcode of instruction */ cmpb $0xfa,%r2 /* is it calls/callg */ jneq 40f /* no it isn't */ bicb3 $0x1f,2(%r1),%r3/* extract addressing mode */ cmpb $0xa0,%r3 /* 8-bit displacement? */ jeql 11b /* yes, redo the call */ halt /* * Check to see if called via call? $n,(reg) */ 40: incl %r1 /* no displacement */ bicb3 $1,(%r1),%r2 /* fetch opcode of instruction */ cmpb $0xfa,%r2 /* is it calls/callg */ jeql 41f /* yes it is */ halt /* no, die die die */ 41: bicb3 $0x0f,2(%r1),%r2/* extract addressing mode */ bicb3 $0xf0,2(%r1),%r3/* extract register */ extzv $0,$12,6(%fp),%r4/* extract saved mask */ cmpb $0x60,%r2 /* register deferred? */ jeql 42f /* yes, deal with it */ cmpb $0x90,%r2 /* autoincrement deferred? */ jeql 70f /* yes, deal with it */ halt /* no, die die die */ 42: cmpw %r4,$0xffc /* did we save r2-r11? */ jneq 50f /* no, deal with it */ jbc %r3,%r4,43f /* is the register in the saved mask? */ /* * We saved r2-r11, so it's easy to replace the saved register with * the right value by indexing into saved register (offset by 8). */ movl %r0,(20-8)(%fp)[%r3] /* replace address in saved registers */ jbr 11b /* go back and redo call */ /* * Must have been called via r0 or r1 which are saved locally. * So move the routine address in the appropriate slot on the stack. */ 43: movl %r0,(%sp)[%r3] jbr 11b /* go back and redo call */ 50: jbs %r3,%r4,60f /* is the register in the saved mask? */ jbs %r3,$0x3f,43b /* is it r0-r5? */ /* * The register used for the call was not saved so we need to move * the new function address into it so the re-call will use the new * address. */ pushl %r0 /* save function address on the stack */ ashl %r5,$1,%r0 /* create a bitmask for the register */ popr %r0 /* pop it off the stack. */ jbr 11b /* and redo the call */ 60: clrl %r2 /* starting offset into saved registers */ clrl %r5 /* start with register 0 */ 61: cmpl %r2,%r3 /* is the register to save? */ jneq 62f /* no, advance to next */ movl %r0,20(%fp)[%r5]/* yes, save return address in saved reg */ jbr 11b /* and return the call */ 62: jbc %r5,%r4,63f /* is this register saved? */ incl %r5 /* yes, account for it */ 63: incl %r2 /* increment register number */ jbr 61b /* and loop */ 70: cmpb %r3,$12 blss 71f halt 71: cmpw %r4,$0xffc /* did we save r2-r11? */ jneq 72f /* no, deal with it */ subl2 $4,(20-8)(%fp)[%r3] /* backup incremented register */ jbr 11b /* and redo the call. 72: jbs %r3,%r4,80f jbs %r3,%3f,74f ashl %r5,$1,%r0 /* create a bitmask for the register */ pushr %r0 /* pop it off the stack. */ subl2 $4,(%sp) /* backup incremented register */ popr %r0 /* pop it off the stack. */ jbr 11b /* and redo the call. 73: subl2 %4,(%sp)[%r3] /* backup incremented register */ jbr 11b /* and redo the call. 80: clrl %r2 /* starting offset into saved registers */ clrl %r5 /* start with register 0 */ 81: cmpl %r2,%r3 /* is the register to save? */ jneq 82f /* no, advance to next */ subl $4,20(%fp)[%r5] /* yes, backup incremented register */ jbr 11b /* and return the call */ 82: jbc %r5,%r4,83f /* is this register saved? */ incl %r5 /* yes, account for it */ 83: incl %r2 /* increment register number */ jbr 81b /* and loop */ #endif END(_rtld_bind_start) src/libexec/ld.elf_so/arch/x86_64004075500011300000175000000000001504273241000166525ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/x86_64/CVS004075500011300000175000000000001504273241000173055ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/x86_64/CVS/Root010064400011300000175000000000441504273241000202250ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/ld.elf_so/arch/x86_64/CVS/Repository010064400011300000175000000000421504273241000214570ustar00srcmastrnetbsdsrc/libexec/ld.elf_so/arch/x86_64 src/libexec/ld.elf_so/arch/x86_64/CVS/Entries010064400011300000175000000002451504273241000207160ustar00srcmastrnetbsd/Makefile.inc/1.8/Tue Apr 3 21:10:27 2018//Tnetbsd-11 /mdreloc.c/1.50/Wed Apr 16 18:10:46 2025//Tnetbsd-11 /rtld_start.S/1.9/Sun Dec 11 22:07:26 2011//Tnetbsd-11 D src/libexec/ld.elf_so/arch/x86_64/CVS/Tag010064400011300000175000000000131522207752300200200ustar00srcmastrnetbsdTnetbsd-11 src/libexec/ld.elf_so/arch/x86_64/Makefile.inc010064400011300000175000000003611326076670300211520ustar00srcmastrnetbsd# $NetBSD: Makefile.inc,v 1.8 2018/04/03 21:10:27 joerg Exp $ SRCS+= rtld_start.S mdreloc.c # XXX Should not be in CPPFLAGS! CPPFLAGS+= -fPIC CPPFLAGS+= -DELFSIZE=64 CPPFLAGS+= -DRTLD_COMMON_CALL_IFUNC_RELA LDFLAGS+= -Wl,-e,.rtld_start src/libexec/ld.elf_so/arch/x86_64/mdreloc.c010064400011300000175000000271501477777124600205540ustar00srcmastrnetbsd/* $NetBSD: mdreloc.c,v 1.50 2025/04/16 18:10:46 riastradh Exp $ */ /* * Copyright (c) 2001 Wasabi Systems, Inc. * All rights reserved. * * Written by Frank van der Linden for Wasabi Systems, Inc. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed for the NetBSD Project by * Wasabi Systems, Inc. * 4. The name of Wasabi Systems, Inc. may not be used to endorse * or promote products derived from this software without specific prior * written permission. * * THIS SOFTWARE IS PROVIDED BY WASABI SYSTEMS, INC. ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL WASABI SYSTEMS, INC * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ /* * Copyright 1996 John D. Polstra. * Copyright 1996 Matt Thomas * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by John Polstra. * 4. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ /* * amd64 ELF relocations. * * References: * * [AMD64psABI] System V Application Binary Interface: AMD64 * Architecture Processor Supplement, Draft Version 0.99.6, * 2013-10-07. * https://web.archive.org/web/20160801075146/http://www.x86-64.org/documentation/abi.pdf * Source code: https://gitlab.com/x86-psABIs/x86-64-ABI */ #include #ifndef lint __RCSID("$NetBSD: mdreloc.c,v 1.50 2025/04/16 18:10:46 riastradh Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include #include "debug.h" #include "rtld.h" void _rtld_bind_start(void); void _rtld_relocate_nonplt_self(Elf_Dyn *, Elf_Addr); caddr_t _rtld_bind(const Obj_Entry *, Elf_Word); static inline int _rtld_relocate_plt_object(const Obj_Entry *, const Elf_Rela *, Elf_Addr *); #define rdbg_symname(obj, rela) \ ((obj)->strtab + (obj)->symtab[ELF_R_SYM((rela)->r_info)].st_name) void _rtld_setup_pltgot(const Obj_Entry *obj) { obj->pltgot[1] = (Elf_Addr) obj; obj->pltgot[2] = (Elf_Addr) &_rtld_bind_start; } void _rtld_relocate_nonplt_self(Elf_Dyn *dynp, Elf_Addr relocbase) { const Elf_Rela *rela = 0, *relalim; Elf_Addr relasz = 0; Elf_Addr *where; for (; dynp->d_tag != DT_NULL; dynp++) { switch (dynp->d_tag) { case DT_RELA: rela = (const Elf_Rela *)(relocbase + dynp->d_un.d_ptr); break; case DT_RELASZ: relasz = dynp->d_un.d_val; break; } } /* * Assume only 64-bit relocations here, which should always * be true for the dynamic linker. */ relalim = (const Elf_Rela *)((const uint8_t *)rela + relasz); for (; rela < relalim; rela++) { where = (Elf_Addr *)(relocbase + rela->r_offset); *where = (Elf_Addr)(relocbase + rela->r_addend); } } int _rtld_relocate_nonplt_objects(Obj_Entry *obj) { const Elf_Rela *rela; const Elf_Sym *def = NULL; const Obj_Entry *defobj = NULL; unsigned long last_symnum = ULONG_MAX; for (rela = obj->rela; rela < obj->relalim; rela++) { Elf64_Addr *where64; Elf32_Addr *where32; Elf64_Addr tmp64; Elf32_Addr tmp32; unsigned long symnum; where64 = (Elf64_Addr *)(obj->relocbase + rela->r_offset); where32 = (Elf32_Addr *)where64; switch (ELF_R_TYPE(rela->r_info)) { case R_TYPE(32): /* word32 S + A, truncate */ case R_TYPE(32S): /* word32 S + A, signed truncate */ case R_TYPE(GOT32): /* word32 G + A (XXX can we see these?) */ case R_TYPE(64): /* word64 S + A */ case R_TYPE(PC32): /* word32 S + A - P */ case R_TYPE(GLOB_DAT): /* word64 S */ case R_TYPE(TPOFF64): case R_TYPE(DTPMOD64): case R_TYPE(DTPOFF64): symnum = ELF_R_SYM(rela->r_info); if (last_symnum != symnum) { last_symnum = symnum; def = _rtld_find_symdef(symnum, obj, &defobj, false); if (def == NULL) return -1; } break; default: break; } switch (ELF_R_TYPE(rela->r_info)) { case R_TYPE(NONE): break; case R_TYPE(32): /* word32 S + A, truncate */ case R_TYPE(32S): /* word32 S + A, signed truncate */ case R_TYPE(GOT32): /* word32 G + A (XXX can we see these?) */ tmp32 = (Elf32_Addr)(u_long)(defobj->relocbase + def->st_value + rela->r_addend); if (*where32 != tmp32) *where32 = tmp32; rdbg(("32/32S %s in %s --> %p in %s", rdbg_symname(obj, rela), obj->path, (void *)(uintptr_t)*where32, defobj->path)); break; case R_TYPE(64): /* word64 S + A */ tmp64 = (Elf64_Addr)(defobj->relocbase + def->st_value + rela->r_addend); if (*where64 != tmp64) *where64 = tmp64; rdbg(("64 %s in %s --> %p in %s", rdbg_symname(obj, rela), obj->path, (void *)*where64, defobj->path)); break; case R_TYPE(PC32): /* word32 S + A - P */ tmp32 = (Elf32_Addr)(u_long)(defobj->relocbase + def->st_value + rela->r_addend - (Elf64_Addr)where64); if (*where32 != tmp32) *where32 = tmp32; rdbg(("PC32 %s in %s --> %p in %s", rdbg_symname(obj, rela), obj->path, (void *)(unsigned long)*where32, defobj->path)); break; case R_TYPE(GLOB_DAT): /* word64 S */ tmp64 = (Elf64_Addr)(defobj->relocbase + def->st_value); if (*where64 != tmp64) *where64 = tmp64; rdbg(("64 %s in %s --> %p in %s", rdbg_symname(obj, rela), obj->path, (void *)*where64, defobj->path)); break; case R_TYPE(RELATIVE): /* word64 B + A */ tmp64 = (Elf64_Addr)(obj->relocbase + rela->r_addend); if (*where64 != tmp64) *where64 = tmp64; rdbg(("RELATIVE in %s --> %p", obj->path, (void *)*where64)); break; case R_TYPE(TPOFF64): if (!defobj->tls_static && _rtld_tls_offset_allocate(__UNCONST(defobj))) return -1; *where64 = (Elf64_Addr)(def->st_value - defobj->tlsoffset + rela->r_addend); rdbg(("TPOFF64 %s in %s --> %p", rdbg_symname(obj, rela), obj->path, (void *)*where64)); break; case R_TYPE(DTPMOD64): *where64 = (Elf64_Addr)defobj->tlsindex; rdbg(("DTPMOD64 %s in %s --> %p", rdbg_symname(obj, rela), obj->path, (void *)*where64)); break; case R_TYPE(DTPOFF64): *where64 = (Elf64_Addr)(def->st_value + rela->r_addend); rdbg(("DTPOFF64 %s in %s --> %p", rdbg_symname(obj, rela), obj->path, (void *)*where64)); break; case R_TYPE(COPY): rdbg(("COPY")); break; case R_TYPE(IRELATIVE): /* IFUNC relocations are handled in _rtld_call_ifunc */ if (obj->ifunc_remaining_nonplt == 0) { obj->ifunc_remaining_nonplt = obj->relalim - rela; } break; default: rdbg(("sym = %lu, type = %lu, offset = %p, " "addend = %p, contents = %p, symbol = %s", (u_long)ELF_R_SYM(rela->r_info), (u_long)ELF_R_TYPE(rela->r_info), (void *)rela->r_offset, (void *)rela->r_addend, (void *)*where64, rdbg_symname(obj, rela))); _rtld_error("%s: Unsupported relocation type %ld " "in non-PLT relocations", obj->path, (u_long) ELF_R_TYPE(rela->r_info)); return -1; } } return 0; } int _rtld_relocate_plt_lazy(Obj_Entry *obj) { const Elf_Rela *rela; for (rela = obj->pltrelalim; rela-- > obj->pltrela; ) { Elf_Addr *where = (Elf_Addr *)(obj->relocbase + rela->r_offset); assert(ELF_R_TYPE(rela->r_info) == R_TYPE(JUMP_SLOT) || ELF_R_TYPE(rela->r_info) == R_TYPE(IRELATIVE)); if (ELF_R_TYPE(rela->r_info) == R_TYPE(IRELATIVE)) obj->ifunc_remaining = obj->pltrelalim - rela; /* Just relocate the GOT slots pointing into the PLT */ *where += (Elf_Addr)obj->relocbase; rdbg(("fixup !main in %s --> %p", obj->path, (void *)*where)); } return 0; } static inline int _rtld_relocate_plt_object(const Obj_Entry *obj, const Elf_Rela *rela, Elf_Addr *tp) { Elf_Addr *where = (Elf_Addr *)(obj->relocbase + rela->r_offset); Elf_Addr new_value; const Elf_Sym *def; const Obj_Entry *defobj; unsigned long info = rela->r_info; if (ELF_R_TYPE(info) == R_TYPE(IRELATIVE)) return 0; assert(ELF_R_TYPE(info) == R_TYPE(JUMP_SLOT)); def = _rtld_find_plt_symdef(ELF_R_SYM(info), obj, &defobj, tp != NULL); if (__predict_false(def == NULL)) return -1; if (__predict_false(def == &_rtld_sym_zero)) return 0; if (ELF_ST_TYPE(def->st_info) == STT_GNU_IFUNC) { if (tp == NULL) return 0; new_value = _rtld_resolve_ifunc(defobj, def); } else { new_value = (Elf_Addr)(defobj->relocbase + def->st_value + rela->r_addend); } rdbg(("bind now/fixup in %s --> old=%p new=%p", defobj->strtab + def->st_name, (void *)*where, (void *)new_value)); if (*where != new_value) *where = new_value; if (tp) *tp = new_value - rela->r_addend; return 0; } caddr_t _rtld_bind(const Obj_Entry *obj, Elf_Word reloff) { const Elf_Rela *rela = obj->pltrela + reloff; Elf_Addr new_value; int error; new_value = 0; /* XXX GCC4 */ _rtld_shared_enter(); error = _rtld_relocate_plt_object(obj, rela, &new_value); if (error) _rtld_die(); _rtld_shared_exit(); return (caddr_t)new_value; } int _rtld_relocate_plt_objects(const Obj_Entry *obj) { const Elf_Rela *rela; for (rela = obj->pltrela; rela < obj->pltrelalim; rela++) if (_rtld_relocate_plt_object(obj, rela, NULL) < 0) return -1; return 0; } src/libexec/ld.elf_so/arch/x86_64/rtld_start.S010064400011300000175000000063041167122463600212510ustar00srcmastrnetbsd/* $NetBSD: rtld_start.S,v 1.9 2011/12/11 22:07:26 joerg Exp $ */ /* * Copyright (c) 2001 Wasabi Systems, Inc. * All rights reserved. * * Written by Frank van der Linden for Wasabi Systems, Inc. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed for the NetBSD Project by * Wasabi Systems, Inc. * 4. The name of Wasabi Systems, Inc. may not be used to endorse * or promote products derived from this software without specific prior * written permission. * * THIS SOFTWARE IS PROVIDED BY WASABI SYSTEMS, INC. ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL WASABI SYSTEMS, INC * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include .text .align 16 .globl .rtld_start .hidden .rtld_start .type .rtld_start,@function .rtld_start: subq $16,%rsp # make room of obj_main and exit proc movq %rsp,%r12 # stack pointer arg to _rtld pushq %rbx # save ps_strings andq $~15,%rsp # align rsp, to be restored from r12 leaq _GLOBAL_OFFSET_TABLE_(%rip),%rax leaq _DYNAMIC(%rip),%rdi # &_DYNAMIC movq %rdi,%rbx subq (%rax),%rbx # relocbase movq %rbx,%rsi call _rtld_relocate_nonplt_self movq %r12,%rdi movq %rbx,%rsi call _rtld # _rtld(sp, relocbase) leaq -8(%r12),%rsp # restore saved rsp, including %rbx popq %rbx # %rbx = ps_strings popq %rdx # %rdx = cleanup popq %rcx # %rcx = obj_main jmp *%rax .align 4 .globl _rtld_bind_start .hidden _rtld_bind_start .type _rtld_bind_start,@function _rtld_bind_start: # (obj, reloff) # This function is called with a misaligned stack from the PLT # due to the additional argument pushed. # At this point %rsp % 16 == 8. pushfq # save caller-saved registers pushq %rax pushq %rcx pushq %rdx pushq %rsi pushq %rdi pushq %r8 pushq %r9 pushq %r10 pushq %r11 movq 80(%rsp),%rdi movq 88(%rsp),%rsi call _rtld_bind # call the binder movq %rax,88(%rsp) # store function in obj popq %r11 popq %r10 popq %r9 popq %r8 popq %rdi popq %rsi popq %rdx popq %rcx popq %rax popfq leaq 8(%rsp),%rsp ret src/libexec/lfs_cleanerd004075500011300000175000000000001504273241000155535ustar00srcmastrnetbsdsrc/libexec/lfs_cleanerd/CVS004075500011300000175000000000001504273241000162065ustar00srcmastrnetbsdsrc/libexec/lfs_cleanerd/CVS/Root010064400011300000175000000000441504273241000171260ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/lfs_cleanerd/CVS/Repository010064400011300000175000000000311504273241000203560ustar00srcmastrnetbsdsrc/libexec/lfs_cleanerd src/libexec/lfs_cleanerd/CVS/Entries010064400011300000175000000007441504273241000176230ustar00srcmastrnetbsd/Makefile/1.21/Mon Sep 7 03:09:53 2020//Tnetbsd-11 /Makefile.inc/1.8/Sat Jun 3 09:09:11 2023//Tnetbsd-11 /cleaner.h/1.15/Tue Sep 1 06:16:58 2015//Tnetbsd-11 /cleansrv.c/1.4/Thu Jun 6 00:53:35 2013//Tnetbsd-11 /coalesce.c/1.33/Sat Oct 10 22:34:46 2015//Tnetbsd-11 /fdfs.c/1.10/Tue Jun 18 18:18:57 2013//Tnetbsd-11 /fdfs.h/1.1/Thu Mar 30 19:10:13 2006//Tnetbsd-11 /lfs_cleanerd.8/1.21/Sat Jul 31 15:02:54 2021//Tnetbsd-11 /lfs_cleanerd.c/1.60/Fri Aug 30 23:37:23 2019//Tnetbsd-11 D src/libexec/lfs_cleanerd/CVS/Tag010064400011300000175000000000131522207752300167210ustar00srcmastrnetbsdTnetbsd-11 src/libexec/lfs_cleanerd/Makefile010064400011300000175000000004111372532220100172620ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.21 2020/09/07 03:09:53 mrg Exp $ # @(#)Makefile 8.1 (Berkeley) 6/18/93 .include "Makefile.inc" PROG= lfs_cleanerd MAN= lfs_cleanerd.8 BINDIR= /libexec .if (${MKDYNAMICROOT} == "no") LDSTATIC?= -static .endif .include src/libexec/lfs_cleanerd/Makefile.inc010064400011300000175000000012371443660146700200570ustar00srcmastrnetbsd# $NetBSD: Makefile.inc,v 1.8 2023/06/03 09:09:11 lukem Exp $ # @(#)Makefile 8.1 (Berkeley) 6/18/93 WARNS?=3 # XXX: too many sign-compare issues .include SRCS+= lfs_cleanerd.c fdfs.c coalesce.c cleansrv.c SRCS+= lfs_cksum.c SRCS+= bufcache.c vnode.c lfs.c kernelops.c # segwrite.c .PATH: ${NETBSDSRCDIR}/sys/ufs/lfs ${NETBSDSRCDIR}/sbin/fsck_lfs \ ${NETBSDSRCDIR}/libexec/lfs_cleanerd COPTS.lfs_cleanerd.c+= ${CC_WNO_STRINGOP_TRUNCATION} FSCK_LFS= ${NETBSDSRCDIR}/sbin/fsck_lfs DPADD+= ${LIBUTIL} LDADD+= -lutil CPPFLAGS+=-I${FSCK_LFS} -I${NETBSDSRCDIR}/sbin/mount_lfs # -DUSE_CLIENT_SERVER #CPPFLAGS+=-DREPAIR_ZERO_FINFO #CPPFLAGS+=-DTEST_PATTERN src/libexec/lfs_cleanerd/cleaner.h010064400011300000175000000041011257124133200174070ustar00srcmastrnetbsd#ifndef CLEANER_H_ #define CLEANER_H_ /* * An abbreviated version of the SEGUSE data structure. */ struct clfs_seguse { u_int32_t nbytes; u_int32_t nsums; u_int32_t flags; u_int64_t lastmod; u_int64_t priority; }; /* * The cleaner's view of the superblock data structure. */ struct clfs { union { struct dlfs u_32; struct dlfs64 u_64; } lfs_dlfs_u; unsigned lfs_is64 : 1, lfs_dobyteswap : 1, lfs_hasolddirfmt : 1; /* Ifile */ int clfs_ifilefd; /* Ifile file descriptor */ struct uvnode *lfs_ivnode; /* Ifile vnode */ struct lfs_fhandle clfs_ifilefh; /* Ifile file handle */ /* Device */ int clfs_devfd; /* Device file descriptor */ struct uvnode *clfs_devvp; /* Device vnode */ char *clfs_dev; /* Name of device */ /* Cache of segment status */ struct clfs_seguse *clfs_segtab; /* Abbreviated seguse table */ struct clfs_seguse **clfs_segtabp; /* pointers to same */ /* Progress status */ int clfs_nactive; /* How many segments' blocks we have */ int clfs_onhold; /* If cleaning this fs is on hold */ }; /* * Get lfs accessors that use struct clfs. This must come after the * definition of struct clfs. (blah) */ #define STRUCT_LFS struct clfs #include /* * Fraction of the could-be-clean segments required to be clean. */ #define BUSY_LIM 0.5 #define IDLE_LIM 0.9 __BEGIN_DECLS /* lfs_cleanerd.c */ void pwarn(const char *, ...); void calc_cb(struct clfs *, int, struct clfs_seguse *); void dlog(const char *, ...); void handle_error(struct clfs **, int); int init_fs(struct clfs *, char *); int invalidate_segment(struct clfs *, int); void lfs_ientry(IFILE **, struct clfs *, ino_t, struct ubuf **); int load_segment(struct clfs *, int, BLOCK_INFO **, int *); int reinit_fs(struct clfs *); void reload_ifile(struct clfs *); void toss_old_blocks(struct clfs *, BLOCK_INFO **, blkcnt_t *, int *); /* cleansrv.c */ void check_control_socket(void); void try_to_become_master(int, char **); /* coalesce.c */ int clean_all_inodes(struct clfs *); int fork_coalesce(struct clfs *); __END_DECLS #endif /* CLEANER_H_ */ src/libexec/lfs_cleanerd/cleansrv.c010064400011300000175000000131211215375661700176250ustar00srcmastrnetbsd/* $NetBSD: cleansrv.c,v 1.4 2013/06/06 00:53:35 dholland Exp $ */ /*- * Copyright (c) 2005 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Konrad E. Schroder . * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #ifdef USE_CLIENT_SERVER #include #include #include #include #include #include #include #include #include #include #include "bufcache.h" #include "vnode.h" #include "lfs.h" #include "fdfs.h" #include "cleaner.h" #define LFS_CLEANERD_SOCKDIR "/tmp/.lfs_cleanerd" #define LFS_CLEANERD_SOCKFILE LFS_CLEANERD_SOCKDIR "/socket" int control_socket = -1; extern int nfss; extern struct clfs **fsp; struct lfs_cleanerd_cmd { int cmd; int len; char data[PATH_MAX]; }; void check_control_socket(void) { int c, r; struct lfs_cleanerd_cmd cmd; struct clfs **nfsp; if (control_socket < 0) return; while(1) { ioctl(control_socket, FIONREAD, &c); if (c <= 0) return; read(control_socket, (char *)&cmd, sizeof(cmd)); switch(cmd.cmd) { case 'C': /* Add filesystem for cleaning */ ++nfss; nfsp = (struct clfs **)realloc(fsp, nfss * sizeof(*fsp)); if (nfsp == NULL) { --nfss; break; } fsp = nfsp; fsp[nfss - 1] = (struct clfs *)malloc(sizeof(**fsp)); if (fsp[nfss - 1] == NULL) { syslog(LOG_ERR, "%s: couldn't alloc memory: %m" cmd.data); --nfsp; break; } if ((r = init_fs(fsp[nfss - 1], cmd.data)) < 0) { syslog(LOG_ERR, "%s: couldn't init: " "error code %d", cmd.data, r); handle_error(fsp, nfss - 1); } break; default: syslog(LOG_NOTICE, "unknown message type %d", cmd.cmd); break; } } } static int send_fss_to_master(int argc, char **argv) { struct sockaddr_un sun; struct lfs_cleanerd_cmd cmd; int i, r, s; strcpy(sun.sun_path, LFS_CLEANERD_SOCKFILE); sun.sun_family = AF_LOCAL; sun.sun_len = sizeof(sa_family_t) + 1 + strlen(sun.sun_path); s = socket(PF_LOCAL, SOCK_DGRAM, 0); if (s < 0) { syslog(LOG_DEBUG, "open failed: %m"); return -1; } cmd.cmd = 'C'; for (i = 0; i < argc; i++) { strncpy(cmd.data, argv[i], PATH_MAX); cmd.len = 2 * sizeof(int) + strlen(cmd.data) + 1; r = sendto(s, &cmd, sizeof(cmd), 0, (struct sockaddr *)&sun, sizeof(sun)); if (r < 0) { syslog(LOG_DEBUG, "sendto failed: %m"); return -1; } } return 0; } static void sig_donothing(int sig) { /* Do nothing */ dlog("caught sigio"); } static void cleanup_socket(void) { if (control_socket >= 0) { close(control_socket); unlink(LFS_CLEANERD_SOCKFILE); rmdir(LFS_CLEANERD_SOCKDIR); } } void try_to_become_master(int argc, char **argv) { struct sockaddr_un sun; int fd; int pid; int flags; char scratch[80]; if (mkdir(LFS_CLEANERD_SOCKDIR, 0700) < 0) { if (errno != EEXIST) return; pid = 0; fd = open("/var/run/lfs_cleanerd.pid", O_RDONLY); if (fd >= 0) { read(fd, scratch, 80); scratch[79] = '\0'; pid = atoi(scratch); if (kill(pid, 0) == 0) { send_fss_to_master(argc, argv); exit(0); } close(fd); } /* * Master is no longer present even though directory * exists. Remove the socket and proceed. There is * a race condition here which could result in more than * one master daemon. That would not be a catastrophe. */ if (unlink(LFS_CLEANERD_SOCKFILE) != 0) return; } /* * Create the socket and bind it in the namespace */ control_socket = socket(PF_LOCAL, SOCK_DGRAM, 0); strcpy(sun.sun_path, LFS_CLEANERD_SOCKFILE); sun.sun_family = AF_LOCAL; sun.sun_len = sizeof(sa_family_t) + 1 + strlen(sun.sun_path); bind(control_socket, (struct sockaddr *)&sun, sizeof(sun)); /* Clean up when we leave */ atexit(cleanup_socket); /* * Wake us when there is i/o on this socket. We don't need * to actually do anything when we get the signal, but we * have to install a signal handler so LFCNSEGWAIT will be * interrupted when data comes in on the socket. */ fcntl(control_socket, F_SETOWN, getpid()); flags = fcntl(control_socket, F_GETFL, NULL); flags |= O_ASYNC; fcntl(control_socket, F_SETFL, flags); signal(SIGIO, sig_donothing); /* And finally record our pid */ pidfile("lfs_cleanerd"); } #endif /* USE_CLIENT_SERVER */ src/libexec/lfs_cleanerd/coalesce.c010064400011300000175000000272531260631120600175610ustar00srcmastrnetbsd/* $NetBSD: coalesce.c,v 1.33 2015/10/10 22:34:46 dholland Exp $ */ /*- * Copyright (c) 2002, 2005 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Konrad E. Schroder . * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "bufcache.h" #include "vnode.h" #include "cleaner.h" #include "kernelops.h" extern int debug, do_mmap; /* * XXX return the arg to just int when/if we don't need it for * potentially huge block counts any more. */ static int log2int(intmax_t n) { int log; log = 0; while (n > 0) { ++log; n >>= 1; } return log - 1; } enum coalesce_returncodes { COALESCE_OK = 0, COALESCE_NOINODE, COALESCE_TOOSMALL, COALESCE_BADSIZE, COALESCE_BADBLOCKSIZE, COALESCE_NOMEM, COALESCE_BADBMAPV, COALESCE_BADMARKV, COALESCE_NOTWORTHIT, COALESCE_NOTHINGLEFT, COALESCE_EIO, COALESCE_MAXERROR }; const char *coalesce_return[] = { "Successfully coalesced", "File not in use or inode not found", "Not large enough to coalesce", "Negative size", "Not enough blocks to account for size", "Malloc failed", "LFCNBMAPV failed", "Not broken enough to fix", "Too many blocks not found", "Too many blocks found in active segments", "I/O error", "No such error" }; static union lfs_dinode * get_dinode(struct clfs *fs, ino_t ino) { IFILE *ifp; daddr_t daddr; struct ubuf *bp; union lfs_dinode *dip, *r; unsigned i; lfs_ientry(&ifp, fs, ino, &bp); daddr = lfs_if_getdaddr(fs, ifp); brelse(bp, 0); if (daddr == 0x0) return NULL; bread(fs->clfs_devvp, daddr, lfs_sb_getibsize(fs), 0, &bp); for (i = 0; i < LFS_INOPB(fs); i++) { dip = DINO_IN_BLOCK(fs, bp->b_data, i); if (lfs_dino_getinumber(fs, dip) == ino) { r = malloc(sizeof(*r)); if (r == NULL) break; /* * Don't just assign the union, as if we're * 32-bit and it's the last inode in the block * that will run off the end of the buffer. */ if (fs->lfs_is64) { r->u_64 = dip->u_64; } else { r->u_32 = dip->u_32; } brelse(bp, 0); return r; } } brelse(bp, 0); return NULL; } /* * Find out if this inode's data blocks are discontinuous; if they are, * rewrite them using markv. Return the number of inodes rewritten. */ static int clean_inode(struct clfs *fs, ino_t ino) { BLOCK_INFO *bip = NULL, *tbip; CLEANERINFO cip; struct ubuf *bp; union lfs_dinode *dip; struct clfs_seguse *sup; struct lfs_fcntl_markv /* { BLOCK_INFO *blkiov; int blkcnt; } */ lim; daddr_t toff; int noff; blkcnt_t i, nb, onb; int retval; int bps; dip = get_dinode(fs, ino); if (dip == NULL) return COALESCE_NOINODE; /* Compute file block size, set up for bmapv */ onb = nb = lfs_lblkno(fs, lfs_dino_getsize(fs, dip)); /* XXX for now, don't do any file small enough to have fragments */ if (nb < ULFS_NDADDR) { free(dip); return COALESCE_TOOSMALL; } /* Sanity checks */ #if 0 /* di_size is uint64_t -- this is a noop */ if (lfs_dino_getsize(fs, dip) < 0) { dlog("ino %d, negative size (%" PRId64 ")", ino, lfs_dino_getsize(fs, dip)); free(dip); return COALESCE_BADSIZE; } #endif if (nb > lfs_dino_getblocks(fs, dip)) { dlog("ino %ju, computed blocks %jd > held blocks %ju", (uintmax_t)ino, (intmax_t)nb, (uintmax_t)lfs_dino_getblocks(fs, dip)); free(dip); return COALESCE_BADBLOCKSIZE; } /* * XXX: We should really coalesce really large files in * chunks, as there's substantial diminishing returns and * mallocing huge amounts of memory just to get those returns * is pretty silly. But that requires a big rework of this * code. (On the plus side though then we can stop worrying * about block counts > 2^31.) */ /* ugh, no DADDR_T_MAX */ __CTASSERT(sizeof(daddr_t) == sizeof(int64_t)); if (nb > INT64_MAX / sizeof(BLOCK_INFO)) { syslog(LOG_WARNING, "ino %ju, %jd blocks: array too large\n", (uintmax_t)ino, (uintmax_t)nb); free(dip); return COALESCE_NOMEM; } bip = (BLOCK_INFO *)malloc(sizeof(BLOCK_INFO) * nb); if (bip == NULL) { syslog(LOG_WARNING, "ino %llu, %jd blocks: %s\n", (unsigned long long)ino, (intmax_t)nb, strerror(errno)); free(dip); return COALESCE_NOMEM; } for (i = 0; i < nb; i++) { memset(bip + i, 0, sizeof(BLOCK_INFO)); bip[i].bi_inode = ino; bip[i].bi_lbn = i; bip[i].bi_version = lfs_dino_getgen(fs, dip); /* Don't set the size, but let lfs_bmap fill it in */ } /* * The kernel also contains this check; but as lim.blkcnt is * only 32 bits wide, we need to check ourselves too in case * we'd otherwise truncate a value > 2^31, as that might * succeed and create bizarre results. */ if (nb > LFS_MARKV_MAXBLKCNT) { syslog(LOG_WARNING, "%s: coalesce: LFCNBMAPV: Too large\n", lfs_sb_getfsmnt(fs)); retval = COALESCE_BADBMAPV; goto out; } lim.blkiov = bip; lim.blkcnt = nb; if (kops.ko_fcntl(fs->clfs_ifilefd, LFCNBMAPV, &lim) < 0) { syslog(LOG_WARNING, "%s: coalesce: LFCNBMAPV: %m", lfs_sb_getfsmnt(fs)); retval = COALESCE_BADBMAPV; goto out; } #if 0 for (i = 0; i < nb; i++) { printf("bi_size = %d, bi_ino = %ju, " "bi_lbn = %jd, bi_daddr = %jd\n", bip[i].bi_size, (uintmax_t)bip[i].bi_inode, (intmax_t)bip[i].bi_lbn, (intmax_t)bip[i].bi_daddr); } #endif noff = 0; toff = 0; for (i = 1; i < nb; i++) { if (bip[i].bi_daddr != bip[i - 1].bi_daddr + lfs_sb_getfrag(fs)) ++noff; toff += llabs(bip[i].bi_daddr - bip[i - 1].bi_daddr - lfs_sb_getfrag(fs)) >> lfs_sb_getfbshift(fs); } /* * If this file is not discontinuous, there's no point in rewriting it. * * Explicitly allow a certain amount of discontinuity, since large * files will be broken among segments and medium-sized files * can have a break or two and it's okay. */ if (nb <= 1 || noff == 0 || noff < log2int(nb) || lfs_segtod(fs, noff) * 2 < nb) { retval = COALESCE_NOTWORTHIT; goto out; } else if (debug) syslog(LOG_DEBUG, "ino %llu total discontinuity " "%d (%jd) for %jd blocks", (unsigned long long)ino, noff, (intmax_t)toff, (intmax_t)nb); /* Search for blocks in active segments; don't move them. */ for (i = 0; i < nb; i++) { if (bip[i].bi_daddr <= 0) continue; sup = &fs->clfs_segtab[lfs_dtosn(fs, bip[i].bi_daddr)]; if (sup->flags & SEGUSE_ACTIVE) bip[i].bi_daddr = LFS_UNUSED_DADDR; /* 0 */ } /* * Get rid of any blocks we've marked dead. If this is an older * kernel that doesn't have bmapv fill in the block sizes, we'll * toss everything here. */ onb = nb; toss_old_blocks(fs, &bip, &nb, NULL); nb = i; /* * We may have tossed enough blocks that it is no longer worthwhile * to rewrite this inode. */ if (nb == 0 || onb - nb > log2int(onb)) { if (debug) syslog(LOG_DEBUG, "too many blocks tossed, not rewriting"); retval = COALESCE_NOTHINGLEFT; goto out; } /* * We are going to rewrite this inode. * For any remaining blocks, read in their contents. */ for (i = 0; i < nb; i++) { bip[i].bi_bp = malloc(bip[i].bi_size); if (bip[i].bi_bp == NULL) { syslog(LOG_WARNING, "allocate block buffer size=%d: %s\n", bip[i].bi_size, strerror(errno)); retval = COALESCE_NOMEM; goto out; } if (kops.ko_pread(fs->clfs_devfd, bip[i].bi_bp, bip[i].bi_size, lfs_fsbtob(fs, bip[i].bi_daddr)) < 0) { retval = COALESCE_EIO; goto out; } } if (debug) syslog(LOG_DEBUG, "ino %ju markv %jd blocks", (uintmax_t)ino, (intmax_t)nb); /* * Write in segment-sized chunks. If at any point we'd write more * than half of the available segments, sleep until that's not * true any more. * * XXX the pointer arithmetic in this loop is illegal; replace * TBIP with an integer (blkcnt_t) offset. */ bps = lfs_segtod(fs, 1); for (tbip = bip; tbip < bip + nb; tbip += bps) { do { bread(fs->lfs_ivnode, 0, lfs_sb_getbsize(fs), 0, &bp); cip = *(CLEANERINFO *)bp->b_data; brelse(bp, B_INVAL); if (lfs_ci_getclean(fs, &cip) < 4) /* XXX magic number 4 */ kops.ko_fcntl(fs->clfs_ifilefd, LFCNSEGWAIT, NULL); } while (lfs_ci_getclean(fs, &cip) < 4); /* * Note that although lim.blkcnt is 32 bits wide, bps * (which is blocks-per-segment) is < 2^32 so the * value assigned here is always in range. */ lim.blkiov = tbip; lim.blkcnt = (tbip + bps < bip + nb ? bps : nb % bps); if (kops.ko_fcntl(fs->clfs_ifilefd, LFCNMARKV, &lim) < 0) { retval = COALESCE_BADMARKV; goto out; } } retval = COALESCE_OK; out: free(dip); if (bip) { for (i = 0; i < onb; i++) if (bip[i].bi_bp) free(bip[i].bi_bp); free(bip); } return retval; } /* * Try coalescing every inode in the filesystem. * Return the number of inodes actually altered. */ int clean_all_inodes(struct clfs *fs) { int i, r, maxino; int totals[COALESCE_MAXERROR]; struct stat st; memset(totals, 0, sizeof(totals)); fstat(fs->clfs_ifilefd, &st); maxino = lfs_sb_getifpb(fs) * (st.st_size >> lfs_sb_getbshift(fs)) - lfs_sb_getsegtabsz(fs) - lfs_sb_getcleansz(fs); for (i = 0; i < maxino; i++) { r = clean_inode(fs, i); ++totals[r]; } for (i = 0; i < COALESCE_MAXERROR; i++) if (totals[i]) syslog(LOG_DEBUG, "%s: %d", coalesce_return[i], totals[i]); return totals[COALESCE_OK]; } /* * Fork a child process to coalesce this fs. */ int fork_coalesce(struct clfs *fs) { static pid_t childpid; int num; /* * If already running a coalescing child, don't start a new one. */ if (childpid) { if (waitpid(childpid, NULL, WNOHANG) == childpid) childpid = 0; } if (childpid && kill(childpid, 0) >= 0) { /* already running a coalesce process */ if (debug) syslog(LOG_DEBUG, "coalescing already in progress"); return 0; } /* * Fork a child and let the child coalease */ childpid = fork(); if (childpid < 0) { syslog(LOG_ERR, "%s: fork to coaleasce: %m", lfs_sb_getfsmnt(fs)); return 0; } else if (childpid == 0) { syslog(LOG_NOTICE, "%s: new coalescing process, pid %d", lfs_sb_getfsmnt(fs), getpid()); num = clean_all_inodes(fs); syslog(LOG_NOTICE, "%s: coalesced %d discontiguous inodes", lfs_sb_getfsmnt(fs), num); exit(0); } return 0; } src/libexec/lfs_cleanerd/fdfs.c010064400011300000175000000157401216012222100167130ustar00srcmastrnetbsd/* $NetBSD: fdfs.c,v 1.10 2013/06/18 18:18:57 christos Exp $ */ /*- * Copyright (c) 2005 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Konrad E. Schroder . * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ /* * Buffer cache routines for a file-descriptor backed filesystem. * This is part of lfs_cleanerd so there is also a "segment pointer" that * we can make buffers out of without duplicating memory or reading the data * again. */ #include #include #include #include #include #include #include #include #include #include #include #include "vnode.h" #include "bufcache.h" #include "fdfs.h" #include "kernelops.h" /* * Return a "vnode" interface to a given file descriptor. */ struct uvnode * fd_vget(int fd, int bsize, int segsize, int nseg) { struct fdfs *fs; struct uvnode *vp; int i; fs = malloc(sizeof(*fs)); if (fs == NULL) return NULL; if (segsize > 0) { fs->fd_bufp = malloc(nseg * sizeof(struct fd_buf)); if (fs->fd_bufp == NULL) { free(fs); return NULL; } for (i = 0; i < nseg; i++) { fs->fd_bufp[i].start = 0x0; fs->fd_bufp[i].end = 0x0; fs->fd_bufp[i].buf = malloc(segsize); if (fs->fd_bufp[i].buf == NULL) { while (--i >= 0) free(fs->fd_bufp[i].buf); free(fs->fd_bufp); free(fs); return NULL; } } } else fs->fd_bufp = NULL; fs->fd_fd = fd; fs->fd_bufc = nseg; fs->fd_bufi = 0; fs->fd_bsize = bsize; fs->fd_ssize = segsize; vp = malloc(sizeof(*vp)); if (vp == NULL) { if (fs->fd_bufp) { for (i = 0; i < nseg; i++) free(fs->fd_bufp[i].buf); free(fs->fd_bufp); } free(fs); return NULL; } memset(vp, 0, sizeof(*vp)); vp->v_fd = fd; vp->v_fs = fs; vp->v_usecount = 0; vp->v_strategy_op = fd_vop_strategy; vp->v_bwrite_op = fd_vop_bwrite; vp->v_bmap_op = fd_vop_bmap; LIST_INIT(&vp->v_cleanblkhd); LIST_INIT(&vp->v_dirtyblkhd); vp->v_data = NULL; return vp; } /* * Deallocate a vnode. */ void fd_reclaim(struct uvnode *vp) { int i; struct ubuf *bp; struct fdfs *fs; while ((bp = LIST_FIRST(&vp->v_dirtyblkhd)) != NULL) { bremfree(bp); buf_destroy(bp); } while ((bp = LIST_FIRST(&vp->v_cleanblkhd)) != NULL) { bremfree(bp); buf_destroy(bp); } fs = (struct fdfs *)vp->v_fs; for (i = 0; i < fs->fd_bufc; i++) free(fs->fd_bufp[i].buf); free(fs->fd_bufp); free(fs); memset(vp, 0, sizeof(*vp)); } /* * We won't be using that last segment after all. */ void fd_release(struct uvnode *vp) { --((struct fdfs *)vp->v_fs)->fd_bufi; } /* * Reset buffer pointer to first buffer. */ void fd_release_all(struct uvnode *vp) { ((struct fdfs *)vp->v_fs)->fd_bufi = 0; } /* * Prepare a segment buffer which we will expect to read from. * We never increment fd_bufi unless we have succeeded to allocate the space, * if necessary, and have read the segment. */ int fd_preload(struct uvnode *vp, daddr_t start) { struct fdfs *fs = (struct fdfs *)vp->v_fs; struct fd_buf *t; int r; /* We might need to allocate more buffers. */ if (fs->fd_bufi == fs->fd_bufc) { ++fs->fd_bufc; syslog(LOG_DEBUG, "increasing number of segment buffers to %d", fs->fd_bufc); t = realloc(fs->fd_bufp, fs->fd_bufc * sizeof(struct fd_buf)); if (t == NULL) { syslog(LOG_NOTICE, "failed resizing table to %d\n", fs->fd_bufc); return -1; } fs->fd_bufp = t; fs->fd_bufp[fs->fd_bufi].start = 0x0; fs->fd_bufp[fs->fd_bufi].end = 0x0; fs->fd_bufp[fs->fd_bufi].buf = malloc(fs->fd_ssize); if (fs->fd_bufp[fs->fd_bufi].buf == NULL) { syslog(LOG_NOTICE, "failed to allocate buffer #%d\n", fs->fd_bufc); --fs->fd_bufc; return -1; } } /* Read the current buffer. */ fs->fd_bufp[fs->fd_bufi].start = start; fs->fd_bufp[fs->fd_bufi].end = start + fs->fd_ssize / fs->fd_bsize; if ((r = kops.ko_pread(fs->fd_fd, fs->fd_bufp[fs->fd_bufi].buf, (size_t)fs->fd_ssize, start * fs->fd_bsize)) < 0) { syslog(LOG_ERR, "preload to segment buffer %d", fs->fd_bufi); return r; } fs->fd_bufi = fs->fd_bufi + 1; return 0; } /* * Get a pointer to a block contained in one of the segment buffers, * as if from bread() but avoiding the buffer cache. */ char * fd_ptrget(struct uvnode *vp, daddr_t bn) { int i; struct fdfs *fs; fs = (struct fdfs *)vp->v_fs; for (i = 0; i < fs->fd_bufc; i++) { if (bn >= fs->fd_bufp[i].start && bn < fs->fd_bufp[i].end) { return fs->fd_bufp[i].buf + (bn - fs->fd_bufp[i].start) * fs->fd_bsize; } } return NULL; } /* * Strategy routine. We can read from the segment buffer if requested. */ int fd_vop_strategy(struct ubuf * bp) { struct fdfs *fs; char *cp; int count; fs = (struct fdfs *)bp->b_vp->v_fs; if (bp->b_flags & B_READ) { if ((cp = fd_ptrget(bp->b_vp, bp->b_blkno)) != NULL) { free(bp->b_data); bp->b_data = cp; bp->b_flags |= (B_DONTFREE | B_DONE); return 0; } count = kops.ko_pread(bp->b_vp->v_fd, bp->b_data, bp->b_bcount, bp->b_blkno * fs->fd_bsize); if (count == bp->b_bcount) bp->b_flags |= B_DONE; } else { count = kops.ko_pwrite(bp->b_vp->v_fd, bp->b_data, bp->b_bcount, bp->b_blkno * fs->fd_bsize); if (count == 0) { perror("pwrite"); return -1; } bp->b_flags &= ~B_DELWRI; reassignbuf(bp, bp->b_vp); } return 0; } /* * Delayed write. */ int fd_vop_bwrite(struct ubuf * bp) { bp->b_flags |= B_DELWRI; reassignbuf(bp, bp->b_vp); brelse(bp, 0); return 0; } /* * Map lbn to disk address. Since we are using the file * descriptor as the "disk", the disk address is meaningless * and we just return the block address. */ int fd_vop_bmap(struct uvnode * vp, daddr_t lbn, daddr_t * daddrp) { *daddrp = lbn; return 0; } src/libexec/lfs_cleanerd/fdfs.h010064400011300000175000000014771041302642500167320ustar00srcmastrnetbsdstruct fd_buf { char *buf; /* The buffer itself */ daddr_t start; /* Start of this buffer */ daddr_t end; /* End of this buffer */ }; struct fdfs { int fd_fd; /* The file descriptor */ int fd_bufc; /* Number of segment buffers */ int fd_bufi; /* Index to next segment buffer */ struct fd_buf *fd_bufp; /* The buffers */ off_t fd_bsize; /* block size */ off_t fd_ssize; /* segment size */ }; struct uvnode * fd_vget(int, int, int, int); int fd_preload(struct uvnode *, daddr_t); int fd_vop_strategy(struct ubuf *); int fd_vop_bwrite(struct ubuf *); int fd_vop_bmap(struct uvnode *, daddr_t, daddr_t *); char *fd_ptrget(struct uvnode *, daddr_t); void fd_reclaim(struct uvnode *); void fd_release(struct uvnode *); void fd_release_all(struct uvnode *); src/libexec/lfs_cleanerd/lfs_cleanerd.8010064400011300000175000000125571410126303600203510ustar00srcmastrnetbsd.\" $NetBSD: lfs_cleanerd.8,v 1.21 2021/07/31 15:02:54 andvar Exp $ .\" .\" Copyright (c) 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. Neither the name of the University nor the names of its contributors .\" may be used to endorse or promote products derived from this software .\" without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF .\" SUCH DAMAGE. .\" .\" from: @(#)lfs_cleanerd.8 8.2 (Berkeley) 12/11/93 .\" .Dd August 6, 2009 .Dt LFS_CLEANERD 8 .Os .Sh NAME .Nm lfs_cleanerd .Nd garbage collect a log-structured file system .Sh SYNOPSIS .Nm .Op Fl bcDdfmqs .Op Fl i Ar segment-number .Op Fl J Ar raw-device .Op Fl l Ar load-threshold .Op Fl n Ar number-of-segments .Op Fl r Ar report-frequency .Op Fl S Ar semaphore-address .Op Fl t Ar timeout .Pa node .Sh DESCRIPTION The .Nm command starts a daemon process which garbage-collects the log-structured file system residing at the point named by .Ar node in the global file system namespace. This command is normally executed by .Xr mount_lfs 8 when the log-structured file system is mounted. The daemon will exit within a few minutes of when the file system it was cleaning is unmounted. .Pp Garbage collection on a log-structured file system is done by scanning the file system's segments for active, i.e. referenced, data and copying it to new segments. When all of the active data in a given segment has been copied to a new segment that segment can be marked as empty, thus reclaiming the space taken by the inactive data which was in it. .Pp The following options are available: .Bl -tag -width indent .It Fl b Use bytes written, rather than segments read, when determining how many segments to clean at once. .It Fl c Coalescing mode. For each live inode, check to see if it has too many blocks that are not contiguous, and if it does, rewrite it. After a single pass through the filesystem the cleaner will exit. This option has been reported to corrupt file data; do not use it. .It Fl D Stay in the foreground, do not become a daemon process. Does not print additional debugging information (in contrast to .Fl d ) . .It Fl d Run in debug mode. Do not become a daemon process, and print debugging information. More .Fl d s give more detailed debugging information. .It Fl f Use filesystem idle time as the criterion for aggressive cleaning, instead of system load. .It Fl i Ar segment-number Invalidate the segment with segment number .Ar segment-number . This option is used by .Xr resize_lfs 8 , and should not be specified on the command line. .It Fl J Ar raw device Specify the raw device that the cleaner is to work against rather than trying to figure it out from the mount point. This is mostly useful when the cleaner is compiled into .Xr rump_lfs 8 and the ATF test framework. .It Fl l Ar load-threshold Clean more aggressively when the system load is below the given threshold. The default threshold is 0.2. .It Fl m Does nothing. This option is present for historical compatibility. .It Fl n Ar number-of-segments Clean this number of segments at a time: that is, pass this many segments' blocks through a single call to lfs_markv, or, if .Fl b was also given, pass this many segments' worth of blocks through a single call to lfs_markv. .It Fl q Quit after cleaning once. .It Fl r Ar report-frequency Give an efficiency report after every .Ar report-frequency times through the main loop. .It Fl S Ar semaphore address When the cleaner code is compiled into .Xr rump_lfs 8 and the ATF frame work, this option allows for a synchronization semaphore to be specified. This option is not available in the stand-alone .Nm . .It Fl s When cleaning the file system, send only a few blocks through lfs_markv at a time. Don't use this option. .It Fl t Ar timeout Poll the filesystem every .Ar timeout seconds, looking for opportunities to clean. The default is 300, that is, five minutes. Note that .Nm will be automatically awakened when the filesystem is active, so it is not usually necessary to set .Ar timeout to a low value. .El .Sh SEE ALSO .Xr lfs_bmapv 2 , .Xr lfs_markv 2 , .Xr lfs_segwait 2 , .Xr mount_lfs 8 , .Xr rump_lfs 8 .Sh HISTORY The .Nm utility first appeared in .Bx 4.4 . src/libexec/lfs_cleanerd/lfs_cleanerd.c010064400011300000175000001333511353233146300204270ustar00srcmastrnetbsd/* $NetBSD: lfs_cleanerd.c,v 1.60 2019/08/30 23:37:23 brad Exp $ */ /*- * Copyright (c) 2005 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Konrad E. Schroder . * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ /* * The cleaner daemon for the NetBSD Log-structured File System. * Only tested for use with version 2 LFSs. */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "bufcache.h" #include "vnode.h" #include "lfs_user.h" #include "fdfs.h" #include "cleaner.h" #include "kernelops.h" #include "mount_lfs.h" /* * Global variables. */ /* XXX these top few should really be fs-specific */ int use_fs_idle; /* Use fs idle rather than cpu idle time */ int use_bytes; /* Use bytes written rather than segments cleaned */ double load_threshold; /* How idle is idle (CPU idle) */ int atatime; /* How many segments (bytes) to clean at a time */ int nfss; /* Number of filesystems monitored by this cleanerd */ struct clfs **fsp; /* Array of extended filesystem structures */ int segwait_timeout; /* Time to wait in lfs_segwait() */ int do_quit; /* Quit after one cleaning loop */ int do_coalesce; /* Coalesce filesystem */ int do_small; /* Use small writes through markv */ char *do_asdevice; /* Use this as the raw device */ char *copylog_filename; /* File to use for fs debugging analysis */ int inval_segment; /* Segment to invalidate */ int stat_report; /* Report statistics for this period of cycles */ int debug; /* Turn on debugging */ struct cleaner_stats { double util_tot; double util_sos; off_t bytes_read; off_t bytes_written; off_t segs_cleaned; off_t segs_empty; off_t segs_error; } cleaner_stats; extern u_int32_t cksum(void *, size_t); extern u_int32_t lfs_sb_cksum(struct dlfs *); extern u_int32_t lfs_cksum_part(void *, size_t, u_int32_t); extern int ulfs_getlbns(struct lfs *, struct uvnode *, daddr_t, struct indir *, int *); /* Ugh */ #define FSMNT_SIZE MAX(sizeof(((struct dlfs *)0)->dlfs_fsmnt), \ sizeof(((struct dlfs64 *)0)->dlfs_fsmnt)) /* Compat */ void pwarn(const char *unused, ...) { /* Does nothing */ }; /* * Log a message if debugging is turned on. */ void dlog(const char *fmt, ...) { va_list ap; if (debug == 0) return; va_start(ap, fmt); vsyslog(LOG_DEBUG, fmt, ap); va_end(ap); } /* * Remove the specified filesystem from the list, due to its having * become unmounted or other error condition. */ void handle_error(struct clfs **cfsp, int n) { syslog(LOG_NOTICE, "%s: detaching cleaner", lfs_sb_getfsmnt(cfsp[n])); free(cfsp[n]); if (n != nfss - 1) cfsp[n] = cfsp[nfss - 1]; --nfss; } /* * Reinitialize a filesystem if, e.g., its size changed. */ int reinit_fs(struct clfs *fs) { char fsname[FSMNT_SIZE]; memcpy(fsname, lfs_sb_getfsmnt(fs), sizeof(fsname)); fsname[sizeof(fsname) - 1] = '\0'; kops.ko_close(fs->clfs_ifilefd); kops.ko_close(fs->clfs_devfd); fd_reclaim(fs->clfs_devvp); fd_reclaim(fs->lfs_ivnode); free(fs->clfs_dev); free(fs->clfs_segtab); free(fs->clfs_segtabp); return init_fs(fs, fsname); } #ifdef REPAIR_ZERO_FINFO /* * Use fsck's lfs routines to load the Ifile from an unmounted fs. * We interpret "fsname" as the name of the raw disk device. */ int init_unmounted_fs(struct clfs *fs, char *fsname) { struct lfs *disc_fs; int i; fs->clfs_dev = fsname; if ((fs->clfs_devfd = kops.ko_open(fs->clfs_dev, O_RDWR)) < 0) { syslog(LOG_ERR, "couldn't open device %s read/write", fs->clfs_dev); return -1; } disc_fs = lfs_init(fs->clfs_devfd, 0, 0, 0, 0); fs->lfs_dlfs = disc_fs->lfs_dlfs; /* Structure copy */ strncpy(fs->lfs_fsmnt, fsname, MNAMELEN); fs->lfs_ivnode = (struct uvnode *)disc_fs->lfs_ivnode; fs->clfs_devvp = fd_vget(fs->clfs_devfd, fs->lfs_fsize, fs->lfs_ssize, atatime); /* Allocate and clear segtab */ fs->clfs_segtab = (struct clfs_seguse *)malloc(lfs_sb_getnseg(fs) * sizeof(*fs->clfs_segtab)); fs->clfs_segtabp = (struct clfs_seguse **)malloc(lfs_sb_getnseg(fs) * sizeof(*fs->clfs_segtabp)); for (i = 0; i < lfs_sb_getnseg(fs); i++) { fs->clfs_segtabp[i] = &(fs->clfs_segtab[i]); fs->clfs_segtab[i].flags = 0x0; } syslog(LOG_NOTICE, "%s: unmounted cleaner starting", fsname); return 0; } #endif /* * Set up the file descriptors, including the Ifile descriptor. * If we can't get the Ifile, this is not an LFS (or the kernel is * too old to support the fcntl). * XXX Merge this and init_unmounted_fs, switching on whether * XXX "fsname" is a dir or a char special device. Should * XXX also be able to read unmounted devices out of fstab, the way * XXX fsck does. */ int init_fs(struct clfs *fs, char *fsname) { char mnttmp[FSMNT_SIZE]; struct statvfs sf; int rootfd; int i; void *sbuf; size_t mlen; if (do_asdevice != NULL) { fs->clfs_dev = strndup(do_asdevice,strlen(do_asdevice) + 2); if (fs->clfs_dev == NULL) { syslog(LOG_ERR, "couldn't malloc device name string: %m"); return -1; } } else { /* * Get the raw device from the block device. * XXX this is ugly. Is there a way to discover the raw device * XXX for a given mount point? */ if (kops.ko_statvfs(fsname, &sf, ST_WAIT) < 0) return -1; mlen = strlen(sf.f_mntfromname) + 2; fs->clfs_dev = malloc(mlen); if (fs->clfs_dev == NULL) { syslog(LOG_ERR, "couldn't malloc device name string: %m"); return -1; } if (getdiskrawname(fs->clfs_dev, mlen, sf.f_mntfromname) == NULL) { syslog(LOG_ERR, "couldn't convert '%s' to raw name: %m", sf.f_mntfromname); return -1; } } if ((fs->clfs_devfd = kops.ko_open(fs->clfs_dev, O_RDONLY, 0)) < 0) { syslog(LOG_ERR, "couldn't open device %s for reading: %m", fs->clfs_dev); return -1; } /* Find the Ifile and open it */ if ((rootfd = kops.ko_open(fsname, O_RDONLY, 0)) < 0) return -2; if (kops.ko_fcntl(rootfd, LFCNIFILEFH, &fs->clfs_ifilefh) < 0) return -3; if ((fs->clfs_ifilefd = kops.ko_fhopen(&fs->clfs_ifilefh, sizeof(fs->clfs_ifilefh), O_RDONLY)) < 0) return -4; kops.ko_close(rootfd); sbuf = malloc(LFS_SBPAD); if (sbuf == NULL) { syslog(LOG_ERR, "couldn't malloc superblock buffer"); return -1; } /* Load in the superblock */ if (kops.ko_pread(fs->clfs_devfd, sbuf, LFS_SBPAD, LFS_LABELPAD) < 0) { free(sbuf); return -1; } __CTASSERT(sizeof(struct dlfs) == sizeof(struct dlfs64)); memcpy(&fs->lfs_dlfs_u, sbuf, sizeof(struct dlfs)); free(sbuf); /* If it is not LFS, complain and exit! */ switch (fs->lfs_dlfs_u.u_32.dlfs_magic) { case LFS_MAGIC: fs->lfs_is64 = false; fs->lfs_dobyteswap = false; break; case LFS_MAGIC_SWAPPED: fs->lfs_is64 = false; fs->lfs_dobyteswap = true; break; case LFS64_MAGIC: fs->lfs_is64 = true; fs->lfs_dobyteswap = false; break; case LFS64_MAGIC_SWAPPED: fs->lfs_is64 = true; fs->lfs_dobyteswap = true; break; default: syslog(LOG_ERR, "%s: not LFS", fsname); return -1; } /* XXX: can this ever need to be set? does the cleaner even care? */ fs->lfs_hasolddirfmt = 0; /* If this is not a version 2 filesystem, complain and exit */ if (lfs_sb_getversion(fs) != 2) { syslog(LOG_ERR, "%s: not a version 2 LFS", fsname); return -1; } /* Assume fsname is the mounted name */ strncpy(mnttmp, fsname, sizeof(mnttmp)); mnttmp[sizeof(mnttmp) - 1] = '\0'; lfs_sb_setfsmnt(fs, mnttmp); /* Set up vnodes for Ifile and raw device */ fs->lfs_ivnode = fd_vget(fs->clfs_ifilefd, lfs_sb_getbsize(fs), 0, 0); fs->clfs_devvp = fd_vget(fs->clfs_devfd, lfs_sb_getfsize(fs), lfs_sb_getssize(fs), atatime); /* Allocate and clear segtab */ fs->clfs_segtab = (struct clfs_seguse *)malloc(lfs_sb_getnseg(fs) * sizeof(*fs->clfs_segtab)); fs->clfs_segtabp = (struct clfs_seguse **)malloc(lfs_sb_getnseg(fs) * sizeof(*fs->clfs_segtabp)); if (fs->clfs_segtab == NULL || fs->clfs_segtabp == NULL) { syslog(LOG_ERR, "%s: couldn't malloc segment table: %m", fs->clfs_dev); return -1; } for (i = 0; i < lfs_sb_getnseg(fs); i++) { fs->clfs_segtabp[i] = &(fs->clfs_segtab[i]); fs->clfs_segtab[i].flags = 0x0; } syslog(LOG_NOTICE, "%s: attaching cleaner", fsname); return 0; } /* * Invalidate all the currently held Ifile blocks so they will be * reread when we clean. Check the size while we're at it, and * resize the buffer cache if necessary. */ void reload_ifile(struct clfs *fs) { struct ubuf *bp; struct stat st; int ohashmax; extern int hashmax; while ((bp = LIST_FIRST(&fs->lfs_ivnode->v_dirtyblkhd)) != NULL) { bremfree(bp); buf_destroy(bp); } while ((bp = LIST_FIRST(&fs->lfs_ivnode->v_cleanblkhd)) != NULL) { bremfree(bp); buf_destroy(bp); } /* If Ifile is larger than buffer cache, rehash */ fstat(fs->clfs_ifilefd, &st); if (st.st_size / lfs_sb_getbsize(fs) > hashmax) { ohashmax = hashmax; bufrehash(st.st_size / lfs_sb_getbsize(fs)); dlog("%s: resized buffer hash from %d to %d", lfs_sb_getfsmnt(fs), ohashmax, hashmax); } } /* * Get IFILE entry for the given inode, store in ifpp. The buffer * which contains that data is returned in bpp, and must be brelse()d * by the caller. * * XXX this is cutpaste of LFS_IENTRY from lfs.h; unify the two. */ void lfs_ientry(IFILE **ifpp, struct clfs *fs, ino_t ino, struct ubuf **bpp) { IFILE64 *ifp64; IFILE32 *ifp32; IFILE_V1 *ifp_v1; int error; error = bread(fs->lfs_ivnode, ino / lfs_sb_getifpb(fs) + lfs_sb_getcleansz(fs) + lfs_sb_getsegtabsz(fs), lfs_sb_getbsize(fs), 0, bpp); if (error) syslog(LOG_ERR, "%s: ientry failed for ino %d", lfs_sb_getfsmnt(fs), (int)ino); if (fs->lfs_is64) { ifp64 = (IFILE64 *)(*bpp)->b_data; ifp64 += ino % lfs_sb_getifpb(fs); *ifpp = (IFILE *)ifp64; } else if (lfs_sb_getversion(fs) > 1) { ifp32 = (IFILE32 *)(*bpp)->b_data; ifp32 += ino % lfs_sb_getifpb(fs); *ifpp = (IFILE *)ifp32; } else { ifp_v1 = (IFILE_V1 *)(*bpp)->b_data; ifp_v1 += ino % lfs_sb_getifpb(fs); *ifpp = (IFILE *)ifp_v1; } return; } #ifdef TEST_PATTERN /* * Check ULFS_ROOTINO for file data. The assumption is that we are running * the "twofiles" test with the rest of the filesystem empty. Files * created by "twofiles" match the test pattern, but ULFS_ROOTINO and the * executable itself (assumed to be inode 3) should not match. */ static void check_test_pattern(BLOCK_INFO *bip) { int j; unsigned char *cp = bip->bi_bp; /* Check inode sanity */ if (bip->bi_lbn == LFS_UNUSED_LBN) { assert(((struct ulfs1_dinode *)bip->bi_bp)->di_inumber == bip->bi_inode); } /* These can have the test pattern and it's all good */ if (bip->bi_inode > 3) return; for (j = 0; j < bip->bi_size; j++) { if (cp[j] != (j & 0xff)) break; } assert(j < bip->bi_size); } #endif /* TEST_PATTERN */ /* * Parse the partial segment at daddr, adding its information to * bip. Return the address of the next partial segment to read. */ static daddr_t parse_pseg(struct clfs *fs, daddr_t daddr, BLOCK_INFO **bipp, int *bic) { SEGSUM *ssp; IFILE *ifp; BLOCK_INFO *bip, *nbip; daddr_t idaddr, odaddr; FINFO *fip; IINFO *iip; struct ubuf *ifbp; union lfs_dinode *dip; u_int32_t ck, vers; int fic, inoc, obic; size_t sumstart; int i; char *cp; odaddr = daddr; obic = *bic; bip = *bipp; /* * Retrieve the segment header, set up the SEGSUM pointer * as well as the first FINFO and inode address pointer. */ cp = fd_ptrget(fs->clfs_devvp, daddr); ssp = (SEGSUM *)cp; iip = SEGSUM_IINFOSTART(fs, cp); fip = SEGSUM_FINFOBASE(fs, cp); /* * Check segment header magic and checksum */ if (lfs_ss_getmagic(fs, ssp) != SS_MAGIC) { syslog(LOG_WARNING, "%s: sumsum magic number bad at 0x%jx:" " read 0x%x, expected 0x%x", lfs_sb_getfsmnt(fs), (intmax_t)daddr, lfs_ss_getmagic(fs, ssp), SS_MAGIC); return 0x0; } sumstart = lfs_ss_getsumstart(fs); ck = cksum((char *)ssp + sumstart, lfs_sb_getsumsize(fs) - sumstart); if (ck != lfs_ss_getsumsum(fs, ssp)) { syslog(LOG_WARNING, "%s: sumsum checksum mismatch at 0x%jx:" " read 0x%x, computed 0x%x", lfs_sb_getfsmnt(fs), (intmax_t)daddr, lfs_ss_getsumsum(fs, ssp), ck); return 0x0; } /* Initialize data sum */ ck = 0; /* Point daddr at next block after segment summary */ ++daddr; /* * Loop over file info and inode pointers. We always move daddr * forward here because we are also computing the data checksum * as we go. */ fic = inoc = 0; while (fic < lfs_ss_getnfinfo(fs, ssp) || inoc < lfs_ss_getninos(fs, ssp)) { /* * We must have either a file block or an inode block. * If we don't have either one, it's an error. */ if (fic >= lfs_ss_getnfinfo(fs, ssp) && lfs_ii_getblock(fs, iip) != daddr) { syslog(LOG_WARNING, "%s: bad pseg at %jx (seg %d)", lfs_sb_getfsmnt(fs), (intmax_t)odaddr, lfs_dtosn(fs, odaddr)); *bipp = bip; return 0x0; } /* * Note each inode from the inode blocks */ if (inoc < lfs_ss_getninos(fs, ssp) && lfs_ii_getblock(fs, iip) == daddr) { cp = fd_ptrget(fs->clfs_devvp, daddr); ck = lfs_cksum_part(cp, sizeof(u_int32_t), ck); for (i = 0; i < lfs_sb_getinopb(fs); i++) { dip = DINO_IN_BLOCK(fs, cp, i); if (lfs_dino_getinumber(fs, dip) == 0) break; /* * Check currency before adding it */ #ifndef REPAIR_ZERO_FINFO lfs_ientry(&ifp, fs, lfs_dino_getinumber(fs, dip), &ifbp); idaddr = lfs_if_getdaddr(fs, ifp); brelse(ifbp, 0); if (idaddr != daddr) #endif continue; /* * A current inode. Add it. */ ++*bic; nbip = (BLOCK_INFO *)realloc(bip, *bic * sizeof(*bip)); if (nbip) bip = nbip; else { --*bic; *bipp = bip; return 0x0; } bip[*bic - 1].bi_inode = lfs_dino_getinumber(fs, dip); bip[*bic - 1].bi_lbn = LFS_UNUSED_LBN; bip[*bic - 1].bi_daddr = daddr; bip[*bic - 1].bi_segcreate = lfs_ss_getcreate(fs, ssp); bip[*bic - 1].bi_version = lfs_dino_getgen(fs, dip); bip[*bic - 1].bi_bp = dip; bip[*bic - 1].bi_size = DINOSIZE(fs); } inoc += i; daddr += lfs_btofsb(fs, lfs_sb_getibsize(fs)); iip = NEXTLOWER_IINFO(fs, iip); continue; } /* * Note each file block from the finfo blocks */ if (fic >= lfs_ss_getnfinfo(fs, ssp)) continue; /* Count this finfo, whether or not we use it */ ++fic; /* * If this finfo has nblocks==0, it was written wrong. * Kernels with this problem always wrote this zero-sized * finfo last, so just ignore it. */ if (lfs_fi_getnblocks(fs, fip) == 0) { #ifdef REPAIR_ZERO_FINFO struct ubuf *nbp; SEGSUM *nssp; syslog(LOG_WARNING, "fixing short FINFO at %jx (seg %d)", (intmax_t)odaddr, lfs_dtosn(fs, odaddr)); bread(fs->clfs_devvp, odaddr, lfs_sb_getfsize(fs), 0, &nbp); nssp = (SEGSUM *)nbp->b_data; --nssp->ss_nfinfo; nssp->ss_sumsum = cksum(&nssp->ss_datasum, lfs_sb_getsumsize(fs) - sizeof(nssp->ss_sumsum)); bwrite(nbp); #endif syslog(LOG_WARNING, "zero-length FINFO at %jx (seg %d)", (intmax_t)odaddr, lfs_dtosn(fs, odaddr)); continue; } /* * Check currency before adding blocks */ #ifdef REPAIR_ZERO_FINFO vers = -1; #else lfs_ientry(&ifp, fs, lfs_fi_getino(fs, fip), &ifbp); vers = lfs_if_getversion(fs, ifp); brelse(ifbp, 0); #endif if (vers != lfs_fi_getversion(fs, fip)) { size_t size; /* Read all the blocks from the data summary */ for (i = 0; i < lfs_fi_getnblocks(fs, fip); i++) { size = (i == lfs_fi_getnblocks(fs, fip) - 1) ? lfs_fi_getlastlength(fs, fip) : lfs_sb_getbsize(fs); cp = fd_ptrget(fs->clfs_devvp, daddr); ck = lfs_cksum_part(cp, sizeof(u_int32_t), ck); daddr += lfs_btofsb(fs, size); } fip = NEXT_FINFO(fs, fip); continue; } /* Add all the blocks from the finfos (current or not) */ nbip = (BLOCK_INFO *)realloc(bip, (*bic + lfs_fi_getnblocks(fs, fip)) * sizeof(*bip)); if (nbip) bip = nbip; else { *bipp = bip; return 0x0; } for (i = 0; i < lfs_fi_getnblocks(fs, fip); i++) { bip[*bic + i].bi_inode = lfs_fi_getino(fs, fip); bip[*bic + i].bi_lbn = lfs_fi_getblock(fs, fip, i); bip[*bic + i].bi_daddr = daddr; bip[*bic + i].bi_segcreate = lfs_ss_getcreate(fs, ssp); bip[*bic + i].bi_version = lfs_fi_getversion(fs, fip); bip[*bic + i].bi_size = (i == lfs_fi_getnblocks(fs, fip) - 1) ? lfs_fi_getlastlength(fs, fip) : lfs_sb_getbsize(fs); cp = fd_ptrget(fs->clfs_devvp, daddr); ck = lfs_cksum_part(cp, sizeof(u_int32_t), ck); bip[*bic + i].bi_bp = cp; daddr += lfs_btofsb(fs, bip[*bic + i].bi_size); #ifdef TEST_PATTERN check_test_pattern(bip + *bic + i); /* XXXDEBUG */ #endif } *bic += lfs_fi_getnblocks(fs, fip); fip = NEXT_FINFO(fs, fip); } #ifndef REPAIR_ZERO_FINFO if (lfs_ss_getdatasum(fs, ssp) != ck) { syslog(LOG_WARNING, "%s: data checksum bad at 0x%jx:" " read 0x%x, computed 0x%x", lfs_sb_getfsmnt(fs), (intmax_t)odaddr, lfs_ss_getdatasum(fs, ssp), ck); *bic = obic; return 0x0; } #endif *bipp = bip; return daddr; } static void log_segment_read(struct clfs *fs, int sn) { FILE *fp; char *cp; /* * Write the segment read, and its contents, into a log file in * the current directory. We don't need to log the location of * the segment, since that can be inferred from the segments up * to this point (ss_nextseg field of the previously written segment). * * We can use this info later to reconstruct the filesystem at any * given point in time for analysis, by replaying the log forward * indexed by the segment serial numbers; but it is not suitable * for everyday use since the copylog will be simply enormous. */ cp = fd_ptrget(fs->clfs_devvp, lfs_sntod(fs, sn)); fp = fopen(copylog_filename, "ab"); if (fp != NULL) { if (fwrite(cp, (size_t)lfs_sb_getssize(fs), 1, fp) != 1) { perror("writing segment to copy log"); } } fclose(fp); } /* * Read a segment to populate the BLOCK_INFO structures. * Return the number of partial segments read and parsed. */ int load_segment(struct clfs *fs, int sn, BLOCK_INFO **bipp, int *bic) { daddr_t daddr; int i, npseg; daddr = lfs_sntod(fs, sn); if (daddr < lfs_btofsb(fs, LFS_LABELPAD)) daddr = lfs_btofsb(fs, LFS_LABELPAD); for (i = 0; i < LFS_MAXNUMSB; i++) { if (lfs_sb_getsboff(fs, i) == daddr) { daddr += lfs_btofsb(fs, LFS_SBPAD); break; } } /* Preload the segment buffer */ if (fd_preload(fs->clfs_devvp, lfs_sntod(fs, sn)) < 0) return -1; if (copylog_filename) log_segment_read(fs, sn); /* Note bytes read for stats */ cleaner_stats.segs_cleaned++; cleaner_stats.bytes_read += lfs_sb_getssize(fs); ++fs->clfs_nactive; npseg = 0; while(lfs_dtosn(fs, daddr) == sn && lfs_dtosn(fs, daddr + lfs_btofsb(fs, lfs_sb_getbsize(fs))) == sn) { daddr = parse_pseg(fs, daddr, bipp, bic); if (daddr == 0x0) { ++cleaner_stats.segs_error; break; } ++npseg; } return npseg; } void calc_cb(struct clfs *fs, int sn, struct clfs_seguse *t) { time_t now; int64_t age, benefit, cost; time(&now); age = (now < t->lastmod ? 0 : now - t->lastmod); /* Under no circumstances clean active or already-clean segments */ if ((t->flags & SEGUSE_ACTIVE) || !(t->flags & SEGUSE_DIRTY)) { t->priority = 0; return; } /* * If the segment is empty, there is no reason to clean it. * Clear its error condition, if any, since we are never going to * try to parse this one. */ if (t->nbytes == 0) { t->flags &= ~SEGUSE_ERROR; /* Strip error once empty */ t->priority = 0; return; } if (t->flags & SEGUSE_ERROR) { /* No good if not already empty */ /* No benefit */ t->priority = 0; return; } if (t->nbytes > lfs_sb_getssize(fs)) { /* Another type of error */ syslog(LOG_WARNING, "segment %d: bad seguse count %d", sn, t->nbytes); t->flags |= SEGUSE_ERROR; t->priority = 0; return; } /* * The non-degenerate case. Use Rosenblum's cost-benefit algorithm. * Calculate the benefit from cleaning this segment (one segment, * minus fragmentation, dirty blocks and a segment summary block) * and weigh that against the cost (bytes read plus bytes written). * We count the summary headers as "dirty" to avoid cleaning very * old and very full segments. */ benefit = (int64_t)lfs_sb_getssize(fs) - t->nbytes - (t->nsums + 1) * lfs_sb_getfsize(fs); if (lfs_sb_getbsize(fs) > lfs_sb_getfsize(fs)) /* fragmentation */ benefit -= (lfs_sb_getbsize(fs) / 2); if (benefit <= 0) { t->priority = 0; return; } cost = lfs_sb_getssize(fs) + t->nbytes; t->priority = (256 * benefit * age) / cost; return; } /* * Comparator for BLOCK_INFO structures. Anything not in one of the segments * we're looking at sorts higher; after that we sort first by inode number * and then by block number (unsigned, i.e., negative sorts higher) *but* * sort inodes before data blocks. */ static int bi_comparator(const void *va, const void *vb) { const BLOCK_INFO *a, *b; a = (const BLOCK_INFO *)va; b = (const BLOCK_INFO *)vb; /* Check for out-of-place block */ if (a->bi_segcreate == a->bi_daddr && b->bi_segcreate != b->bi_daddr) return -1; if (a->bi_segcreate != a->bi_daddr && b->bi_segcreate == b->bi_daddr) return 1; if (a->bi_size <= 0 && b->bi_size > 0) return 1; if (b->bi_size <= 0 && a->bi_size > 0) return -1; /* Check inode number */ if (a->bi_inode != b->bi_inode) return a->bi_inode - b->bi_inode; /* Check lbn */ if (a->bi_lbn == LFS_UNUSED_LBN) /* Inodes sort lower than blocks */ return -1; if (b->bi_lbn == LFS_UNUSED_LBN) return 1; if ((u_int64_t)a->bi_lbn > (u_int64_t)b->bi_lbn) return 1; else return -1; return 0; } /* * Comparator for sort_segments: cost-benefit equation. */ static int cb_comparator(const void *va, const void *vb) { const struct clfs_seguse *a, *b; a = *(const struct clfs_seguse * const *)va; b = *(const struct clfs_seguse * const *)vb; return a->priority > b->priority ? -1 : 1; } void toss_old_blocks(struct clfs *fs, BLOCK_INFO **bipp, blkcnt_t *bic, int *sizep) { blkcnt_t i; int r; BLOCK_INFO *bip = *bipp; struct lfs_fcntl_markv /* { BLOCK_INFO *blkiov; int blkcnt; } */ lim; if (bic == 0 || bip == NULL) return; /* * Kludge: Store the disk address in segcreate so we know which * ones to toss. */ for (i = 0; i < *bic; i++) bip[i].bi_segcreate = bip[i].bi_daddr; /* * XXX: blkcnt_t is 64 bits, so *bic might overflow size_t * (the argument type of heapsort's number argument) on a * 32-bit platform. However, if so we won't have got this far * because we'll have failed trying to allocate the array. So * while *bic here might cause a 64->32 truncation, it's safe. */ /* Sort the blocks */ heapsort(bip, *bic, sizeof(BLOCK_INFO), bi_comparator); /* Use bmapv to locate the blocks */ lim.blkiov = bip; lim.blkcnt = *bic; if ((r = kops.ko_fcntl(fs->clfs_ifilefd, LFCNBMAPV, &lim)) < 0) { syslog(LOG_WARNING, "%s: bmapv returned %d (%m)", lfs_sb_getfsmnt(fs), r); return; } /* Toss blocks not in this segment */ heapsort(bip, *bic, sizeof(BLOCK_INFO), bi_comparator); /* Get rid of stale blocks */ if (sizep) *sizep = 0; for (i = 0; i < *bic; i++) { if (bip[i].bi_segcreate != bip[i].bi_daddr) break; if (sizep) *sizep += bip[i].bi_size; } *bic = i; /* XXX should we shrink bip? */ *bipp = bip; return; } /* * Clean a segment and mark it invalid. */ int invalidate_segment(struct clfs *fs, int sn) { BLOCK_INFO *bip; int i, r, bic; blkcnt_t widebic; off_t nb; double util; struct lfs_fcntl_markv /* { BLOCK_INFO *blkiov; int blkcnt; } */ lim; dlog("%s: inval seg %d", lfs_sb_getfsmnt(fs), sn); bip = NULL; bic = 0; fs->clfs_nactive = 0; if (load_segment(fs, sn, &bip, &bic) <= 0) return -1; widebic = bic; toss_old_blocks(fs, &bip, &widebic, NULL); bic = widebic; /* Record statistics */ for (i = nb = 0; i < bic; i++) nb += bip[i].bi_size; util = ((double)nb) / (fs->clfs_nactive * lfs_sb_getssize(fs)); cleaner_stats.util_tot += util; cleaner_stats.util_sos += util * util; cleaner_stats.bytes_written += nb; /* * Use markv to move the blocks. */ lim.blkiov = bip; lim.blkcnt = bic; if ((r = kops.ko_fcntl(fs->clfs_ifilefd, LFCNMARKV, &lim)) < 0) { syslog(LOG_WARNING, "%s: markv returned %d (%m) " "for seg %d", lfs_sb_getfsmnt(fs), r, sn); return r; } /* * Finally call invalidate to invalidate the segment. */ if ((r = kops.ko_fcntl(fs->clfs_ifilefd, LFCNINVAL, &sn)) < 0) { syslog(LOG_WARNING, "%s: inval returned %d (%m) " "for seg %d", lfs_sb_getfsmnt(fs), r, sn); return r; } return 0; } /* * Check to see if the given ino/lbn pair is represented in the BLOCK_INFO * array we are sending to the kernel, or if the kernel will have to add it. * The kernel will only add each such pair once, though, so keep track of * previous requests in a separate "extra" BLOCK_INFO array. Returns 1 * if the block needs to be added, 0 if it is already represented. */ static int check_or_add(ino_t ino, daddr_t lbn, BLOCK_INFO *bip, int bic, BLOCK_INFO **ebipp, int *ebicp) { BLOCK_INFO *t, *ebip = *ebipp; int ebic = *ebicp; int k; for (k = 0; k < bic; k++) { if (bip[k].bi_inode != ino) break; if (bip[k].bi_lbn == lbn) { return 0; } } /* Look on the list of extra blocks, too */ for (k = 0; k < ebic; k++) { if (ebip[k].bi_inode == ino && ebip[k].bi_lbn == lbn) { return 0; } } ++ebic; t = realloc(ebip, ebic * sizeof(BLOCK_INFO)); if (t == NULL) return 1; /* Note *ebicp is unchanged */ ebip = t; ebip[ebic - 1].bi_inode = ino; ebip[ebic - 1].bi_lbn = lbn; *ebipp = ebip; *ebicp = ebic; return 1; } /* * Look for indirect blocks we will have to write which are not * contained in this collection of blocks. This constitutes * a hidden cleaning cost, since we are unaware of it until we * have already read the segments. Return the total cost, and fill * in *ifc with the part of that cost due to rewriting the Ifile. */ static off_t check_hidden_cost(struct clfs *fs, BLOCK_INFO *bip, int bic, off_t *ifc) { int start; struct indir in[ULFS_NIADDR + 1]; int num; int i, j, ebic; BLOCK_INFO *ebip; daddr_t lbn; start = 0; ebip = NULL; ebic = 0; for (i = 0; i < bic; i++) { if (i == 0 || bip[i].bi_inode != bip[start].bi_inode) { start = i; /* * Look for IFILE blocks, unless this is the Ifile. */ if (bip[i].bi_inode != LFS_IFILE_INUM) { lbn = lfs_sb_getcleansz(fs) + bip[i].bi_inode / lfs_sb_getifpb(fs); *ifc += check_or_add(LFS_IFILE_INUM, lbn, bip, bic, &ebip, &ebic); } } if (bip[i].bi_lbn == LFS_UNUSED_LBN) continue; if (bip[i].bi_lbn < ULFS_NDADDR) continue; /* XXX the struct lfs cast is completely wrong/unsafe */ ulfs_getlbns((struct lfs *)fs, NULL, (daddr_t)bip[i].bi_lbn, in, &num); for (j = 0; j < num; j++) { check_or_add(bip[i].bi_inode, in[j].in_lbn, bip + start, bic - start, &ebip, &ebic); } } return ebic; } /* * Select segments to clean, add blocks from these segments to a cleaning * list, and send this list through lfs_markv() to move them to new * locations on disk. */ static int clean_fs(struct clfs *fs, const CLEANERINFO64 *cip) { int i, j, ngood, sn, bic, r, npos; blkcnt_t widebic; int bytes, totbytes; struct ubuf *bp; SEGUSE *sup; static BLOCK_INFO *bip; struct lfs_fcntl_markv /* { BLOCK_INFO *blkiov; int blkcnt; } */ lim; int mc; BLOCK_INFO *mbip; int inc; off_t nb; off_t goal; off_t extra, if_extra; double util; /* Read the segment table into our private structure */ npos = 0; for (i = 0; i < lfs_sb_getnseg(fs); i+= lfs_sb_getsepb(fs)) { bread(fs->lfs_ivnode, lfs_sb_getcleansz(fs) + i / lfs_sb_getsepb(fs), lfs_sb_getbsize(fs), 0, &bp); for (j = 0; j < lfs_sb_getsepb(fs) && i + j < lfs_sb_getnseg(fs); j++) { sup = ((SEGUSE *)bp->b_data) + j; fs->clfs_segtab[i + j].nbytes = sup->su_nbytes; fs->clfs_segtab[i + j].nsums = sup->su_nsums; fs->clfs_segtab[i + j].lastmod = sup->su_lastmod; /* Keep error status but renew other flags */ fs->clfs_segtab[i + j].flags &= SEGUSE_ERROR; fs->clfs_segtab[i + j].flags |= sup->su_flags; /* Compute cost-benefit coefficient */ calc_cb(fs, i + j, fs->clfs_segtab + i + j); if (fs->clfs_segtab[i + j].priority > 0) ++npos; } brelse(bp, 0); } /* Sort segments based on cleanliness, fulness, and condition */ heapsort(fs->clfs_segtabp, lfs_sb_getnseg(fs), sizeof(struct clfs_seguse *), cb_comparator); /* If no segment is cleanable, just return */ if (fs->clfs_segtabp[0]->priority == 0) { dlog("%s: no segment cleanable", lfs_sb_getfsmnt(fs)); return 0; } /* Load some segments' blocks into bip */ bic = 0; fs->clfs_nactive = 0; ngood = 0; if (use_bytes) { /* Set attainable goal */ goal = lfs_sb_getssize(fs) * atatime; if (goal > (cip->clean - 1) * lfs_sb_getssize(fs) / 2) goal = MAX((cip->clean - 1) * lfs_sb_getssize(fs), lfs_sb_getssize(fs)) / 2; dlog("%s: cleaning with goal %" PRId64 " bytes (%d segs clean, %d cleanable)", lfs_sb_getfsmnt(fs), goal, cip->clean, npos); syslog(LOG_INFO, "%s: cleaning with goal %" PRId64 " bytes (%d segs clean, %d cleanable)", lfs_sb_getfsmnt(fs), goal, cip->clean, npos); totbytes = 0; for (i = 0; i < lfs_sb_getnseg(fs) && totbytes < goal; i++) { if (fs->clfs_segtabp[i]->priority == 0) break; /* Upper bound on number of segments at once */ if (ngood * lfs_sb_getssize(fs) > 4 * goal) break; sn = (fs->clfs_segtabp[i] - fs->clfs_segtab); dlog("%s: add seg %d prio %" PRIu64 " containing %ld bytes", lfs_sb_getfsmnt(fs), sn, fs->clfs_segtabp[i]->priority, fs->clfs_segtabp[i]->nbytes); if ((r = load_segment(fs, sn, &bip, &bic)) > 0) { ++ngood; widebic = bic; toss_old_blocks(fs, &bip, &widebic, &bytes); bic = widebic; totbytes += bytes; } else if (r == 0) fd_release(fs->clfs_devvp); else break; } } else { /* Set attainable goal */ goal = atatime; if (goal > cip->clean - 1) goal = MAX(cip->clean - 1, 1); dlog("%s: cleaning with goal %d segments (%d clean, %d cleanable)", lfs_sb_getfsmnt(fs), (int)goal, cip->clean, npos); for (i = 0; i < lfs_sb_getnseg(fs) && ngood < goal; i++) { if (fs->clfs_segtabp[i]->priority == 0) break; sn = (fs->clfs_segtabp[i] - fs->clfs_segtab); dlog("%s: add seg %d prio %" PRIu64, lfs_sb_getfsmnt(fs), sn, fs->clfs_segtabp[i]->priority); if ((r = load_segment(fs, sn, &bip, &bic)) > 0) ++ngood; else if (r == 0) fd_release(fs->clfs_devvp); else break; } widebic = bic; toss_old_blocks(fs, &bip, &widebic, NULL); bic = widebic; } /* If there is nothing to do, try again later. */ if (bic == 0) { dlog("%s: no blocks to clean in %d cleanable segments", lfs_sb_getfsmnt(fs), (int)ngood); fd_release_all(fs->clfs_devvp); return 0; } /* Record statistics */ for (i = nb = 0; i < bic; i++) nb += bip[i].bi_size; util = ((double)nb) / (fs->clfs_nactive * lfs_sb_getssize(fs)); cleaner_stats.util_tot += util; cleaner_stats.util_sos += util * util; cleaner_stats.bytes_written += nb; /* * Check out our blocks to see if there are hidden cleaning costs. * If there are, we might be cleaning ourselves deeper into a hole * rather than doing anything useful. * XXX do something about this. */ if_extra = 0; extra = lfs_sb_getbsize(fs) * (off_t)check_hidden_cost(fs, bip, bic, &if_extra); if_extra *= lfs_sb_getbsize(fs); /* * Use markv to move the blocks. */ if (do_small) inc = MAXPHYS / lfs_sb_getbsize(fs) - 1; else inc = LFS_MARKV_MAXBLKCNT / 2; for (mc = 0, mbip = bip; mc < bic; mc += inc, mbip += inc) { lim.blkiov = mbip; lim.blkcnt = (bic - mc > inc ? inc : bic - mc); #ifdef TEST_PATTERN dlog("checking blocks %d-%d", mc, mc + lim.blkcnt - 1); for (i = 0; i < lim.blkcnt; i++) { check_test_pattern(mbip + i); } #endif /* TEST_PATTERN */ dlog("sending blocks %d-%d", mc, mc + lim.blkcnt - 1); if ((r = kops.ko_fcntl(fs->clfs_ifilefd, LFCNMARKV, &lim))<0) { int oerrno = errno; syslog(LOG_WARNING, "%s: markv returned %d (errno %d, %m)", lfs_sb_getfsmnt(fs), r, errno); if (oerrno != EAGAIN && oerrno != ESHUTDOWN) { syslog(LOG_DEBUG, "%s: errno %d, returning", lfs_sb_getfsmnt(fs), oerrno); fd_release_all(fs->clfs_devvp); return r; } if (oerrno == ESHUTDOWN) { syslog(LOG_NOTICE, "%s: filesystem unmounted", lfs_sb_getfsmnt(fs)); fd_release_all(fs->clfs_devvp); return r; } } } /* * Report progress (or lack thereof) */ syslog(LOG_INFO, "%s: wrote %" PRId64 " dirty + %" PRId64 " supporting indirect + %" PRId64 " supporting Ifile = %" PRId64 " bytes to clean %d segs (%" PRId64 "%% recovery)", lfs_sb_getfsmnt(fs), (int64_t)nb, (int64_t)(extra - if_extra), (int64_t)if_extra, (int64_t)(nb + extra), ngood, (ngood ? (int64_t)(100 - (100 * (nb + extra)) / (ngood * lfs_sb_getssize(fs))) : (int64_t)0)); if (nb + extra >= ngood * lfs_sb_getssize(fs)) syslog(LOG_WARNING, "%s: cleaner not making forward progress", lfs_sb_getfsmnt(fs)); /* * Finally call reclaim to prompt cleaning of the segments. */ kops.ko_fcntl(fs->clfs_ifilefd, LFCNRECLAIM, NULL); fd_release_all(fs->clfs_devvp); return 0; } /* * Read the cleanerinfo block and apply cleaning policy to determine whether * the given filesystem needs to be cleaned. Returns 1 if it does, 0 if it * does not, or -1 on error. */ static int needs_cleaning(struct clfs *fs, CLEANERINFO64 *cip) { CLEANERINFO *cipu; struct ubuf *bp; struct stat st; daddr_t fsb_per_seg, max_free_segs; time_t now; double loadavg; /* If this fs is "on hold", don't clean it. */ if (fs->clfs_onhold) { #if defined(__GNUC__) && \ (__GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 8)) && \ defined(__OPTIMIZE_SIZE__) /* * XXX: Work around apparent bug with GCC >= 4.8 and -Os: it * claims that ci.clean is uninitialized in clean_fs (at one * of the several uses of it, which is neither the first nor * last use) -- this doesn't happen with plain -O2. * * Hopefully in the future further rearrangements will allow * removing this hack. */ cip->clean = 0; #endif return 0; } /* * Read the cleanerinfo block from the Ifile. We don't want * the cached information, so invalidate the buffer before * handing it back. */ if (bread(fs->lfs_ivnode, 0, lfs_sb_getbsize(fs), 0, &bp)) { syslog(LOG_ERR, "%s: can't read inode", lfs_sb_getfsmnt(fs)); return -1; } cipu = (CLEANERINFO *)bp->b_data; if (fs->lfs_is64) { /* Structure copy */ *cip = cipu->u_64; } else { /* Copy the fields and promote to 64 bit */ cip->clean = cipu->u_32.clean; cip->dirty = cipu->u_32.dirty; cip->bfree = cipu->u_32.bfree; cip->avail = cipu->u_32.avail; cip->free_head = cipu->u_32.free_head; cip->free_tail = cipu->u_32.free_tail; cip->flags = cipu->u_32.flags; } brelse(bp, B_INVAL); cleaner_stats.bytes_read += lfs_sb_getbsize(fs); /* * If the number of segments changed under us, reinit. * We don't have to start over from scratch, however, * since we don't hold any buffers. */ if (lfs_sb_getnseg(fs) != cip->clean + cip->dirty) { if (reinit_fs(fs) < 0) { /* The normal case for unmount */ syslog(LOG_NOTICE, "%s: filesystem unmounted", lfs_sb_getfsmnt(fs)); return -1; } syslog(LOG_NOTICE, "%s: nsegs changed", lfs_sb_getfsmnt(fs)); } /* Compute theoretical "free segments" maximum based on usage */ fsb_per_seg = lfs_segtod(fs, 1); max_free_segs = MAX(cip->bfree, 0) / fsb_per_seg + lfs_sb_getminfreeseg(fs); dlog("%s: bfree = %d, avail = %d, clean = %d/%d", lfs_sb_getfsmnt(fs), cip->bfree, cip->avail, cip->clean, lfs_sb_getnseg(fs)); /* If the writer is waiting on us, clean it */ if (cip->clean <= lfs_sb_getminfreeseg(fs) || (cip->flags & LFS_CLEANER_MUST_CLEAN)) return 1; /* If there are enough segments, don't clean it */ if (cip->bfree - cip->avail <= fsb_per_seg && cip->avail > fsb_per_seg) return 0; /* If we are in dire straits, clean it */ if (cip->bfree - cip->avail > fsb_per_seg && cip->avail <= fsb_per_seg) return 1; /* If under busy threshold, clean regardless of load */ if (cip->clean < max_free_segs * BUSY_LIM) return 1; /* Check busy status; clean if idle and under idle limit */ if (use_fs_idle) { /* Filesystem idle */ time(&now); if (fstat(fs->clfs_ifilefd, &st) < 0) { syslog(LOG_ERR, "%s: failed to stat ifile", lfs_sb_getfsmnt(fs)); return -1; } if (now - st.st_mtime > segwait_timeout && cip->clean < max_free_segs * IDLE_LIM) return 1; } else { /* CPU idle - use one-minute load avg */ if (getloadavg(&loadavg, 1) == -1) { syslog(LOG_ERR, "%s: failed to get load avg", lfs_sb_getfsmnt(fs)); return -1; } if (loadavg < load_threshold && cip->clean < max_free_segs * IDLE_LIM) return 1; } return 0; } /* * Report statistics. If the signal was SIGUSR2, clear the statistics too. * If the signal was SIGINT, exit. */ static void sig_report(int sig) { double avg = 0.0, stddev; avg = cleaner_stats.util_tot / MAX(cleaner_stats.segs_cleaned, 1.0); stddev = cleaner_stats.util_sos / MAX(cleaner_stats.segs_cleaned - avg * avg, 1.0); syslog(LOG_INFO, "bytes read: %" PRId64, cleaner_stats.bytes_read); syslog(LOG_INFO, "bytes written: %" PRId64, cleaner_stats.bytes_written); syslog(LOG_INFO, "segments cleaned: %" PRId64, cleaner_stats.segs_cleaned); #if 0 /* "Empty segments" is meaningless, since the kernel handles those */ syslog(LOG_INFO, "empty segments: %" PRId64, cleaner_stats.segs_empty); #endif syslog(LOG_INFO, "error segments: %" PRId64, cleaner_stats.segs_error); syslog(LOG_INFO, "utilization total: %g", cleaner_stats.util_tot); syslog(LOG_INFO, "utilization sos: %g", cleaner_stats.util_sos); syslog(LOG_INFO, "utilization avg: %4.2f", avg); syslog(LOG_INFO, "utilization sdev: %9.6f", stddev); if (debug) bufstats(); if (sig == SIGUSR2) memset(&cleaner_stats, 0, sizeof(cleaner_stats)); if (sig == SIGINT) exit(0); } static void sig_exit(int sig) { exit(0); } static void usage(void) { fprintf(stderr, "usage: lfs_cleanerd [-bcdfmqsJ] [-i segnum] [-l load] " "[-n nsegs] [-r report_freq] [-t timeout] fs_name ..."); } #ifndef LFS_CLEANER_AS_LIB /* * Main. */ int main(int argc, char **argv) { return lfs_cleaner_main(argc, argv); } #endif int lfs_cleaner_main(int argc, char **argv) { int i, opt, error, r, loopcount, nodetach; struct timeval tv; #ifdef LFS_CLEANER_AS_LIB sem_t *semaddr = NULL; #endif CLEANERINFO64 ci; #ifndef USE_CLIENT_SERVER char *cp, *pidname; #endif /* * Set up defaults */ atatime = 1; segwait_timeout = 300; /* Five minutes */ load_threshold = 0.2; stat_report = 0; inval_segment = -1; copylog_filename = NULL; nodetach = 0; do_asdevice = NULL; /* * Parse command-line arguments */ while ((opt = getopt(argc, argv, "bC:cdDfi:J:l:mn:qr:sS:t:")) != -1) { switch (opt) { case 'b': /* Use bytes written, not segments read */ use_bytes = 1; break; case 'C': /* copy log */ copylog_filename = optarg; break; case 'c': /* Coalesce files */ do_coalesce++; break; case 'd': /* Debug mode. */ nodetach++; debug++; break; case 'D': /* stay-on-foreground */ nodetach++; break; case 'f': /* Use fs idle time rather than cpu idle */ use_fs_idle = 1; break; case 'i': /* Invalidate this segment */ inval_segment = atoi(optarg); break; case 'l': /* Load below which to clean */ load_threshold = atof(optarg); break; case 'm': /* [compat only] */ break; case 'n': /* How many segs to clean at once */ atatime = atoi(optarg); break; case 'q': /* Quit after one run */ do_quit = 1; break; case 'r': /* Report every stat_report segments */ stat_report = atoi(optarg); break; case 's': /* Small writes */ do_small = 1; break; #ifdef LFS_CLEANER_AS_LIB case 'S': /* semaphore */ semaddr = (void*)(uintptr_t)strtoull(optarg,NULL,0); break; #endif case 't': /* timeout */ segwait_timeout = atoi(optarg); break; case 'J': /* do as a device */ do_asdevice = optarg; break; default: usage(); /* NOTREACHED */ } } argc -= optind; argv += optind; if (argc < 1) usage(); if (inval_segment >= 0 && argc != 1) { errx(1, "lfs_cleanerd: may only specify one filesystem when " "using -i flag"); } if (do_coalesce) { errx(1, "lfs_cleanerd: -c disabled due to reports of file " "corruption; you may re-enable it by rebuilding the " "cleaner"); } /* * Set up daemon mode or foreground mode */ if (nodetach) { openlog("lfs_cleanerd", LOG_NDELAY | LOG_PID | LOG_PERROR, LOG_DAEMON); signal(SIGINT, sig_report); } else { if (daemon(0, 0) == -1) err(1, "lfs_cleanerd: couldn't become a daemon!"); openlog("lfs_cleanerd", LOG_NDELAY | LOG_PID, LOG_DAEMON); signal(SIGINT, sig_exit); } /* * Look for an already-running master daemon. If there is one, * send it our filesystems to add to its list and exit. * If there is none, become the master. */ #ifdef USE_CLIENT_SERVER try_to_become_master(argc, argv); #else /* XXX think about this */ asprintf(&pidname, "lfs_cleanerd:m:%s", argv[0]); if (pidname == NULL) { syslog(LOG_ERR, "malloc failed: %m"); exit(1); } for (cp = pidname; cp != NULL; cp = strchr(cp, '/')) *cp = '|'; pidfile(pidname); #endif /* * Signals mean daemon should report its statistics */ memset(&cleaner_stats, 0, sizeof(cleaner_stats)); signal(SIGUSR1, sig_report); signal(SIGUSR2, sig_report); /* * Start up buffer cache. We only use this for the Ifile, * and we will resize it if necessary, so it can start small. */ bufinit(4); #ifdef REPAIR_ZERO_FINFO { BLOCK_INFO *bip = NULL; int bic = 0; nfss = 1; fsp = (struct clfs **)malloc(sizeof(*fsp)); fsp[0] = (struct clfs *)calloc(1, sizeof(**fsp)); if (init_unmounted_fs(fsp[0], argv[0]) < 0) { err(1, "init_unmounted_fs"); } dlog("Filesystem has %d segments", fsp[0]->lfs_nseg); for (i = 0; i < fsp[0]->lfs_nseg; i++) { load_segment(fsp[0], i, &bip, &bic); bic = 0; } exit(0); } #endif /* * Initialize cleaning structures, open devices, etc. */ nfss = argc; fsp = (struct clfs **)malloc(nfss * sizeof(*fsp)); if (fsp == NULL) { syslog(LOG_ERR, "couldn't allocate fs table: %m"); exit(1); } for (i = 0; i < nfss; i++) { fsp[i] = (struct clfs *)calloc(1, sizeof(**fsp)); if ((r = init_fs(fsp[i], argv[i])) < 0) { syslog(LOG_ERR, "%s: couldn't init: error code %d", argv[i], r); handle_error(fsp, i); --i; /* Do the new #i over again */ } } /* * If asked to coalesce, do so and exit. */ if (do_coalesce) { for (i = 0; i < nfss; i++) clean_all_inodes(fsp[i]); exit(0); } /* * If asked to invalidate a segment, do that and exit. */ if (inval_segment >= 0) { invalidate_segment(fsp[0], inval_segment); exit(0); } /* * Main cleaning loop. */ loopcount = 0; #ifdef LFS_CLEANER_AS_LIB if (semaddr) sem_post(semaddr); #endif error = 0; while (nfss > 0) { int cleaned_one; do { #ifdef USE_CLIENT_SERVER check_control_socket(); #endif cleaned_one = 0; for (i = 0; i < nfss; i++) { if ((error = needs_cleaning(fsp[i], &ci)) < 0) { syslog(LOG_DEBUG, "%s: needs_cleaning returned %d", getprogname(), error); handle_error(fsp, i); continue; } if (error == 0) /* No need to clean */ continue; reload_ifile(fsp[i]); if ((error = clean_fs(fsp[i], &ci)) < 0) { syslog(LOG_DEBUG, "%s: clean_fs returned %d", getprogname(), error); handle_error(fsp, i); continue; } ++cleaned_one; } ++loopcount; if (stat_report && loopcount % stat_report == 0) sig_report(0); if (do_quit) exit(0); } while(cleaned_one); tv.tv_sec = segwait_timeout; tv.tv_usec = 0; /* XXX: why couldn't others work if fsp socket is shutdown? */ error = kops.ko_fcntl(fsp[0]->clfs_ifilefd,LFCNSEGWAITALL,&tv); if (error) { if (errno == ESHUTDOWN) { for (i = 0; i < nfss; i++) { syslog(LOG_INFO, "%s: shutdown", getprogname()); handle_error(fsp, i); assert(nfss == 0); } } else { #ifdef LFS_CLEANER_AS_LIB error = ESHUTDOWN; break; #else err(1, "LFCNSEGWAITALL"); #endif } } } /* NOTREACHED */ return error; } src/libexec/mail.local004075500011300000175000000000001504273241000151455ustar00srcmastrnetbsdsrc/libexec/mail.local/CVS004075500011300000175000000000001504273241000156005ustar00srcmastrnetbsdsrc/libexec/mail.local/CVS/Root010064400011300000175000000000441504273241000165200ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/mail.local/CVS/Repository010064400011300000175000000000271504273241000177550ustar00srcmastrnetbsdsrc/libexec/mail.local src/libexec/mail.local/CVS/Entries010064400011300000175000000003331504273241000172070ustar00srcmastrnetbsd/Makefile/1.7/Wed Oct 18 00:24:20 2000//Tnetbsd-11 /mail.local.8/1.14/Tue Jul 4 06:56:50 2017//Tnetbsd-11 /mail.local.c/1.33/Wed Sep 6 22:08:38 2023//Tnetbsd-11 /pathnames.h/1.5/Thu Aug 7 09:46:45 2003//Tnetbsd-11 D src/libexec/mail.local/CVS/Tag010064400011300000175000000000131522207752300163130ustar00srcmastrnetbsdTnetbsd-11 src/libexec/mail.local/Makefile010064400011300000175000000002750717316666400167070ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.7 2000/10/18 00:24:20 simonb Exp $ # from: @(#)Makefile 8.1 (Berkeley) 7/19/93 PROG= mail.local MAN= mail.local.8 BINOWN= root BINMODE=4555 .include src/libexec/mail.local/mail.local.8010064400011300000175000000065501312663606200173420ustar00srcmastrnetbsd.\" $NetBSD: mail.local.8,v 1.14 2017/07/04 06:56:50 wiz Exp $ .\" .\" Copyright (c) 1990 The Regents of the University of California. .\" All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. Neither the name of the University nor the names of its contributors .\" may be used to endorse or promote products derived from this software .\" without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF .\" SUCH DAMAGE. .\" .\" from: @(#)mail.local.8 8.2 (Berkeley) 12/11/93 .\" .Dd December 11, 1993 .Dt MAIL.LOCAL 8 .Os .Sh NAME .Nm mail.local .Nd store mail in a mailbox .Sh SYNOPSIS .Nm .Op Fl l .Op Fl f Ar from .Ar user ... .Sh DESCRIPTION .Nm reads the standard input up to an end-of-file and appends it to each .Ar user's .Pa mail file. The .Ar user must be a valid user name. .Pp The options are as follows: .Bl -tag -width xxxxxxx .It Fl f Ar from Specify the sender's name. .It Fl l Request that .Nm username.lock files be used for locking. .El .Pp Individual mail messages in the mailbox are delimited by an empty line followed by a line beginning with the string ``From ''. A line containing the string ``From '', the sender's name and a time stamp is prepended to each delivered mail message. A blank line is appended to each message. A greater-than character (``>'') is prepended to any line in the message which could be mistaken for a ``From '' delimiter line. .Pp If the .Op Fl l flag is specified mailbox locking is done with .Nm username.lock files. Otherwise, the mailbox is exclusively locked with .Xr flock 2 while mail is appended. .Pp If the ``biff'' service is returned by .Xr getservbyname 3 , the biff server is notified of delivered mail. .Sh ENVIRONMENT .Bl -tag -width indent .It Ev TZ Used to set the appropriate time zone on the timestamp. .El .Sh FILES .Bl -tag -width /tmp/local.XXXXXX -compact .It Pa /tmp/local.XXXXXX temporary files .It Pa /var/mail/user user's mailbox directory .El .Sh EXIT STATUS .Ex -std mail.local .Sh SEE ALSO .Xr mail 1 , .Xr sendmail 1 , .Xr flock 2 , .Xr getservbyname 3 , .Xr comsat 8 .Sh HISTORY A superset of .Nm (handling mailbox reading as well as mail delivery) appeared in .At v7 as the program .Xr mail 1 . src/libexec/mail.local/mail.local.c010064400011300000175000000223401447617414600174210ustar00srcmastrnetbsd/* $NetBSD: mail.local.c,v 1.33 2023/09/06 22:08:38 christos Exp $ */ /*- * Copyright (c) 1990, 1993, 1994 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint __COPYRIGHT("@(#) Copyright (c) 1990, 1993, 1994\ The Regents of the University of California. All rights reserved."); #if 0 static char sccsid[] = "@(#)mail.local.c 8.22 (Berkeley) 6/21/95"; #else __RCSID("$NetBSD: mail.local.c,v 1.33 2023/09/06 22:08:38 christos Exp $"); #endif #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "pathnames.h" static int deliver(int, char *, int); __dead static void logerr(int, const char *, ...) __printflike(2, 3); static void logwarn(const char *, ...) __printflike(1, 2); static void notifybiff(char *); static int store(const char *); __dead static void usage(void); int main(int argc, char *argv[]) { struct passwd *pw; int ch, fd, eval, lockfile = 0; uid_t uid; const char *from; /* use a reasonable umask */ (void) umask(0077); openlog("mail.local", LOG_PERROR, LOG_MAIL); from = NULL; while ((ch = getopt(argc, argv, "ldf:r:")) != -1) switch (ch) { case 'd': /* backward compatible */ break; case 'f': case 'r': /* backward compatible */ if (from) logerr(EX_USAGE, "multiple -f options"); from = optarg; break; case 'l': lockfile++; break; case '?': default: usage(); } argc -= optind; argv += optind; if (!*argv) usage(); /* * If from not specified, use the name from getlogin() if the * uid matches, otherwise, use the name from the password file * corresponding to the uid. */ uid = getuid(); if (!from && (!(from = getlogin()) || !(pw = getpwnam(from)) || pw->pw_uid != uid)) from = (pw = getpwuid(uid)) ? pw->pw_name : "???"; fd = store(from); for (eval = EX_OK; *argv; ++argv) { int rval; rval = deliver(fd, *argv, lockfile); if (eval == EX_OK && rval != EX_OK) eval = rval; } return eval; } static int store(const char *from) { FILE *fp = NULL; /* XXX gcc */ time_t tval; int fd, eline; char *tn, line[2048]; tn = strdup(_PATH_LOCTMP); if (!tn) logerr(EX_OSERR, "not enough memory"); if ((fd = mkstemp(tn)) == -1 || !(fp = fdopen(fd, "w+"))) logerr(EX_OSERR, "unable to open temporary file"); (void)unlink(tn); free(tn); (void)time(&tval); (void)fprintf(fp, "From %s %s", from, ctime(&tval)); line[0] = '\0'; for (eline = 1; fgets(line, sizeof(line), stdin);) { if (line[0] == '\n') eline = 1; else { if (eline && line[0] == 'F' && !memcmp(line, "From ", 5)) (void)putc('>', fp); eline = 0; } (void)fprintf(fp, "%s", line); if (ferror(fp)) break; } /* If message not newline terminated, need an extra. */ if (!index(line, '\n')) (void)putc('\n', fp); /* Output a newline; note, empty messages are allowed. */ (void)putc('\n', fp); (void)fflush(fp); if (ferror(fp)) logerr(EX_OSERR, "temporary file write error"); if ((fd = dup(fd)) == -1) logerr(EX_OSERR, "dup failed"); (void)fclose(fp); return fd; } static bool badfile(const char *path, const struct stat *sb) { if (!S_ISREG(sb->st_mode)) { logwarn("%s: not a regular file", path); return true; } if (sb->st_nlink != 1) { logwarn("%s: linked file", path); return true; } return false; } static int deliver(int fd, char *name, int lockfile) { struct stat sb, nsb; struct passwd pwres, *pw; char pwbuf[1024]; int created = 0, mbfd = -1, nr, nw, off, rval = EX_OSERR, lfd = -1; char biffmsg[100], buf[8*1024], path[MAXPATHLEN], lpath[MAXPATHLEN]; off_t curoff; /* * Disallow delivery to unknown names -- special mailboxes can be * handled in the sendmail aliases file. */ if ((getpwnam_r(name, &pwres, pwbuf, sizeof(pwbuf), &pw)) != 0) { logwarn("unable to find user %s: %s", name, strerror(errno)); return EX_TEMPFAIL; } if (pw == NULL) { logwarn("unknown name: %s", name); return EX_NOUSER; } (void)snprintf(path, sizeof path, "%s/%s", _PATH_MAILDIR, name); if (lockfile) { (void)snprintf(lpath, sizeof lpath, "%s/%s.lock", _PATH_MAILDIR, name); if((lfd = open(lpath, O_CREAT|O_WRONLY|O_EXCL, S_IRUSR|S_IWUSR)) < 0) { logwarn("%s: can't create: %s", lpath, strerror(errno)); return EX_OSERR; } } if (lstat(path, &sb) == -1) { if (errno != ENOENT) { logwarn("%s: can't stat: %s", path, strerror(errno)); goto bad; } memset(&sb, 0, sizeof(sb)); sb.st_dev = NODEV; } else if (badfile(path, &sb)) { goto bad; } if ((mbfd = open(path, O_APPEND|O_WRONLY|O_EXLOCK|O_NOFOLLOW, S_IRUSR|S_IWUSR)) == -1) { /* create file */ if (errno != ENOENT || (mbfd = open(path, O_APPEND|O_CREAT|O_WRONLY|O_EXLOCK|O_EXCL, S_IRUSR|S_IWUSR)) == -1) { logwarn("%s: can't create: %s", path, strerror(errno)); goto bad; } created = 1; } else { /* opened existing file, check for TOCTTOU */ if (fstat(mbfd, &nsb) == -1) { logwarn("%s: can't stat: %s", path, strerror(errno)); goto bad; } if (badfile(path, &nsb)) { goto bad; } /* file is not what we expected */ if (nsb.st_ino != sb.st_ino || nsb.st_dev != sb.st_dev) { logwarn("%s: file has changed", path); goto bad; } } if ((curoff = lseek(mbfd, 0, SEEK_END)) == (off_t)-1) { logwarn("%s: can't seek: %s", path, strerror(errno)); goto bad; } (void)snprintf(biffmsg, sizeof biffmsg, "%s@%lld\n", name, (long long)curoff); if (lseek(fd, 0, SEEK_SET) == (off_t)-1) { logwarn("can't seek: %s", strerror(errno)); goto bad; } while ((nr = read(fd, buf, sizeof(buf))) > 0) for (off = 0; off < nr; off += nw) if ((nw = write(mbfd, buf + off, nr - off)) < 0) { logwarn("%s: can't write: %s", path, strerror(errno)); goto trunc; } if (nr < 0) { logwarn("can't read: %s", strerror(errno)); trunc: (void)ftruncate(mbfd, curoff); goto bad; } rval = EX_OK; /* * Set the owner and group. Historically, binmail repeated this at * each mail delivery. We no longer do this, assuming that if the * ownership or permissions were changed there was a reason for doing * so. */ bad: if (lockfile) { if (lfd >= 0) { unlink(lpath); close(lfd); } } if (mbfd >= 0) { if (created) (void)fchown(mbfd, pw->pw_uid, pw->pw_gid); (void)fsync(mbfd); /* Don't wait for update. */ (void)close(mbfd); /* Implicit unlock. */ } if (rval == EX_OK) notifybiff(biffmsg); return rval; } void notifybiff(char *msg) { static struct sockaddr_in addr; static int f = -1; struct hostent *hp; struct servent *sp; int len; if (!addr.sin_family) { /* Be silent if biff service not available. */ if (!(sp = getservbyname("biff", "udp"))) return; if (!(hp = gethostbyname("localhost"))) { logwarn("localhost: %s", strerror(errno)); return; } addr.sin_len = sizeof(struct sockaddr_in); addr.sin_family = hp->h_addrtype; addr.sin_port = sp->s_port; memcpy(&addr.sin_addr, hp->h_addr, hp->h_length); } if (f < 0 && (f = socket(AF_INET, SOCK_DGRAM, 0)) == -1) { logwarn("socket: %s", strerror(errno)); return; } len = strlen(msg) + 1; if (sendto(f, msg, len, 0, (struct sockaddr *)&addr, sizeof(addr)) != len) logwarn("sendto biff: %s", strerror(errno)); } static void usage(void) { logerr(EX_USAGE, "usage: mail.local [-l] [-f from] user ..."); } static void logerr(int status, const char *fmt, ...) { va_list ap; va_start(ap, fmt); vsyslog(LOG_ERR, fmt, ap); va_end(ap); exit(status); /* NOTREACHED */ } static void logwarn(const char *fmt, ...) { va_list ap; va_start(ap, fmt); vsyslog(LOG_ERR, fmt, ap); va_end(ap); return; } src/libexec/mail.local/pathnames.h010064400011300000175000000033520771442000500173560ustar00srcmastrnetbsd/* $NetBSD: pathnames.h,v 1.5 2003/08/07 09:46:45 agc Exp $ */ /*- * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * * from: @(#)pathnames.h 8.1 (Berkeley) 6/4/93 */ #include #define _PATH_LOCTMP "/tmp/local.XXXXXX" src/libexec/makekey004075500011300000175000000000001504273241000145605ustar00srcmastrnetbsdsrc/libexec/makekey/CVS004075500011300000175000000000001504273241000152135ustar00srcmastrnetbsdsrc/libexec/makekey/CVS/Root010064400011300000175000000000441504273241000161330ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/makekey/CVS/Repository010064400011300000175000000000241504273241000173650ustar00srcmastrnetbsdsrc/libexec/makekey src/libexec/makekey/CVS/Entries010064400011300000175000000002361504273241000166240ustar00srcmastrnetbsd/Makefile/1.8/Wed Oct 8 09:07:23 1997//Tnetbsd-11 /makekey.8/1.10/Thu Aug 7 09:46:45 2003//Tnetbsd-11 /makekey.c/1.8/Sun Jul 20 01:09:07 2008//Tnetbsd-11 D src/libexec/makekey/CVS/Tag010064400011300000175000000000131522207752300157260ustar00srcmastrnetbsdTnetbsd-11 src/libexec/makekey/Makefile010064400011300000175000000002750641664651300163150ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.8 1997/10/08 09:07:23 mrg Exp $ # from: @(#)Makefile 8.1 (Berkeley) 6/4/93 PROG= makekey MAN= makekey.8 LDADD+= -lcrypt DPADD+= ${LIBCRYPT} .include src/libexec/makekey/makekey.8010064400011300000175000000043460771442000500163630ustar00srcmastrnetbsd.\" $NetBSD: makekey.8,v 1.10 2003/08/07 09:46:45 agc Exp $ .\" .\" Copyright (c) 1990, 1991, 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. Neither the name of the University nor the names of its contributors .\" may be used to endorse or promote products derived from this software .\" without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF .\" SUCH DAMAGE. .\" .\" from: @(#)makekey.8 8.2 (Berkeley) 12/11/93 .\" .Dd December 11, 1993 .Dt MAKEKEY 8 .Os .Sh NAME .Nm makekey .Nd make encrypted keys or passwords .Sh SYNOPSIS .Nm .Sh DESCRIPTION .Nm encrypts a key and salt which it reads from the standard input and writes the result to the standard output. The key is expected to be eight bytes; the salt is expected to be two bytes. See .Xr crypt 3 for more information on what characters the key and salt can contain and how the encrypted value is calculated. .Sh SEE ALSO .Xr login 1 , .Xr crypt 3 .Sh HISTORY A .Nm command appeared in .At v7 . src/libexec/makekey/makekey.c010064400011300000175000000047461104051006300164310ustar00srcmastrnetbsd/* $NetBSD: makekey.c,v 1.8 2008/07/20 01:09:07 lukem Exp $ */ /*- * Copyright (c) 1990, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint __COPYRIGHT("@(#) Copyright (c) 1990, 1993\ The Regents of the University of California. All rights reserved."); #if 0 static char sccsid[] = "from: @(#)makekey.c 8.1 (Berkeley) 6/4/93"; #else __RCSID("$NetBSD: makekey.c,v 1.8 2008/07/20 01:09:07 lukem Exp $"); #endif #endif /* not lint */ #include #include #include #include #include static void get(char *, int); int main(void); int main(void) { int len; char *r, key[9], salt[3]; get(key, sizeof(key) - 1); get(salt, sizeof(salt) - 1); len = strlen(r = crypt(key, salt)); if (write(STDOUT_FILENO, r, len) != len) err(1, "stdout"); exit(0); } static void get(char *bp, int len) { int nr; bp[len] = '\0'; if ((nr = read(STDIN_FILENO, bp, len)) == len) return; if (nr >= 0) errno = EFTYPE; err(1, "stdin"); } src/libexec/makewhatis004075500011300000175000000000001504273241000152675ustar00srcmastrnetbsdsrc/libexec/makewhatis/CVS004075500011300000175000000000001504273241000157225ustar00srcmastrnetbsdsrc/libexec/makewhatis/CVS/Root010064400011300000175000000000441504273241000166420ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/makewhatis/CVS/Repository010064400011300000175000000000271504273241000200770ustar00srcmastrnetbsdsrc/libexec/makewhatis src/libexec/makewhatis/CVS/Entries010064400011300000175000000002461504273241000173340ustar00srcmastrnetbsd/Makefile/1.20/Mon Mar 16 02:24:56 2009//Tnetbsd-11 /makewhatis.8/1.14/Tue Mar 18 18:20:38 2014//Tnetbsd-11 /makewhatis.c/1.51/Mon Oct 2 22:14:32 2017//Tnetbsd-11 D src/libexec/makewhatis/CVS/Tag010064400011300000175000000000131522207752300164350ustar00srcmastrnetbsdTnetbsd-11 src/libexec/makewhatis/Makefile010064400011300000175000000005261115733417000170120ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.20 2009/03/16 02:24:56 lukem Exp $ WARNS?= 2 # XXX: const issues .include PROG= makewhatis SRCS= makewhatis.c manconf.c .PATH: ${NETBSDSRCDIR}/usr.bin/man CPPFLAGS+=-I${NETBSDSRCDIR}/usr.bin MAN= ${PROG}.8 .ifndef HOSTPROG DPADD+= ${LIBUTIL} ${LIBZ} LDADD+= -lutil -lz .endif .include src/libexec/makewhatis/makewhatis.8010064400011300000175000000067231231210716600176020ustar00srcmastrnetbsd.\" $NetBSD: makewhatis.8,v 1.14 2014/03/18 18:20:38 riastradh Exp $ .\" .\" Copyright (c) 1997, 2002 The NetBSD Foundation, Inc. .\" All rights reserved. .\" .\" This code is derived from software contributed to The NetBSD Foundation .\" by Robert Dobbs . .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" .\" THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS .\" ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED .\" TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR .\" PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS .\" BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR .\" CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF .\" SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS .\" INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN .\" CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) .\" ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE .\" POSSIBILITY OF SUCH DAMAGE. .\" .Dd April 3, 2005 .Dt MAKEWHATIS 8 .Os .Sh NAME .Nm makewhatis .Nd create a whatis.db database .Sh SYNOPSIS .Nm /usr/libexec/makewhatis .Op Fl fw .Op Fl C Ar file .Op Ar manpath ... .Sh DESCRIPTION .Nm strips the NAME lines from compiled or raw .Xr man 1 pages and creates a whatis.db database for use in .Xr apropos 1 , .Xr whatis 1 , or with .Xr man 1 Ns 's .Fl k option. Man pages compressed with .Xr compress 1 and .Xr gzip 1 are uncompressed before processing. .Pp When .Ar manpath is provided multiple times, the resulting database file is generated in the first directory specified, and contains entries for all the directories. .Pp If .Ar manpath is not provided, .Nm parses .Pa /etc/man.conf and regenerates the whatis database files specified there. Each database file is assumed to reside in the root of the appropriate man page hierarchy. .Pp The options are as follows: .Bl -tag -width XCXfileXX .It Fl C Ar file Use .Ar file (in .Xr man.conf 5 format) as configuration file instead of the default, .Pa /etc/man.conf . .It Fl f Don't spawn child processes to generate the individual database files, but do all the work synchronously in the foreground. .It Fl w Print warnings about input files we don't like. .El .Sh FILES .Bl -tag -compact -width /etc/man.conf1 .It Pa whatis.db name of the whatis database .It Pa /etc/man.conf .Xr man 1 configuration file, used to get the location of the whatis databases when .Nm is called without arguments .El .Sh SEE ALSO .Xr apropos 1 , .Xr man 1 , .Xr whatis 1 , .Xr man.conf 5 .Sh HISTORY .An -nosplit .Nm first appeared in .Nx 1.0 , as a shell script written by .An J.T. Conklin Aq Mt jtc@NetBSD.org and .An Thorsten Frueauf Aq Mt frueauf@ira.uka.de . Further work was done by .An Matthew Green , .An Luke Mewburn , and .An Chris Demetriou . .Pp .An Matthias Scheler has reimplemented .Nm in C in .Nx 1.5 . .Sh AUTHORS .An Matthias Scheler Aq Mt tron@NetBSD.org src/libexec/makewhatis/makewhatis.c010064400011300000175000000620741316453511000176560ustar00srcmastrnetbsd/* $NetBSD: makewhatis.c,v 1.51 2017/10/02 22:14:32 christos Exp $ */ /*- * Copyright (c) 1999 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Matthias Scheler. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #if HAVE_NBTOOL_CONFIG_H #include "nbtool_config.h" #endif #include #if !defined(lint) __COPYRIGHT("@(#) Copyright (c) 1999\ The NetBSD Foundation, Inc. All rights reserved."); __RCSID("$NetBSD: makewhatis.c,v 1.51 2017/10/02 22:14:32 christos Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #ifndef NROFF #define NROFF "nroff" #endif typedef struct manpagestruct manpage; struct manpagestruct { manpage *mp_left, *mp_right; ino_t mp_inode; size_t mp_sdoff; size_t mp_sdlen; char mp_name[1]; }; typedef struct whatisstruct whatis; struct whatisstruct { whatis *wi_left, *wi_right; char *wi_data; char wi_prefix[1]; }; int main(int, char * const *); static char *findwhitespace(char *); static char *strmove(char *, char *); static char *GetS(gzFile, char *, size_t); static int pathnamesection(const char *, const char *); static int manpagesection(char *); static char *createsectionstring(char *); static void addmanpage(manpage **, ino_t, char *, size_t, size_t); static void addwhatis(whatis **, char *, char *); static char *makesection(int); static char *makewhatisline(const char *, const char *, const char *); static void catpreprocess(char *); static char *parsecatpage(const char *, gzFile); static int manpreprocess(char *); static char *nroff(const char *, gzFile); static char *parsemanpage(const char *, gzFile, int); static char *getwhatisdata(char *); static void processmanpages(manpage **, whatis **); static void dumpwhatis(FILE *, whatis *); static int makewhatis(char * const *manpath); static char * const default_manpath[] = { "/usr/share/man", NULL }; static const char *sectionext = "0123456789ln"; static const char *whatisdb = _PATH_WHATIS; static const char *whatisdb_new = _PATH_WHATIS ".new"; static int dowarn = 0; #define ISALPHA(c) isalpha((unsigned char)(c)) #define ISDIGIT(c) isdigit((unsigned char)(c)) #define ISSPACE(c) isspace((unsigned char)(c)) int main(int argc, char *const *argv) { char * const *manpath; int c, dofork; const char *conffile; ENTRY *ep; TAG *tp; int rv, jobs, status; glob_t pg; char *paths[2], **p, *sl; int retval; dofork = 1; conffile = NULL; jobs = 0; retval = EXIT_SUCCESS; (void)setlocale(LC_ALL, ""); while ((c = getopt(argc, argv, "C:fw")) != -1) { switch (c) { case 'C': conffile = optarg; break; case 'f': /* run all processing on foreground */ dofork = 0; break; case 'w': dowarn++; break; default: fprintf(stderr, "Usage: %s [-fw] [-C file] [manpath ...]\n", getprogname()); exit(EXIT_FAILURE); } } argc -= optind; argv += optind; if (argc >= 1) { manpath = &argv[0]; mkwhatis: return makewhatis(manpath); } /* * Try read config file, fallback to default_manpath[] * if man.conf not available. */ config(conffile); if ((tp = gettag("_whatdb", 0)) == NULL) { manpath = default_manpath; goto mkwhatis; } /* Build individual databases */ paths[1] = NULL; TAILQ_FOREACH(ep, &tp->entrylist, q) { if ((rv = glob(ep->s, GLOB_BRACE | GLOB_NOSORT | GLOB_ERR | GLOB_NOCHECK, NULL, &pg)) != 0) err(EXIT_FAILURE, "glob('%s')", ep->s); /* We always have something to work with here */ for (p = pg.gl_pathv; *p; p++) { sl = strrchr(*p, '/'); if (sl == NULL) { err(EXIT_FAILURE, "glob: _whatdb entry '%s' " "doesn't contain slash", ep->s); } /* * Cut the last component of path, leaving just * the directory. We will use the result as root * for manpage search. * glob malloc()s space for the paths, so it's * okay to change it in-place. */ *sl = '\0'; paths[0] = *p; if (!dofork) { /* Do not fork child */ makewhatis(paths); continue; } switch (fork()) { case 0: exit(makewhatis(paths)); break; case -1: warn("fork"); makewhatis(paths); break; default: jobs++; break; } } globfree(&pg); } /* Wait for the childern to finish */ while (jobs > 0) { (void)wait(&status); if (!WIFEXITED(status) || WEXITSTATUS(status) != EXIT_SUCCESS) retval = EXIT_FAILURE; jobs--; } return retval; } static int makewhatis(char * const * manpath) { FTS *fts; FTSENT *fe; manpage *source; whatis *dest; FILE *out; size_t sdoff, sdlen; int outfd; struct stat st_before, st_after; if ((fts = fts_open(manpath, FTS_LOGICAL, NULL)) == NULL) err(EXIT_FAILURE, "Cannot open `%s'", *manpath); source = NULL; while ((fe = fts_read(fts)) != NULL) { switch (fe->fts_info) { case FTS_F: if (manpagesection(fe->fts_path) >= 0) { /* * Get manpage subdirectory prefix. Most * commonly, this is arch-specific subdirectory. */ if (fe->fts_level >= 3) { int sl; const char *s, *lsl; lsl = NULL; s = &fe->fts_path[fe->fts_pathlen - 1]; for(sl = fe->fts_level - 1; sl > 0; sl--) { s--; while (s[0] != '/') s--; if (lsl == NULL) lsl = s; } /* * Include trailing '/', so we get * 'arch/'. */ sdoff = s + 1 - fe->fts_path; sdlen = lsl - s + 1; } else { sdoff = 0; sdlen = 0; } addmanpage(&source, fe->fts_statp->st_ino, fe->fts_path, sdoff, sdlen); } /*FALLTHROUGH*/ case FTS_D: case FTS_DC: case FTS_DEFAULT: case FTS_DP: case FTS_SL: case FTS_DOT: case FTS_W: case FTS_NSOK: case FTS_INIT: break; case FTS_SLNONE: warnx("Symbolic link with no target: `%s'", fe->fts_path); break; case FTS_DNR: warnx("Unreadable directory: `%s'", fe->fts_path); break; case FTS_NS: errno = fe->fts_errno; warn("Cannot stat `%s'", fe->fts_path); break; case FTS_ERR: errno = fe->fts_errno; warn("Error reading `%s'", fe->fts_path); break; default: errx(EXIT_FAILURE, "Unknown info %d returned from fts " " for path: `%s'", fe->fts_info, fe->fts_path); } } (void)fts_close(fts); dest = NULL; processmanpages(&source, &dest); if (chdir(manpath[0]) == -1) err(EXIT_FAILURE, "Cannot change dir to `%s'", manpath[0]); /* * makewhatis runs unattended, so it needs to be able to * recover if the last run crashed out. Therefore, if * whatisdb_new exists and is more than (arbitrarily) sixteen * hours old, nuke it. If it exists but is not so old, refuse * to run until it's cleaned up, in case another makewhatis is * already running. Also, open the output with O_EXCL to make * sure we get our own, in case two copies start exactly at * once. (Unlikely? Maybe, maybe not, if two copies of cron * end up running.) * * Similarly, before renaming the file after we finish writing * to it, make sure it's still the same file we opened. This * can't be completely race-free, but getting caught by it * would require an unexplained sixteen-hour-or-more lag * between the last mtime update when we wrote to it and when * we get to the stat call *and* another makewhatis starting * out to write at exactly the wrong moment. Not impossible, * but not likely enough to worry about. * * This is maybe unnecessarily elaborate, but generating * corrupted output isn't so good either. */ if (stat(whatisdb_new, &st_before) == 0) { if (st_before.st_mtime - time(NULL) > 16*60*60) { /* Don't complain if someone else just removed it. */ if (unlink(whatisdb_new) == -1 && errno != ENOENT) { err(EXIT_FAILURE, "Could not remove `%s'", whatisdb_new); } else { warnx("Removed stale `%s'", whatisdb_new); } } else { errx(EXIT_FAILURE, "The file `%s' already exists " "-- am I already running?", whatisdb_new); } } else if (errno != ENOENT) { /* Something unexpected happened. */ err(EXIT_FAILURE, "Cannot stat `%s'", whatisdb_new); } outfd = open(whatisdb_new, O_WRONLY|O_CREAT|O_EXCL, S_IRUSR|S_IRGRP|S_IROTH); if (outfd < 0) err(EXIT_FAILURE, "Cannot open `%s'", whatisdb_new); if (fstat(outfd, &st_before) == -1) err(EXIT_FAILURE, "Cannot fstat `%s'", whatisdb_new); if ((out = fdopen(outfd, "w")) == NULL) err(EXIT_FAILURE, "Cannot fdopen `%s'", whatisdb_new); dumpwhatis(out, dest); if (fchmod(fileno(out), S_IRUSR|S_IRGRP|S_IROTH) == -1) err(EXIT_FAILURE, "Cannot chmod `%s'", whatisdb_new); if (fclose(out) != 0) err(EXIT_FAILURE, "Cannot close `%s'", whatisdb_new); if (stat(whatisdb_new, &st_after) == -1) err(EXIT_FAILURE, "Cannot stat `%s' (after writing)", whatisdb_new); if (st_before.st_dev != st_after.st_dev || st_before.st_ino != st_after.st_ino) { errx(EXIT_FAILURE, "The file `%s' changed under me; giving up", whatisdb_new); } if (rename(whatisdb_new, whatisdb) == -1) err(EXIT_FAILURE, "Could not rename `%s' to `%s'", whatisdb_new, whatisdb); return EXIT_SUCCESS; } static char * findwhitespace(char *str) { while (!ISSPACE(*str)) if (*str++ == '\0') { str = NULL; break; } return str; } static char * strmove(char *dest, char *src) { return memmove(dest, src, strlen(src) + 1); } static char * GetS(gzFile in, char *buffer, size_t length) { char *ptr; if (((ptr = gzgets(in, buffer, (int)length)) != NULL) && (*ptr == '\0')) ptr = NULL; return ptr; } static char * makesection(int s) { char sectionbuffer[24]; if (s == -1) return NULL; (void)snprintf(sectionbuffer, sizeof(sectionbuffer), " (%c) - ", sectionext[s]); return estrdup(sectionbuffer); } static int pathnamesection(const char *pat, const char *name) { char *ptr, *ext; size_t len = strlen(pat); while ((ptr = strstr(name, pat)) != NULL) { if ((ext = strchr(sectionext, ptr[len])) != NULL) { return ext - sectionext; } name = ptr + 1; } return -1; } static int manpagesection(char *name) { char *ptr; if ((ptr = strrchr(name, '/')) != NULL) ptr++; else ptr = name; while ((ptr = strchr(ptr, '.')) != NULL) { int section; ptr++; section = 0; while (sectionext[section] != '\0') if (sectionext[section] == *ptr) return section; else section++; } return -1; } static char * createsectionstring(char *section_id) { char *section; if (asprintf(§ion, " (%s) - ", section_id) < 0) err(EXIT_FAILURE, "malloc failed"); return section; } static void addmanpage(manpage **tree, ino_t inode, char *name, size_t sdoff, size_t sdlen) { manpage *mp; while ((mp = *tree) != NULL) { if (mp->mp_inode == inode) return; tree = inode < mp->mp_inode ? &mp->mp_left : &mp->mp_right; } mp = emalloc(sizeof(manpage) + strlen(name)); mp->mp_left = NULL; mp->mp_right = NULL; mp->mp_inode = inode; mp->mp_sdoff = sdoff; mp->mp_sdlen = sdlen; (void)strcpy(mp->mp_name, name); *tree = mp; } static void addwhatis(whatis **tree, char *data, char *prefix) { whatis *wi; int result; while (ISSPACE(*data)) data++; if (*data == '/') { char *ptr; ptr = ++data; while ((*ptr != '\0') && !ISSPACE(*ptr)) if (*ptr++ == '/') data = ptr; } while ((wi = *tree) != NULL) { result = strcmp(data, wi->wi_data); if (result == 0) result = strcmp(prefix, wi->wi_prefix); if (result == 0) return; tree = result < 0 ? &wi->wi_left : &wi->wi_right; } wi = emalloc(sizeof(whatis) + strlen(prefix)); wi->wi_left = NULL; wi->wi_right = NULL; wi->wi_data = data; if (prefix[0] != '\0') (void) strcpy(wi->wi_prefix, prefix); else wi->wi_prefix[0] = '\0'; *tree = wi; } static void catpreprocess(char *from) { char *to; to = from; while (ISSPACE(*from)) from++; while (*from != '\0') if (ISSPACE(*from)) { while (ISSPACE(*++from)); if (*from != '\0') *to++ = ' '; } else if (*(from + 1) == '\b') from += 2; else *to++ = *from++; *to = '\0'; } static char * makewhatisline(const char *file, const char *line, const char *section) { static const char *del[] = { " - ", " -- ", "- ", " -", NULL }; size_t i, pos; size_t llen, slen, dlen; char *result, *ptr; ptr = NULL; if (section == NULL) { if (dowarn) warnx("%s: No section provided for `%s'", file, line); return estrdup(line); } for (i = 0; del[i]; i++) if ((ptr = strstr(line, del[i])) != NULL) break; if (del[i] == NULL) { if (dowarn) warnx("%s: Bad format line `%s'", file, line); return estrdup(line); } slen = strlen(section); llen = strlen(line); dlen = strlen(del[i]); result = emalloc(llen - dlen + slen + 1); pos = ptr - line; (void)memcpy(result, line, pos); (void)memcpy(&result[pos], section, slen); (void)strcpy(&result[pos + slen], &line[pos + dlen]); return result; } static char * parsecatpage(const char *name, gzFile in) { char buffer[8192]; char *section, *ptr, *last; size_t size; do { if (GetS(in, buffer, sizeof(buffer)) == NULL) return NULL; } while (buffer[0] == '\n'); section = NULL; if ((ptr = strchr(buffer, '(')) != NULL) { if ((last = strchr(ptr + 1, ')')) !=NULL) { size_t length; length = last - ptr + 1; section = emalloc(length + 5); *section = ' '; (void) memcpy(section + 1, ptr, length); (void) strcpy(section + 1 + length, " - "); } } for (;;) { if (GetS(in, buffer, sizeof(buffer)) == NULL) { free(section); return NULL; } catpreprocess(buffer); if (strncmp(buffer, "NAME", 4) == 0) break; } if (section == NULL) section = makesection(pathnamesection("/cat", name)); ptr = last = buffer; size = sizeof(buffer) - 1; while ((size > 0) && (GetS(in, ptr, size) != NULL)) { int length; catpreprocess(ptr); length = strlen(ptr); if (length == 0) { *last = '\0'; ptr = makewhatisline(name, buffer, section); free(section); return ptr; } if ((length > 1) && (ptr[length - 1] == '-') && ISALPHA(ptr[length - 2])) last = &ptr[--length]; else { last = &ptr[length++]; *last = ' '; } ptr += length; size -= length; } free(section); return NULL; } static int manpreprocess(char *line) { char *from, *to; to = from = line; while (ISSPACE(*from)) from++; if (strncmp(from, ".\\\"", 3) == 0) return 1; while (*from != '\0') if (ISSPACE(*from)) { while (ISSPACE(*++from)); if ((*from != '\0') && (*from != ',')) *to++ = ' '; } else if (*from == '\\') { switch (*++from) { case '\0': case '-': break; case 'f': case 's': from++; if ((*from=='+') || (*from=='-')) from++; while (ISDIGIT(*from)) from++; break; default: from++; } } else { if (*from == '"') from++; else *to++ = *from++; } *to = '\0'; if (strncasecmp(line, ".Xr", 3) == 0) { char *sect; from = line + 3; if (ISSPACE(*from)) from++; if ((sect = findwhitespace(from)) != NULL) { size_t length; char *trail; *sect++ = '\0'; if ((trail = findwhitespace(sect)) != NULL) *trail++ = '\0'; length = strlen(from); (void) memmove(line, from, length); line[length++] = '('; to = &line[length]; length = strlen(sect); (void) memmove(to, sect, length); if (trail == NULL) { (void) strcpy(&to[length], ")"); } else { to += length; *to++ = ')'; length = strlen(trail); (void) memmove(to, trail, length + 1); } } } return 0; } static char * nroff(const char *inname, gzFile in) { char tempname[MAXPATHLEN], buffer[65536], *data; int tempfd, bytes, pipefd[2], status; static int devnull = -1; pid_t child; if (gzrewind(in) < 0) err(EXIT_FAILURE, "Cannot rewind pipe"); if ((devnull < 0) && ((devnull = open(_PATH_DEVNULL, O_WRONLY, 0)) < 0)) err(EXIT_FAILURE, "Cannot open `/dev/null'"); (void)strlcpy(tempname, _PATH_TMP "makewhatis.XXXXXX", sizeof(tempname)); if ((tempfd = mkstemp(tempname)) == -1) err(EXIT_FAILURE, "Cannot create temp file"); while ((bytes = gzread(in, buffer, sizeof(buffer))) > 0) if (write(tempfd, buffer, (size_t)bytes) != bytes) { bytes = -1; break; } if (bytes < 0) { (void)close(tempfd); (void)unlink(tempname); err(EXIT_FAILURE, "Read from pipe failed"); } if (lseek(tempfd, (off_t)0, SEEK_SET) == (off_t)-1) { (void)close(tempfd); (void)unlink(tempname); err(EXIT_FAILURE, "Cannot rewind temp file"); } if (pipe(pipefd) == -1) { (void)close(tempfd); (void)unlink(tempname); err(EXIT_FAILURE, "Cannot create pipe"); } switch (child = vfork()) { case -1: (void)close(pipefd[1]); (void)close(pipefd[0]); (void)close(tempfd); (void)unlink(tempname); err(EXIT_FAILURE, "Fork failed"); /* NOTREACHED */ case 0: (void)close(pipefd[0]); if (tempfd != STDIN_FILENO) { (void)dup2(tempfd, STDIN_FILENO); (void)close(tempfd); } if (pipefd[1] != STDOUT_FILENO) { (void)dup2(pipefd[1], STDOUT_FILENO); (void)close(pipefd[1]); } if (devnull != STDERR_FILENO) { (void)dup2(devnull, STDERR_FILENO); (void)close(devnull); } (void)execlp(NROFF, NROFF, "-S", "-man", NULL); _exit(EXIT_FAILURE); /*NOTREACHED*/ default: (void)close(pipefd[1]); (void)close(tempfd); break; } if ((in = gzdopen(pipefd[0], "r")) == NULL) { if (errno == 0) errno = ENOMEM; (void)close(pipefd[0]); (void)kill(child, SIGTERM); while (waitpid(child, NULL, 0) != child); (void)unlink(tempname); err(EXIT_FAILURE, "Cannot read from pipe"); } data = parsecatpage(inname, in); while (gzread(in, buffer, sizeof(buffer)) > 0); (void)gzclose(in); while (waitpid(child, &status, 0) != child); if ((data != NULL) && !(WIFEXITED(status) && (WEXITSTATUS(status) == 0))) { free(data); errx(EXIT_FAILURE, NROFF " on `%s' exited with %d status", inname, WEXITSTATUS(status)); } (void)unlink(tempname); return data; } static char * parsemanpage(const char *name, gzFile in, int defaultsection) { char *section, buffer[8192], *ptr; static const char POD[] = ".\\\" Automatically generated by Pod"; static const char IX[] = ".IX TITLE"; section = NULL; do { if (GetS(in, buffer, sizeof(buffer) - 1) == NULL) { free(section); return NULL; } /* * Skip over lines in man pages that have been generated * by Pod, until we find the TITLE. */ if (strncasecmp(buffer, POD, sizeof(POD) - 1) == 0) { do { if (GetS(in, buffer, sizeof(buffer) - 1) == NULL) { free(section); return NULL; } } while (strncasecmp(buffer, IX, sizeof(IX) - 1) != 0); } if (manpreprocess(buffer)) continue; if (strncasecmp(buffer, ".Dt", 3) == 0) { char *end; ptr = &buffer[3]; if (ISSPACE(*ptr)) ptr++; if ((ptr = findwhitespace(ptr)) == NULL) continue; if ((end = findwhitespace(++ptr)) != NULL) *end = '\0'; free(section); section = createsectionstring(ptr); } else if (strncasecmp(buffer, ".TH", 3) == 0) { ptr = &buffer[3]; while (ISSPACE(*ptr)) ptr++; if ((ptr = findwhitespace(ptr)) != NULL) { char *next; while (ISSPACE(*ptr)) ptr++; if ((next = findwhitespace(ptr)) != NULL) *next = '\0'; free(section); section = createsectionstring(ptr); } } else if (strncasecmp(buffer, ".Ds", 3) == 0) { free(section); return NULL; } } while (strncasecmp(buffer, ".Sh NAME", 8) != 0); do { if (GetS(in, buffer, sizeof(buffer) - 1) == NULL) { free(section); return NULL; } } while (manpreprocess(buffer)); if (strncasecmp(buffer, ".Nm", 3) == 0) { size_t length, offset; ptr = &buffer[3]; while (ISSPACE(*ptr)) ptr++; length = strlen(ptr); if ((length > 1) && (ptr[length - 1] == ',') && ISSPACE(ptr[length - 2])) { ptr[--length] = '\0'; ptr[length - 1] = ','; } (void) memmove(buffer, ptr, length + 1); offset = length + 3; ptr = &buffer[offset]; for (;;) { size_t more; if ((sizeof(buffer) == offset) || (GetS(in, ptr, sizeof(buffer) - offset) == NULL)) { free(section); return NULL; } if (manpreprocess(ptr)) continue; if (strncasecmp(ptr, ".Nm", 3) != 0) break; ptr += 3; if (ISSPACE(*ptr)) ptr++; buffer[length++] = ' '; more = strlen(ptr); if ((more > 1) && (ptr[more - 1] == ',') && ISSPACE(ptr[more - 2])) { ptr[--more] = '\0'; ptr[more - 1] = ','; } (void) memmove(&buffer[length], ptr, more + 1); length += more; offset = length + 3; ptr = &buffer[offset]; } if (strncasecmp(ptr, ".Nd", 3) == 0) { (void) strlcpy(&buffer[length], " -", sizeof(buffer) - length); while (strncasecmp(ptr, ".Sh", 3) != 0) { int more; if (*ptr == '.') { char *space; if (strncasecmp(ptr, ".Nd", 3) != 0 || strchr(ptr, '[') != NULL) { free(section); return NULL; } space = findwhitespace(ptr); if (space == NULL) { ptr = ""; } else { space++; (void) strmove(ptr, space); } } if (*ptr != '\0') { buffer[offset - 1] = ' '; more = strlen(ptr) + 1; offset += more; } ptr = &buffer[offset]; if ((sizeof(buffer) == offset) || (GetS(in, ptr, sizeof(buffer) - offset) == NULL)) { free(section); return NULL; } if (manpreprocess(ptr)) *ptr = '\0'; } } } else { int offset; if (*buffer == '.') { char *space; if ((space = findwhitespace(&buffer[1])) == NULL) { free(section); return NULL; } space++; (void) strmove(buffer, space); } offset = strlen(buffer) + 1; for (;;) { int more; ptr = &buffer[offset]; if ((sizeof(buffer) == offset) || (GetS(in, ptr, sizeof(buffer) - offset) == NULL)) { free(section); return NULL; } if (manpreprocess(ptr) || (*ptr == '\0')) continue; if ((strncasecmp(ptr, ".Sh", 3) == 0) || (strncasecmp(ptr, ".Ss", 3) == 0)) break; if (*ptr == '.') { char *space; if ((space = findwhitespace(ptr)) == NULL) { continue; } space++; (void) memmove(ptr, space, strlen(space) + 1); } buffer[offset - 1] = ' '; more = strlen(ptr); if ((more > 1) && (ptr[more - 1] == ',') && ISSPACE(ptr[more - 2])) { ptr[more - 1] = '\0'; ptr[more - 2] = ','; } else more++; offset += more; } } if (section == NULL) section = makesection(defaultsection); ptr = makewhatisline(name, buffer, section); free(section); return ptr; } static char * getwhatisdata(char *name) { gzFile in; char *data; int section; if ((in = gzopen(name, "r")) == NULL) { if (errno == 0) errno = ENOMEM; err(EXIT_FAILURE, "Cannot open `%s'", name); /* NOTREACHED */ } section = manpagesection(name); if (section == 0) { data = parsecatpage(name, in); } else { data = parsemanpage(name, in, section); if (data == NULL) data = nroff(name, in); } (void) gzclose(in); return data; } static void processmanpages(manpage **source, whatis **dest) { manpage *mp; char sd[128]; mp = *source; *source = NULL; while (mp != NULL) { manpage *obsolete; char *data; if (mp->mp_left != NULL) processmanpages(&mp->mp_left, dest); if ((data = getwhatisdata(mp->mp_name)) != NULL) { /* Pass eventual directory prefix to addwhatis() */ if (mp->mp_sdlen > 0 && mp->mp_sdlen < sizeof(sd)-1) strlcpy(sd, &mp->mp_name[mp->mp_sdoff], mp->mp_sdlen); else sd[0] = '\0'; addwhatis(dest, data, sd); } obsolete = mp; mp = mp->mp_right; free(obsolete); } } static void dumpwhatis(FILE *out, whatis *tree) { while (tree != NULL) { if (tree->wi_left) dumpwhatis(out, tree->wi_left); if ((tree->wi_data[0] && fputs(tree->wi_prefix, out) == EOF) || (fputs(tree->wi_data, out) == EOF) || (fputc('\n', out) == EOF)) err(EXIT_FAILURE, "Write failed"); tree = tree->wi_right; } } src/libexec/rexecd004075500011300000175000000000001504273241000144045ustar00srcmastrnetbsdsrc/libexec/rexecd/CVS004075500011300000175000000000001504273251400150445ustar00srcmastrnetbsdsrc/libexec/rexecd/CVS/Root010064400011300000175000000000441504273241000157570ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/rexecd/CVS/Repository010064400011300000175000000000231504273241000172100ustar00srcmastrnetbsdsrc/libexec/rexecd src/libexec/rexecd/CVS/Entries010064400011300000175000000002551504273251400164560ustar00srcmastrnetbsd/Makefile/1.10/Mon Mar 16 02:24:56 2009//Tnetbsd-11 /rexecd.8/1.13/Mon Jul 3 21:35:49 2017//Tnetbsd-11 /rexecd.c/1.26/Sun Jul 20 01:09:07 2008//Tnetbsd-11 D/unit-tests//// src/libexec/rexecd/CVS/Tag010064400011300000175000000000131522207752300155520ustar00srcmastrnetbsdTnetbsd-11 src/libexec/rexecd/unit-tests004075500011300000175000000000001504273241000165235ustar00srcmastrnetbsdsrc/libexec/rexecd/unit-tests/CVS004075500011300000175000000000001504273241000171565ustar00srcmastrnetbsdsrc/libexec/rexecd/unit-tests/CVS/Root010064400011300000175000000000441504273241000200760ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/rexecd/unit-tests/CVS/Repository010064400011300000175000000000361504273241000213330ustar00srcmastrnetbsdsrc/libexec/rexecd/unit-tests src/libexec/rexecd/unit-tests/CVS/Entries010064400011300000175000000001471504273241000205700ustar00srcmastrnetbsd/Makefile/1.2/Mon Mar 16 02:24:56 2009//Tnetbsd-11 /rexec.c/1.4/Mon Apr 28 20:23:04 2008//Tnetbsd-11 D src/libexec/rexecd/unit-tests/CVS/Tag010064400011300000175000000000131522207752300176710ustar00srcmastrnetbsdTnetbsd-11 src/libexec/rexecd/unit-tests/Makefile010064400011300000175000000002211115733417000202360ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.2 2009/03/16 02:24:56 lukem Exp $ PROG= rexec NOMAN= yes LDADD+= -lcompat DPADD+= ${LIBCOMPAT} .include src/libexec/rexecd/unit-tests/rexec.c010064400011300000175000000053561100543105000200510ustar00srcmastrnetbsd/* $NetBSD: rexec.c,v 1.4 2008/04/28 20:23:04 martin Exp $ */ /*- * Copyright (c) 2005 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Christos Zoulas. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include __RCSID("$NetBSD: rexec.c,v 1.4 2008/04/28 20:23:04 martin Exp $"); #include #include #include #include #include static void usage(void) __dead; /*XXX*/ int rexec(char **, int, char *, char *, char *, int *); int main(int argc, char **argv) { int c, s; ssize_t nr; struct servent *sv; char *host = __UNCONST("localhost"); char *user = __UNCONST("root"); char *pass = __UNCONST("h@x0R"); char *cmd = __UNCONST("ls"); char line[BUFSIZ]; while ((c = getopt(argc, argv, "h:u:p:c:")) != -1) switch (c) { case 'h': host = optarg; break; case 'u': user = optarg; break; case 'p': pass = optarg; break; case 'c': cmd = optarg; break; default: usage(); } if ((sv = getservbyname("exec", "tcp")) == NULL) errx(1, "Cannot find service exec/tcp"); if ((s = rexec(&host, sv->s_port, user, pass, cmd, NULL)) == -1) return 1; while ((nr = read(s, line, sizeof(line))) > 0) (void)write(STDOUT_FILENO, line, nr); if (nr == -1) err(1, "read failed"); return 0; } static void usage(void) { (void)fprintf(stderr, "Usage: %s [-u ] [-p ]" "[-h ] [-c ]\n", getprogname()); exit(1); } src/libexec/rexecd/Makefile010064400011300000175000000005461115733417000161310ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.10 2009/03/16 02:24:56 lukem Exp $ # from @(#)Makefile 8.1 (Berkeley) 6/4/93 .include PROG= rexecd MAN= rexecd.8 .if ${USE_PAM} != "no" CPPFLAGS+= -DUSE_PAM -DPAM_DEBUG LDADD+= -lpam ${PAM_STATIC_LDADD} DPADD+= ${LIBPAM} ${PAM_STATIC_DPADD} .else LDADD+= -lcrypt DPADD+= ${LIBCRYPT} .endif .include src/libexec/rexecd/rexecd.8010064400011300000175000000115611312653426500160400ustar00srcmastrnetbsd.\" $NetBSD: rexecd.8,v 1.13 2017/07/03 21:35:49 wiz Exp $ .\" .\" Copyright (c) 1983, 1991, 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. Neither the name of the University nor the names of its contributors .\" may be used to endorse or promote products derived from this software .\" without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF .\" SUCH DAMAGE. .\" .\" from: @(#)rexecd.8 8.3 (Berkeley) 6/1/94 .\" .Dd June 1, 1994 .Dt REXECD 8 .Os .Sh NAME .Nm rexecd .Nd remote execution server .Sh SYNOPSIS .Nm .Sh DESCRIPTION .Nm is the server for the .Xr rexec 3 routine. The server provides remote execution facilities with authentication based on user names and passwords. .Pp .Nm listens for service requests at the port indicated in the ``exec'' service specification; see .Xr services 5 . When a service request is received the following protocol is initiated: .Bl -enum .It The server reads characters from the socket up to a NUL .Pq Ql \e0 byte. The resultant string is interpreted as an .Tn ASCII number, base 10. .It If the number received in step 1 is non-zero, it is interpreted as the port number of a secondary stream to be used for the .Em stderr . A second connection is then created to the specified port on the client's machine. .It A NUL terminated user name of at most 16 characters is retrieved on the initial socket. .It A NUL terminated, unencrypted password of at most 16 characters is retrieved on the initial socket. .It A NUL terminated command to be passed to a shell is retrieved on the initial socket. The length of the command is limited by the upper bound on the size of the system's argument list. .It .Nm then validates the user as is done at login time and, if the authentication was successful, changes to the user's home directory, and establishes the user and group protections of the user. If any of these steps fail the connection is aborted with a diagnostic message returned. .It A NUL byte is returned on the initial socket and the command line is passed to the normal login shell of the user. The shell inherits the network connections established by .Nm . .El .Sh DIAGNOSTICS Except for the last one listed below, all diagnostic messages are returned on the initial socket, after which any network connections are closed. An error is indicated by a leading byte with a value of 1 (0 is returned in step 7 above upon successful completion of all the steps prior to the command execution). .Pp .Bl -tag -width Ds .It Sy username too long The name is longer than 16 characters. .It Sy password too long The password is longer than 16 characters. .It Sy command too long The command line passed exceeds the size of the argument list (as configured into the system). .It Sy Login incorrect. No password file entry for the user name existed. .It Sy Password incorrect. The wrong password was supplied. .It Sy \&No remote directory. The .Xr chdir 2 to the home directory failed. .It Sy Try again. A .Xr fork 2 by the server failed. .It Sy : ... The user's login shell could not be started. This message is returned on the connection associated with the .Em stderr , and is not preceded by a flag byte. .El .Sh SEE ALSO .Xr rexec 3 .Sh HISTORY The .Nm command appeared in .Bx 4.2 . .Sh BUGS Indicating ``Login incorrect'' as opposed to ``Password incorrect'' is a security breach which allows people to probe a system for users with null passwords. .Pp A facility to allow all data and password exchanges to be encrypted should be present. .Sh SECURITY CONSIDERATIONS As the passwords exchanged by the client and .Nm are not encrypted, it is .Em strongly recommended that this service is not enabled. src/libexec/rexecd/rexecd.c010064400011300000175000000261171104051006300160750ustar00srcmastrnetbsd/* $NetBSD: rexecd.c,v 1.26 2008/07/20 01:09:07 lukem Exp $ */ /* * Copyright (c) 1983, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint __COPYRIGHT("@(#) Copyright (c) 1983, 1993\ The Regents of the University of California. All rights reserved."); #if 0 static char sccsid[] = "from: @(#)rexecd.c 8.1 (Berkeley) 6/4/93"; #else __RCSID("$NetBSD: rexecd.c,v 1.26 2008/07/20 01:09:07 lukem Exp $"); #endif #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #ifdef USE_PAM #include #include #endif int main(int, char *[]); static void rexecd_errx(int, const char *, ...) __attribute__((__noreturn__, __format__(__printf__, 2, 3))); static void doit(struct sockaddr *) __dead; static void getstr(char *, int, const char *); static void usage(void) __dead; #ifdef USE_PAM static pam_handle_t *pamh; static struct pam_conv pamc = { openpam_nullconv, NULL }; static int pam_flags = PAM_SILENT|PAM_DISALLOW_NULL_AUTHTOK; static int pam_err; #define pam_ok(err) ((pam_err = (err)) == PAM_SUCCESS) #endif extern char **environ; static int dolog; #ifndef USE_PAM static char username[32 + 1] = "USER="; static char logname[32 + 3 + 1] = "LOGNAME="; static char homedir[PATH_MAX + 1] = "HOME="; static char shell[PATH_MAX + 1] = "SHELL="; static char path[sizeof(_PATH_DEFPATH) + sizeof("PATH=")] = "PATH="; static char *envinit[] = { homedir, shell, path, username, logname, 0 }; #endif /* * remote execute server: * username\0 * password\0 * command\0 * data */ int main(int argc, char *argv[]) { struct sockaddr_storage from; socklen_t fromlen; int ch; while ((ch = getopt(argc, argv, "l")) != -1) switch (ch) { case 'l': dolog = 1; openlog("rexecd", LOG_PID, LOG_DAEMON); break; default: usage(); } fromlen = sizeof(from); if (getpeername(STDIN_FILENO, (struct sockaddr *)&from, &fromlen) < 0) err(EXIT_FAILURE, "getpeername"); if (((struct sockaddr *)&from)->sa_family == AF_INET6 && IN6_IS_ADDR_V4MAPPED(&((struct sockaddr_in6 *)&from)->sin6_addr)) { char hbuf[NI_MAXHOST]; if (getnameinfo((struct sockaddr *)&from, fromlen, hbuf, sizeof(hbuf), NULL, 0, NI_NUMERICHOST) != 0) { (void)strlcpy(hbuf, "invalid", sizeof(hbuf)); } if (dolog) syslog(LOG_ERR, "malformed \"from\" address (v4 mapped, %s)", hbuf); return EXIT_FAILURE; } doit((struct sockaddr *)&from); } void doit(struct sockaddr *fromp) { struct pollfd fds[2]; char cmdbuf[NCARGS + 1]; const char *cp; char user[16], pass[16]; char buf[BUFSIZ], sig; struct passwd *pwd, pwres; int s = -1; /* XXX gcc */ int pv[2], pid, cc; int one = 1; in_port_t port; char hostname[2 * MAXHOSTNAMELEN + 1]; char pbuf[NI_MAXSERV]; const int niflags = NI_NUMERICHOST | NI_NUMERICSERV; #ifndef USE_PAM char *namep; #endif char pwbuf[1024]; (void)signal(SIGINT, SIG_DFL); (void)signal(SIGQUIT, SIG_DFL); (void)signal(SIGTERM, SIG_DFL); (void)dup2(STDIN_FILENO, STDOUT_FILENO); (void)dup2(STDIN_FILENO, STDERR_FILENO); if (getnameinfo(fromp, fromp->sa_len, hostname, sizeof(hostname), pbuf, sizeof(pbuf), niflags) != 0) { if (dolog) syslog(LOG_ERR, "malformed \"from\" address (af %d)", fromp->sa_family); exit(EXIT_FAILURE); } (void)alarm(60); port = 0; for (;;) { char c; if (read(STDIN_FILENO, &c, 1) != 1) { if (dolog) syslog(LOG_ERR, "initial read failed"); exit(EXIT_FAILURE); } if (c == 0) break; port = port * 10 + c - '0'; } if (port != 0) { s = socket(fromp->sa_family, SOCK_STREAM, 0); if (s < 0) { if (dolog) syslog(LOG_ERR, "socket: %m"); exit(EXIT_FAILURE); } (void)alarm(60); switch (fromp->sa_family) { case AF_INET: ((struct sockaddr_in *)fromp)->sin_port = htons(port); break; case AF_INET6: ((struct sockaddr_in6 *)fromp)->sin6_port = htons(port); break; default: syslog(LOG_ERR, "unsupported address family"); exit(EXIT_FAILURE); } if (connect(s, (struct sockaddr *)fromp, fromp->sa_len) < 0) { if (dolog) syslog(LOG_ERR, "connect: %m"); exit(EXIT_FAILURE); } (void)alarm(0); } (void)alarm(60); getstr(user, sizeof(user), "username"); getstr(pass, sizeof(pass), "password"); getstr(cmdbuf, sizeof(cmdbuf), "command"); (void)alarm(0); if (getpwnam_r(user, &pwres, pwbuf, sizeof(pwbuf), &pwd) != 0 || pwd == NULL) { if (dolog) syslog(LOG_ERR, "no such user %s", user); rexecd_errx(EXIT_FAILURE, "Login incorrect."); } #ifdef USE_PAM if (!pam_ok(pam_start("rexecd", user, &pamc, &pamh)) || !pam_ok(pam_set_item(pamh, PAM_RHOST, hostname)) || !pam_ok(pam_set_item(pamh, PAM_AUTHTOK, pass))) { if (dolog) syslog(LOG_ERR, "PAM ERROR %s@%s (%s)", user, hostname, pam_strerror(pamh, pam_err)); rexecd_errx(EXIT_FAILURE, "Try again."); } if (!pam_ok(pam_authenticate(pamh, pam_flags)) || !pam_ok(pam_acct_mgmt(pamh, pam_flags))) { if (dolog) syslog(LOG_ERR, "LOGIN REFUSED for %s@%s (%s)", user, hostname, pam_strerror(pamh, pam_err)); rexecd_errx(EXIT_FAILURE, "Password incorrect."); } #else if (*pwd->pw_passwd != '\0') { namep = crypt(pass, pwd->pw_passwd); if (strcmp(namep, pwd->pw_passwd) != 0) { if (dolog) syslog(LOG_ERR, "incorrect password for %s", user); rexecd_errx(EXIT_FAILURE, "Password incorrect.");/* XXX: wrong! */ } } else (void)crypt("dummy password", "PA"); /* must always crypt */ #endif if (chdir(pwd->pw_dir) < 0) { if (dolog) syslog(LOG_ERR, "%s does not exist for %s", pwd->pw_dir, user); rexecd_errx(EXIT_FAILURE, "No remote directory."); } if (dolog) syslog(LOG_INFO, "login from %s as %s", hostname, user); (void)write(STDERR_FILENO, "\0", 1); if (port) { if (pipe(pv) < 0 || (pid = fork()) == -1) { if (dolog) syslog(LOG_ERR,"pipe or fork failed for %s: %m", user); rexecd_errx(EXIT_FAILURE, "Try again."); } if (pid) { /* parent */ #ifdef USE_PAM (void)pam_end(pamh, pam_err); #endif (void)close(STDIN_FILENO); (void)close(STDOUT_FILENO); (void)close(STDERR_FILENO); (void)close(pv[1]); fds[0].fd = s; fds[1].fd = pv[0]; fds[0].events = fds[1].events = POLLIN; if (ioctl(pv[1], FIONBIO, (char *)&one) < 0) _exit(1); /* should set s nbio! */ do { if (poll(fds, 2, 0) < 0) { (void)close(s); (void)close(pv[0]); _exit(1); } if (fds[0].revents & POLLIN) { if (read(s, &sig, 1) <= 0) fds[0].events = 0; else (void)killpg(pid, sig); } if (fds[1].revents & POLLIN) { cc = read(pv[0], buf, sizeof (buf)); if (cc <= 0) { (void)shutdown(s, SHUT_RDWR); fds[1].events = 0; } else (void)write(s, buf, cc); } } while ((fds[0].events | fds[1].events) & POLLIN); _exit(0); } /* child */ (void)close(s); (void)close(pv[0]); if (dup2(pv[1], STDERR_FILENO) < 0) { if (dolog) syslog(LOG_ERR, "dup2 failed for %s", user); rexecd_errx(EXIT_FAILURE, "Try again."); } } if (*pwd->pw_shell == '\0') pwd->pw_shell = __UNCONST(_PATH_BSHELL); if (setsid() < 0 || setlogin(pwd->pw_name) < 0 || initgroups(pwd->pw_name, pwd->pw_gid) < 0 || #ifdef USE_PAM setgid((gid_t)pwd->pw_gid) < 0) { #else setgid((gid_t)pwd->pw_gid) < 0 || setuid((uid_t)pwd->pw_uid) < 0) { #endif rexecd_errx(EXIT_FAILURE, "Try again."); if (dolog) syslog(LOG_ERR, "could not set permissions for %s: %m", user); exit(EXIT_FAILURE); } #ifdef USE_PAM if (!pam_ok(pam_setcred(pamh, PAM_ESTABLISH_CRED))) syslog(LOG_ERR, "pam_setcred() failed: %s", pam_strerror(pamh, pam_err)); (void)pam_setenv(pamh, "HOME", pwd->pw_dir, 1); (void)pam_setenv(pamh, "SHELL", pwd->pw_shell, 1); (void)pam_setenv(pamh, "USER", pwd->pw_name, 1); (void)pam_setenv(pamh, "LOGNAME", pwd->pw_name, 1); (void)pam_setenv(pamh, "PATH", _PATH_DEFPATH, 1); environ = pam_getenvlist(pamh); (void)pam_end(pamh, pam_err); if (setuid((uid_t)pwd->pw_uid) < 0) { if (dolog) syslog(LOG_ERR, "could not set uid for %s: %m", user); rexecd_errx(EXIT_FAILURE, "Try again."); } #else (void)strlcat(path, _PATH_DEFPATH, sizeof(path)); environ = envinit; (void)strlcat(homedir, pwd->pw_dir, sizeof(homedir)); (void)strlcat(shell, pwd->pw_shell, sizeof(shell)); (void)strlcat(username, pwd->pw_name, sizeof(username)); (void)strlcat(logname, pwd->pw_name, sizeof(logname)); #endif cp = strrchr(pwd->pw_shell, '/'); if (cp) cp++; else cp = pwd->pw_shell; if (dolog) syslog(LOG_INFO, "running command for %s: %s", user, cmdbuf); (void)execl(pwd->pw_shell, cp, "-c", cmdbuf, NULL); if (dolog) syslog(LOG_ERR, "execl failed for %s: %m", user); err(EXIT_FAILURE, "%s", pwd->pw_shell); } void rexecd_errx(int ex, const char *fmt, ...) { char buf[BUFSIZ]; va_list ap; ssize_t len; va_start(ap, fmt); buf[0] = 1; len = vsnprintf(buf + 1, sizeof(buf) - 1, fmt, ap) + 1; buf[len++] = '\n'; (void)write(STDERR_FILENO, buf, len); va_end(ap); exit(ex); } void getstr(char *buf, int cnt, const char *emsg) { char c; do { if (read(STDIN_FILENO, &c, 1) != 1) exit(EXIT_FAILURE); *buf++ = c; if (--cnt == 0) rexecd_errx(EXIT_FAILURE, "%s too long", emsg); } while (c != 0); } static void usage(void) { (void)fprintf(stderr, "Usage: %s [-l]\n", getprogname()); exit(EXIT_FAILURE); } src/libexec/rlogind004075500011300000175000000000001504273241000145705ustar00srcmastrnetbsdsrc/libexec/rlogind/CVS004075500011300000175000000000001504273241000152235ustar00srcmastrnetbsdsrc/libexec/rlogind/CVS/Root010064400011300000175000000000441504273241000161430ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/rlogind/CVS/Repository010064400011300000175000000000241504273241000173750ustar00srcmastrnetbsdsrc/libexec/rlogind src/libexec/rlogind/CVS/Entries010064400011300000175000000003261504273241000166340ustar00srcmastrnetbsd/Makefile/1.12/Mon Mar 16 02:24:56 2009//Tnetbsd-11 /pathnames.h/1.5/Thu Aug 7 09:46:47 2003//Tnetbsd-11 /rlogind.8/1.17/Sat Jul 17 18:33:23 2004//Tnetbsd-11 /rlogind.c/1.42/Sun Nov 4 21:35:45 2012//Tnetbsd-11 D src/libexec/rlogind/CVS/Tag010064400011300000175000000000131522207752300157360ustar00srcmastrnetbsdTnetbsd-11 src/libexec/rlogind/Makefile010064400011300000175000000004641115733417000163140ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.12 2009/03/16 02:24:56 lukem Exp $ # from: @(#)Makefile 8.1 (Berkeley) 6/4/93 .include PROG= rlogind MAN= rlogind.8 DPADD= ${LIBUTIL} LDADD= -lutil CPPFLAGS+= -DSUPPORT_UTMP -DSUPPORT_UTMPX .if (${USE_INET6} != "no") CPPFLAGS+= -DINET6 .endif .include src/libexec/rlogind/pathnames.h010064400011300000175000000033460771442000700170060ustar00srcmastrnetbsd/* $NetBSD: pathnames.h,v 1.5 2003/08/07 09:46:47 agc Exp $ */ /* * Copyright (c) 1989, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * * from: @(#)pathnames.h 8.1 (Berkeley) 6/4/93 */ #include #define _PATH_LOGIN "/usr/bin/login" src/libexec/rlogind/rlogind.8010064400011300000175000000134121007627036300164020ustar00srcmastrnetbsd.\" $NetBSD: rlogind.8,v 1.17 2004/07/17 18:33:23 wiz Exp $ .\" .\" Copyright (c) 1983, 1989, 1991, 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. Neither the name of the University nor the names of its contributors .\" may be used to endorse or promote products derived from this software .\" without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF .\" SUCH DAMAGE. .\" .\" from: @(#)rlogind.8 8.1 (Berkeley) 6/4/93 .\" .Dd July 17, 2004 .Dt RLOGIND 8 .Os .Sh NAME .Nm rlogind .Nd remote login server .Sh SYNOPSIS .Nm .Op Fl alnL .Sh DESCRIPTION .Nm is the server for the .Xr rlogin 1 program. The server provides a remote login facility with authentication based on privileged port numbers from trusted hosts. .Pp Options supported by .Nm : .Bl -tag -width Ds .It Fl a Ask hostname for verification. .It Fl l Prevent any authentication based on the user's .Dq Pa .rhosts file, unless the user is logging in as the superuser. .It Fl n Disable keep-alive messages. .It Fl L Log all successful accesses to .Xr syslogd 8 as .Li auth.info messages. .El .Pp .Nm listens for service requests at the port indicated in the ``login'' service specification; see .Xr services 5 . When a service request is received the following protocol is initiated: .Bl -enum .It The server checks the client's source port. If the port is not in the range 512-1023, the server aborts the connection. .It The server checks the client's source address and requests the corresponding host name (see .Xr getnameinfo 3 , .Xr hosts 5 and .Xr named 8 ) . If the hostname cannot be determined, the dot-notation representation of the host address is used. If the hostname is in the same domain as the server (according to the last two components of the domain name), or if the .Fl a option is given, the addresses for the hostname are requested, verifying that the name and address correspond. Normal authentication is bypassed if the address verification fails. .El .Pp Once the source port and address have been checked, .Nm proceeds with the authentication process described in .Xr rshd 8 . It then allocates a pseudo terminal (see .Xr pty 4 ) , and manipulates file descriptors so that the slave half of the pseudo terminal becomes the .Em stdin , .Em stdout , and .Em stderr for a login process. The login process is an instance of the .Xr login 1 program, invoked with the .Fl f option if authentication has succeeded. If automatic authentication fails, the user is prompted to log in as if on a standard terminal line. .Pp The parent of the login process manipulates the master side of the pseudo terminal, operating as an intermediary between the login process and the client instance of the .Xr rlogin 1 program. In normal operation, the packet protocol described in .Xr pty 4 is invoked to provide .Ql ^S/^Q type facilities and propagate interrupt signals to the remote programs. The login process propagates the client terminal's baud rate and terminal type, as found in the environment variable, .Ql Ev TERM ; see .Xr environ 7 . The screen or window size of the terminal is requested from the client, and window size changes from the client are propagated to the pseudo terminal. .Pp Transport-level keepalive messages are enabled unless the .Fl n option is present. The use of keepalive messages allows sessions to be timed out if the client crashes or becomes unreachable. .Pp At the end of a login session, .Nm invokes the .Xr ttyaction 3 facility with an action of "rlogind" and user "root" to execute site-specific commands. .Sh DIAGNOSTICS All initial diagnostic messages are indicated by a leading byte with a value of 1, after which any network connections are closed. If there are no errors before .Xr login 1 is invoked, a null byte is returned as in indication of success. .Bl -tag -width Ds .It Sy Try again. A .Xr fork 2 by the server failed. .El .Sh SEE ALSO .Xr login 1 , .Xr ruserok 3 , .Xr ttyaction 3 , .Xr rshd 8 .Sh HISTORY The .Nm command appeared in .Bx 4.2 . .Sh BUGS The authentication procedure used here assumes the integrity of each client machine and the connecting medium. This is insecure, but is useful in an ``open'' environment. .Pp A facility to allow all data exchanges to be encrypted should be present. .Pp A more extensible protocol should be used. .Pp .Nm intentionally rejects accesses from IPv4 mapped address on top of .Dv AF_INET6 socket, since IPv4 mapped address complicates host-address based authentication. If you would like to accept connections from IPv4 peers, you will need to run .Nm on top of .Dv AF_INET socket, not .Dv AF_INET6 socket. src/libexec/rlogind/rlogind.c010064400011300000175000000454121204555766100164710ustar00srcmastrnetbsd/* $NetBSD: rlogind.c,v 1.42 2012/11/04 21:35:45 christos Exp $ */ /* * Copyright (C) 1998 WIDE Project. * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by WIDE Project and * its contributors. * 4. Neither the name of the project nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ /*- * Copyright (c) 1983, 1988, 1989, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint __COPYRIGHT("@(#) Copyright (c) 1983, 1988, 1989, 1993\ The Regents of the University of California. All rights reserved."); #if 0 static char sccsid[] = "@(#)rlogind.c 8.2 (Berkeley) 4/28/95"; #else __RCSID("$NetBSD: rlogind.c,v 1.42 2012/11/04 21:35:45 christos Exp $"); #endif #endif /* not lint */ /* * remote login server: * \0 * remuser\0 * locuser\0 * terminal_type/speed\0 * data */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #ifdef SUPPORT_UTMPX #include #endif #include #include "pathnames.h" #ifndef TIOCPKT_WINDOW #define TIOCPKT_WINDOW 0x80 #endif #define OPTIONS "alnL" static char *env[2]; #define NMAX 30 static char lusername[NMAX+1], rusername[NMAX+1]; static char term[64] = "TERM="; #define ENVSIZE (sizeof("TERM=")-1) /* skip null for concatenation */ static int keepalive = 1; static int check_all = 0; static int log_success = 0; static struct passwd *pwd; __dead static void doit(int, struct sockaddr_storage *); static int control(int, char *, int); static void protocol(int, int); __dead static void cleanup(int); __dead static void fatal(int, const char *, int); static int do_rlogin(struct sockaddr *, char *); static void getstr(char *, int, const char *); static void setup_term(int); #if 0 static int do_krb_login(union sockunion *); #endif __dead static void usage(void); static int local_domain(char *); static char *topdomain(char *); extern int __check_rhosts_file; extern char *__rcmd_errstr; /* syslog hook from libc/net/rcmd.c */ extern char **environ; int main(int argc, char *argv[]) { struct sockaddr_storage from; int ch, on; socklen_t fromlen = sizeof(from); openlog("rlogind", LOG_PID, LOG_AUTH); opterr = 0; while ((ch = getopt(argc, argv, OPTIONS)) != -1) switch (ch) { case 'a': check_all = 1; break; case 'l': __check_rhosts_file = 0; break; case 'n': keepalive = 0; break; case 'L': log_success = 1; break; case '?': default: usage(); break; } argc -= optind; argv += optind; if (getpeername(0, (struct sockaddr *)&from, &fromlen) < 0) { syslog(LOG_ERR,"Can't get peer name of remote host: %m"); fatal(STDERR_FILENO, "Can't get peer name of remote host", 1); } #ifdef INET6 if (from.ss_family == AF_INET6 && IN6_IS_ADDR_V4MAPPED(&((struct sockaddr_in6 *)&from)->sin6_addr) && sizeof(struct sockaddr_in) <= sizeof(from)) { struct sockaddr_in sin4; struct sockaddr_in6 *sin6; const int off = sizeof(struct sockaddr_in6) - sizeof(struct sockaddr_in); sin6 = (struct sockaddr_in6 *)&from; memset(&sin4, 0, sizeof(sin4)); sin4.sin_family = AF_INET; sin4.sin_len = sizeof(struct sockaddr_in); memcpy(&sin4.sin_addr, &sin6->sin6_addr.s6_addr[off], sizeof(sin4.sin_addr)); memcpy(&from, &sin4, sizeof(sin4)); } #else if (from.ss_family == AF_INET6 && IN6_IS_ADDR_V4MAPPED(&((struct sockaddr_in6 *)&from)->sin6_addr)) { char hbuf[NI_MAXHOST]; if (getnameinfo((struct sockaddr *)&from, fromlen, hbuf, sizeof(hbuf), NULL, 0, NI_NUMERICHOST) != 0) { strlcpy(hbuf, "invalid", sizeof(hbuf)); } syslog(LOG_ERR, "malformed \"from\" address (v4 mapped, %s)\n", hbuf); exit(1); } #endif on = 1; if (keepalive && setsockopt(0, SOL_SOCKET, SO_KEEPALIVE, &on, sizeof (on)) < 0) syslog(LOG_WARNING, "setsockopt (SO_KEEPALIVE): %m"); #if defined(IP_TOS) if (from.ss_family == AF_INET) { on = IPTOS_LOWDELAY; if (setsockopt(0, IPPROTO_IP, IP_TOS, (char *)&on, sizeof(int)) < 0) syslog(LOG_WARNING, "setsockopt (IP_TOS): %m"); } #endif doit(0, &from); /* NOTREACHED */ #ifdef __GNUC__ exit(0); #endif } static int netf; static char line[MAXPATHLEN]; static int confirmed; static struct winsize win = { 0, 0, 0, 0 }; static void doit(int f, struct sockaddr_storage *fromp) { int master, pid, on = 1; int authenticated = 0; char *hostname; char hostnamebuf[2 * MAXHOSTNAMELEN + 1]; char hostaddrbuf[sizeof(*fromp) * 4 + 1]; char c; char naddr[NI_MAXHOST]; char saddr[NI_MAXHOST]; char raddr[NI_MAXHOST]; int af = fromp->ss_family; u_int16_t *portp; struct addrinfo hints, *res, *res0; int gaierror; socklen_t fromlen = fromp->ss_len > sizeof(*fromp) ? sizeof(*fromp) : fromp->ss_len; const int niflags = NI_NUMERICHOST | NI_NUMERICSERV; alarm(60); read(f, &c, 1); if (c != 0) exit(1); alarm(0); switch (af) { case AF_INET: portp = &((struct sockaddr_in *)fromp)->sin_port; break; #ifdef INET6 case AF_INET6: portp = &((struct sockaddr_in6 *)fromp)->sin6_port; break; #endif default: syslog(LOG_ERR, "malformed \"from\" address (af %d)\n", af); exit(1); } if (getnameinfo((struct sockaddr *)fromp, fromlen, naddr, sizeof(naddr), NULL, 0, niflags) != 0) { syslog(LOG_ERR, "malformed \"from\" address (af %d)\n", af); exit(1); } if (getnameinfo((struct sockaddr *)fromp, fromlen, saddr, sizeof(saddr), NULL, 0, NI_NAMEREQD) == 0) { /* * If name returned by getnameinfo is in our domain, * attempt to verify that we haven't been fooled by someone * in a remote net; look up the name and check that this * address corresponds to the name. */ hostname = saddr; res0 = NULL; if (check_all || local_domain(saddr)) { strlcpy(hostnamebuf, saddr, sizeof(hostnamebuf)); memset(&hints, 0, sizeof(hints)); hints.ai_family = fromp->ss_family; hints.ai_socktype = SOCK_STREAM; hints.ai_flags = AI_CANONNAME; gaierror = getaddrinfo(hostnamebuf, "0", &hints, &res0); if (gaierror) { syslog(LOG_NOTICE, "Couldn't look up address for %s: %s", hostnamebuf, gai_strerror(gaierror)); hostname = naddr; } else { for (res = res0; res; res = res->ai_next) { if (res->ai_family != fromp->ss_family) continue; if (res->ai_addrlen != fromp->ss_len) continue; if (getnameinfo(res->ai_addr, res->ai_addrlen, raddr, sizeof(raddr), NULL, 0, niflags) == 0 && strcmp(naddr, raddr) == 0) { hostname = res->ai_canonname ? res->ai_canonname : saddr; break; } } if (res == NULL) { syslog(LOG_NOTICE, "Host addr %s not listed for host %s", naddr, res0->ai_canonname ? res0->ai_canonname : saddr); hostname = naddr; } } } strlcpy(hostnamebuf, hostname, sizeof(hostnamebuf)); hostname = hostnamebuf; if (res0) freeaddrinfo(res0); } else { strlcpy(hostnamebuf, naddr, sizeof(hostnamebuf)); hostname = hostnamebuf; } if (ntohs(*portp) >= IPPORT_RESERVED || ntohs(*portp) < IPPORT_RESERVED/2) { syslog(LOG_NOTICE, "Connection from %s on illegal port", naddr); fatal(f, "Permission denied", 0); } #ifdef IP_OPTIONS if (fromp->ss_family == AF_INET) { u_char optbuf[BUFSIZ/3], *cp; char lbuf[BUFSIZ], *lp, *ep; socklen_t optsize = sizeof(optbuf); int ipproto; struct protoent *ip; if ((ip = getprotobyname("ip")) != NULL) ipproto = ip->p_proto; else ipproto = IPPROTO_IP; if (getsockopt(0, ipproto, IP_OPTIONS, (char *)optbuf, &optsize) == 0 && optsize != 0) { lp = lbuf; ep = lbuf + sizeof(lbuf); for (cp = optbuf; optsize > 0; cp++, optsize--, lp += 3) snprintf(lp, ep - lp, " %2.2x", *cp); syslog(LOG_NOTICE, "Connection received using IP options (ignored):%s", lbuf); if (setsockopt(0, ipproto, IP_OPTIONS, NULL, optsize) != 0) { syslog(LOG_ERR, "setsockopt IP_OPTIONS NULL: %m"); exit(1); } } } #endif if (do_rlogin((struct sockaddr *)fromp, hostname) == 0) authenticated++; if (confirmed == 0) { write(f, "", 1); confirmed = 1; /* we sent the null! */ } netf = f; pid = forkpty(&master, line, NULL, &win); if (pid < 0) { if (errno == ENOENT) fatal(f, "Out of ptys", 0); else fatal(f, "Forkpty", 1); } if (pid == 0) { if (f > 2) /* f should always be 0, but... */ (void) close(f); setup_term(0); (void)strvisx(hostaddrbuf, (const char *)(const void *)fromp, sizeof(*fromp), VIS_WHITE); if (authenticated) execl(_PATH_LOGIN, "login", "-p", "-h", hostname, "-a", hostaddrbuf, "-f", "--", lusername, (char *)0); else execl(_PATH_LOGIN, "login", "-p", "-h", hostname, "-a", hostaddrbuf, "--", lusername, (char *)0); fatal(STDERR_FILENO, _PATH_LOGIN, 1); /*NOTREACHED*/ } ioctl(f, FIONBIO, &on); ioctl(master, FIONBIO, &on); ioctl(master, TIOCPKT, &on); signal(SIGCHLD, cleanup); protocol(f, master); signal(SIGCHLD, SIG_IGN); cleanup(0); } static char magic[2] = { 0377, 0377 }; static char oobdata[] = {TIOCPKT_WINDOW}; /* * Handle a "control" request (signaled by magic being present) * in the data stream. For now, we are only willing to handle * window size changes. */ static int control(int pty, char *cp, int n) { struct winsize w; if (n < (int)(4+sizeof (w)) || cp[2] != 's' || cp[3] != 's') return (0); oobdata[0] &= ~TIOCPKT_WINDOW; /* we know he heard */ memmove(&w, cp+4, sizeof(w)); w.ws_row = ntohs(w.ws_row); w.ws_col = ntohs(w.ws_col); w.ws_xpixel = ntohs(w.ws_xpixel); w.ws_ypixel = ntohs(w.ws_ypixel); (void)ioctl(pty, TIOCSWINSZ, &w); return (4+sizeof (w)); } /* * rlogin "protocol" machine. */ static void protocol(int f, int p) { char pibuf[1024+1], fibuf[1024], *pbp = NULL, *fbp = NULL; /* XXX gcc above */ int pcc = 0, fcc = 0; int cc, nfd; char cntl; struct pollfd set[2]; /* * Must ignore SIGTTOU, otherwise we'll stop * when we try and set slave pty's window shape * (our controlling tty is the master pty). */ (void) signal(SIGTTOU, SIG_IGN); send(f, oobdata, 1, MSG_OOB); /* indicate new rlogin */ set[0].fd = p; set[1].fd = f; for (;;) { set[0].events = POLLPRI; set[1].events = 0; if (fcc) set[0].events |= POLLOUT; else set[1].events |= POLLIN; if (pcc >= 0) { if (pcc) set[1].events |= POLLOUT; else set[0].events |= POLLIN; } if ((nfd = poll(set, 2, INFTIM)) < 0) { if (errno == EINTR) continue; fatal(f, "poll", 1); } if (nfd == 0) { /* shouldn't happen... */ sleep(5); continue; } #define pkcontrol(c) ((c)&(TIOCPKT_FLUSHWRITE|TIOCPKT_NOSTOP|TIOCPKT_DOSTOP)) if (set[0].revents & POLLPRI) { cc = read(p, &cntl, 1); if (cc == 1 && pkcontrol(cntl)) { cntl |= oobdata[0]; send(f, &cntl, 1, MSG_OOB); if (cntl & TIOCPKT_FLUSHWRITE) pcc = 0; } } if (set[1].revents & POLLIN) { fcc = read(f, fibuf, sizeof(fibuf)); if (fcc < 0 && errno == EWOULDBLOCK) fcc = 0; else { char *cp; int left, n; if (fcc <= 0) break; fbp = fibuf; top: for (cp = fibuf; cp < fibuf+fcc-1; cp++) if (cp[0] == magic[0] && cp[1] == magic[1]) { left = fcc - (cp-fibuf); n = control(p, cp, left); if (n) { left -= n; if (left > 0) memmove(cp, cp+n, left); fcc -= n; goto top; /* n^2 */ } } } } if (set[0].revents & POLLOUT && fcc > 0) { cc = write(p, fbp, fcc); if (cc > 0) { fcc -= cc; fbp += cc; } } if (set[0].revents & POLLIN) { pcc = read(p, pibuf, sizeof (pibuf)); pbp = pibuf; if (pcc < 0 && errno == EWOULDBLOCK) pcc = 0; else if (pcc <= 0) break; else if (pibuf[0] == 0) { pbp++, pcc--; } else { if (pkcontrol(pibuf[0])) { pibuf[0] |= oobdata[0]; send(f, &pibuf[0], 1, MSG_OOB); } pcc = 0; } } if (set[1].revents & POLLOUT && pcc > 0) { cc = write(f, pbp, pcc); if (cc > 0) { pcc -= cc; pbp += cc; } } } } static void cleanup(int signo) { char *p, c; p = line + sizeof(_PATH_DEV) - 1; #ifdef SUPPORT_UTMP if (logout(p)) logwtmp(p, "", ""); #endif #ifdef SUPPORT_UTMPX if (logoutx(p, 0, DEAD_PROCESS)) logwtmpx(p, "", "", 0, DEAD_PROCESS); #endif (void)chmod(line, 0666); (void)chown(line, 0, 0); c = *p; *p = 'p'; (void)chmod(line, 0666); (void)chown(line, 0, 0); *p = c; if (ttyaction(line, "rlogind", "root")) syslog(LOG_ERR, "%s: ttyaction failed", line); shutdown(netf, 2); exit(1); } static void fatal(int f, const char *msg, int syserr) { int len; char buf[BUFSIZ], *bp, *ep; bp = buf; ep = buf + sizeof(buf); /* * Prepend binary one to message if we haven't sent * the magic null as confirmation. */ if (!confirmed) *bp++ = '\001'; /* error indicator */ if (syserr) len = snprintf(bp, ep - bp, "rlogind: %s: %s.\r\n", msg, strerror(errno)); else len = snprintf(bp, ep - bp, "rlogind: %s.\r\n", msg); (void) write(f, buf, bp + len - buf); exit(1); } static int do_rlogin(struct sockaddr *dest, char *host) { int retval; getstr(rusername, sizeof(rusername), "remuser too long"); getstr(lusername, sizeof(lusername), "locuser too long"); getstr(term+ENVSIZE, sizeof(term)-ENVSIZE, "Terminal type too long"); pwd = getpwnam(lusername); if (pwd == NULL) { syslog(LOG_INFO, "%s@%s as %s: unknown login.", rusername, host, lusername); return (-1); } retval = iruserok_sa(dest, dest->sa_len, pwd->pw_uid == 0, rusername, lusername); /* XXX put inet_ntoa(dest->sin_addr.s_addr) into all messages below */ if (retval == 0) { if (log_success) syslog(LOG_INFO, "%s@%s as %s: iruserok succeeded", rusername, host, lusername); } else { if (__rcmd_errstr) syslog(LOG_INFO, "%s@%s as %s: iruserok failed (%s)", rusername, host, lusername, __rcmd_errstr); else syslog(LOG_INFO, "%s@%s as %s: iruserok failed", rusername, host, lusername); } return(retval); } static void getstr(char *buf, int cnt, const char *errmsg) { char c; do { if (read(0, &c, 1) != 1) exit(1); if (--cnt < 0) fatal(STDOUT_FILENO, errmsg, 0); *buf++ = c; } while (c != 0); } static void setup_term(int fd) { char *cp = index(term+ENVSIZE, '/'); char *speed; struct termios tt; #ifndef notyet tcgetattr(fd, &tt); if (cp) { *cp++ = '\0'; speed = cp; cp = index(speed, '/'); if (cp) *cp++ = '\0'; cfsetspeed(&tt, atoi(speed)); } tt.c_iflag = TTYDEF_IFLAG; tt.c_oflag = TTYDEF_OFLAG; tt.c_lflag = TTYDEF_LFLAG; tcsetattr(fd, TCSAFLUSH, &tt); #else if (cp) { *cp++ = '\0'; speed = cp; cp = index(speed, '/'); if (cp) *cp++ = '\0'; tcgetattr(fd, &tt); cfsetspeed(&tt, atoi(speed)); tcsetattr(fd, TCSAFLUSH, &tt); } #endif env[0] = term; env[1] = 0; environ = env; } static void usage(void) { syslog(LOG_ERR, "usage: rlogind [-alnL]"); exit(1); } /* * Check whether host h is in our local domain, * defined as sharing the last two components of the domain part, * or the entire domain part if the local domain has only one component. * If either name is unqualified (contains no '.'), * assume that the host is local, as it will be * interpreted as such. */ static int local_domain(char *h) { char localhost[MAXHOSTNAMELEN + 1]; char *p1, *p2; localhost[0] = 0; (void) gethostname(localhost, sizeof(localhost)); localhost[sizeof(localhost) - 1] = '\0'; p1 = topdomain(localhost); p2 = topdomain(h); if (p1 == NULL || p2 == NULL || !strcasecmp(p1, p2)) return (1); return (0); } static char * topdomain(char *h) { char *p; char *maybe = NULL; int dots = 0; for (p = h + strlen(h); p >= h; p--) { if (*p == '.') { if (++dots == 2) return (p); maybe = p; } } return (maybe); } src/libexec/rpc.rquotad004075500011300000175000000000001504273241000153745ustar00srcmastrnetbsdsrc/libexec/rpc.rquotad/CVS004075500011300000175000000000001504273241000160275ustar00srcmastrnetbsdsrc/libexec/rpc.rquotad/CVS/Root010064400011300000175000000000441504273241000167470ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/rpc.rquotad/CVS/Repository010064400011300000175000000000301504273241000201760ustar00srcmastrnetbsdsrc/libexec/rpc.rquotad src/libexec/rpc.rquotad/CVS/Entries010064400011300000175000000002431504273241000174360ustar00srcmastrnetbsd/Makefile/1.11/Sat Jun 3 09:09:11 2023//Tnetbsd-11 /rpc.rquotad.8/1.9/Wed Dec 10 12:06:25 2003//Tnetbsd-11 /rquotad.c/1.33/Tue Mar 18 11:00:20 2014//Tnetbsd-11 D src/libexec/rpc.rquotad/CVS/Tag010064400011300000175000000000131522207752300165420ustar00srcmastrnetbsdTnetbsd-11 src/libexec/rpc.rquotad/Makefile010064400011300000175000000004551443660146700171310ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.11 2023/06/03 09:09:11 lukem Exp $ .include PROG = rpc.rquotad SRCS = rquotad.c MAN = rpc.rquotad.8 MLINKS = rpc.rquotad.8 rquotad.8 DPADD= ${LIBQUOTA} ${LIBRPCSVC} LDADD= -lquota -lrpcsvc COPTS.rquotad.c+= ${CC_WNO_CAST_FUNCTION_TYPE} .include src/libexec/rpc.rquotad/rpc.rquotad.8010064400011300000175000000035610776560610100200220ustar00srcmastrnetbsd.\" $NetBSD: rpc.rquotad.8,v 1.9 2003/12/10 12:06:25 agc Exp $ .\" .\" Copyright (c) 1994 Theo de Raadt .\" All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" .\" THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR .\" IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES .\" OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. .\" IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, .\" INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT .\" NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, .\" DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY .\" THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT .\" (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF .\" THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .\" .Dd June 22, 1994 .Dt RPC.RQUOTAD 8 .Os .Sh NAME .Nm rpc.rquotad , .Nm rquotad .Nd remote quota server .Sh SYNOPSIS .Nm /usr/libexec/rpc.rquotad .Sh DESCRIPTION .Nm is a .Xr rpc 3 server which returns quotas for a user of a local filesystem which is NFS-mounted onto a remote machine. .Xr quota 1 uses the results to display user quotas for remote filesystems. .Nm is normally invoked by .Xr inetd 8 . .Pp .Nm uses an RPC protocol defined in .Pa /usr/include/rpcsvc/rquota.x . .Sh SEE ALSO .Xr quota 1 src/libexec/rpc.rquotad/rquotad.c010064400011300000175000000153771231202350400173020ustar00srcmastrnetbsd/* $NetBSD: rquotad.c,v 1.33 2014/03/18 11:00:20 gson Exp $ */ /* * by Manuel Bouyer (bouyer@ensta.fr). Public domain. */ #include #ifndef lint __RCSID("$NetBSD: rquotad.c,v 1.33 2014/03/18 11:00:20 gson Exp $"); #endif #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include static void rquota_service(struct svc_req *request, SVCXPRT *transp); static void ext_rquota_service(struct svc_req *request, SVCXPRT *transp); static void sendquota(struct svc_req *request, int vers, SVCXPRT *transp); __dead static void cleanup(int); static int from_inetd = 1; static void cleanup(int dummy) { (void)rpcb_unset(RQUOTAPROG, RQUOTAVERS, NULL); (void)rpcb_unset(RQUOTAPROG, EXT_RQUOTAVERS, NULL); exit(0); } int main(int argc, char *argv[]) { SVCXPRT *transp; struct sockaddr_storage from; socklen_t fromlen; fromlen = sizeof(from); if (getsockname(0, (struct sockaddr *)&from, &fromlen) < 0) from_inetd = 0; if (!from_inetd) { (void) rpcb_unset(RQUOTAPROG, RQUOTAVERS, NULL); (void) rpcb_unset(RQUOTAPROG, EXT_RQUOTAVERS, NULL); } openlog("rpc.rquotad", LOG_PID, LOG_DAEMON); /* create and register the service */ if (from_inetd) { transp = svc_dg_create(0, 0, 0); if (transp == NULL) { syslog(LOG_ERR, "couldn't create udp service."); exit(1); } if (!svc_reg(transp, RQUOTAPROG, RQUOTAVERS, rquota_service, NULL)) { syslog(LOG_ERR, "unable to register (RQUOTAPROG, RQUOTAVERS)."); exit(1); } if (!svc_reg(transp, RQUOTAPROG, EXT_RQUOTAVERS, ext_rquota_service, NULL)) { syslog(LOG_ERR, "unable to register (RQUOTAPROG, EXT_RQUOTAVERS)."); exit(1); } } else { if (!svc_create(rquota_service, RQUOTAPROG, RQUOTAVERS, "udp")){ syslog(LOG_ERR, "unable to create (RQUOTAPROG, RQUOTAVERS)."); exit(1); } if (!svc_create(ext_rquota_service, RQUOTAPROG, EXT_RQUOTAVERS, "udp")){ syslog(LOG_ERR, "unable to create (RQUOTAPROG, EXT_RQUOTAVERS)."); exit(1); } } if (!from_inetd) { daemon(0, 0); (void) signal(SIGINT, cleanup); (void) signal(SIGTERM, cleanup); (void) signal(SIGHUP, cleanup); } svc_run(); syslog(LOG_ERR, "svc_run returned"); exit(1); } static void rquota_service(struct svc_req *request, SVCXPRT *transp) { switch (request->rq_proc) { case NULLPROC: (void)svc_sendreply(transp, (xdrproc_t)xdr_void, NULL); break; case RQUOTAPROC_GETQUOTA: case RQUOTAPROC_GETACTIVEQUOTA: sendquota(request, RQUOTAVERS, transp); break; default: svcerr_noproc(transp); break; } if (from_inetd) exit(0); } static void ext_rquota_service(struct svc_req *request, SVCXPRT *transp) { switch (request->rq_proc) { case NULLPROC: (void)svc_sendreply(transp, (xdrproc_t)xdr_void, NULL); break; case RQUOTAPROC_GETQUOTA: case RQUOTAPROC_GETACTIVEQUOTA: sendquota(request, EXT_RQUOTAVERS, transp); break; default: svcerr_noproc(transp); break; } if (from_inetd) exit(0); } /* * Convert a limit to rquota representation (where 0 == unlimited). * Clamp the result into a uint32_t. */ static uint32_t limit_to_rquota(uint64_t lim) { if (lim == QUOTA_NOLIMIT || lim > 0xfffffffeUL) return 0; else return (lim + 1); } /* * Convert a time to rquota representation. */ static uint32_t time_to_rquota(time_t when, time_t now) { if (when == QUOTA_NOTIME) { return 0; } else { return when - now; } } /* * Convert to rquota representation. */ static void quotavals_to_rquota(const struct quotaval *blocks, const struct quotaval *files, struct rquota *rq) { struct timeval now; gettimeofday(&now, NULL); rq->rq_active = TRUE; rq->rq_bsize = DEV_BSIZE; rq->rq_bhardlimit = limit_to_rquota(blocks->qv_hardlimit); rq->rq_bsoftlimit = limit_to_rquota(blocks->qv_softlimit); rq->rq_curblocks = blocks->qv_usage; rq->rq_btimeleft = time_to_rquota(blocks->qv_expiretime, now.tv_sec); rq->rq_fhardlimit = limit_to_rquota(files->qv_hardlimit); rq->rq_fsoftlimit = limit_to_rquota(files->qv_softlimit); rq->rq_curfiles = files->qv_usage; rq->rq_ftimeleft = time_to_rquota(files->qv_expiretime, now.tv_sec); } /* read quota for the specified id, and send it */ static void sendquota(struct svc_req *request, int vers, SVCXPRT *transp) { struct getquota_args getq_args; struct ext_getquota_args ext_getq_args; struct getquota_rslt getq_rslt; struct quotahandle *qh; struct quotakey qk; struct quotaval blocks, files; int idtype; memset((char *)&getq_args, 0, sizeof(getq_args)); memset((char *)&ext_getq_args, 0, sizeof(ext_getq_args)); switch (vers) { case RQUOTAVERS: if (!svc_getargs(transp, xdr_getquota_args, (caddr_t)&getq_args)) { svcerr_decode(transp); return; } ext_getq_args.gqa_pathp = getq_args.gqa_pathp; ext_getq_args.gqa_id = getq_args.gqa_uid; ext_getq_args.gqa_type = RQUOTA_USRQUOTA; break; case EXT_RQUOTAVERS: if (!svc_getargs(transp, xdr_ext_getquota_args, (caddr_t)&ext_getq_args)) { svcerr_decode(transp); return; } break; } switch (ext_getq_args.gqa_type) { case RQUOTA_USRQUOTA: idtype = QUOTA_IDTYPE_USER; break; case RQUOTA_GRPQUOTA: idtype = QUOTA_IDTYPE_GROUP; break; default: getq_rslt.status = Q_NOQUOTA; goto out; } if (request->rq_cred.oa_flavor != AUTH_UNIX) { /* bad auth */ getq_rslt.status = Q_EPERM; goto out; } /* * XXX validate the path... */ qh = quota_open(ext_getq_args.gqa_pathp); if (qh == NULL) { /* * There are only three possible responses: success, * permission denied, and "no quota", so we return * the last for essentially all errors. */ if (errno == EPERM || errno == EACCES) { getq_rslt.status = Q_EPERM; goto out; } getq_rslt.status = Q_NOQUOTA; goto out; } qk.qk_id = ext_getq_args.gqa_id; qk.qk_idtype = idtype; qk.qk_objtype = QUOTA_OBJTYPE_BLOCKS; if (quota_get(qh, &qk, &blocks) < 0) { /* failed, return noquota */ quota_close(qh); getq_rslt.status = Q_NOQUOTA; goto out; } qk.qk_objtype = QUOTA_OBJTYPE_FILES; if (quota_get(qh, &qk, &files) < 0) { /* failed, return noquota */ quota_close(qh); getq_rslt.status = Q_NOQUOTA; goto out; } quota_close(qh); quotavals_to_rquota(&blocks, &files, &getq_rslt.getquota_rslt_u.gqr_rquota); getq_rslt.status = Q_OK; out: if (!svc_sendreply(transp, (xdrproc_t)xdr_getquota_rslt, (char *)&getq_rslt)) svcerr_systemerr(transp); if (!svc_freeargs(transp, xdr_getquota_args, (caddr_t)&getq_args)) { syslog(LOG_ERR, "unable to free arguments"); exit(1); } } src/libexec/rpc.rstatd004075500011300000175000000000001504273241000152165ustar00srcmastrnetbsdsrc/libexec/rpc.rstatd/CVS004075500011300000175000000000001504273241000156515ustar00srcmastrnetbsdsrc/libexec/rpc.rstatd/CVS/Root010064400011300000175000000000441504273241000165710ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/rpc.rstatd/CVS/Repository010064400011300000175000000000271504273241000200260ustar00srcmastrnetbsdsrc/libexec/rpc.rstatd src/libexec/rpc.rstatd/CVS/Entries010064400011300000175000000003321504273241000172570ustar00srcmastrnetbsd/Makefile/1.24/Sat Jun 3 09:09:11 2023//Tnetbsd-11 /rpc.rstatd.8/1.13/Thu Aug 7 09:46:47 2003//Tnetbsd-11 /rstat_proc.c/1.53/Tue Oct 30 21:18:39 2018//Tnetbsd-11 /rstatd.c/1.15/Mon Aug 29 20:41:06 2011//Tnetbsd-11 D src/libexec/rpc.rstatd/CVS/Tag010064400011300000175000000000131522207752300163640ustar00srcmastrnetbsdTnetbsd-11 src/libexec/rpc.rstatd/Makefile010064400011300000175000000006151443660146700167510ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.24 2023/06/03 09:09:11 lukem Exp $ .include PROG = rpc.rstatd .PATH: ${NETBSDSRCDIR}/usr.bin/vmstat CPPFLAGS+=-I${NETBSDSRCDIR}/usr.bin/vmstat -D_KERNTYPES SRCS = drvstats.c rstatd.c rstat_proc.c MAN = rpc.rstatd.8 MLINKS= rpc.rstatd.8 rstatd.8 DPADD= ${LIBRPCSVC} LDADD= -lrpcsvc COPTS.rstat_proc.c+= ${CC_WNO_CAST_FUNCTION_TYPE} .include src/libexec/rpc.rstatd/rpc.rstatd.8010064400011300000175000000050450771442000700174560ustar00srcmastrnetbsd.\" $NetBSD: rpc.rstatd.8,v 1.13 2003/08/07 09:46:47 agc Exp $ .\" .\" Copyright (c) 1985, 1991 The Regents of the University of California. .\" All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. Neither the name of the University nor the names of its contributors .\" may be used to endorse or promote products derived from this software .\" without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF .\" SUCH DAMAGE. .\" .Dd June 7, 1993 .Dt RPC.RSTATD 8 .Os .Sh NAME .Nm rpc.rstatd , .Nm rstatd .Nd kernel statistics server .Sh SYNOPSIS .Nm /usr/libexec/rpc.rstatd .Op Ar interval .Sh DESCRIPTION .Nm is a server which returns performance statistics obtained from the kernel. These statistics are read using the .Xr rup 1 command. The .Nm daemon is normally invoked by .Xr inetd 8 . .Pp The .Ar interval argument specifies the number of seconds that .Nm should stay active, updating its internal statistics every second. If no value is specified, 20 seconds will be used. After .Ar interval seconds with no new RPC requests, if .Nm was invoked from .Xr inetd 8 , .Nm exits. Otherwise, .Nm loops, becoming dormant until it receives a new RPC request, and staying active until .Ar interval seconds pass with no new requests. .Pp .Nm uses an RPC protocol defined in .Pa /usr/include/rpcsvc/rstat.x . .Sh SEE ALSO .Xr rup 1 , .Xr inetd 8 src/libexec/rpc.rstatd/rstat_proc.c010064400011300000175000000232041336614525700176350ustar00srcmastrnetbsd/* $NetBSD: rstat_proc.c,v 1.53 2018/10/30 21:18:39 kre Exp $ */ /* * Sun RPC is a product of Sun Microsystems, Inc. and is provided for * unrestricted use provided that this legend is included on all tape * media and as a part of the software program in whole or part. Users * may copy or modify Sun RPC without charge, but are not authorized * to license or distribute it to anyone else except as part of a product or * program developed by the user. * * SUN RPC IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE. * * Sun RPC is provided with no support and without any obligation on the * part of Sun Microsystems, Inc. to assist in its use, correction, * modification or enhancement. * * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC * OR ANY PART THEREOF. * * In no event will Sun Microsystems, Inc. be liable for any lost revenue * or profits or other special, indirect and consequential damages, even if * Sun has been advised of the possibility of such damages. * * Sun Microsystems, Inc. * 2550 Garcia Avenue * Mountain View, California 94043 */ #include #if 0 static char sccsid[] = "from: @(#)rpc.rstatd.c 1.1 86/09/25 Copyr 1984 Sun Micro"; static char sccsid[] = "from: @(#)rstat_proc.c 2.2 88/08/01 4.0 RPCSRC"; #endif __RCSID("$NetBSD: rstat_proc.c,v 1.53 2018/10/30 21:18:39 kre Exp $"); /* * rstat service: built with rstat.x and derived from rpc.rstatd.c * * Copyright (c) 1984 by Sun Microsystems, Inc. */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "drvstats.h" #include /* * XXX * * this is a huge hack to stop `struct pmap' being * defined twice! */ #define _RPC_PMAP_PROT_H_ #include #undef FSHIFT /* Use protocol's shift and scale values */ #undef FSCALE #undef DK_NDRIVE #undef CPUSTATES #undef if_ipackets #undef if_ierrors #undef if_opackets #undef if_oerrors #undef if_collisions #include #define BSD_CPUSTATES 5 /* Use protocol's idea of CPU states */ int cp_xlat[CPUSTATES] = { CP_USER, CP_NICE, CP_SYS, CP_IDLE }; int hz; extern int from_inetd; int sincelastreq = 0; /* number of alarms since last request */ extern int closedown; union { struct stats s1; struct statsswtch s2; struct statstime s3; } stats_all; void updatestat(int); void stat_init(void); int havedisk(void); void rstat_service(struct svc_req *, SVCXPRT *); static int stat_is_init = 0; #ifndef FSCALE #define FSCALE (1 << 8) #endif void stat_init(void) { stat_is_init = 1; drvinit(0); updatestat(0); (void) signal(SIGALRM, updatestat); alarm(1); } statstime * rstatproc_stats_3_svc(void *arg, struct svc_req *rqstp) { if (!stat_is_init) stat_init(); sincelastreq = 0; return (&stats_all.s3); } statsswtch * rstatproc_stats_2_svc(void *arg, struct svc_req *rqstp) { if (!stat_is_init) stat_init(); sincelastreq = 0; stats_all.s2.if_opackets = stats_all.s3.if_opackets; return (&stats_all.s2); } stats * rstatproc_stats_1_svc(void *arg, struct svc_req *rqstp) { if (!stat_is_init) stat_init(); sincelastreq = 0; stats_all.s1.if_opackets = stats_all.s3.if_opackets; return (&stats_all.s1); } u_int * rstatproc_havedisk_3_svc(void *arg, struct svc_req *rqstp) { static u_int have; if (!stat_is_init) stat_init(); sincelastreq = 0; have = havedisk(); return (&have); } u_int * rstatproc_havedisk_2_svc(void *arg, struct svc_req *rqstp) { return (rstatproc_havedisk_3_svc(arg, rqstp)); } u_int * rstatproc_havedisk_1_svc(void *arg, struct svc_req *rqstp) { return (rstatproc_havedisk_3_svc(arg, rqstp)); } void updatestat(int dummy) { struct if_nameindex *ifps; struct ifdatareq ifdr; size_t i, len; int mib[2], s; struct uvmexp_sysctl uvmexp; double avrun[3]; struct timeval tm; struct timespec btm; #ifdef DEBUG syslog(LOG_DEBUG, "entering updatestat"); #endif if (sincelastreq >= closedown) { #ifdef DEBUG syslog(LOG_DEBUG, "about to closedown"); #endif if (from_inetd) exit(0); else { stat_is_init = 0; return; } } sincelastreq++; /* * drvreadstats reads in the "disk_count" as well as the "disklist" * statistics. It also retrieves "hz" and the "cp_time" array. */ drvreadstats(); memset(stats_all.s3.dk_xfer, 0, sizeof(stats_all.s3.dk_xfer)); for (i = 0; i < ndrive && i < DK_NDRIVE; i++) stats_all.s3.dk_xfer[i] = cur.rxfer[i] + cur.wxfer[i]; for (i = 0; i < CPUSTATES; i++) stats_all.s3.cp_time[i] = cur.cp_time[cp_xlat[i]]; (void)getloadavg(avrun, sizeof(avrun) / sizeof(avrun[0])); stats_all.s3.avenrun[0] = avrun[0] * FSCALE; stats_all.s3.avenrun[1] = avrun[1] * FSCALE; stats_all.s3.avenrun[2] = avrun[2] * FSCALE; mib[0] = CTL_KERN; mib[1] = KERN_BOOTTIME; len = sizeof(btm); if (sysctl(mib, 2, &btm, &len, NULL, 0) < 0) { syslog(LOG_ERR, "can't sysctl kern.boottime"); exit(1); } stats_all.s3.boottime.tv_sec = btm.tv_sec; stats_all.s3.boottime.tv_usec = (suseconds_t)(btm.tv_nsec / 1000L); #ifdef DEBUG syslog(LOG_DEBUG, "%d %d %d %d %d\n", stats_all.s3.cp_time[0], stats_all.s3.cp_time[1], stats_all.s3.cp_time[2], stats_all.s3.cp_time[3], stats_all.s3.cp_time[4]); #endif mib[0] = CTL_VM; mib[1] = VM_UVMEXP2; len = sizeof(uvmexp); if (sysctl(mib, 2, &uvmexp, &len, NULL, 0) < 0) { syslog(LOG_ERR, "can't sysctl vm.uvmexp2"); exit(1); } stats_all.s3.v_pgpgin = uvmexp.fltanget; stats_all.s3.v_pgpgout = uvmexp.pdpageouts; stats_all.s3.v_pswpin = uvmexp.swapins; stats_all.s3.v_pswpout = uvmexp.swapouts; stats_all.s3.v_intr = uvmexp.intrs; stats_all.s3.v_swtch = uvmexp.swtch; gettimeofday(&tm, (struct timezone *) 0); stats_all.s3.v_intr -= hz*(tm.tv_sec - btm.tv_sec) + hz*(tm.tv_usec - (suseconds_t)(btm.tv_nsec / 1000))/1000000; stats_all.s3.if_ipackets = 0; stats_all.s3.if_opackets = 0; stats_all.s3.if_ierrors = 0; stats_all.s3.if_oerrors = 0; stats_all.s3.if_collisions = 0; ifps = if_nameindex(); if (ifps == NULL) { syslog(LOG_ERR, "can't read interface list from kernel"); exit(1); } s = socket(AF_INET, SOCK_DGRAM, 0); for (i = 0; s != -1 && ifps[i].if_name != NULL; ++i) { strlcpy(ifdr.ifdr_name, ifps[i].if_name, sizeof(ifdr.ifdr_name)); if (ioctl(s, SIOCGIFDATA, &ifdr) != 0) continue; stats_all.s3.if_ipackets += ifdr.ifdr_data.ifi_ipackets; stats_all.s3.if_opackets += ifdr.ifdr_data.ifi_opackets; stats_all.s3.if_ierrors += ifdr.ifdr_data.ifi_ierrors; stats_all.s3.if_oerrors += ifdr.ifdr_data.ifi_oerrors; stats_all.s3.if_collisions += ifdr.ifdr_data.ifi_collisions; } if (s != -1) close(s); if_freenameindex(ifps); stats_all.s3.curtime.tv_sec = tm.tv_sec; stats_all.s3.curtime.tv_usec = tm.tv_usec; alarm(1); } /* * returns true if have a disk */ int havedisk(void) { return ndrive != 0; } void rstat_service(struct svc_req *rqstp, SVCXPRT *transp) { union { int fill; } argument; char *result; xdrproc_t xdr_argument, xdr_result; char *(*local)(void *, struct svc_req *); switch (rqstp->rq_proc) { case NULLPROC: (void)svc_sendreply(transp, (xdrproc_t)xdr_void, NULL); goto leave; case RSTATPROC_STATS: xdr_argument = (xdrproc_t)xdr_void; xdr_result = (xdrproc_t)xdr_statstime; switch (rqstp->rq_vers) { case RSTATVERS_ORIG: local = (char *(*)(void *, struct svc_req *)) rstatproc_stats_1_svc; break; case RSTATVERS_SWTCH: local = (char *(*)(void *, struct svc_req *)) rstatproc_stats_2_svc; break; case RSTATVERS_TIME: local = (char *(*)(void *, struct svc_req *)) rstatproc_stats_3_svc; break; default: svcerr_progvers(transp, RSTATVERS_ORIG, RSTATVERS_TIME); goto leave; } break; case RSTATPROC_HAVEDISK: xdr_argument = (xdrproc_t)xdr_void; xdr_result = (xdrproc_t)xdr_u_int; switch (rqstp->rq_vers) { case RSTATVERS_ORIG: local = (char *(*)(void *, struct svc_req *)) rstatproc_havedisk_1_svc; break; case RSTATVERS_SWTCH: local = (char *(*)(void *, struct svc_req *)) rstatproc_havedisk_2_svc; break; case RSTATVERS_TIME: local = (char *(*)(void *, struct svc_req *)) rstatproc_havedisk_3_svc; break; default: svcerr_progvers(transp, RSTATVERS_ORIG, RSTATVERS_TIME); goto leave; } break; default: svcerr_noproc(transp); goto leave; } memset((char *)&argument, 0, sizeof(argument)); if (!svc_getargs(transp, xdr_argument, (caddr_t)&argument)) { svcerr_decode(transp); goto leave; } result = (*local)(&argument, rqstp); if (result != NULL && !svc_sendreply(transp, xdr_result, result)) { svcerr_systemerr(transp); } if (!svc_freeargs(transp, xdr_argument, (caddr_t)&argument)) { (void)fprintf(stderr, "unable to free arguments\n"); exit(1); } leave: if (from_inetd) exit(0); } src/libexec/rpc.rstatd/rstatd.c010064400011300000175000000112171162677454200167610ustar00srcmastrnetbsd/* $NetBSD: rstatd.c,v 1.15 2011/08/29 20:41:06 joerg Exp $ */ /*- * Copyright (c) 1993, John Brezak * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by the University of * California, Berkeley and its contributors. * 4. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint __RCSID("$NetBSD: rstatd.c,v 1.15 2011/08/29 20:41:06 joerg Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include #include #include extern void rstat_service(struct svc_req *, SVCXPRT *); __dead static void cleanup(int); int from_inetd = 1; /* started from inetd ? */ int closedown = 20; /* how long to wait before going dormant */ static void cleanup(int dummy) { (void) rpcb_unset(RSTATPROG, RSTATVERS_TIME, NULL); (void) rpcb_unset(RSTATPROG, RSTATVERS_SWTCH, NULL); (void) rpcb_unset(RSTATPROG, RSTATVERS_ORIG, NULL); exit(0); } int main(int argc, char *argv[]) { SVCXPRT *transp; struct sockaddr_storage from; socklen_t fromlen; if (argc == 2) closedown = atoi(argv[1]); if (closedown <= 0) closedown = 20; /* * See if inetd started us */ fromlen = sizeof(from); if (getsockname(0, (struct sockaddr *)&from, &fromlen) < 0) from_inetd = 0; if (!from_inetd) { /* daemon(0, 0); */ (void)rpcb_unset(RSTATPROG, RSTATVERS_TIME, NULL); (void)rpcb_unset(RSTATPROG, RSTATVERS_SWTCH, NULL); (void)rpcb_unset(RSTATPROG, RSTATVERS_ORIG, NULL); (void) signal(SIGINT, cleanup); (void) signal(SIGTERM, cleanup); (void) signal(SIGHUP, cleanup); } openlog("rpc.rstatd", LOG_PID, LOG_DAEMON); if (from_inetd) { transp = svc_dg_create(0, 0, 0); if (transp == NULL) { syslog(LOG_ERR, "cannot create udp service."); exit(1); } if (!svc_reg(transp, RSTATPROG, RSTATVERS_TIME, rstat_service, NULL)) { syslog(LOG_ERR, "unable to register (RSTATPROG," "RSTATVERS_TIME)"); exit(1); } if (!svc_reg(transp, RSTATPROG, RSTATVERS_SWTCH, rstat_service, NULL)) { syslog(LOG_ERR, "unable to register (RSTATPROG," "RSTATVERS_TIME)"); exit(1); } if (!svc_reg(transp, RSTATPROG, RSTATVERS_ORIG, rstat_service, NULL)) { syslog(LOG_ERR, "unable to register (RSTATPROG," "RSTATVERS_ORIG)"); exit(1); } } else { if (!svc_create(rstat_service, RSTATPROG, RSTATVERS_TIME, "udp")) { syslog(LOG_ERR, "unable to create (RSTATPROG, RSTATVERS_TIME)."); exit(1); } if (!svc_create(rstat_service, RSTATPROG, RSTATVERS_SWTCH, "udp")) { syslog(LOG_ERR, "unable to create (RSTATPROG, RSTATVERS_SWTCH)."); exit(1); } if (!svc_create(rstat_service, RSTATPROG, RSTATVERS_ORIG, "udp")) { syslog(LOG_ERR, "unable to register (RSTATPROG, RSTATVERS_ORIG)."); exit(1); } } svc_run(); syslog(LOG_ERR, "svc_run returned"); exit(1); } src/libexec/rpc.rusersd004075500011300000175000000000001504273241000154045ustar00srcmastrnetbsdsrc/libexec/rpc.rusersd/CVS004075500011300000175000000000001504273241000160375ustar00srcmastrnetbsdsrc/libexec/rpc.rusersd/CVS/Root010064400011300000175000000000441504273241000167570ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/rpc.rusersd/CVS/Repository010064400011300000175000000000301504273241000202060ustar00srcmastrnetbsdsrc/libexec/rpc.rusersd src/libexec/rpc.rusersd/CVS/Entries010064400011300000175000000004241504273241000174470ustar00srcmastrnetbsd/Makefile/1.21/Sat Jun 3 09:09:11 2023//Tnetbsd-11 /rpc.rusersd.8/1.9/Thu Aug 7 09:46:48 2003//Tnetbsd-11 /rusers_proc.c/1.29/Thu Mar 1 06:24:12 2018//Tnetbsd-11 /rusers_proc.h/1.3/Wed Oct 21 01:07:46 2009//Tnetbsd-11 /rusersd.c/1.17/Sat Dec 15 19:44:46 2007//Tnetbsd-11 D src/libexec/rpc.rusersd/CVS/Tag010064400011300000175000000000131522207752300165520ustar00srcmastrnetbsdTnetbsd-11 src/libexec/rpc.rusersd/Makefile010064400011300000175000000007411443660146700171370ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.21 2023/06/03 09:09:11 lukem Exp $ .include PROG = rpc.rusersd SRCS = rusersd.c rusers_proc.c utmpentry.c MAN = rpc.rusersd.8 MLINKS= rpc.rusersd.8 rusersd.8 .PATH.c: ${NETBSDSRCDIR}/usr.bin/who CPPFLAGS+=-I${NETBSDSRCDIR}/usr.bin/who -DSUPPORT_UTMPX -DSUPPORT_UTMP DPADD+= ${LIBRPCSVC} LDADD+= -lrpcsvc COPTS.rusers_proc.c+= ${CC_WNO_STRINGOP_TRUNCATION} ${CC_WNO_STRINGOP_OVERFLOW} ${CC_WNO_CAST_FUNCTION_TYPE} .include src/libexec/rpc.rusersd/rpc.rusersd.8010064400011300000175000000042330771442001000200220ustar00srcmastrnetbsd.\" $NetBSD: rpc.rusersd.8,v 1.9 2003/08/07 09:46:48 agc Exp $ .\" .\" Copyright (c) 1985, 1991 The Regents of the University of California. .\" All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. Neither the name of the University nor the names of its contributors .\" may be used to endorse or promote products derived from this software .\" without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF .\" SUCH DAMAGE. .\" .Dd June 7, 1993 .Dt RPC.RUSERSD 8 .Os .Sh NAME .Nm rpc.rusersd , .Nm rusersd .Nd logged in users server .Sh SYNOPSIS .Nm /usr/libexec/rpc.rusersd .Sh DESCRIPTION .Nm is a server which returns information about users currently logged in to the system. .Pp The currently logged in users are queried using the .Xr rusers 1 command. The .Nm daemon is normally invoked by .Xr inetd 8 . .Pp .Nm uses an RPC protocol defined in .Pa /usr/include/rpcsvc/rnusers.x . .Sh SEE ALSO .Xr rusers 1 , .Xr w 1 , .Xr who 1 , .Xr inetd 8 src/libexec/rpc.rusersd/rusers_proc.c010064400011300000175000000214101324571621400201770ustar00srcmastrnetbsd/* $NetBSD: rusers_proc.c,v 1.29 2018/03/01 06:24:12 snj Exp $ */ /*- * Copyright (c) 1993 John Brezak * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR `AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include #ifndef lint __RCSID("$NetBSD: rusers_proc.c,v 1.29 2018/03/01 06:24:12 snj Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "rusers_proc.h" #include "utmpentry.h" #include /* New version */ static size_t maxusers3 = 0; static struct rusers_utmp *utmps; #include /* Old version */ static size_t maxusers2 = 0; static struct utmpidle **utmp_idlep; static struct utmpidle *utmp_idle; typedef char *(*rusersproc)(void *, struct svc_req *); #ifndef _PATH_DEV #define _PATH_DEV "/dev" #endif extern int from_inetd; static int getarrays2(int); static int getarrays3(int); static int getidle(const char *, char *); static int *rusers_num_svc(void *, struct svc_req *); static utmp_array *do_names_3(int); static struct utmpidlearr *do_names_2(int); /* XXX */ struct utmpidlearr *rusersproc_names_2_svc(void *, struct svc_req *); struct utmpidlearr *rusersproc_allnames_2_svc(void *, struct svc_req *); static int getarrays2(int ne) { struct utmpidle **nutmp_idlep; struct utmpidle *nutmp_idle; /* Limit to MAXUSERS for version 2 */ if (ne > MAXUSERS) ne = MAXUSERS; if (maxusers2 == 0) { nutmp_idlep = malloc(sizeof(*nutmp_idlep) * ne); nutmp_idle = malloc(sizeof(*nutmp_idle) * ne); } else { nutmp_idlep = realloc(utmp_idlep, sizeof(*nutmp_idlep) * ne); nutmp_idle = realloc(utmp_idle, sizeof(*nutmp_idle) * ne); } if (nutmp_idlep == NULL || nutmp_idle == NULL) { syslog(LOG_WARNING, "Cannot allocate data for %u users (%m)", ne); free(nutmp_idlep); free(nutmp_idle); return 0; } utmp_idlep = nutmp_idlep; utmp_idle = nutmp_idle; return maxusers2 = ne; } static int getarrays3(int ne) { struct rusers_utmp *nutmps; if (maxusers3 == 0) { nutmps = malloc(sizeof(*nutmps) * ne); } else { nutmps = realloc(utmps, sizeof(*nutmps) * ne); } if (nutmps == NULL) { syslog(LOG_WARNING, "Cannot allocate data for %u users (%m)", ne); return 0; } utmps = nutmps; return maxusers3 = ne; } static int /*ARGUSED*/ getidle(const char *tty, char *display) { struct stat st; char dev_name[PATH_MAX]; time_t now; long idle; idle = 0; if (*tty == 'X') { long kbd_idle, mouse_idle; #if !defined(i386) kbd_idle = getidle("kbd", NULL); #else /* * XXX Icky i386 console hack. */ kbd_idle = getidle("vga", NULL); #endif mouse_idle = getidle("mouse", NULL); idle = (kbd_idle < mouse_idle) ? kbd_idle : mouse_idle; } else { snprintf(dev_name, sizeof dev_name, "%s/%s", _PATH_DEV, tty); if (stat(dev_name, &st) == -1) { syslog(LOG_WARNING, "Cannot stat %s (%m)", dev_name); return 0; } (void)time(&now); #ifdef DEBUG printf("%s: now=%ld atime=%ld\n", dev_name, (long)now, (long)st.st_atime); #endif idle = now - st.st_atime; idle = (idle + 30) / 60; /* secs->mins */ } if (idle < 0) idle = 0; return idle; } static struct utmpentry *ue = NULL; static int nusers = 0; static int * /*ARGSUSED*/ rusers_num_svc(void *arg, struct svc_req *rqstp) { nusers = getutentries(NULL, &ue); return &nusers; } static utmp_array * do_names_3(int all) { static utmp_array ut; struct utmpentry *e; size_t nu; int idle; nusers = getutentries(NULL, &ue); nusers = getarrays3(nusers); (void)memset(&ut, 0, sizeof(ut)); ut.utmp_array_val = utmps; for (nu = 0, e = ue; e != NULL && nu < (size_t)nusers; e = e->next) { if ((idle = getidle(e->line, e->host)) > 0 && !all) continue; utmps[nu].ut_type = RUSERS_USER_PROCESS; utmps[nu].ut_time = e->tv.tv_sec; utmps[nu].ut_idle = idle; utmps[nu].ut_line = e->line; utmps[nu].ut_user = e->name; utmps[nu].ut_host = e->host; nu++; } ut.utmp_array_len = nu; return &ut; } utmp_array * /*ARGSUSED*/ rusersproc_names_3_svc(void *arg, struct svc_req *rqstp) { return do_names_3(0); } utmp_array * /*ARGSUSED*/ rusersproc_allnames_3_svc(void *arg, struct svc_req *rqstp) { return do_names_3(1); } static struct utmpidlearr * do_names_2(int all) { static struct utmpidlearr ut; struct utmpentry *e; size_t nu; int idle; nusers = getutentries(NULL, &ue); nusers = getarrays2(nusers); (void)memset(&ut, 0, sizeof(ut)); ut.uia_arr = utmp_idlep; ut.uia_cnt = 0; for (nu = 0, e = ue; e != NULL && nu < (size_t)nusers; e = e->next) { if ((idle = getidle(e->line, e->host)) > 0 && !all) continue; utmp_idlep[nu] = &utmp_idle[nu]; utmp_idle[nu].ui_utmp.ut_time = e->tv.tv_sec; utmp_idle[nu].ui_idle = idle; (void)strncpy(utmp_idle[nu].ui_utmp.ut_line, e->line, sizeof(utmp_idle[nu].ui_utmp.ut_line)); (void)strncpy(utmp_idle[nu].ui_utmp.ut_name, e->name, sizeof(utmp_idle[nu].ui_utmp.ut_name)); (void)strncpy(utmp_idle[nu].ui_utmp.ut_host, e->host, sizeof(utmp_idle[nu].ui_utmp.ut_host)); nu++; } ut.uia_cnt = nu; return &ut; } struct utmpidlearr * /*ARGSUSED*/ rusersproc_names_2_svc(void *arg, struct svc_req *rqstp) { return do_names_2(0); } struct utmpidlearr * /*ARGSUSED*/ rusersproc_allnames_2_svc(void *arg, struct svc_req *rqstp) { return do_names_2(1); } void rusers_service(struct svc_req *rqstp, SVCXPRT *transp) { union { int fill; } argument; char *result; xdrproc_t xdr_argument, xdr_result; rusersproc local; switch (rqstp->rq_proc) { case NULLPROC: (void)svc_sendreply(transp, (xdrproc_t)xdr_void, NULL); goto leave; case RUSERSPROC_NUM: xdr_argument = (xdrproc_t)xdr_void; xdr_result = (xdrproc_t)xdr_int; switch (rqstp->rq_vers) { case RUSERSVERS_3: case RUSERSVERS_IDLE: local = (char *(*)(void *, struct svc_req *)) rusers_num_svc; break; default: svcerr_progvers(transp, RUSERSVERS_IDLE, RUSERSVERS_3); goto leave; /*NOTREACHED*/ } break; case RUSERSPROC_NAMES: xdr_argument = (xdrproc_t)xdr_void; xdr_result = (xdrproc_t)xdr_utmp_array; switch (rqstp->rq_vers) { case RUSERSVERS_3: local = (rusersproc)rusersproc_names_3_svc; break; case RUSERSVERS_IDLE: xdr_result = (xdrproc_t)xdr_utmpidlearr; local = (rusersproc)rusersproc_names_2_svc; break; default: svcerr_progvers(transp, RUSERSVERS_IDLE, RUSERSVERS_3); goto leave; /*NOTREACHED*/ } break; case RUSERSPROC_ALLNAMES: xdr_argument = (xdrproc_t)xdr_void; xdr_result = (xdrproc_t)xdr_utmp_array; switch (rqstp->rq_vers) { case RUSERSVERS_3: local = (rusersproc)rusersproc_allnames_3_svc; break; case RUSERSVERS_IDLE: xdr_result = (xdrproc_t)xdr_utmpidlearr; local = (rusersproc)rusersproc_allnames_2_svc; break; default: svcerr_progvers(transp, RUSERSVERS_IDLE, RUSERSVERS_3); goto leave; /*NOTREACHED*/ } break; default: svcerr_noproc(transp); goto leave; } (void)memset(&argument, 0, sizeof(argument)); if (!svc_getargs(transp, xdr_argument, (caddr_t)(void *)&argument)) { svcerr_decode(transp); goto leave; } result = (*local)(&argument, rqstp); if (result != NULL && !svc_sendreply(transp, xdr_result, result)) { svcerr_systemerr(transp); } if (!svc_freeargs(transp, xdr_argument, (caddr_t)(void *)&argument)) { syslog(LOG_ERR, "unable to free arguments"); exit(1); } leave: if (from_inetd) exit(0); } src/libexec/rpc.rusersd/rusers_proc.h010064400011300000175000000026331126745734200202200ustar00srcmastrnetbsd/* $NetBSD: rusers_proc.h,v 1.3 2009/10/21 01:07:46 snj Exp $ */ /* * Copyright (c) 1996 Christos Zoulas. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ void rusers_service(struct svc_req *, SVCXPRT *); src/libexec/rpc.rusersd/rusersd.c010064400011300000175000000070741073102725600173300ustar00srcmastrnetbsd/* $NetBSD: rusersd.c,v 1.17 2007/12/15 19:44:46 perry Exp $ */ /*- * Copyright (c) 1993 John Brezak * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR `AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include #ifndef lint __RCSID("$NetBSD: rusersd.c,v 1.17 2007/12/15 19:44:46 perry Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include /* New version */ #include /* Old version */ #include "rusers_proc.h" int from_inetd = 1; static void cleanup(int) __dead; static void /*ARGSUSED*/ cleanup(int n) { (void) rpcb_unset(RUSERSPROG, RUSERSVERS_3, NULL); (void) rpcb_unset(RUSERSPROG, RUSERSVERS_IDLE, NULL); exit(0); } int /*ARGSUSED*/ main(int argc, char *argv[]) { SVCXPRT *transp; struct sockaddr_storage from; socklen_t fromlen; /* * See if inetd started us */ fromlen = sizeof(from); if (getsockname(0, (struct sockaddr *)(void *)&from, &fromlen) == -1) from_inetd = 0; if (!from_inetd) { (void)daemon(0, 0); (void)rpcb_unset(RUSERSPROG, RUSERSVERS_3, NULL); (void)rpcb_unset(RUSERSPROG, RUSERSVERS_IDLE, NULL); (void)signal(SIGINT, cleanup); (void)signal(SIGTERM, cleanup); (void)signal(SIGHUP, cleanup); } openlog("rpc.rusersd", LOG_PID, LOG_DAEMON); if (from_inetd) { transp = svc_dg_create(0, 0, 0); if (transp == NULL) { syslog(LOG_ERR, "cannot create udp service."); return 1; } if (!svc_reg(transp, RUSERSPROG, RUSERSVERS_3, rusers_service, NULL)) { syslog(LOG_ERR, "unable to register " "(RUSERSPROG, RUSERSVERS_3)."); return 1; } if (!svc_reg(transp, RUSERSPROG, RUSERSVERS_IDLE, rusers_service, NULL)) { syslog(LOG_ERR, "unable to register " "(RUSERSPROG, RUSERSVERS_IDLE)."); return 1; } } else { if (!svc_create(rusers_service, RUSERSPROG, RUSERSVERS_3, "udp")) { syslog(LOG_ERR, "unable to create " "(RUSERSPROG, RUSERSVERS_3)."); return 1; } if (!svc_create(rusers_service, RUSERSPROG, RUSERSVERS_IDLE, "udp")) { syslog(LOG_ERR, "unable to create " "(RUSERSPROG, RUSERSVERS_IDLE)."); return 1; } } svc_run(); syslog(LOG_ERR, "svc_run returned"); return 1; } src/libexec/rpc.rwalld004075500011300000175000000000001504273241000152025ustar00srcmastrnetbsdsrc/libexec/rpc.rwalld/CVS004075500011300000175000000000001504273241000156355ustar00srcmastrnetbsdsrc/libexec/rpc.rwalld/CVS/Root010064400011300000175000000000441504273241000165550ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/rpc.rwalld/CVS/Repository010064400011300000175000000000271504273241000200120ustar00srcmastrnetbsdsrc/libexec/rpc.rwalld src/libexec/rpc.rwalld/CVS/Entries010064400011300000175000000002421504273241000172430ustar00srcmastrnetbsd/Makefile/1.12/Sat Jun 3 09:09:12 2023//Tnetbsd-11 /rpc.rwalld.8/1.10/Thu Aug 7 09:46:48 2003//Tnetbsd-11 /rwalld.c/1.23/Fri Sep 16 16:13:17 2011//Tnetbsd-11 D src/libexec/rpc.rwalld/CVS/Tag010064400011300000175000000000131522207752300163500ustar00srcmastrnetbsdTnetbsd-11 src/libexec/rpc.rwalld/Makefile010064400011300000175000000003731443660147000167300ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.12 2023/06/03 09:09:12 lukem Exp $ PROG = rpc.rwalld SRCS = rwalld.c MAN = rpc.rwalld.8 MLINKS= rpc.rwalld.8 rwalld.8 DPADD= ${LIBRPCSVC} LDADD= -lrpcsvc COPTS.rwalld.c+= ${CC_WNO_CAST_FUNCTION_TYPE} .include src/libexec/rpc.rwalld/rpc.rwalld.8010064400011300000175000000043600771442001000174170ustar00srcmastrnetbsd.\" $NetBSD: rpc.rwalld.8,v 1.10 2003/08/07 09:46:48 agc Exp $ .\" .\" Copyright (c) 1985, 1991 The Regents of the University of California. .\" All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. Neither the name of the University nor the names of its contributors .\" may be used to endorse or promote products derived from this software .\" without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF .\" SUCH DAMAGE. .\" .Dd June 7, 1993 .Dt RPC.RWALLD 8 .Os .Sh NAME .Nm rpc.rwalld , .Nm rwalld .Nd write messages to users currently logged in server .Sh SYNOPSIS .Nm /usr/libexec/rpc.rwalld .Sh DESCRIPTION .Nm is a server which will send a message to users currently logged in to the system. This server invokes the .Xr wall 1 command to actually write the messages to the system. .Pp Messages are sent to this server by the .Xr rwall 1 command. The .Nm daemon is normally invoked by .Xr inetd 8 . .Pp .Nm uses an RPC protocol defined in .Pa /usr/include/rpcsvc/rwall.x . .Sh SEE ALSO .Xr rwall 1 , .Xr wall 1 , .Xr inetd 8 src/libexec/rpc.rwalld/rwalld.c010064400011300000175000000115451163467263500167340ustar00srcmastrnetbsd/* $NetBSD: rwalld.c,v 1.23 2011/09/16 16:13:17 plunky Exp $ */ /* * Copyright (c) 1993 Christopher G. Demetriou * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed for the * NetBSD Project. See http://www.NetBSD.org/ for * information about NetBSD. * 4. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. * * <> */ #include #ifndef lint __RCSID("$NetBSD: rwalld.c,v 1.23 2011/09/16 16:13:17 plunky Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include #include #include #include #ifdef OSF #define WALL_CMD "/usr/sbin/wall" #else #define WALL_CMD "/usr/bin/wall -n" #endif static int from_inetd = 1; static void cleanup(int); static void wallprog_1(struct svc_req *, SVCXPRT *); __dead static void cleanup(int n) { (void)rpcb_unset(WALLPROG, WALLVERS, NULL); exit(0); } int main(int argc, char *argv[]) { SVCXPRT *transp; struct sockaddr_storage from; socklen_t fromlen; if (geteuid() == 0) { struct passwd *pep = getpwnam("nobody"); if (pep) setuid(pep->pw_uid); else setuid(getuid()); } /* * See if inetd started us */ fromlen = sizeof(from); if (getsockname(0, (struct sockaddr *)&from, &fromlen) < 0) from_inetd = 0; if (!from_inetd) { daemon(0, 0); (void) rpcb_unset(WALLPROG, WALLVERS, NULL); (void) signal(SIGINT, cleanup); (void) signal(SIGTERM, cleanup); (void) signal(SIGHUP, cleanup); } openlog("rpc.rwalld", LOG_PID, LOG_DAEMON); if (from_inetd) { transp = svc_dg_create(0, 0, 0); if (transp == NULL) { syslog(LOG_ERR, "cannot create udp service."); exit(1); } if (!svc_reg(transp, WALLPROG, WALLVERS, wallprog_1, NULL)) { syslog(LOG_ERR, "unable to register " "(WALLPROG, WALLVERS)."); exit(1); } } else { if (!svc_create(wallprog_1, WALLPROG, WALLVERS, "udp")) { syslog(LOG_ERR, "unable to create " "(WALLPROG, WALLVERS.)"); exit(1); } } svc_run(); syslog(LOG_ERR, "svc_run returned"); exit(1); } void * wallproc_wall_1_svc(char **s, struct svc_req *rqstp) { FILE *pfp; pfp = popen(WALL_CMD, "w"); if (pfp != NULL) { fprintf(pfp, "\007\007%s", *s); pclose(pfp); } return (*s); } static void wallprog_1(struct svc_req *rqstp, SVCXPRT *transp) { union { char *wallproc_wall_1_arg; } argument; char *result; xdrproc_t xdr_argument, xdr_result; char *(*local) __P((char **, struct svc_req *)); switch (rqstp->rq_proc) { case NULLPROC: (void)svc_sendreply(transp, (xdrproc_t)xdr_void, NULL); goto leave; case WALLPROC_WALL: xdr_argument = (xdrproc_t)xdr_wrapstring; xdr_result = (xdrproc_t)xdr_void; local = (char *(*) __P((char **, struct svc_req *))) wallproc_wall_1_svc; break; default: svcerr_noproc(transp); goto leave; } memset((char *)&argument, 0, sizeof(argument)); if (!svc_getargs(transp, xdr_argument, (caddr_t)&argument)) { svcerr_decode(transp); goto leave; } result = (*local)((char **)&argument, rqstp); if (result != NULL && !svc_sendreply(transp, xdr_result, result)) { svcerr_systemerr(transp); } if (!svc_freeargs(transp, xdr_argument, (caddr_t)&argument)) { syslog(LOG_ERR, "unable to free arguments"); exit(1); } leave: if (from_inetd) exit(0); } src/libexec/rpc.sprayd004075500011300000175000000000001504273241000152175ustar00srcmastrnetbsdsrc/libexec/rpc.sprayd/CVS004075500011300000175000000000001504273241000156525ustar00srcmastrnetbsdsrc/libexec/rpc.sprayd/CVS/Root010064400011300000175000000000441504273241000165720ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/rpc.sprayd/CVS/Repository010064400011300000175000000000271504273241000200270ustar00srcmastrnetbsdsrc/libexec/rpc.sprayd src/libexec/rpc.sprayd/CVS/Entries010064400011300000175000000002411504273241000172570ustar00srcmastrnetbsd/Makefile/1.8/Sat Jun 3 09:09:12 2023//Tnetbsd-11 /rpc.sprayd.8/1.10/Wed Oct 21 01:07:46 2009//Tnetbsd-11 /sprayd.c/1.18/Fri Sep 16 16:13:17 2011//Tnetbsd-11 D src/libexec/rpc.sprayd/CVS/Tag010064400011300000175000000000131522207752300163650ustar00srcmastrnetbsdTnetbsd-11 src/libexec/rpc.sprayd/Makefile010064400011300000175000000004301443660147000167370ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.8 2023/06/03 09:09:12 lukem Exp $ PROG = rpc.sprayd SRCS = sprayd.c MAN = rpc.sprayd.8 MLINKS= rpc.sprayd.8 sprayd.8 DPADD= ${LIBRPCSVC} LDADD= -lrpcsvc COPTS.sprayd.c+= ${CC_WNO_STRINGOP_TRUNCATION} ${CC_WNO_CAST_FUNCTION_TYPE} .include src/libexec/rpc.sprayd/rpc.sprayd.8010064400011300000175000000037511126745734200174740ustar00srcmastrnetbsd.\" $NetBSD: rpc.sprayd.8,v 1.10 2009/10/21 01:07:46 snj Exp $ .\" .\" Copyright (c) 1994 Christos Zoulas .\" All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" .\" THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR .\" IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES .\" OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. .\" IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, .\" INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT .\" NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, .\" DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY .\" THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT .\" (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF .\" THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. .\" .Dd June 22, 1994 .Dt RPC.SPRAYD 8 .Os .Sh NAME .Nm rpc.sprayd , .Nm sprayd .Nd spray server .Sh SYNOPSIS .Nm /usr/libexec/rpc.sprayd .Sh DESCRIPTION .Nm is a server which records packets sent by the .Xr spray 8 command and sends a traffic report to the originator of the packets. The .Nm daemon is normally invoked by .Xr inetd 8 . .Pp .Nm uses an RPC protocol defined in .Pa /usr/include/rpcsvc/spray.x . .Sh SEE ALSO .Xr spray 8 .Sh SECURITY CONSIDERATIONS As .Nm responds to packets generated by .Xr spray 8 , remote users can cause a denial of network service against the local host by saturating requests to .Nm . src/libexec/rpc.sprayd/sprayd.c010064400011300000175000000073671163467263500167750ustar00srcmastrnetbsd/* $NetBSD: sprayd.c,v 1.18 2011/09/16 16:13:17 plunky Exp $ */ /* * Copyright (c) 1994 Christos Zoulas * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ #include #ifndef lint __RCSID("$NetBSD: sprayd.c,v 1.18 2011/09/16 16:13:17 plunky Exp $"); #endif /* not lint */ #include #include #include #include #include #include #include #include #include __dead static void cleanup(int); __dead static void die(int); static void spray_service(struct svc_req *, SVCXPRT *); static int from_inetd = 1; #define TIMEOUT 120 static void cleanup(int n) { (void)rpcb_unset(SPRAYPROG, SPRAYVERS, NULL); exit(0); } static void die(int n) { exit(0); } int main(int argc, char *argv[]) { SVCXPRT *transp; struct sockaddr_storage from; socklen_t fromlen; /* * See if inetd started us */ fromlen = sizeof(from); if (getsockname(0, (struct sockaddr *)&from, &fromlen) < 0) from_inetd = 0; if (!from_inetd) { daemon(0, 0); (void)rpcb_unset(SPRAYPROG, SPRAYVERS, NULL); (void)signal(SIGINT, cleanup); (void)signal(SIGTERM, cleanup); (void)signal(SIGHUP, cleanup); } else { (void)signal(SIGALRM, die); alarm(TIMEOUT); } openlog("rpc.sprayd", LOG_PID, LOG_DAEMON); if (from_inetd) { transp = svc_dg_create(0, 0, 0); if (transp == NULL) { syslog(LOG_ERR, "cannot create udp service."); exit(1); } if (!svc_reg(transp, SPRAYPROG, SPRAYVERS, spray_service, NULL)) { syslog(LOG_ERR, "unable to register (SPRAYPROG, SPRAYVERS)."); exit(1); } } else { if (!svc_create(spray_service, SPRAYPROG, SPRAYVERS, "udp")) { syslog(LOG_ERR, "unable to register (SPRAYPROG, SPRAYVERS)."); exit(1); } } svc_run(); syslog(LOG_ERR, "svc_run returned"); exit(1); } static void spray_service(struct svc_req *rqstp, SVCXPRT *transp) { static spraycumul scum; static struct timeval clear, get; switch (rqstp->rq_proc) { case SPRAYPROC_CLEAR: scum.counter = 0; (void)gettimeofday(&clear, 0); /*FALLTHROUGH*/ case NULLPROC: (void)svc_sendreply(transp, (xdrproc_t)xdr_void, NULL); return; case SPRAYPROC_SPRAY: scum.counter++; return; case SPRAYPROC_GET: (void)gettimeofday(&get, 0); timersub(&get, &clear, &get); scum.clock.sec = get.tv_sec; scum.clock.usec = get.tv_usec; break; default: svcerr_noproc(transp); return; } if (!svc_sendreply(transp, (xdrproc_t)xdr_spraycumul, (caddr_t)&scum)) { svcerr_systemerr(transp); syslog(LOG_WARNING, "bad svc_sendreply"); } } src/libexec/rshd004075500011300000175000000000001504273241000140725ustar00srcmastrnetbsdsrc/libexec/rshd/CVS004075500011300000175000000000001504273241000145255ustar00srcmastrnetbsdsrc/libexec/rshd/CVS/Root010064400011300000175000000000441504273241000154450ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/rshd/CVS/Repository010064400011300000175000000000211504273241000166740ustar00srcmastrnetbsdsrc/libexec/rshd src/libexec/rshd/CVS/Entries010064400011300000175000000002321504273241000161320ustar00srcmastrnetbsd/Makefile/1.19/Tue Aug 16 10:35:03 2011//Tnetbsd-11 /rshd.8/1.19/Mon Jul 3 21:35:49 2017//Tnetbsd-11 /rshd.c/1.51/Sat Oct 7 19:23:02 2017//Tnetbsd-11 D src/libexec/rshd/CVS/Tag010064400011300000175000000000131522207752300152400ustar00srcmastrnetbsdTnetbsd-11 src/libexec/rshd/Makefile010064400011300000175000000007031162244372700156200ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.19 2011/08/16 10:35:03 christos Exp $ # from: @(#)Makefile 8.1 (Berkeley) 6/4/93 .include PROG= rshd MAN= rshd.8 DPADD+= ${LIBUTIL} LDADD+= -lutil CPPFLAGS+=-DLOGIN_CAP .if (${USE_INET6} != "no") CPPFLAGS+=-DINET6 .endif .if (${USE_PAM} != "no") CPPFLAGS+=-DUSE_PAM DPADD+= ${LIBPAM} ${PAM_STATIC_DPADD} LDADD+= -lpam ${PAM_STATIC_LDADD} .endif COPTS.rshd.c = -Wno-format-nonliteral .include src/libexec/rshd/rshd.8010064400011300000175000000155051312653426500152160ustar00srcmastrnetbsd.\" $NetBSD: rshd.8,v 1.19 2017/07/03 21:35:49 wiz Exp $ .\" .\" Copyright (c) 1983, 1989, 1991, 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. Neither the name of the University nor the names of its contributors .\" may be used to endorse or promote products derived from this software .\" without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF .\" SUCH DAMAGE. .\" .\" from: @(#)rshd.8 8.1 (Berkeley) 6/4/93 .\" .Dd March 9, 2005 .Dt RSHD 8 .Os .Sh NAME .Nm rshd .Nd remote shell server .Sh SYNOPSIS .Nm .Op Fl aLln .Sh DESCRIPTION The .Nm server is the server for the .Xr rcmd 3 routine and, consequently, for the .Xr rsh 1 program. The server provides remote execution facilities with authentication based on privileged port numbers from trusted hosts. .Pp The .Nm server listens for service requests at the port indicated in the .Dq cmd service specification; see .Xr services 5 . When a service request is received the following protocol is initiated: .Bl -enum .It The server checks the client's source port. If the port is not in the range 512-1023, the server aborts the connection. .It The server reads characters from the socket up to a null .Pq Sq \e0 byte. The resultant string is interpreted as an .Tn ASCII number, base 10. .It If the number received in step 2 is non-zero, it is interpreted as the port number of a secondary stream to be used for the .Em stderr . A second connection is then created to the specified port on the client's machine. The source port of this second connection is also in the range 512-1023. .It The server checks the client's source address and requests the corresponding host name (see .Xr getnameinfo 3 , .Xr hosts 5 , and .Xr named 8 ) . If the hostname cannot be determined, the dot-notation representation of the host address is used. If the hostname is in the same domain as the server (according to the last two components of the domain name), or if the .Fl a option is given, the addresses for the hostname are requested, verifying that the name and address correspond. If address verification fails, the connection is aborted with the message .Dq Host address mismatch. .It A null terminated user name of at most 16 characters is retrieved on the initial socket. This user name is interpreted as the user identity on the .Em client Ns 's machine. .It A null terminated user name of at most 16 characters is retrieved on the initial socket. This user name is interpreted as a user identity to use on the .Sy server Ns 's machine. .It A null terminated command to be passed to a shell is retrieved on the initial socket. The length of the command is limited by the upper bound on the size of the system's argument list. .It .Nm then validates the user using .Xr ruserok 3 , which uses the file .Pa /etc/hosts.equiv and the .Pa .rhosts file found in the user's home directory. The .Fl l option prevents .Xr ruserok 3 from doing any validation based on the user's .Dq Pa .rhosts file, unless the user is the superuser. .It If the file .Pa /etc/nologin exists and the user is not the superuser, the connection is closed. .It A null byte is returned on the initial socket and the command line is passed to the normal login shell of the user. The shell inherits the network connections established by .Nm . .El .Pp Transport-level keepalive messages are enabled unless the .Fl n option is present. The use of keepalive messages allows sessions to be timed out if the client crashes or becomes unreachable. .Pp The .Fl L option causes all successful accesses to be logged to .Xr syslogd 8 as .Li auth.info messages. .Sh DIAGNOSTICS Except for the last one listed below, all diagnostic messages are returned on the initial socket, after which any network connections are closed. An error is indicated by a leading byte with a value of 1 (0 is returned in step 10 above upon successful completion of all the steps prior to the execution of the login shell). .Bl -tag -width indent .It Sy Locuser too long. The name of the user on the client's machine is longer than 16 characters. .It Sy Ruser too long. The name of the user on the remote machine is longer than 16 characters. .It Sy Command too long . The command line passed exceeds the size of the argument list (as configured into the system). .It Sy Login incorrect. No password file entry for the user name existed. .It Sy Remote directory. The .Xr chdir 2 to the home directory failed. .It Sy Permission denied. The authentication procedure described above failed. .It Sy Can't make pipe. The pipe needed for the .Em stderr , wasn't created. .It Sy Can't fork; try again. A .Xr fork 2 by the server failed. .It Sy : ... The user's login shell could not be started. This message is returned on the connection associated with the .Em stderr , and is not preceded by a flag byte. .El .Sh SEE ALSO .Xr rsh 1 , .Xr ssh 1 , .Xr rcmd 3 , .Xr ruserok 3 , .Xr hosts_access 5 , .Xr login.conf 5 , .Xr sshd 8 .Sh BUGS The authentication procedure used here assumes the integrity of every machine and every network that can reach the rshd/rlogind ports on the server. This is insecure, but is useful in an .Dq open environment. .Xr sshd 8 or a Kerberized version of this server are much more secure. .Pp A facility to allow all data exchanges to be encrypted should be present. .Pp A more extensible protocol (such as Telnet) should be used. .Pp .Nm intentionally rejects accesses from IPv4 mapped address on top of .Dv AF_INET6 socket, since IPv4 mapped address complicates host-address based authentication. If you would like to accept connections from IPv4 peers, you will need to run .Nm on top of an .Dv AF_INET socket, not an .Dv AF_INET6 socket. src/libexec/rshd/rshd.c010064400011300000175000000526561316622462600153020ustar00srcmastrnetbsd/* $NetBSD: rshd.c,v 1.51 2017/10/07 19:23:02 ryo Exp $ */ /* * Copyright (C) 1998 WIDE Project. * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by WIDE Project and * its contributors. * 4. Neither the name of the project nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ /*- * Copyright (c) 1988, 1989, 1992, 1993, 1994 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint __COPYRIGHT("@(#) Copyright (c) 1988, 1989, 1992, 1993, 1994\ The Regents of the University of California. All rights reserved."); #if 0 static char sccsid[] = "@(#)rshd.c 8.2 (Berkeley) 4/6/94"; #else __RCSID("$NetBSD: rshd.c,v 1.51 2017/10/07 19:23:02 ryo Exp $"); #endif #endif /* not lint */ /* * remote shell server: * [port]\0 * remuser\0 * locuser\0 * command\0 * data */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #ifdef LOGIN_CAP #include #endif #ifdef USE_PAM #include #include #include static struct pam_conv pamc = { openpam_nullconv, NULL }; static pam_handle_t *pamh; static int pam_err; #define PAM_END do { \ if ((pam_err = pam_setcred(pamh, PAM_DELETE_CRED)) != PAM_SUCCESS) \ syslog(LOG_ERR|LOG_AUTH, "pam_setcred(): %s", \ pam_strerror(pamh, pam_err)); \ if ((pam_err = pam_close_session(pamh,0)) != PAM_SUCCESS) \ syslog(LOG_ERR|LOG_AUTH, "pam_close_session(): %s", \ pam_strerror(pamh, pam_err)); \ if ((pam_err = pam_end(pamh, pam_err)) != PAM_SUCCESS) \ syslog(LOG_ERR|LOG_AUTH, "pam_end(): %s", \ pam_strerror(pamh, pam_err)); \ } while (/*CONSTCOND*/0) #else #define PAM_END #endif static int keepalive = 1; static int check_all; static int log_success; /* If TRUE, log all successful accesses */ static int sent_null; __dead static void doit(struct sockaddr *, struct sockaddr *); __dead static void rshd_errx(int, const char *, ...) __printflike(2, 3); static void getstr(char *, int, const char *); static int local_domain(char *); static char *topdomain(char *); __dead static void usage(void); #define OPTIONS "aLln" extern int __check_rhosts_file; extern char *__rcmd_errstr; /* syslog hook from libc/net/rcmd.c. */ #ifdef USE_PAM static const char incorrect[] = "Login incorrect."; #endif int main(int argc, char *argv[]) { struct linger linger; int ch, on = 1; socklen_t fromlen; socklen_t locallen; struct sockaddr_storage from; struct sockaddr_storage local; struct protoent *proto; openlog("rshd", LOG_PID, LOG_DAEMON); opterr = 0; while ((ch = getopt(argc, argv, OPTIONS)) != -1) switch (ch) { case 'a': check_all = 1; break; case 'l': __check_rhosts_file = 0; break; case 'n': keepalive = 0; break; case 'L': log_success = 1; break; case '?': default: usage(); break; } argc -= optind; argv += optind; fromlen = sizeof(from); /* xxx */ locallen = sizeof(local); /* xxx */ if (getpeername(STDIN_FILENO, (struct sockaddr *)&from, &fromlen) < 0) { syslog(LOG_ERR, "getpeername: %m"); return EXIT_FAILURE; } if (getsockname(STDIN_FILENO, (struct sockaddr *)&local, &locallen) < 0) { syslog(LOG_ERR, "getsockname: %m"); return EXIT_FAILURE; } #if 0 if (((struct sockaddr *)&from)->sa_family == AF_INET6 && IN6_IS_ADDR_V4MAPPED(&((struct sockaddr_in6 *)&from)->sin6_addr) && sizeof(struct sockaddr_in) <= sizeof(from)) { struct sockaddr_in sin; struct sockaddr_in6 *sin6; const int off = sizeof(struct sockaddr_in6) - sizeof(struct sockaddr_in); sin6 = (struct sockaddr_in6 *)&from; (void)memset(&sin, 0, sizeof(sin)); sin.sin_family = AF_INET; sin.sin_len = sizeof(struct sockaddr_in); (void)memcpy(&sin.sin_addr, &sin6->sin6_addr.s6_addr[off], sizeof(sin.sin_addr)); (void)memcpy(&from, &sin, sizeof(sin)); fromlen = sin.sin_len; } #else if (((struct sockaddr *)&from)->sa_family == AF_INET6 && IN6_IS_ADDR_V4MAPPED(&((struct sockaddr_in6 *)&from)->sin6_addr)) { char hbuf[NI_MAXHOST]; if (getnameinfo((struct sockaddr *)&from, fromlen, hbuf, sizeof(hbuf), NULL, 0, NI_NUMERICHOST) != 0) { strlcpy(hbuf, "invalid", sizeof(hbuf)); } syslog(LOG_ERR, "malformed \"from\" address (v4 mapped, %s)", hbuf); return EXIT_FAILURE; } #endif if (keepalive && setsockopt(STDIN_FILENO, SOL_SOCKET, SO_KEEPALIVE, (char *)&on, sizeof(on)) < 0) syslog(LOG_WARNING, "setsockopt (SO_KEEPALIVE): %m"); linger.l_onoff = 1; linger.l_linger = 60; /* XXX */ if (setsockopt(STDIN_FILENO, SOL_SOCKET, SO_LINGER, (char *)&linger, sizeof (linger)) < 0) syslog(LOG_WARNING, "setsockopt (SO_LINGER): %m"); proto = getprotobyname("tcp"); (void)setsockopt(STDIN_FILENO, proto->p_proto, TCP_NODELAY, &on, sizeof(on)); doit((struct sockaddr *)&from, (struct sockaddr *)&local); } extern char **environ; static void doit(struct sockaddr *fromp, struct sockaddr *localp) { struct passwd *pwd, pwres; in_port_t port; struct pollfd set[2]; int cc, pv[2], pid, s = -1; /* XXX gcc */ int one = 1; char *hostname, *errorhost = NULL; /* XXX gcc */ const char *cp; char sig, buf[BUFSIZ]; char cmdbuf[NCARGS+1], locuser[16], remuser[16]; char remotehost[2 * MAXHOSTNAMELEN + 1]; char hostnamebuf[2 * MAXHOSTNAMELEN + 1]; #ifdef LOGIN_CAP login_cap_t *lc; #endif char naddr[NI_MAXHOST]; char saddr[NI_MAXHOST]; char raddr[NI_MAXHOST]; char pbuf[NI_MAXSERV]; int af = fromp->sa_family; u_int16_t *portp; struct addrinfo hints, *res, *res0; int gaierror; const int niflags = NI_NUMERICHOST | NI_NUMERICSERV; const char *errormsg = NULL, *errorstr = NULL; char pwbuf[1024]; (void)signal(SIGINT, SIG_DFL); (void)signal(SIGQUIT, SIG_DFL); (void)signal(SIGTERM, SIG_DFL); #ifdef DEBUG { int t = open(_PATH_TTY, O_RDWR); if (t >= 0) { ioctl(t, TIOCNOTTY, NULL); (void)close(t); } } #endif switch (af) { case AF_INET: portp = &((struct sockaddr_in *)fromp)->sin_port; break; #ifdef INET6 case AF_INET6: portp = &((struct sockaddr_in6 *)fromp)->sin6_port; break; #endif default: syslog(LOG_ERR, "malformed \"from\" address (af %d)", af); exit(EXIT_FAILURE); } if (getnameinfo(fromp, fromp->sa_len, naddr, sizeof(naddr), pbuf, sizeof(pbuf), niflags) != 0) { syslog(LOG_ERR, "malformed \"from\" address (af %d)", af); exit(EXIT_FAILURE); } #ifdef IP_OPTIONS if (af == AF_INET) { u_char optbuf[BUFSIZ/3]; socklen_t optsize = sizeof(optbuf); int ipproto; unsigned int i; struct protoent *ip; if ((ip = getprotobyname("ip")) != NULL) ipproto = ip->p_proto; else ipproto = IPPROTO_IP; if (!getsockopt(0, ipproto, IP_OPTIONS, (char *)optbuf, &optsize) && optsize != 0) { for (i = 0; i < optsize;) { u_char c = optbuf[i]; if (c == IPOPT_LSRR || c == IPOPT_SSRR) { syslog(LOG_NOTICE, "Connection refused from %s " "with IP option %s", inet_ntoa(( (struct sockaddr_in *)fromp)->sin_addr), c == IPOPT_LSRR ? "LSRR" : "SSRR"); exit(EXIT_FAILURE); } if (c == IPOPT_EOL) break; i += (c == IPOPT_NOP) ? 1 : optbuf[i + 1]; } } } #endif if (ntohs(*portp) >= IPPORT_RESERVED || ntohs(*portp) < IPPORT_RESERVED / 2) { syslog(LOG_NOTICE|LOG_AUTH, "Connection from %s on illegal port %u", naddr, ntohs(*portp)); exit(EXIT_FAILURE); } (void) alarm(60); port = 0; for (;;) { char c; if ((cc = read(STDIN_FILENO, &c, 1)) != 1) { if (cc < 0) syslog(LOG_ERR, "read: %m"); (void)shutdown(0, SHUT_RDWR); exit(EXIT_FAILURE); } if (c == 0) break; port = port * 10 + c - '0'; } (void) alarm(0); if (port != 0) { int lport = IPPORT_RESERVED - 1; s = rresvport_af_addr(&lport, af, localp); if (s < 0) { syslog(LOG_ERR, "can't get stderr port: %m"); exit(EXIT_FAILURE); } if (port >= IPPORT_RESERVED) { syslog(LOG_ERR, "2nd port not reserved"); exit(EXIT_FAILURE); } *portp = htons(port); if (connect(s, fromp, fromp->sa_len) < 0) { syslog(LOG_ERR, "connect second port %d: %m", port); exit(EXIT_FAILURE); } } #ifdef notdef /* from inetd, socket is already on 0, 1, 2 */ (void)dup2(f, STDIN_FILENO); (void)dup2(f, STDOUT_FILENO); (void)dup2(f, STDERR_FILENO); #endif if (getnameinfo(fromp, fromp->sa_len, saddr, sizeof(saddr), NULL, 0, NI_NAMEREQD) == 0) { /* * If name returned by getnameinfo is in our domain, * attempt to verify that we haven't been fooled by someone * in a remote net; look up the name and check that this * address corresponds to the name. */ hostname = saddr; res0 = NULL; if (check_all || local_domain(saddr)) { (void)strlcpy(remotehost, saddr, sizeof(remotehost)); errorhost = remotehost; (void)memset(&hints, 0, sizeof(hints)); hints.ai_family = fromp->sa_family; hints.ai_socktype = SOCK_STREAM; hints.ai_flags = AI_CANONNAME; gaierror = getaddrinfo(remotehost, pbuf, &hints, &res0); if (gaierror) { syslog(LOG_NOTICE, "Couldn't look up address for %s: %s", remotehost, gai_strerror(gaierror)); errorstr = "Couldn't look up address for your host (%s)\n"; hostname = naddr; } else { for (res = res0; res; res = res->ai_next) { if (res->ai_family != fromp->sa_family) continue; if (res->ai_addrlen != fromp->sa_len) continue; if (getnameinfo(res->ai_addr, res->ai_addrlen, raddr, sizeof(raddr), NULL, 0, niflags) == 0 && strcmp(naddr, raddr) == 0) { hostname = res->ai_canonname ? res->ai_canonname : saddr; break; } } if (res == NULL) { syslog(LOG_NOTICE, "Host addr %s not listed for host %s", naddr, res0->ai_canonname ? res0->ai_canonname : saddr); errorstr = "Host address mismatch for %s\n"; hostname = naddr; } } } (void)strlcpy(hostnamebuf, hostname, sizeof(hostnamebuf)); hostname = hostnamebuf; if (res0) freeaddrinfo(res0); } else { (void)strlcpy(hostnamebuf, naddr, sizeof(hostnamebuf)); errorhost = hostname = hostnamebuf; } (void)alarm(60); getstr(remuser, sizeof(remuser), "remuser"); getstr(locuser, sizeof(locuser), "locuser"); getstr(cmdbuf, sizeof(cmdbuf), "command"); (void)alarm(0); #ifdef USE_PAM pam_err = pam_start("rsh", locuser, &pamc, &pamh); if (pam_err != PAM_SUCCESS) { syslog(LOG_ERR|LOG_AUTH, "pam_start(): %s", pam_strerror(pamh, pam_err)); rshd_errx(EXIT_FAILURE, incorrect); } if ((pam_err = pam_set_item(pamh, PAM_RUSER, remuser)) != PAM_SUCCESS || (pam_err = pam_set_item(pamh, PAM_RHOST, hostname)) != PAM_SUCCESS){ syslog(LOG_ERR|LOG_AUTH, "pam_set_item(): %s", pam_strerror(pamh, pam_err)); rshd_errx(EXIT_FAILURE, incorrect); } pam_err = pam_authenticate(pamh, 0); if (pam_err == PAM_SUCCESS) { if ((pam_err = pam_get_user(pamh, &cp, NULL)) == PAM_SUCCESS) { (void)strlcpy(locuser, cp, sizeof(locuser)); /* XXX truncation! */ } pam_err = pam_acct_mgmt(pamh, 0); } if (pam_err != PAM_SUCCESS) { errorstr = incorrect; errormsg = pam_strerror(pamh, pam_err); goto badlogin; } #endif /* USE_PAM */ setpwent(); if (getpwnam_r(locuser, &pwres, pwbuf, sizeof(pwbuf), &pwd) != 0 || pwd == NULL) { syslog(LOG_INFO|LOG_AUTH, "%s@%s as %s: unknown login. cmd='%.80s'", remuser, hostname, locuser, cmdbuf); if (errorstr == NULL) errorstr = "Permission denied."; rshd_errx(EXIT_FAILURE, errorstr, errorhost); } #ifdef LOGIN_CAP lc = login_getclass(pwd ? pwd->pw_class : NULL); #endif if (chdir(pwd->pw_dir) < 0) { if (chdir("/") < 0 #ifdef LOGIN_CAP || login_getcapbool(lc, "requirehome", pwd->pw_uid ? 1 : 0) #endif ) { syslog(LOG_INFO|LOG_AUTH, "%s@%s as %s: no home directory. cmd='%.80s'", remuser, hostname, locuser, cmdbuf); rshd_errx(EXIT_SUCCESS, "No remote home directory."); } } #ifndef USE_PAM if (errorstr || (pwd->pw_passwd != 0 && *pwd->pw_passwd != '\0' && iruserok_sa(fromp, fromp->sa_len, pwd->pw_uid == 0, remuser, locuser) < 0)) { errormsg = __rcmd_errstr ? __rcmd_errstr : "unknown error"; if (errorstr == NULL) errorstr = "Permission denied."; goto badlogin; } if (pwd->pw_uid && !access(_PATH_NOLOGIN, F_OK)) rshd_errx(EXIT_FAILURE, "Logins currently disabled."); #endif #ifdef LOGIN_CAP /* * PAM modules might add supplementary groups in * pam_setcred(), so initialize them first. * But we need to open the session as root. */ if (setusercontext(lc, pwd, pwd->pw_uid, LOGIN_SETGROUP) != 0) { syslog(LOG_ERR, "setusercontext: %m"); exit(EXIT_FAILURE); } #else initgroups(pwd->pw_name, pwd->pw_gid); #endif #ifdef USE_PAM if ((pam_err = pam_open_session(pamh, 0)) != PAM_SUCCESS) { syslog(LOG_ERR, "pam_open_session: %s", pam_strerror(pamh, pam_err)); } else if ((pam_err = pam_setcred(pamh, PAM_ESTABLISH_CRED)) != PAM_SUCCESS) { syslog(LOG_ERR, "pam_setcred: %s", pam_strerror(pamh, pam_err)); } #endif (void)write(STDERR_FILENO, "\0", 1); sent_null = 1; if (port) { if (pipe(pv) < 0) rshd_errx(EXIT_FAILURE, "Can't make pipe. (%s)", strerror(errno)); pid = fork(); if (pid == -1) rshd_errx(EXIT_FAILURE, "Can't fork. (%s)", strerror(errno)); if (pid) { (void)close(STDIN_FILENO); (void)close(STDOUT_FILENO); (void)close(STDERR_FILENO); (void)close(pv[1]); set[0].fd = s; set[0].events = POLLIN; set[1].fd = pv[0]; set[1].events = POLLIN; ioctl(pv[0], FIONBIO, (char *)&one); /* should set s nbio! */ do { if (poll(set, 2, INFTIM) < 0) break; if (set[0].revents & POLLIN) { int ret; ret = read(s, &sig, 1); if (ret <= 0) set[0].events = 0; else killpg(pid, sig); } if (set[1].revents & POLLIN) { errno = 0; cc = read(pv[0], buf, sizeof(buf)); if (cc <= 0) { shutdown(s, SHUT_RDWR); set[1].events = 0; } else { (void)write(s, buf, cc); } } } while ((set[0].revents | set[1].revents) & POLLIN); PAM_END; exit(EXIT_SUCCESS); } (void)close(s); (void)close(pv[0]); (void)dup2(pv[1], STDERR_FILENO); close(pv[1]); } #ifdef USE_PAM else { pid = fork(); if (pid == -1) rshd_errx(EXIT_FAILURE, "Can't fork. (%s)", strerror(errno)); if (pid) { pid_t xpid; int status; if ((xpid = waitpid(pid, &status, 0)) != pid) { pam_err = pam_close_session(pamh, 0); if (pam_err != PAM_SUCCESS) { syslog(LOG_ERR, "pam_close_session: %s", pam_strerror(pamh, pam_err)); } PAM_END; if (xpid != -1) syslog(LOG_WARNING, "wrong PID: %d != %d", pid, xpid); else syslog(LOG_WARNING, "wait pid=%d failed %m", pid); exit(EXIT_FAILURE); } exit(EXIT_SUCCESS); } } #endif #ifdef F_CLOSEM (void)fcntl(STDERR_FILENO + 1, F_CLOSEM, 0); #else for (fd = getdtablesize(); fd > STDERR_FILENO; fd--) (void)close(fd); #endif if (setsid() == -1) syslog(LOG_ERR, "setsid() failed: %m"); #ifdef USE_PAM if (setlogin(pwd->pw_name) < 0) syslog(LOG_ERR, "setlogin() failed: %m"); if (*pwd->pw_shell == '\0') pwd->pw_shell = __UNCONST(_PATH_BSHELL); (void)pam_setenv(pamh, "HOME", pwd->pw_dir, 1); (void)pam_setenv(pamh, "SHELL", pwd->pw_shell, 1); (void)pam_setenv(pamh, "USER", pwd->pw_name, 1); (void)pam_setenv(pamh, "PATH", _PATH_DEFPATH, 1); environ = pam_getenvlist(pamh); (void)pam_end(pamh, pam_err); #else #ifdef LOGIN_CAP { char *sh; if ((sh = login_getcapstr(lc, "shell", NULL, NULL))) { if(!(sh = strdup(sh))) { syslog(LOG_ERR, "Cannot alloc mem"); exit(EXIT_FAILURE); } pwd->pw_shell = sh; } } #endif { static char *envinit[] = { NULL }; environ = envinit; } setenv("PATH", _PATH_DEFPATH, 1); setenv("HOME", pwd->pw_dir, 1); setenv("SHELL", pwd->pw_shell, 1); setenv("USER", pwd->pw_name, 1); #endif cp = strrchr(pwd->pw_shell, '/'); if (cp) cp++; else cp = pwd->pw_shell; #ifdef LOGIN_CAP if (setusercontext(lc, pwd, pwd->pw_uid, LOGIN_SETALL & ~LOGIN_SETGROUP) < 0) { syslog(LOG_ERR, "setusercontext(): %m"); exit(EXIT_FAILURE); } login_close(lc); #else (void)setgid((gid_t)pwd->pw_gid); (void)setuid((uid_t)pwd->pw_uid); #endif endpwent(); if (log_success || pwd->pw_uid == 0) { syslog(LOG_INFO|LOG_AUTH, "%s@%s as %s: cmd='%.80s'", remuser, hostname, locuser, cmdbuf); } (void)execl(pwd->pw_shell, cp, "-c", cmdbuf, NULL); rshd_errx(EXIT_FAILURE, "%s: %s", pwd->pw_shell, strerror(errno)); badlogin: syslog(LOG_INFO|LOG_AUTH, "%s@%s as %s: permission denied (%s). cmd='%.80s'", remuser, hostname, locuser, errormsg, cmdbuf); rshd_errx(EXIT_FAILURE, errorstr, errorhost); } /* * Report error to client. Note: can't be used until second socket has * connected to client, or older clients will hang waiting for that * connection first. */ #include static void rshd_errx(int error, const char *fmt, ...) { va_list ap; int len, rv; char *bp, buf[BUFSIZ]; va_start(ap, fmt); bp = buf; if (sent_null == 0) { *bp++ = 1; len = 1; } else len = 0; rv = vsnprintf(bp, sizeof(buf) - 2, fmt, ap); bp[rv++] = '\n'; (void)write(STDERR_FILENO, buf, len + rv); va_end(ap); exit(error); } static void getstr(char *buf, int cnt, const char *err) { char c; do { if (read(STDIN_FILENO, &c, 1) != 1) exit(EXIT_FAILURE); *buf++ = c; if (--cnt == 0) rshd_errx(EXIT_FAILURE, "%s too long", err); } while (c != 0); } /* * Check whether host h is in our local domain, * defined as sharing the last two components of the domain part, * or the entire domain part if the local domain has only one component. * If either name is unqualified (contains no '.'), * assume that the host is local, as it will be * interpreted as such. */ static int local_domain(char *h) { char localhost[MAXHOSTNAMELEN + 1]; char *p1, *p2; localhost[0] = 0; (void)gethostname(localhost, sizeof(localhost)); localhost[sizeof(localhost) - 1] = '\0'; p1 = topdomain(localhost); p2 = topdomain(h); if (p1 == NULL || p2 == NULL || !strcasecmp(p1, p2)) return (1); return (0); } static char * topdomain(char *h) { char *p, *maybe = NULL; int dots = 0; for (p = h + strlen(h); p >= h; p--) { if (*p == '.') { if (++dots == 2) return (p); maybe = p; } } return (maybe); } static void usage(void) { syslog(LOG_ERR, "Usage: %s [-%s]", getprogname(), OPTIONS); exit(EXIT_FAILURE); } src/libexec/talkd004075500011300000175000000000001504273241000142315ustar00srcmastrnetbsdsrc/libexec/talkd/CVS004075500011300000175000000000001504273241000146645ustar00srcmastrnetbsdsrc/libexec/talkd/CVS/Root010064400011300000175000000000441504273241000156040ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/talkd/CVS/Repository010064400011300000175000000000221504273241000170340ustar00srcmastrnetbsdsrc/libexec/talkd src/libexec/talkd/CVS/Entries010064400011300000175000000006401504273241000162740ustar00srcmastrnetbsd/Makefile/1.13/Sat Sep 27 04:41:20 2008//Tnetbsd-11 /announce.c/1.25/Mon Mar 16 01:13:38 2009//Tnetbsd-11 /extern.h/1.7/Wed Oct 21 01:07:46 2009//Tnetbsd-11 /print.c/1.10/Mon Mar 16 01:13:38 2009//Tnetbsd-11 /process.c/1.14/Mon Mar 16 01:13:38 2009//Tnetbsd-11 /table.c/1.11/Thu Sep 3 08:16:36 2015//Tnetbsd-11 /talkd.8/1.11/Mon Mar 22 19:01:49 2010//Tnetbsd-11 /talkd.c/1.21/Mon Mar 16 01:04:32 2009//Tnetbsd-11 D src/libexec/talkd/CVS/Tag010064400011300000175000000000131522207752300153770ustar00srcmastrnetbsdTnetbsd-11 src/libexec/talkd/Makefile010064400011300000175000000006601106733456000157560ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.13 2008/09/27 04:41:20 reed Exp $ # @(#)Makefile 8.1 (Berkeley) 6/4/93 .include PROG= ntalkd SRCS= talkd.c announce.c process.c table.c print.c utmpentry.c MAN= ntalkd.8 BUILDSYMLINKS+= talkd.8 ntalkd.8 MLINKS+=ntalkd.8 talkd.8 DPADD+=${LIBUTIL} LDADD+=-lutil .PATH.c: ${NETBSDSRCDIR}/usr.bin/who CPPFLAGS+=-I${NETBSDSRCDIR}/usr.bin/who -DSUPPORT_UTMPX -DSUPPORT_UTMP .include src/libexec/talkd/announce.c010064400011300000175000000122741115732370200162700ustar00srcmastrnetbsd/* $NetBSD: announce.c,v 1.25 2009/03/16 01:13:38 lukem Exp $ */ /* * Copyright (c) 1983, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint #if 0 static char sccsid[] = "@(#)announce.c 8.3 (Berkeley) 4/28/95"; #else __RCSID("$NetBSD: announce.c,v 1.25 2009/03/16 01:13:38 lukem Exp $"); #endif #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "extern.h" extern char hostname[]; /* * Announce an invitation to talk. */ /* * See if the user is accepting messages. If so, announce that * a talk is requested. */ int announce(CTL_MSG *request, const char *remote_machine) { char full_tty[32]; struct stat stbuf; (void)snprintf(full_tty, sizeof(full_tty), "%s%s", _PATH_DEV, request->r_tty); if (stat(full_tty, &stbuf) < 0 || (stbuf.st_mode&S_IWGRP) == 0) return (PERMISSION_DENIED); return (print_mesg(request->r_tty, request, remote_machine)); } #define max(a, b) ((a) > (b) ? (a) : (b)) #define N_LINES 5 #define N_CHARS 256 /* * Build a block of characters containing the message. * It is sent blank filled and in a single block to * try to keep the message in one piece if the recipient * is in vi at the time. */ int print_mesg(const char *tty, CTL_MSG *request, const char *remote_machine) { struct timeval clocktv; time_t clocktime; struct tm *localclock; struct iovec iovec; char line_buf[N_LINES][N_CHARS]; int sizes[N_LINES]; char big_buf[(N_LINES + 1) * N_CHARS]; char *bptr, *lptr, vis_user[sizeof(request->l_name) * 4]; int i, j, max_size; i = 0; max_size = 0; (void)gettimeofday(&clocktv, NULL); clocktime = clocktv.tv_sec; localclock = localtime(&clocktime); (void)snprintf(line_buf[i], N_CHARS, " "); sizes[i] = strlen(line_buf[i]); max_size = max(max_size, sizes[i]); i++; (void)snprintf(line_buf[i], N_CHARS, "Message from Talk_Daemon@%s at %d:%02d ...", hostname, localclock->tm_hour, localclock->tm_min); sizes[i] = strlen(line_buf[i]); max_size = max(max_size, sizes[i]); i++; if (strlen(request->l_name) + 1 > sizeof(vis_user) / 4) return (FAILED); strvis(vis_user, request->l_name, VIS_CSTYLE); (void)snprintf(line_buf[i], N_CHARS, "talk: connection requested by %s@%s.", vis_user, remote_machine); sizes[i] = strlen(line_buf[i]); max_size = max(max_size, sizes[i]); i++; (void)snprintf(line_buf[i], N_CHARS, "talk: respond with: talk %s@%s", vis_user, remote_machine); sizes[i] = strlen(line_buf[i]); max_size = max(max_size, sizes[i]); i++; (void)snprintf(line_buf[i], N_CHARS, " "); sizes[i] = strlen(line_buf[i]); max_size = max(max_size, sizes[i]); i++; bptr = big_buf; *bptr++ = '\a'; /* send something to wake them up */ *bptr++ = '\r'; /* add a \r in case of raw mode */ *bptr++ = '\n'; for (i = 0; i < N_LINES; i++) { /* copy the line into the big buffer */ lptr = line_buf[i]; while (*lptr != '\0' && lptr < (line_buf[i] + N_CHARS)) *(bptr++) = *(lptr++); /* pad out the rest of the lines with blanks */ for (j = sizes[i]; j < max_size + 2; j++) *(bptr++) = ' '; *(bptr++) = '\r'; /* add a \r in case of raw mode */ *(bptr++) = '\n'; } *bptr = '\0'; iovec.iov_base = big_buf; iovec.iov_len = bptr - big_buf; /* * we choose a timeout of RING_WAIT-5 seconds so that we don't * stack up processes trying to write messages to a tty * that is permanently blocked. */ if (ttymsg(&iovec, 1, tty, RING_WAIT - 5) != NULL) return (FAILED); return (SUCCESS); } src/libexec/talkd/extern.h010064400011300000175000000040101126745734200157730ustar00srcmastrnetbsd/* $NetBSD: extern.h,v 1.7 2009/10/21 01:07:46 snj Exp $ */ /* * Copyright (c) 1997 Christos Zoulas. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ /* announce.c */ int announce(CTL_MSG *, const char *); int print_mesg(const char *, CTL_MSG *, const char *); /* print.c */ void print_request(const char *, CTL_MSG *); void print_response(const char *, CTL_RESPONSE *); /* process.c */ void process_request(CTL_MSG *, CTL_RESPONSE *); void do_announce(CTL_MSG *, CTL_RESPONSE *); int find_user(const char *, char *, size_t); /* table.c */ CTL_MSG *find_match(CTL_MSG *); CTL_MSG *find_request(CTL_MSG *); void insert_table(CTL_MSG *, CTL_RESPONSE *); uint32_t new_id(void); u_char delete_invite(uint32_t); /* talkd.c */ extern int debug; extern int logging; void tsa2sa(struct sockaddr *, const struct talkd_sockaddr *); src/libexec/talkd/print.c010064400011300000175000000063321115732370200156140ustar00srcmastrnetbsd/* $NetBSD: print.c,v 1.10 2009/03/16 01:13:38 lukem Exp $ */ /* * Copyright (c) 1983, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint #if 0 static char sccsid[] = "@(#)print.c 8.1 (Berkeley) 6/4/93"; #else __RCSID("$NetBSD: print.c,v 1.10 2009/03/16 01:13:38 lukem Exp $"); #endif #endif /* not lint */ /* debug/logging print routines */ #include #include #include #include #include #include #include "extern.h" static const char *types[] = { "leave_invite", "look_up", "delete", "announce" }; #define NTYPES (sizeof (types) / sizeof (types[0])) static const char *answers[] = { "success", "not_here", "failed", "machine_unknown", "permission_denied", "unknown_request", "badversion", "badaddr", "badctladdr" }; #define NANSWERS (sizeof (answers) / sizeof (answers[0])) void print_request(const char *cp, CTL_MSG *mp) { char tbuf[80]; const char *tp; if (mp->type >= NTYPES) { (void)snprintf(tbuf, sizeof tbuf, "type %d", mp->type); tp = tbuf; } else tp = types[mp->type]; syslog(debug ? LOG_DEBUG : LOG_INFO, "%s: %s: id %"PRIu32", l_user %s, r_user %s, r_tty %s", cp, tp, mp->id_num, mp->l_name, mp->r_name, mp->r_tty); } void print_response(const char *cp, CTL_RESPONSE *rp) { char tbuf[80], abuf[80]; const char *tp, *ap; if (rp->type >= NTYPES) { (void)snprintf(tbuf, sizeof tbuf, "type %d", rp->type); tp = tbuf; } else tp = types[rp->type]; if (rp->answer >= NANSWERS) { (void)snprintf(abuf, sizeof abuf, "answer %d", rp->answer); ap = abuf; } else ap = answers[rp->answer]; syslog(debug ? LOG_DEBUG : LOG_INFO, "%s: %s: %s, id %"PRIu32, cp, tp, ap, ntohl(rp->id_num)); } src/libexec/talkd/process.c010064400011300000175000000134311115732370200161340ustar00srcmastrnetbsd/* $NetBSD: process.c,v 1.14 2009/03/16 01:13:38 lukem Exp $ */ /* * Copyright (c) 1983, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint #if 0 static char sccsid[] = "@(#)process.c 8.2 (Berkeley) 11/16/93"; #else __RCSID("$NetBSD: process.c,v 1.14 2009/03/16 01:13:38 lukem Exp $"); #endif #endif /* not lint */ /* * process.c handles the requests, which can be of three types: * ANNOUNCE - announce to a user that a talk is wanted * LEAVE_INVITE - insert the request into the table * LOOK_UP - look up to see if a request is waiting in * in the table for the local user * DELETE - delete invitation */ #include #include #include #include #include #include #include #include #include #include #include "extern.h" #include "utmpentry.h" void process_request(CTL_MSG *mp, CTL_RESPONSE *rp) { CTL_MSG *ptr; rp->vers = TALK_VERSION; rp->type = mp->type; rp->id_num = htonl(0); mp->id_num = ntohl(mp->id_num); mp->addr.sa_family = ntohs(mp->addr.sa_family); mp->ctl_addr.sa_family = ntohs(mp->ctl_addr.sa_family); mp->pid = ntohl(mp->pid); if (mp->vers != TALK_VERSION) { syslog(LOG_WARNING, "Bad protocol version %d", mp->vers); rp->answer = BADVERSION; return; } if (mp->addr.sa_family != AF_INET) { syslog(LOG_WARNING, "Bad address, family %d", mp->addr.sa_family); rp->answer = BADADDR; return; } if (mp->ctl_addr.sa_family != AF_INET) { syslog(LOG_WARNING, "Bad control address, family %d", mp->ctl_addr.sa_family); rp->answer = BADCTLADDR; return; } if (debug || logging) print_request("request", mp); switch (mp->type) { case ANNOUNCE: do_announce(mp, rp); break; case LEAVE_INVITE: ptr = find_request(mp); if (ptr != (CTL_MSG *)0) { rp->id_num = htonl(ptr->id_num); rp->answer = SUCCESS; } else insert_table(mp, rp); break; case LOOK_UP: ptr = find_match(mp); if (ptr != (CTL_MSG *)0) { rp->id_num = htonl(ptr->id_num); rp->addr = ptr->addr; rp->addr.sa_family = htons(ptr->addr.sa_family); rp->answer = SUCCESS; } else rp->answer = NOT_HERE; break; case DELETE: rp->answer = delete_invite(mp->id_num); break; default: rp->answer = UNKNOWN_REQUEST; break; } if (debug) print_response("process_request done", rp); } void do_announce(CTL_MSG *mp, CTL_RESPONSE *rp) { CTL_MSG *ptr; int result; char hostname[NI_MAXHOST]; struct sockaddr sa; tsa2sa(&sa, &mp->ctl_addr); /* see if the user is logged */ result = find_user(mp->r_name, mp->r_tty, sizeof(mp->r_tty)); if (result != SUCCESS) { rp->answer = result; return; } if (getnameinfo(&sa, sa.sa_len, hostname, sizeof(hostname), NULL, 0, 0)) { rp->answer = MACHINE_UNKNOWN; return; } ptr = find_request(mp); if (ptr == (CTL_MSG *) 0) { insert_table(mp, rp); rp->answer = announce(mp, hostname); return; } if (mp->id_num > ptr->id_num) { /* * This is an explicit re-announce, so update the id_num * field to avoid duplicates and re-announce the talk. */ ptr->id_num = new_id(); rp->id_num = htonl(ptr->id_num); rp->answer = announce(mp, hostname); } else { /* a duplicated request, so ignore it */ rp->id_num = htonl(ptr->id_num); rp->answer = SUCCESS; } } /* * Search utmp for the local user */ int find_user(const char *name, char *tty, size_t ttysize) { int status; struct stat statb; struct utmpentry *ep; char ftty[sizeof(_PATH_DEV) + sizeof(ep->line)]; time_t atime = 0; int anytty = 0; (void)getutentries(NULL, &ep); status = NOT_HERE; (void) strlcpy(ftty, _PATH_DEV, sizeof(ftty)); if (*tty == '\0') anytty = 1; for (; ep; ep = ep->next) { if (strcmp(ep->name, name) != 0) continue; if (anytty) { /* no particular tty was requested */ (void)strlcpy(ftty + sizeof(_PATH_DEV) - 1, ep->line, sizeof(ftty) - sizeof(_PATH_DEV) + 1); if (stat(ftty, &statb) != 0) continue; if (!(statb.st_mode & S_IWGRP)) { if (status != SUCCESS) status = PERMISSION_DENIED; continue; } if (statb.st_atime > atime && strlcpy(tty, ep->line, ttysize) < ttysize) { atime = statb.st_atime; status = SUCCESS; } } else if (strcmp(ep->line, tty) == 0) { status = SUCCESS; break; } } return (status); } src/libexec/talkd/table.c010064400011300000175000000137651257200074400155570ustar00srcmastrnetbsd/* $NetBSD: table.c,v 1.11 2015/09/03 08:16:36 dholland Exp $ */ /* * Copyright (c) 1983, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint #if 0 static char sccsid[] = "@(#)table.c 8.1 (Berkeley) 6/4/93"; #else __RCSID("$NetBSD: table.c,v 1.11 2015/09/03 08:16:36 dholland Exp $"); #endif #endif /* not lint */ /* * Routines to handle insertion, deletion, etc on the table * of requests kept by the daemon. Nothing fancy here, linear * search on a double-linked list. A time is kept with each * entry so that overly old invitations can be eliminated. * * Consider this a mis-guided attempt at modularity */ #include #include #include #include #include #include #include #include #include #include #include "extern.h" #define MAX_ID 16000 /* << 2^15 so I don't have sign troubles */ #define NIL ((TABLE_ENTRY *)0) struct timeval tp; typedef struct table_entry TABLE_ENTRY; struct table_entry { CTL_MSG request; time_t time; TABLE_ENTRY *next; TABLE_ENTRY *last; }; TABLE_ENTRY *table = NIL; static void delete(TABLE_ENTRY *); /* * Look in the table for an invitation that matches the current * request looking for an invitation */ CTL_MSG * find_match(CTL_MSG *request) { TABLE_ENTRY *ptr; time_t current_time; gettimeofday(&tp, NULL); current_time = tp.tv_sec; if (debug) print_request("find_match", request); for (ptr = table; ptr != NIL; ptr = ptr->next) { if ((ptr->time - current_time) > MAX_LIFE) { /* the entry is too old */ if (debug) print_request("deleting expired entry", &ptr->request); delete(ptr); continue; } if (debug) print_request("", &ptr->request); if (strcmp(request->l_name, ptr->request.r_name) == 0 && strcmp(request->r_name, ptr->request.l_name) == 0 && ptr->request.type == LEAVE_INVITE) return (&ptr->request); } return ((CTL_MSG *)0); } /* * Look for an identical request, as opposed to a complimentary * one as find_match does */ CTL_MSG * find_request(CTL_MSG *request) { TABLE_ENTRY *ptr; time_t current_time; gettimeofday(&tp, NULL); current_time = tp.tv_sec; /* * See if this is a repeated message, and check for * out of date entries in the table while we are it. */ if (debug) print_request("find_request", request); for (ptr = table; ptr != NIL; ptr = ptr->next) { if ((ptr->time - current_time) > MAX_LIFE) { /* the entry is too old */ if (debug) print_request("deleting expired entry", &ptr->request); delete(ptr); continue; } if (debug) print_request("", &ptr->request); if (strcmp(request->r_name, ptr->request.r_name) == 0 && strcmp(request->l_name, ptr->request.l_name) == 0 && request->type == ptr->request.type && request->pid == ptr->request.pid) { /* update the time if we 'touch' it */ ptr->time = current_time; return (&ptr->request); } } return ((CTL_MSG *)0); } void insert_table(CTL_MSG *request, CTL_RESPONSE *response) { TABLE_ENTRY *ptr; time_t current_time; gettimeofday(&tp, NULL); current_time = tp.tv_sec; request->id_num = new_id(); response->id_num = htonl(request->id_num); /* insert a new entry into the top of the list */ ptr = (TABLE_ENTRY *)malloc(sizeof(TABLE_ENTRY)); if (ptr == NIL) { syslog(LOG_ERR, "insert_table: Out of memory"); _exit(1); } ptr->time = current_time; ptr->request = *request; ptr->next = table; if (ptr->next != NIL) ptr->next->last = ptr; ptr->last = NIL; table = ptr; } /* * Generate a unique non-zero sequence number */ uint32_t new_id(void) { static uint32_t current_id = 0; current_id = (current_id + 1) % MAX_ID; /* 0 is reserved, helps to pick up bugs */ if (current_id == 0) current_id = 1; return (current_id); } /* * Delete the invitation with id 'id_num' */ u_char delete_invite(uint32_t id_num) { TABLE_ENTRY *ptr; if (debug) syslog(LOG_DEBUG, "delete_invite(%"PRIu32")", id_num); for (ptr = table; ptr != NIL; ptr = ptr->next) { if (ptr->request.id_num == id_num) break; if (debug) print_request("", &ptr->request); } if (ptr != NIL) { delete(ptr); return (SUCCESS); } return (NOT_HERE); } /* * Classic delete from a double-linked list */ static void delete(TABLE_ENTRY *ptr) { if (debug) print_request("delete", &ptr->request); if (table == ptr) table = ptr->next; else if (ptr->last != NIL) ptr->last->next = ptr->next; if (ptr->next != NIL) ptr->next->last = ptr->last; free((char *)ptr); } src/libexec/talkd/talkd.8010064400011300000175000000066651135173723500155230ustar00srcmastrnetbsd.\" $NetBSD: talkd.8,v 1.11 2010/03/22 19:01:49 joerg Exp $ .\" Copyright (c) 1983, 1991, 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. Neither the name of the University nor the names of its contributors .\" may be used to endorse or promote products derived from this software .\" without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF .\" SUCH DAMAGE. .\" .\" @(#)talkd.8 8.2 (Berkeley) 12/11/93 .\" .Dd March 23, 2004 .Dt NTALKD 8 .Os .Sh NAME .Nm ntalkd , .Nm talkd .Nd remote user communication server .Sh SYNOPSIS .Nm .Op Fl dl .Sh DESCRIPTION .Nm is the server that notifies a user that someone else wants to initiate a conversation. It acts as a repository of invitations, responding to requests by clients wishing to rendezvous to hold a conversation. .Pp In normal operation, a client, the caller, initiates a rendezvous by sending a .Tn CTL_MSG to the server of type .Tn LOOK_UP .Po see .In protocols/talkd.h .Pc . This causes the server to search its invitation tables to check if an invitation currently exists for the caller (to speak to the callee specified in the message). If the lookup fails, the caller then sends an .Tn ANNOUNCE message causing the server to broadcast an announcement on the callee's login ports requesting contact. .Pp When the callee responds, the local server uses the recorded invitation to respond with the appropriate rendezvous address and the caller and callee client programs establish a stream connection through which the conversation takes place. .Sh OPTIONS .Nm supports the following options: .Bl -tag -width 12345 .It Fl d The .Fl d option turns on debugging logging. .It Fl l The .Fl l option turns on accounting logging for .Nm via the .Xr syslogd 8 service. .El .Sh FILES .Pa /usr/libexec/ntalkd .Sh SEE ALSO .Xr talk 1 , .Xr write 1 , .Xr syslog 3 , .Xr syslogd 8 .Sh HISTORY The .Nm command appeared in .Bx 4.3 . .Pp The original talkd program was coded improperly, in a machine and byte-order dependent fashion. When this was corrected, it required a protocol change, which necessitated a different daemon to handle it, thus .Nm or .Qq new talk daemon. The old daemon has long since been removed, but the detritus remain. src/libexec/talkd/talkd.c010064400011300000175000000106061115732264000155560ustar00srcmastrnetbsd/* $NetBSD: talkd.c,v 1.21 2009/03/16 01:04:32 lukem Exp $ */ /* * Copyright (c) 1983, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint __COPYRIGHT("@(#) Copyright (c) 1983, 1993\ The Regents of the University of California. All rights reserved."); #endif /* not lint */ #ifndef lint #if 0 static char sccsid[] = "@(#)talkd.c 8.1 (Berkeley) 6/4/93"; #else __RCSID("$NetBSD: talkd.c,v 1.21 2009/03/16 01:04:32 lukem Exp $"); #endif #endif /* not lint */ /* * The top level of the daemon, the format is heavily borrowed * from rwhod.c. Basically: find out who and where you are; * disconnect all descriptors and ttys, and then endless * loop on waiting for and processing requests */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include "extern.h" CTL_MSG request; CTL_RESPONSE response; int sockt = STDIN_FILENO; int debug = 0; int logging = 0; time_t lastmsgtime; char hostname[MAXHOSTNAMELEN + 1]; #define TIMEOUT 30 #define MAXIDLE 120 static void timeout(int); int main(int, char *[]); int main(int argc, char *argv[]) { CTL_MSG *mp = &request; int cc, ch; struct sockaddr ctl_addr; openlog("talkd", LOG_PID, LOG_DAEMON); while ((ch = getopt(argc, argv, "dl")) != -1) switch (ch) { case 'd': debug = 1; break; case 'l': logging = 1; break; default: syslog(LOG_ERR, "Usage: %s [-dl]", getprogname()); exit(1); } if (gethostname(hostname, sizeof hostname) < 0) { syslog(LOG_ERR, "gethostname: %m"); _exit(1); } hostname[MAXHOSTNAMELEN] = '\0'; /* ensure null termination */ if (chdir(_PATH_DEV) < 0) { syslog(LOG_ERR, "chdir: %s: %m", _PATH_DEV); _exit(1); } signal(SIGALRM, timeout); alarm(TIMEOUT); for (;;) { memset(&response, 0, sizeof(response)); cc = recv(0, (char *)mp, sizeof (*mp), 0); if (cc != sizeof (*mp)) { if (cc < 0 && errno != EINTR) syslog(LOG_WARNING, "recv: %m"); continue; } mp->l_name[sizeof(mp->l_name) - 1] = '\0'; mp->r_name[sizeof(mp->r_name) - 1] = '\0'; mp->r_tty[sizeof(mp->r_tty) - 1] = '\0'; lastmsgtime = time(0); process_request(mp, &response); tsa2sa(&ctl_addr, &mp->ctl_addr); if (ctl_addr.sa_family != AF_INET) continue; /* can block here, is this what I want? */ cc = sendto(sockt, (char *)&response, sizeof (response), 0, &ctl_addr, sizeof (ctl_addr)); if (cc != sizeof (response)) syslog(LOG_WARNING, "sendto: %m"); } } void timeout(int n) { int save_errno = errno; if (time(0) - lastmsgtime >= MAXIDLE) _exit(0); alarm(TIMEOUT); errno = save_errno; } void tsa2sa(struct sockaddr *sa, const struct talkd_sockaddr *tsa) { (void)memcpy(sa, tsa, sizeof(*tsa)); sa->sa_len = sizeof(*tsa); sa->sa_family = tsa->sa_family; } src/libexec/telnetd004075500011300000175000000000001504273241000145715ustar00srcmastrnetbsdsrc/libexec/telnetd/CVS004075500011300000175000000000001504273241000152245ustar00srcmastrnetbsdsrc/libexec/telnetd/CVS/Root010064400011300000175000000000441504273241000161440ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/telnetd/CVS/Repository010064400011300000175000000000241504273241000173760ustar00srcmastrnetbsdsrc/libexec/telnetd src/libexec/telnetd/CVS/Entries010064400011300000175000000013321504273241000166330ustar00srcmastrnetbsd/Makefile/1.53/Sun Feb 25 00:16:48 2018//Tnetbsd-11 /authenc.c/1.12/Sun Feb 6 05:58:20 2005//Tnetbsd-11 /defs.h/1.16/Wed Feb 21 21:14:07 2007//Tnetbsd-11 /ext.h/1.23/Thu Apr 23 00:03:40 2020//Tnetbsd-11 /global.c/1.9/Thu Apr 23 00:03:40 2020//Tnetbsd-11 /pathnames.h/1.7/Thu Aug 7 09:46:51 2003//Tnetbsd-11 /slc.c/1.16/Tue Nov 1 19:45:35 2022//Tnetbsd-11 /state.c/1.35/Tue Oct 29 13:10:10 2024//Tnetbsd-11 /sys_term.c/1.51/Fri Jun 27 21:36:23 2025//Tnetbsd-11 /telnetd.8/1.32/Sat Dec 15 23:23:51 2018//Tnetbsd-11 /telnetd.c/1.60/Tue Oct 29 13:10:10 2024//Tnetbsd-11 /telnetd.h/1.8/Thu Aug 7 09:46:52 2003//Tnetbsd-11 /termstat.c/1.14/Sun Feb 6 05:58:21 2005//Tnetbsd-11 /utility.c/1.34/Fri Aug 26 22:01:20 2022//Tnetbsd-11 D src/libexec/telnetd/CVS/Tag010064400011300000175000000000131522207752300157370ustar00srcmastrnetbsdTnetbsd-11 src/libexec/telnetd/Makefile010064400011300000175000000017521324440016000163060ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.53 2018/02/25 00:16:48 mrg Exp $ # from: @(#)Makefile 8.2 (Berkeley) 12/15/93 WARNS?= 4 # XXX: const issues in sys_term.c .include MAN= telnetd.8 PROG= telnetd CPPFLAGS+=-DLINEMODE -DKLUDGELINEMODE -DDIAGNOSTICS CPPFLAGS+=-DOLD_ENVIRON -DENV_HACK -DSECURELOGIN -DSUPPORT_UTMP -DSUPPORT_UTMPX SRCS= authenc.c global.c slc.c state.c sys_term.c telnetd.c \ termstat.c utility.c DPADD= ${LIBTELNETDIR}/libtelnet.a ${LIBTERMINFO} ${LIBUTIL} LDADD+= ${LIBTELNETDIR}/libtelnet.a -lterminfo -lutil CPPFLAGS+=-I${NETBSDSRCDIR}/lib CPPFLAGS+=-I${.CURDIR} LIBTELNETDIR!= cd ${.CURDIR}/../../lib/libtelnet; ${PRINTOBJDIR} .if (${USE_KERBEROS} != "no") CPPFLAGS+=-DKRB5 LDADD+= ${LIBKRB5_LDADD} DPADD+= ${LIBKRB5_DPADD} .endif CPPFLAGS+=-DAUTHENTICATION -DENCRYPTION LDADD+=-ldes -lcrypto -lcrypt DPADD+=${LIBDES} ${LIBCRYPTO} ${LIBCRYPT} .if (${USE_PAM} != "no") LDADD+= -lpam ${PAM_STATIC_LDADD} DPADD+= ${LIBPAM} ${PAM_STATIC_DPADD} .endif .include src/libexec/telnetd/authenc.c010064400011300000175000000051211020133077400164360ustar00srcmastrnetbsd/* $NetBSD: authenc.c,v 1.12 2005/02/06 05:58:20 perry Exp $ */ /*- * Copyright (c) 1991, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint #if 0 static char sccsid[] = "@(#)authenc.c 8.2 (Berkeley) 5/30/95"; #else __RCSID("$NetBSD: authenc.c,v 1.12 2005/02/06 05:58:20 perry Exp $"); #endif #endif /* not lint */ #if defined(AUTHENTICATION) || defined(ENCRYPTION) #include "telnetd.h" #include int telnet_net_write(unsigned char *str, int len) { if (nfrontp + len < netobuf + BUFSIZ) { output_datalen((const char *)str, len); return(len); } return(0); } void net_encrypt(void) { #ifdef ENCRYPTION char *s = (nclearto > nbackp) ? nclearto : nbackp; if (s < nfrontp && encrypt_output) { (*encrypt_output)((unsigned char *)s, nfrontp - s); } nclearto = nfrontp; #endif /* ENCRYPTION */ } int telnet_spin(void) { ttloop(); return(0); } char * telnet_getenv(char *val) { return(getenv(val)); } char * telnet_gets(char *prompt, char *result, int length, int echo) { return((char *)0); } #endif /* defined(AUTHENTICATION) || defined(ENCRYPTION) */ src/libexec/telnetd/defs.h010064400011300000175000000146721056713303700157600ustar00srcmastrnetbsd/* $NetBSD: defs.h,v 1.16 2007/02/21 21:14:07 hubertf Exp $ */ /* * Copyright (c) 1989, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * * from: @(#)defs.h 8.1 (Berkeley) 6/4/93 */ /* * Telnet server defines */ #include #include #if defined(PRINTOPTIONS) && defined(DIAGNOSTICS) #define TELOPTS #define TELCMDS #define SLC_NAMES #endif #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include /* * I/O data buffers defines */ #define NETSLOP 64 #define NIACCUM(c) do { \ *netip++ = c; \ ncc++; \ } while (0) /* clock manipulations */ #define settimer(x) (clocks.x = ++clocks.system) #define sequenceIs(x,y) (clocks.x < clocks.y) /* * Linemode support states, in decreasing order of importance */ #define REAL_LINEMODE 0x04 #define KLUDGE_OK 0x03 #define NO_AUTOKLUDGE 0x02 #define KLUDGE_LINEMODE 0x01 #define NO_LINEMODE 0x00 /* * Structures of information for each special character function. */ typedef struct { unsigned char flag; /* the flags for this function */ cc_t val; /* the value of the special character */ } slcent, *Slcent; typedef struct { slcent defset; /* the default settings */ slcent current; /* the current settings */ cc_t *sptr; /* a pointer to the char in */ /* system data structures */ } slcfun, *Slcfun; #ifdef DIAGNOSTICS /* * Diagnostics capabilities */ #define TD_REPORT 0x01 /* Report operations to client */ #define TD_EXERCISE 0x02 /* Exercise client's implementation */ #define TD_NETDATA 0x04 /* Display received data stream */ #define TD_PTYDATA 0x08 /* Display data passed to pty */ #define TD_OPTIONS 0x10 /* Report just telnet options */ #endif /* DIAGNOSTICS */ /* * We keep track of each side of the option negotiation. */ #define MY_STATE_WILL 0x01 #define MY_WANT_STATE_WILL 0x02 #define MY_STATE_DO 0x04 #define MY_WANT_STATE_DO 0x08 /* * Macros to check the current state of things */ #define my_state_is_do(opt) (options[opt]&MY_STATE_DO) #define my_state_is_will(opt) (options[opt]&MY_STATE_WILL) #define my_want_state_is_do(opt) (options[opt]&MY_WANT_STATE_DO) #define my_want_state_is_will(opt) (options[opt]&MY_WANT_STATE_WILL) #define my_state_is_dont(opt) (!my_state_is_do(opt)) #define my_state_is_wont(opt) (!my_state_is_will(opt)) #define my_want_state_is_dont(opt) (!my_want_state_is_do(opt)) #define my_want_state_is_wont(opt) (!my_want_state_is_will(opt)) #define set_my_state_do(opt) (options[opt] |= MY_STATE_DO) #define set_my_state_will(opt) (options[opt] |= MY_STATE_WILL) #define set_my_want_state_do(opt) (options[opt] |= MY_WANT_STATE_DO) #define set_my_want_state_will(opt) (options[opt] |= MY_WANT_STATE_WILL) #define set_my_state_dont(opt) (options[opt] &= ~MY_STATE_DO) #define set_my_state_wont(opt) (options[opt] &= ~MY_STATE_WILL) #define set_my_want_state_dont(opt) (options[opt] &= ~MY_WANT_STATE_DO) #define set_my_want_state_wont(opt) (options[opt] &= ~MY_WANT_STATE_WILL) /* * Tricky code here. What we want to know is if the MY_STATE_WILL * and MY_WANT_STATE_WILL bits have the same value. Since the two * bits are adjacent, a little arithmetic will show that by adding * in the lower bit, the upper bit will be set if the two bits were * different, and clear if they were the same. */ #define my_will_wont_is_changing(opt) \ ((options[opt]+MY_STATE_WILL) & MY_WANT_STATE_WILL) #define my_do_dont_is_changing(opt) \ ((options[opt]+MY_STATE_DO) & MY_WANT_STATE_DO) /* * Make everything symmetrical */ #define HIS_STATE_WILL MY_STATE_DO #define HIS_WANT_STATE_WILL MY_WANT_STATE_DO #define HIS_STATE_DO MY_STATE_WILL #define HIS_WANT_STATE_DO MY_WANT_STATE_WILL #define his_state_is_do my_state_is_will #define his_state_is_will my_state_is_do #define his_want_state_is_do my_want_state_is_will #define his_want_state_is_will my_want_state_is_do #define his_state_is_dont my_state_is_wont #define his_state_is_wont my_state_is_dont #define his_want_state_is_dont my_want_state_is_wont #define his_want_state_is_wont my_want_state_is_dont #define set_his_state_do set_my_state_will #define set_his_state_will set_my_state_do #define set_his_want_state_do set_my_want_state_will #define set_his_want_state_will set_my_want_state_do #define set_his_state_dont set_my_state_wont #define set_his_state_wont set_my_state_dont #define set_his_want_state_dont set_my_want_state_wont #define set_his_want_state_wont set_my_want_state_dont #define his_will_wont_is_changing my_do_dont_is_changing #define his_do_dont_is_changing my_will_wont_is_changing /* * Initialization buffer for tty device [16 characters long] */ #define NULL16STR "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" src/libexec/telnetd/ext.h010064400011300000175000000136541365015553400156400ustar00srcmastrnetbsd/* $NetBSD: ext.h,v 1.23 2020/04/23 00:03:40 joerg Exp $ */ /* * Copyright (c) 1989, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * * from: @(#)ext.h 8.2 (Berkeley) 12/15/93 */ /* * Telnet server variable declarations */ extern char options[256]; extern char do_dont_resp[256]; extern char will_wont_resp[256]; extern int linemode; /* linemode on/off */ #ifdef LINEMODE extern int uselinemode; /* what linemode to use (on/off) */ extern int editmode; /* edit modes in use */ extern int useeditmode; /* edit modes to use */ extern int alwayslinemode; /* command line option */ # ifdef KLUDGELINEMODE extern int lmodetype; /* Client support for linemode */ # endif /* KLUDGELINEMODE */ #endif /* LINEMODE */ extern int flowmode; /* current flow control state */ extern int restartany; /* restart output on any character state */ #ifdef DIAGNOSTICS extern int diagnostic; /* telnet diagnostic capabilities */ #endif /* DIAGNOSTICS */ #ifdef SECURELOGIN extern int require_secure_login; #endif #ifdef AUTHENTICATION extern int auth_level; #endif extern slcfun slctab[NSLC + 1]; /* slc mapping table */ extern char terminaltype[41]; /* * I/O data buffers, pointers, and counters. */ extern char ptyobuf[BUFSIZ+NETSLOP], *pfrontp, *pbackp; extern char netibuf[BUFSIZ], *netip; extern char netobuf[BUFSIZ+NETSLOP], *nfrontp, *nbackp; extern char *neturg; /* one past last bye of urgent data */ extern int pcc, ncc; extern int pty, net; extern char *line; extern int SYNCHing; /* we are in TELNET SYNCH mode */ #include extern void _termstat(void), add_slc(char, char, cc_t), check_slc(void), change_slc(int, int, cc_t), cleanup(int) __dead, clientstat(int, int, int), copy_termbuf(char *, int), deferslc(void), defer_terminit(void), do_opt_slc(unsigned char *, int), doeof(void), dooption(int), dontoption(int), edithost(const char *, const char *), fatal(int, const char *) __dead, fatalperror(int, const char *) __dead, get_slc_defaults(void), init_env(void), init_termbuf(void), interrupt(void), localstat(void), flowstat(void), netclear(void), netflush(void), #ifdef DIAGNOSTICS printoption(const char *, int), printdata(const char *, char *, int), #ifndef ENCRYPTION printsub(int, unsigned char *, int), #endif #endif ptyflush(void), putchr(int), recv_ayt(void), send_do(int, int), send_dont(int, int), send_slc(void), send_status(void), send_will(int, int), send_wont(int, int), sendbrk(void), sendsusp(void), set_termbuf(void), start_login(char *, int, char *) __dead, start_slc(int), startslave(char *, int, char *), suboption(void), telrcv(void), ttloop(void), tty_binaryin(int), tty_binaryout(int); extern char * putf(const char *, char *); extern int end_slc(unsigned char **), getnpty(void), getpty(int *), spcset(int, cc_t *, cc_t **), stilloob(int), terminit(void), termstat(void), tty_flowmode(void), tty_restartany(void), tty_isbinaryin(void), tty_isbinaryout(void), tty_iscrnl(void), tty_isecho(void), tty_isediting(void), tty_islitecho(void), tty_isnewmap(void), tty_israw(void), tty_issofttab(void), tty_istrapsig(void), tty_linemode(void); extern void tty_rspeed(int), tty_setecho(int), tty_setedit(int), tty_setlinemode(int), tty_setlitecho(int), tty_setsig(int), tty_setsofttab(int), tty_tspeed(int), willoption(int), wontoption(int), writenet(unsigned char *, int); extern int output_data(const char *, ...) __attribute__((__format__(__printf__, 1, 2))); extern int output_datalen(const char *, size_t); #ifdef ENCRYPTION extern char *nclearto; #endif /* ENCRYPTION */ /* * The following are some clocks used to decide how to interpret * the relationship between various variables. */ extern struct clockstate { int system, /* what the current time is */ echotoggle, /* last time user entered echo character */ modenegotiated, /* last time operating mode negotiated */ didnetreceive, /* last time we read data from network */ ttypesubopt, /* ttype subopt is received */ tspeedsubopt, /* tspeed subopt is received */ environsubopt, /* environ subopt is received */ oenvironsubopt, /* old environ subopt is received */ xdisplocsubopt, /* xdisploc subopt is received */ baseline, /* time started to do timed action */ gotDM; /* when did we last see a data mark */ } clocks; #ifndef DEFAULT_IM # define DEFAULT_IM "\r\n\r\n4.4 BSD UNIX (%h) (%t)\r\n\r\r\n\r" #endif #ifdef AUTHENTICATION #include #endif #ifdef ENCRYPTION #include #endif src/libexec/telnetd/global.c010064400011300000175000000064051365015553400162670ustar00srcmastrnetbsd/* $NetBSD: global.c,v 1.9 2020/04/23 00:03:40 joerg Exp $ */ /* * Copyright (c) 1989, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint #if 0 static char sccsid[] = "@(#)global.c 8.1 (Berkeley) 6/4/93"; #else __RCSID("$NetBSD: global.c,v 1.9 2020/04/23 00:03:40 joerg Exp $"); #endif #endif /* not lint */ /* * Allocate global variables. We do this * by including the header file that defines * them all as externs, but first we define * the keyword "extern" to be nothing, so that * we will actually allocate the space. */ #include #include char options[256]; char do_dont_resp[256]; char will_wont_resp[256]; int linemode; /* linemode on/off */ #ifdef LINEMODE int uselinemode; /* what linemode to use (on/off) */ int editmode; /* edit modes in use */ int useeditmode; /* edit modes to use */ int alwayslinemode; /* command line option */ # ifdef KLUDGELINEMODE int lmodetype; /* Client support for linemode */ # endif /* KLUDGELINEMODE */ #endif /* LINEMODE */ int flowmode; /* current flow control state */ int restartany; /* restart output on any character state */ #ifdef DIAGNOSTICS int diagnostic; /* telnet diagnostic capabilities */ #endif /* DIAGNOSTICS */ #ifdef SECURELOGIN int require_secure_login; #endif #ifdef AUTHENTICATION int auth_level; #endif slcfun slctab[NSLC + 1]; /* slc mapping table */ char terminaltype[41]; /* * I/O data buffers, pointers, and counters. */ char ptyobuf[BUFSIZ+NETSLOP], *pfrontp, *pbackp; char netibuf[BUFSIZ], *netip; char netobuf[BUFSIZ+NETSLOP], *nfrontp, *nbackp; char *neturg; /* one past last bye of urgent data */ int pcc, ncc; int pty, net; char *line; int SYNCHing; /* we are in TELNET SYNCH mode */ #ifdef ENCRYPTION char *nclearto; #endif /* ENCRYPTION */ struct clockstate clocks; src/libexec/telnetd/pathnames.h010064400011300000175000000034020771442001300167750ustar00srcmastrnetbsd/* $NetBSD: pathnames.h,v 1.7 2003/08/07 09:46:51 agc Exp $ */ /* * Copyright (c) 1989, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * * from: @(#)pathnames.h 8.1 (Berkeley) 6/4/93 */ #include #ifndef _PATH_LOGIN # define _PATH_LOGIN "/usr/bin/login" #endif src/libexec/telnetd/slc.c010064400011300000175000000274561433027353700156210ustar00srcmastrnetbsd/* $NetBSD: slc.c,v 1.16 2022/11/01 19:45:35 andvar Exp $ */ /* * Copyright (c) 1989, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint #if 0 static char sccsid[] = "@(#)slc.c 8.1 (Berkeley) 6/4/93"; #else __RCSID("$NetBSD: slc.c,v 1.16 2022/11/01 19:45:35 andvar Exp $"); #endif #endif /* not lint */ #include "telnetd.h" #ifdef LINEMODE /* * local variables */ static unsigned char *def_slcbuf = (unsigned char *)0; static int def_slclen = 0; static int slcchange; /* change to slc is requested */ static unsigned char *slcptr; /* pointer into slc buffer */ static unsigned char slcbuf[NSLC*6]; /* buffer for slc negotiation */ void default_slc(void); void process_slc(u_int, u_int, cc_t); /* * send_slc * * Write out the current special characters to the client. */ void send_slc(void) { int i; /* * Send out list of triplets of special characters * to client. We only send info on the characters * that are currently supported. */ for (i = 1; i <= NSLC; i++) { if ((slctab[i].defset.flag & SLC_LEVELBITS) == SLC_NOSUPPORT) continue; add_slc((unsigned char)i, slctab[i].current.flag, slctab[i].current.val); } } /* end of send_slc */ /* * default_slc * * Set pty special characters to all the defaults. */ void default_slc(void) { int i; for (i = 1; i <= NSLC; i++) { slctab[i].current.val = slctab[i].defset.val; if (slctab[i].current.val == (cc_t)(_POSIX_VDISABLE)) slctab[i].current.flag = SLC_NOSUPPORT; else slctab[i].current.flag = slctab[i].defset.flag; if (slctab[i].sptr) { *(slctab[i].sptr) = slctab[i].defset.val; } } slcchange = 1; } /* end of default_slc */ #endif /* LINEMODE */ /* * get_slc_defaults * * Initialize the slc mapping table. */ void get_slc_defaults(void) { int i; init_termbuf(); for (i = 1; i <= NSLC; i++) { slctab[i].defset.flag = spcset(i, &slctab[i].defset.val, &slctab[i].sptr); slctab[i].current.flag = SLC_NOSUPPORT; slctab[i].current.val = 0; } } /* end of get_slc_defaults */ #ifdef LINEMODE /* * add_slc * * Add an slc triplet to the slc buffer. */ void add_slc(char func, char flag, cc_t val) { if ((*slcptr++ = (unsigned char)func) == 0xff) *slcptr++ = 0xff; if ((*slcptr++ = (unsigned char)flag) == 0xff) *slcptr++ = 0xff; if ((*slcptr++ = (unsigned char)val) == 0xff) *slcptr++ = 0xff; } /* end of add_slc */ /* * start_slc * * Get ready to process incoming slc's and respond to them. * * The parameter getit is non-zero if it is necessary to grab a copy * of the terminal control structures. */ void start_slc(int getit) { slcchange = 0; if (getit) init_termbuf(); (void)snprintf((char *)slcbuf, sizeof slcbuf, "%c%c%c%c", IAC, SB, TELOPT_LINEMODE, LM_SLC); slcptr = slcbuf + 4; } /* end of start_slc */ /* * end_slc * * Finish up the slc negotiation. If something to send, then send it. */ int end_slc(unsigned char **bufp) { int len; /* * If a change has occurred, store the new terminal control * structures back to the terminal driver. */ if (slcchange) { set_termbuf(); } /* * If the pty state has not yet been fully processed and there is a * deferred slc request from the client, then do not send any * sort of slc negotiation now. We will respond to the client's * request very soon. */ if (def_slcbuf && (terminit() == 0)) { return(0); } if (slcptr > (slcbuf + 4)) { if (bufp) { *bufp = &slcbuf[4]; return(slcptr - slcbuf - 4); } else { (void) snprintf((char *)slcptr, sizeof(slcbuf) - (slcptr - slcbuf), "%c%c", IAC, SE); slcptr += 2; len = slcptr - slcbuf; writenet(slcbuf, len); netflush(); /* force it out immediately */ DIAG(TD_OPTIONS, printsub('>', slcbuf+2, len-2);); } } return (0); } /* end of end_slc */ /* * process_slc * * Figure out what to do about the client's slc */ void process_slc(u_int func, u_int flag, cc_t val) { int hislevel, mylevel, ack; /* * Ensure that we know something about this function */ if (func > NSLC) { add_slc(func, SLC_NOSUPPORT, 0); return; } /* * Process the special case requests of 0 SLC_DEFAULT 0 * and 0 SLC_VARIABLE 0. Be a little forgiving here, don't * worry about whether the value is actually 0 or not. */ if (func == 0) { if ((flag = flag & SLC_LEVELBITS) == SLC_DEFAULT) { default_slc(); send_slc(); } else if (flag == SLC_VARIABLE) { send_slc(); } return; } /* * Appears to be a function that we know something about. So * get on with it and see what we know. */ hislevel = flag & SLC_LEVELBITS; mylevel = slctab[func].current.flag & SLC_LEVELBITS; ack = flag & SLC_ACK; /* * ignore the command if: * the function value and level are the same as what we already have; * or the level is the same and the ack bit is set */ if (hislevel == mylevel && (val == slctab[func].current.val || ack)) { return; } else if (ack) { /* * If we get here, we got an ack, but the levels don't match. * This shouldn't happen. If it does, it is probably because * we have sent two requests to set a variable without getting * a response between them, and this is the first response. * So, ignore it, and wait for the next response. */ return; } else { change_slc(func, flag, val); } } /* end of process_slc */ /* * change_slc * * Process a request to change one of our special characters. * Compare client's request with what we are capable of supporting. */ void change_slc(int func, int flag, cc_t val) { int hislevel, mylevel; hislevel = flag & SLC_LEVELBITS; mylevel = slctab[func].defset.flag & SLC_LEVELBITS; /* * If client is setting a function to NOSUPPORT * or DEFAULT, then we can easily and directly * accommodate the request. */ if (hislevel == SLC_NOSUPPORT) { slctab[func].current.flag = flag; slctab[func].current.val = (cc_t)_POSIX_VDISABLE; flag |= SLC_ACK; add_slc(func, flag, val); return; } if (hislevel == SLC_DEFAULT) { /* * Special case here. If client tells us to use * the default on a function we don't support, then * return NOSUPPORT instead of what we may have as a * default level of DEFAULT. */ if (mylevel == SLC_DEFAULT) { slctab[func].current.flag = SLC_NOSUPPORT; } else { slctab[func].current.flag = slctab[func].defset.flag; } slctab[func].current.val = slctab[func].defset.val; add_slc(func, slctab[func].current.flag, slctab[func].current.val); return; } /* * Client wants us to change to a new value or he * is telling us that he can't change to our value. * Some of the slc's we support and can change, * some we do support but can't change, * and others we don't support at all. * If we can change it then we have a pointer to * the place to put the new value, so change it, * otherwise, continue the negotiation. */ if (slctab[func].sptr) { /* * We can change this one. */ slctab[func].current.val = val; *(slctab[func].sptr) = val; slctab[func].current.flag = flag; flag |= SLC_ACK; slcchange = 1; add_slc(func, flag, val); } else { /* * It is not possible for us to support this * request as he asks. * * If our level is DEFAULT, then just ack whatever was * sent. * * If he can't change and we can't change, * then degenerate to NOSUPPORT. * * Otherwise we send our level back to him, (CANTCHANGE * or NOSUPPORT) and if CANTCHANGE, send * our value as well. */ if (mylevel == SLC_DEFAULT) { slctab[func].current.flag = flag; slctab[func].current.val = val; flag |= SLC_ACK; } else if (hislevel == SLC_CANTCHANGE && mylevel == SLC_CANTCHANGE) { flag &= ~SLC_LEVELBITS; flag |= SLC_NOSUPPORT; slctab[func].current.flag = flag; } else { flag &= ~SLC_LEVELBITS; flag |= mylevel; slctab[func].current.flag = flag; if (mylevel == SLC_CANTCHANGE) { slctab[func].current.val = slctab[func].defset.val; val = slctab[func].current.val; } } add_slc(func, flag, val); } } /* end of change_slc */ #if VEOF == VMIN cc_t oldeofc = '\004'; #endif /* * check_slc * * Check the special characters in use and notify the client if any have * changed. Only those characters that are capable of being changed are * likely to have changed. If a local change occurs, kick the support level * and flags up to the defaults. */ void check_slc(void) { int i; for (i = 1; i <= NSLC; i++) { #if VEOF == VMIN /* * In a perfect world this would be a neat little * function. But in this world, we should not notify * client of changes to the VEOF char when * ICANON is off, because it is not representing * a special character. */ if (i == SLC_EOF) { if (!tty_isediting()) continue; else if (slctab[i].sptr) oldeofc = *(slctab[i].sptr); } #endif /* VEOF == VMIN */ if (slctab[i].sptr && (*(slctab[i].sptr) != slctab[i].current.val)) { slctab[i].current.val = *(slctab[i].sptr); if (*(slctab[i].sptr) == (cc_t)_POSIX_VDISABLE) slctab[i].current.flag = SLC_NOSUPPORT; else slctab[i].current.flag = slctab[i].defset.flag; add_slc((unsigned char)i, slctab[i].current.flag, slctab[i].current.val); } } } /* check_slc */ /* * do_opt_slc * * Process an slc option buffer. Defer processing of incoming slc's * until after the terminal state has been processed. Save the first slc * request that comes along, but discard all others. * * ptr points to the beginning of the buffer, len is the length. */ void do_opt_slc(unsigned char *ptr, int len) { unsigned char func, flag; cc_t val; unsigned char *end = ptr + len; if (terminit()) { /* go ahead */ while (ptr < end) { func = *ptr++; if (ptr >= end) break; flag = *ptr++; if (ptr >= end) break; val = (cc_t)*ptr++; process_slc((u_int)func, (u_int)flag, val); } } else { /* * save this slc buffer if it is the first, otherwise dump * it. */ if (def_slcbuf == (unsigned char *)0) { def_slclen = len; def_slcbuf = (unsigned char *)malloc((unsigned)len); if (def_slcbuf == (unsigned char *)0) return; /* too bad */ memcpy(def_slcbuf, ptr, len); } } } /* end of do_opt_slc */ /* * deferslc * * Do slc stuff that was deferred. */ void deferslc(void) { if (def_slcbuf) { start_slc(1); do_opt_slc(def_slcbuf, def_slclen); (void) end_slc(0); free(def_slcbuf); def_slcbuf = (unsigned char *)0; def_slclen = 0; } } /* end of deferslc */ #endif /* LINEMODE */ src/libexec/telnetd/state.c010064400011300000175000001106241471015726200161440ustar00srcmastrnetbsd/* $NetBSD: state.c,v 1.35 2024/10/29 13:10:10 kre Exp $ */ /* * Copyright (c) 1989, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint #if 0 static char sccsid[] = "@(#)state.c 8.5 (Berkeley) 5/30/95"; #else __RCSID("$NetBSD: state.c,v 1.35 2024/10/29 13:10:10 kre Exp $"); #endif #endif /* not lint */ #include #include #include "telnetd.h" static int envvarok(char *); int not42 = 1; /* * Buffer for sub-options, and macros * for suboptions buffer manipulations */ unsigned char subbuffer[4096], *subpointer= subbuffer, *subend= subbuffer; #define SB_CLEAR() subpointer = subbuffer #define SB_TERM() { subend = subpointer; SB_CLEAR(); } #define SB_ACCUM(c) if (subpointer < (subbuffer+sizeof subbuffer)) { \ *subpointer++ = (c); \ } #define SB_GET() ((*subpointer++)&0xff) #define SB_EOF() (subpointer >= subend) #define SB_LEN() (subend - subpointer) #ifdef ENV_HACK unsigned char *subsave; #define SB_SAVE() subsave = subpointer; #define SB_RESTORE() subpointer = subsave; #endif /* * State for recv fsm */ #define TS_DATA 0 /* base state */ #define TS_IAC 1 /* look for double IAC's */ #define TS_CR 2 /* CR-LF ->'s CR */ #define TS_SB 3 /* throw away begin's... */ #define TS_SE 4 /* ...end's (suboption negotiation) */ #define TS_WILL 5 /* will option negotiation */ #define TS_WONT 6 /* wont " */ #define TS_DO 7 /* do " */ #define TS_DONT 8 /* dont " */ void telrcv(void) { int c; static int state = TS_DATA; while (ncc > 0) { if ((&ptyobuf[BUFSIZ] - pfrontp) < 2) break; c = *netip++ & 0377, ncc--; #ifdef ENCRYPTION if (decrypt_input) c = (*decrypt_input)(c); #endif /* ENCRYPTION */ switch (state) { case TS_CR: state = TS_DATA; #ifdef LINEMODE /* * If we are operating in linemode, * convert to local end-of-line. */ if (linemode && (ncc > 0) && ((c == '\n') || ((c == 0) && tty_iscrnl())) ) c = '\n'; else #endif { /* * We now map \r\n ==> \r for pragmatic reasons. * Many client implementations send \r\n when * the user hits the CarriageReturn key. * * We USED to map \r\n ==> \n, since \r\n says * that we want to be in column 1 of the next * printable line, and \n is the standard * unix way of saying that (\r is only good * if CRMOD is set, which it normally is). */ /* Strip off \n or \0 after a \r */ if ((c == 0) || (c == '\n')) break; } /* FALL THROUGH */ case TS_DATA: if (c == IAC) { state = TS_IAC; break; } if ((c == '\r') && his_state_is_wont(TELOPT_BINARY)) state = TS_CR; *pfrontp++ = c; break; case TS_IAC: gotiac: switch (c) { /* * Send the process on the pty side an * interrupt. Do this with a NULL or * interrupt char; depending on the tty mode. */ case IP: DIAG(TD_OPTIONS, printoption("td: recv IAC", c)); interrupt(); break; case BREAK: DIAG(TD_OPTIONS, printoption("td: recv IAC", c)); sendbrk(); break; /* * Are You There? */ case AYT: DIAG(TD_OPTIONS, printoption("td: recv IAC", c)); recv_ayt(); break; /* * Abort Output */ case AO: { DIAG(TD_OPTIONS, printoption("td: recv IAC", c)); ptyflush(); /* half-hearted */ init_termbuf(); if (slctab[SLC_AO].sptr && *slctab[SLC_AO].sptr != (cc_t)(_POSIX_VDISABLE)) { *pfrontp++ = (unsigned char)*slctab[SLC_AO].sptr; } netclear(); /* clear buffer back */ output_data("%c%c", IAC, DM); neturg = nfrontp - 1; /* off by one XXX */ DIAG(TD_OPTIONS, printoption("td: send IAC", DM)); break; } /* * Erase Character and * Erase Line */ case EC: case EL: { cc_t ch; DIAG(TD_OPTIONS, printoption("td: recv IAC", c)); ptyflush(); /* half-hearted */ init_termbuf(); if (c == EC) ch = *slctab[SLC_EC].sptr; else ch = *slctab[SLC_EL].sptr; if (ch != (cc_t)(_POSIX_VDISABLE)) *pfrontp++ = (unsigned char)ch; break; } /* * Check for urgent data... */ case DM: DIAG(TD_OPTIONS, printoption("td: recv IAC", c)); SYNCHing = stilloob(net); settimer(gotDM); break; /* * Begin option subnegotiation... */ case SB: state = TS_SB; SB_CLEAR(); continue; case WILL: state = TS_WILL; continue; case WONT: state = TS_WONT; continue; case DO: state = TS_DO; continue; case DONT: state = TS_DONT; continue; case EOR: if (his_state_is_will(TELOPT_EOR)) doeof(); break; /* * Handle RFC 10xx Telnet linemode option additions * to command stream (EOF, SUSP, ABORT). */ case xEOF: doeof(); break; case SUSP: sendsusp(); break; case ABORT: sendbrk(); break; case IAC: *pfrontp++ = c; break; } state = TS_DATA; break; case TS_SB: if (c == IAC) { state = TS_SE; } else { SB_ACCUM(c); } break; case TS_SE: if (c != SE) { if (c != IAC) { /* * bad form of suboption negotiation. * handle it in such a way as to avoid * damage to local state. Parse * suboption buffer found so far, * then treat remaining stream as * another command sequence. */ /* for DIAGNOSTICS */ SB_ACCUM(IAC); SB_ACCUM(c); subpointer -= 2; SB_TERM(); suboption(); state = TS_IAC; goto gotiac; } SB_ACCUM(c); state = TS_SB; } else { /* for DIAGNOSTICS */ SB_ACCUM(IAC); SB_ACCUM(SE); subpointer -= 2; SB_TERM(); suboption(); /* handle sub-option */ state = TS_DATA; } break; case TS_WILL: willoption(c); state = TS_DATA; continue; case TS_WONT: wontoption(c); state = TS_DATA; continue; case TS_DO: dooption(c); state = TS_DATA; continue; case TS_DONT: dontoption(c); state = TS_DATA; continue; default: syslog(LOG_ERR, "panic state=%d", state); printf("telnetd: panic state=%d\n", state); exit(1); } } } /* end of telrcv */ /* * The will/wont/do/dont state machines are based on Dave Borman's * Telnet option processing state machine. * * These correspond to the following states: * my_state = the last negotiated state * want_state = what I want the state to go to * want_resp = how many requests I have sent * All state defaults are negative, and resp defaults to 0. * * When initiating a request to change state to new_state: * * if ((want_resp == 0 && new_state == my_state) || want_state == new_state) { * do nothing; * } else { * want_state = new_state; * send new_state; * want_resp++; * } * * When receiving new_state: * * if (want_resp) { * want_resp--; * if (want_resp && (new_state == my_state)) * want_resp--; * } * if ((want_resp == 0) && (new_state != want_state)) { * if (ok_to_switch_to new_state) * want_state = new_state; * else * want_resp++; * send want_state; * } * my_state = new_state; * * Note that new_state is implied in these functions by the function itself. * will and do imply positive new_state, wont and dont imply negative. * * Finally, there is one catch. If we send a negative response to a * positive request, my_state will be the positive while want_state will * remain negative. my_state will revert to negative when the negative * acknowledgment arrives from the peer. Thus, my_state generally tells * us not only the last negotiated state, but also tells us what the peer * wants to be doing as well. It is important to understand this difference * as we may wish to be processing data streams based on our desired state * (want_state) or based on what the peer thinks the state is (my_state). * * This all works fine because if the peer sends a positive request, the data * that we receive prior to negative acknowledgment will probably be affected * by the positive state, and we can process it as such (if we can; if we * can't then it really doesn't matter). If it is that important, then the * peer probably should be buffering until this option state negotiation * is complete. * */ void send_do(int option, int init) { if (init) { if ((do_dont_resp[option] == 0 && his_state_is_will(option)) || his_want_state_is_will(option)) return; /* * Special case for TELOPT_TM: We send a DO, but pretend * that we sent a DONT, so that we can send more DOs if * we want to. */ if (option == TELOPT_TM) set_his_want_state_wont(option); else set_his_want_state_will(option); do_dont_resp[option]++; } (void) output_data("%c%c%c", IAC, DO, option); DIAG(TD_OPTIONS, printoption("td: send do", option)); } #ifdef LINEMODE extern void doclientstat(void); #endif #if 0 #ifdef AUTHENTICATION extern void auth_request(void); /* libtelnet */ #endif #ifdef ENCRYPTION extern void encrypt_send_support(void); #endif /* ENCRYPTION */ #endif void willoption(int option) { int changeok = 0; void (*func)(void) = 0; /* * process input from peer. */ DIAG(TD_OPTIONS, printoption("td: recv will", option)); if (do_dont_resp[option]) { do_dont_resp[option]--; if (do_dont_resp[option] && his_state_is_will(option)) do_dont_resp[option]--; } if (do_dont_resp[option] == 0) { if (his_want_state_is_wont(option)) { switch (option) { case TELOPT_BINARY: init_termbuf(); tty_binaryin(1); set_termbuf(); changeok++; break; case TELOPT_ECHO: /* * See comments below for more info. */ not42 = 0; /* looks like a 4.2 system */ break; case TELOPT_TM: #if defined(LINEMODE) && defined(KLUDGELINEMODE) /* * This telnetd implementation does not really * support timing marks, it just uses them to * support the kludge linemode stuff. If we * receive a will or wont TM in response to our * do TM request that may have been sent to * determine kludge linemode support, process * it, otherwise TM should get a negative * response back. */ /* * Handle the linemode kludge stuff. * If we are not currently supporting any * linemode at all, then we assume that this * is the client telling us to use kludge * linemode in response to our query. Set the * linemode type that is to be supported, note * that the client wishes to use linemode, and * eat the will TM as though it never arrived. */ if (lmodetype < KLUDGE_LINEMODE) { lmodetype = KLUDGE_LINEMODE; clientstat(TELOPT_LINEMODE, WILL, 0); send_wont(TELOPT_SGA, 1); } else if (lmodetype == NO_AUTOKLUDGE) { lmodetype = KLUDGE_OK; } #endif /* defined(LINEMODE) && defined(KLUDGELINEMODE) */ /* * We never respond to a WILL TM, and * we leave the state WONT. */ return; case TELOPT_LFLOW: /* * If we are going to support flow control * option, then don't worry peer that we can't * change the flow control characters. */ slctab[SLC_XON].defset.flag &= ~SLC_LEVELBITS; slctab[SLC_XON].defset.flag |= SLC_DEFAULT; slctab[SLC_XOFF].defset.flag &= ~SLC_LEVELBITS; slctab[SLC_XOFF].defset.flag |= SLC_DEFAULT; /* FALLTHROUGH */ case TELOPT_TTYPE: case TELOPT_SGA: case TELOPT_NAWS: case TELOPT_TSPEED: case TELOPT_XDISPLOC: case TELOPT_NEW_ENVIRON: case TELOPT_OLD_ENVIRON: changeok++; break; #ifdef LINEMODE case TELOPT_LINEMODE: # ifdef KLUDGELINEMODE /* * Note client's desire to use linemode. */ lmodetype = REAL_LINEMODE; # endif /* KLUDGELINEMODE */ func = doclientstat; changeok++; break; #endif /* LINEMODE */ #ifdef AUTHENTICATION case TELOPT_AUTHENTICATION: if (auth_level >= 0) { func = auth_request; changeok++; } break; #endif #ifdef ENCRYPTION case TELOPT_ENCRYPT: func = encrypt_send_support; changeok++; break; #endif /* ENCRYPTION */ default: break; } if (changeok) { set_his_want_state_will(option); send_do(option, 0); } else { do_dont_resp[option]++; send_dont(option, 0); } } else { /* * Option processing that should happen when * we receive conformation of a change in * state that we had requested. */ switch (option) { case TELOPT_ECHO: not42 = 0; /* looks like a 4.2 system */ /* * Egads, he responded "WILL ECHO". Turn * it off right now! */ send_dont(option, 1); /* * "WILL ECHO". Kludge upon kludge! * A 4.2 client is now echoing user input at * the tty. This is probably undesireable and * it should be stopped. The client will * respond WONT TM to the DO TM that we send to * check for kludge linemode. When the WONT TM * arrives, linemode will be turned off and a * change propagated to the pty. This change * will cause us to process the new pty state * in localstat(), which will notice that * linemode is off and send a WILL ECHO * so that we are properly in character mode and * all is well. */ break; #ifdef LINEMODE case TELOPT_LINEMODE: # ifdef KLUDGELINEMODE /* * Note client's desire to use linemode. */ lmodetype = REAL_LINEMODE; # endif /* KLUDGELINEMODE */ func = doclientstat; break; #endif /* LINEMODE */ #ifdef AUTHENTICATION case TELOPT_AUTHENTICATION: func = auth_request; break; #endif #ifdef ENCRYPTION case TELOPT_ENCRYPT: func = encrypt_send_support; break; #endif /* ENCRYPTION */ case TELOPT_LFLOW: func = flowstat; break; } } } set_his_state_will(option); if (func) (*func)(); } /* end of willoption */ void send_dont(int option, int init) { if (init) { if ((do_dont_resp[option] == 0 && his_state_is_wont(option)) || his_want_state_is_wont(option)) return; set_his_want_state_wont(option); do_dont_resp[option]++; } (void) output_data("%c%c%c", IAC, DONT, option); DIAG(TD_OPTIONS, printoption("td: send dont", option)); } void wontoption(int option) { /* * Process client input. */ DIAG(TD_OPTIONS, printoption("td: recv wont", option)); if (do_dont_resp[option]) { do_dont_resp[option]--; if (do_dont_resp[option] && his_state_is_wont(option)) do_dont_resp[option]--; } if (do_dont_resp[option] == 0) { if (his_want_state_is_will(option)) { /* it is always ok to change to negative state */ switch (option) { case TELOPT_ECHO: not42 = 1; /* doesn't seem to be a 4.2 system */ break; case TELOPT_BINARY: init_termbuf(); tty_binaryin(0); set_termbuf(); break; #ifdef LINEMODE case TELOPT_LINEMODE: # ifdef KLUDGELINEMODE /* * If real linemode is supported, then client is * asking to turn linemode off. */ if (lmodetype != REAL_LINEMODE) break; /* XXX double-check this --thorpej */ lmodetype = KLUDGE_LINEMODE; # endif /* KLUDGELINEMODE */ clientstat(TELOPT_LINEMODE, WONT, 0); break; #endif /* LINEMODE */ case TELOPT_TM: /* * If we get a WONT TM, and had sent a DO TM, * don't respond with a DONT TM, just leave it * as is. Short circut the state machine to * achieve this. */ set_his_want_state_wont(TELOPT_TM); return; case TELOPT_LFLOW: /* * If we are not going to support flow control * option, then let peer know that we can't * change the flow control characters. */ slctab[SLC_XON].defset.flag &= ~SLC_LEVELBITS; slctab[SLC_XON].defset.flag |= SLC_CANTCHANGE; slctab[SLC_XOFF].defset.flag &= ~SLC_LEVELBITS; slctab[SLC_XOFF].defset.flag |= SLC_CANTCHANGE; break; #ifdef AUTHENTICATION case TELOPT_AUTHENTICATION: auth_finished(0, AUTH_REJECT); break; #endif /* * For options that we might spin waiting for * sub-negotiation, if the client turns off the * option rather than responding to the request, * we have to treat it here as if we got a response * to the sub-negotiation, (by updating the timers) * so that we'll break out of the loop. */ case TELOPT_TTYPE: settimer(ttypesubopt); break; case TELOPT_TSPEED: settimer(tspeedsubopt); break; case TELOPT_XDISPLOC: settimer(xdisplocsubopt); break; case TELOPT_OLD_ENVIRON: settimer(oenvironsubopt); break; case TELOPT_NEW_ENVIRON: settimer(environsubopt); break; default: break; } set_his_want_state_wont(option); if (his_state_is_will(option)) send_dont(option, 0); } else { switch (option) { case TELOPT_TM: #if defined(LINEMODE) && defined(KLUDGELINEMODE) if (lmodetype < NO_AUTOKLUDGE) { lmodetype = NO_LINEMODE; clientstat(TELOPT_LINEMODE, WONT, 0); send_will(TELOPT_SGA, 1); send_will(TELOPT_ECHO, 1); } #endif /* defined(LINEMODE) && defined(KLUDGELINEMODE) */ break; #ifdef AUTHENTICATION case TELOPT_AUTHENTICATION: auth_finished(0, AUTH_REJECT); break; #endif default: break; } } } set_his_state_wont(option); } /* end of wontoption */ void send_will(int option, int init) { if (init) { if ((will_wont_resp[option] == 0 && my_state_is_will(option))|| my_want_state_is_will(option)) return; set_my_want_state_will(option); will_wont_resp[option]++; } (void) output_data("%c%c%c", IAC, WILL, option); DIAG(TD_OPTIONS, printoption("td: send will", option)); } #if !defined(LINEMODE) || !defined(KLUDGELINEMODE) /* * When we get a DONT SGA, we will try once to turn it * back on. If the other side responds DONT SGA, we * leave it at that. This is so that when we talk to * clients that understand KLUDGELINEMODE but not LINEMODE, * we'll keep them in char-at-a-time mode. */ int turn_on_sga = 0; #endif void dooption(int option) { int changeok = 0; /* * Process client input. */ DIAG(TD_OPTIONS, printoption("td: recv do", option)); if (will_wont_resp[option]) { will_wont_resp[option]--; if (will_wont_resp[option] && my_state_is_will(option)) will_wont_resp[option]--; } if ((will_wont_resp[option] == 0) && (my_want_state_is_wont(option))) { switch (option) { case TELOPT_ECHO: #ifdef LINEMODE # ifdef KLUDGELINEMODE if (lmodetype == NO_LINEMODE) # else if (his_state_is_wont(TELOPT_LINEMODE)) # endif #endif { init_termbuf(); tty_setecho(1); set_termbuf(); } changeok++; break; case TELOPT_BINARY: init_termbuf(); tty_binaryout(1); set_termbuf(); changeok++; break; case TELOPT_SGA: #if defined(LINEMODE) && defined(KLUDGELINEMODE) /* * If kludge linemode is in use, then we must * process an incoming do SGA for linemode * purposes. */ if (lmodetype == KLUDGE_LINEMODE) { /* * Receipt of "do SGA" in kludge * linemode is the peer asking us to * turn off linemode. Make note of * the request. */ clientstat(TELOPT_LINEMODE, WONT, 0); /* * If linemode did not get turned off * then don't tell peer that we did. * Breaking here forces a wont SGA to * be returned. */ if (linemode) break; } #else turn_on_sga = 0; #endif /* defined(LINEMODE) && defined(KLUDGELINEMODE) */ changeok++; break; case TELOPT_STATUS: changeok++; break; case TELOPT_TM: /* * Special case for TM. We send a WILL, but * pretend we sent a WONT. */ send_will(option, 0); set_my_want_state_wont(option); set_my_state_wont(option); return; case TELOPT_LOGOUT: /* * When we get a LOGOUT option, respond * with a WILL LOGOUT, make sure that * it gets written out to the network, * and then just go away... */ set_my_want_state_will(TELOPT_LOGOUT); send_will(TELOPT_LOGOUT, 0); set_my_state_will(TELOPT_LOGOUT); (void)netflush(); cleanup(0); /* NOT REACHED */ break; #ifdef ENCRYPTION case TELOPT_ENCRYPT: changeok++; break; #endif /* ENCRYPTION */ case TELOPT_LINEMODE: case TELOPT_TTYPE: case TELOPT_NAWS: case TELOPT_TSPEED: case TELOPT_LFLOW: case TELOPT_XDISPLOC: case TELOPT_OLD_ENVIRON: default: break; } if (changeok) { set_my_want_state_will(option); send_will(option, 0); } else { will_wont_resp[option]++; send_wont(option, 0); } } set_my_state_will(option); } /* end of dooption */ void send_wont(int option, int init) { if (init) { if ((will_wont_resp[option] == 0 && my_state_is_wont(option)) || my_want_state_is_wont(option)) return; set_my_want_state_wont(option); will_wont_resp[option]++; } (void) output_data("%c%c%c", IAC, WONT, option); DIAG(TD_OPTIONS, printoption("td: send wont", option)); } void dontoption(int option) { /* * Process client input. */ DIAG(TD_OPTIONS, printoption("td: recv dont", option)); if (will_wont_resp[option]) { will_wont_resp[option]--; if (will_wont_resp[option] && my_state_is_wont(option)) will_wont_resp[option]--; } if ((will_wont_resp[option] == 0) && (my_want_state_is_will(option))) { switch (option) { case TELOPT_BINARY: init_termbuf(); tty_binaryout(0); set_termbuf(); break; case TELOPT_ECHO: /* we should stop echoing */ #ifdef LINEMODE # ifdef KLUDGELINEMODE if ((lmodetype != REAL_LINEMODE) && (lmodetype != KLUDGE_LINEMODE)) # else if (his_state_is_wont(TELOPT_LINEMODE)) # endif #endif { init_termbuf(); tty_setecho(0); set_termbuf(); } break; case TELOPT_SGA: #if defined(LINEMODE) && defined(KLUDGELINEMODE) /* * If kludge linemode is in use, then we * must process an incoming do SGA for * linemode purposes. */ if ((lmodetype == KLUDGE_LINEMODE) || (lmodetype == KLUDGE_OK)) { /* * The client is asking us to turn * linemode on. */ lmodetype = KLUDGE_LINEMODE; clientstat(TELOPT_LINEMODE, WILL, 0); /* * If we did not turn line mode on, * then what do we say? Will SGA? * This violates design of telnet. * Gross. Very Gross. */ } break; #else set_my_want_state_wont(option); if (my_state_is_will(option)) send_wont(option, 0); set_my_state_wont(option); if (turn_on_sga ^= 1) send_will(option, 1); return; #endif /* defined(LINEMODE) && defined(KLUDGELINEMODE) */ default: break; } set_my_want_state_wont(option); if (my_state_is_will(option)) send_wont(option, 0); } set_my_state_wont(option); } /* end of dontoption */ #ifdef ENV_HACK int env_ovar = -1; int env_ovalue = -1; #else /* ENV_HACK */ # define env_ovar OLD_ENV_VAR # define env_ovalue OLD_ENV_VALUE #endif /* ENV_HACK */ /* envvarok(char*) */ /* check that variable is safe to pass to login or shell */ static int envvarok(char *varp) { if (strcmp(varp, "TERMCAP") && /* to prevent a security hole */ strcmp(varp, "TERMINFO") && /* with tgetent */ strcmp(varp, "TERMPATH") && strcmp(varp, "HOME") && /* to prevent the tegetent bug */ strncmp(varp, "LD_", strlen("LD_")) && /* most systems */ strncmp(varp, "_RLD_", strlen("_RLD_")) && /* IRIX */ strcmp(varp, "LIBPATH") && /* AIX */ strcmp(varp, "ENV") && strcmp(varp, "BASH_ENV") && strcmp(varp, "IFS") && strncmp(varp, "KRB5", strlen("KRB5")) && /* Krb5 */ /* * The above case is a catch-all for now. Here are some of * the specific ones we must avoid passing, at least until * we can prove it can be done safely. Keep this list * around un case someone wants to remove the catch-all. */ strcmp(varp, "KRB5_CONFIG") && /* Krb5 */ strcmp(varp, "KRB5CCNAME") && /* Krb5 */ strcmp(varp, "KRB5_KTNAME") && /* Krb5 */ strcmp(varp, "KRBTKFILE") && /* Krb4 */ strcmp(varp, "KRB_CONF") && /* CNS 4 */ strcmp(varp, "KRB_REALMS") && /* CNS 4 */ strcmp(varp, "RESOLV_HOST_CONF")) /* Linux */ return (1); else { syslog(LOG_INFO, "Rejected the attempt to modify the " "environment variable \"%s\"", varp); return (0); } } /* * suboption() * * Look at the sub-option buffer, and try to be helpful to the other * side. * * Currently we recognize: * * Terminal type is * Linemode * Window size * Terminal speed */ void suboption(void) { int subchar; DIAG(TD_OPTIONS, {netflush(); printsub('<', subpointer, SB_LEN()+2);}); subchar = SB_GET(); switch (subchar) { case TELOPT_TSPEED: { int xspeed, rspeed; if (his_state_is_wont(TELOPT_TSPEED)) /* Ignore if option disabled */ break; settimer(tspeedsubopt); if (SB_EOF() || SB_GET() != TELQUAL_IS) return; xspeed = atoi((char *)subpointer); while (SB_GET() != ',' && !SB_EOF()); if (SB_EOF()) return; rspeed = atoi((char *)subpointer); clientstat(TELOPT_TSPEED, xspeed, rspeed); break; } /* end of case TELOPT_TSPEED */ case TELOPT_TTYPE: { /* Yaaaay! */ char *p; if (his_state_is_wont(TELOPT_TTYPE)) /* Ignore if option disabled */ break; settimer(ttypesubopt); if (SB_EOF() || SB_GET() != TELQUAL_IS) { return; /* ??? XXX but, this is the most robust */ } p = terminaltype; while ((p < (terminaltype + sizeof terminaltype-1)) && !SB_EOF()) { int c; c = SB_GET(); if (isupper(c)) { c = tolower(c); } *p++ = c; /* accumulate name */ } *p = 0; break; } /* end of case TELOPT_TTYPE */ case TELOPT_NAWS: { int xwinsize, ywinsize; if (his_state_is_wont(TELOPT_NAWS)) /* Ignore if option disabled */ break; if (SB_EOF()) return; xwinsize = SB_GET() << 8; if (SB_EOF()) return; xwinsize |= SB_GET(); if (SB_EOF()) return; ywinsize = SB_GET() << 8; if (SB_EOF()) return; ywinsize |= SB_GET(); clientstat(TELOPT_NAWS, xwinsize, ywinsize); break; } /* end of case TELOPT_NAWS */ #ifdef LINEMODE case TELOPT_LINEMODE: { int request; if (his_state_is_wont(TELOPT_LINEMODE)) /* Ignore if option disabled */ break; /* * Process linemode suboptions. */ if (SB_EOF()) break; /* garbage was sent */ request = SB_GET(); /* get will/wont */ if (SB_EOF()) break; /* another garbage check */ if (request == LM_SLC) { /* SLC is not preceded by WILL or WONT */ /* * Process suboption buffer of slc's */ start_slc(1); do_opt_slc(subpointer, SB_LEN()); (void) end_slc(0); break; } else if (request == LM_MODE) { if (SB_EOF()) return; useeditmode = SB_GET(); /* get mode flag */ clientstat(LM_MODE, 0, 0); break; } if (SB_EOF()) break; switch (SB_GET()) { /* what suboption? */ case LM_FORWARDMASK: /* * According to spec, only server can send request for * forwardmask, and client can only return a positive response. * So don't worry about it. */ default: break; } break; } /* end of case TELOPT_LINEMODE */ #endif case TELOPT_STATUS: { int mode; if (SB_EOF()) break; mode = SB_GET(); switch (mode) { case TELQUAL_SEND: if (my_state_is_will(TELOPT_STATUS)) send_status(); break; case TELQUAL_IS: break; default: break; } break; } /* end of case TELOPT_STATUS */ case TELOPT_XDISPLOC: { if (SB_EOF() || SB_GET() != TELQUAL_IS) return; settimer(xdisplocsubopt); subpointer[SB_LEN()] = '\0'; (void)setenv("DISPLAY", (char *)subpointer, 1); break; } /* end of case TELOPT_XDISPLOC */ case TELOPT_NEW_ENVIRON: case TELOPT_OLD_ENVIRON: { int c; char *cp, *varp, *valp; if (SB_EOF()) return; c = SB_GET(); if (c == TELQUAL_IS) { if (subchar == TELOPT_OLD_ENVIRON) settimer(oenvironsubopt); else settimer(environsubopt); } else if (c != TELQUAL_INFO) { return; } if (subchar == TELOPT_NEW_ENVIRON) { while (!SB_EOF()) { c = SB_GET(); if ((c == NEW_ENV_VAR) || (c == ENV_USERVAR)) break; } } else { #ifdef ENV_HACK /* * We only want to do this if we haven't already decided * whether or not the other side has its VALUE and VAR * reversed. */ if (env_ovar < 0) { int last = -1; /* invalid value */ int empty = 0; int got_var = 0, got_value = 0, got_uservar = 0; /* * The other side might have its VALUE and VAR values * reversed. To be interoperable, we need to determine * which way it is. If the first recognized character * is a VAR or VALUE, then that will tell us what * type of client it is. If the first recognized * character is a USERVAR, then we continue scanning * the suboption looking for two consecutive * VAR or VALUE fields. We should not get two * consecutive VALUE fields, so finding two * consecutive VALUE or VAR fields will tell us * what the client is. */ SB_SAVE(); while (!SB_EOF()) { c = SB_GET(); switch(c) { case OLD_ENV_VAR: if (last < 0 || last == OLD_ENV_VAR || (empty && (last == OLD_ENV_VALUE))) goto env_ovar_ok; got_var++; last = OLD_ENV_VAR; break; case OLD_ENV_VALUE: if (last < 0 || last == OLD_ENV_VALUE || (empty && (last == OLD_ENV_VAR))) goto env_ovar_wrong; got_value++; last = OLD_ENV_VALUE; break; case ENV_USERVAR: /* count strings of USERVAR as one */ if (last != ENV_USERVAR) got_uservar++; if (empty) { if (last == OLD_ENV_VALUE) goto env_ovar_ok; if (last == OLD_ENV_VAR) goto env_ovar_wrong; } last = ENV_USERVAR; break; case ENV_ESC: if (!SB_EOF()) c = SB_GET(); /* FALL THROUGH */ default: empty = 0; continue; } empty = 1; } if (empty) { if (last == OLD_ENV_VALUE) goto env_ovar_ok; if (last == OLD_ENV_VAR) goto env_ovar_wrong; } /* * Ok, the first thing was a USERVAR, and there * are not two consecutive VAR or VALUE commands, * and none of the VAR or VALUE commands are empty. * If the client has sent us a well-formed option, * then the number of VALUEs received should always * be less than or equal to the number of VARs and * USERVARs received. * * If we got exactly as many VALUEs as VARs and * USERVARs, the client has the same definitions. * * If we got exactly as many VARs as VALUEs and * USERVARS, the client has reversed definitions. */ if (got_uservar + got_var == got_value) { env_ovar_ok: env_ovar = OLD_ENV_VAR; env_ovalue = OLD_ENV_VALUE; } else if (got_uservar + got_value == got_var) { env_ovar_wrong: env_ovar = OLD_ENV_VALUE; env_ovalue = OLD_ENV_VAR; DIAG(TD_OPTIONS, {output_data( "ENVIRON VALUE and VAR are reversed!\r\n");}); } } SB_RESTORE(); #endif while (!SB_EOF()) { c = SB_GET(); if ((c == env_ovar) || (c == ENV_USERVAR)) break; } } if (SB_EOF()) return; cp = varp = (char *)subpointer; valp = 0; while (!SB_EOF()) { c = SB_GET(); if (subchar == TELOPT_OLD_ENVIRON) { if (c == env_ovar) c = NEW_ENV_VAR; else if (c == env_ovalue) c = NEW_ENV_VALUE; } switch (c) { case NEW_ENV_VALUE: *cp = '\0'; cp = valp = (char *)subpointer; break; case NEW_ENV_VAR: case ENV_USERVAR: *cp = '\0'; if (envvarok(varp)) { if (valp) (void)setenv(varp, valp, 1); else unsetenv(varp); } cp = varp = (char *)subpointer; valp = 0; break; case ENV_ESC: if (SB_EOF()) break; c = SB_GET(); /* FALL THROUGH */ default: *cp++ = c; break; } } *cp = '\0'; if (envvarok(varp)) { if (valp) (void)setenv(varp, valp, 1); else unsetenv(varp); } break; } /* end of case TELOPT_NEW_ENVIRON */ #ifdef AUTHENTICATION case TELOPT_AUTHENTICATION: if (SB_EOF()) break; switch(SB_GET()) { case TELQUAL_SEND: case TELQUAL_REPLY: /* * These are sent by us and cannot be sent by * the client. */ break; case TELQUAL_IS: auth_is(subpointer, SB_LEN()); break; case TELQUAL_NAME: auth_name(subpointer, SB_LEN()); break; } break; #endif #ifdef ENCRYPTION case TELOPT_ENCRYPT: if (SB_EOF()) break; switch(SB_GET()) { case ENCRYPT_SUPPORT: encrypt_support(subpointer, SB_LEN()); break; case ENCRYPT_IS: encrypt_is(subpointer, SB_LEN()); break; case ENCRYPT_REPLY: encrypt_reply(subpointer, SB_LEN()); break; case ENCRYPT_START: encrypt_start(subpointer, SB_LEN()); break; case ENCRYPT_END: encrypt_end(); break; case ENCRYPT_REQSTART: encrypt_request_start(subpointer, SB_LEN()); break; case ENCRYPT_REQEND: /* * We can always send an REQEND so that we cannot * get stuck encrypting. We should only get this * if we have been able to get in the correct mode * anyhow. */ encrypt_request_end(); break; case ENCRYPT_ENC_KEYID: encrypt_enc_keyid(subpointer, SB_LEN()); break; case ENCRYPT_DEC_KEYID: encrypt_dec_keyid(subpointer, SB_LEN()); break; default: break; } break; #endif /* ENCRYPTION */ default: break; } /* end of switch */ } /* end of suboption */ #ifdef LINEMODE void doclientstat(void) { clientstat(TELOPT_LINEMODE, WILL, 0); } #endif /* LINEMODE */ void send_status(void) { #define ADD(c) \ do { \ if (ep > ncp) \ *ncp++ = c; \ else \ goto trunc; \ } while (0) #define ADD_DATA(c) \ do { \ ADD(c); if (c == SE || c == IAC) ADD(c); \ } while (0) unsigned char statusbuf[256]; unsigned char *ep; unsigned char *ncp; unsigned char i; ncp = statusbuf; ep = statusbuf + sizeof(statusbuf); netflush(); /* get rid of anything waiting to go out */ ADD(IAC); ADD(SB); ADD(TELOPT_STATUS); ADD(TELQUAL_IS); /* * We check the want_state rather than the current state, * because if we received a DO/WILL for an option that we * don't support, and the other side didn't send a DONT/WONT * in response to our WONT/DONT, then the "state" will be * WILL/DO, and the "want_state" will be WONT/DONT. We * need to go by the latter. */ for (i = 0; i < (unsigned char)NTELOPTS; i++) { if (my_want_state_is_will(i)) { ADD(WILL); ADD_DATA(i); } if (his_want_state_is_will(i)) { ADD(DO); ADD_DATA(i); } } if (his_want_state_is_will(TELOPT_LFLOW)) { ADD(SB); ADD(TELOPT_LFLOW); if (flowmode) { ADD(LFLOW_ON); } else { ADD(LFLOW_OFF); } ADD(SE); if (restartany >= 0) { ADD(SB); ADD(TELOPT_LFLOW); if (restartany) { ADD(LFLOW_RESTART_ANY); } else { ADD(LFLOW_RESTART_XON); } ADD(SE); } } #ifdef LINEMODE if (his_want_state_is_will(TELOPT_LINEMODE)) { unsigned char *cp, *cpe; int len; ADD(SB); ADD(TELOPT_LINEMODE); ADD(LM_MODE); ADD_DATA(editmode); ADD(SE); ADD(SB); ADD(TELOPT_LINEMODE); ADD(LM_SLC); start_slc(0); send_slc(); len = end_slc(&cp); for (cpe = cp + len; cp < cpe; cp++) ADD_DATA(*cp); ADD(SE); } #endif /* LINEMODE */ ADD(IAC); ADD(SE); writenet(statusbuf, ncp - statusbuf); netflush(); /* Send it on its way */ DIAG(TD_OPTIONS, {printsub('>', statusbuf, ncp - statusbuf); netflush();}); return; trunc: /* XXX bark? */ return; #undef ADD #undef ADD_DATA } int output_data(const char *format, ...) { va_list args; size_t remaining, ret; va_start(args, format); remaining = BUFSIZ - (nfrontp - netobuf); /* try a netflush() if the room is too low */ if (strlen(format) > remaining || BUFSIZ / 4 > remaining) { netflush(); remaining = BUFSIZ - (nfrontp - netobuf); } ret = vsnprintf(nfrontp, remaining, format, args); nfrontp += ((ret < remaining - 1) ? ret : remaining - 1); va_end(args); return ret; } int output_datalen(const char *buf, size_t l) { size_t remaining; remaining = BUFSIZ - (nfrontp - netobuf); if (remaining < l) { netflush(); remaining = BUFSIZ - (nfrontp - netobuf); } if (remaining < l) return -1; memmove(nfrontp, buf, l); nfrontp += l; return (int)l; } src/libexec/telnetd/sys_term.c010064400011300000175000000373721502760732700167050ustar00srcmastrnetbsd/* $NetBSD: sys_term.c,v 1.51 2025/06/27 21:36:23 andvar Exp $ */ /* * Copyright (c) 1989, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint #if 0 static char sccsid[] = "@(#)sys_term.c 8.4+1 (Berkeley) 5/30/95"; #else __RCSID("$NetBSD: sys_term.c,v 1.51 2025/06/27 21:36:23 andvar Exp $"); #endif #endif /* not lint */ #include "telnetd.h" #include "pathnames.h" #include #include #ifdef SUPPORT_UTMP #include #endif #ifdef SUPPORT_UTMPX #include #endif struct termios termbuf, termbuf2; /* pty control structure */ void getptyslave(void); int cleanopen(char *); char **addarg(char **, const char *); void scrub_env(void); int getent(char *, char *); char *getstr(const char *, char **); #ifdef KRB5 extern void kerberos5_cleanup(void); #endif /* * init_termbuf() * copy_termbuf(cp) * set_termbuf() * * These three routines are used to get and set the "termbuf" structure * to and from the kernel. init_termbuf() gets the current settings. * copy_termbuf() hands in a new "termbuf" to write to the kernel, and * set_termbuf() writes the structure into the kernel. */ void init_termbuf(void) { (void) tcgetattr(pty, &termbuf); termbuf2 = termbuf; } #if defined(LINEMODE) && defined(TIOCPKT_IOCTL) void copy_termbuf(char *cp, int len) { if ((size_t)len > sizeof(termbuf)) len = sizeof(termbuf); memmove((char *)&termbuf, cp, len); termbuf2 = termbuf; } #endif /* defined(LINEMODE) && defined(TIOCPKT_IOCTL) */ void set_termbuf(void) { /* * Only make the necessary changes. */ if (memcmp((char *)&termbuf, (char *)&termbuf2, sizeof(termbuf))) (void) tcsetattr(pty, TCSANOW, &termbuf); } /* * spcset(func, valp, valpp) * * This function takes various special characters (func), and * sets *valp to the current value of that character, and * *valpp to point to where in the "termbuf" structure that * value is kept. * * It returns the SLC_ level of support for this function. */ int spcset(int func, cc_t *valp, cc_t **valpp) { #define setval(a, b) *valp = termbuf.c_cc[a]; \ *valpp = &termbuf.c_cc[a]; \ return(b); #define defval(a) *valp = ((cc_t)a); *valpp = (cc_t *)0; return(SLC_DEFAULT); switch(func) { case SLC_EOF: setval(VEOF, SLC_VARIABLE); case SLC_EC: setval(VERASE, SLC_VARIABLE); case SLC_EL: setval(VKILL, SLC_VARIABLE); case SLC_IP: setval(VINTR, SLC_VARIABLE|SLC_FLUSHIN|SLC_FLUSHOUT); case SLC_ABORT: setval(VQUIT, SLC_VARIABLE|SLC_FLUSHIN|SLC_FLUSHOUT); case SLC_XON: setval(VSTART, SLC_VARIABLE); case SLC_XOFF: setval(VSTOP, SLC_VARIABLE); case SLC_EW: setval(VWERASE, SLC_VARIABLE); case SLC_RP: setval(VREPRINT, SLC_VARIABLE); case SLC_LNEXT: setval(VLNEXT, SLC_VARIABLE); case SLC_AO: setval(VDISCARD, SLC_VARIABLE|SLC_FLUSHOUT); case SLC_SUSP: setval(VSUSP, SLC_VARIABLE|SLC_FLUSHIN); case SLC_FORW1: setval(VEOL, SLC_VARIABLE); case SLC_FORW2: setval(VEOL2, SLC_VARIABLE); case SLC_AYT: setval(VSTATUS, SLC_VARIABLE); case SLC_BRK: case SLC_SYNCH: case SLC_EOR: defval(0); default: *valp = 0; *valpp = 0; return(SLC_NOSUPPORT); } } /* * getpty() * * Allocate a pty. As a side effect, the external character * array "line" contains the name of the slave side. * * Returns the file descriptor of the opened pty. */ static int ptyslavefd; /* for cleanopen() */ int getpty(int *ptynum) { int ptyfd; ptyfd = openpty(ptynum, &ptyslavefd, line, NULL, NULL); if (ptyfd == 0) return *ptynum; ptyslavefd = -1; return (-1); } #ifdef LINEMODE /* * tty_flowmode() Find out if flow control is enabled or disabled. * tty_linemode() Find out if linemode (external processing) is enabled. * tty_setlinemod(on) Turn on/off linemode. * tty_isecho() Find out if echoing is turned on. * tty_setecho(on) Enable/disable character echoing. * tty_israw() Find out if terminal is in RAW mode. * tty_binaryin(on) Turn on/off BINARY on input. * tty_binaryout(on) Turn on/off BINARY on output. * tty_isediting() Find out if line editing is enabled. * tty_istrapsig() Find out if signal trapping is enabled. * tty_setedit(on) Turn on/off line editing. * tty_setsig(on) Turn on/off signal trapping. * tty_issofttab() Find out if tab expansion is enabled. * tty_setsofttab(on) Turn on/off soft tab expansion. * tty_islitecho() Find out if typed control chars are echoed literally * tty_setlitecho() Turn on/off literal echo of control chars * tty_tspeed(val) Set transmit speed to val. * tty_rspeed(val) Set receive speed to val. */ int tty_linemode(void) { return(termbuf.c_lflag & EXTPROC); } void tty_setlinemode(int on) { set_termbuf(); (void) ioctl(pty, TIOCEXT, (char *)&on); init_termbuf(); } #endif /* LINEMODE */ int tty_isecho(void) { return (termbuf.c_lflag & ECHO); } int tty_flowmode(void) { return((termbuf.c_iflag & IXON) ? 1 : 0); } int tty_restartany(void) { return((termbuf.c_iflag & IXANY) ? 1 : 0); } void tty_setecho(int on) { if (on) termbuf.c_lflag |= ECHO; else termbuf.c_lflag &= ~ECHO; } int tty_israw(void) { return(!(termbuf.c_lflag & ICANON)); } void tty_binaryin(int on) { if (on) { termbuf.c_iflag &= ~ISTRIP; } else { termbuf.c_iflag |= ISTRIP; } } void tty_binaryout(int on) { if (on) { termbuf.c_cflag &= ~(CSIZE|PARENB); termbuf.c_cflag |= CS8; termbuf.c_oflag &= ~OPOST; } else { termbuf.c_cflag &= ~CSIZE; termbuf.c_cflag |= CS7|PARENB; termbuf.c_oflag |= OPOST; } } int tty_isbinaryin(void) { return(!(termbuf.c_iflag & ISTRIP)); } int tty_isbinaryout(void) { return(!(termbuf.c_oflag&OPOST)); } #ifdef LINEMODE int tty_isediting(void) { return(termbuf.c_lflag & ICANON); } int tty_istrapsig(void) { return(termbuf.c_lflag & ISIG); } void tty_setedit(int on) { if (on) termbuf.c_lflag |= ICANON; else termbuf.c_lflag &= ~ICANON; } void tty_setsig(int on) { if (on) termbuf.c_lflag |= ISIG; else termbuf.c_lflag &= ~ISIG; } #endif /* LINEMODE */ int tty_issofttab(void) { # ifdef OXTABS return (termbuf.c_oflag & OXTABS); # endif # ifdef TABDLY return ((termbuf.c_oflag & TABDLY) == TAB3); # endif } void tty_setsofttab(int on) { if (on) { # ifdef OXTABS termbuf.c_oflag |= OXTABS; # endif # ifdef TABDLY termbuf.c_oflag &= ~TABDLY; termbuf.c_oflag |= TAB3; # endif } else { # ifdef OXTABS termbuf.c_oflag &= ~OXTABS; # endif # ifdef TABDLY termbuf.c_oflag &= ~TABDLY; termbuf.c_oflag |= TAB0; # endif } } int tty_islitecho(void) { # ifdef ECHOCTL return (!(termbuf.c_lflag & ECHOCTL)); # endif # ifdef TCTLECH return (!(termbuf.c_lflag & TCTLECH)); # endif # if !defined(ECHOCTL) && !defined(TCTLECH) return (0); /* assumes ctl chars are echoed '^x' */ # endif } void tty_setlitecho(int on) { # ifdef ECHOCTL if (on) termbuf.c_lflag &= ~ECHOCTL; else termbuf.c_lflag |= ECHOCTL; # endif # ifdef TCTLECH if (on) termbuf.c_lflag &= ~TCTLECH; else termbuf.c_lflag |= TCTLECH; # endif } int tty_iscrnl(void) { return (termbuf.c_iflag & ICRNL); } void tty_tspeed(int val) { cfsetospeed(&termbuf, val); } void tty_rspeed(int val) { cfsetispeed(&termbuf, val); } /* * getptyslave() * * Open the slave side of the pty, and do any initialization * that is necessary. The return value is a file descriptor * for the slave side. */ extern int def_tspeed, def_rspeed; extern int def_row, def_col; void getptyslave(void) { int t = -1; #ifdef LINEMODE int waslm; #endif struct winsize ws; /* * Opening the slave side may cause initialization of the * kernel tty structure. We need remember the state of * if linemode was turned on * terminal window size * terminal speed * so that we can re-set them if we need to. */ #ifdef LINEMODE waslm = tty_linemode(); #endif /* * Make sure that we don't have a controlling tty, and * that we are the session (process group) leader. */ t = open(_PATH_TTY, O_RDWR); if (t >= 0) { (void) ioctl(t, TIOCNOTTY, (char *)0); (void) close(t); } t = cleanopen(line); if (t < 0) fatalperror(net, line); /* * set up the tty modes as we like them to be. */ init_termbuf(); if (def_row || def_col) { memset((char *)&ws, 0, sizeof(ws)); ws.ws_col = def_col; ws.ws_row = def_row; (void)ioctl(t, TIOCSWINSZ, (char *)&ws); } /* * Settings for sgtty based systems */ /* * Settings for all other termios/termio based * systems, other than 4.4BSD. In 4.4BSD the * kernel does the initial terminal setup. */ tty_rspeed((def_rspeed > 0) ? def_rspeed : 9600); tty_tspeed((def_tspeed > 0) ? def_tspeed : 9600); #ifdef LINEMODE if (waslm) tty_setlinemode(1); #endif /* LINEMODE */ /* * Set the tty modes, and make this our controlling tty. */ set_termbuf(); if (login_tty(t) == -1) fatalperror(net, "login_tty"); if (net > 2) (void) close(net); if (pty > 2) { (void) close(pty); pty = -1; } } /* * Open the specified slave side of the pty, * making sure that we have a clean tty. */ int cleanopen(char *ttyline) { return ptyslavefd; } /* * startslave(host) * * Given a hostname, do whatever * is necessary to startup the login process on the slave side of the pty. */ /* ARGSUSED */ void startslave(char *host, int autologin, char *autoname) { int i; #ifdef AUTHENTICATION if (!autoname || !autoname[0]) autologin = 0; if (autologin < auth_level) { fatal(net, "Authorization failed"); exit(1); } #endif if ((i = fork()) < 0) fatalperror(net, "fork"); if (i) { } else { getptyslave(); start_login(host, autologin, autoname); /*NOTREACHED*/ } } char *envinit[3]; void init_env(void) { char **envp; envp = envinit; if ((*envp = getenv("TZ"))) *envp++ -= 3; *envp = 0; environ = envinit; } /* * start_login(host) * * Assuming that we are now running as a child processes, this * function will turn us into the login process. */ extern char *gettyname; void start_login(char *host, int autologin, char *name) { char **argv; #define TABBUFSIZ 512 char defent[TABBUFSIZ]; char defstrs[TABBUFSIZ]; #undef TABBUFSIZ const char *loginprog = NULL; extern struct sockaddr_storage from; char buf[sizeof(from) * 4 + 1]; char *user; user = getenv("USER"); user = (user != NULL) ? strdup(user) : NULL; scrub_env(); /* * -a : pass on the address of the host. * -h : pass on name of host. * WARNING: -h and -a are accepted by login * if and only if getuid() == 0. * -p : don't clobber the environment (so terminal type stays set). * * -f : force this login, he has already been authenticated */ argv = addarg(0, "login"); argv = addarg(argv, "-a"); (void)strvisx(buf, (const char *)(const void *)&from, sizeof(from), VIS_WHITE); argv = addarg(argv, buf); argv = addarg(argv, "-h"); argv = addarg(argv, host); argv = addarg(argv, "-p"); #ifdef LINEMODE /* * Set the environment variable "LINEMODE" to either * "real" or "kludge" if we are operating in either * real or kludge linemode. */ if (lmodetype == REAL_LINEMODE) setenv("LINEMODE", "real", 1); # ifdef KLUDGELINEMODE else if (lmodetype == KLUDGE_LINEMODE || lmodetype == KLUDGE_OK) setenv("LINEMODE", "kludge", 1); # endif #endif #ifdef SECURELOGIN /* * don't worry about the -f that might get sent. * A -s is supposed to override it anyhow. */ if (require_secure_login) argv = addarg(argv, "-s"); #endif #ifdef AUTHENTICATION if (auth_level >= 0 && autologin == AUTH_VALID) { argv = addarg(argv, "-f"); argv = addarg(argv, "--"); argv = addarg(argv, name); } else #endif if (user != NULL) { argv = addarg(argv, "--"); argv = addarg(argv, user); /* * Assume that login will set the USER variable * correctly. For SysV systems, this means that * USER will no longer be set, just LOGNAME by * login. (The problem is that if the auto-login * fails, and the user then specifies a different * account name, he can get logged in with both * LOGNAME and USER in his environment, but the * USER value will be wrong. */ unsetenv("USER"); } if (getent(defent, gettyname) == 1) { char *cp = defstrs; loginprog = getstr("lo", &cp); } if (loginprog == NULL) loginprog = _PATH_LOGIN; closelog(); /* * This sleep(1) is in here so that telnetd can * finish up with the tty. There's a race condition * the login banner message gets lost... */ sleep(1); execv(loginprog, argv); syslog(LOG_ERR, "%s: %m", loginprog); fatalperror(net, loginprog); /*NOTREACHED*/ } char ** addarg(char **argv, const char *val) { char **cpp; char **nargv; if (argv == NULL) { /* * 10 entries, a leading length, and a null */ argv = malloc(sizeof(*argv) * 12); if (argv == NULL) return(NULL); *argv++ = (char *)10; *argv = (char *)0; } for (cpp = argv; *cpp; cpp++) ; if (cpp == &argv[(long)argv[-1]]) { --argv; nargv = realloc(argv, sizeof(*argv) * ((long)(*argv) + 10 + 2)); if (nargv == NULL) { fatal(net, "not enough memory"); /*NOTREACHED*/ } argv = nargv; *argv = (char *)((long)(*argv) + 10); argv++; cpp = &argv[(long)argv[-1] - 10]; } *cpp++ = __UNCONST(val); *cpp = 0; return(argv); } /* * scrub_env() * * We only accept the environment variables listed below. */ void scrub_env(void) { static const char *reject[] = { "TERMCAP=/", NULL }; static const char *acceptstr[] = { "XAUTH=", "XAUTHORITY=", "DISPLAY=", "TERM=", "EDITOR=", "PAGER=", "LOGNAME=", "POSIXLY_CORRECT=", "TERMCAP=", "PRINTER=", NULL }; char **cpp, **cpp2; const char **p; for (cpp2 = cpp = environ; *cpp; cpp++) { int reject_it = 0; for(p = reject; *p; p++) if(strncmp(*cpp, *p, strlen(*p)) == 0) { reject_it = 1; break; } if (reject_it) continue; for(p = acceptstr; *p; p++) if(strncmp(*cpp, *p, strlen(*p)) == 0) break; if(*p != NULL) *cpp2++ = *cpp; } *cpp2 = NULL; } /* * cleanup() * * This is the routine to call when we are all through, to * clean up anything that needs to be cleaned up. */ /* ARGSUSED */ void cleanup(int sig) { char *p, c; p = line + sizeof(_PATH_DEV) - 1; #ifdef SUPPORT_UTMP if (logout(p)) logwtmp(p, "", ""); #endif #ifdef SUPPORT_UTMPX if (logoutx(p, 0, DEAD_PROCESS)) logwtmpx(p, "", "", 0, DEAD_PROCESS); #endif (void)chmod(line, 0666); (void)chown(line, 0, 0); c = *p; *p = 'p'; (void)chmod(line, 0666); (void)chown(line, 0, 0); *p = c; if (ttyaction(line, "telnetd", "root")) syslog(LOG_ERR, "%s: ttyaction failed", line); (void) shutdown(net, 2); exit(1); } src/libexec/telnetd/telnetd.8010064400011300000175000000337241340530640700164120ustar00srcmastrnetbsd.\" $NetBSD: telnetd.8,v 1.32 2018/12/15 23:23:51 maya Exp $ .\" .\" Copyright (c) 1983, 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. Neither the name of the University nor the names of its contributors .\" may be used to endorse or promote products derived from this software .\" without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF .\" SUCH DAMAGE. .\" .\" from: @(#)telnetd.8 8.3 (Berkeley) 3/1/94 .\" .Dd December 16, 2018 .Dt TELNETD 8 .Os .Sh NAME .Nm telnetd .Nd DARPA .Tn TELNET protocol server .Sh SYNOPSIS .Nm /usr/libexec/telnetd .Op Fl Uhlkns46 .Op Fl D Ar debugmode .Op Fl S Ar tos .Op Fl X Ar authtype .Op Fl a Ar authmode .Op Fl edebug .Op Fl g Ar gettyent .Op Fl u Ar len .Op Fl debug Op Ar port .Sh DESCRIPTION The .Nm command is a server which supports the .Tn DARPA standard .Tn TELNET virtual terminal protocol. .Nm is normally invoked by the internet server (see .Xr inetd 8 ) for requests to connect to the .Tn TELNET port as indicated by the .Pa /etc/services file (see .Xr services 5 ) . The .Fl debug option may be used to start up .Nm manually, instead of through .Xr inetd 8 . If started up this way, .Ar port may be specified to run .Nm on an alternate .Tn TCP port number. .Pp The .Nm command accepts the following options: .Bl -tag -width "-a authmode" .It Fl a Ar authmode This option may be used for specifying what mode should be used for authentication. Note that this option is only useful if .Nm has been compiled with support for the .Dv AUTHENTICATION option. There are several valid values for .Ar authmode : .Bl -tag -width debug .It debug Turns on authentication debugging code. .It user Only allow connections when the remote user can provide valid authentication information to identify the remote user, and is allowed access to the specified account without providing a password. .It valid Only allow connections when the remote user can provide valid authentication information to identify the remote user. The .Xr login 1 command will provide any additional user verification needed if the remote user is not allowed automatic access to the specified account. .It other Only allow connections that supply some authentication information. This option is currently not supported by any of the existing authentication mechanisms, and is thus the same as specifying .Fl a .Cm valid . .It none This is the default state. Authentication information is not required. If no or insufficient authentication information is provided, then the .Xr login 1 program will provide the necessary user verification. .It off This disables the authentication code. All user verification will happen through the .Xr login 1 program. .El .It Fl D Ar debugmode This option may be used for debugging purposes. This allows .Nm to print out debugging information to the connection, allowing the user to see what .Nm is doing. There are several possible values for .Ar debugmode : .Bl -tag -width exercise .It Cm options Prints information about the negotiation of .Tn TELNET options. .It Cm report Prints the .Cm options information, plus some additional information about what processing is going on. .It Cm netdata Displays the data stream received by .Nm . .It Cm ptydata Displays data written to the pty. .It Cm exercise Has not been implemented yet. .El .It Fl debug Enables debugging on each socket created by .Nm (see .Dv SO_DEBUG in .Xr socket 2 ) . .It Fl edebug If .Nm has been compiled with support for data encryption, then the .Fl edebug option may be used to enable encryption debugging code. .It Fl g Ar gettyent Specifies which entry from .Pa /etc/gettytab should be used to get banner strings, login program and other information. The default entry is .Dv default . .It Fl h Disables the printing of host-specific information before login has been completed. .It Fl k This option is only useful if .Nm has been compiled with both linemode and kludge linemode support. If the .Fl k option is specified, then if the remote client does not support the .Dv LINEMODE option, then .Nm will operate in character at a time mode. It will still support kludge linemode, but will only go into kludge linemode if the remote client requests it. (This is done by by the client sending .Dv DONT SUPPRESS-GO-AHEAD and .Dv DONT ECHO . ) The .Fl k option is most useful when there are remote clients that do not support kludge linemode, but pass the heuristic (if they respond with .Dv WILL TIMING-MARK in response to a .Dv DO TIMING-MARK ) for kludge linemode support. .It Fl l Specifies line mode. Tries to force clients to use line-at-a-time mode. If the .Dv LINEMODE option is not supported, it will go into kludge linemode. .It Fl n Disable .Dv TCP keep-alives. Normally .Nm enables the .Tn TCP keep-alive mechanism to probe connections that have been idle for some period of time to determine if the client is still there, so that idle connections from machines that have crashed or can no longer be reached may be cleaned up. .It Fl s This option is only enabled if .Nm is compiled with support for secure logins. It causes the .Fl s option to be passed on to .Xr login 1 , and thus is only useful if .Xr login 1 supports the .Fl s flag to indicate that only Kerberos or S/Key validated logins are allowed, and is usually useful for controlling remote logins from outside of a firewall. .It Fl S Ar tos This option sets the IP Type-of Service (TOS) option on the connection to the value tos, which may be a numeric TOS value or a symbolic TOS name found in the .Pa /etc/iptos file. This option has no effect on .Nx . .\"The option has no effect on systems that do not .\"support .\".Xr parsetos 3 .\"routine and the .\".Pa /etc/iptos .\"file. .It Fl u Ar len This option is used to specify the size of the field in the .Dv utmp structure that holds the remote host name. If the resolved host name is longer than .Ar len , the dotted decimal value will be used instead. This allows hosts with very long host names that overflow this field to still be uniquely identified. Specifying .Fl u0 indicates that only dotted decimal addresses should be put into the .Pa utmp file. .It Fl U This option causes .Nm to refuse connections from addresses that cannot be mapped back into a symbolic name via the .Xr getnameinfo 3 routine. .It Fl X Ar authtype This option is only valid if .Nm has been built with support for the authentication option. It disables the use of .Ar authtype authentication, and can be used to temporarily disable a specific authentication type without having to recompile .Nm . .It Fl 4 .It Fl 6 Specifies address family to be used on .Fl debug mode. During normal operation .Po called from .Xr inetd 8 .Pc .Nm will use the file descriptor passed from .Xr inetd 8 . .El .Pp .Nm operates by allocating a pseudo-terminal device (see .Xr pty 4 ) for a client, then creating a login process which has the slave side of the pseudo-terminal as .Dv stdin , .Dv stdout and .Dv stderr . .Nm manipulates the master side of the pseudo-terminal, implementing the .Tn TELNET protocol and passing characters between the remote client and the login process. .Pp When a .Tn TELNET session is started up, .Nm sends .Tn TELNET options to the client side indicating a willingness to do the following .Tn TELNET options, which are described in more detail below: .Bd -literal -offset indent DO AUTHENTICATION WILL ENCRYPT DO TERMINAL TYPE DO TSPEED DO XDISPLOC DO NEW-ENVIRON DO ENVIRON WILL SUPPRESS GO AHEAD DO ECHO DO LINEMODE DO NAWS WILL STATUS DO LFLOW DO TIMING-MARK .Ed .Pp The pseudo-terminal allocated to the client is configured to operate in \*(lqcooked\*(rq mode, and with .Dv XTABS and .Dv CRMOD enabled (see .Xr tty 4 ) . .Pp .Nm has support for enabling locally the following .Tn TELNET options: .Bl -tag -width "DO AUTHENTICATION" .It "WILL ECHO" When the .Dv LINEMODE option is enabled, a .Dv WILL ECHO or .Dv WONT ECHO will be sent to the client to indicate the current state of terminal echoing. When terminal echo is not desired, a .Dv WILL ECHO is sent to indicate that .Tn telnetd will take care of echoing any data that needs to be echoed to the terminal, and then nothing is echoed. When terminal echo is desired, a .Dv WONT ECHO is sent to indicate that .Tn telnetd will not be doing any terminal echoing, so the client should do any terminal echoing that is needed. .It "WILL BINARY" Indicates that the client is willing to send a 8 bits of data, rather than the normal 7 bits of the Network Virtual Terminal. .It "WILL SGA" Indicates that it will not be sending .Dv IAC GA , go ahead, commands. .It "WILL STATUS" Indicates a willingness to send the client, upon request, of the current status of all .Tn TELNET options. .It "WILL TIMING-MARK" Whenever a .Dv DO TIMING-MARK command is received, it is always responded to with a .Dv WILL TIMING-MARK .It "WILL LOGOUT" When a .Dv DO LOGOUT is received, a .Dv WILL LOGOUT is sent in response, and the .Tn TELNET session is shut down. .It "WILL ENCRYPT" Only sent if .Nm is compiled with support for data encryption, and indicates a willingness to decrypt the data stream. .El .Pp .Nm has support for enabling remotely the following .Tn TELNET options: .Bl -tag -width "DO AUTHENTICATION" .It "DO BINARY" Sent to indicate that .Tn telnetd is willing to receive an 8 bit data stream. .It "DO LFLOW" Requests that the client handle flow control characters remotely. .It "DO ECHO" This is not really supported, but is sent to identify a .Bx 4.2 .Xr telnet 1 client, which will improperly respond with .Dv WILL ECHO . If a .Dv WILL ECHO is received, a .Dv DONT ECHO will be sent in response. .It "DO TERMINAL-TYPE" Indicates a desire to be able to request the name of the type of terminal that is attached to the client side of the connection. .It "DO SGA" Indicates that it does not need to receive .Dv IAC GA , the go ahead command. .It "DO NAWS" Requests that the client inform the server when the window (display) size changes. .It "DO TERMINAL-SPEED" Indicates a desire to be able to request information about the speed of the serial line to which the client is attached. .It "DO XDISPLOC" Indicates a desire to be able to request the name of the X windows display that is associated with the telnet client. .It "DO NEW-ENVIRON" Indicates a desire to be able to request environment variable information, as described in RFC 1572. .It "DO ENVIRON" Indicates a desire to be able to request environment variable information, as described in RFC 1408. .It "DO LINEMODE" Only sent if .Nm is compiled with support for linemode, and requests that the client do line by line processing. .It "DO TIMING-MARK" Only sent if .Nm is compiled with support for both linemode and kludge linemode, and the client responded with .Dv WONT LINEMODE . If the client responds with .Dv WILL TM , the it is assumed that the client supports kludge linemode. Note that the .Op Fl k option can be used to disable this. .It "DO AUTHENTICATION" Only sent if .Nm is compiled with support for authentication, and indicates a willingness to receive authentication information for automatic login. .It "DO ENCRYPT" Only sent if .Nm is compiled with support for data encryption, and indicates a willingness to decrypt the data stream. .El .Pp At the end of a login session, .Nm invokes the .Xr ttyaction 3 facility with an action of "telnetd" and user "root" to execute site-specific commands. .Sh FILES .Bl -item -compact .It .Pa /etc/services .It .Pa /etc/iptos (if supported) .El .Sh SEE ALSO .Xr login 1 , .Xr skey 1 , .Xr telnet 1 , .Xr ttyaction 3 .Sh STANDARDS .Bl -tag -compact -width "RFC 1572 " .It RFC 854 .Tn TELNET PROTOCOL SPECIFICATION .It RFC 855 TELNET OPTION SPECIFICATIONS .It RFC 856 TELNET BINARY TRANSMISSION .It RFC 857 TELNET ECHO OPTION .It RFC 858 TELNET SUPPRESS GO AHEAD OPTION .It RFC 859 TELNET STATUS OPTION .It RFC 860 TELNET TIMING MARK OPTION .It RFC 861 TELNET EXTENDED OPTIONS - LIST OPTION .It RFC 885 TELNET END OF RECORD OPTION .It RFC 1073 Telnet Window Size Option .It RFC 1079 Telnet Terminal Speed Option .It RFC 1091 Telnet Terminal-Type Option .It RFC 1096 Telnet X Display Location Option .It RFC 1123 Requirements for Internet Hosts -- Application and Support .It RFC 1184 Telnet Linemode Option .It RFC 1372 Telnet Remote Flow Control Option .It RFC 1416 Telnet Authentication Option .It RFC 1411 Telnet Authentication: Kerberos Version 4 .It RFC 1571 Telnet Environment Option Interoperability Issues .It RFC 1572 Telnet Environment Option .El .Sh BUGS Some .Tn TELNET commands are only partially implemented. .Pp Because of bugs in the original .Bx 4.2 .Xr telnet 1 , .Nm performs some dubious protocol exchanges to try to discover if the remote client is, in fact, a .Bx 4.2 .Xr telnet 1 . .Pp Binary mode has no common interpretation except between similar operating systems .Po .Ux in this case .Pc . .Pp The terminal type name received from the remote client is converted to lower case. .Pp .Nm never sends .Tn TELNET .Dv IAC GA (go ahead) commands. src/libexec/telnetd/telnetd.c010064400011300000175000000674221471015726200164720ustar00srcmastrnetbsd/* $NetBSD: telnetd.c,v 1.60 2024/10/29 13:10:10 kre Exp $ */ /* * Copyright (C) 1997 and 1998 WIDE Project. * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the project nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ /* * Copyright (c) 1989, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint __COPYRIGHT("@(#) Copyright (c) 1989, 1993\ The Regents of the University of California. All rights reserved."); #if 0 static char sccsid[] = "@(#)telnetd.c 8.4 (Berkeley) 5/30/95"; #else __RCSID("$NetBSD: telnetd.c,v 1.60 2024/10/29 13:10:10 kre Exp $"); #endif #endif /* not lint */ #include "telnetd.h" #include "pathnames.h" #include #include #include #include #ifdef KRB5 #define Authenticator k5_Authenticator #include #undef Authenticator #include #endif #if defined(AUTHENTICATION) || defined(ENCRYPTION) #include #endif extern int require_hwpreauth; #ifdef KRB5 extern krb5_context telnet_context; #endif int registerd_host_only = 0; /* * I/O data buffers, * pointers, and counters. */ char ptyibuf[BUFSIZ], *ptyip = ptyibuf; char ptyibuf2[BUFSIZ]; int hostinfo = 1; /* do we print login banner? */ static int debug = 0; int keepalive = 1; const char *gettyname = "default"; char *progname; void usage(void) __dead; int getterminaltype(char *, size_t); int getent(char *, const char *); static void doit(struct sockaddr *) __dead; void _gettermname(void); int terminaltypeok(char *); char *getstr(const char *, char **); /* * The string to pass to getopt(). We do it this way so * that only the actual options that we support will be * passed off to getopt(). */ char valid_opts[] = { 'd', ':', 'g', ':', 'h', 'k', 'n', 'S', ':', 'u', ':', 'U', '4', '6', #ifdef AUTHENTICATION 'a', ':', 'X', ':', #endif #ifdef ENCRYPTION 'e', ':', #endif #ifdef DIAGNOSTICS 'D', ':', #endif #ifdef LINEMODE 'l', #endif #ifdef SECURELOGIN 's', #endif #ifdef KRB5 'R', ':', 'H', #endif '\0' }; int family = AF_INET; struct sockaddr_storage from; int main(int argc, char *argv[]) { static char Xline[] = NULL16STR; socklen_t fromlen; int on = 1; int ch; #if defined(IPPROTO_IP) && defined(IP_TOS) int tos = -1; #endif line = Xline; pfrontp = pbackp = ptyobuf; netip = netibuf; nfrontp = nbackp = netobuf; #ifdef ENCRYPTION nclearto = 0; #endif /* ENCRYPTION */ progname = *argv; while ((ch = getopt(argc, argv, valid_opts)) != -1) { switch (ch) { #ifdef AUTHENTICATION case 'a': /* * Check for required authentication level */ if (strcmp(optarg, "debug") == 0) { auth_debug_mode = 1; } else if (strcasecmp(optarg, "none") == 0) { auth_level = 0; } else if (strcasecmp(optarg, "other") == 0) { auth_level = AUTH_OTHER; } else if (strcasecmp(optarg, "user") == 0) { auth_level = AUTH_USER; } else if (strcasecmp(optarg, "valid") == 0) { auth_level = AUTH_VALID; } else if (strcasecmp(optarg, "off") == 0) { /* * This hack turns off authentication */ auth_level = -1; } else { fprintf(stderr, "telnetd: unknown authorization level for -a\n"); } break; #endif /* AUTHENTICATION */ case 'd': if (strcmp(optarg, "ebug") == 0) { debug++; break; } usage(); /* NOTREACHED */ break; #ifdef DIAGNOSTICS case 'D': /* * Check for desired diagnostics capabilities. */ if (!strcmp(optarg, "report")) { diagnostic |= TD_REPORT|TD_OPTIONS; } else if (!strcmp(optarg, "exercise")) { diagnostic |= TD_EXERCISE; } else if (!strcmp(optarg, "netdata")) { diagnostic |= TD_NETDATA; } else if (!strcmp(optarg, "ptydata")) { diagnostic |= TD_PTYDATA; } else if (!strcmp(optarg, "options")) { diagnostic |= TD_OPTIONS; } else { usage(); /* NOT REACHED */ } break; #endif /* DIAGNOSTICS */ #ifdef ENCRYPTION case 'e': if (strcmp(optarg, "debug") == 0) { EncryptDebug(1); break; } usage(); /* NOTREACHED */ break; #endif /* ENCRYPTION */ case 'g': gettyname = optarg; break; case 'h': hostinfo = 0; break; #ifdef KRB5 case 'H': { require_hwpreauth = 1; break; } #endif /* KRB5 */ #ifdef LINEMODE case 'l': alwayslinemode = 1; break; #endif /* LINEMODE */ case 'k': #if defined(LINEMODE) && defined(KLUDGELINEMODE) lmodetype = NO_AUTOKLUDGE; #else /* ignore -k option if built without kludge linemode */ #endif /* defined(LINEMODE) && defined(KLUDGELINEMODE) */ break; case 'n': keepalive = 0; break; #ifdef KRB5 case 'R': { krb5_error_code retval; if (telnet_context == 0) { retval = krb5_init_context(&telnet_context); if (retval) { com_err("telnetd", retval, "while initializing krb5"); exit(1); } } krb5_set_default_realm(telnet_context, optarg); break; } #endif /* KRB5 */ #ifdef SECURELOGIN case 's': /* Secure login required */ require_secure_login = 1; break; #endif /* SECURELOGIN */ case 'S': fprintf(stderr, "%s%s\n", "TOS option unavailable; ", "-S flag not supported\n"); break; case 'u': fprintf(stderr, "telnetd: -u option unneeded\n"); break; case 'U': registerd_host_only = 1; break; #ifdef AUTHENTICATION case 'X': /* * Check for invalid authentication types */ auth_disable_name(optarg); break; #endif /* AUTHENTICATION */ case '4': family = AF_INET; break; case '6': family = AF_INET6; break; default: fprintf(stderr, "telnetd: %c: unknown option\n", ch); /* FALLTHROUGH */ case '?': usage(); /* NOTREACHED */ } } argc -= optind; argv += optind; if (debug) { int s, ns, error; socklen_t foo; const char *service = "telnet"; struct addrinfo hints, *res; if (argc > 1) { usage(); /* NOT REACHED */ } else if (argc == 1) service = *argv; memset(&hints, 0, sizeof(hints)); hints.ai_flags = AI_PASSIVE; hints.ai_family = family; hints.ai_socktype = SOCK_STREAM; hints.ai_protocol = 0; error = getaddrinfo(NULL, service, &hints, &res); if (error) { fprintf(stderr, "tcp/%s: %s\n", service, gai_strerror(error)); exit(1); } s = socket(res->ai_family, res->ai_socktype, res->ai_protocol); if (s < 0) { perror("telnetd: socket"); exit(1); } (void) setsockopt(s, SOL_SOCKET, SO_REUSEADDR, (char *)&on, sizeof(on)); if (bind(s, res->ai_addr, res->ai_addrlen) < 0) { perror("bind"); exit(1); } if (listen(s, 1) < 0) { perror("listen"); exit(1); } foo = res->ai_addrlen; ns = accept(s, res->ai_addr, &foo); if (ns < 0) { perror("accept"); exit(1); } (void) dup2(ns, 0); (void) close(ns); (void) close(s); freeaddrinfo(res); } else if (argc > 0) { usage(); /* NOT REACHED */ } openlog("telnetd", LOG_PID, LOG_DAEMON); fromlen = sizeof (from); if (getpeername(0, (struct sockaddr *)&from, &fromlen) < 0) { fprintf(stderr, "%s: ", progname); perror("getpeername"); _exit(1); } if (keepalive && setsockopt(0, SOL_SOCKET, SO_KEEPALIVE, (char *)&on, sizeof (on)) < 0) { syslog(LOG_WARNING, "setsockopt (SO_KEEPALIVE): %m"); } #if defined(IPPROTO_IP) && defined(IP_TOS) if (((struct sockaddr *)&from)->sa_family == AF_INET) { if (tos < 0) tos = 020; /* Low Delay bit */ if (tos && (setsockopt(0, IPPROTO_IP, IP_TOS, (char *)&tos, sizeof(tos)) < 0) && (errno != ENOPROTOOPT) ) syslog(LOG_WARNING, "setsockopt (IP_TOS): %m"); } #endif /* defined(IPPROTO_IP) && defined(IP_TOS) */ net = 0; doit((struct sockaddr *)&from); /* NOTREACHED */ #ifdef __GNUC__ exit(0); #endif } /* end of main */ void usage(void) { fprintf(stderr, "Usage: telnetd"); #ifdef AUTHENTICATION fprintf(stderr, " [-a (debug|other|user|valid|off|none)]\n\t"); #endif fprintf(stderr, " [-debug]"); #ifdef DIAGNOSTICS fprintf(stderr, " [-D (options|report|exercise|netdata|ptydata)]\n\t"); #endif #ifdef ENCRYPTION fprintf(stderr, " [-edebug]"); #endif fprintf(stderr, " [-h]"); #if defined(LINEMODE) && defined(KLUDGELINEMODE) fprintf(stderr, " [-k]"); #endif #ifdef LINEMODE fprintf(stderr, " [-l]"); #endif fprintf(stderr, " [-n]"); fprintf(stderr, "\n\t"); #ifdef SECURELOGIN fprintf(stderr, " [-s]"); #endif #ifdef AUTHENTICATION fprintf(stderr, " [-X auth-type]"); #endif fprintf(stderr, " [-u utmp_hostname_length] [-U]"); fprintf(stderr, " [port]\n"); exit(1); } /* * getterminaltype * * Ask the other end to send along its terminal type and speed. * Output is the variable terminaltype filled in. */ static unsigned char ttytype_sbbuf[] = { IAC, SB, TELOPT_TTYPE, TELQUAL_SEND, IAC, SE }; int getterminaltype(char *name, size_t l) { int retval = -1; settimer(baseline); #ifdef AUTHENTICATION /* * Handle the Authentication option before we do anything else. */ if (auth_level >= 0) { send_do(TELOPT_AUTHENTICATION, 1); while (his_will_wont_is_changing(TELOPT_AUTHENTICATION)) ttloop(); if (his_state_is_will(TELOPT_AUTHENTICATION)) { retval = auth_wait(name, l); } } #endif #ifdef ENCRYPTION send_will(TELOPT_ENCRYPT, 1); #endif /* ENCRYPTION */ send_do(TELOPT_TTYPE, 1); send_do(TELOPT_TSPEED, 1); send_do(TELOPT_XDISPLOC, 1); send_do(TELOPT_NEW_ENVIRON, 1); send_do(TELOPT_OLD_ENVIRON, 1); while ( #ifdef ENCRYPTION his_do_dont_is_changing(TELOPT_ENCRYPT) || #endif /* ENCRYPTION */ his_will_wont_is_changing(TELOPT_TTYPE) || his_will_wont_is_changing(TELOPT_TSPEED) || his_will_wont_is_changing(TELOPT_XDISPLOC) || his_will_wont_is_changing(TELOPT_NEW_ENVIRON) || his_will_wont_is_changing(TELOPT_OLD_ENVIRON)) { ttloop(); } if (his_state_is_will(TELOPT_TSPEED)) { static unsigned char sb[] = { IAC, SB, TELOPT_TSPEED, TELQUAL_SEND, IAC, SE }; output_datalen((const char *)sb, sizeof sb); DIAG(TD_OPTIONS, printsub('>', sb + 2, sizeof sb - 2);); } #ifdef ENCRYPTION /* * Wait for the negotiation of what type of encryption we can * send with. If autoencrypt is not set, this will just return. */ if (his_state_is_will(TELOPT_ENCRYPT)) { encrypt_wait(); } #endif /* ENCRYPTION */ if (his_state_is_will(TELOPT_XDISPLOC)) { static unsigned char sb[] = { IAC, SB, TELOPT_XDISPLOC, TELQUAL_SEND, IAC, SE }; output_datalen((const char *)sb, sizeof sb); DIAG(TD_OPTIONS, printsub('>', sb + 2, sizeof sb - 2);); } if (his_state_is_will(TELOPT_NEW_ENVIRON)) { static unsigned char sb[] = { IAC, SB, TELOPT_NEW_ENVIRON, TELQUAL_SEND, IAC, SE }; output_datalen((const char *)sb, sizeof sb); DIAG(TD_OPTIONS, printsub('>', sb + 2, sizeof sb - 2);); } else if (his_state_is_will(TELOPT_OLD_ENVIRON)) { static unsigned char sb[] = { IAC, SB, TELOPT_OLD_ENVIRON, TELQUAL_SEND, IAC, SE }; output_datalen((const char *)sb, sizeof sb); DIAG(TD_OPTIONS, printsub('>', sb + 2, sizeof sb - 2);); } if (his_state_is_will(TELOPT_TTYPE)) { output_datalen((const char *)ttytype_sbbuf, sizeof ttytype_sbbuf); DIAG(TD_OPTIONS, printsub('>', ttytype_sbbuf + 2, sizeof ttytype_sbbuf - 2);); } if (his_state_is_will(TELOPT_TSPEED)) { while (sequenceIs(tspeedsubopt, baseline)) ttloop(); } if (his_state_is_will(TELOPT_XDISPLOC)) { while (sequenceIs(xdisplocsubopt, baseline)) ttloop(); } if (his_state_is_will(TELOPT_NEW_ENVIRON)) { while (sequenceIs(environsubopt, baseline)) ttloop(); } if (his_state_is_will(TELOPT_OLD_ENVIRON)) { while (sequenceIs(oenvironsubopt, baseline)) ttloop(); } if (his_state_is_will(TELOPT_TTYPE)) { char first[256], last[256]; while (sequenceIs(ttypesubopt, baseline)) ttloop(); /* * If the other side has already disabled the option, then * we have to just go with what we (might) have already gotten. */ if (his_state_is_will(TELOPT_TTYPE) && !terminaltypeok(terminaltype)) { (void) strlcpy(first, terminaltype, sizeof(first)); for(;;) { /* * Save the unknown name, and request the next name. */ (void) strlcpy(last, terminaltype, sizeof(last)); _gettermname(); if (terminaltypeok(terminaltype)) break; if ((strncmp(last, terminaltype, sizeof(last)) == 0) || his_state_is_wont(TELOPT_TTYPE)) { /* * We've hit the end. If this is the same as * the first name, just go with it. */ if (strncmp(first, terminaltype, sizeof(first)) == 0) break; /* * Get the terminal name one more time, so that * RFC1091 compliant telnets will cycle back to * the start of the list. */ _gettermname(); if (strncmp(first, terminaltype, sizeof(first)) != 0) { (void) strlcpy(terminaltype, first, sizeof(terminaltype)); } break; } } } } return(retval); } /* end of getterminaltype */ void _gettermname(void) { /* * If the client turned off the option, * we can't send another request, so we * just return. */ if (his_state_is_wont(TELOPT_TTYPE)) return; settimer(baseline); output_datalen((const char *)ttytype_sbbuf, sizeof ttytype_sbbuf); DIAG(TD_OPTIONS, printsub('>', ttytype_sbbuf + 2, sizeof ttytype_sbbuf - 2);); while (sequenceIs(ttypesubopt, baseline)) ttloop(); } int terminaltypeok(char *s) { char buf[1024]; /* * tgetent() will return 1 if the type is known, and * 0 if it is not known. If it returns -1, it couldn't * open the database. But if we can't open the database, * it won't help to say we failed, because we won't be * able to verify anything else. So, we treat -1 like 1. */ if (tgetent(buf, s) == 0) return(0); return(1); } char *hostname; char host_name[MAXHOSTNAMELEN + 1]; char remote_host_name[MAXHOSTNAMELEN + 1]; static void telnet(int, int) __dead; /* * Get a pty, scan input lines. */ static void doit(struct sockaddr *who) { char *host; int error; int level; int ptynum; int flags; char user_name[256]; /* * Initialize the slc mapping table. */ get_slc_defaults(); /* * Find an available pty to use. */ pty = getpty(&ptynum); if (pty < 0) fatal(net, "All network ports in use"); flags = registerd_host_only ? NI_NAMEREQD : 0; /* get name of connected client */ error = getnameinfo(who, who->sa_len, remote_host_name, sizeof(remote_host_name), NULL, 0, flags); if (error) { fatal(net, "Couldn't resolve your address into a host name.\r\n\ Please contact your net administrator"); #ifdef __GNUC__ host = NULL; /* XXX gcc */ #endif } remote_host_name[sizeof(remote_host_name)-1] = 0; host = remote_host_name; (void)gethostname(host_name, sizeof(host_name)); host_name[sizeof(host_name) - 1] = '\0'; hostname = host_name; #if defined(AUTHENTICATION) || defined(ENCRYPTION) auth_encrypt_init(hostname, host, "TELNETD", 1); #endif init_env(); /* * get terminal type. */ *user_name = 0; level = getterminaltype(user_name, sizeof(user_name)); setenv("TERM", terminaltype[0] ? terminaltype : "network", 1); /* * Start up the login process on the slave side of the terminal */ startslave(host, level, user_name); telnet(net, pty); /* begin server processing */ /*NOTREACHED*/ } /* end of doit */ /* * Main loop. Select from pty and network, and * hand data to telnet receiver finite state machine. */ static void telnet(int f, int p) { int on = 1; #define TABBUFSIZ 512 char defent[TABBUFSIZ]; char defstrs[TABBUFSIZ]; #undef TABBUFSIZ char *HE, *HN, *IF, *ptyibuf2ptr; const char *IM; struct pollfd set[2]; /* * Do some tests where it is desirable to wait for a response. * Rather than doing them slowly, one at a time, do them all * at once. */ if (my_state_is_wont(TELOPT_SGA)) send_will(TELOPT_SGA, 1); /* * Is the client side a 4.2 (NOT 4.3) system? We need to know this * because 4.2 clients are unable to deal with TCP urgent data. * * To find out, we send out a "DO ECHO". If the remote system * answers "WILL ECHO" it is probably a 4.2 client, and we note * that fact ("WILL ECHO" ==> that the client will echo what * WE, the server, sends it; it does NOT mean that the client will * echo the terminal input). */ send_do(TELOPT_ECHO, 1); #ifdef LINEMODE if (his_state_is_wont(TELOPT_LINEMODE)) { /* Query the peer for linemode support by trying to negotiate * the linemode option. */ linemode = 0; editmode = 0; send_do(TELOPT_LINEMODE, 1); /* send do linemode */ } #endif /* LINEMODE */ /* * Send along a couple of other options that we wish to negotiate. */ send_do(TELOPT_NAWS, 1); send_will(TELOPT_STATUS, 1); flowmode = 1; /* default flow control state */ restartany = -1; /* uninitialized... */ send_do(TELOPT_LFLOW, 1); /* * Spin, waiting for a response from the DO ECHO. However, * some REALLY DUMB telnets out there might not respond * to the DO ECHO. So, we spin looking for NAWS, (most dumb * telnets so far seem to respond with WONT for a DO that * they don't understand...) because by the time we get the * response, it will already have processed the DO ECHO. * Kludge upon kludge. */ while (his_will_wont_is_changing(TELOPT_NAWS)) ttloop(); /* * But... * The client might have sent a WILL NAWS as part of its * startup code; if so, we'll be here before we get the * response to the DO ECHO. We'll make the assumption * that any implementation that understands about NAWS * is a modern enough implementation that it will respond * to our DO ECHO request; hence we'll do another spin * waiting for the ECHO option to settle down, which is * what we wanted to do in the first place... */ if (his_want_state_is_will(TELOPT_ECHO) && his_state_is_will(TELOPT_NAWS)) { while (his_will_wont_is_changing(TELOPT_ECHO)) ttloop(); } /* * On the off chance that the telnet client is broken and does not * respond to the DO ECHO we sent, (after all, we did send the * DO NAWS negotiation after the DO ECHO, and we won't get here * until a response to the DO NAWS comes back) simulate the * receipt of a will echo. This will also send a WONT ECHO * to the client, since we assume that the client failed to * respond because it believes that it is already in DO ECHO * mode, which we do not want. */ if (his_want_state_is_will(TELOPT_ECHO)) { DIAG(TD_OPTIONS, {output_data("td: simulating recv\r\n");}); willoption(TELOPT_ECHO); } /* * Finally, to clean things up, we turn on our echo. This * will break stupid 4.2 telnets out of local terminal echo. */ if (my_state_is_wont(TELOPT_ECHO)) send_will(TELOPT_ECHO, 1); /* * Turn on packet mode */ (void) ioctl(p, TIOCPKT, (char *)&on); #if defined(LINEMODE) && defined(KLUDGELINEMODE) /* * Continuing line mode support. If client does not support * real linemode, attempt to negotiate kludge linemode by sending * the do timing mark sequence. */ if (lmodetype < REAL_LINEMODE) send_do(TELOPT_TM, 1); #endif /* defined(LINEMODE) && defined(KLUDGELINEMODE) */ /* * Call telrcv() once to pick up anything received during * terminal type negotiation, 4.2/4.3 determination, and * linemode negotiation. */ telrcv(); (void) ioctl(f, FIONBIO, (char *)&on); (void) ioctl(p, FIONBIO, (char *)&on); (void) setsockopt(f, SOL_SOCKET, SO_OOBINLINE, (char *)&on, sizeof on); (void) signal(SIGTSTP, SIG_IGN); /* * Ignoring SIGTTOU keeps the kernel from blocking us * in ttioct() in /sys/tty.c. */ (void) signal(SIGTTOU, SIG_IGN); (void) signal(SIGCHLD, cleanup); { int t; t = open(_PATH_TTY, O_RDWR); if (t >= 0) { (void) ioctl(t, TIOCNOTTY, (char *)0); (void) close(t); } } /* * Show banner that getty never gave. * * We put the banner in the pty input buffer. This way, it * gets carriage return null processing, etc., just like all * other pty --> client data. */ if (getent(defent, gettyname) == 1) { char *cp=defstrs; HE = getstr("he", &cp); HN = getstr("hn", &cp); IM = getstr("im", &cp); IF = getstr("if", &cp); if (HN && *HN) (void)strlcpy(host_name, HN, sizeof(host_name)); if (IM == 0) IM = ""; } else { IM = DEFAULT_IM; HE = 0; IF = NULL; } edithost(HE, host_name); ptyibuf2ptr = ptyibuf2; if (hostinfo) { if (IF) { char buf[_POSIX2_LINE_MAX]; FILE *fd; if ((fd = fopen(IF, "r")) != NULL) { while (fgets(buf, sizeof(buf) - 1, fd) != NULL) ptyibuf2ptr = putf(buf, ptyibuf2ptr); fclose(fd); } } if (*IM) ptyibuf2ptr = putf(IM, ptyibuf2ptr); } if (pcc) strncpy(ptyibuf2ptr, ptyip, pcc+1); ptyip = ptyibuf2; pcc = strlen(ptyip); #ifdef LINEMODE /* * Last check to make sure all our states are correct. */ init_termbuf(); localstat(); #endif /* LINEMODE */ DIAG(TD_REPORT, {output_data("td: Entering processing loop\r\n");}); set[0].fd = f; set[1].fd = p; for (;;) { int c; if (ncc < 0 && pcc < 0) break; /* * Never look for input if there's still * stuff in the corresponding output buffer */ set[0].events = 0; set[1].events = 0; if (nfrontp - nbackp || pcc > 0) set[0].events |= POLLOUT; else set[1].events |= POLLIN; if (pfrontp - pbackp || ncc > 0) set[1].events |= POLLOUT; else set[0].events |= POLLIN; if (!SYNCHing) set[0].events |= POLLPRI; if ((c = poll(set, 2, INFTIM)) < 1) { if (c == -1) { if (errno == EINTR) { continue; } } sleep(5); continue; } /* * Any urgent data? */ if (set[0].revents & POLLPRI) { SYNCHing = 1; } /* * Something to read from the network... */ if (set[0].revents & POLLIN) { ncc = read(f, netibuf, sizeof (netibuf)); if (ncc < 0 && errno == EWOULDBLOCK) ncc = 0; else { if (ncc <= 0) { break; } netip = netibuf; } DIAG((TD_REPORT | TD_NETDATA), {output_data("td: netread %d chars\r\n", ncc);}); DIAG(TD_NETDATA, printdata("nd", netip, ncc)); } /* * Something to read from the pty... */ if (set[1].revents & POLLIN) { pcc = read(p, ptyibuf, BUFSIZ); /* * On some systems, if we try to read something * off the master side before the slave side is * opened, we get EIO. */ if (pcc < 0 && (errno == EWOULDBLOCK || errno == EAGAIN || errno == EIO)) { pcc = 0; } else { if (pcc <= 0) break; #ifdef LINEMODE /* * If ioctl from pty, pass it through net */ if (ptyibuf[0] & TIOCPKT_IOCTL) { copy_termbuf(ptyibuf+1, pcc-1); localstat(); pcc = 1; } #endif /* LINEMODE */ if (ptyibuf[0] & TIOCPKT_FLUSHWRITE) { netclear(); /* clear buffer back */ /* * There are client telnets on some * operating systems get screwed up * royally if we send them urgent * mode data. */ output_data("%c%c", IAC, DM); neturg = nfrontp - 1; /* off by one XXX */ DIAG(TD_OPTIONS, printoption("td: send IAC", DM)); } if (his_state_is_will(TELOPT_LFLOW) && (ptyibuf[0] & (TIOCPKT_NOSTOP|TIOCPKT_DOSTOP))) { int newflow = ptyibuf[0] & TIOCPKT_DOSTOP ? 1 : 0; if (newflow != flowmode) { flowmode = newflow; (void) output_data( "%c%c%c%c%c%c", IAC, SB, TELOPT_LFLOW, flowmode ? LFLOW_ON : LFLOW_OFF, IAC, SE); DIAG(TD_OPTIONS, printsub('>', (unsigned char *)nfrontp - 4, 4);); } } pcc--; ptyip = ptyibuf+1; } } while (pcc > 0) { if ((&netobuf[BUFSIZ] - nfrontp) < 2) break; c = *ptyip++ & 0377, pcc--; if (c == IAC) output_data("%c", c); output_data("%c", c); if ((c == '\r') && (my_state_is_wont(TELOPT_BINARY))) { if (pcc > 0 && ((*ptyip & 0377) == '\n')) { output_data("%c", *ptyip++ & 0377); pcc--; } else output_datalen("\0", 1); } } if ((set[0].revents & POLLOUT) && (nfrontp - nbackp) > 0) netflush(); if (ncc > 0) telrcv(); if ((set[1].revents & POLLOUT) && (pfrontp - pbackp) > 0) ptyflush(); } cleanup(0); } /* end of telnet */ /* * Send interrupt to process on other side of pty. * If it is in raw mode, just write NULL; * otherwise, write intr char. */ void interrupt(void) { ptyflush(); /* half-hearted */ (void) ioctl(pty, TIOCSIG, (char *)SIGINT); } /* * Send quit to process on other side of pty. * If it is in raw mode, just write NULL; * otherwise, write quit char. */ void sendbrk(void) { ptyflush(); /* half-hearted */ (void) ioctl(pty, TIOCSIG, (char *)SIGQUIT); } void sendsusp(void) { ptyflush(); /* half-hearted */ (void) ioctl(pty, TIOCSIG, (char *)SIGTSTP); } /* * When we get an AYT, if ^T is enabled, use that. Otherwise, * just send back "[Yes]". */ void recv_ayt(void) { if (slctab[SLC_AYT].sptr && *slctab[SLC_AYT].sptr != _POSIX_VDISABLE) { (void) ioctl(pty, TIOCSIG, (char *)SIGINFO); return; } (void) output_data("\r\n[Yes]\r\n"); } void doeof(void) { init_termbuf(); #if defined(LINEMODE) && (VEOF == VMIN) if (!tty_isediting()) { extern char oldeofc; *pfrontp++ = oldeofc; return; } #endif *pfrontp++ = slctab[SLC_EOF].sptr ? (unsigned char)*slctab[SLC_EOF].sptr : '\004'; } src/libexec/telnetd/telnetd.h010064400011300000175000000035410771442001400164610ustar00srcmastrnetbsd/* $NetBSD: telnetd.h,v 1.8 2003/08/07 09:46:52 agc Exp $ */ /* * Copyright (c) 1989, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. * * from: @(#)telnetd.h 8.1 (Berkeley) 6/4/93 */ #include #include #ifdef DIAGNOSTICS #define DIAG(a,b) if (diagnostic & (a)) b #else #define DIAG(a,b) #endif /* other external variables */ extern char **environ; src/libexec/telnetd/termstat.c010064400011300000175000000403261020133077500166610ustar00srcmastrnetbsd/* $NetBSD: termstat.c,v 1.14 2005/02/06 05:58:21 perry Exp $ */ /* * Copyright (c) 1989, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint #if 0 static char sccsid[] = "@(#)termstat.c 8.2 (Berkeley) 5/30/95"; #else __RCSID("$NetBSD: termstat.c,v 1.14 2005/02/06 05:58:21 perry Exp $"); #endif #endif /* not lint */ #include "telnetd.h" #ifdef ENCRYPTION #include #endif /* * local variables */ int def_tspeed = -1, def_rspeed = -1; int def_row = 0, def_col = 0; #ifdef LINEMODE static int _terminit = 0; #endif /* LINEMODE */ #ifdef LINEMODE /* * localstat * * This function handles all management of linemode. * * Linemode allows the client to do the local editing of data * and send only complete lines to the server. Linemode state is * based on the state of the pty driver. If the pty is set for * external processing, then we can use linemode. Further, if we * can use real linemode, then we can look at the edit control bits * in the pty to determine what editing the client should do. * * Linemode support uses the following state flags to keep track of * current and desired linemode state. * alwayslinemode : true if -l was specified on the telnetd * command line. It means to have linemode on as much as * possible. * * lmodetype: signifies whether the client can * handle real linemode, or if use of kludgeomatic linemode * is preferred. It will be set to one of the following: * REAL_LINEMODE : use linemode option * NO_KLUDGE : don't initiate kludge linemode. * KLUDGE_LINEMODE : use kludge linemode * NO_LINEMODE : client is ignorant of linemode * * linemode, uselinemode : linemode is true if linemode * is currently on, uselinemode is the state that we wish * to be in. If another function wishes to turn linemode * on or off, it sets or clears uselinemode. * * editmode, useeditmode : like linemode/uselinemode, but * these contain the edit mode states (edit and trapsig). * * The state variables correspond to some of the state information * in the pty. * linemode: * In real linemode, this corresponds to whether the pty * expects external processing of incoming data. * In kludge linemode, this more closely corresponds to the * whether normal processing is on or not. (ICANON in * system V, or COOKED mode in BSD.) * If the -l option was specified (alwayslinemode), then * an attempt is made to force external processing on at * all times. * * The following heuristics are applied to determine linemode * handling within the server. * 1) Early on in starting up the server, an attempt is made * to negotiate the linemode option. If this succeeds * then lmodetype is set to REAL_LINEMODE and all linemode * processing occurs in the context of the linemode option. * 2) If the attempt to negotiate the linemode option failed, * and the "-k" (don't initiate kludge linemode) isn't set, * then we try to use kludge linemode. We test for this * capability by sending "do Timing Mark". If a positive * response comes back, then we assume that the client * understands kludge linemode (ech!) and the * lmodetype flag is set to KLUDGE_LINEMODE. * 3) Otherwise, linemode is not supported at all and * lmodetype remains set to NO_LINEMODE (which happens * to be 0 for convenience). * 4) At any time a command arrives that implies a higher * state of linemode support in the client, we move to that * linemode support. * * A short explanation of kludge linemode is in order here. * 1) The heuristic to determine support for kludge linemode * is to send a do timing mark. We assume that a client * that supports timing marks also supports kludge linemode. * A risky proposition at best. * 2) Further negotiation of linemode is done by changing the * the server's state regarding SGA. If server will SGA, * then linemode is off, if server won't SGA, then linemode * is on. */ void localstat(void) { int need_will_echo = 0; /* * Check for state of BINARY options. */ if (tty_isbinaryin()) { if (his_want_state_is_wont(TELOPT_BINARY)) send_do(TELOPT_BINARY, 1); } else { if (his_want_state_is_will(TELOPT_BINARY)) send_dont(TELOPT_BINARY, 1); } if (tty_isbinaryout()) { if (my_want_state_is_wont(TELOPT_BINARY)) send_will(TELOPT_BINARY, 1); } else { if (my_want_state_is_will(TELOPT_BINARY)) send_wont(TELOPT_BINARY, 1); } /* * Check for changes to flow control if client supports it. */ flowstat(); /* * Check linemode on/off state */ uselinemode = tty_linemode(); /* * If alwayslinemode is on, and pty is changing to turn it off, then * force linemode back on. */ if (alwayslinemode && linemode && !uselinemode) { uselinemode = 1; tty_setlinemode(uselinemode); } #ifdef ENCRYPTION /* * If the terminal is not echoing, but editing is enabled, * something like password input is going to happen, so * if we the other side is not currently sending encrypted * data, ask the other side to start encrypting. */ if (his_state_is_will(TELOPT_ENCRYPT)) { static int enc_passwd = 0; if (uselinemode && !tty_isecho() && tty_isediting() && (enc_passwd == 0) && !decrypt_input) { encrypt_send_request_start(); enc_passwd = 1; } else if (enc_passwd) { encrypt_send_request_end(); enc_passwd = 0; } } #endif /* ENCRYPTION */ /* * Do echo mode handling as soon as we know what the * linemode is going to be. * If the pty has echo turned off, then tell the client that * the server will echo. If echo is on, then the server * will echo if in character mode, but in linemode the * client should do local echoing. The state machine will * not send anything if it is unnecessary, so don't worry * about that here. * * If we need to send the WILL ECHO (because echo is off), * then delay that until after we have changed the MODE. * This way, when the user is turning off both editing * and echo, the client will get editing turned off first. * This keeps the client from going into encryption mode * and then right back out if it is doing auto-encryption * when passwords are being typed. */ if (uselinemode) { if (tty_isecho()) send_wont(TELOPT_ECHO, 1); else need_will_echo = 1; #ifdef KLUDGELINEMODE if (lmodetype == KLUDGE_OK) lmodetype = KLUDGE_LINEMODE; #endif } /* * If linemode is being turned off, send appropriate * command and then we're all done. */ if (!uselinemode && linemode) { # ifdef KLUDGELINEMODE if (lmodetype == REAL_LINEMODE) { # endif /* KLUDGELINEMODE */ send_dont(TELOPT_LINEMODE, 1); # ifdef KLUDGELINEMODE } else if (lmodetype == KLUDGE_LINEMODE) send_will(TELOPT_SGA, 1); # endif /* KLUDGELINEMODE */ send_will(TELOPT_ECHO, 1); linemode = uselinemode; goto done; } # ifdef KLUDGELINEMODE /* * If using real linemode check edit modes for possible later use. * If we are in kludge linemode, do the SGA negotiation. */ if (lmodetype == REAL_LINEMODE) { # endif /* KLUDGELINEMODE */ useeditmode = 0; if (tty_isediting()) useeditmode |= MODE_EDIT; if (tty_istrapsig()) useeditmode |= MODE_TRAPSIG; if (tty_issofttab()) useeditmode |= MODE_SOFT_TAB; if (tty_islitecho()) useeditmode |= MODE_LIT_ECHO; # ifdef KLUDGELINEMODE } else if (lmodetype == KLUDGE_LINEMODE) { if (tty_isediting() && uselinemode) send_wont(TELOPT_SGA, 1); else send_will(TELOPT_SGA, 1); } # endif /* KLUDGELINEMODE */ /* * Negotiate linemode on if pty state has changed to turn it on. * Send appropriate command and send along edit mode, then all done. */ if (uselinemode && !linemode) { # ifdef KLUDGELINEMODE if (lmodetype == KLUDGE_LINEMODE) { send_wont(TELOPT_SGA, 1); } else if (lmodetype == REAL_LINEMODE) { # endif /* KLUDGELINEMODE */ send_do(TELOPT_LINEMODE, 1); /* send along edit modes */ (void) output_data("%c%c%c%c%c%c%c", IAC, SB, TELOPT_LINEMODE, LM_MODE, useeditmode, IAC, SE); editmode = useeditmode; # ifdef KLUDGELINEMODE } # endif /* KLUDGELINEMODE */ linemode = uselinemode; goto done; } # ifdef KLUDGELINEMODE /* * None of what follows is of any value if not using * real linemode. */ if (lmodetype < REAL_LINEMODE) goto done; # endif /* KLUDGELINEMODE */ if (linemode && his_state_is_will(TELOPT_LINEMODE)) { /* * If edit mode changed, send edit mode. */ if (useeditmode != editmode) { /* * Send along appropriate edit mode mask. */ (void) output_data("%c%c%c%c%c%c%c", IAC, SB, TELOPT_LINEMODE, LM_MODE, useeditmode, IAC, SE); editmode = useeditmode; } /* * Check for changes to special characters in use. */ start_slc(0); check_slc(); (void) end_slc(0); } done: if (need_will_echo) send_will(TELOPT_ECHO, 1); /* * Some things should be deferred until after the pty state has * been set by the local process. Do those things that have been * deferred now. This only happens once. */ if (_terminit == 0) { _terminit = 1; defer_terminit(); } netflush(); set_termbuf(); return; } /* end of localstat */ #endif /* LINEMODE */ /* * flowstat * * Check for changes to flow control */ void flowstat(void) { if (his_state_is_will(TELOPT_LFLOW)) { if (tty_flowmode() != flowmode) { flowmode = tty_flowmode(); (void) output_data("%c%c%c%c%c%c", IAC, SB, TELOPT_LFLOW, flowmode ? LFLOW_ON : LFLOW_OFF, IAC, SE); } if (tty_restartany() != restartany) { restartany = tty_restartany(); (void) output_data("%c%c%c%c%c%c", IAC, SB, TELOPT_LFLOW, restartany ? LFLOW_RESTART_ANY : LFLOW_RESTART_XON, IAC, SE); } } } /* * clientstat * * Process linemode related requests from the client. * Client can request a change to only one of linemode, editmode or slc's * at a time, and if using kludge linemode, then only linemode may be * affected. */ void clientstat(int code, int parm1, int parm2) { /* * Get a copy of terminal characteristics. */ init_termbuf(); /* * Process request from client. code tells what it is. */ switch (code) { #ifdef LINEMODE case TELOPT_LINEMODE: /* * Don't do anything unless client is asking us to change * modes. */ uselinemode = (parm1 == WILL); if (uselinemode != linemode) { # ifdef KLUDGELINEMODE /* * If using kludge linemode, make sure that * we can do what the client asks. * We can not turn off linemode if alwayslinemode * and the ICANON bit is set. */ if (lmodetype == KLUDGE_LINEMODE) { if (alwayslinemode && tty_isediting()) { uselinemode = 1; } } /* * Quit now if we can't do it. */ if (uselinemode == linemode) return; /* * If using real linemode and linemode is being * turned on, send along the edit mode mask. */ if (lmodetype == REAL_LINEMODE && uselinemode) # else /* KLUDGELINEMODE */ if (uselinemode) # endif /* KLUDGELINEMODE */ { useeditmode = 0; if (tty_isediting()) useeditmode |= MODE_EDIT; if (tty_istrapsig()) useeditmode |= MODE_TRAPSIG; if (tty_issofttab()) useeditmode |= MODE_SOFT_TAB; if (tty_islitecho()) useeditmode |= MODE_LIT_ECHO; (void) output_data("%c%c%c%c%c%c%c", IAC, SB, TELOPT_LINEMODE, LM_MODE, useeditmode, IAC, SE); editmode = useeditmode; } tty_setlinemode(uselinemode); linemode = uselinemode; if (!linemode) send_will(TELOPT_ECHO, 1); } break; case LM_MODE: { int ack, changed; /* * Client has sent along a mode mask. If it agrees with * what we are currently doing, ignore it; if not, it could * be viewed as a request to change. Note that the server * will change to the modes in an ack if it is different from * what we currently have, but we will not ack the ack. */ useeditmode &= MODE_MASK; ack = (useeditmode & MODE_ACK); useeditmode &= ~MODE_ACK; if ((changed = (useeditmode ^ editmode))) { /* * This check is for a timing problem. If the * state of the tty has changed (due to the user * application) we need to process that info * before we write in the state contained in the * ack!!! This gets out the new MODE request, * and when the ack to that command comes back * we'll set it and be in the right mode. */ if (ack) localstat(); if (changed & MODE_EDIT) tty_setedit(useeditmode & MODE_EDIT); if (changed & MODE_TRAPSIG) tty_setsig(useeditmode & MODE_TRAPSIG); if (changed & MODE_SOFT_TAB) tty_setsofttab(useeditmode & MODE_SOFT_TAB); if (changed & MODE_LIT_ECHO) tty_setlitecho(useeditmode & MODE_LIT_ECHO); set_termbuf(); if (!ack) { (void) output_data("%c%c%c%c%c%c%c", IAC, SB, TELOPT_LINEMODE, LM_MODE, useeditmode|MODE_ACK, IAC, SE); } editmode = useeditmode; } break; } /* end of case LM_MODE */ #endif /* LINEMODE */ case TELOPT_NAWS: { struct winsize ws; def_col = parm1; def_row = parm2; #ifdef LINEMODE /* * Defer changing window size until after terminal is * initialized. */ if (terminit() == 0) return; #endif /* LINEMODE */ /* * Change window size as requested by client. */ ws.ws_col = parm1; ws.ws_row = parm2; (void) ioctl(pty, TIOCSWINSZ, (char *)&ws); } break; case TELOPT_TSPEED: { def_tspeed = parm1; def_rspeed = parm2; #ifdef LINEMODE /* * Defer changing the terminal speed. */ if (terminit() == 0) return; #endif /* LINEMODE */ /* * Change terminal speed as requested by client. * We set the receive speed first, so that if we can't * store separate receive and transmit speeds, the transmit * speed will take precedence. */ tty_rspeed(parm2); tty_tspeed(parm1); set_termbuf(); break; } /* end of case TELOPT_TSPEED */ default: /* What? */ break; } /* end of switch */ netflush(); } /* end of clientstat */ #ifdef LINEMODE /* * defer_terminit * * Some things should not be done until after the login process has started * and all the pty modes are set to what they are supposed to be. This * function is called when the pty state has been processed for the first time. * It calls other functions that do things that were deferred in each module. */ void defer_terminit(void) { /* * local stuff that got deferred. */ if (def_tspeed != -1) { clientstat(TELOPT_TSPEED, def_tspeed, def_rspeed); def_tspeed = def_rspeed = 0; } if (def_col || def_row) { struct winsize ws; memset((char *)&ws, 0, sizeof(ws)); ws.ws_col = def_col; ws.ws_row = def_row; (void) ioctl(pty, TIOCSWINSZ, (char *)&ws); } /* * The only other module that currently defers anything. */ deferslc(); } /* end of defer_terminit */ /* * terminit * * Returns true if the pty state has been processed yet. */ int terminit(void) { return(_terminit); } /* end of terminit */ #endif /* LINEMODE */ src/libexec/telnetd/utility.c010064400011300000175000000573041430224126000165210ustar00srcmastrnetbsd/* $NetBSD: utility.c,v 1.34 2022/08/26 22:01:20 hgutch Exp $ */ /* * Copyright (c) 1989, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint #if 0 static char sccsid[] = "@(#)utility.c 8.4 (Berkeley) 5/30/95"; #else __RCSID("$NetBSD: utility.c,v 1.34 2022/08/26 22:01:20 hgutch Exp $"); #endif #endif /* not lint */ #include #include #define PRINTOPTIONS #include "telnetd.h" char *nextitem(char *, const char *); void putstr(char *); extern int not42; /* * utility functions performing io related tasks */ /* * ttloop * * A small subroutine to flush the network output buffer, get some data * from the network, and pass it through the telnet state machine. We * also flush the pty input buffer (by dropping its data) if it becomes * too full. */ void ttloop(void) { DIAG(TD_REPORT, {output_data("td: ttloop\r\n");}); if (nfrontp - nbackp) { netflush(); } ncc = read(net, netibuf, sizeof netibuf); if (ncc < 0) { syslog(LOG_ERR, "ttloop: read: %m"); exit(1); } else if (ncc == 0) { syslog(LOG_INFO, "ttloop: unexpected EOF from peer"); exit(1); } DIAG(TD_REPORT, {output_data("td: ttloop read %d chars\r\n", ncc);}); netip = netibuf; telrcv(); /* state machine */ if (ncc > 0) { pfrontp = pbackp = ptyobuf; telrcv(); } } /* end of ttloop */ /* * Check a descriptor to see if out of band data exists on it. */ int stilloob(int s /* socket number */) { struct pollfd set[1]; int value; set[0].fd = s; set[0].events = POLLPRI; do { value = poll(set, 1, 0); } while ((value == -1) && (errno == EINTR)); if (value < 0) { fatalperror(pty, "poll"); } if (set[0].revents & POLLPRI) { return 1; } else { return 0; } } void ptyflush(void) { int n; if ((n = pfrontp - pbackp) > 0) { DIAG((TD_REPORT | TD_PTYDATA), { output_data("td: ptyflush %d chars\r\n", n); }); DIAG(TD_PTYDATA, printdata("pd", pbackp, n)); n = write(pty, pbackp, n); } if (n < 0) { if (errno == EWOULDBLOCK || errno == EINTR) return; cleanup(0); } pbackp += n; if (pbackp == pfrontp) pbackp = pfrontp = ptyobuf; } /* * nextitem() * * Return the address of the next "item" in the TELNET data * stream. This will be the address of the next character if * the current address is a user data character, or it will * be the address of the character following the TELNET command * if the current address is a TELNET IAC ("I Am a Command") * character. */ char * nextitem(char *current, const char *endp) { if (current >= endp) { return NULL; } if ((*current&0xff) != IAC) { return current+1; } if (current+1 >= endp) { return NULL; } switch (*(current+1)&0xff) { case DO: case DONT: case WILL: case WONT: return current+3 <= endp ? current+3 : NULL; case SB: /* loop forever looking for the SE */ { char *look = current+2; while (look < endp) { if ((*look++&0xff) == IAC) { if (look < endp && (*look++&0xff) == SE) { return look; } } } return NULL; } default: return current+2 <= endp ? current+2 : NULL; } } /* end of nextitem */ /* * netclear() * * We are about to do a TELNET SYNCH operation. Clear * the path to the network. * * Things are a bit tricky since we may have sent the first * byte or so of a previous TELNET command into the network. * So, we have to scan the network buffer from the beginning * until we are up to where we want to be. * * A side effect of what we do, just to keep things * simple, is to clear the urgent data pointer. The principal * caller should be setting the urgent data pointer AFTER calling * us in any case. */ void netclear(void) { char *thisitem, *next; char *good; #define wewant(p) ((nfrontp > p) && ((*p&0xff) == IAC) && \ (nfrontp > p+1) && ((*(p+1)&0xff) != EC) && ((*(p+1)&0xff) != EL)) #ifdef ENCRYPTION thisitem = nclearto > netobuf ? nclearto : netobuf; #else /* ENCRYPTION */ thisitem = netobuf; #endif /* ENCRYPTION */ while ((next = nextitem(thisitem, nbackp)) != NULL && (next <= nbackp)) { thisitem = next; } /* Now, thisitem is first before/at boundary. */ #ifdef ENCRYPTION good = nclearto > netobuf ? nclearto : netobuf; #else /* ENCRYPTION */ good = netobuf; /* where the good bytes go */ #endif /* ENCRYPTION */ while ((thisitem != NULL) && (nfrontp > thisitem)) { if (wewant(thisitem)) { int length; next = thisitem; do { next = nextitem(next, nfrontp); } while ((next != NULL) && wewant(next) && (nfrontp > next)); if (next == NULL) { next = nfrontp; } length = next-thisitem; memmove(good, thisitem, length); good += length; thisitem = next; } else { thisitem = nextitem(thisitem, nfrontp); } } nbackp = netobuf; nfrontp = good; /* next byte to be sent */ neturg = 0; } /* end of netclear */ /* * netflush * Send as much data as possible to the network, * handling requests for urgent data. */ void netflush(void) { int n; if ((n = nfrontp - nbackp) > 0) { DIAG(TD_REPORT, { output_data("td: netflush %d chars\r\n", n); n = nfrontp - nbackp; /* re-compute count */ }); #ifdef ENCRYPTION if (encrypt_output) { char *s = nclearto ? nclearto : nbackp; if (nfrontp - s > 0) { (*encrypt_output)((unsigned char *)s, nfrontp - s); nclearto = nfrontp; } } #endif /* ENCRYPTION */ /* * if no urgent data, or if the other side appears to be an * old 4.2 client (and thus unable to survive TCP urgent data), * write the entire buffer in non-OOB mode. */ if ((neturg == 0) || (not42 == 0)) { n = write(net, nbackp, n); /* normal write */ } else { n = neturg - nbackp; /* * In 4.2 (and 4.3) systems, there is some question about * what byte in a sendOOB operation is the "OOB" data. * To make ourselves compatible, we only send ONE byte * out of band, the one WE THINK should be OOB (though * we really have more the TCP philosophy of urgent data * rather than the Unix philosophy of OOB data). */ if (n > 1) { n = send(net, nbackp, n-1, 0); /* send URGENT all by itself */ } else { n = send(net, nbackp, n, MSG_OOB); /* URGENT data */ } } } if (n < 0) { if (errno == EWOULDBLOCK || errno == EINTR) return; cleanup(0); } nbackp += n; #ifdef ENCRYPTION if (nbackp > nclearto) nclearto = 0; #endif /* ENCRYPTION */ if (nbackp >= neturg) { neturg = 0; } if (nbackp == nfrontp) { nbackp = nfrontp = netobuf; #ifdef ENCRYPTION nclearto = 0; #endif /* ENCRYPTION */ } return; } /* end of netflush */ /* * writenet * * Just a handy little function to write a bit of raw data to the net. * It will force a transmit of the buffer if necessary * * arguments * ptr - A pointer to a character string to write * len - How many bytes to write */ void writenet(unsigned char *ptr, int len) { /* flush buffer if no room for new data) */ if ((&netobuf[BUFSIZ] - nfrontp) < len) { /* if this fails, don't worry, buffer is a little big */ netflush(); } memmove(nfrontp, ptr, len); nfrontp += len; } /* end of writenet */ /* * miscellaneous functions doing a variety of little jobs follow ... */ void fatal(int f, const char *msg) { char buf[BUFSIZ]; (void)snprintf(buf, sizeof buf, "telnetd: %s.\r\n", msg); #ifdef ENCRYPTION if (encrypt_output) { /* * Better turn off encryption first.... * Hope it flushes... */ encrypt_send_end(); netflush(); } #endif /* ENCRYPTION */ (void)write(f, buf, (int)strlen(buf)); sleep(1); /*XXX*/ exit(1); } void fatalperror(f, msg) int f; const char *msg; { char buf[BUFSIZ]; (void)snprintf(buf, sizeof buf, "%s: %s", msg, strerror(errno)); fatal(f, buf); } char editedhost[MAXHOSTNAMELEN]; void edithost(const char *pat, const char *host) { char *res = editedhost; if (!pat) pat = ""; while (*pat) { switch (*pat) { case '#': if (*host) host++; break; case '@': if (*host) *res++ = *host++; break; default: *res++ = *pat; break; } if (res == &editedhost[sizeof editedhost - 1]) { *res = '\0'; return; } pat++; } if (*host) (void) strncpy(res, host, sizeof editedhost - (res - editedhost) -1); else *res = '\0'; editedhost[sizeof editedhost - 1] = '\0'; } static char *putlocation; void putstr(char *s) { while (*s) putchr(*s++); } void putchr(int cc) { *putlocation++ = cc; } /* * This is split on two lines so that SCCS will not see the M * between two % signs and expand it... */ static const char fmtstr[] = { "%l:%M\ %p on %A, %d %B %Y" }; char * putf(const char *cp, char *where) { char *slash; time_t t; char db[100]; struct utsname utsinfo; uname(&utsinfo); putlocation = where; while (*cp) { if (*cp != '%') { putchr(*cp++); continue; } switch (*++cp) { case 't': if ((slash = strstr(line, "/pts/")) == NULL) slash = strrchr(line, '/'); if (slash == (char *) 0) putstr(line); else putstr(&slash[1]); break; case 'h': putstr(editedhost); break; case 'd': (void)time(&t); (void)strftime(db, sizeof(db), fmtstr, localtime(&t)); putstr(db); break; case '%': putchr('%'); break; case 's': putstr(utsinfo.sysname); break; case 'm': putstr(utsinfo.machine); break; case 'r': putstr(utsinfo.release); break; case 'v': putstr(utsinfo.version); break; } cp++; } return (putlocation); } #ifdef DIAGNOSTICS /* * Print telnet options and commands in plain text, if possible. */ void printoption(const char *fmt, int option) { if (TELOPT_OK(option)) output_data("%s %s\r\n", fmt, TELOPT(option)); else if (TELCMD_OK(option)) output_data("%s %s\r\n", fmt, TELCMD(option)); else output_data("%s %d\r\n", fmt, option); return; } void printsub( int direction, /* '<' or '>' */ unsigned char *pointer, /* where suboption data sits */ int length) /* length of suboption data */ { int i = 0; #if defined(AUTHENTICATION) || defined(ENCRYPTION) u_char buf[512]; #endif if (!(diagnostic & TD_OPTIONS)) return; if (direction) { output_data("td: %s suboption ", direction == '<' ? "recv" : "send"); if (length >= 3) { int j; i = pointer[length - 2]; j = pointer[length - 1]; if (i != IAC || j != SE) { output_data("(terminated by "); if (TELOPT_OK(i)) output_data("%s ", TELOPT(i)); else if (TELCMD_OK(i)) output_data("%s ", TELCMD(i)); else output_data("%d ", i); if (TELOPT_OK(j)) output_data("%s", TELOPT(j)); else if (TELCMD_OK(j)) output_data("%s", TELCMD(j)); else output_data("%d", j); output_data(", not IAC SE!) "); } } length -= 2; } if (length < 1) { output_data("(Empty suboption??\?)"); return; } switch (pointer[0]) { case TELOPT_TTYPE: output_data("TERMINAL-TYPE "); switch (pointer[1]) { case TELQUAL_IS: output_data("IS \"%.*s\"", length-2, (char *)pointer+2); break; case TELQUAL_SEND: output_data("SEND"); break; default: output_data("- unknown qualifier %d (0x%x).", pointer[1], pointer[1]); } break; case TELOPT_TSPEED: output_data("TERMINAL-SPEED"); if (length < 2) { output_data(" (empty suboption??\?)"); break; } switch (pointer[1]) { case TELQUAL_IS: output_data(" IS %.*s", length-2, (char *)pointer+2); break; default: if (pointer[1] == 1) output_data(" SEND"); else output_data(" %d (unknown)", pointer[1]); for (i = 2; i < length; i++) { output_data(" ?%d?", pointer[i]); } break; } break; case TELOPT_LFLOW: output_data("TOGGLE-FLOW-CONTROL"); if (length < 2) { output_data(" (empty suboption??\?)"); break; } switch (pointer[1]) { case LFLOW_OFF: output_data(" OFF"); break; case LFLOW_ON: output_data(" ON"); break; case LFLOW_RESTART_ANY: output_data(" RESTART-ANY"); break; case LFLOW_RESTART_XON: output_data(" RESTART-XON"); break; default: output_data(" %d (unknown)", pointer[1]); } for (i = 2; i < length; i++) output_data(" ?%d?", pointer[i]); break; case TELOPT_NAWS: output_data("NAWS"); if (length < 2) { output_data(" (empty suboption??\?)"); break; } if (length == 2) { output_data(" ?%d?", pointer[1]); break; } output_data(" %d %d (%d)", pointer[1], pointer[2], (int)((((unsigned int)pointer[1])<<8)|((unsigned int)pointer[2]))); if (length == 4) { output_data(" ?%d?", pointer[3]); break; } output_data(" %d %d (%d)", pointer[3], pointer[4], (int)((((unsigned int)pointer[3])<<8)|((unsigned int)pointer[4]))); for (i = 5; i < length; i++) { output_data(" ?%d?", pointer[i]); } break; case TELOPT_LINEMODE: output_data("LINEMODE "); if (length < 2) { output_data(" (empty suboption??\?)"); break; } switch (pointer[1]) { case WILL: output_data("WILL "); goto common; case WONT: output_data("WONT "); goto common; case DO: output_data("DO "); goto common; case DONT: output_data("DONT "); common: if (length < 3) { output_data("(no option??\?)"); break; } switch (pointer[2]) { case LM_FORWARDMASK: output_data("Forward Mask"); for (i = 3; i < length; i++) output_data(" %x", pointer[i]); break; default: output_data("%d (unknown)", pointer[2]); for (i = 3; i < length; i++) output_data(" %d", pointer[i]); break; } break; case LM_SLC: output_data("SLC"); for (i = 2; i < length - 2; i += 3) { if (SLC_NAME_OK(pointer[i+SLC_FUNC])) output_data(" %s", SLC_NAME(pointer[i+SLC_FUNC])); else output_data(" %d", pointer[i+SLC_FUNC]); switch (pointer[i+SLC_FLAGS]&SLC_LEVELBITS) { case SLC_NOSUPPORT: output_data(" NOSUPPORT"); break; case SLC_CANTCHANGE: output_data(" CANTCHANGE"); break; case SLC_VARIABLE: output_data(" VARIABLE"); break; case SLC_DEFAULT: output_data(" DEFAULT"); break; } output_data("%s%s%s", pointer[i+SLC_FLAGS]&SLC_ACK ? "|ACK" : "", pointer[i+SLC_FLAGS]&SLC_FLUSHIN ? "|FLUSHIN" : "", pointer[i+SLC_FLAGS]&SLC_FLUSHOUT ? "|FLUSHOUT" : ""); if (pointer[i+SLC_FLAGS]& ~(SLC_ACK|SLC_FLUSHIN| SLC_FLUSHOUT| SLC_LEVELBITS)) { output_data("(0x%x)", pointer[i+SLC_FLAGS]); } output_data(" %d;", pointer[i+SLC_VALUE]); if ((pointer[i+SLC_VALUE] == IAC) && (pointer[i+SLC_VALUE+1] == IAC)) i++; } for (; i < length; i++) output_data(" ?%d?", pointer[i]); break; case LM_MODE: output_data("MODE "); if (length < 3) { output_data("(no mode??\?)"); break; } { char tbuf[40]; (void)snprintf(tbuf, sizeof tbuf, "%s%s%s%s%s", pointer[2]&MODE_EDIT ? "|EDIT" : "", pointer[2]&MODE_TRAPSIG ? "|TRAPSIG" : "", pointer[2]&MODE_SOFT_TAB ? "|SOFT_TAB" : "", pointer[2]&MODE_LIT_ECHO ? "|LIT_ECHO" : "", pointer[2]&MODE_ACK ? "|ACK" : ""); output_data("%s", tbuf[1] ? &tbuf[1] : "0"); } if (pointer[2]&~(MODE_EDIT|MODE_TRAPSIG|MODE_ACK)) output_data(" (0x%x)", pointer[2]); for (i = 3; i < length; i++) output_data(" ?0x%x?", pointer[i]); break; default: output_data("%d (unknown)", pointer[1]); for (i = 2; i < length; i++) output_data(" %d", pointer[i]); } break; case TELOPT_STATUS: { const char *cp; int j, k; output_data("STATUS"); switch (pointer[1]) { default: if (pointer[1] == TELQUAL_SEND) output_data(" SEND"); else output_data(" %d (unknown)", pointer[1]); for (i = 2; i < length; i++) output_data(" ?%d?", pointer[i]); break; case TELQUAL_IS: output_data(" IS\r\n"); for (i = 2; i < length; i++) { switch(pointer[i]) { case DO: cp = "DO"; goto common2; case DONT: cp = "DONT"; goto common2; case WILL: cp = "WILL"; goto common2; case WONT: cp = "WONT"; goto common2; common2: i++; if (TELOPT_OK(pointer[i])) output_data(" %s %s", cp, TELOPT(pointer[i])); else output_data(" %s %d", cp, pointer[i]); output_data("\r\n"); break; case SB: output_data(" SB "); i++; j = k = i; while (j < length) { if (pointer[j] == SE) { if (j+1 == length) break; if (pointer[j+1] == SE) j++; else break; } pointer[k++] = pointer[j++]; } printsub(0, &pointer[i], k - i); if (i < length) { output_data(" SE"); i = j; } else i = j - 1; output_data("\r\n"); break; default: output_data(" %d", pointer[i]); break; } } break; } break; } case TELOPT_XDISPLOC: output_data("X-DISPLAY-LOCATION "); switch (pointer[1]) { case TELQUAL_IS: output_data("IS \"%.*s\"", length - 2, (char *)pointer + 2); break; case TELQUAL_SEND: output_data("SEND"); break; default: output_data("- unknown qualifier %d (0x%x).", pointer[1], pointer[1]); } break; case TELOPT_NEW_ENVIRON: output_data("NEW-ENVIRON "); goto env_common1; case TELOPT_OLD_ENVIRON: output_data("OLD-ENVIRON"); env_common1: switch (pointer[1]) { case TELQUAL_IS: output_data("IS "); goto env_common; case TELQUAL_SEND: output_data("SEND "); goto env_common; case TELQUAL_INFO: output_data("INFO "); env_common: { static const char NQ[] = "\" "; const char *noquote = NQ; for (i = 2; i < length; i++ ) { switch (pointer[i]) { case NEW_ENV_VAR: output_data("%sVAR ", noquote); noquote = NQ; break; case NEW_ENV_VALUE: output_data("%sVALUE ", noquote); noquote = NQ; break; case ENV_ESC: output_data("%sESC ", noquote); noquote = NQ; break; case ENV_USERVAR: output_data("%sUSERVAR ", noquote); noquote = NQ; break; default: if (isprint(pointer[i]) && pointer[i] != '"') { if (*noquote) { output_data("\""); noquote = ""; } output_data("%c", pointer[i]); } else { output_data("%s%03o ", noquote, pointer[i]); noquote = NQ; } break; } } if (!noquote) output_data("\""); break; } } break; #ifdef AUTHENTICATION case TELOPT_AUTHENTICATION: output_data("AUTHENTICATION"); if (length < 2) { output_data(" (empty suboption??\?)"); break; } switch (pointer[1]) { case TELQUAL_REPLY: case TELQUAL_IS: output_data(" %s ", (pointer[1] == TELQUAL_IS) ? "IS" : "REPLY"); if (AUTHTYPE_NAME_OK(pointer[2])) output_data("%s ", AUTHTYPE_NAME(pointer[2])); else output_data("%d ", pointer[2]); if (length < 3) { output_data("(partial suboption??\?)"); break; } output_data("%s|%s", ((pointer[3] & AUTH_WHO_MASK) == AUTH_WHO_CLIENT) ? "CLIENT" : "SERVER", ((pointer[3] & AUTH_HOW_MASK) == AUTH_HOW_MUTUAL) ? "MUTUAL" : "ONE-WAY"); auth_printsub(&pointer[1], length - 1, buf, sizeof(buf)); output_data("%s", buf); break; case TELQUAL_SEND: i = 2; output_data(" SEND "); while (i < length) { if (AUTHTYPE_NAME_OK(pointer[i])) output_data("%s ", AUTHTYPE_NAME(pointer[i])); else output_data("%d ", pointer[i]); if (++i >= length) { output_data("(partial suboption??\?)"); break; } output_data("%s|%s ", ((pointer[i] & AUTH_WHO_MASK) == AUTH_WHO_CLIENT) ? "CLIENT" : "SERVER", ((pointer[i] & AUTH_HOW_MASK) == AUTH_HOW_MUTUAL) ? "MUTUAL" : "ONE-WAY"); ++i; } break; case TELQUAL_NAME: i = 2; output_data(" NAME \""); while (i < length) { if (isprint(pointer[i])) output_data("%c", pointer[i++]); else output_data("\"%03o\"",pointer[i++]); } output_data("\""); break; default: for (i = 2; i < length; i++) output_data(" ?%d?", pointer[i]); break; } break; #endif #ifdef ENCRYPTION case TELOPT_ENCRYPT: output_data("ENCRYPT"); if (length < 2) { output_data(" (empty suboption??\?)"); break; } switch (pointer[1]) { case ENCRYPT_START: output_data(" START"); break; case ENCRYPT_END: output_data(" END"); break; case ENCRYPT_REQSTART: output_data(" REQUEST-START"); break; case ENCRYPT_REQEND: output_data(" REQUEST-END"); break; case ENCRYPT_IS: case ENCRYPT_REPLY: output_data(" %s ", (pointer[1] == ENCRYPT_IS) ? "IS" : "REPLY"); if (length < 3) { output_data(" (partial suboption??\?)"); break; } if (ENCTYPE_NAME_OK(pointer[2])) output_data("%s ", ENCTYPE_NAME(pointer[2])); else output_data(" %d (unknown)", pointer[2]); encrypt_printsub(&pointer[1], length - 1, buf, sizeof(buf)); output_data("%s", buf); break; case ENCRYPT_SUPPORT: i = 2; output_data(" SUPPORT "); while (i < length) { if (ENCTYPE_NAME_OK(pointer[i])) output_data("%s ", ENCTYPE_NAME(pointer[i])); else output_data("%d ", pointer[i]); i++; } break; case ENCRYPT_ENC_KEYID: output_data(" ENC_KEYID"); goto encommon; case ENCRYPT_DEC_KEYID: output_data(" DEC_KEYID"); goto encommon; default: output_data(" %d (unknown)", pointer[1]); encommon: for (i = 2; i < length; i++) output_data(" %d", pointer[i]); break; } break; #endif /* ENCRYPTION */ default: if (TELOPT_OK(pointer[0])) output_data("%s (unknown)", TELOPT(pointer[0])); else output_data("%d (unknown)", pointer[i]); for (i = 1; i < length; i++) output_data(" %d", pointer[i]); break; } output_data("\r\n"); } /* * Dump a data buffer in hex and ascii to the output data stream. */ void printdata(const char *tag, char *ptr, int cnt) { int i; char xbuf[30]; while (cnt) { /* flush net output buffer if no room for new data) */ if ((&netobuf[BUFSIZ] - nfrontp) < 80) { netflush(); } /* add a line of output */ output_data("%s: ", tag); for (i = 0; i < 20 && cnt; i++) { output_data("%02x", *ptr); if (isprint((unsigned char)*ptr)) { xbuf[i] = *ptr; } else { xbuf[i] = '.'; } if (i % 2) output_data(" "); cnt--; ptr++; } xbuf[i] = '\0'; output_data(" %s\r\n", xbuf); } } #endif /* DIAGNOSTICS */ src/libexec/tftpd004075500011300000175000000000001504273241000142535ustar00srcmastrnetbsdsrc/libexec/tftpd/CVS004075500011300000175000000000001504273241000147065ustar00srcmastrnetbsdsrc/libexec/tftpd/CVS/Root010064400011300000175000000000441504273241000156260ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/tftpd/CVS/Repository010064400011300000175000000000221504273241000170560ustar00srcmastrnetbsdsrc/libexec/tftpd src/libexec/tftpd/CVS/Entries010064400011300000175000000002341504273241000163150ustar00srcmastrnetbsd/Makefile/1.14/Thu Oct 13 17:23:29 2011//Tnetbsd-11 /tftpd.8/1.31/Wed Jan 9 17:19:08 2019//Tnetbsd-11 /tftpd.c/1.45/Wed Jul 20 20:18:21 2016//Tnetbsd-11 D src/libexec/tftpd/CVS/Tag010064400011300000175000000000131522207752300154210ustar00srcmastrnetbsdTnetbsd-11 src/libexec/tftpd/Makefile010064400011300000175000000004411164561722100157750ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.14 2011/10/13 17:23:29 plunky Exp $ # from: @(#)Makefile 8.1 (Berkeley) 6/4/93 WARNS?= 4 .include PROG= tftpd SRCS= tftpd.c tftpsubs.c MAN= tftpd.8 CPPFLAGS+=-I${NETBSDSRCDIR}/usr.bin/tftp .PATH: ${NETBSDSRCDIR}/usr.bin/tftp .include src/libexec/tftpd/tftpd.8010064400011300000175000000150251341542641400155520ustar00srcmastrnetbsd.\" $NetBSD: tftpd.8,v 1.31 2019/01/09 17:19:08 uwe Exp $ .\" .\" Copyright (c) 1983, 1991, 1993 .\" The Regents of the University of California. All rights reserved. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" 3. Neither the name of the University nor the names of its contributors .\" may be used to endorse or promote products derived from this software .\" without specific prior written permission. .\" .\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND .\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE .\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE .\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE .\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL .\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS .\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) .\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT .\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY .\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF .\" SUCH DAMAGE. .\" .\" from: @(#)tftpd.8 8.1 (Berkeley) 6/4/93 .\" .Dd May 5, 2015 .Dt TFTPD 8 .Os .Sh NAME .Nm tftpd .Nd .Tn DARPA Internet Trivial File Transfer Protocol server .Sh SYNOPSIS .Nm .Op Fl bcdln .Op Fl g Ar group .Op Fl p Ar pathsep .Op Fl s Ar directory .Op Fl u Ar user .Op Ar directory ... .Sh DESCRIPTION .Nm is a server which supports the .Tn DARPA Trivial File Transfer Protocol. The .Tn TFTP server operates at the port indicated in the .Ql tftp service description; see .Xr services 5 . The server is normally started by .Xr inetd 8 . .Pp The use of .Xr tftp 1 does not require an account or password on the remote system. Due to the lack of authentication information, .Nm will allow only publicly readable files to be accessed. Filenames beginning in .Dq Pa ../ or containing .Dq Pa /../ are not allowed. Unless .Fl c is used, files may be written to only if they already exist and are publicly writable. .Pp Note that this extends the concept of .Qq public to include all users on all hosts that can be reached through the network; this may not be appropriate on all systems, and its implications should be considered before enabling tftp service. The server should have the user ID with the lowest possible privilege. .Pp Access to files may be restricted by invoking .Nm with a list of directories by including up to 20 pathnames as server program arguments in .Pa /etc/inetd.conf . In this case access is restricted to files whose names are prefixed by the one of the given directories. The given directories are also treated as a search path for relative filename requests. .Pp The options are: .Bl -tag -width "XsXdirectoryX" .It Fl b Allow clients which return acknowledgements to the broadcast address to communicate with the tftp server. Some tftp clients, notably ones resident in the ROMs of older Cisco equipment, return their acknowledgements to the broadcast address rather than the server's unicast address. .It Fl c Allow unrestricted creation of new files. Without this flag, only existing publicly writable files can be overwritten. .It Fl d Enable verbose debugging messages to .Xr syslogd 8 . .It Fl g Ar group Change gid to that of .Ar group on startup. If this isn't specified, the gid is set to that of the .Ar user specified with .Fl u . .It Fl l Logs all requests using .Xr syslog 3 . .It Fl n Suppresses negative acknowledgement of requests for nonexistent relative filenames. .It Fl p Ar pathsep All occurrences of the single character .Ar pathsep (path separator) in the requested filename are replaced with .Sq / . .It Fl s Ar directory .Nm will .Xr chroot 2 to .Ar directory on startup. This is recommended for security reasons (so that files other than those in the .Pa /tftpboot directory aren't accessible). If the remote host passes the directory name as part of the file name to transfer, you may have to create a symbolic link from .Sq tftpboot to .Sq \&. under .Pa /tftpboot . .It Fl u Ar user Change uid to that of .Ar user on startup. If .Fl u isn't given, .Ar user defaults to .Dq nobody . If .Fl g isn't also given, change the gid to that of .Ar user as well. .El .Sh SEE ALSO .Xr tftp 1 , .Xr inetd 8 .Rs .%R RFC .%N 1350 .%D July 1992 .%T "The TFTP Protocol (Revision 2)" .Re .Rs .%R RFC .%N 2347 .%D May 1998 .%T "TFTP Option Extension" .Re .Rs .%R RFC .%N 2348 .%D May 1998 .%T "TFTP Blocksize Option" .Re .Rs .%R RFC .%N 2349 .%D May 1998 .%T "TFTP Timeout Interval and Transfer Size Options" .Re .Sh HISTORY The .Nm command appeared in .Bx 4.2 . .Pp The .Fl s flag appeared in .Nx 1.0 . .Pp The .Fl g and .Fl u flags appeared in .Nx 1.4 . .Pp IPv6 support was implemented by WIDE/KAME project in 1999. .Pp TFTP options were implemented by Wasabi Systems, Inc., in 2003, and first appeared in .Nx 2.0 . .Sh BUGS Files larger than 33,553,919 octets (65535 blocks, last one less than 512 octets) cannot be correctly transferred without client and server supporting blocksize negotiation (RFCs 2347 and 2348). As a kludge, .Nm accepts a sequence of block numbers which wrap to zero after 65535. .Pp Many tftp clients will not transfer files over 16,776,703 octets (32767 blocks), as they incorrectly count the block number using a signed rather than unsigned 16-bit integer. .Sh SECURITY CONSIDERATIONS You are .Em strongly advised to set up .Nm using the .Fl s flag in conjunction with the name of the directory that contains the files that .Nm will serve to remote hosts (e.g., .Pa /tftpboot ) . This ensures that only the files that should be served to remote hosts can be accessed by them. .Pp Because there is no user-login or validation within the .Tn TFTP protocol, the remote site will probably have some sort of file-access restrictions in place. The exact methods are specific to each site and therefore difficult to document here. .Pp If unrestricted file upload is enabled via the .Fl c option, care should be taken that this can be used to fill up disk space in an uncontrolled manner if this is used in an insecure environment. src/libexec/tftpd/tftpd.c010064400011300000175000000727201274375621500156420ustar00srcmastrnetbsd/* $NetBSD: tftpd.c,v 1.45 2016/07/20 20:18:21 shm Exp $ */ /* * Copyright (c) 1983, 1993 * The Regents of the University of California. All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #include #ifndef lint __COPYRIGHT("@(#) Copyright (c) 1983, 1993\ The Regents of the University of California. All rights reserved."); #if 0 static char sccsid[] = "@(#)tftpd.c 8.1 (Berkeley) 6/4/93"; #else __RCSID("$NetBSD: tftpd.c,v 1.45 2016/07/20 20:18:21 shm Exp $"); #endif #endif /* not lint */ /* * Trivial file transfer protocol server. * * This version includes many modifications by Jim Guyton * . */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "tftpsubs.h" #define DEFAULTUSER "nobody" #define TIMEOUT 5 static int peer; static int rexmtval = TIMEOUT; static int maxtimeout = 5*TIMEOUT; static char buf[MAXPKTSIZE]; static char ackbuf[PKTSIZE]; static char oackbuf[PKTSIZE]; static struct sockaddr_storage from; static socklen_t fromlen; static int debug; static int tftp_opt_tsize = 0; static int tftp_blksize = SEGSIZE; static int tftp_tsize = 0; /* * Null-terminated directory prefix list for absolute pathname requests and * search list for relative pathname requests. * * MAXDIRS should be at least as large as the number of arguments that * inetd allows (currently 20). */ #define MAXDIRS 20 static struct dirlist { char *name; int len; } dirs[MAXDIRS+1]; static int suppress_naks; static int logging; static int secure; static char pathsep = '\0'; static char *securedir; static int unrestricted_writes; /* uploaded files don't have to exist */ static int broadcast_client = 0; /* Some clients ack to the broadcast address */ struct formats; static const char *errtomsg(int); static void nak(int); __dead static void tftp(struct tftphdr *, int); __dead static void usage(void); static char *verifyhost(struct sockaddr *); __dead static void justquit(int); static void recvfile(struct formats *, int, int); static void sendfile(struct formats *, int, int); __dead static void timer(int); static const char *opcode(int); static int validate_access(char **, int); static struct formats { const char *f_mode; int (*f_validate)(char **, int); void (*f_send)(struct formats *, int, int); void (*f_recv)(struct formats *, int, int); int f_convert; } formats[] = { { "netascii", validate_access, sendfile, recvfile, 1 }, { "octet", validate_access, sendfile, recvfile, 0 }, { .f_mode = NULL } }; static void usage(void) { syslog(LOG_ERR, "Usage: %s [-bcdln] [-g group] [-p pathsep] [-s directory] [-u user] [directory ...]", getprogname()); exit(1); } int main(int argc, char *argv[]) { struct sockaddr_storage me; struct passwd *pwent; struct group *grent; struct tftphdr *tp; const char *tgtuser, *tgtgroup; char *ep; int n, ch, on, fd; int soopt; socklen_t len; uid_t curuid, tgtuid; gid_t curgid, tgtgid; long nid; n = 0; fd = 0; tzset(); openlog("tftpd", LOG_PID | LOG_NDELAY, LOG_DAEMON); tgtuser = DEFAULTUSER; tgtgroup = NULL; curuid = getuid(); curgid = getgid(); while ((ch = getopt(argc, argv, "bcdg:lnp:s:u:")) != -1) switch (ch) { case 'b': /* * Some clients, notably older Cisco boot loaders, * send their acknowledgements to the broadcast address * rather than the unicast address of the server. * Allow those clients to inter-operate with us. * It's worth noting that this interaction doesn't cause the * server to change where it sends the responses, meaning * servers that have this flag enabled are no more * susceptible to magnifcation DOS attacks than those * servers that don't use this flag. This flag merely * permits the reception of acknowledgement traffic to the * broadcast address/specific port number that's being used for * this session as well as the unicast address/specific port * number for this session. For example, if the session is * expecting acks on 192.168.1.40:50201, then this flag * would also allow acks to be returned to * 192.168.1.255:50201, assuming that 192.168.1.255 is the * broadcast address for the subnet containing 192.168.1.40. */ broadcast_client = 1; break; case 'c': unrestricted_writes = 1; break; case 'd': debug++; break; case 'g': tgtgroup = optarg; break; case 'l': logging = 1; break; case 'n': suppress_naks = 1; break; case 'p': if (optarg[0] == '\0' || optarg[1] != '\0') usage(); pathsep = optarg[0]; break; case 's': secure = 1; securedir = optarg; break; case 'u': tgtuser = optarg; break; default: usage(); break; } if (optind < argc) { struct dirlist *dirp; /* Get list of directory prefixes. Skip relative pathnames. */ for (dirp = dirs; optind < argc && dirp < &dirs[MAXDIRS]; optind++) { if (argv[optind][0] == '/') { dirp->name = argv[optind]; dirp->len = strlen(dirp->name); dirp++; } } } if (*tgtuser == '\0' || (tgtgroup != NULL && *tgtgroup == '\0')) usage(); nid = (strtol(tgtuser, &ep, 10)); if (*ep == '\0') { if ((uid_t)nid > UID_MAX) { syslog(LOG_ERR, "uid %ld is too large", nid); exit(1); } pwent = getpwuid((uid_t)nid); } else pwent = getpwnam(tgtuser); if (pwent == NULL) { syslog(LOG_ERR, "unknown user `%s'", tgtuser); exit(1); } tgtuid = pwent->pw_uid; tgtgid = pwent->pw_gid; if (tgtgroup != NULL) { nid = (strtol(tgtgroup, &ep, 10)); if (*ep == '\0') { if ((uid_t)nid > GID_MAX) { syslog(LOG_ERR, "gid %ld is too large", nid); exit(1); } grent = getgrgid((gid_t)nid); } else grent = getgrnam(tgtgroup); if (grent != NULL) tgtgid = grent->gr_gid; else { syslog(LOG_ERR, "unknown group `%s'", tgtgroup); exit(1); } } if (secure) { if (chdir(securedir) < 0) { syslog(LOG_ERR, "chdir %s: %m", securedir); exit(1); } if (chroot(".")) { syslog(LOG_ERR, "chroot: %m"); exit(1); } } if (logging) syslog(LOG_DEBUG, "running as user `%s' (%d), group `%s' (%d)", tgtuser, tgtuid, tgtgroup ? tgtgroup : "(unspecified)", tgtgid); if (curgid != tgtgid) { if (setgid(tgtgid)) { syslog(LOG_ERR, "setgid to %d: %m", (int)tgtgid); exit(1); } if (setgroups(0, NULL)) { syslog(LOG_ERR, "setgroups: %m"); exit(1); } } if (curuid != tgtuid) { if (setuid(tgtuid)) { syslog(LOG_ERR, "setuid to %d: %m", (int)tgtuid); exit(1); } } on = 1; if (ioctl(fd, FIONBIO, &on) < 0) { syslog(LOG_ERR, "ioctl(FIONBIO): %m"); exit(1); } fromlen = sizeof (from); n = recvfrom(fd, buf, sizeof (buf), 0, (struct sockaddr *)&from, &fromlen); if (n < 0) { syslog(LOG_ERR, "recvfrom: %m"); exit(1); } /* * Now that we have read the message out of the UDP * socket, we fork and exit. Thus, inetd will go back * to listening to the tftp port, and the next request * to come in will start up a new instance of tftpd. * * We do this so that inetd can run tftpd in "wait" mode. * The problem with tftpd running in "nowait" mode is that * inetd may get one or more successful "selects" on the * tftp port before we do our receive, so more than one * instance of tftpd may be started up. Worse, if tftpd * break before doing the above "recvfrom", inetd would * spawn endless instances, clogging the system. */ { int pid; int i; socklen_t j; for (i = 1; i < 20; i++) { pid = fork(); if (pid < 0) { sleep(i); /* * flush out to most recently sent request. * * This may drop some request, but those * will be resent by the clients when * they timeout. The positive effect of * this flush is to (try to) prevent more * than one tftpd being started up to service * a single request from a single client. */ j = sizeof from; i = recvfrom(fd, buf, sizeof (buf), 0, (struct sockaddr *)&from, &j); if (i > 0) { n = i; fromlen = j; } } else { break; } } if (pid < 0) { syslog(LOG_ERR, "fork: %m"); exit(1); } else if (pid != 0) { exit(0); } } /* * remember what address this was sent to, so we can respond on the * same interface */ len = sizeof(me); if (getsockname(fd, (struct sockaddr *)&me, &len) == 0) { switch (me.ss_family) { case AF_INET: ((struct sockaddr_in *)&me)->sin_port = 0; break; case AF_INET6: ((struct sockaddr_in6 *)&me)->sin6_port = 0; break; default: /* unsupported */ break; } } else { memset(&me, 0, sizeof(me)); me.ss_family = from.ss_family; me.ss_len = from.ss_len; } alarm(0); close(fd); close(1); peer = socket(from.ss_family, SOCK_DGRAM, 0); if (peer < 0) { syslog(LOG_ERR, "socket: %m"); exit(1); } if (broadcast_client) { soopt = 1; if (setsockopt(peer, SOL_SOCKET, SO_BROADCAST, (void *) &soopt, sizeof(soopt)) < 0) { syslog(LOG_ERR, "set SO_BROADCAST: %m"); exit(1); } } if (bind(peer, (struct sockaddr *)&me, me.ss_len) < 0) { syslog(LOG_ERR, "bind: %m"); exit(1); } soopt = 65536; /* larger than we'll ever need */ if (setsockopt(peer, SOL_SOCKET, SO_SNDBUF, (void *) &soopt, sizeof(soopt)) < 0) { syslog(LOG_ERR, "set SNDBUF: %m"); exit(1); } if (setsockopt(peer, SOL_SOCKET, SO_RCVBUF, (void *) &soopt, sizeof(soopt)) < 0) { syslog(LOG_ERR, "set RCVBUF: %m"); exit(1); } tp = (struct tftphdr *)buf; tp->th_opcode = ntohs(tp->th_opcode); if (tp->th_opcode == RRQ || tp->th_opcode == WRQ) tftp(tp, n); exit(1); } static int blk_handler(struct tftphdr *tp, const char *val, char *ack, size_t asize, size_t *ackl, int *ecode) { unsigned long bsize; char *endp; int l; /* * On these failures, we could just ignore the blocksize option. * Perhaps that should be a command-line option. */ errno = 0; bsize = strtoul(val, &endp, 10); if ((bsize == ULONG_MAX && errno == ERANGE) || *endp) { syslog(LOG_NOTICE, "%s: %s request for %s: " "illegal value %s for blksize option", verifyhost((struct sockaddr *)&from), tp->th_opcode == WRQ ? "write" : "read", tp->th_stuff, val); *ecode = EBADOP; return -1; } if (bsize < 8 || bsize > 65464) { syslog(LOG_NOTICE, "%s: %s request for %s: " "out of range value %s for blksize option", verifyhost((struct sockaddr *)&from), tp->th_opcode == WRQ ? "write" : "read", tp->th_stuff, val); *ecode = EBADOP; return -1; } tftp_blksize = bsize; if (asize > *ackl && (l = snprintf(ack + *ackl, asize - *ackl, "blksize%c%lu%c", 0, bsize, 0)) > 0) { *ackl += l; } else { *ecode = EBADOP; return -1; } return 0; } static int timeout_handler(struct tftphdr *tp, const char *val, char *ack, size_t asize, size_t *ackl, int *ecode) { unsigned long tout; char *endp; int l; errno = 0; tout = strtoul(val, &endp, 10); if ((tout == ULONG_MAX && errno == ERANGE) || *endp) { syslog(LOG_NOTICE, "%s: %s request for %s: " "illegal value %s for timeout option", verifyhost((struct sockaddr *)&from), tp->th_opcode == WRQ ? "write" : "read", tp->th_stuff, val); *ecode = EBADOP; return -1; } if (tout < 1 || tout > 255) { syslog(LOG_NOTICE, "%s: %s request for %s: " "out of range value %s for timeout option", verifyhost((struct sockaddr *)&from), tp->th_opcode == WRQ ? "write" : "read", tp->th_stuff, val); return 0; } rexmtval = tout; if (asize > *ackl && (l = snprintf(ack + *ackl, asize - *ackl, "timeout%c%lu%c", 0, tout, 0)) > 0) *ackl += l; else return -1; /* * Arbitrarily pick a maximum timeout on a request to 3 * retransmissions if the interval timeout is more than * one minute. Longest possible timeout is therefore * 3 * 255 - 1, or 764 seconds. */ if (rexmtval > 60) { maxtimeout = rexmtval * 3; } else { maxtimeout = rexmtval * 5; } return 0; } static int tsize_handler(struct tftphdr *tp, const char *val, char *ack, size_t asize, size_t *ackl, int *ecode) { unsigned long fsize; char *endp; /* * Maximum file even with extended tftp is 65535 blocks of * length 65464, or 4290183240 octets (4784056 less than 2^32). * unsigned long is at least 32 bits on all NetBSD archs. */ errno = 0; fsize = strtoul(val, &endp, 10); if ((fsize == ULONG_MAX && errno == ERANGE) || *endp) { syslog(LOG_NOTICE, "%s: %s request for %s: " "illegal value %s for tsize option", verifyhost((struct sockaddr *)&from), tp->th_opcode == WRQ ? "write" : "read", tp->th_stuff, val); *ecode = EBADOP; return -1; } if (fsize > (unsigned long) 65535 * 65464) { syslog(LOG_NOTICE, "%s: %s request for %s: " "out of range value %s for tsize option", verifyhost((struct sockaddr *)&from), tp->th_opcode == WRQ ? "write" : "read", tp->th_stuff, val); *ecode = EBADOP; return -1; } tftp_opt_tsize = 1; tftp_tsize = fsize; /* * We will report this later -- either replying with the fsize (WRQ) * or replying with the actual filesize (RRQ). */ return 0; } static const struct tftp_options { const char *o_name; int (*o_handler)(struct tftphdr *, const char *, char *, size_t, size_t *, int *); } options[] = { { "blksize", blk_handler }, { "timeout", timeout_handler }, { "tsize", tsize_handler }, { .o_name = NULL } }; /* * Get options for an extended tftp session. Stuff the ones we * recognize in oackbuf. */ static int get_options(struct tftphdr *tp, char *cp, int size, char *ackb, size_t asize, size_t *alen, int *ecode) { const struct tftp_options *op; char *option, *value, *endp; int r, rv=0; endp = cp + size; while (cp < endp) { option = cp; while (*cp && cp < endp) { *cp = tolower((unsigned char)*cp); cp++; } if (*cp) { /* if we have garbage at the end, just ignore it */ break; } cp++; /* skip over NUL */ value = cp; while (*cp && cp < endp) { cp++; } if (*cp) { /* if we have garbage at the end, just ignore it */ break; } cp++; for (op = options; op->o_name; op++) { if (strcmp(op->o_name, option) == 0) break; } if (op->o_name) { r = op->o_handler(tp, value, ackb, asize, alen, ecode); if (r < 0) { rv = -1; break; } rv++; } /* else ignore unknown options */ } return rv; } /* * Handle initial connection protocol. */ static void tftp(struct tftphdr *tp, int size) { struct formats *pf; char *cp; char *filename, *mode; int first, ecode, etftp = 0, r; size_t alen; ecode = 0; /* XXX gcc */ first = 1; mode = NULL; filename = cp = tp->th_stuff; again: while (cp < buf + size) { if (*cp == '\0') break; cp++; } if (*cp != '\0') { nak(EBADOP); exit(1); } if (first) { mode = ++cp; first = 0; goto again; } for (cp = mode; *cp; cp++) *cp = tolower((unsigned char)*cp); for (pf = formats; pf->f_mode; pf++) if (strcmp(pf->f_mode, mode) == 0) break; if (pf->f_mode == 0) { nak(EBADOP); exit(1); } /* * cp currently points to the NUL byte following the mode. * * If we have some valid options, then let's assume that we're * now dealing with an extended tftp session. Note that if we * don't get any options, then we *must* assume that we do not * have an extended tftp session. If we get options, we fill * in the ack buf to acknowledge them. If we skip that, then * the client *must* assume that we are not using an extended * session. */ size -= (++cp - (char *) tp); if (size > 0 && *cp) { alen = 2; /* Skip over opcode */ r = get_options(tp, cp, size, oackbuf, sizeof(oackbuf), &alen, &ecode); if (r > 0) { etftp = 1; } else if (r < 0) { nak(ecode); exit(1); } } /* * Globally replace the path separator given in the -p option * with / to cope with clients expecting a non-unix path separator. */ if (pathsep != '\0') { for (cp = filename; *cp != '\0'; ++cp) { if (*cp == pathsep) *cp = '/'; } } ecode = (*pf->f_validate)(&filename, tp->th_opcode); if (logging) { syslog(LOG_INFO, "%s: %s request for %s: %s", verifyhost((struct sockaddr *)&from), tp->th_opcode == WRQ ? "write" : "read", filename, errtomsg(ecode)); } if (ecode) { /* * Avoid storms of naks to a RRQ broadcast for a relative * bootfile pathname from a diskless Sun. */ if (suppress_naks && *filename != '/' && ecode == ENOTFOUND) exit(0); nak(ecode); exit(1); } if (etftp) { struct tftphdr *oack_h; if (tftp_opt_tsize) { int l; if (sizeof(oackbuf) > alen && (l = snprintf(oackbuf + alen, sizeof(oackbuf) - alen, "tsize%c%u%c", 0, tftp_tsize, 0)) > 0) alen += l; } oack_h = (struct tftphdr *) oackbuf; oack_h->th_opcode = htons(OACK); } if (tp->th_opcode == WRQ) (*pf->f_recv)(pf, etftp, alen); else (*pf->f_send)(pf, etftp, alen); exit(0); } FILE *file; /* * Validate file access. Since we * have no uid or gid, for now require * file to exist and be publicly * readable/writable. * If we were invoked with arguments * from inetd then the file must also be * in one of the given directory prefixes. */ int validate_access(char **filep, int mode) { struct stat stbuf; struct dirlist *dirp; static char pathname[MAXPATHLEN]; char *filename; int fd; int create = 0; int trunc = 0; filename = *filep; /* * Prevent tricksters from getting around the directory restrictions */ if (strstr(filename, "/../")) return (EACCESS); if (*filename == '/') { /* * Allow the request if it's in one of the approved locations. * Special case: check the null prefix ("/") by looking * for length = 1 and relying on the arg. processing that * it's a /. */ for (dirp = dirs; dirp->name != NULL; dirp++) { if (dirp->len == 1 || (!strncmp(filename, dirp->name, dirp->len) && filename[dirp->len] == '/')) break; } /* If directory list is empty, allow access to any file */ if (dirp->name == NULL && dirp != dirs) return (EACCESS); if (stat(filename, &stbuf) < 0) return (errno == ENOENT ? ENOTFOUND : EACCESS); if (!S_ISREG(stbuf.st_mode)) return (ENOTFOUND); if (mode == RRQ) { if ((stbuf.st_mode & S_IROTH) == 0) return (EACCESS); } else { if ((stbuf.st_mode & S_IWOTH) == 0) return (EACCESS); } } else { /* * Relative file name: search the approved locations for it. */ if (!strncmp(filename, "../", 3)) return (EACCESS); /* * Find the first file that exists in any of the directories, * check access on it. */ if (dirs[0].name != NULL) { for (dirp = dirs; dirp->name != NULL; dirp++) { snprintf(pathname, sizeof pathname, "%s/%s", dirp->name, filename); if (stat(pathname, &stbuf) == 0 && (stbuf.st_mode & S_IFMT) == S_IFREG) { break; } } if (dirp->name == NULL) return (ENOTFOUND); if (mode == RRQ && !(stbuf.st_mode & S_IROTH)) return (EACCESS); if (mode == WRQ && !(stbuf.st_mode & S_IWOTH)) return (EACCESS); *filep = filename = pathname; } else { int stat_rc; /* * If there's no directory list, take our cue from the * absolute file request check above (*filename == '/'), * and allow access to anything. */ stat_rc = stat(filename, &stbuf); if (mode == RRQ) { /* Read request */ if (stat_rc < 0) return (errno == ENOENT ? ENOTFOUND : EACCESS); if (!S_ISREG(stbuf.st_mode)) return (ENOTFOUND); if ((stbuf.st_mode & S_IROTH) == 0) return (EACCESS); } else { if (stat_rc < 0) { /* Can't stat */ if (errno == EACCES) { /* Permission denied */ return EACCESS; } else { /* Not there */ if (unrestricted_writes) { /* need to creat new file! */ create = O_CREAT; } else { /* Permission denied */ return EACCESS; } } } else { /* Can stat */ if ((stbuf.st_mode & S_IWOTH) == 0) { return (EACCESS); } trunc = O_TRUNC; } } *filep = filename; } } if (tftp_opt_tsize && mode == RRQ) tftp_tsize = (unsigned long) stbuf.st_size; fd = open(filename, mode == RRQ ? O_RDONLY : O_WRONLY | trunc | create, 0644); /* debatable */ if (fd < 0) return (errno + 100); file = fdopen(fd, (mode == RRQ)? "r":"w"); if (file == NULL) { close(fd); return (errno + 100); } return (0); } static int timeout; static jmp_buf timeoutbuf; static void timer(int dummy) { timeout += rexmtval; if (timeout >= maxtimeout) exit(1); longjmp(timeoutbuf, 1); } static const char * opcode(int code) { static char obuf[64]; switch (code) { case RRQ: return "RRQ"; case WRQ: return "WRQ"; case DATA: return "DATA"; case ACK: return "ACK"; case ERROR: return "ERROR"; case OACK: return "OACK"; default: (void)snprintf(obuf, sizeof(obuf), "*code 0x%x*", code); return obuf; } } /* * Send the requested file. */ static void sendfile(struct formats *pf, volatile int etftp, int acklength) { volatile unsigned int block; struct tftphdr *dp; struct tftphdr *ap; /* ack packet */ volatile int size; int n; signal(SIGALRM, timer); ap = (struct tftphdr *)ackbuf; if (etftp) { dp = (struct tftphdr *)oackbuf; size = acklength - 4; block = 0; } else { dp = r_init(); size = 0; block = 1; } do { if (block > 0) { size = readit(file, &dp, tftp_blksize, pf->f_convert); if (size < 0) { nak(errno + 100); goto abort; } dp->th_opcode = htons((u_short)DATA); dp->th_block = htons((u_short)block); } timeout = 0; (void)setjmp(timeoutbuf); send_data: if (!etftp && debug) syslog(LOG_DEBUG, "Send DATA %u", block); if ((n = sendto(peer, dp, size + 4, 0, (struct sockaddr *)&from, fromlen)) != size + 4) { syslog(LOG_ERR, "tftpd: write: %m"); goto abort; } if (block) read_ahead(file, tftp_blksize, pf->f_convert); for ( ; ; ) { alarm(rexmtval); /* read the ack */ n = recvfrom(peer, ackbuf, tftp_blksize, 0,(struct sockaddr *)&from, &fromlen ); alarm(0); if (n < 0) { syslog(LOG_ERR, "tftpd: read: %m"); goto abort; } ap->th_opcode = ntohs((u_short)ap->th_opcode); ap->th_block = ntohs((u_short)ap->th_block); switch (ap->th_opcode) { case ERROR: goto abort; case ACK: if (etftp && ap->th_block == 0) { etftp = 0; acklength = 0; dp = r_init(); goto done; } if (ap->th_block == (u_short)block) goto done; if (debug) syslog(LOG_DEBUG, "Resync ACK %u != %u", (unsigned int)ap->th_block, block); /* Re-synchronize with the other side */ (void) synchnet(peer, tftp_blksize); if (ap->th_block == (u_short)(block - 1)) goto send_data; /* FALLTHROUGH */ default: syslog(LOG_INFO, "Received %s in sendfile\n", opcode(dp->th_opcode)); } } done: if (debug) syslog(LOG_DEBUG, "Received ACK for block %u", block); if (block == UINT16_MAX && size == tftp_blksize) syslog(LOG_WARNING, "Block number wrapped (hint: increase block size)"); block++; } while (size == tftp_blksize || block == 1); abort: (void) fclose(file); } static void justquit(int dummy) { exit(0); } /* * Receive a file. */ static void recvfile(struct formats *pf, volatile int etftp, volatile int acklength) { volatile unsigned int block; struct tftphdr *dp; struct tftphdr *ap; /* ack buffer */ volatile int size; int n; signal(SIGALRM, timer); dp = w_init(); ap = (struct tftphdr *)oackbuf; block = 0; do { timeout = 0; if (etftp == 0) { ap = (struct tftphdr *)ackbuf; ap->th_opcode = htons((u_short)ACK); ap->th_block = htons((u_short)block); acklength = 4; } if (debug) syslog(LOG_DEBUG, "Sending ACK for block %u\n", block); if (block == UINT16_MAX) syslog(LOG_WARNING, "Block number wrapped (hint: increase block size)"); block++; (void) setjmp(timeoutbuf); send_ack: ap = (struct tftphdr *) (etftp ? oackbuf : ackbuf); if (sendto(peer, ap, acklength, 0, (struct sockaddr *)&from, fromlen) != acklength) { syslog(LOG_ERR, "tftpd: write: %m"); goto abort; } write_behind(file, pf->f_convert); for ( ; ; ) { alarm(rexmtval); n = recvfrom(peer, dp, tftp_blksize + 4, 0, (struct sockaddr *)&from, &fromlen); alarm(0); if (n < 0) { /* really? */ syslog(LOG_ERR, "tftpd: read: %m"); goto abort; } etftp = 0; dp->th_opcode = ntohs((u_short)dp->th_opcode); dp->th_block = ntohs((u_short)dp->th_block); if (debug) syslog(LOG_DEBUG, "Received %s for block %u", opcode(dp->th_opcode), (unsigned int)dp->th_block); switch (dp->th_opcode) { case ERROR: goto abort; case DATA: if (dp->th_block == block) goto done; /* normal */ if (debug) syslog(LOG_DEBUG, "Resync %u != %u", (unsigned int)dp->th_block, block); /* Re-synchronize with the other side */ (void) synchnet(peer, tftp_blksize); if (dp->th_block == (block-1)) goto send_ack; /* rexmit */ break; default: syslog(LOG_INFO, "Received %s in recvfile\n", opcode(dp->th_opcode)); break; } } done: if (debug) syslog(LOG_DEBUG, "Got block %u", block); /* size = write(file, dp->th_data, n - 4); */ size = writeit(file, &dp, n - 4, pf->f_convert); if (size != (n-4)) { /* ahem */ if (size < 0) nak(errno + 100); else nak(ENOSPACE); goto abort; } } while (size == tftp_blksize); write_behind(file, pf->f_convert); (void) fclose(file); /* close data file */ ap->th_opcode = htons((u_short)ACK); /* send the "final" ack */ ap->th_block = htons((u_short)(block)); if (debug) syslog(LOG_DEBUG, "Send final ACK %u", block); (void) sendto(peer, ackbuf, 4, 0, (struct sockaddr *)&from, fromlen); signal(SIGALRM, justquit); /* just quit on timeout */ alarm(rexmtval); n = recvfrom(peer, buf, sizeof (buf), 0, (struct sockaddr *)&from, &fromlen); /* normally times out and quits */ alarm(0); if (n >= 4 && /* if read some data */ dp->th_opcode == DATA && /* and got a data block */ block == dp->th_block) { /* then my last ack was lost */ (void) sendto(peer, ackbuf, 4, 0, (struct sockaddr *)&from, fromlen); /* resend final ack */ } abort: return; } const struct errmsg { int e_code; const char *e_msg; } errmsgs[] = { { EUNDEF, "Undefined error code" }, { ENOTFOUND, "File not found" }, { EACCESS, "Access violation" }, { ENOSPACE, "Disk full or allocation exceeded" }, { EBADOP, "Illegal TFTP operation" }, { EBADID, "Unknown transfer ID" }, { EEXISTS, "File already exists" }, { ENOUSER, "No such user" }, { EOPTNEG, "Option negotiation failed" }, { -1, 0 } }; static const char * errtomsg(int error) { static char ebuf[20]; const struct errmsg *pe; if (error == 0) return ("success"); for (pe = errmsgs; pe->e_code >= 0; pe++) if (pe->e_code == error) return (pe->e_msg); snprintf(ebuf, sizeof(ebuf), "error %d", error); return (ebuf); } /* * Send a nak packet (error message). * Error code passed in is one of the * standard TFTP codes, or a UNIX errno * offset by 100. */ static void nak(int error) { const struct errmsg *pe; struct tftphdr *tp; int length; size_t msglen; tp = (struct tftphdr *)buf; tp->th_opcode = htons((u_short)ERROR); msglen = sizeof(buf) - (&tp->th_msg[0] - buf); for (pe = errmsgs; pe->e_code >= 0; pe++) if (pe->e_code == error) break; if (pe->e_code < 0) { tp->th_code = EUNDEF; /* set 'undef' errorcode */ strlcpy(tp->th_msg, strerror(error - 100), msglen); } else { tp->th_code = htons((u_short)error); strlcpy(tp->th_msg, pe->e_msg, msglen); } if (debug) syslog(LOG_DEBUG, "Send NACK %s", tp->th_msg); length = strlen(tp->th_msg); msglen = &tp->th_msg[length + 1] - buf; if (sendto(peer, buf, msglen, 0, (struct sockaddr *)&from, fromlen) != (ssize_t)msglen) syslog(LOG_ERR, "nak: %m"); } static char * verifyhost(struct sockaddr *fromp) { static char hbuf[MAXHOSTNAMELEN]; if (getnameinfo(fromp, fromp->sa_len, hbuf, sizeof(hbuf), NULL, 0, 0)) strlcpy(hbuf, "?", sizeof(hbuf)); return (hbuf); } src/libexec/utmp_update004075500011300000175000000000001504273241000154615ustar00srcmastrnetbsdsrc/libexec/utmp_update/CVS004075500011300000175000000000001504273241000161145ustar00srcmastrnetbsdsrc/libexec/utmp_update/CVS/Root010064400011300000175000000000441504273241000170340ustar00srcmastrnetbsdanoncvs@anoncvs.NetBSD.org:/cvsroot src/libexec/utmp_update/CVS/Repository010064400011300000175000000000301504273241000202630ustar00srcmastrnetbsdsrc/libexec/utmp_update src/libexec/utmp_update/CVS/Entries010064400011300000175000000002461504273241000175260ustar00srcmastrnetbsd/Makefile/1.4/Sat Sep 17 01:50:54 2011//Tnetbsd-11 /utmp_update.8/1.3/Sat Apr 18 22:03:51 2020//Tnetbsd-11 /utmp_update.c/1.14/Fri Sep 29 12:08:03 2023//Tnetbsd-11 D src/libexec/utmp_update/CVS/Tag010064400011300000175000000000131522207752300166270ustar00srcmastrnetbsdTnetbsd-11 src/libexec/utmp_update/Makefile010064400011300000175000000003041163477637600172200ustar00srcmastrnetbsd# $NetBSD: Makefile,v 1.4 2011/09/17 01:50:54 christos Exp $ PROG= utmp_update MAN= utmp_update.8 BINOWN= root BINMODE=4555 COPTS.utmp_update.c += -Wno-format-nonliteral .include src/libexec/utmp_update/utmp_update.8010064400011300000175000000043341364667450700202050ustar00srcmastrnetbsd.\" $NetBSD: utmp_update.8,v 1.3 2020/04/18 22:03:51 sevan Exp $ .\" .\" Copyright (c) 2002 The NetBSD Foundation, Inc. .\" All rights reserved. .\" .\" This code is derived from software contributed to The NetBSD Foundation .\" by Thomas Klausner. .\" .\" Redistribution and use in source and binary forms, with or without .\" modification, are permitted provided that the following conditions .\" are met: .\" 1. Redistributions of source code must retain the above copyright .\" notice, this list of conditions and the following disclaimer. .\" 2. Redistributions in binary form must reproduce the above copyright .\" notice, this list of conditions and the following disclaimer in the .\" documentation and/or other materials provided with the distribution. .\" .\" THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS .\" ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED .\" TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR .\" PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS .\" BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR .\" CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF .\" SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS .\" INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN .\" CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) .\" ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE .\" POSSIBILITY OF SUCH DAMAGE. .\" .Dd April 18, 2020 .Dt UTMP_UPDATE 8 .Os .Sh NAME .Nm utmp_update .Nd update utmpx database .Sh SYNOPSIS .Nm .Ar utmpx_entry .Sh DESCRIPTION .Nm is a helper program to allow a user to update his own .Xr utmpx 5 entry. .Nm does some consistency checks on the .Xr strvis 3 Ns No -encoded .Ar utmpx_entry and then updates the .Xr utmpx 5 database of currently logged in users. .Pp .Nm should not be called directly, but will normally only be called by .Xr pututxline 3 if the privileges of the calling user are not sufficient. .Sh EXIT STATUS .Nm returns 0 on success, and 1 if an error occurred. .Sh SEE ALSO .Xr pututxline 3 , .Xr utmpx 5 .Sh HISTORY A .Nm utility appeared in .Nx 2.0 . src/libexec/utmp_update/utmp_update.c010064400011300000175000000115701450553704300202440ustar00srcmastrnetbsd/* $NetBSD: utmp_update.c,v 1.14 2023/09/29 12:08:03 christos Exp $ */ /*- * Copyright (c) 2002 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Christos Zoulas. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE * POSSIBILITY OF SUCH DAMAGE. */ #include __RCSID("$NetBSD: utmp_update.c,v 1.14 2023/09/29 12:08:03 christos Exp $"); #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include static __dead __printflike(2, 3) void logerr(int e, const char *fmt, ...) { va_list sap, eap; char *s = NULL; if (e) (void)asprintf(&s, "%s (%s)", fmt, strerror(e)); if (s) fmt = s; va_start(sap, fmt); va_copy(eap, sap); vsyslog(LOG_ERR, fmt, sap); va_end(sap); verrx(1, fmt, eap); va_end(eap); } int main(int argc, char *argv[]) { struct utmpx *utx; size_t len; struct passwd *pwd; struct stat st; int fd; int res; uid_t euid, ruid; char tty[MAXPATHLEN]; const char *p, *ep; euid = geteuid(); ruid = getuid(); if (argc != 2) { (void)fprintf(stderr, "Usage: %s \n", getprogname()); return 1; } openlog(getprogname(), LOG_PID | LOG_NDELAY, LOG_AUTH); if (seteuid(ruid) == -1) logerr(errno, "Can't setuid %ld", (long)ruid); len = strlen(argv[1]); if (len > sizeof(*utx) * 4 + 1 || len < sizeof(*utx)) logerr(0, "Bad argument size %zu", len); if ((utx = malloc(len+1)) == NULL) logerr(errno, "Can't allocate %zu", len+1); res = strunvis((char *)utx, argv[1]); if (res != (int)sizeof(*utx)) logerr(0, "Decoding error %s %d != %zu", argv[1], res, sizeof(*utx)); switch (utx->ut_type) { case USER_PROCESS: case DEAD_PROCESS: break; default: logerr(0, "Invalid utmpx type %d", (int)utx->ut_type); } p = utx->ut_host; ep = p + sizeof(utx->ut_host); for (; p < ep && *p; p++) if (!isprint((unsigned char)*p)) logerr(0, "Non-printable characters in hostname"); if (ruid != 0) { if ((pwd = getpwuid(ruid)) == NULL) logerr(0, "User %ld does not exist in password" " database", (long)ruid); if (strcmp(pwd->pw_name, utx->ut_name) != 0) logerr(0, "Current user `%s' does not match " "`%s' in utmpx entry", pwd->pw_name, utx->ut_name); } (void)snprintf(tty, sizeof(tty), "%s%s", _PATH_DEV, utx->ut_line); fd = open(tty, O_RDONLY|O_NONBLOCK, 0); if (fd != -1) { if (fstat(fd, &st) == -1) logerr(errno, "Cannot stat `%s'", tty); if (ruid != 0 && st.st_uid != ruid) logerr(0, "%s: Is not owned by you", tty); if (!isatty(fd)) logerr(0, "%s: Not a tty device", tty); (void)close(fd); if (access(tty, W_OK|R_OK) == -1) logerr(errno, "Can't access `%s'", tty); } else { struct utmpx utold, *utoldp; pid_t ppid; /* * A daemon like ftpd that does not use a tty line? * We only allow it to kill its own existing entries */ if (utx->ut_type != DEAD_PROCESS) logerr(errno, "Cannot open `%s'", tty); (void)memcpy(utold.ut_line, utx->ut_line, sizeof(utx->ut_line)); if ((utoldp = getutxline(&utold)) == NULL) logerr(0, "Cannot find existing entry for `%s'", utx->ut_line); if (utoldp->ut_pid != (ppid = getppid())) logerr(0, "Cannot modify entry for `%s' " "utmp pid %ld != parent %ld", tty, (long)utoldp->ut_pid, (long)ppid); } if (seteuid(euid) == 1) logerr(errno, "Can't setuid %ld", (long)euid); if (pututxline(utx) == NULL) logerr(errno, "Cannot update utmp entry"); return 0; }