2N/A/*
2N/A * Copyright 2004 Sun Microsystems, Inc. All rights reserved.
2N/A * Use is subject to license terms.
2N/A */
2N/A
2N/A#pragma ident "%Z%%M% %I% %E% SMI"
2N/A
2N/A /*
2N/A * percent_x() takes a string and performs %<char> expansions. It aborts the
2N/A * program when the expansion would overflow the output buffer. The result
2N/A * of %<char> expansion may be passed on to a shell process. For this
2N/A * reason, characters with a special meaning to shells are replaced by
2N/A * underscores.
2N/A *
2N/A * Diagnostics are reported through syslog(3).
2N/A *
2N/A * Author: Wietse Venema, Eindhoven University of Technology, The Netherlands.
2N/A */
2N/A
2N/A#ifndef lint
2N/Astatic char sccsid[] = "@(#) percent_x.c 1.4 94/12/28 17:42:37";
2N/A#endif
2N/A
2N/A/* System libraries. */
2N/A
2N/A#include <stdio.h>
2N/A#include <stdlib.h>
2N/A#include <unistd.h>
2N/A#include <syslog.h>
2N/A#include <string.h>
2N/A
2N/Aextern void exit();
2N/A
2N/A/* Local stuff. */
2N/A
2N/A#include "tcpd.h"
2N/A
2N/A/* percent_x - do %<char> expansion, abort if result buffer is too small */
2N/A
2N/Achar *percent_x(result, result_len, string, request)
2N/Achar *result;
2N/Aint result_len;
2N/Achar *string;
2N/Astruct request_info *request;
2N/A{
2N/A char *bp = result;
2N/A char *end = result + result_len - 1; /* end of result buffer */
2N/A char *expansion;
2N/A int expansion_len;
2N/A static char ok_chars[] = "1234567890!@%-_=+:,./\
2N/Aabcdefghijklmnopqrstuvwxyz\
2N/AABCDEFGHIJKLMNOPQRSTUVWXYZ";
2N/A char *str = string;
2N/A char *cp;
2N/A int ch;
2N/A
2N/A /*
2N/A * Warning: we may be called from a child process or after pattern
2N/A * matching, so we cannot use clean_exit() or tcpd_jump().
2N/A */
2N/A
2N/A while (*str) {
2N/A if (*str == '%' && (ch = str[1]) != 0) {
2N/A str += 2;
2N/A expansion =
2N/A ch == 'a' ? eval_hostaddr(request->client) :
2N/A ch == 'A' ? eval_hostaddr(request->server) :
2N/A ch == 'c' ? eval_client(request) :
2N/A ch == 'd' ? eval_daemon(request) :
2N/A ch == 'h' ? eval_hostinfo(request->client) :
2N/A ch == 'H' ? eval_hostinfo(request->server) :
2N/A ch == 'n' ? eval_hostname(request->client) :
2N/A ch == 'N' ? eval_hostname(request->server) :
2N/A ch == 'p' ? eval_pid(request) :
2N/A ch == 's' ? eval_server(request) :
2N/A ch == 'u' ? eval_user(request) :
2N/A ch == '%' ? "%" : (tcpd_warn("unrecognized %%%c", ch), "");
2N/A for (cp = expansion; *(cp += strspn(cp, ok_chars)); /* */ )
2N/A *cp = '_';
2N/A expansion_len = cp - expansion;
2N/A } else {
2N/A expansion = str++;
2N/A expansion_len = 1;
2N/A }
2N/A if (bp + expansion_len >= end) {
2N/A tcpd_warn("percent_x: expansion too long: %.30s...", result);
2N/A sleep(5);
2N/A exit(0);
2N/A }
2N/A memcpy(bp, expansion, expansion_len);
2N/A bp += expansion_len;
2N/A }
2N/A *bp = 0;
2N/A return (result);
2N/A}