/usr/bin/rss-glx_install is in rss-glx 0.9.1-6+b2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 | #!/usr/bin/env perl
use strict;
if (`ps x | grep ' xscreensaver ' | grep -v grep`) {
print "XScreenSaver seems to be running. Exit it before running this script.\n";
exit;
}
my $screensavers = { };
$screensavers->{'cyclone'} = ' GL: "Cyclone" cyclone --root \\n\\';
$screensavers->{'euphoria'} = ' GL: "Euphoria" euphoria --root \\n\\';
$screensavers->{'fieldlines'} = ' GL: "Fieldlines" fieldlines --root \\n\\';
$screensavers->{'flocks'} = ' GL: "Flocks" flocks --root \\n\\';
$screensavers->{'flux'} = ' GL: "Flux" flux --root \\n\\';
$screensavers->{'helios'} = ' GL: "Helios" helios --root \\n\\';
$screensavers->{'hyperspace'} = ' GL: "Hyperspace" hyperspace --root \\n\\';
$screensavers->{'lattice'} = ' GL: "Lattice" lattice --root \\n\\';
$screensavers->{'plasma'} = ' GL: "Plasma" plasma --root \\n\\';
$screensavers->{'skyrocket'} = ' GL: "Skyrocket" skyrocket --root \\n\\';
$screensavers->{'solarwinds'} = ' GL: "Solarwinds" solarwinds --root \\n\\';
$screensavers->{'colorfire'} = ' GL: "Colorfire" colorfire --root \\n\\';
$screensavers->{'hufo_smoke'} = ' GL: "Hufo\'s Smoke" hufo_smoke --root \\n\\';
$screensavers->{'hufo_tunnel'} = ' GL: "Hufo\'s Tunnel" hufo_tunnel --root \\n\\';
$screensavers->{'sundancer2'} = ' GL: "Sundancer2" sundancer2 --root \\n\\';
$screensavers->{'biof'} = ' GL: "BioF" biof --root \\n\\';
$screensavers->{'busyspheres'} = ' GL: "BusySpheres" busyspheres --root \\n\\';
$screensavers->{'spirographx'} = ' GL: "SpirographX" spirographx --root \\n\\';
$screensavers->{'matrixview'} = ' GL: "MatrixView" matrixview --root \\n\\';
$screensavers->{'lorenz'} = ' GL: "Lorenz" lorenz --root \\n\\';
$screensavers->{'drempels'} = ' GL: "Drempels" drempels --root \\n\\';
$screensavers->{'feedback'} = ' GL: "Feedback" feedback --root \\n\\';
$screensavers->{'pixelcity'} = ' GL: "Pixel City" pixelcity --root \\n\\';
open XSCREENSAVER, "$ENV{'HOME'}/.xscreensaver";
my @xscreensaver_config_file = <XSCREENSAVER>;
close XSCREENSAVER;
open XSCREENSAVER, ">$ENV{'HOME'}/.xscreensaver";
my $programs_section_flag = 0;
foreach my $line (@xscreensaver_config_file) {
if ($line =~ /^programs:/) {
$programs_section_flag = 1;
} elsif ($programs_section_flag) {
if ($line =~ /\\\s+/) {
foreach my $screensaver (keys %{$screensavers}) {
if ($line =~ /\s$screensaver\s/) {
delete $screensavers->{$screensaver};
}
}
} else {
foreach my $screensaver (keys %{$screensavers}) {
print XSCREENSAVER "$screensavers->{$screensaver}\n";
}
$programs_section_flag = 0;
}
}
print XSCREENSAVER "$line";
}
close XSCREENSAVER;
|