#include <stdio.h>
#include <errno.h>
#include <string.h>
#include <sys/ioctl.h>

#include <netdb.h>
#include <sys/socket.h>
#include <netinet/in.h>

#include <afs/param.h>
#include <afs/afs.h>
#include <afs/venus.h>

/* Some exported things aren't in the header files... */
struct VenusFid {
    afs_int32 Cell;
    afs_int32 Volume;
    afs_int32 Vnode;
    afs_int32 Unique;
};

void do_astat(char *filename);
int do_pioctl(char *file, int opcode, struct ViceIoctl *parm, int followSym,
	      int fatal);

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

    if (argc < 2) {
	fprintf(stderr, "Usage: %s filename ..\n", argv[0]);
	exit(1);
    }

    for(i=1; i<argc; i++)
	do_astat(argv[i]);

    return 0;
}

void do_astat(char *filename) {
    struct ViceIoctl params;
    struct in_addr ip_buf[8];
    struct VenusFid fid;
    char buf[2048];
    char dirname[2048];
    char *fname;
    int i;

    bzero(params, sizeof(params));
    params.out = (char *) ip_buf;
    params.out_size = sizeof(ip_buf);
    do_pioctl(filename, VIOCWHEREIS, &params, 1, 1);

    printf("Servers:");
    for (i=0; i<8 && ip_buf[i].s_addr; i++) {
	char *ip_string;
	struct hostent *he;

	ip_string = (char *) inet_ntoa(ip_buf[i]);
	he = gethostbyaddr((char *)&ip_buf[i], sizeof(ip_buf[i]), AF_INET);
	if (he)
	    printf("%s %s", i ? "," : "", he->h_name);
	else
	    printf("%s %s", i ? "," : "", ip_string);
    }
    printf("\n");

    bzero(params, sizeof(params));
    params.out = (char *) buf;
    params.out_size = sizeof(buf);
    do_pioctl(filename, VIOC_FILE_CELL_NAME, &params, 1, 1);

    bzero(params, sizeof(params));
    params.out = (char *) &fid;
    params.out_size = sizeof(fid);
    do_pioctl(filename, VIOCGETFID, &params, 1, 1);

    printf("Cell:    %#x (%s)\n", fid.Cell, buf);
    printf("Volume:  %d (%#x)\n", fid.Volume, fid.Volume);
    printf("Vnode:   %d\n", fid.Vnode);
    printf("Uniq:    %d\n", fid.Unique);
}

int do_pioctl(char *file, int opcode, struct ViceIoctl *parm, int followSym,
	      int fatal) {
    int ret;

    if (parm->in)
	bzero(parm->in, parm->in_size);
    if (parm->out)
	bzero(parm->out, parm->out_size);

    ret = pioctl(file, opcode, parm, followSym);

    if (ret < 0 && fatal) {
	fprintf(stderr, "%s while doing pioctl(%s, %#x)\n",
			strerror(errno), file, opcode);
	exit(1);
    }

    return ret;
}