const-cast required for silly UNICOS headers
[rsync.git] / tls.c
1 /* -*- c-file-style: "linux" -*-
2  *
3  * Copyright (C) 2001 by Martin Pool <mbp@samba.org>
4  * 
5  * This program is free software; you can redistribute it and/or
6  * modify it under the terms of the GNU General Public License version
7  * 2 as published by the Free Software Foundation.
8  * 
9  * This program is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12  * GNU General Public License for more details.
13  * 
14  * You should have received a copy of the GNU General Public License
15  * along with this program; if not, write to the Free Software
16  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
17  */
18
19 /**
20  * \section tls
21  *
22  * tls -- Trivial recursive ls, for comparing two directories after
23  * running an rsync.
24  *
25  * The problem with using the system's own ls is that some features
26  * have little quirks that make directories look different when for
27  * our purposes they're the same -- for example, the BSD braindamage
28  * about setting the mode on symlinks based on your current umask.
29  *
30  * All the filenames must be given on the command line -- tls does not
31  * even read directories, let alone recurse.  The typical usage is
32  * "find|sort|xargs tls".
33  *
34  * The format is not exactly the same as any particular Unix ls(1).
35  *
36  * A key requirement for this program is that the output be "very
37  * reproducible."  So we mask away information that can accidentally
38  * change.
39  **/
40
41
42
43 #include "rsync.h"
44
45 #define PROGRAM "tls"
46
47 /* These are to make syscall.o shut up. */
48 int dry_run = 0;
49 int read_only = 1;
50 int list_only = 0;
51
52
53 static void failed (char const *what,
54                     char const *where)
55 {
56         fprintf (stderr, PROGRAM ": %s %s: %s\n",
57                  what, where, strerror (errno));
58         exit (1);
59 }
60
61
62
63 static void list_file (const char *fname)
64 {
65         struct stat buf;
66         char permbuf[PERMSTRING_SIZE];
67         struct tm *mt;
68         char datebuf[50];
69         char linkbuf[4096];
70
71         if (do_lstat(fname, &buf) == -1)
72                 failed ("stat", fname);
73
74         /* The size of anything but a regular file is probably not
75          * worth thinking about. */
76         if (!S_ISREG(buf.st_mode))
77                 buf.st_size = 0;
78
79         /* On some BSD platforms the mode bits of a symlink are
80          * undefined.  Also it tends not to be possible to reset a
81          * symlink's mtime, so we have to ignore it too. */
82         if (S_ISLNK(buf.st_mode)) {
83                 buf.st_mode &= ~0777;
84                 buf.st_mtime = (time_t)0;
85                 buf.st_uid = buf.st_gid = 0;
86                 strcpy(linkbuf, " -> ");
87                 /* const-cast required for silly UNICOS headers */
88                 readlink((char *) fname, linkbuf+4, sizeof(linkbuf) - 4);
89         } else {
90                 linkbuf[0] = 0;
91         }
92
93         permstring(permbuf, buf.st_mode);
94
95         if (buf.st_mtime) {
96                 mt = gmtime(&buf.st_mtime);
97                 
98                 sprintf(datebuf, "%04d-%02d-%02d %02d:%02d:%02d",
99                         mt->tm_year + 1900,
100                         mt->tm_mon + 1,
101                         mt->tm_mday,
102                         mt->tm_hour,
103                         mt->tm_min,
104                         mt->tm_sec);
105         } else {
106                 strcpy(datebuf, "                   ");
107         }
108         
109         /* TODO: Perhaps escape special characters in fname? */
110         
111         
112         /* NB: need to pass size as a double because it might be be
113          * too large for a long. */
114         printf("%s %12.0f %6d.%-6d %s %s%s\n",
115                permbuf, (double) buf.st_size,
116                buf.st_uid, buf.st_gid,
117                datebuf, fname, linkbuf);
118 }
119
120
121 int main (int argc, char *argv[])
122 {
123         if (argc < 2) {
124                 fprintf (stderr, "usage: " PROGRAM " DIR ...\n"
125                          "Trivial file listing program for portably checking rsync\n");
126                 return 1;
127         }
128
129         for (argv++; *argv; argv++) {
130                 list_file (*argv);
131         }
132
133         return 0;
134 }