Mercurial > pkg

     1 #!/usr/bin/env perl

     2 

     3 

     4 #this is the root of the package users' homes

     5 $pkg_home_root =  "/pkg";

     6 

     7 

     8 if ($ARGV[0] eq "--help"){

     9   print <<"HERE";

    10 

    11 pkg -- create a package user.

    12 

    13 syntax:

    14   pkg package-name description

    15   pkg --help 

    16   

    17 Create a package user for the purpose of compiling

    18 a particular package.

    19 

    20 The user will be created with user and group both

    21 equal to the name you specify.

    22 

    23 You will then be put into the user home

    24 directory where you may proceed with

    25 compiling/installing the package.

    26 

    27 If the user already exists, this is equivalent to 

    28   su --login package-name

    29 

    30 Written by Robert McIntyre. This software is free

    31 software and is released to the public domain.

    32   

    33 HERE

    34 exit 0;

    35 }

    36 $" = " ";

    37 

    38 $pkg_name = $ARGV[0];

    39 

    40 $pkg_desc = $ARGV[1];

    41 

    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 }

    47 

    48 # Validate description.

    49 if ($pkg_desc =~ m/:/){

    50   print "Package Description cannot contain \":\"\n";

    51   exit 1;

    52 }

    53 

    54 $pkg_home = "$pkg_home_root/$pkg_name";

    55 

    56 #set default for $pkg_desc.

    57 if (!($pkg_desc)){$pkg_desc = $pkg_name;}

    58 

    59 @pkg_switch_cmd =  ("su", "--login", $pkg_name);

    60 

    61 @pkg_create_cmd =

    62   ("useradd", "-c", $pkg_desc, "-d", $pkg_home, 

    63    "-g", $pkg_name, "-s", "/bin/bash",

    64    $pkg_name);

    65 

    66 @pkg_create_group_cmd =

    67   ("groupadd", "--force", $pkg_name);

    68 

    69 @pkg_create_home_cmd = 

    70   ("install", "-d", "-g", $pkg_name, "-o", $pkg_name, 

    71    "-m", "755", $pkg_home);

    72 

    73 @pkg_add_install_cmd = 

    74   ("gpasswd", "--add", $pkg_name, "install");

    75 

    76 sub copy_default_file {

    77   execute(("install", "-g", $pkg_name, "-o", $pkg_name,

    78 	   "/pkg/skel/$_[0]", "$pkg_home"));

    79 }

    80 

    81 

    82 @pkg_link_bashrc_cmd =

    83 ("install", "-g", $pkg_name, "-o", $pkg_name,

    84    "/pkg/skel/.profile", "$pkg_home/.profile");

    85 

    86 @pkg_copy_hg_wrapper_cmd =

    87   ("install", "-g", "root", "-o", "root",

    88    "-m", "6111", "/pkg/skel/hg-wrapper", "$pkg_home/.hg-wrapper");

    89 

    90 @pkg_copy_save_acls_cmd =

    91   ("install", "-g", "root", "-o", "root",

    92    "-m", "6111", "/pkg/skel/save-acls", "$pkg_home/.save-acls");

    93 

    94 sub execute{print "\t@_\n"; system(@_) and die $!;}

    95 

    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;}

   101 

   102 print "Creating package group.\n";

   103 execute(@pkg_create_group_cmd);

   104 

   105 print "Creating package user.\n";

   106 execute(@pkg_create_cmd);

   107 

   108 print "Create home directory for $pkg_name.\n";

   109 execute(@pkg_create_home_cmd);

   110 

   111 print "Add $pkg_name to install group.\n";

   112 execute(@pkg_add_install_cmd);

   113 

   114 print "Copy Default Files.\n";

   115 

   116 execute(@pkg_copy_hg_wrapper_cmd);

   117 execute(@pkg_copy_save_acls_cmd);

   118 copy_default_file(".profile");

   119 

   120 #execute(@pkg_link_bashrc_cmd);

   121 #execute(@pkg_copy_hgrc_cmd);

   122 

   123 print "Change user.\n";

   124 execute(@pkg_switch_cmd);
author	Robert McIntyre <rlm@mit.edu>
date	Tue, 15 Jan 2013 12:24:31 +0000
parents	f1d0574937b5
children	426344e3e639