Mercurial > pkg
view src/pkg.pl @ 33:4c49f8e6d79d
update makefile; general cleanup.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Sun, 10 Feb 2013 05:51:54 -0500 |
parents | 426344e3e639 |
children |
line wrap: on
line source
1 #!/bin/perl4 #this is the root of the package users' homes5 $pkg_home_root = "/pkg";8 if ($ARGV[0] eq "--help"){9 print <<"HERE";11 pkg -- create a package user.13 syntax:14 pkg package-name description15 pkg --help17 Create a package user for the purpose of compiling18 a particular package.20 The user will be created with user and group both21 equal to the name you specify.23 You will then be put into the user home24 directory where you may proceed with25 compiling/installing the package.27 If the user already exists, this is equivalent to28 su --login package-name30 Written by Robert McIntyre. This software is free31 software and is released to the public domain.33 HERE34 exit 0;35 }36 $" = " ";38 $pkg_name = $ARGV[0];40 $pkg_desc = $ARGV[1];42 # Validate pkg_user as a user name.43 if (!($pkg_name =~ m/^[a-z_][a-z0-9_-]*\$?$/)){44 print "$pkg_name is not a valid user name!\n";45 exit 1;46 }48 # Validate description.49 if ($pkg_desc =~ m/:/){50 print "Package Description cannot contain \":\"\n";51 exit 1;52 }54 $pkg_home = "$pkg_home_root/$pkg_name";56 #set default for $pkg_desc.57 if (!($pkg_desc)){$pkg_desc = $pkg_name;}59 @pkg_switch_cmd = ("su", "--login", $pkg_name);61 @pkg_create_cmd =62 ("useradd", "-c", $pkg_desc, "-d", $pkg_home,63 "-g", $pkg_name, "-s", "/bin/bash",64 $pkg_name);66 @pkg_create_group_cmd =67 ("groupadd", "--force", $pkg_name);69 @pkg_create_home_cmd =70 ("install", "-d", "-g", $pkg_name, "-o", $pkg_name,71 "-m", "755", $pkg_home);73 @pkg_add_install_cmd =74 ("gpasswd", "--add", $pkg_name, "install");76 sub copy_default_file {77 execute(("install", "-g", $pkg_name, "-o", $pkg_name,78 "/pkg/skel/$_[0]", "$pkg_home"));79 }82 @pkg_link_bashrc_cmd =83 ("install", "-g", $pkg_name, "-o", $pkg_name,84 "/pkg/skel/.profile", "$pkg_home/.profile");86 @pkg_copy_hg_wrapper_cmd =87 ("install", "-g", "root", "-o", "root",88 "-m", "6111", "/pkg/skel/hg-wrapper", "$pkg_home/.hg-wrapper");90 @pkg_copy_save_acls_cmd =91 ("install", "-g", "root", "-o", "root",92 "-m", "6111", "/pkg/skel/save-acls", "$pkg_home/.save-acls");94 sub execute{print "\t@_\n"; system(@_) and die $!;}96 #determine if the user already exists:97 `id $pkg_name 2>/dev/null`;98 if (!$?){99 print "Change user.\n";100 execute(@pkg_switch_cmd); exit 0;}102 print "Creating package group.\n";103 execute(@pkg_create_group_cmd);105 print "Creating package user.\n";106 execute(@pkg_create_cmd);108 print "Create home directory for $pkg_name.\n";109 execute(@pkg_create_home_cmd);111 print "Add $pkg_name to install group.\n";112 execute(@pkg_add_install_cmd);114 print "Copy Default Files.\n";116 execute(@pkg_copy_hg_wrapper_cmd);117 execute(@pkg_copy_save_acls_cmd);118 copy_default_file(".profile");120 #execute(@pkg_link_bashrc_cmd);121 #execute(@pkg_copy_hgrc_cmd);123 print "Change user.\n";124 execute(@pkg_switch_cmd);