home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2007 September / PCWSEP07.iso / Software / Linux / Linux Mint 3.0 Light / LinuxMint-3.0-Light.iso / casper / filesystem.squashfs / var / lib / dpkg / info / sudo.postinst < prev    next >
Encoding:
Text File  |  2006-10-09  |  1.7 KB  |  63 lines
  1. #!/usr/bin/perl
  2.  
  3. # remove old link
  4.  
  5. unlink ("/etc/alternatives/sudo") if ( -l "/etc/alternatives/sudo");
  6.  
  7. # make sure we have a sudoers file
  8. if ( ! -f "/etc/sudoers") {
  9.  
  10.     print "No /etc/sudoers found... creating one for you.\n";
  11.  
  12.     open (SUDOERS, "> /etc/sudoers");
  13.     print SUDOERS "# /etc/sudoers\n",
  14.       "#\n",
  15.       "# This file MUST be edited with the 'visudo' command as root.\n",
  16.       "#\n",
  17.       "# See the man page for details on how to write a sudoers file.\n",
  18.       "# Host alias specification\n\n",
  19.       "# User alias specification\n\n",
  20.       "# Cmnd alias specification\n\n",
  21.       "# Defaults\n\nDefaults\t!lecture,tty_tickets,!fqdn\n\n",
  22.       "# User privilege specification\nroot\tALL=(ALL) ALL\n";
  23.     close SUDOERS;
  24.  
  25. }
  26.  
  27. # make sure sudoers has the correct permissions and owner/group
  28. system ('chown root:root /etc/sudoers');
  29. system ('chmod 440 /etc/sudoers');
  30.  
  31. # must do a remove first to un-do the "bad" links created by previous version
  32. system ('update-rc.d -f sudo remove >/dev/null 2>&1');
  33.  
  34. #system ('update-rc.d sudo start 75 S . >/dev/null');
  35.  
  36. # make sure we have a sudo group
  37.  
  38. exit 0 if getgrnam("sudo"); # we're finished if there is a group sudo
  39.  
  40. $gid = 27;                 # start searcg with gid 27
  41. setgrent;
  42. while (getgrgid($gid)) {
  43.     ++$gid;
  44. }
  45. endgrent;
  46.  
  47. if ($gid != 27) {
  48.     print "On Debian we normally use gid 27 for 'sudo'.\n";
  49.     $gname = getgrgid(27);
  50.     print "However, on your system gid 27 is group '$gname'.\n\n";
  51.     print "Would you like me to stop configuring sudo so that you can change this? [n] "; 
  52.     $ans = <STDIN>;
  53.         if ($ans =~ m/^[yY].*/) {
  54.         print "'dpkg --pending --configure' will restart the configuration.\n\n\n";
  55.         exit 1;
  56.     }
  57. }
  58.  
  59. print "Creating group 'sudo' with gid = $gid\n";
  60. system("groupadd -g $gid sudo");
  61.  
  62. print "";
  63.