/*
 * sl-frob.c
 *
 * 'stat' and recreate symlink is the perms are not 0777 as they
 * should be. This may be required if symlink permissions for all
 * hosed or messed up (for example, early versions of XFS would create
 * symlinks as non-0777 as it obeyed the umask).
 *
 * Usage is something like:
 *
 *	find /path/to/fs -mount -type l -not -perm 777 -print0 | xargs -0 /path/to/sl-frob
 *
 * $Id: sl-frob.c,v 1.1 2002/09/10 21:19:37 cw Exp $
 */

#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>

#include <stdio.h>
#include <string.h>
#include <errno.h>

int main(int ac, char **av)
{
    int i;
    struct stat st;
    char lpath[4096];
    int nchar;

    if (ac < 2) {
	fprintf(stderr, "%s: filename <filename>\n\trecreate symlinks with busted perms\n", av[0]);
	return 1;
    }

    /* old versions of XFS will obey the umask */
    umask(0);

    for (i=1; i<ac; ++i) {
	lstat(av[i], &st);
	if ((st.st_mode & 0777) != 0777) {
	    memset(lpath, 0, sizeof lpath);
	    if ((nchar = readlink(av[i], lpath, sizeof lpath)) == -1) {
		fprintf(stderr, "Warning: unable to readlink '%s' (%s)\n", av[i], strerror(errno));
		continue;
	    }
	    if (nchar == (sizeof lpath)) {
		fprintf(stderr, "Warning: link for '%s' too long\n", av[i]);
		continue;
	    }
	    if (unlink(av[i]) == -1) {
		fprintf(stderr, "Warning: unable to remove '%s' (%s)\n", av[i], strerror(errno));
		continue;
	    }
	    if (symlink(lpath, av[i])) {
		fprintf(stderr, "WARNING: unable to recreate '%s' -> '%s' (%s)\n", av[i], lpath, strerror(errno));
		fprintf(stderr, "\tTHIS IS BAD --- MANUALLY FIX THIS\n");
		continue;
	    }
	}
    }

    return 0;
}