1.1 --- a/src/pkg.pl	Wed Jan 09 05:11:10 2013 +0000
     1.2 +++ b/src/pkg.pl	Wed Jan 09 07:09:37 2013 +0000
     1.3 @@ -74,16 +74,27 @@
     1.4  @pkg_add_install_cmd = 
     1.5    ("gpasswd", "--add", $pkg_name, "install");
     1.6  
     1.7 -sub execute{print "\t@_\n"; system(@_) and die $!;}
     1.8 -
     1.9 -
    1.10  @pkg_link_bashrc_cmd =
    1.11    ("install", "-g", $pkg_name, "-o", $pkg_name,
    1.12     "/pkg/defaults/.profile", "$pkg_home/.profile");
    1.13  
    1.14  @pkg_copy_hg_wrapper_cmd =
    1.15 -  (install, "-g", "users", "-o", "r",
    1.16 -   "-m", "4777", "/pkg/defaults/.hg-wrapper", $pkg_home);
    1.17 +  (install, "-g", "hg-wheel", "-o", "hg-committer",
    1.18 +   "-m", "6111", "/pkg/defaults/.hg-wrapper", $pkg_home);
    1.19 +
    1.20 +$pkg_hgrc = "[ui]\n\
    1.21 +username = $pkg_name\n\
    1.22 +[extensions]\n\
    1.23 +hgext.purge =\n";
    1.24 +
    1.25 +$pkg_hgrc_filename = "$pkg_home/.hgrc";
    1.26 +
    1.27 +@pkg_set_hgrc_user_cmd = 
    1.28 +  ("chown", "$pkg_name:$pkg_name", $pkg_hgrc_filename);
    1.29 +
    1.30 +
    1.31 +sub execute{print "\t@_\n"; system(@_) and die $!;}
    1.32 +
    1.33  
    1.34  #determine if the user already exists:
    1.35  `id $pkg_name 2>/dev/null`;
    1.36 @@ -107,13 +118,15 @@
    1.37  execute(@pkg_link_bashrc_cmd);
    1.38  execute(@pkg_copy_hg_wrapper_cmd);
    1.39  
    1.40 +# print "Create ~/.hgrc\n";
    1.41 +# open(HGRC, ">$pkg_hgrc_filename") or die $!;
    1.42 +# select HGRC;
    1.43 +# print $pkg_hgrc;
    1.44 +# close(HGRC);
    1.45 +
    1.46 +# select(STDOUT);
    1.47 +# print "Set permissions on ~/.hgrc.\n";
    1.48 +# execute(@pkg_set_hgrc_user_cmd);
    1.49 +
    1.50  print "Change user.\n";
    1.51  execute(@pkg_switch_cmd);
    1.52 -
    1.53 -
    1.54 -
    1.55 -
    1.56 -
    1.57 -
    1.58 -
    1.59 -