#!/usr/bin/perl


mkdir("/usr/local/cpanel/tests",0700);
system("chown","cpanel:cpanel","/usr/local/cpanel/tests");

setuids("cpanel");

unlink("/usr/local/cpanel/tests/linktest1");
unlink("/usr/local/cpanel/tests/linktest2");
open(LINKTEST,">/usr/local/cpanel/tests/linktest1") || die "Unable to create file for link test";
close(LINKTEST);
link("/usr/local/cpanel/tests/linktest1","/usr/local/cpanel/tests/linktest2");
if (-f "/usr/local/cpanel/tests/linktest2") {
	print "Test Passed!!\n";
} else {
	print "Test Failed!!   $!\n";
}





sub setuids {
   my($user) = $_[0];
   my($uid,$gid);
   (undef,undef,$uid,$gid) = getpwnam($user);
   if ( ! ($( = int($gid)) ) {
         print "error setting gid\n";
         exit;
         }

         if ( ! ($) = "$gid $gid") ) {
      print "error setting gid\n";
      exit;
   }
   if (! (($< = $uid) && ($> = $uid)) ) {
      die "error setting uid ($uid) [$user]\n";
   }
   return $uid;
}