Mercurial > pkg
diff src/pkg.pl @ 12:e056798af879
fixing problem with shell interpretation.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Wed, 09 Jan 2013 07:09:37 +0000 |
parents | a0c0ccd22ca5 |
children | ac1ca422bd54 |
line wrap: on
line diff
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 -