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 / usr / bin / rss-glx_install < prev    next >
Encoding:
Text File  |  2007-03-09  |  3.1 KB  |  60 lines
  1. #!/usr/bin/env perl
  2. use strict;
  3.  
  4. if (`ps x | grep ' xscreensaver ' | grep -v grep`) {
  5.     print "XScreenSaver seems to be running. Exit it before running this script.\n";
  6.     exit;
  7. }
  8.  
  9. my $screensavers = { };
  10.  
  11. $screensavers->{'cyclone'}     = '  GL:                "Cyclone"  cyclone --root                              \\n\\';
  12. $screensavers->{'euphoria'}    = '  GL:               "Euphoria"  euphoria --root                             \\n\\';
  13. $screensavers->{'fieldlines'}     = '  GL:             "Fieldlines"  fieldlines --root                           \\n\\';
  14. $screensavers->{'flocks'}     = '  GL:                 "Flocks"  flocks --root                               \\n\\';
  15. $screensavers->{'flux'}     = '  GL:                   "Flux"  flux --root                                 \\n\\';
  16. $screensavers->{'helios'}     = '  GL:                 "Helios"  helios --root                               \\n\\';
  17. $screensavers->{'hyperspace'}     = '  GL:             "Hyperspace"  hyperspace --root                           \\n\\';
  18. $screensavers->{'lattice'}     = '  GL:                "Lattice"  lattice --root                              \\n\\';
  19. $screensavers->{'plasma'}     = '  GL:                 "Plasma"  plasma --root                               \\n\\';
  20. $screensavers->{'skyrocket'}     = '  GL:              "Skyrocket"  skyrocket --root                            \\n\\';
  21. $screensavers->{'solarwinds'}     = '  GL:             "Solarwinds"  solarwinds --root                           \\n\\';
  22. $screensavers->{'colorfire'}     = '  GL:              "Colorfire"  colorfire --root                            \\n\\';
  23. $screensavers->{'hufo_smoke'}     = '  GL:           "Hufo\'s Smoke"  hufo_smoke --root                           \\n\\';
  24. $screensavers->{'hufo_tunnel'}     = '  GL:          "Hufo\'s Tunnel"  hufo_tunnel --root                          \\n\\';
  25. $screensavers->{'sundancer2'}     = '  GL:             "Sundancer2"  sundancer2 --root                           \\n\\';
  26. $screensavers->{'biof'}     = '  GL:                   "BioF"  biof --root                                 \\n\\';
  27. $screensavers->{'busyspheres'}     = '  GL:            "BusySpheres"  busyspheres --root                          \\n\\';
  28. $screensavers->{'spirographx'}     = '  GL:            "SpirographX"  spirographx --root                          \\n\\';
  29. $screensavers->{'matrixview'}     = '  GL:             "MatrixView"  matrixview --root                           \\n\\';
  30.  
  31. open XSCREENSAVER, "$ENV{'HOME'}/.xscreensaver";
  32. my @xscreensaver_config_file = <XSCREENSAVER>;
  33. close XSCREENSAVER;
  34.  
  35. open XSCREENSAVER, ">$ENV{'HOME'}/.xscreensaver";
  36.  
  37. my $programs_section_flag = 0;
  38. foreach my $line (@xscreensaver_config_file) {
  39.     if ($line =~ /^programs:/) {
  40.         $programs_section_flag = 1;
  41.     } elsif ($programs_section_flag) {
  42.         if ($line =~ /\\\s+/) {
  43.             foreach my $screensaver (keys %{$screensavers}) {
  44.                 if ($line =~ /\s$screensaver\s/) {
  45.                     delete $screensavers->{$screensaver};
  46.                 }
  47.             }
  48.         } else {
  49.             foreach my $screensaver (keys %{$screensavers}) {
  50.                 print XSCREENSAVER "$screensavers->{$screensaver}\n";
  51.             }
  52.  
  53.             $programs_section_flag = 0;
  54.         }
  55.     }
  56.     print XSCREENSAVER "$line";
  57. }
  58.  
  59. close XSCREENSAVER;
  60.