home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / live / usr / sbin / register-window-manager < prev    next >
Text File  |  1999-09-19  |  5KB  |  239 lines
  1. #! /usr/bin/perl
  2.  
  3. # register-window-manager
  4. # Copyright 1998 Sean Perry, Marcelo Magallon, Branden Robinson and
  5. # Marcus Brinkmann.
  6. # Licensed under the GNU GPL.
  7.  
  8. # History
  9. # 0.3.0 - Create the config file if it doesn't exist yet (#35055). [MB]
  10. # 0.2.7 - Fixed bug: The word boundaries introduced a bug, now checking for
  11. #         whole line matching (#30186, Gorgo). Cleaned up a bit of the
  12. #         source (using numeric values instead of strings in &ifexists). [MB]
  13. # 0.2.6 - Fixed bug: Watch out for word boundaries (#28936, Daniel Martin). [MB]
  14. # 0.2.5 - made /usr/X11R6/bin error more terse [BR]
  15. # 0.2.4 - Fixed bug: The script will refuse to add /usr/X11R6/bin/*
  16. #         window managers. [MB]
  17. # 0.2.3 - minor cosmetic changes [BR]
  18. # 0.2.2 - Removed debug line. [MB]
  19. # 0.2.1 - Fixed bug in --default handling. [MB]
  20. # 0.2   - Fixed minor typo in usage text ("the the" -> "be the"). [MB]
  21. #       - Added removal of /usr/X11R6/bin/* entries. [MB]
  22. #         This is done to remove policy violation of prior window
  23. #         managers.  This is radical, but simple.  At some later time,
  24. #         the code that does this should probably be removed, so even
  25. #         /usr/X11R6/bin/* style paths work.
  26. #       - Added configuration variables. [MB]
  27. #       - Reworked file handling.  Read once, write once, modify array. [MB]
  28. # 0.1   - Initial Version
  29.  
  30. # Configuration
  31.  
  32. $wm_file = '/etc/X11/window-managers';
  33. $df_path = '/usr/bin/X11/';
  34.  
  35. while ($ARGV[0] =~ m/^--/) {
  36.     $_ = shift(@ARGV);
  37.     if (/--add/) {
  38.         $mode="add";
  39.     } elsif (/--remove/) {
  40.         $mode="remove";
  41.     } elsif (/--default/) {
  42.         $mode="default";
  43.     } elsif (/--ask/) {
  44.         $ask="true";
  45.     } else {
  46.         &usage;
  47.     }
  48. }
  49.  
  50. unless( $#ARGV == 0 ) { 
  51.     &usage;
  52. }
  53.  
  54. if( $ARGV[0] !~ m/^\// ) {
  55.     $WM = $df_path . $ARGV[0];
  56. }
  57. else {
  58.     $WM = $ARGV[0];
  59. }
  60.  
  61. if (! -e $wm_file) {
  62.     open (WMFILE, ">$wm_file");
  63.     print WMFILE << '_EOF_';
  64. # This file contains a list of available window managers. The default
  65. # Xsession file will start the first window manager that it can
  66. # in this list.
  67. _EOF_
  68.     close WMFILE;
  69. }
  70.  
  71. open(WMFILE, $wm_file) || 
  72.     die("Error opening $wm_file!\n");
  73. @WMS = <WMFILE>;
  74. close WMFILE;
  75.  
  76. &kill_dirty_policy_violation();
  77.  
  78. if ( $ask eq "true") {
  79.     &ask($mode, $WM);
  80. }
  81.  
  82. if( $mode eq 'add' ) {
  83.     &add_to_file($WM);
  84. } 
  85. elsif( $mode eq 'default' ) {
  86.     &make_default($WM);
  87. } 
  88. elsif( $mode eq 'remove' ) {
  89.     &rm_from_file($WM);
  90. } 
  91.  
  92. open (WMFILE, '>'.$wm_file) ||
  93.     die("Error opening $wm_file for writing!\n");
  94. print WMFILE @WMS;
  95. close WMFILE;
  96.  
  97. ###
  98. #
  99. # Usage information
  100. #
  101. ###
  102. sub usage {
  103.     print <<EOT;
  104. Usage: $0 [--ask] {--add|--default|--remove} <wm>
  105.  
  106. Options:
  107.   --ask            Asks for confimation of the requested action
  108.  
  109. Actions:
  110.   --add            Adds the specified window manager to the bottom of the
  111.                    $wm_file file
  112.   --remove         Removes the specified window manager
  113.   --default        Adds the specified window manager to the top of the
  114.                    $wm_file file, thus making it the system
  115.                    default
  116.  
  117. <wm> can be the full path to the window manager excecutable, or just the
  118. filename ($df_path will be prepended to it).
  119. EOT
  120.     exit(0);
  121. }
  122.  
  123. ###
  124. #
  125. # Asks for confirmation of the requested action
  126. #
  127. ###
  128. sub ask {
  129.     ($mode) = shift(@_);
  130.     ($WM)   = @_;
  131.  
  132.     print "The following window managers are listed in $wm_file:\n\n";
  133.     foreach (@WMS) {
  134.         if (m/\//) {
  135.             print "\t" . $_;
  136.         }
  137.     }
  138.     print "\n";
  139.  
  140.     if ($mode eq "add") {
  141.         $prompt = "Do you want to add $WM to the list";
  142.     } elsif ($mode eq "remove") {
  143.         $prompt = "Do you want to remove $WM from the list";
  144.     } elsif ($mode eq "default") {
  145.         $prompt = "Do you want make $WM the default";
  146.     }
  147.  
  148.     &ask_n($prompt) || exit(0);
  149. }
  150.  
  151. ###
  152. #
  153. # Asks a question, "No" is the default
  154. #
  155. ###
  156. sub ask_n {
  157.     my $answer;
  158.     print @_,"? [No] ";
  159.     $answer=<STDIN>;
  160.     return ( $answer =~ /^\s*y/i );
  161. }
  162.  
  163. ###
  164. #
  165. # Adds window manager passed to the end of window-managers file
  166. #
  167. ###
  168. sub add_to_file {
  169.     ($wm) = @_;
  170.  
  171.     return if(&ifexists($wm));
  172.     die ("not adding window manager with path /usr/X11R6/bin/ per Debian policy\n") if ($wm =~ /^\/usr\/X11R6\/bin\//);
  173.  
  174.     push @WMS, $wm."\n";
  175. }
  176.  
  177. ###
  178. #
  179. # Makes window manager passed the default by putting it first
  180. #
  181. ###
  182. sub make_default {
  183.     ($wm) = @_;
  184.     my $found = -1;
  185.  
  186.     if(&ifexists($wm)) {
  187.         &rm_from_file($wm);
  188.     }
  189.  
  190.     while ($WMS[$found+1] !~ /^\// && $found <= $#WMS) {
  191.         $found++;
  192.     }
  193.     splice (@WMS, $found+1, 0, $wm."\n");    # insert window manager at top
  194. }
  195.  
  196. ###
  197. #
  198. # Removes passed window manager from window-managers file
  199. #
  200. ###
  201. sub rm_from_file {
  202.     ($wm) = @_;
  203.     my @backup = ();
  204.  
  205.     foreach (@WMS) {
  206.         push (@backup, $_) unless ( m/^$wm$/ );
  207.     }
  208.     @WMS = @backup;
  209. }
  210.  
  211. ###
  212. #
  213. # returns 1 if window manager exists in the file, 0 otherwise
  214. #
  215. ###
  216. sub ifexists {
  217.     ($wm) = @_;
  218.     foreach (@WMS) {
  219.         if( m/^$wm$/ ) {
  220.             return 1;
  221.         }
  222.     }
  223.     return 0;
  224. }
  225.  
  226. ##
  227. #
  228. # kills all /usr/X11R6/bin/* entries.
  229. #
  230. ###
  231. sub kill_dirty_policy_violation {
  232.     my @backup = ();
  233.  
  234.     foreach (@WMS) {
  235.         push (@backup, $_) unless ( m!^/usr/X11R6/bin/! );
  236.     }
  237.     @WMS = @backup;
  238. }
  239.