This commit is contained in:
Andrey A. Chernov 1995-04-12 02:42:39 +00:00
parent fa877a53cb
commit b89321a57d
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=7767
12 changed files with 1165 additions and 576 deletions

View File

@ -1,7 +1,9 @@
# $Id: Makefile,v 1.1 1993/12/05 11:35:35 cgd Exp $
# $Id: Makefile,v 1.1 1994/01/05 01:08:51 nate Exp $
.include "${.CURDIR}/Makefile.inc"
PROG= at
SRCS= at.c panic.c parsetime.c
SRCS= at.c panic.c parsetime.c perm.c
LINKS= ${BINDIR}/at ${BINDIR}/atq \
${BINDIR}/at ${BINDIR}/atrm \
${BINDIR}/at ${BINDIR}/batch
@ -11,5 +13,20 @@ MLINKS= at.1 batch.1 \
BINOWN= root
BINMODE= 4555
MANSRC= .
CLEANFILES += ${MAN1}
MANDEPEND = ${MAN1}
.include <bsd.prog.mk>
${MAN1}: at.man
sed -e \
"s@_ATSPOOL_DIR@$(ATSPOOL_DIR)@g; \
s@_ATJOB_DIR@$(ATJOB_DIR)@g; \
s@_DEFAULT_BATCH_QUEUE@$(DEFAULT_BATCH_QUEUE)@g; \
s@_DEFAULT_AT_QUEUE@$(DEFAULT_AT_QUEUE)@g; \
s@_LOADAVG_MX@$(LOADAVG_MX)@g; \
s@_PERM_PATH@$(PERM_PATH)@g; \
s@_LOCKFILE@$(LOCKFILE)@g" \
< $? > $@

19
usr.bin/at/Makefile.inc Normal file
View File

@ -0,0 +1,19 @@
VERSION= 2.7a
LOCKFILE = .lockfile
ATSPOOL_DIR=/var/at/spool
ATJOB_DIR=/var/at/jobs
ATLIB_DIR=/usr/libexec
LOADAVG_MX=1.5
DAEMON_GID=1
DAEMON_UID=1
DEFAULT_BATCH_QUEUE=E
DEFAULT_AT_QUEUE=c
PERM_PATH=/var/at
CFLAGS += -DATJOB_DIR=\"$(ATJOB_DIR)/\" \
-DLFILE=\"$(ATJOB_DIR)/$(LOCKFILE)\" \
-DLOADAVG_MX=$(LOADAVG_MX) -DATSPOOL_DIR=\"$(ATSPOOL_DIR)\" \
-DVERSION=\"$(VERSION)\" -DDAEMON_UID=$(DAEMON_UID) -DDAEMON_GID=$(DAEMON_GID) \
-DDEFAULT_BATCH_QUEUE=\'$(DEFAULT_BATCH_QUEUE)\' \
-DDEFAULT_AT_QUEUE=\'$(DEFAULT_AT_QUEUE)\' -DPERM_PATH=\"$(PERM_PATH)/\"

File diff suppressed because it is too large Load Diff

View File

@ -1,7 +1,6 @@
/*
* at.h - header for at(1)
* Copyright (c) 1993 by Thomas Koenig
* All rights reserved.
/*
* at.h - header for at(1)
* Copyright (C) 1993 Thomas Koenig
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
@ -22,8 +21,6 @@
* THEORY OF LIABILITY, WETHER 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.
*
* $Id: at.h,v 1.1 1993/12/05 11:36:45 cgd Exp $
*/
extern int fcreated;
@ -31,4 +28,4 @@ extern char *namep;
extern char atfile[];
extern char atverify;
#define AT_MAXJOBS 255 /* max jobs outstanding per user */
void *mymalloc(size_t n);

260
usr.bin/at/at.man Normal file
View File

@ -0,0 +1,260 @@
.\" $Id: at.man,v 1.3 1994/06/16 16:49:46 kernel Exp $
.Dd April 12, 1995
.Dt "AT" 1
.Os "FreeBSD 2.1"
.Sh NAME
.Nm at, batch, atq, atrm
.Nd queue, examine or delete jobs for later execution
.Sh SYNOPSIS
.Nm at
.Op Fl V
.Op Fl q Ar queue
.Op Fl f Ar file
.Op Fl mldbv
.Ar time
.Pp
.Nm atq
.Op Fl V
.Op Fl q Ar queue
.Op Fl v
.Pp
.Nm atrm
.Op Fl V
.Ar job
.Op Ar job ...
.Pp
.Nm batch
.Op Fl V
.Op Fl q Ar queue
.Op Fl f Ar file
.Op Fl mv
.Op Ar time
.Sh DESCRIPTION
.Nm At
and
.Nm batch
read commands from standard input or a specified file which are to
be executed at a later time, using
.Xr sh 1 .
.Bl -tag -width indent
.It Nm at
executes commands at a specified time;
.It Nm atq
lists the user's pending jobs, unless the user is the superuser; in that
case, everybody's jobs are listed;
.It Nm atrm
deletes jobs;
.It Nm batch
executes commands when system load levels permit; in other words, when the load average
drops below _LOADAVG_MX, or the value specified in the invocation of
.Nm atrun .
.El
.Pp
.Nm At
allows some moderately complex
.Ar time
specifications. It accepts times of the form
.Ar HHMM
or
.Ar HH:MM
to run a job at a specific time of day.
(If that time is already past, the next day is assumed.)
You may also specify
.Nm midnight ,
.Nm noon ,
or
.Nm teatime
(4pm)
and you can have a time-of-day suffixed with
.Nm AM
or
.Nm PM
for running in the morning or the evening.
You can also say what day the job will be run,
by giving a date in the form
.Ar \%month-name day
with an optional
.Ar year ,
or giving a date of the form
.Ar MMDDYY
or
.Ar MM/DD/YY
or
.Ar DD.MM.YY .
You can also give times like
.Op Nm now
.Nm + Ar count \%time-units ,
where the time-units can be
.Nm minutes ,
.Nm hours ,
.Nm days ,
or
.Nm weeks
and you can tell
.Nm at
to run the job today by suffixing the time with
.Nm today
and to run the job tomorrow by suffixing the time with
.Nm tomorrow.
.Pp
For example, to run a job at 4pm three days from now, you would do
.Nm at 4pm + 3 days ,
to run a job at 10:00am on July 31, you would do
.Nm at 10am Jul 31
and to run a job at 1am tomorrow, you would do
.Nm at 1am tomorrow.
.Pp
For both
.Nm at
and
.Nm batch ,
commands are read from standard input or the file specified
with the
.Fl f
option and executed.
The working directory, the environment (except for the variables
.Nm TERM ,
.Nm TERMCAP ,
.Nm DISPLAY
and
.Nm _ )
and the
.Ar umask
are retained from the time of invocation.
An
.Nm at
or
.Nm batch
command invoked from a
.Xr su 1
shell will retain the current userid.
The user will be mailed standard error and standard output from his
commands, if any. Mail will be sent using the command
.Xr sendmail 8 .
If
.Nm at
is executed from a
.Xr su 1
shell, the owner of the login shell will receive the mail.
.Pp
The superuser may use these commands in any case.
For other users, permission to use at is determined by the files
.Pa _PERM_PATH/at.allow
and
.Pa _PERM_PATH/at.deny .
.Pp
If the file
.Pa _PERM_PATH/at.allow
exists, only usernames mentioned in it are allowed to use
.Nm at .
.Pp
If
.Pa _PERM_PATH/at.allow
does not exist,
.Pa _PERM_PATH/at.deny
is checked, every username not mentioned in it is then allowed
to use
.Nm at .
.Pp
If neither exists, only the superuser is allowed use of
.Nm at .
.Pp
An empty
.Pa _PERM_PATH/at.deny
means that every user is allowed use these commands, this is the
default configuration.
.Sh OPTIONS
.Bl -tag -width indent
.It Fl V
prints the version number to standard error.
.It Fl q Ar queue
uses the specified queue.
A queue designation consists of a single letter; valid queue designations
range from
.Nm a
to
.Nm z .
and
.Nm A
to
.Nm Z .
The
.Nm _DEFAULT_AT_QUEUE
queue is the default for
.Nm at
and the
.Nm _DEFAULT_BATCH_QUEUE
queue for
.Nm batch .
Queues with higher letters run with increased niceness.
If a job is submitted to a queue designated with an uppercase letter, it
is treated as if it had been submitted to batch at that time.
If
.Nm atq
is given a specific queue, it will only show jobs pending in that queue.
.It Fl m
Send mail to the user when the job has completed even if there was no
output.
.It Fl f Ar file
Reads the job from
.Ar file
rather than standard input.
.It Fl l
Is an alias for
.Nm atq.
.It Fl d
Is an alias for
.Nm atrm.
.It Fl b
Is an alias for
.Nm batch.
.It Fl v
For
.Nm atq ,
shows completed but not yet deleted jobs in the queue; otherwise
shows the time the job will be executed.
.Sh FILES
.Bl -tag -width _ATJOB_DIR/_LOCKFILE -compact
.It Pa _ATJOB_DIR
Directory containing job files
.It Pa _ATSPOOL_DIR
Directory containing output spool files
.It Pa /var/run/utmp
Login records
.It Pa _PERM_PATH/at.allow
Allow permission control
.It Pa _PERM_PATH/at.deny
Deny permission control
.It Pa _ATJOB_DIR/_LOCKFILE
Job-creation lock file.
.Sh SEE ALSO
.Xr cron 8 ,
.Xr nice 1 ,
.Xr umask 2 ,
.Xr sh 1 ,
.Xr sendmail 8 ,
.Xr atrun 8 .
.El
.Sh BUGS
.Pp
If the file
.Pa /var/run/utmp
is not available or corrupted, or if the user is not logged on at the
time
.Nm at
is invoked, the mail is sent to the userid found
in the environment variable
.Nm LOGNAME .
If that is undefined or empty, the current userid is assumed.
.Pp
.Nm At
and
.Nm batch
as presently implemented are not suitable when users are competing for
resources.
If this is the case for your site, you might want to consider another
batch system, such as
.Nm nqs .
.Sh AUTHOR
At was mostly written by Thomas Koenig, ig25@rz.uni-karlsruhe.de.
The time parsing routines are by David Parsons, orc@pell.chi.il.us.

View File

@ -1,7 +1,6 @@
/*
* panic.c - terminate fast in case of error
* Copyright (c) 1993 by Thomas Koenig
* All rights reserved.
/*
* panic.c - terminate fast in case of error
* Copyright (C) 1993 Thomas Koenig
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
@ -38,28 +37,26 @@
/* File scope variables */
static char rcsid[] = "$Id: panic.c,v 1.1 1993/12/05 11:36:51 cgd Exp $";
static char rcsid[] = "$Id: panic.c,v 1.1 1994/05/10 18:23:08 kernel Exp $";
/* External variables */
/* Global functions */
void
panic(a)
char *a;
panic(char *a)
{
/* Something fatal has happened, print error message and exit.
*/
fprintf(stderr, "%s: %s\n", namep, a);
fprintf(stderr,"%s: %s\n",namep,a);
if (fcreated)
unlink(atfile);
exit(EXIT_FAILURE);
exit (EXIT_FAILURE);
}
void
perr(a)
char *a;
perr(char *a)
{
/* Some operating system error; print error message and exit.
*/
@ -70,22 +67,14 @@ perr(a)
exit(EXIT_FAILURE);
}
void
perr2(a, b)
char *a, *b;
{
fprintf(stderr, "%s", a);
perr(b);
}
void
usage(void)
{
/* Print usage and exit.
*/
fprintf(stderr, "Usage: at [-q x] [-f file] [-m] time\n"
" atq [-q x] [-v]\n"
" atrm [-q x] job ...\n"
" batch [-f file] [-m]\n");
exit(EXIT_FAILURE);
fprintf(stderr, "Usage: at [-V] [-q x] [-f file] [-m] time\n"
" atq [-V] [-q x] [-v]\n"
" atrm [-V] [-q x] job ...\n"
" batch [-V] [-f file] [-m]\n");
exit(EXIT_FAILURE);
}

View File

@ -1,7 +1,6 @@
/*
* panic.h - header for at(1)
* Copyright (c) 1993 Thomas Koenig
* All rights reserved.
/*
* panic.h - header for at(1)
* Copyright (C) 1993 Thomas Koenig
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
@ -22,11 +21,24 @@
* THEORY OF LIABILITY, WETHER 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.
*
* $Id: panic.h,v 1.1 1993/12/05 11:36:58 cgd Exp $
*/
void panic __P((char *a));
void perr __P((char *a));
void perr2 __P((char *a, char *b));
void usage __P((void));
#ifdef __FreeBSD__
#define __NORETURN
#endif
void
#ifdef __GNUC__
__NORETURN
#endif
panic(char *a);
void
#ifdef __GNUC__
__NORETURN
#endif
perr(char *a);
void
#ifdef __GNUC__
__NORETURN
#endif
usage(void);

View File

@ -1,10 +1,9 @@
/*
* parsetime.c - parse time for at(1)
* Copyright (C) 1993 Thomas Koenig
* parsetime.c - parse time for at(1)
* Copyright (C) 1993, 1994 Thomas Koenig
*
* modifications for english-language times
* Copyright (C) 1993 David Parsons
* All rights reserved.
* modifications for english-language times
* Copyright (C) 1993 David Parsons
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
@ -29,12 +28,14 @@
* at [NOW] PLUS NUMBER MINUTES|HOURS|DAYS|WEEKS
* /NUMBER [DOT NUMBER] [AM|PM]\ /[MONTH NUMBER [NUMBER]] \
* |NOON | |[TOMORROW] |
* |MIDNIGHT | |NUMBER [SLASH NUMBER [SLASH NUMBER]]|
* \TEATIME / \PLUS NUMBER MINUTES|HOURS|DAYS|WEEKS/
* |MIDNIGHT | |[DAY OF WEEK] |
* \TEATIME / |NUMBER [SLASH NUMBER [SLASH NUMBER]]|
* \PLUS NUMBER MINUTES|HOURS|DAYS|WEEKS/
*/
/* System Headers */
#include <sys/types.h>
#include <errno.h>
#include <stdio.h>
@ -43,6 +44,9 @@
#include <time.h>
#include <unistd.h>
#include <ctype.h>
#ifndef __FreeBSD__
#include <getopt.h>
#endif
/* Local headers */
@ -58,51 +62,60 @@ enum { /* symbols */
MINUTES, HOURS, DAYS, WEEKS,
NUMBER, PLUS, DOT, SLASH, ID, JUNK,
JAN, FEB, MAR, APR, MAY, JUN,
JUL, AUG, SEP, OCT, NOV, DEC
};
JUL, AUG, SEP, OCT, NOV, DEC,
SUN, MON, TUE, WED, THU, FRI, SAT
};
/*
* parse translation table - table driven parsers can be your FRIEND!
/* parse translation table - table driven parsers can be your FRIEND!
*/
struct {
char *name; /* token name */
int value; /* token id */
int plural; /* is this plural? */
} Specials[] = {
{ "midnight", MIDNIGHT }, /* 00:00:00 of today or tomorrow */
{ "noon", NOON }, /* 12:00:00 of today or tomorrow */
{ "teatime", TEATIME }, /* 16:00:00 of today or tomorrow */
{ "am", AM }, /* morning times for 0-12 clock */
{ "pm", PM }, /* evening times for 0-12 clock */
{ "tomorrow", TOMORROW }, /* execute 24 hours from time */
{ "today", TODAY }, /* execute today - don't advance time */
{ "now", NOW }, /* opt prefix for PLUS */
{ "midnight", MIDNIGHT,0 }, /* 00:00:00 of today or tomorrow */
{ "noon", NOON,0 }, /* 12:00:00 of today or tomorrow */
{ "teatime", TEATIME,0 }, /* 16:00:00 of today or tomorrow */
{ "am", AM,0 }, /* morning times for 0-12 clock */
{ "pm", PM,0 }, /* evening times for 0-12 clock */
{ "tomorrow", TOMORROW,0 }, /* execute 24 hours from time */
{ "today", TODAY, 0 }, /* execute today - don't advance time */
{ "now", NOW,0 }, /* opt prefix for PLUS */
{ "minute", MINUTES }, /* minutes multiplier */
{ "min", MINUTES },
{ "m", MINUTES },
{ "minutes", MINUTES }, /* (pluralized) */
{ "hour", HOURS }, /* hours ... */
{ "hr", HOURS }, /* abbreviated */
{ "h", HOURS },
{ "hours", HOURS }, /* (pluralized) */
{ "day", DAYS }, /* days ... */
{ "d", DAYS },
{ "days", DAYS }, /* (pluralized) */
{ "week", WEEKS }, /* week ... */
{ "w", WEEKS },
{ "weeks", WEEKS }, /* (pluralized) */
{ "jan", JAN },
{ "feb", FEB },
{ "mar", MAR },
{ "apr", APR },
{ "may", MAY },
{ "jun", JUN },
{ "jul", JUL },
{ "aug", AUG },
{ "sep", SEP },
{ "oct", OCT },
{ "nov", NOV },
{ "dec", DEC }
{ "minute", MINUTES,0 }, /* minutes multiplier */
{ "minutes", MINUTES,1 }, /* (pluralized) */
{ "hour", HOURS,0 }, /* hours ... */
{ "hours", HOURS,1 }, /* (pluralized) */
{ "day", DAYS,0 }, /* days ... */
{ "days", DAYS,1 }, /* (pluralized) */
{ "week", WEEKS,0 }, /* week ... */
{ "weeks", WEEKS,1 }, /* (pluralized) */
{ "jan", JAN,0 },
{ "feb", FEB,0 },
{ "mar", MAR,0 },
{ "apr", APR,0 },
{ "may", MAY,0 },
{ "jun", JUN,0 },
{ "jul", JUL,0 },
{ "aug", AUG,0 },
{ "sep", SEP,0 },
{ "oct", OCT,0 },
{ "nov", NOV,0 },
{ "dec", DEC,0 },
{ "sunday", SUN, 0 },
{ "sun", SUN, 0 },
{ "monday", MON, 0 },
{ "mon", MON, 0 },
{ "tuesday", TUE, 0 },
{ "tue", TUE, 0 },
{ "wednesday", WED, 0 },
{ "wed", WED, 0 },
{ "thursday", THU, 0 },
{ "thu", THU, 0 },
{ "friday", FRI, 0 },
{ "fri", FRI, 0 },
{ "saturday", SAT, 0 },
{ "sat", SAT, 0 },
} ;
/* File scope variables */
@ -115,8 +128,9 @@ static int need; /* scanner - need to advance to next argument */
static char *sc_token; /* scanner - token buffer */
static size_t sc_len; /* scanner - lenght of token buffer */
static int sc_tokid; /* scanner - token id */
static int sc_tokplur; /* scanner - is token plural? */
static char rcsid[] = "$Id: parsetime.c,v 1.1 1994/01/05 01:09:08 nate Exp $";
static char rcsid[] = "$Id: parsetime.c,v 1.1 1994/05/10 18:23:08 kernel Exp $";
/* Local functions */
@ -124,13 +138,13 @@ static char rcsid[] = "$Id: parsetime.c,v 1.1 1994/01/05 01:09:08 nate Exp $";
* parse a token, checking if it's something special to us
*/
static int
parse_token(arg)
char *arg;
parse_token(char *arg)
{
int i;
for (i=0; i<(sizeof Specials/sizeof Specials[0]); i++)
if (strcasecmp(Specials[i].name, arg) == 0) {
sc_tokplur = Specials[i].plural;
return sc_tokid = Specials[i].value;
}
@ -143,9 +157,7 @@ parse_token(arg)
* init_scanner() sets up the scanner to eat arguments
*/
static void
init_scanner(argc, argv)
int argc;
char **argv;
init_scanner(int argc, char **argv)
{
scp = argv;
scc = argc;
@ -154,9 +166,7 @@ init_scanner(argc, argv)
while (--argc > 0)
sc_len += strlen(*++argv);
sc_token = (char *) malloc(sc_len);
if (sc_token == NULL)
panic("Insufficient virtual memory");
sc_token = (char *) mymalloc(sc_len);
} /* init_scanner */
/*
@ -170,10 +180,10 @@ token()
while (1) {
memset(sc_token, 0, sc_len);
sc_tokid = EOF;
sc_tokplur = 0;
idx = 0;
/*
* if we need to read another argument, walk along the argument list;
/* if we need to read another argument, walk along the argument list;
* when we fall off the arglist, we'll just return EOF forever
*/
if (need) {
@ -184,8 +194,7 @@ token()
scc--;
need = 0;
}
/*
* eat whitespace now - if we walk off the end of the argument,
/* eat whitespace now - if we walk off the end of the argument,
* we'll continue, which puts us up at the top of the while loop
* to fetch the next argument in
*/
@ -196,20 +205,19 @@ token()
continue;
}
/*
* preserve the first character of the new token
/* preserve the first character of the new token
*/
sc_token[0] = *sct++;
/*
* then see what it is
/* then see what it is
*/
if (isdigit(sc_token[0])) {
while (isdigit(*sct))
sc_token[++idx] = *sct++;
sc_token[++idx] = 0;
return sc_tokid = NUMBER;
} else if (isalpha(sc_token[0])) {
}
else if (isalpha(sc_token[0])) {
while (isalpha(*sct))
sc_token[++idx] = *sct++;
sc_token[++idx] = 0;
@ -219,7 +227,7 @@ token()
return sc_tokid = DOT;
else if (sc_token[0] == '+')
return sc_tokid = PLUS;
else if (*sct == '/')
else if (sc_token[0] == '/')
return sc_tokid = SLASH;
else
return sc_tokid = JUNK;
@ -231,8 +239,7 @@ token()
* plonk() gives an appropriate error message if a token is incorrect
*/
static void
plonk(tok)
int tok;
plonk(int tok)
{
panic((tok == EOF) ? "incomplete time"
: "garbled time");
@ -243,8 +250,7 @@ plonk(tok)
* expect() gets a token and dies most horribly if it's not the token we want
*/
static void
expect(desired)
int desired;
expect(int desired)
{
if (token() != desired)
plonk(sc_tokid); /* and we die here... */
@ -257,9 +263,7 @@ expect(desired)
* work properly
*/
static void
dateadd(minutes, tm)
int minutes;
struct tm *tm;
dateadd(int minutes, struct tm *tm)
{
/* increment days */
@ -300,14 +304,15 @@ dateadd(minutes, tm)
*
*/
static void
plus(tm)
struct tm *tm;
plus(struct tm *tm)
{
int delay;
int expectplur;
expect(NUMBER);
delay = atoi(sc_token);
expectplur = (delay != 1) ? 1 : 0;
switch (token()) {
case WEEKS:
@ -317,6 +322,8 @@ plus(tm)
case HOURS:
delay *= 60;
case MINUTES:
if (expectplur != sc_tokplur)
fprintf(stderr, "at: pluralization is wrong\n");
dateadd(delay, tm);
return;
}
@ -329,8 +336,7 @@ plus(tm)
* [NUMBER [DOT NUMBER] [AM|PM]]
*/
static void
tod(tm)
struct tm *tm;
tod(struct tm *tm)
{
int hour, minute = 0;
int tlen;
@ -338,8 +344,7 @@ tod(tm)
hour = atoi(sc_token);
tlen = strlen(sc_token);
/*
* first pick out the time of day - if it's 4 digits, we assume
/* first pick out the time of day - if it's 4 digits, we assume
* a HHMM time, otherwise it's HH DOT MM time
*/
if (token() == DOT) {
@ -348,15 +353,15 @@ tod(tm)
if (minute > 59)
panic("garbled time");
token();
} else if (tlen == 4) {
}
else if (tlen == 4) {
minute = hour%100;
if (minute > 59)
panic("garbeld time");
hour = hour/100;
}
/*
* check if an AM or PM specifier was given
/* check if an AM or PM specifier was given
*/
if (sc_tokid == AM || sc_tokid == PM) {
if (hour > 12)
@ -365,16 +370,18 @@ tod(tm)
if (sc_tokid == PM)
hour += 12;
token();
} else if (hour > 23)
}
else if (hour > 23)
panic("garbled time");
/*
* if we specify an absolute time, we don't want to bump the day even
/* if we specify an absolute time, we don't want to bump the day even
* if we've gone past that time - but if we're specifying a time plus
* a relative offset, it's okay to bump things
*/
if ((sc_tokid == EOF || sc_tokid == PLUS) && tm->tm_hour > hour)
if ((sc_tokid == EOF || sc_tokid == PLUS) && tm->tm_hour > hour) {
tm->tm_mday++;
tm->tm_wday++;
}
tm->tm_hour = hour;
tm->tm_min = minute;
@ -389,9 +396,7 @@ tod(tm)
* assign_date() assigns a date, wrapping to next year if needed
*/
static void
assign_date(tm, mday, mon, year)
struct tm *tm;
long mday, mon, year;
assign_date(struct tm *tm, long mday, long mon, long year)
{
if (year > 99) {
if (year > 1899)
@ -417,15 +422,15 @@ assign_date(tm, mday, mon, year)
*
* /[<month> NUMBER [NUMBER]] \
* |[TOMORROW] |
* |[DAY OF WEEK] |
* |NUMBER [SLASH NUMBER [SLASH NUMBER]]|
* \PLUS NUMBER MINUTES|HOURS|DAYS|WEEKS/
*/
static void
month(tm)
struct tm *tm;
month(struct tm *tm)
{
long year= (-1);
long mday, mon;
long mday, wday, mon;
int tlen;
switch (sc_tokid) {
@ -436,14 +441,14 @@ month(tm)
case TOMORROW:
/* do something tomorrow */
tm->tm_mday ++;
tm->tm_wday ++;
case TODAY: /* force ourselves to stay in today - no further processing */
token();
break;
case JAN: case FEB: case MAR: case APR: case MAY: case JUN:
case JUL: case AUG: case SEP: case OCT: case NOV: case DEC:
/*
* do month mday [year]
/* do month mday [year]
*/
mon = (sc_tokid-JAN);
expect(NUMBER);
@ -455,9 +460,29 @@ month(tm)
assign_date(tm, mday, mon, year);
break;
case SUN: case MON: case TUE:
case WED: case THU: case FRI:
case SAT:
/* do a particular day of the week
*/
wday = (sc_tokid-SUN);
mday = tm->tm_mday;
/* if this day is < today, then roll to next week
*/
if (wday < tm->tm_wday)
mday += 7 - (tm->tm_wday - wday);
else
mday += (wday - tm->tm_wday);
tm->tm_wday = wday;
assign_date(tm, mday, tm->tm_mon, tm->tm_year);
break;
case NUMBER:
/*
* get numeric MMDDYY, mm/dd/yy, or dd.mm.yy
/* get numeric MMDDYY, mm/dd/yy, or dd.mm.yy
*/
tlen = strlen(sc_token);
mon = atol(sc_token);
@ -475,25 +500,27 @@ month(tm)
token();
}
/*
* flip months and days for european timing
/* flip months and days for european timing
*/
if (sep == DOT) {
int x = mday;
mday = mon;
mon = x;
}
} else if (tlen == 6 || tlen == 8) {
}
else if (tlen == 6 || tlen == 8) {
if (tlen == 8) {
year = (mon % 10000) - 1900;
mon /= 10000;
} else {
}
else {
year = mon % 100;
mon /= 100;
}
mday = mon % 100;
mon /= 100;
} else
}
else
panic("garbled time");
mon--;
@ -509,12 +536,9 @@ month(tm)
/* Global functions */
time_t
parsetime(argc, argv)
int argc;
char **argv;
parsetime(int argc, char **argv)
{
/*
* Do the argument parsing, die if necessary, and return the time the job
/* Do the argument parsing, die if necessary, and return the time the job
* should be run.
*/
time_t nowtimer, runtimer;
@ -546,8 +570,7 @@ parsetime(argc, argv)
month(&runtime);
break;
/*
* evil coding for TEATIME|NOON|MIDNIGHT - we've initialised
/* evil coding for TEATIME|NOON|MIDNIGHT - we've initialised
* hr to zero up above, then fall into this case in such a
* way so we add +12 +4 hours to it for teatime, +12 hours
* to it for noon, and nothing at all for midnight, then
@ -559,8 +582,10 @@ parsetime(argc, argv)
case NOON:
hr += 12;
case MIDNIGHT:
if (runtime.tm_hour >= hr)
if (runtime.tm_hour >= hr) {
runtime.tm_mday++;
runtime.tm_wday++;
}
runtime.tm_hour = hr;
runtime.tm_min = 0;
token();
@ -571,8 +596,7 @@ parsetime(argc, argv)
} /* ugly case statement */
expect(EOF);
/*
* adjust for daylight savings time
/* adjust for daylight savings time
*/
runtime.tm_isdst = -1;
runtimer = mktime(&runtime);

View File

@ -1,7 +1,6 @@
/*
* at.h - header for at(1)
* Copyright (c) 1993 by Thomas Koenig
* All rights reserved.
/*
* at.h - header for at(1)
* Copyright (C) 1993 Thomas Koenig
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
@ -22,8 +21,6 @@
* THEORY OF LIABILITY, WETHER 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.
*
* $Id: parsetime.h,v 1.1 1993/12/05 11:37:17 cgd Exp $
*/
time_t parsetime __P((int argc, char **argv));
time_t parsetime(int argc, char **argv);

123
usr.bin/at/perm.c Normal file
View File

@ -0,0 +1,123 @@
/*
* perm.c - check user permission for at(1)
* Copyright (C) 1994 Thomas Koenig
*
* 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. The name of the author(s) may not be used to endorse or promote
* products derived from this software without specific prior written
* permission.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR(S) ``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 AUTHOR 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, WETHER 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.
*/
/* System Headers */
#include <sys/types.h>
#include <errno.h>
#include <pwd.h>
#include <stddef.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
/* Local headers */
#include "privs.h"
#include "at.h"
/* Macros */
#define MAXUSERID 10
/* Structures and unions */
/* File scope variables */
static char rcsid[] = "$Id: perm.c,v 1.1 1994/05/10 18:23:08 kernel Exp $";
/* Function declarations */
static int check_for_user(FILE *fp,const char *name);
/* Local functions */
static int check_for_user(FILE *fp,const char *name)
{
char *buffer;
size_t len;
int found = 0;
len = strlen(name);
buffer = mymalloc(len+2);
while(fgets(buffer, len+2, fp) != NULL)
{
if ((strncmp(name, buffer, len) == 0) &&
(buffer[len] == '\n'))
{
found = 1;
break;
}
}
fclose(fp);
free(buffer);
return found;
}
/* Global functions */
int check_permission()
{
FILE *fp;
uid_t uid = geteuid();
struct passwd *pentry;
if (uid==0)
return 1;
if ((pentry = getpwuid(uid)) == NULL)
{
perror("Cannot access user database");
exit(EXIT_FAILURE);
}
PRIV_START
fp=fopen(PERM_PATH "at.allow","r");
PRIV_END
if (fp != NULL)
{
return check_for_user(fp, pentry->pw_name);
}
else
{
PRIV_START
fp=fopen(PERM_PATH "at.deny", "r");
PRIV_END
if (fp != NULL)
{
return !check_for_user(fp, pentry->pw_name);
}
perror("at.deny");
}
return 0;
}

26
usr.bin/at/perm.h Normal file
View File

@ -0,0 +1,26 @@
/*
* perm.h - header for at(1)
* Copyright (C) 1994 Thomas Koenig
*
* 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. The name of the author(s) may not be used to endorse or promote
* products derived from this software without specific prior written
* permission.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR(S) ``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 AUTHOR 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, WETHER 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.
*/
int check_permission();

View File

@ -1,7 +1,6 @@
/*
* privs.h - header for privileged operations
* Copyright (c) 1993 by Thomas Koenig
* All rights reserved.
/*
* privs.h - header for privileged operations
* Copyright (C) 1993 Thomas Koenig
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
@ -22,31 +21,44 @@
* THEORY OF LIABILITY, WETHER 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.
*
* $Id: privs.h,v 1.1 1993/12/05 11:37:29 cgd Exp $
*/
#ifndef _PRIVS_H
#define _PRIVS_H
#ifndef _USE_BSD
#define _USE_BSD 1
#include <unistd.h>
#undef _USE_BSD
#else
#include <unistd.h>
#endif
/* Relinquish privileges temporarily for a setuid program
#ifdef __FreeBSD__
/*
* setre[ug]id() not change r[ug]id for FreeBSD, but check it incorrectly
* for this program
*/
#define setreuid(r, e) seteuid(e)
#define setregid(r, e) setegid(e)
#endif
/* Relinquish privileges temporarily for a setuid or setgid program
* with the option of getting them back later. This is done by swapping
* the real and effective userid BSD style. Call RELINQUISH_PRIVS once
* at the beginning of the main program. This will cause all operatons
* to be executed with the real userid. When you need the privileges
* of the setuid invocation, call PRIV_START; when you no longer
* of the setuid/setgid invocation, call PRIV_START; when you no longer
* need it, call PRIV_END. Note that it is an error to call PRIV_START
* and not PRIV_END within the same function.
*
* Use RELINQUISH_PRIVS_ROOT(a) if your program started out running
* Use RELINQUISH_PRIVS_ROOT(a,b) if your program started out running
* as root, and you want to drop back the effective userid to a
* and the effective group id to b, with the option to get them back
* later.
*
* If you no longer need root privileges, but those of some other
* userid/groupid, you can call REDUCE_PRIV(a) when your effective
* userid/groupid, you can call REDUCE_PRIV(a,b) when your effective
* is the user's.
*
* Problems: Do not use return between PRIV_START and PRIV_END; this
@ -65,28 +77,44 @@ extern
#endif
uid_t real_uid, effective_uid;
#ifndef MAIN
extern
#endif
gid_t real_gid, effective_gid;
#define RELINQUISH_PRIVS { \
real_uid = getuid(); \
effective_uid = geteuid(); \
setreuid(effective_uid,real_uid); \
}
real_uid = getuid(); \
effective_uid = geteuid(); \
real_gid = getgid(); \
effective_gid = getegid(); \
setregid(effective_gid, real_gid); \
setreuid(effective_uid, real_uid); \
}
#define RELINQUISH_PRIVS_ROOT(a) { \
real_uid = (a); \
effective_uid = geteuid(); \
setreuid(effective_uid,real_uid); \
}
#define RELINQUISH_PRIVS_ROOT(a,b) { \
real_uid = (a); \
effective_uid = geteuid(); \
real_gid = (b); \
effective_gid = getegid(); \
setregid(effective_gid, real_gid); \
setreuid(effective_uid, real_uid); \
}
#define PRIV_START { \
setreuid(real_uid,effective_uid);
#define PRIV_START {\
setreuid(real_uid, effective_uid); \
setregid(real_gid, effective_gid);
#define PRIV_END \
setreuid(effective_uid,real_uid); \
}
setregid(effective_gid, real_gid); \
setreuid(effective_uid, real_uid); \
}
#define REDUCE_PRIV(a) { \
setreuid(real_uid,effective_uid); \
effective_uid = (a); \
setreuid(effective_uid,real_uid); \
}
#define REDUCE_PRIV(a,b) {\
setreuid(real_uid, effective_uid); \
setregid(real_gid, effective_gid); \
effective_uid = (a); \
effective_gid = (b); \
setregid(effective_gid, real_gid); \
setreuid(effective_uid, real_uid); \
}
#endif