chiark / gitweb /
server: Introduce another temporary buffer for debugging output.
[tripe] / server / servutil.c
1 /* -*-c-*-
2  *
3  * Various handy server-only utilities
4  *
5  * (c) 2001 Straylight/Edgeware
6  */
7
8 /*----- Licensing notice --------------------------------------------------*
9  *
10  * This file is part of Trivial IP Encryption (TrIPE).
11  *
12  * TrIPE is free software; you can redistribute it and/or modify
13  * it under the terms of the GNU General Public License as published by
14  * the Free Software Foundation; either version 2 of the License, or
15  * (at your option) any later version.
16  *
17  * TrIPE is distributed in the hope that it will be useful,
18  * but WITHOUT ANY WARRANTY; without even the implied warranty of
19  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
20  * GNU General Public License for more details.
21  *
22  * You should have received a copy of the GNU General Public License
23  * along with TrIPE; if not, write to the Free Software Foundation,
24  * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
25  */
26
27 /*----- Header files ------------------------------------------------------*/
28
29 #include "tripe.h"
30
31 /*----- Global variables --------------------------------------------------*/
32
33 octet buf_i[PKBUFSZ], buf_o[PKBUFSZ], buf_t[PKBUFSZ], buf_u[PKBUFSZ];
34
35 /*----- Main code ---------------------------------------------------------*/
36
37 /* --- @mpstr@ --- *
38  *
39  * Arguments:   @mp *m@ = a multiprecision integer
40  *
41  * Returns:     A pointer to the integer's textual representation.
42  *
43  * Use:         Converts a multiprecision integer to a string.  Corrupts
44  *              @buf_u@.
45  */
46
47 const char *mpstr(mp *m)
48 {
49   if (mp_writestring(m, (char *)buf_u, sizeof(buf_u), 10))
50     return ("<failed>");
51   return ((const char *)buf_u);
52 }
53
54 /* --- @gestr@ --- *
55  *
56  * Arguments:   @group *g@ = a group
57  *              @ge *x@ = a group element
58  *
59  * Returns:     A pointer to the element's textual representation.
60  *
61  * Use:         Converts a group element to a string.  Corrupts
62  *              @buf_u@.
63  */
64
65 const char *gestr(group *g, ge *x)
66 {
67   if (group_writestring(g, x, (char *)buf_u, sizeof(buf_u)))
68     return ("<failed>");
69   return ((const char *)buf_u);
70 }
71
72 /* --- @timestr@ --- *
73  *
74  * Arguments:   @time_t t@ = a time to convert
75  *
76  * Returns:     A pointer to a textual representation of the time.
77  *
78  * Use:         Converts a time to a textual representation.  Corrupts
79  *              @buf_u@.
80  */
81
82 const char *timestr(time_t t)
83 {
84   struct tm *tm;
85   if (!t)
86     return ("NEVER");
87   tm = localtime(&t);
88   strftime((char *)buf_u, sizeof(buf_u), "%Y-%m-%dT%H:%M:%S", tm);
89   return ((const char *)buf_u);
90 }
91
92 /* --- @mystrieq@ --- *
93  *
94  * Arguments:   @const char *x, *y@ = two strings
95  *
96  * Returns:     True if @x@ and @y are equal, up to case.
97  */
98
99 int mystrieq(const char *x, const char *y)
100 {
101   for (;;) {
102     if (!*x && !*y) return (1);
103     if (tolower((unsigned char)*x) != tolower((unsigned char)*y))
104       return (0);
105     x++; y++;
106   }
107 }
108
109 /* --- @seq_reset@ --- *
110  *
111  * Arguments:   @seqwin *s@ = sequence-checking window
112  *
113  * Returns:     ---
114  *
115  * Use:         Resets a sequence number window.
116  */
117
118 void seq_reset(seqwin *s) { s->seq = 0; s->win = 0; }
119
120 /* --- @seq_check@ --- *
121  *
122  * Arguments:   @seqwin *s@ = sequence-checking window
123  *              @uint32 q@ = sequence number to check
124  *              @const char *service@ = service to report message from
125  *
126  * Returns:     Zero on success, nonzero if the sequence number was bad.
127  *
128  * Use:         Checks a sequence number against the window, updating things
129  *              as necessary.
130  */
131
132 int seq_check(seqwin *s, uint32 q, const char *service)
133 {
134   uint32 qbit;
135   uint32 n;
136
137   if (q < s->seq) {
138     a_warn(service, "replay", "old-sequence", A_END);
139     return (-1);
140   }
141   if (q >= s->seq + SEQ_WINSZ) {
142     n = q - (s->seq + SEQ_WINSZ - 1);
143     if (n < SEQ_WINSZ)
144       s->win >>= n;
145     else
146       s->win = 0;
147     s->seq += n;
148   }
149   qbit = 1 << (q - s->seq);
150   if (s->win & qbit) {
151     a_warn(service, "replay", "duplicated-sequence", A_END);
152     return (-1);
153   }
154   s->win |= qbit;
155   return (0);
156 }
157
158 /*----- That's all, folks -------------------------------------------------*/