On Sun, 18 Jan 2004, Kai Grossjohann wrote:
> In addition to invoking Perl and the /usr/bin/stat (or /bin/stat?)
> program, which other ways can you think of to find the last modtime of
> a file?
...
> Solaris 2.6 does not appear to have the command.
Agreed: SunOS hera 5.7 Generic_106541-23 sun4u sparc SUNW,Ultra-5_10
However, I do use stat.c attached (only tested on the above - I'm lazy too
;)
Any system worth it's beef would have a C compiler, no? cache the compiled
file somewhere in /tmp
--
TimC -- http://astronomy.swin.edu.au/staff/tconnors/
double value; /* or your money back! */
short changed; /* so triple your money back! */
-- Larry Wall in cons.c from the perl source code#include <sys/types.h>
#include <sys/stat.h>
#include <stdio.h>
#include <string.h>
#include <errno.h>
#include <time.h>
#include <pwd.h>
#include <grp.h>
#ifndef S_ISREG
#ifndef S_IFREG
#ifndef _S_IFREG
#define S_IFREG (-1)
#else
#define S_IFREG _S_IFREG
#endif
#endif
#define S_ISREG(m) (((m)&S_IFREG)==S_IFREG)
#endif
#ifndef S_ISBLK
#ifndef S_IFBLK
#ifndef _S_IFBLK
#define S_IFBLK (-1)
#else
#define S_IFBLK _S_IFBLK
#endif
#endif
#define S_ISBLK(m) (((m)&S_IFBLK)==S_IFBLK)
#endif
#ifndef S_ISCHR
#ifndef S_IFCHR
#ifndef _S_IFCHR
#define S_IFCHR (-1)
#else
#define S_IFCHR _S_IFCHR
#endif
#endif
#define S_ISCHR(m) (((m)&S_IFCHR)==S_IFCHR)
#endif
#ifndef S_ISDIR
#ifndef S_IFDIR
#ifndef _S_IFDIR
#define S_IFDIR (-1)
#else
#define S_IFDIR _S_IFDIR
#endif
#endif
#define S_ISDIR(m) (((m)&S_IFDIR)==S_IFDIR)
#endif
#ifndef S_ISFIFO
#ifndef S_IFIFO
#ifndef _S_IFIFO
#define S_IFIFO (-1)
#else
#define S_IFIFO _S_IFIFO
#endif
#endif
#define S_ISFIFO(m) (((m)&S_IFIFO)==S_IFIFO)
#endif
#ifndef S_ISSUID
#ifndef S_ISUID
#ifndef _S_ISUID
#define S_ISUID (-1)
#else
#define S_ISUID _S_ISUID
#endif
#endif
#define S_ISSUID(m) (((m)&S_ISUID)==S_ISUID)
#endif
#ifndef S_ISSGID
#ifndef S_ISGID
#ifndef _S_ISGID
#define S_ISGID (-1)
#else
#define S_ISGID _S_ISGID
#endif
#endif
#define S_ISSGID(m) (((m)&S_ISGID)==S_ISGID)
#endif
#ifndef S_IRUSR
#define S_IRUSR 0x0100
#endif
#ifndef S_IWUSR
#define S_IWUSR 0x0080
#endif
#ifndef S_IXUSR
#define S_IXUSR 0x0040
#endif
#ifndef S_IRGRP
#define S_IRGRP 0x0020
#endif
#ifndef S_IWGRP
#define S_IWGRP 0x0010
#endif
#ifndef S_IXGRP
#define S_IXGRP 0x0008
#endif
#ifndef S_IROTH
#define S_IROTH 0x0004
#endif
#ifndef S_IWOTH
#define S_IWOTH 0x0002
#endif
#ifndef S_IXOTH
#define S_IXOTH 0x0001
#endif
char *filemode (int mode)
{
static char result[11];
static char rwxkey[8][4] =
{ "---", "--x", "-w-", "-wx",
"r--", "r-x", "rw-", "rwx" };
result[0] = '-';
result[1] = rwxkey[((mode >> 6) & 0x07)][0];
result[2] = rwxkey[((mode >> 6) & 0x07)][1];
result[3] = rwxkey[((mode >> 6) & 0x07)][2];
result[4] = rwxkey[((mode >> 3) & 0x07)][0];
result[5] = rwxkey[((mode >> 3) & 0x07)][1];
result[6] = rwxkey[((mode >> 3) & 0x07)][2];
result[7] = rwxkey[ mode & 0x07 ][0];
result[8] = rwxkey[ mode & 0x07 ][1];
result[9] = rwxkey[ mode & 0x07 ][2];
result[10]= '\0';
return result;
}
char *getuname (int uid)
{
static char res[20];
struct passwd *pwent;
if ((pwent = getpwuid (uid)) == NULL)
sprintf (res, "%d", uid);
else
strcpy (res, pwent->pw_name);
return res;
}
char *getgname (int gid)
{
static char res[20];
struct group *grent;
if ((grent = getgrgid (gid)) == NULL)
sprintf (res, "%d", gid);
else
strcpy (res, grent->gr_name);
return res;
}
char *dirname (char *fname, char *buf)
{
char *ptr;
strcpy (buf, fname);
if ((ptr = strrchr (buf, '/')) == NULL) {
buf[0] = '.';
buf[1] = '\0';
}
else if (buf != ptr) {
*ptr++ = '\0';
if (*ptr == '\0') {
ptr = strrchr (buf, '/');
if (*ptr != NULL && buf != ptr)
*ptr = '\0';
}
}
return buf;
}
void printinfo (char *fname, struct stat *buf)
{
static char tbuf[1024];
static struct stat dir;
int flag=0;
printf ("\nFile information for %s\n", fname);
printf ("\t Filesystem ID : Major %02x Minor %02x\n",
(((int) buf->st_dev) >> 8) & 0xff, ((int) buf->st_dev) & 0xff);
printf ("\t File inode : %d\n", (int) buf->st_ino);
printf ("\t File mode : ");
#ifdef S_ISBLK
if (S_ISBLK(buf->st_mode)) printf ("BLOCK ");
#endif
#ifdef S_ISCHR
if (S_ISCHR(buf->st_mode)) printf ("CHAR ");
#endif
#ifdef S_ISDIR
if (S_ISDIR(buf->st_mode)) printf ("DIRECTORY ");
#endif
#ifdef S_ISFIFO
if (S_ISFIFO(buf->st_mode)) printf ("FIFO ");
#endif
#ifdef S_ISNAM
if (S_ISNAM(buf->st_mode)) printf ("PIPE ");
#endif
#ifdef S_ISREG
if (S_ISREG(buf->st_mode)) printf ("FILE ");
#endif
#ifdef S_ISSUID
if (S_ISSUID(buf->st_mode)) printf ("SETUID ");
#endif
#ifdef S_ISSGID
if (S_ISSGID(buf->st_mode)) printf ("SETGID ");
#endif
printf ("%s\n", filemode ((int)buf->st_mode));
printf ("\t Your rights : ");
if (((getuid()==buf->st_uid) && (buf->st_mode&S_IRUSR)) ||
((getgid()==buf->st_gid) && (buf->st_mode&S_IRGRP)) ||
( buf->st_mode&S_IROTH) ||
( getuid()==0 )) {
#ifdef S_ISDIR
if (S_ISDIR(buf->st_mode))
printf ("LIST ", flag++);
else
#endif
printf ("READ ", flag++);
}
if (((getuid()==buf->st_uid) && (buf->st_mode&S_IWUSR)) ||
((getgid()==buf->st_gid) && (buf->st_mode&S_IWGRP)) ||
( buf->st_mode&S_IWOTH) ||
( getuid()==0 )) {
#ifdef S_ISDIR
if (S_ISDIR(buf->st_mode))
printf ("CREATE FILES DELETE FILES ", flag++);
else
#endif
printf ("WRITE ", flag++);
}
if (((getuid()==buf->st_uid) && (buf->st_mode&S_IXUSR)) ||
((getgid()==buf->st_gid) && (buf->st_mode&S_IXGRP)) ||
( buf->st_mode&S_IXOTH) ||
( getuid()==0 && (buf->st_mode&(S_IXUSR|S_IXGRP|S_IXOTH)))) {
#ifdef S_ISDIR
if (S_ISDIR(buf->st_mode))
printf ("CHANGE TO ", flag++);
else
#endif
printf ("EXECUTE ", flag++);
}
#ifdef S_ISDIR
if (S_ISDIR(buf->st_mode))
strcat (strcpy (tbuf, fname), "/..");
else
dirname (fname, tbuf);
#endif
if (stat (tbuf, &dir) != -1) {
if (((getuid()==dir.st_uid) && (dir.st_mode&S_IWUSR)) ||
((getgid()==dir.st_gid) && (dir.st_mode&S_IWGRP)) ||
( dir.st_mode&S_IWOTH) ||
( getuid()==0 )) {
#ifdef S_ISDIR
if (S_ISDIR(buf->st_mode))
printf ("REMOVE ", flag++);
else
#endif
printf ("DELETE ", flag++);
}
}
printf ("%s\n", (flag)?"":"(NONE)");
#ifdef S_ISREG
if (S_ISREG(buf->st_mode))
#endif
printf ("\t Number of Links : %d\n", (int) buf->st_nlink);
printf ("\t User ID : %d (%s)\n", (int)buf->st_uid, getuname
((int)buf->st_uid));
printf ("\t Group ID : %d (%s)\n", (int)buf->st_gid, getgname
((int)buf->st_gid));
#if defined(S_ISBLK) || defined(S_ISCHR)
if (S_ISBLK(buf->st_mode) || S_ISCHR(buf->st_mode))
printf ("\t Special Device : Major %02x Minor %02x\n",
(((int) buf->st_rdev) >> 8) & 0xff, ((int) buf->st_rdev) & 0xff);
#endif
#ifdef S_ISNAM
if (S_ISNAM(buf->st_mode))
printf ("\t Data in Pipe : %d\n", (int) buf->st_size);
#endif
#ifdef S_ISFIFO
if (S_ISFIFO(buf->st_mode))
printf ("\t Data in Fifo : %d\n", (int) buf->st_size);
#endif
#ifdef S_ISREG
if (S_ISREG(buf->st_mode))
#endif
printf ("\t File Size : %d\n", (int) buf->st_size);
printf ("\tLast File access : %s", ctime (&buf->st_atime));
printf ("\t... modification : %s", ctime (&buf->st_mtime));
printf ("\t File creation : %s", ctime (&buf->st_ctime));
printf ("\n");
}
int main (int argc, char *argv[])
{
struct stat buf;
int index;
for (index=1; index<argc; index++) {
if (stat (argv[index], &buf) == -1)
printf ("\nStat failed for file %s. Errno=%d\n\n", argv[index], errno);
else
printinfo (argv[index], &buf);
}
return 0;
}
_______________________________________________
Tramp-devel mailing list
[EMAIL PROTECTED]
http://mail.nongnu.org/mailman/listinfo/tramp-devel
