mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-09 21:20:45 -08:00
Code Issues Projects Releases Wiki Activity

(get_boot_time): Use WTMP_FILE for file name.

Browse source 
(WTMP_FILE): Default definition in case not defined.
(get_boot_time_1): Test that file exists before trying to read it.
This commit is contained in:
Richard M. Stallman 1999-02-26 10:47:36 +00:00
parent 7c9cd4467d
commit 77e544a4cd
1 changed files with 18 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/filelock.c
View file

@ -54,6 +54,10 @@ extern int errno;
#ifdef CLASH_DETECTION
#include <utmp.h>
#ifndef WTMP_FILE
#define WTMP_FILE "/var/log/wtmp"
#endif
/* The strategy: to lock a file FN, create a symlink .#FN in FN's
directory, with link data `user@host.pid'. This avoids a single
@ -140,7 +144,7 @@ get_boot_time ()
}
/* Try to get boot time from the current wtmp file. */
get_boot_time_1 ("/var/log/wtmp");
get_boot_time_1 (WTMP_FILE);
/* If we did not find a boot time in wtmp, look at wtmp, and so on. */
for (counter = 0; counter < 20 && boot_time == 1; counter++)
@ -151,13 +155,13 @@ get_boot_time ()
filename = Qnil;
sprintf (cmd_string, "/var/log/wtmp.%d", counter);
sprintf (cmd_string, "%s.%d", WTMP_FILE, counter);
tempname = build_string (cmd_string);
if (! NILP (Ffile_exists_p (filename)))
filename = tempname;
else
{
sprintf (cmd_string, "/var/log/wtmp.%d.gz", counter);
sprintf (cmd_string, "%s.%d.gz", WTMP_FILE, counter);
tempname = build_string (cmd_string);
if (! NILP (Ffile_exists_p (tempname)))
{
@ -168,8 +172,8 @@ get_boot_time ()
args[2] = Qnil;
args[3] = Qnil;
args[4] = build_string ("-c");
sprintf (cmd_string, "gunzip < /var/log/wtmp.%d.gz > %s",
counter, XSTRING (tempname)->data);
sprintf (cmd_string, "gunzip < %s.%d.gz > %s",
WTMP_FILE, counter, XSTRING (tempname)->data);
args[5] = build_string (cmd_string);
Fcall_process (6, args);
filename = tempname;
@ -200,7 +204,16 @@ get_boot_time_1 (filename)
char *filename;
{
struct utmp ut, *utp;
int desc;
/* On some versions of IRIX, opening a nonexistent file name
is likely to crash in the utmp routines. */
desc = open (filename, O_RDONLY);
if (desc < 0)
return;
close (desc);
utmpname (filename);
setutent ();
while (1)