jchvr@ihlpg.UUCP (VanRietschote) (01/07/86)
--
dynakey will allow you to use a background process to dynamically
change the contents of your programmable function key labels when
certain events happen (example: arriving of mail, netnews, rje-stuff).
As distributed it works only on hp2392 terminls but very little is needed
to make it work on other terms. which have programmable function key labels.
Feel free to use or abuse this program at your own risk.
for more info see next newsitem with manual page.
#-- cut here ---
/* dynakey.c -*-update-version-*-
** to activate background work and output to HP2392 labels
** HFVR VERSION=Wed Dec 11 07:51:21 1985
*/
#include <stdio.h>
#include <time.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <string.h>
#include <errno.h>
#define MAXKEYS 8
typedef enum {FALSE,TRUE} BOOL;
typedef struct act /* activity record */
{ char *watch; /* file to watch */
char *onmsg; /* message if file is on */
char *offmsg; /* msg if file is off */
int key; /* key to display to */
BOOL beep; /* TRUE then beep if changed */
BOOL BEEP; /* TRUE then beep if diff. label */
int sleepfor; /* length of sleep in sec */
long nexttime; /* when to wake up */
struct act *next; /* ptr to next act */
long mtime; /* modification time of file */
} ACT;
struct utimbuf *null = NULL; /* for setting read access time /dev/tty */
char terminal[32]; /* terminal name */
int minsleep; /* minimum of all sleepfor */
long NOW; /* start time of program */
char MAILFILE[100];
char NEWSFILE[100];
char NEWSRC[100];
ACT *root = NULL; /* root of activities */
char forward[] = "Forward to "; /* used for mail */
char NAME[] = "dynakey";
BOOL dflag = FALSE; /* debug flag */
int fflag = 1; /* default function=1 */
int sflag = 60; /* default seconds to wait=60 */
char *keys[MAXKEYS+1] = {"XXXXXXXXXXXXXXXX", /* key labels */
"XXXXXXXXXXXXXXXX",
"XXXXXXXXXXXXXXXX",
"XXXXXXXXXXXXXXXX",
"XXXXXXXXXXXXXXXX",
"XXXXXXXXXXXXXXXX",
"XXXXXXXXXXXXXXXX",
"XXXXXXXXXXXXXXXX",
"XXXXXXXXXXXXXXXX",
};
int min(i,j)
{
if ( i < j) return (i);
return(j);
}/*min*/
int max(i,j)
{
if ( i > j ) return (i);
return(j);
}/*max*/
/* fsize: return size of file or 0 if file not stat'able */
long fsize(file)
char file[];
{
struct stat filbuf; /* file desc */
/* treat special files first */
if ( strcmp(file,"NETNEWS") == 0 ) return(1L);
if ( strcmp(file,"TIME" ) == 0 ) return(1L);
if ( strcmp(file,"MAIL" ) == 0 ) file = MAILFILE;
if ( stat(file,&filbuf) == -1 ) return(0L);
return((long)filbuf.st_size);
}/*fsize*/
/* mtime: return mtime of file or 0 if file not stat'able */
long mtime(file)
char file[];
{ extern long time();
struct stat filbuf; /* file desc */
/* treat special files first */
if ( strcmp(file,"NETNEWS") == 0 ) file = NEWSFILE;
if ( strcmp(file,"TIME" ) == 0 ) return(time(0));
if ( strcmp(file,"MAIL" ) == 0 ) file = MAILFILE;
if ( stat(file,&filbuf) == -1 ) return(0L) ;/* file not exist or not read */
return((long)filbuf.st_mtime);
}/*mtime*/
/* TIME: return pointer to \0 terminated string with HH:MM in it */
char *TIME()
{ extern long time();
extern struct tm *localtime();
struct tm *local;
long seconds;
static char times[6];
seconds = time(0);
local = localtime(&seconds);
sprintf(times,"%2d:%.2d",local->tm_hour,local->tm_min);
return(times);
}/*TIME*/
/*SIZE: return \0 terminated string with size in it %ld */
char *SIZE(file)
char file[];
{ static char sizes[12];
sprintf(sizes,"%8ld",fsize(file));
return(sizes);
}/*SIZE*/
/*MTIME: return \0 terminated string with mtime in it HH:MM */
char *MTIME(file)
char file[];
{ static char times[6];
struct stat filbuf; /* file desc */
time_t mtime1;
extern struct tm *localtime();
struct tm *local;
/* treat special cases */
if ( strcmp(file,"TIME" ) == 0 ) return(TIME());
if ( strcmp(file,"MAIL" ) == 0 ) file = MAILFILE;
if ( strcmp(file,"NETNEWS" ) == 0 ) file = NEWSFILE;
if ( stat(file,&filbuf) == -1 ) {
strcpy(times,"??:??");
return(times);
}
mtime1 = filbuf.st_mtime;
local = localtime(&mtime1);
sprintf(times,"%2d:%.2d",local->tm_hour,local->tm_min);
return(times);
}/*MTIME*/
/* newactivity: returns ptr to new intialized activity record */
ACT *newactivity()
{ ACT *ptr;
extern ACT *malloc();
static char EMPTY[] = ""; /* empty string */
extern long time();
ptr = malloc(sizeof(ACT));
if ( ptr == NULL ) {
fprintf(stderr,"\007%s: Out of memory. Aborting.\n",NAME);
exit(1);
}
ptr->watch = EMPTY;
ptr->onmsg = EMPTY;
ptr->offmsg = EMPTY;
ptr->key = fflag; /* default */
ptr->beep = FALSE;
ptr->BEEP = FALSE;
ptr->sleepfor = sflag;
ptr->nexttime = NOW;
ptr->next = NULL;
ptr->mtime = 0L;
return(ptr);
}/*newactivity*/
/* checkTERM: see if TERM=hp2392 */
/* exit if not good */
void checkTERM()
{
if ( strcmp("hp2392",getenv("TERM")) != 0 ) {
fprintf(stderr,"\007%s : ERROR : you are not a hp2392 terminal\n",NAME);
exit(1);
}/*fi*/
strcpy(terminal,getenv("LOGTTY"));
}/*checkTERM*/
void init()
{ extern long time();
checkTERM();
NOW = time(0);
/* MAILFILE=/usr/mail/$LOGNAME */
strcpy(MAILFILE,"/usr/mail/");
strcat(MAILFILE,getenv("LOGNAME"));
/* NEWSFILE=$TOOLS/lib/netnews/history */
strcpy(NEWSFILE,getenv("TOOLS"));
strcat(NEWSFILE,"/lib/netnews/history");
/* NEWSRC=$HOME/.newsrc */
strcpy(NEWSRC,getenv("HOME"));
strcat(NEWSRC,"/.newsrc");
root = NULL;
}/*init*/
/*usage: */
void usage()
{
fprintf(stderr,"\007Usage: %s { -w -l [-L] [-b] [-B] -f [-s] }* -dV\n",NAME);
fprintf(stderr,"Where: -w <file> to watch\n");
fprintf(stderr," Special watches are: TIME, MAIL, NETNEWS\n");
fprintf(stderr," -l <label> to display if file changed\n");
fprintf(stderr," -L <label> to display when file empty\n");
fprintf(stderr," Special in labels are %T (current time)\n");
fprintf(stderr," and %M (modification time)\n");
fprintf(stderr," -b to beep twice if file changes\n");
fprintf(stderr," -B to beep twice if label changes\n");
fprintf(stderr," -f <key> to display output on\n");
fprintf(stderr," -s <seconds> to wait between checks\n");
fprintf(stderr," -d debug mode\n");
fprintf(stderr," -V display version and exit\n");
}/*usage*/
void debug()
{
ACT *ptr;
ptr = root;
while (ptr != NULL) {
printf("--ENTRY--\n");
printf("watch = %s\n",ptr->watch);
printf("onmsg = %s\n",ptr->onmsg);
printf("offmsg= %s\n",ptr->offmsg);
printf("key = %d\n",ptr->key);
printf("beep = %d\n",ptr->beep);
printf("BEEP = %d\n",ptr->BEEP);
printf("sleep = %d\n",ptr->sleepfor);
printf("nxttim= %ld\n",ptr->nexttime);
printf("next = %d\n",ptr->next);
printf("mtime = %d\n",ptr->mtime);
printf("\n");
ptr = ptr->next;
}
}/*debug*/
/* parseoptions: parses all command line options */
parseoptions(argc,argv)
int argc;
char *argv[];
{
int ch;
extern char *optarg;
extern int optind;
int err = 0;
ACT *ptr;
while ((ch=getopt(argc,argv,"Vw:l:L:f:bBs:d")) != EOF) {
switch (ch) {
case 'V': printf("%s: version 1.01\n",NAME);
exit(0);
break;
case 'w': ptr = root;
root = newactivity();
root->next = ptr;
root->watch = optarg;
break;
case 'l': if (root == NULL) root = newactivity();
root->onmsg = optarg;
break;
case 'L': if (root == NULL) root = newactivity();
root->offmsg = optarg;
break;
case 'f': if (root == NULL) root = newactivity();
sscanf(optarg,"%d",&fflag);
if ( (fflag < 1) || (fflag > 8)) {
fflag = 1;
fprintf(stderr,"\007%s: -f must be in range 1-8\n",NAME);
exit(1);
}/*fi*/
root->key = fflag;
break;
case 'b': if (root == NULL) root = newactivity();
root->beep = TRUE;
break;
case 'B': if (root == NULL) root = newactivity();
root->BEEP = TRUE;
break;
case 's': sscanf(optarg,"%d",&sflag);
if ((sflag < 1)) {
sflag = 60;
fprintf(stderr,"\007%s: -s must be > 0\n",NAME);
exit(1);
}/*fi*/
if (root == NULL) root = newactivity();
root->sleepfor = sflag;
break;
case 'd': dflag = TRUE;
break;
case '?': err++;
break;
}/*switch*/
}/*while*/
if (dflag) debug();
if (err) {
usage();
exit(1);
}
}/*parseoptions*/
/* chkparent: checks to see if parent process still alive
** if not kills this process
*/
void chkparent()
{
if ( getppid() == 1 ) {
exit(1);
}
}/*chkparent*/
/*beep: to beep twice with one second interval */
beep()
{
putc('\007',stderr); fflush(stderr);
sleep(1); /* enjoy it */
putc('\007',stderr); fflush(stderr);
}/*beep*/
/*command: return ptr to string with result of cmd */
char *command(cmd)
char cmd[];
{ static char result[18];
extern FILE *popen();
FILE *input; /* pipe for comd */
input = popen(cmd,"r");
fgets(result,sizeof result,input);
pclose(input);
result[max(0,strlen(result)-1)] = '\0'; /* take of CR */
return(result);
}/*command*/
/*msg: format txt string */
char *msg(txt,file)
char *txt;
char file[];
{ static char out[1024];
char cmd[1024];
int i;
int j;
int k;
int ptr;
i = 0;
j = 0;
out[i] = '\0';
while (txt[j] != '\0') {
switch (txt[j]) {
case '`': j++; /* skip past ` */
k = 0; /* copy until ` */
while ( (txt[j] != '`') && (txt[j] != '\0') ) {
cmd[k] = txt[j] ;
k++; j++;
}
cmd[k] = '\0';
strcat(out,command(cmd));
i = strlen(out); if (txt[j] != '\0') j++;
break;
case '%': j++;
switch(txt[j]) {
case 'T': strcat(out,TIME());
i = strlen(out); j++;
out[i] = '\0';
break;
case 'M': strcat(out,MTIME(file));
i = strlen(out); j++;
out[i] = '\0';
break;
case 'S': strcat(out,SIZE(file));
i = strlen(out); j++;
out[i] ='\0';
break;
case '\0': break;
default: out[i] = txt[j];
i++; j++;
out[i] = '\0';
break;
}/*switch*/
break;
default : out[i] = txt[j];
i++; j++;
out[i] = '\0';
break;
}/*switch*/
}/*while*/
return(out);
}/*msg*/
/* setread: changes last read access time of terminal
** figure this one out Sikke
*/
setread()
{
utime(terminal,null);
}/*setread*/
/*setkey: will set key label if not already set */
/* setting label to EMPTY means do not change */
setkey(ptr,key,txt)
ACT *ptr;
int key;
char *txt;
{ char output[128];
txt[16] = '\0'; /* truncate at 16 char */
if ( txt[0] == '\0' ) return(0); /* empty means do not change */
if ( strcmp(keys[key],txt) == 0) return(0);
strcpy(keys[key],txt);
if (ptr->BEEP) beep(); /* beep if diff label */
sprintf(output,"\033&f%dk%dd0L%s\033&jB", key,
strlen(txt),
txt);
write(2,output,strlen(output));
setread(); /* to change last read access on terminal */
}/*setkey*/
/*netnews: return true if netnews */
BOOL netnews()
{
if ( mtime(NEWSRC) < mtime(NEWSFILE) ) return(TRUE);
return(FALSE);
}/*netnews*/
/* mail: return TRUE if mail is waiting */
BOOL mail()
{ char line[sizeof(forward)];
int f1; /* to read mailfile */
if (fsize(MAILFILE) == 0) return(FALSE);
/* so it exists now check if not forwarded */
f1 = open(MAILFILE,0);
if ( f1 == -1 ) return(TRUE);
line[0] = '\0';
read(f1, line, sizeof(line) );
line[sizeof(line)-1] = '\0';
close(f1);
if ( strncmp(line,forward,sizeof(forward)) == 0 ) {
return(FALSE);
} else {
return(TRUE);
}
}/*mail*/
/*changed: return TRUE if file has changed and size > 0 */
BOOL changed(ptr)
ACT *ptr;
{ long mtime1;
long oldmtime;
/* update mtime nad beep if need be */
oldmtime = ptr->mtime;
mtime1 = mtime(ptr->watch);
ptr->mtime = mtime1;
if ((mtime1 != oldmtime) && (fsize(ptr->watch) > 0L) && (ptr->beep)) beep();
/* check on special files first */
if ( strcmp(ptr->watch,"TIME") == 0 ) return(TRUE);
if ( strcmp(ptr->watch,"NETNEWS") == 0 ) return(netnews());
if ( strcmp(ptr->watch,"MAIL") == 0 ) return(mail());
if ( (mtime1 != oldmtime) && (fsize(ptr->watch) > 0L) ) return(TRUE);
return(FALSE);
}/*changed*/
/*workon: to work on one activity */
void workon(ptr)
ACT *ptr;
{
if (changed(ptr)) {
setkey(ptr,ptr->key,msg(ptr->onmsg,ptr->watch));
} else {
setkey(ptr,ptr->key,msg(ptr->offmsg,ptr->watch));
}
}/*workon*/
/* doit: actual loop that does all work */
void doit()
{ ACT *ptr;
extern long time();
NOW = time(0);
ptr = root;
while (ptr != NULL) { /* workon if slept enough */
if ( ptr->nexttime <= NOW ) {
workon(ptr); /* and then update nexttime */
ptr->nexttime = ptr->nexttime + ptr->sleepfor;
}
ptr = ptr->next;
}/*while*/
}/*doit*/
/*minsleep: compute minsleep= min of all sleepfor */
void setminsleep()
{ ACT *ptr;
minsleep = sflag;
ptr = root;
while ( ptr != NULL ) {
minsleep = min(minsleep,ptr->sleepfor);
ptr = ptr->next;
}
}/*setminsleep*/
/*setmtime: to init mtime fields first time around */
setmtime()
{ ACT *ptr;
ptr = root;
while ( ptr != NULL) {
ptr->mtime = mtime(ptr->watch);
ptr = ptr->next;
}
}/*setmtime*/
main(argc,argv)
int argc;
char *argv[];
{ long sec;
extern long time();
long i;
long nexttime;
init();
parseoptions(argc,argv);
setminsleep();
setmtime();
for (;;) { /* FOR EVER */
sec = time(0);
chkparent();
doit();
i = sec + minsleep - time(0);
sleep (max(0,i));
}
}/*main*/