155682Smarkm/*
2233294Sstas * Copyright (c) 1997 - 2001 Kungliga Tekniska H��gskolan
3233294Sstas * (Royal Institute of Technology, Stockholm, Sweden).
4233294Sstas * All rights reserved.
555682Smarkm *
6233294Sstas * Redistribution and use in source and binary forms, with or without
7233294Sstas * modification, are permitted provided that the following conditions
8233294Sstas * are met:
955682Smarkm *
10233294Sstas * 1. Redistributions of source code must retain the above copyright
11233294Sstas *    notice, this list of conditions and the following disclaimer.
1255682Smarkm *
13233294Sstas * 2. Redistributions in binary form must reproduce the above copyright
14233294Sstas *    notice, this list of conditions and the following disclaimer in the
15233294Sstas *    documentation and/or other materials provided with the distribution.
1655682Smarkm *
17233294Sstas * 3. Neither the name of the Institute nor the names of its contributors
18233294Sstas *    may be used to endorse or promote products derived from this software
19233294Sstas *    without specific prior written permission.
2055682Smarkm *
21233294Sstas * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
22233294Sstas * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23233294Sstas * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24233294Sstas * ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
25233294Sstas * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26233294Sstas * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27233294Sstas * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28233294Sstas * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29233294Sstas * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30233294Sstas * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31233294Sstas * SUCH DAMAGE.
3255682Smarkm */
3355682Smarkm
3455682Smarkm#include "krb5_locl.h"
3555682Smarkm
36233294SstasKRB5_LIB_FUNCTION krb5_error_code KRB5_LIB_CALL
3755682Smarkmkrb5_read_message (krb5_context context,
3855682Smarkm		   krb5_pointer p_fd,
3955682Smarkm		   krb5_data *data)
4055682Smarkm{
4155682Smarkm    krb5_error_code ret;
42178825Sdfr    uint32_t len;
43178825Sdfr    uint8_t buf[4];
4455682Smarkm
45178825Sdfr    krb5_data_zero(data);
46178825Sdfr
4755682Smarkm    ret = krb5_net_read (context, p_fd, buf, 4);
4878527Sassar    if(ret == -1) {
4978527Sassar	ret = errno;
50233294Sstas	krb5_clear_error_message (context);
5178527Sassar	return ret;
5278527Sassar    }
5355682Smarkm    if(ret < 4) {
54233294Sstas	krb5_clear_error_message(context);
5572445Sassar	return HEIM_ERR_EOF;
5655682Smarkm    }
5755682Smarkm    len = (buf[0] << 24) | (buf[1] << 16) | (buf[2] << 8) | buf[3];
5855682Smarkm    ret = krb5_data_alloc (data, len);
59178825Sdfr    if (ret) {
60233294Sstas	krb5_clear_error_message(context);
6155682Smarkm	return ret;
62178825Sdfr    }
6355682Smarkm    if (krb5_net_read (context, p_fd, data->data, len) != len) {
6478527Sassar	ret = errno;
6555682Smarkm	krb5_data_free (data);
66233294Sstas	krb5_clear_error_message (context);
6778527Sassar	return ret;
6855682Smarkm    }
6955682Smarkm    return 0;
7055682Smarkm}
7172445Sassar
72233294SstasKRB5_LIB_FUNCTION krb5_error_code KRB5_LIB_CALL
7372445Sassarkrb5_read_priv_message(krb5_context context,
7472445Sassar		       krb5_auth_context ac,
7572445Sassar		       krb5_pointer p_fd,
7672445Sassar		       krb5_data *data)
7772445Sassar{
7872445Sassar    krb5_error_code ret;
7972445Sassar    krb5_data packet;
8072445Sassar
8172445Sassar    ret = krb5_read_message(context, p_fd, &packet);
8272445Sassar    if(ret)
8372445Sassar	return ret;
8472445Sassar    ret = krb5_rd_priv (context, ac, &packet, data, NULL);
8572445Sassar    krb5_data_free(&packet);
8672445Sassar    return ret;
8772445Sassar}
8872445Sassar
89233294SstasKRB5_LIB_FUNCTION krb5_error_code KRB5_LIB_CALL
9072445Sassarkrb5_read_safe_message(krb5_context context,
9172445Sassar		       krb5_auth_context ac,
9272445Sassar		       krb5_pointer p_fd,
9372445Sassar		       krb5_data *data)
9472445Sassar{
9572445Sassar    krb5_error_code ret;
9672445Sassar    krb5_data packet;
9772445Sassar
9872445Sassar    ret = krb5_read_message(context, p_fd, &packet);
9972445Sassar    if(ret)
10072445Sassar	return ret;
10172445Sassar    ret = krb5_rd_safe (context, ac, &packet, data, NULL);
10272445Sassar    krb5_data_free(&packet);
10372445Sassar    return ret;
10472445Sassar}
105