adding zephyr-im master branch
This commit is contained in:
56
clients/znol/Makefile.in
Normal file
56
clients/znol/Makefile.in
Normal file
@ -0,0 +1,56 @@
|
||||
SHELL=@SHELL@
|
||||
|
||||
prefix=@prefix@
|
||||
exec_prefix=@exec_prefix@
|
||||
datadir=@datadir@
|
||||
sysconfdir=@sysconfdir@
|
||||
sbindir=@sbindir@
|
||||
lsbindir=@lsbindir@
|
||||
datarootdir=@datarootdir@
|
||||
|
||||
includedir=@includedir@
|
||||
mandir=@mandir@
|
||||
libdir=@libdir@
|
||||
bindir=@bindir@
|
||||
top_builddir=../..
|
||||
|
||||
srcdir=@srcdir@
|
||||
top_srcdir=@top_srcdir@
|
||||
BUILDTOP=../..
|
||||
VPATH=@srcdir@
|
||||
LIBTOOL=@LIBTOOL@
|
||||
CC=@CC@
|
||||
INSTALL=@INSTALL@
|
||||
|
||||
LIBZEPHYR=${BUILDTOP}/lib/libzephyr.la
|
||||
CPPFLAGS=@CPPFLAGS@
|
||||
CFLAGS=@CFLAGS@
|
||||
ALL_CFLAGS=${CFLAGS} -I${top_srcdir}/h -I${BUILDTOP}/h ${CPPFLAGS}
|
||||
LDFLAGS=@LDFLAGS@
|
||||
LIBS=${LIBZEPHYR} @LIBS@ -lcom_err
|
||||
|
||||
OBJS= znol.o
|
||||
|
||||
all: znol
|
||||
|
||||
znol: ${OBJS} ${LIBZEPHYR}
|
||||
${LIBTOOL} --mode=link ${CC} ${LDFLAGS} -o $@ ${OBJS} ${LIBS}
|
||||
|
||||
.c.o:
|
||||
${CC} -c ${ALL_CFLAGS} $<
|
||||
|
||||
check:
|
||||
|
||||
install: znol
|
||||
${LIBTOOL} --mode=install ${INSTALL} -m 755 znol ${DESTDIR}${bindir}
|
||||
${INSTALL} -m 644 ${srcdir}/znol.1 ${DESTDIR}${mandir}/man1
|
||||
|
||||
clean:
|
||||
${LIBTOOL} --mode=clean rm -f znol
|
||||
rm -f ${OBJS}
|
||||
|
||||
${OBJS}: ${top_srcdir}/h/sysdep.h ${BUILDTOP}/h/config.h
|
||||
${OBJS}: ${BUILDTOP}/h/zephyr/zephyr.h ${BUILDTOP}/h/zephyr/zephyr_err.h
|
||||
|
||||
.PHONY: all check install clean
|
||||
|
||||
109
clients/znol/znol.1
Normal file
109
clients/znol/znol.1
Normal file
@ -0,0 +1,109 @@
|
||||
.\" $Id$
|
||||
.\"
|
||||
.\" Copyright 1987,1988 by the Massachusetts Institute of Technology
|
||||
.\" All rights reserved. The file /usr/include/zephyr/mit-copyright.h
|
||||
.\" specifies the terms and conditions for redistribution.
|
||||
.\"
|
||||
.\" @(#)znol.1 6.1 (MIT) 7/9/87
|
||||
.\"
|
||||
.TH ZNOL 1 "July 1, 1988" "MIT Project Athena"
|
||||
.ds ]W MIT Project Athena
|
||||
.SH NAME
|
||||
znol \- notify via Zephyr upon login or logout of interesting people
|
||||
.SH SYNOPSIS
|
||||
.B znol
|
||||
[
|
||||
.BI on|off
|
||||
] [
|
||||
.BI \-f \ file
|
||||
] [
|
||||
.BI \-u \ username
|
||||
] [
|
||||
.BI \-l
|
||||
] [
|
||||
.BI \-q
|
||||
]
|
||||
.SH DESCRIPTION
|
||||
.I Znol
|
||||
provides a way for you to be notified when "interesting" people log in
|
||||
or out. It uses the
|
||||
.I Zephyr(1)
|
||||
Notification Service, which causes a message to appear on your screen
|
||||
for every person specified in a namelist (which defaults to
|
||||
$HOME/.anyone). The namelist should have one login name per line. Any
|
||||
line starting with `#' is considered a comment and ignored.
|
||||
Anyone in the namelist who is logged in when
|
||||
.I znol
|
||||
is executed is printed to stdout. The control arguments are as
|
||||
follows:
|
||||
.TP 12
|
||||
.B on|off
|
||||
Turns notification on or off.
|
||||
.TP
|
||||
.B \-f
|
||||
The namelist file is taken to be
|
||||
.I file.
|
||||
If
|
||||
.I file
|
||||
is "-", then the standard input is used instead of a file. If
|
||||
.I file
|
||||
does not exist, an error message is printed, and
|
||||
.I znol
|
||||
exits.
|
||||
This option may not be used in conjunction with the
|
||||
.B \-u
|
||||
option.
|
||||
.TP
|
||||
.B \-l
|
||||
Causes
|
||||
.I znol
|
||||
to just list the people in the namelist who are currently logged in,
|
||||
without subscribing to the login messages. This option may not be used
|
||||
in conjunction with the
|
||||
.BI \-q
|
||||
option.
|
||||
.TP
|
||||
.B \-q
|
||||
Disables printing who is currently logged in when subscribing. This
|
||||
option may not be used in conjunction with the
|
||||
.BI \-l
|
||||
option.
|
||||
.TP
|
||||
.B \-u
|
||||
Instead of reading a file to specify the "interesting" users, the next
|
||||
argument is used as the only "interesting" user. This option may not be
|
||||
used in conjunction with the
|
||||
.B \-f
|
||||
option.
|
||||
.SH EXAMPLES
|
||||
.nf
|
||||
.in +.5in
|
||||
znol
|
||||
.in -.5in
|
||||
.fi
|
||||
reads the standard namelist file, prints the locations of any users
|
||||
named therein which can be found on the system, and enters subscriptions
|
||||
for notices about those users.
|
||||
.nf
|
||||
.in +.5in
|
||||
znol \-l \-u foo
|
||||
.in -.5in
|
||||
.fi
|
||||
prints the location (if visible) of the user 'foo'.
|
||||
.SH FILES
|
||||
$HOME/.anyone
|
||||
.SH SEE ALSO
|
||||
anyone(SIPB), nol(SIPB), zctl(1), zephyr(1), zwgc(1), zhm(8), zephyrd(8)
|
||||
.br
|
||||
Project Athena Technical Plan Section E.4.1, `Zephyr Notification
|
||||
Service'
|
||||
.SH AUTHOR
|
||||
.PP
|
||||
Robert S. French (MIT-Project Athena)
|
||||
.sp
|
||||
.SH RESTRICTIONS
|
||||
Copyright (c) 1987,1988 by the Massachusetts Institute of Technology.
|
||||
All Rights Reserved.
|
||||
.br
|
||||
.I zephyr(1)
|
||||
specifies the terms and conditions for redistribution.
|
||||
256
clients/znol/znol.c
Normal file
256
clients/znol/znol.c
Normal file
@ -0,0 +1,256 @@
|
||||
/* This file is part of the Project Athena Zephyr Notification System.
|
||||
* It contains code for the "znol" command.
|
||||
*
|
||||
* Created by: Robert French
|
||||
*
|
||||
* $Id$
|
||||
*
|
||||
* Copyright (c) 1987 by the Massachusetts Institute of Technology.
|
||||
* For copying and distribution information, see the file
|
||||
* "mit-copyright.h".
|
||||
*/
|
||||
|
||||
#include <sysdep.h>
|
||||
#include <zephyr/zephyr.h>
|
||||
|
||||
#include <pwd.h>
|
||||
|
||||
#ifndef lint
|
||||
static const char rcsid_znol_c[] = "$Id$";
|
||||
#endif
|
||||
|
||||
#define SUBSATONCE 7
|
||||
#define ON 1
|
||||
#define OFF 0
|
||||
|
||||
int
|
||||
main(int argc, char *argv[])
|
||||
{
|
||||
register char *cp;
|
||||
char *realm;
|
||||
ZSubscription_t subs[SUBSATONCE];
|
||||
ZLocations_t locations;
|
||||
FILE *fp = NULL;
|
||||
struct passwd *pwd;
|
||||
char anyonename[BUFSIZ],name[BUFSIZ],cleanname[BUFSIZ],*envptr;
|
||||
char *comment_ptr;
|
||||
int onoff = ON,quiet = 0,justlist = 0,useronly = 0, filenamed = 0;
|
||||
int retval,arg,ind,one,numlocs,i;
|
||||
int wgport = 0;
|
||||
|
||||
if ((retval = ZInitialize()) != ZERR_NONE) {
|
||||
com_err(argv[0],retval,"initializing");
|
||||
exit (1);
|
||||
}
|
||||
|
||||
for (arg=1;arg<argc;arg++) {
|
||||
if (!strcmp(argv[arg],"on")) {
|
||||
onoff = ON;
|
||||
continue;
|
||||
}
|
||||
if (!strcmp(argv[arg],"off")) {
|
||||
onoff = OFF;
|
||||
continue;
|
||||
}
|
||||
if (argv[arg][0] == '-') {
|
||||
char opt = argv[arg][1];
|
||||
if (opt == 0 || argv[arg][2] != 0)
|
||||
goto usage;
|
||||
switch (argv[arg][1]) {
|
||||
case 'q':
|
||||
quiet = 1;
|
||||
break;
|
||||
case 'l':
|
||||
justlist = 1;
|
||||
break;
|
||||
case 'f':
|
||||
if (arg == argc-1) {
|
||||
fprintf(stderr,"No file name specified\n");
|
||||
goto usage;
|
||||
}
|
||||
(void) strcpy(anyonename,argv[++arg]);
|
||||
filenamed = 1;
|
||||
break;
|
||||
case 'u':
|
||||
if (arg == argc-1) {
|
||||
fprintf(stderr,"No username specified\n");
|
||||
goto usage;
|
||||
}
|
||||
(void) strcpy(cleanname,argv[++arg]);
|
||||
useronly = 1;
|
||||
break;
|
||||
default:
|
||||
goto usage;
|
||||
}
|
||||
continue;
|
||||
}
|
||||
usage:
|
||||
fprintf(stderr,"Usage: %s [on|off] [-q | -l] [-f file | -u username]\n", argv[0]);
|
||||
exit (1);
|
||||
}
|
||||
|
||||
if (quiet && justlist) {
|
||||
fprintf(stderr,"-q and -l cannot both be used\n");
|
||||
goto usage;
|
||||
}
|
||||
if (useronly && filenamed) {
|
||||
fprintf(stderr,"-u and -f cannot both be used\n");
|
||||
goto usage;
|
||||
}
|
||||
if (!justlist)
|
||||
if ((wgport = ZGetWGPort()) == -1) {
|
||||
com_err(argv[0],errno,"while getting WindowGram port");
|
||||
exit(1);
|
||||
}
|
||||
|
||||
if (!useronly) {
|
||||
/* If no filename specified, get the default */
|
||||
if (!filenamed) {
|
||||
envptr = getenv("HOME");
|
||||
if (envptr)
|
||||
(void) strcpy(anyonename,envptr);
|
||||
else {
|
||||
if (!(pwd = getpwuid((int) getuid()))) {
|
||||
fprintf(stderr,"You are not listed in the password file.\n");
|
||||
exit (1);
|
||||
}
|
||||
(void) strcpy(anyonename,pwd->pw_dir);
|
||||
}
|
||||
(void) strcat(anyonename,"/.anyone");
|
||||
}
|
||||
|
||||
/* if the filename is "-", read stdin */
|
||||
if (strcmp(anyonename,"-") == 0) {
|
||||
fp = stdin;
|
||||
} else if (!(fp = fopen(anyonename,"r"))) {
|
||||
fprintf(stderr,"Can't open %s for input\n",anyonename);
|
||||
exit (1);
|
||||
}
|
||||
}
|
||||
|
||||
ind = 0;
|
||||
|
||||
for (;;) {
|
||||
if (!useronly) {
|
||||
if (!fgets(cleanname,sizeof cleanname,fp))
|
||||
break;
|
||||
if (cleanname[0] == '#' || cleanname[0] == '\0' ||
|
||||
cleanname[0] == '\n')
|
||||
continue; /* ignore comment and empty lines */
|
||||
comment_ptr = strchr(cleanname, '#');
|
||||
if (comment_ptr)
|
||||
*comment_ptr = '\0'; /* Ignore from # onwards */
|
||||
/* Get rid of old-style nol entries, just in case */
|
||||
cp = cleanname + strlen(cleanname) - 1;
|
||||
*cp = '\0';
|
||||
while(*--cp == ' ')
|
||||
*cp = '\0';
|
||||
if (*cleanname == '@' || !*cleanname)
|
||||
continue;
|
||||
} else if (ind)
|
||||
break; /* only do the one name */
|
||||
|
||||
subs[ind].zsub_class = LOGIN_CLASS;
|
||||
(void) strcpy(name,cleanname);
|
||||
if (!strchr(name,'@')) {
|
||||
cp = name + strlen(name);
|
||||
*cp++ = '@';
|
||||
(void) strcpy(cp,ZGetRealm());
|
||||
}
|
||||
cp = strchr(name,'@');
|
||||
if (cp[0] && strcmp(cp+1,ZGetRealm())) {
|
||||
realm = cp + 1;
|
||||
*cp = '\0';
|
||||
if ((subs[ind].zsub_classinst =
|
||||
malloc((unsigned)(strlen(name) + strlen(realm) + 2)))
|
||||
== NULL)
|
||||
{
|
||||
fprintf (stderr, "znol: out of memory");
|
||||
exit (1);
|
||||
}
|
||||
(void) sprintf(subs[ind].zsub_classinst, "%s@%s", name,
|
||||
realm);
|
||||
(void) strcpy(name, subs[ind].zsub_classinst);
|
||||
if ((subs[ind].zsub_recipient =
|
||||
malloc((unsigned)(strlen(realm)+2))) == NULL) {
|
||||
fprintf (stderr, "znol: out of memory");
|
||||
exit (1);
|
||||
}
|
||||
(void) sprintf(subs[ind++].zsub_recipient, "@%s", realm);
|
||||
} else {
|
||||
if ((subs[ind].zsub_classinst =
|
||||
malloc((unsigned)(strlen(name)+1))) == NULL)
|
||||
{
|
||||
fprintf (stderr, "znol: out of memory");
|
||||
exit (1);
|
||||
}
|
||||
(void) strcpy(subs[ind].zsub_classinst, name);
|
||||
subs[ind++].zsub_recipient = "";
|
||||
}
|
||||
|
||||
if (!quiet && onoff == ON) {
|
||||
if ((retval = ZLocateUser(name,&numlocs,ZAUTH))
|
||||
!= ZERR_NONE) {
|
||||
com_err(argv[0],retval,"locating user");
|
||||
exit(1);
|
||||
}
|
||||
one = 1;
|
||||
if (numlocs) {
|
||||
for (i=0;i<numlocs;i++) {
|
||||
if ((retval =
|
||||
ZGetLocations(&locations,&one))
|
||||
!= ZERR_NONE) {
|
||||
com_err(argv[0],retval,
|
||||
"getting location");
|
||||
continue;
|
||||
}
|
||||
if (one != 1) {
|
||||
printf("%s: internal failure while getting location\n",argv[0]);
|
||||
exit(1);
|
||||
}
|
||||
printf("%s: %s\t%s\t%s\n",cleanname,
|
||||
locations.host,
|
||||
locations.tty,
|
||||
locations.time);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if (ind == SUBSATONCE) {
|
||||
if (!justlist)
|
||||
if ((retval = (onoff==ON)?
|
||||
ZSubscribeToSansDefaults(subs,ind,
|
||||
(u_short)wgport):
|
||||
ZUnsubscribeTo(subs,ind,(u_short)wgport)) !=
|
||||
ZERR_NONE) {
|
||||
com_err(argv[0],retval,(onoff==ON)?
|
||||
"subscribing":
|
||||
"unsubscribing");
|
||||
exit(1);
|
||||
}
|
||||
for (ind=0;ind<SUBSATONCE;ind++)
|
||||
{
|
||||
if (subs[ind].zsub_recipient[0] != '\0')
|
||||
free(subs[ind].zsub_recipient);
|
||||
free(subs[ind].zsub_classinst);
|
||||
}
|
||||
ind = 0;
|
||||
}
|
||||
}
|
||||
|
||||
if (ind && !justlist)
|
||||
if ((retval = (onoff==ON)?
|
||||
ZSubscribeToSansDefaults(subs,ind,(u_short)wgport):
|
||||
ZUnsubscribeTo(subs,ind,(u_short)wgport)) !=
|
||||
ZERR_NONE) {
|
||||
com_err(argv[0],retval,(onoff==ON)?
|
||||
"subscribing":
|
||||
"unsubscribing");
|
||||
exit(1);
|
||||
}
|
||||
|
||||
if (!useronly)
|
||||
(void) fclose(fp); /* file is open read-only,
|
||||
ignore errs */
|
||||
exit(0);
|
||||
}
|
||||
Reference in New Issue
Block a user