Mercurial > pkg

diff src/pkg.pl @ 21:d46aeb3166d0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
going to work on file permissions/ownership since mercurial doesn't track them.
author Robert McIntyre <rlm@mit.edu>
date Thu, 10 Jan 2013 07:02:49 +0000
parents c75924bd38e3
children 43cfd1a2c523
line wrap: on
line diff
     1.1 --- a/src/pkg.pl	Thu Jan 10 04:25:17 2013 +0000
     1.2 +++ b/src/pkg.pl	Thu Jan 10 07:02:49 2013 +0000
     1.3 @@ -73,12 +73,18 @@
     1.4  @pkg_add_install_cmd = 
     1.5    ("gpasswd", "--add", $pkg_name, "install");
     1.6  
     1.7 +sub copy_default_file {
     1.8 +  execute(("install", "-g", $pkg_name, "-o", $pkg_name,
     1.9 +	   "/pkg/hg-committer/$_[0]", "$pkg_home"));
    1.10 +}
    1.11 +
    1.12 +
    1.13  @pkg_link_bashrc_cmd =
    1.14 -  ("install", "-g", $pkg_name, "-o", $pkg_name,
    1.15 +("install", "-g", $pkg_name, "-o", $pkg_name,
    1.16     "/pkg/hg-committer/.profile", "$pkg_home/.profile");
    1.17  
    1.18  @pkg_copy_hg_wrapper_cmd =
    1.19 -  (install, "-g", "hg-wheel", "-o", "hg-committer",
    1.20 +  ("install", "-g", "hg-wheel", "-o", "hg-committer",
    1.21     "-m", "6111", "/pkg/hg-committer/hg-wrapper", "$pkg_home/.hg-wrapper");
    1.22  
    1.23  sub execute{print "\t@_\n"; system(@_) and die $!;}
    1.24 @@ -102,8 +108,13 @@
    1.25  execute(@pkg_add_install_cmd);
    1.26  
    1.27  print "Copy Default Files.\n";
    1.28 -execute(@pkg_link_bashrc_cmd);
    1.29 +
    1.30  execute(@pkg_copy_hg_wrapper_cmd);
    1.31 +copy_default_file(".hgrc");
    1.32 +copy_default_file(".profile");
    1.33 +
    1.34 +#execute(@pkg_link_bashrc_cmd);
    1.35 +#execute(@pkg_copy_hgrc_cmd);
    1.36  
    1.37  print "Change user.\n";
    1.38  execute(@pkg_switch_cmd);