Mercurial > pkg

comparison src/pkg.pl @ 8:7b9d471fc1d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
create C wrapper and move bashrc to profile.
author Robert McIntyre <rlm@mit.edu>
date Tue, 08 Jan 2013 18:13:48 +0000
parents ab4011ea1463
children a0c0ccd22ca5
comparison
equal deleted inserted replaced
7:ab4011ea1463 8:7b9d471fc1d3
77 sub execute{print "\t@_\n"; system(@_) and die $!;} 77 sub execute{print "\t@_\n"; system(@_) and die $!;}
78 78
79 79
80 @pkg_link_bashrc_cmd = 80 @pkg_link_bashrc_cmd =
81 ("install", "-g", $pkg_name, "-o", $pkg_name, 81 ("install", "-g", $pkg_name, "-o", $pkg_name,
82 "/pkg/defaults/.bashrc", "$pkg_home/.profile"); 82 "/pkg/defaults/.profile", "$pkg_home/.profile");
83 83
84 @pkg_copy_hg_wrapper_cmd = 84 @pkg_copy_hg_wrapper_cmd =
85 (install, "-g", "root", "-o", "root", 85 (install, "-g", "hg-commit", "-o", "hg-commit",
86 "-m", "4777", "/pkg/defaults/.hg-wrapper", $pkg_home); 86 "-m", "4711", "/pkg/defaults/.hg-wrapper", $pkg_home);
87 87
88 #determine if the user already exists: 88 #determine if the user already exists:
89 `id $pkg_name 2>/dev/null`; 89 `id $pkg_name 2>/dev/null`;
90 if (!$?){ 90 if (!$?){
91 print "Change user.\n"; 91 print "Change user.\n";