BSD 4_4_Lite1 release

[unix-history] / usr / src / libexec / talkd / process.c

diff --git a/usr/src/libexec/talkd/process.c b/usr/src/libexec/talkd/process.c
index 0075354..dd05e6b 100644 (file)
--- a/usr/src/libexec/talkd/process.c
+++ b/usr/src/libexec/talkd/process.c
@@ -1,120 +1,173 @@
-/* $Header: process.c 1.5 83/03/28 20:16:07 moore Exp $ */
-
-    /* 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
+/*
+ * 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. 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.
+ */

 
 

-               DELETE - delete invitation
+#ifndef lint
+static char sccsid[] = "@(#)process.c  8.2 (Berkeley) 11/16/93";
+#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 <sys/param.h>
+#include <sys/stat.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <protocols/talkd.h>
+#include <netdb.h>
+#include <syslog.h>
+#include <stdio.h>
+#include <string.h>
+#include <paths.h>

 
 

-#include "ctl.h"
-char *strcpy();

 CTL_MSG *find_request();
 CTL_MSG *find_match();
 
 CTL_MSG *find_request();
 CTL_MSG *find_match();
 

-process_request(request, response)
-CTL_MSG *request;
-CTL_RESPONSE *response;
+process_request(mp, rp)
+       register CTL_MSG *mp;
+       register CTL_RESPONSE *rp;

 {
 {

-    CTL_MSG *ptr;
-
-    response->type = request->type;
-    response->id_num = 0;
-
-    switch (request->type) {
-
-       case ANNOUNCE :
-
-           do_announce(request, response);
-           break;
-
-       case LEAVE_INVITE :
-
-           ptr = find_request(request);
-           if (ptr != (CTL_MSG *) 0) {
-               response->id_num = ptr->id_num;
-               response->answer = SUCCESS;
-           } else {
-               insert_table(request, response);
-           }
-           break;
-
-       case LOOK_UP :
-
-           ptr = find_match(request);
-           if (ptr != (CTL_MSG *) 0) {
-               response->id_num = ptr->id_num;
-               response->addr = ptr->addr;
-               response->answer = SUCCESS;
-           } else {
-               response->answer = NOT_HERE;
-           }
-           break;
-
-       case DELETE :
-
-           response->answer = delete_invite(request->id_num);
-           break;
-
-       default :
-
-           response->answer = UNKNOWN_REQUEST;
-           break;
-
-    }
+       register CTL_MSG *ptr;
+       extern int debug;
+
+       rp->vers = TALK_VERSION;
+       rp->type = mp->type;
+       rp->id_num = htonl(0);
+       if (mp->vers != TALK_VERSION) {
+               syslog(LOG_WARNING, "Bad protocol version %d", mp->vers);
+               rp->answer = BADVERSION;
+               return;
+       }
+       mp->id_num = ntohl(mp->id_num);
+       mp->addr.sa_family = ntohs(mp->addr.sa_family);
+       if (mp->addr.sa_family != AF_INET) {
+               syslog(LOG_WARNING, "Bad address, family %d",
+                   mp->addr.sa_family);
+               rp->answer = BADADDR;
+               return;
+       }
+       mp->ctl_addr.sa_family = ntohs(mp->ctl_addr.sa_family);
+       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;
+       }
+       mp->pid = ntohl(mp->pid);
+       if (debug)
+               print_request("process_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", rp);

 }
 
 }
 

-struct hostent *gethostbyaddr();
-
-do_announce(request, response)
-CTL_MSG *request;
-CTL_RESPONSE *response;
+do_announce(mp, rp)
+       register CTL_MSG *mp;
+       CTL_RESPONSE *rp;

 {
 {

-    struct hostent *hp;
-    CTL_MSG *ptr;
-    int result;
+       struct hostent *hp;
+       CTL_MSG *ptr;
+       int result;

 
        /* see if the user is logged */
 
        /* see if the user is logged */

-
-    result = find_user(request->r_name, request->r_tty);
-
-    if (result != SUCCESS) {
-       response->answer = result;
-       return;
-    }
-
-    hp = gethostbyaddr(&request->ctl_addr.sin_addr,
-                         sizeof(struct in_addr), AF_INET);
-
-    if ( hp == (struct hostent *) 0 ) {
-       response->answer = MACHINE_UNKNOWN;
-       return;
-    }
-
-    ptr = find_request(request);
-    if (ptr == (CTL_MSG *) 0) {
-       insert_table(request,response);
-       response->answer = announce(request, hp->h_name);
-    } else if (request->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 = response->id_num = new_id();
-       response->answer = announce(request, hp->h_name);
-    } else {
-           /* a duplicated request, so ignore it */
-       response->id_num = ptr->id_num;
-       response->answer = SUCCESS;
-    }
-
-    return;
+       result = find_user(mp->r_name, mp->r_tty);
+       if (result != SUCCESS) {
+               rp->answer = result;
+               return;
+       }
+#define        satosin(sa)     ((struct sockaddr_in *)(sa))
+       hp = gethostbyaddr((char *)&satosin(&mp->ctl_addr)->sin_addr,
+               sizeof (struct in_addr), AF_INET);
+       if (hp == (struct hostent *)0) {
+               rp->answer = MACHINE_UNKNOWN;
+               return;
+       }
+       ptr = find_request(mp);
+       if (ptr == (CTL_MSG *) 0) {
+               insert_table(mp, rp);
+               rp->answer = announce(mp, hp->h_name);
+               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, hp->h_name);
+       } else {
+               /* a duplicated request, so ignore it */
+               rp->id_num = htonl(ptr->id_num);
+               rp->answer = SUCCESS;
+       }

 }
 
 #include <utmp.h>
 }
 
 #include <utmp.h>


@@ -122,34 +175,45 @@ CTL_RESPONSE *response;
 /*
  * Search utmp for the local user
  */
 /*
  * Search utmp for the local user
  */

-

 find_user(name, tty)
 find_user(name, tty)

-char *name;
-char *tty;
+       char *name, *tty;

 {
 {

-    struct utmp ubuf;
-
-    int fd;
-
-    if ((fd = open("/etc/utmp", 0)) == -1) {
-       print_error("Can't open /etc/utmp");
-       return(FAILED);
-    }
-
-    while (read(fd, (char *) &ubuf, sizeof ubuf) == sizeof(ubuf)) {
-       if (strncmp(ubuf.ut_name, name, sizeof ubuf.ut_name) == 0) {
-           if (*tty == '\0') {
-                   /* no particular tty was requested */
-               (void) strcpy(tty, ubuf.ut_line);
-               close(fd);
-               return(SUCCESS);
-           } else if (strcmp(ubuf.ut_line, tty) == 0) {
-               close(fd);
-               return(SUCCESS);
-           }
+       struct utmp ubuf;
+       int status;
+       FILE *fd;
+       struct stat statb;
+       char line[sizeof(ubuf.ut_line) + 1];
+       char ftty[sizeof(_PATH_DEV) - 1 + sizeof(line)];
+
+       if ((fd = fopen(_PATH_UTMP, "r")) == NULL) {
+               fprintf(stderr, "talkd: can't read %s.\n", _PATH_UTMP);
+               return (FAILED);

        }
        }

-    }
-
-    close(fd);
-    return(NOT_HERE);
+#define SCMPN(a, b)    strncmp(a, b, sizeof (a))
+       status = NOT_HERE;
+       (void) strcpy(ftty, _PATH_DEV);
+       while (fread((char *) &ubuf, sizeof ubuf, 1, fd) == 1)
+               if (SCMPN(ubuf.ut_name, name) == 0) {
+                       strncpy(line, ubuf.ut_line, sizeof(ubuf.ut_line));
+                       line[sizeof(ubuf.ut_line)] = '\0';
+                       if (*tty == '\0') {
+                               status = PERMISSION_DENIED;
+                               /* no particular tty was requested */
+                               (void) strcpy(ftty + sizeof(_PATH_DEV) - 1,
+                                   line);
+                               if (stat(ftty, &statb) == 0) {
+                                       if (!(statb.st_mode & 020))
+                                               continue;
+                                       (void) strcpy(tty, line);
+                                       status = SUCCESS;
+                                       break;
+                               }
+                       }
+                       if (strcmp(line, tty) == 0) {
+                               status = SUCCESS;
+                               break;
+                       }
+               }
+       fclose(fd);
+       return (status);

 }
 }