granicus.if.org Git - apache/blob - server/util_ebcdic.c

   1 /* ====================================================================
   2  * The Apache Software License, Version 1.1
   3  *
   4  * Copyright (c) 2000-2002 The Apache Software Foundation.  All rights
   5  * reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  *
  11  * 1. Redistributions of source code must retain the above copyright
  12  *    notice, this list of conditions and the following disclaimer.
  13  *
  14  * 2. Redistributions in binary form must reproduce the above copyright
  15  *    notice, this list of conditions and the following disclaimer in
  16  *    the documentation and/or other materials provided with the
  17  *    distribution.
  18  *
  19  * 3. The end-user documentation included with the redistribution,
  20  *    if any, must include the following acknowledgment:
  21  *       "This product includes software developed by the
  22  *        Apache Software Foundation (http://www.apache.org/)."
  23  *    Alternately, this acknowledgment may appear in the software itself,
  24  *    if and wherever such third-party acknowledgments normally appear.
  25  *
  26  * 4. The names "Apache" and "Apache Software Foundation" must
  27  *    not be used to endorse or promote products derived from this
  28  *    software without prior written permission. For written
  29  *    permission, please contact apache@apache.org.
  30  *
  31  * 5. Products derived from this software may not be called "Apache",
  32  *    nor may "Apache" appear in their name, without prior written
  33  *    permission of the Apache Software Foundation.
  34  *
  35  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
  36  * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  37  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  38  * DISCLAIMED.  IN NO EVENT SHALL THE APACHE SOFTWARE FOUNDATION OR
  39  * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  40  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
  41  * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
  42  * USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
  43  * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
  44  * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
  45  * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  46  * SUCH DAMAGE.
  47  * ====================================================================
  48  *
  49  * This software consists of voluntary contributions made by many
  50  * individuals on behalf of the Apache Software Foundation.  For more
  51  * information on the Apache Software Foundation, please see
  52  * <http://www.apache.org/>.
  53  *
  54  * Portions of this software are based upon public domain software
  55  * originally written at the National Center for Supercomputing Applications,
  56  * University of Illinois, Urbana-Champaign.
  57  */
  58
  59 #include "ap_config.h"
  60
  61 #if APR_CHARSET_EBCDIC
  62
  63 #include "apr_strings.h"
  64 #include "httpd.h"
  65 #include "http_log.h"
  66 #include "http_core.h"
  67 #include "util_ebcdic.h"
  68
  69 apr_status_t ap_init_ebcdic(apr_pool_t *pool)
  70 {
  71     apr_status_t rv;
  72     char buf[80];
  73
  74     rv = apr_xlate_open(&ap_hdrs_to_ascii, "ISO8859-1", APR_DEFAULT_CHARSET, pool);
  75     if (rv) {
  76         ap_log_error(APLOG_MARK, APLOG_ERR, rv, NULL,
  77                      "apr_xlate_open() failed");
  78         return rv;
  79     }
  80
  81     rv = apr_xlate_open(&ap_hdrs_from_ascii, APR_DEFAULT_CHARSET, "ISO8859-1", pool);
  82     if (rv) {
  83         ap_log_error(APLOG_MARK, APLOG_ERR, rv, NULL,
  84                      "apr_xlate_open() failed");
  85         return rv;
  86     }
  87
  88     rv = apr_xlate_open(&ap_locale_to_ascii, "ISO8859-1", APR_LOCALE_CHARSET, pool);
  89     if (rv) {
  90         ap_log_error(APLOG_MARK, APLOG_ERR, rv, NULL,
  91                      "apr_xlate_open() failed");
  92         return rv;
  93     }
  94
  95     rv = apr_xlate_open(&ap_locale_from_ascii, APR_LOCALE_CHARSET, "ISO8859-1", pool);
  96     if (rv) {
  97         ap_log_error(APLOG_MARK, APLOG_ERR, rv, NULL,
  98                      "apr_xlate_open() failed");
  99         return rv;
 100     }
 101
 102     rv = apr_MD5InitEBCDIC(ap_hdrs_to_ascii);
 103     if (rv) {
 104         ap_log_error(APLOG_MARK, APLOG_ERR, rv, NULL,
 105                      "apr_MD5InitEBCDIC() failed");
 106         return rv;
 107     }
 108
 109     rv = apr_base64init_ebcdic(ap_hdrs_to_ascii, ap_hdrs_from_ascii);
 110     if (rv) {
 111         ap_log_error(APLOG_MARK, APLOG_ERR, rv, NULL,
 112                      "apr_base64init_ebcdic() failed");
 113         return rv;
 114     }
 115
 116     rv = apr_SHA1InitEBCDIC(ap_hdrs_to_ascii);
 117     if (rv) {
 118         ap_log_error(APLOG_MARK, APLOG_ERR, rv, NULL,
 119                      "apr_SHA1InitEBCDIC() failed");
 120         return rv;
 121     }
 122
 123     return APR_SUCCESS;
 124 }
 125
 126 void ap_xlate_proto_to_ascii(char *buffer, apr_size_t len)
 127 {
 128     apr_size_t inbytes_left, outbytes_left;
 129
 130     inbytes_left = outbytes_left = len;
 131     apr_xlate_conv_buffer(ap_hdrs_to_ascii, buffer, &inbytes_left,
 132                           buffer, &outbytes_left);
 133 }
 134
 135 void ap_xlate_proto_from_ascii(char *buffer, apr_size_t len)
 136 {
 137     apr_size_t inbytes_left, outbytes_left;
 138
 139     inbytes_left = outbytes_left = len;
 140     apr_xlate_conv_buffer(ap_hdrs_from_ascii, buffer, &inbytes_left,
 141                           buffer, &outbytes_left);
 142 }
 143
 144 int ap_rvputs_proto_in_ascii(request_rec *r, ...)
 145 {
 146     va_list va;
 147     const char *s;
 148     char *ascii_s;
 149     apr_size_t len;
 150     apr_size_t written = 0;
 151
 152     va_start(va, r);
 153     while (1) {
 154         s = va_arg(va, const char *);
 155         if (s == NULL)
 156             break;
 157         len = strlen(s);
 158         ascii_s = apr_pstrndup(r->pool, s, len);
 159         ap_xlate_proto_to_ascii(ascii_s, len);
 160         if (ap_rputs(ascii_s, r) < 0)
 161             return -1;
 162         written += len;
 163     }
 164     va_end(va);
 165
 166     return written;
 167 }
 168 #endif /* APR_CHARSET_EBCDIC */