home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / unix / armlinux / alpha / PARTITIONS / USR_GZ / usr / sbin / addgroup next >
Encoding:
Text File  |  1995-06-09  |  7.3 KB  |  263 lines
  1. #!/usr/bin/perl
  2. #
  3. # addgroup: a utility to add groups to the system
  4. #     $Id: addgroup,v 0.10 1995/03/02 03:24:38 tedhajek Exp $    
  5.  
  6. #
  7. # Copyright (C) 1995 Ted Hajek <tedhajek@boombox.micro.umn.edu>
  8. # General scheme of the program adapted by the debian 'adduser'
  9. #  program by Ian A. Murdock <imurdock@gnu.ai.mit.edu>.
  10. #
  11. #    This program is free software; you can redistribute it and/or modify
  12. #    it under the terms of the GNU General Public License as published by
  13. #    the Free Software Foundation; either version 2 of the License, or
  14. #    (at your option) any later version.
  15. #
  16. #    This program is distributed in the hope that it will be useful,
  17. #    but WITHOUT ANY WARRANTY; without even the implied warranty of
  18. #    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19. #    GNU General Public License for more details.
  20. #
  21. #    You should have received a copy of the GNU General Public License
  22. #    along with this program; if not, write to the Free Software
  23. #    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  24. #
  25. # NOTE: addgroup should be used to add system, maintenance and
  26. #       project groups to the system.
  27. #
  28. #       By default, the debian 'adduser' program creates
  29. #       a group for each created user; this group has the same
  30. #       ID number as the associated user.
  31. #
  32. #       Therefore, we shouldn't create any groups with GID equal
  33. #       to or greater than the lowest UID used by adduser.
  34. #       This is given in the file /etc/adduser.conf in an entry
  35. #       such as "FIRST_UID=1000"
  36. #
  37. #       Furthermore, the first 99 GIDs are reserved for the base
  38. #       system maintainer.  Therefore, we should add groups with
  39. #       GIDs greater than or equal to 100.
  40. #
  41. #       If there is no available GID under FIRST_UID, exit with
  42. #       a suitable error message.
  43. #
  44. ##
  45. ## TODO
  46. ##
  47. # 
  48. # - allow users belonging to group to be specified on command line?
  49.  
  50.  
  51. # are we debugging?
  52. $debugging = 0;
  53.  
  54. ##
  55. ## need to trap signals 1 2 3 and 15 here so user can't kill us
  56. ## when things are in some half-baked state.
  57. ##
  58.  
  59. # Set up some important things:
  60. $GROUP = "/etc/group";        # the group file
  61. $GBACK = "/etc/group~";        # the backup group file
  62. $GLOCK = "/etc/gtmp";        # the lock file
  63.                                 # I don't know if this is standard,
  64.                 # but it should be :-)
  65.                 # I'll work out a better locking scheme
  66.                 # later.
  67. $DEFAULTS = "/etc/adduser.conf";
  68. $default_first_uid = 1000;    # value to use if we can't find one
  69.                 # specified in the adduser.conf file
  70. $MIN_GID = 100;            # leave some room for system stuff
  71.  
  72. ##
  73. ## check if certain conditions are met before we start
  74. ## plodding around within the group file.
  75. ##
  76.  
  77. # we must be root.
  78. if ($> != 0) {
  79.     print "$0: only root may add groups to the system.\n";
  80.     exit 1;
  81. }
  82. # the user must specify a group name to add
  83. $group_name = shift(@ARGV);
  84. print STDOUT "$group_name\n" if $debugging;
  85. if (! $group_name) {
  86.     print "$0: you must specify a group name to be added.\n";
  87.     print "For example, '$0 junk-maintainers'.\n";
  88.     exit 1;
  89. }
  90. # check if the group to be added already exists
  91. if (&group_exists($group_name)) {
  92.     print "$0: the group you specified already exists.\n";
  93.     exit 1;
  94. }
  95. # check if the group file is locked by some other process
  96. if (-f $GLOCK) {
  97.     print "$0: $GROUP is locked.  Try again later.\n";
  98.     exit 1;
  99. }
  100.  
  101. ##
  102. ## lock the group file
  103. ##
  104. link $GROUP, $GLOCK;
  105.  
  106. # read the file of defaults.
  107. $first_uid = &get_first_uid($DEFAULTS, $default_first_uid);
  108.  
  109. # suck the existing GIDs into an array
  110. @current_gids = &get_current_gids;
  111. # sort 'dem GIDs
  112. @sorted_gids = sort {$a <=> $b} @current_gids;
  113. # find the first available GID
  114. $last_one = shift(@sorted_gids);
  115. while ($this_one = shift(@sorted_gids)) {
  116.     if ($this_one <= $MIN_GID) {
  117.     $last_one = $this_one; # advance if we're under $MIN_GID
  118.     next;
  119.     }
  120.     if ($this_one > $last_one + 1) {
  121.     $lowest_available = $last_one + 1;
  122.     last;
  123.     } else {
  124.     $last_one = $this_one;
  125.     }
  126. }
  127. # if we haven't yet set $lowest_available, there's no hole.
  128. $lowest_available = ($last_one + 1) if (! $lowest_available);
  129. # make sure we're at the minimum.
  130. $lowest_available = $MIN_GID if ($lowest_available < $MIN_GID);
  131.  
  132. # make sure that we're below the ceiling
  133. if ($lowest_available >= $first_uid) {
  134.     print "$0: no GID available beneath first normal user's ID.\n";
  135.     exit 1;
  136. }
  137.  
  138. # save the original group file
  139. open (GBACK, ">$GBACK") || die "open: $!";
  140. open (GROUP, "$GROUP") || die "open: $!";
  141. while (<GROUP>) {
  142.     print GBACK;
  143. }
  144. close GROUP;
  145. close GBACK;
  146.  
  147. # write the new entry at the appropriate place in the group file
  148. open (GROUP, ">$GROUP") || die "open: $!";
  149. open (GBACK, "$GBACK") || die "open: $!";
  150. $added_new_one = 0;
  151. while($line = <GBACK>) {
  152.     chop $line;
  153.     ($name, $passwd, $gid, $members) = split(/:/, $line);
  154.     if ($gid < $lowest_available || $added_new_one) {
  155.     print GROUP $line, "\n";
  156.     print STDOUT "GID: $gid\n" if $debugging;
  157.     } else {            # we haven't added the new one yet
  158.     print GROUP "${group_name}::${lowest_available}:\n";
  159.     $added_new_one = 1;
  160.     print STDOUT "Just added new one\n" if $debugging;
  161.     print GROUP $line, "\n";
  162.     print STDOUT "GID: $gid\n" if $debugging;
  163.     }
  164. }
  165. print GROUP "${group_name}::${lowest_available}:\n" if (! $added_new_one);
  166.  
  167. close GROUP;
  168. close GBACK;
  169.  
  170. # we're done!  Unlock the group file
  171. unlink $GLOCK;
  172. print "done.\n";
  173. exit 0;
  174.  
  175. ###################################################
  176. #=================================================#
  177. ###################################################
  178.  
  179. ###
  180. ### Subroutines
  181. ###
  182.  
  183. ############################
  184. # get_current_gids
  185. ############################
  186. # iterate through the group file; return an array
  187. # containing all the GIDs
  188. sub get_current_gids {
  189.     local (@gids);
  190.     local ($name, $passwd, $gid, $members); # the return values of "getgrent";
  191.  
  192.     setgrent;
  193.     while (($name, $passwd, $gid, $members) = getgrent) {
  194.     push @gids, $gid;
  195.     }
  196.     endgrent;
  197.  
  198.     return @gids;
  199. }
  200.  
  201. ############################
  202. # get_first_uid
  203. ############################
  204. # parse the defaults file for the first user UID number.
  205. # if the default file or entry doesn't exist, return the
  206. # SYSTEM default value given in 'adduser'.
  207. sub get_first_uid {
  208.     local($conf_file, $default) = @_;
  209.     local($current_line, $tag, $uid);
  210.  
  211.     # if there's not a config file, return the default.
  212.     print "Couldn't find $conf_file\n" if ($debugging && (! -f $conf_file));
  213.     return $default if (! -f $conf_file);
  214.  
  215.     open (CONF, $conf_file) || die "open: $!";
  216.     while ($current_line = <CONF>) {
  217.     chop $current_line;
  218.     if ($current_line =~ /^FIRST_UID=(\d+)$/) {
  219.         $uid = $1;
  220.         last;
  221.     }
  222.     }
  223.     close (CONF);
  224.  
  225.     print "Got UID = $uid from $conf_file\n" if ($uid && $debugging);
  226.     return $uid if ($uid);
  227.     print "Using default UID = $default\n" if $debugging;
  228.     return $default;
  229. }
  230.  
  231.  
  232.  
  233. #############################
  234. # group_exists
  235. #############################
  236. # takes a group name as an argument.  If the group already exists,
  237. # return 1.  If it doesn't, return 0.
  238. sub group_exists {
  239.     local ($group_name) = @_;
  240.     local ($exists);        # does group exist?
  241.     local ($name, $passwd, $gid, $members); # the return values of "getgrent";
  242.  
  243.     $exists = 0;
  244.     # reset the group lookup function
  245.     setgrent;
  246.     # iterate through the group file.  If the group exists, return 1.
  247.     while (($name, $passwd, $gid, $members) = getgrent) {
  248.     if ($name eq $group_name) {
  249.         $exists = 1;
  250.         last;
  251.     }
  252.     }
  253.     # close the group file
  254.     endgrent;
  255.  
  256.     return $exists;
  257. }
  258.  
  259.  
  260.  
  261.  
  262.  
  263.