Mercurial > pkg

comparison src/pkg.pl @ 23:4d1bc23e4d09

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
implemented acl saving.
author Robert McIntyre <rlm@mit.edu>
date Thu, 10 Jan 2013 07:47:08 +0000
parents 43cfd1a2c523
children d956ace7380e
comparison
equal deleted inserted replaced
22:43cfd1a2c523 23:4d1bc23e4d09
85 85
86 @pkg_copy_hg_wrapper_cmd = 86 @pkg_copy_hg_wrapper_cmd =
87 ("install", "-g", "hg-wheel", "-o", "hg-committer", 87 ("install", "-g", "hg-wheel", "-o", "hg-committer",
88 "-m", "6111", "/pkg/hg-committer/hg-wrapper", "$pkg_home/.hg-wrapper"); 88 "-m", "6111", "/pkg/hg-committer/hg-wrapper", "$pkg_home/.hg-wrapper");
89 89
90 @pkg_copy_save_acls_cmd =
91 ("install", "-g", "root", "-o", "root",
92 "-m", "6111", "/pkg/hg-committer/save-acls", "$pkg_home/.save-acls");
93
90 sub execute{print "\t@_\n"; system(@_) and die $!;} 94 sub execute{print "\t@_\n"; system(@_) and die $!;}
91 95
92 #determine if the user already exists: 96 #determine if the user already exists:
93 `id $pkg_name 2>/dev/null`; 97 `id $pkg_name 2>/dev/null`;
94 if (!$?){ 98 if (!$?){
108 execute(@pkg_add_install_cmd); 112 execute(@pkg_add_install_cmd);
109 113
110 print "Copy Default Files.\n"; 114 print "Copy Default Files.\n";
111 115
112 execute(@pkg_copy_hg_wrapper_cmd); 116 execute(@pkg_copy_hg_wrapper_cmd);
117 execute(@pkg_copy_save_acls_cmd);
113 copy_default_file(".profile"); 118 copy_default_file(".profile");
114 119
115 #execute(@pkg_link_bashrc_cmd); 120 #execute(@pkg_link_bashrc_cmd);
116 #execute(@pkg_copy_hgrc_cmd); 121 #execute(@pkg_copy_hgrc_cmd);
117 122