/* source: filan_main.c */

/* Copyright Gerhard Rieger 2001-2008 */

/* Published under the GNU General Public License V.2, see file COPYING */

const char copyright[] = "filan by Gerhard Rieger - see http://www.dest-unreach.org/socat/";

#include "config.h"

#include "xioconfig.h"

#include "sysincludes.h"

#include "mytypes.h"

#include "compat.h"

#include "error.h"

#include "sycls.h"

#include "filan.h"

#define WITH_HELP 1

static void filan_usage(FILE *fd);

int main(int argc, const char *argv[]) {

const char **arg1, *a;

const char *filename = NULL, *waittimetxt;

unsigned int m = 0; /* first FD (default) */

unsigned int n = FD_SETSIZE; /* last excl. */

unsigned int i;

int style = 0;

struct timespec waittime = { 0, 0 };

FILE *fdout = stdout;

const char *outfname = NULL;

unsigned long fildes;

diag_set('p', strchr(argv[0], '/') ? strrchr(argv[0], '/')+1 : argv[0]);

arg1 = argv+1; --argc;

while (arg1[0] && (arg1[0][0] == '-')) {

switch (arg1[0][1]) {

#if WITH_HELP

case '?': case 'h':

filan_usage(stdout); exit(0);

#endif

#if LATER

case 'V': filan_version(stdout); exit(0);

#endif

case 'L': filan_followsymlinks = true; break;

case 'd': diag_set('d', NULL); break;

case 's': style = 1; break;

case 'r': filan_rawoutput = true; break;

case 'i': if (arg1[0][2]) {

a = *arg1+2;

} else {

++arg1, --argc;

if ((a = *arg1) == NULL) {

Error("option -i requires an argument");

filan_usage(stderr); exit(1);

}

}

m = strtoul(a, (char **)&a, 0);

n = m;

break;

case 'n': if (arg1[0][2]) {

a = *arg1+2;

} else {

++arg1, --argc;

if ((a = *arg1) == NULL) {

Error("option -n requires an argument");

filan_usage(stderr); exit(1);

}

}

n = strtoul(a, (char **)&a, 0);

break;

case 'f': if (arg1[0][2]) {

filename = *arg1+2;

} else {

++arg1, --argc;

if ((filename = *arg1) == NULL) {

Error("option -f requires an argument");

filan_usage(stderr); exit(1);

}

}

break;

case 'T': if (arg1[0][2]) {

waittimetxt = *arg1+2;

} else {

++arg1, --argc;

if ((waittimetxt = *arg1) == NULL) {

Error("option -T requires an argument");

filan_usage(stderr); exit(1);

}

}

{

double waittimedbl;

waittimedbl = strtod(waittimetxt, NULL);

waittime.tv_sec = waittimedbl;

waittime.tv_nsec = (waittimedbl-waittime.tv_sec) * 1000000000;

}

break;

case 'o': if (arg1[0][2]) {

outfname = *arg1+2;

} else {

++arg1, --argc;

if ((outfname = *arg1) == NULL) {

Error("option -o requires an argument");

filan_usage(stderr); exit(1);

}

}

break;

case '\0': break;

default:

diag_set_int('e', E_FATAL);

Error1("unknown option %s", arg1[0]);

#if WITH_HELP

filan_usage(stderr);

#endif

exit(1);

}

#if 0

if (arg1[0][1] == '\0')

break;

#endif

++arg1; --argc;

}

if (argc != 0) {

Error1("%d superfluous arguments", argc);

filan_usage(stderr);

exit(1);

}

if (outfname) {

/* special cases */

if (!strcmp(outfname,"stdin")) { fdout=stdin; }

else if (!strcmp(outfname,"stdout")) { fdout=stdout; }

else if (!strcmp(outfname,"stderr")) { fdout=stderr; }

/* file descriptor */

else if (*outfname == '+') {

a = outfname+1;

fildes = strtoul(a, (char **)&a, 0);

if ((fdout = fdopen(fildes, "w")) == NULL) {

Error2("can't fdopen file descriptor %lu: %s\n", fildes, strerror(errno));

exit(1);

}

} else {

/* file name */

if ((fdout = fopen(outfname, "w")) == NULL) {

Error2("can't fopen '%s': %s\n",

outfname, strerror(errno));

exit(1);

}

}

}

Nanosleep(&waittime, NULL);

if (style == 0) {

/* this style gives detailled infos, but requires a file descriptor */

if (filename) {

#if LATER /* this is just in case that S_ISSOCK does not work */

struct stat buf;

int fd;

if (Stat(filename, &buf) < 0) {

Error3("stat(\"%s\", %p): %s", filename, &buf, strerror(errno));

}

/* note: when S_ISSOCK was undefined, it always gives 0 */

if (S_ISSOCK(buf.st_mode)) {

Error("cannot analyze UNIX domain socket");

}

#endif

filan_file(filename, fdout);

} else {

if (m == n) {

++n;

}

for (i = m; i < n; ++i) {

filan_fd(i, fdout);

}

}

} else {

/* this style gives only type and path / socket addresses, and works from

file descriptor or filename (with restrictions) */

if (filename) {

/* filename: NULL means yet unknown; "" means no name at all */

#if LATER

int fd;

if ((fd =

Open(filename, O_RDONLY|O_NOCTTY|O_NONBLOCK

#ifdef O_LARGEFILE

|O_LARGEFILE

#endif

, 0700))

< 0) {

Debug2("open(\"%s\", O_RDONLY|O_NOCTTY|O_NONBLOCK|O_LARGEFILE, 0700): %s",

filename, strerror(errno));

}

fdname(filename, fd, fdout, NULL);

#endif

fdname(filename, -1, fdout, NULL);

} else {

if (m == n) {

fdname("", m, fdout, NULL);

} else {

for (i = m; i < n; ++i) {

fdname("", i, fdout, "%5u ");

}

}

}

}

if (outfname && fdout != stdout && fdout != stderr) {

fclose(fdout);

}

return 0;

}

#if WITH_HELP

static void filan_usage(FILE *fd) {

fputs(copyright, fd); fputc('\n', fd);

fputs("Analyze file descriptors of the process\n", fd);

fputs("Usage:\n", fd);

fputs("filan [options]\n", fd);

fputs(" options:\n", fd);

#if LATER

fputs(" -V print version information to stdout, and exit\n", fd);

#endif

#if WITH_HELP

fputs(" -?|-h print this help text\n", fd);

fputs(" -d increase verbosity (use up to 4 times)\n", fd);

#endif

#if 0

fputs(" -ly[facility] log to syslog, using facility (default is daemon)\n", fd);

fputs(" -lf<logfile> log to file\n", fd);

fputs(" -ls log to stderr (default if no other log)\n", fd);

#endif

fputs(" -i<fdnum> only analyze this fd\n", fd);

fprintf(fd, " -n<fdnum> analyze all fds from 0 up to fdnum-1 (default: %u)\n", FD_SETSIZE);

fputs(" -s simple output with just type and socket address or path\n", fd);

/* fputs(" -c alternate device visualization\n", fd);*/

fputs(" -f<filename> analyze file system entry\n", fd);

fputs(" -T<seconds> wait before analyzing, useful to connect with debugger\n", fd);

fputs(" -r raw output for time stamps and rdev\n", fd);

fputs(" -L show symlink properties instead of following it\n", fd);

fputs(" -o<filename> output goes to filename, that can be:\n", fd);

fputs(" a regular file name, the output goes to that\n", fd);

fputs(" +<filedes> , output goes to the file descriptor (which must be open writable)\n", fd);

fputs(" the 3 special names stdin stdout and stderr\n", fd);

}

#endif /* WITH_HELP */