Mercurial > pkg
diff src/pkg.pl @ 14:ac1ca422bd54
saving progress.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Wed, 09 Jan 2013 10:59:43 +0000 |
parents | e056798af879 |
children | cd47c42f1d0a |
line wrap: on
line diff
1.1 --- a/src/pkg.pl Wed Jan 09 07:31:19 2013 +0000 1.2 +++ b/src/pkg.pl Wed Jan 09 10:59:43 2013 +0000 1.3 @@ -82,20 +82,8 @@ 1.4 (install, "-g", "hg-wheel", "-o", "hg-committer", 1.5 "-m", "6111", "/pkg/defaults/.hg-wrapper", $pkg_home); 1.6 1.7 -$pkg_hgrc = "[ui]\n\ 1.8 -username = $pkg_name\n\ 1.9 -[extensions]\n\ 1.10 -hgext.purge =\n"; 1.11 - 1.12 -$pkg_hgrc_filename = "$pkg_home/.hgrc"; 1.13 - 1.14 -@pkg_set_hgrc_user_cmd = 1.15 - ("chown", "$pkg_name:$pkg_name", $pkg_hgrc_filename); 1.16 - 1.17 - 1.18 sub execute{print "\t@_\n"; system(@_) and die $!;} 1.19 1.20 - 1.21 #determine if the user already exists: 1.22 `id $pkg_name 2>/dev/null`; 1.23 if (!$?){ 1.24 @@ -118,15 +106,5 @@ 1.25 execute(@pkg_link_bashrc_cmd); 1.26 execute(@pkg_copy_hg_wrapper_cmd); 1.27 1.28 -# print "Create ~/.hgrc\n"; 1.29 -# open(HGRC, ">$pkg_hgrc_filename") or die $!; 1.30 -# select HGRC; 1.31 -# print $pkg_hgrc; 1.32 -# close(HGRC); 1.33 - 1.34 -# select(STDOUT); 1.35 -# print "Set permissions on ~/.hgrc.\n"; 1.36 -# execute(@pkg_set_hgrc_user_cmd); 1.37 - 1.38 print "Change user.\n"; 1.39 execute(@pkg_switch_cmd);