#!/afs/athena/contrib/perl/perl
&usage() if ($#ARGV < 2);
    $filnm = $ARGV[0];
    if((!(-d $filnm)) && (!(-l $filnm))) {
    $whsym = $ARGV[1];
    $symperms = $ARGV[2];
    if (!(-d ".$filnm.fefs"))
    {
        mkdir(".$filnm.fefs","755");
        $bar = `fs sa .$filnm.fefs $whsym $symperms`;
        print("fs sa: $bar\n") if $bar;
    }
        else
        {
        $bar = `fs sa .$filnm.fefs $whsym $symperms`;
        print("$bar") if $bar;
        }
    $foo = `mv $filnm .$filnm.fefs`;
    print("mv: $foo\n") if $foo;
    $baz = `ln -s .$filnm.fefs/$filnm`;
    print("ln: $baz\n") if $baz;

}
	else {print("Not a plain file... can't change... sorry :-(\n");
}


sub usage {
	print("Usage:\n");
	print("    $0 filename group permissions\n");
	exit(0);
}