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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
#!/usr/bin/perl
# (c) MandrakeSoft, Chmouel Boudjnah <chmouel@mandrakesoft.com>
# Copyright under GPL blah blah blah.
## you'll don't find much info here, see --help.
my @lf;
sub usage {
my $e = shift @_;
$0 =~ s|.*/||;
print { $e ? STDERR : STDOUT } << "EOF";
Usage: $0 [OPTION]...
-F --first: Print only first available entry.
-t, --test: Go in test mode.
-l, --list: List window-managers.
-f=FILE, --file=FILE: Specify an alternarte config files other
than /etc/X11/window-manager
-x=ENTRY, --xsession=ENTRY: Product window-managers script of ENTRY.
-r=ENTRY, --remove=ENTRY: remove an entry (product to stdin).
-k, --kdm: Product window-managers list for kdm sessions.
-g, --gdm: Product window-managers script for gdm sessions.
-h, --help: Product this help.
EOF
exit($e);
}
sub parse_file {
my $f=shift @_;
open F, $f or die "Can't open $f\n";
local $/ = "--@@--";
while (<F>) {
$n = $1 if /^NAME=(.*)/m;
$e = $1 if /^EXEC=(.*)/m;
$d = $1 if /^DESC=(.*)/m;
$i = $1 if /^ICON=(.*)/m;
$s = $1 while /SCRIPT:(.*?)$/gs; chomp $s;
if (-x $e) { $script{$n} = $s; $exec{$n} = $e; $desc{$n} = $d; $icon{$n} = $i; push @lf, $n; }
}
}
sub remove_entry {
my $e = shift @_;
my $f = shift @_;
open F, $f or die "Can't open $f\n";
local $/ = "--@@--";
while (<F>) {
next if /^NAME=$e/m;
print;
}
}
usage(1)
if @ARGV < 1;
while ($ARGV[0] =~ /^--/ || $ARGV[0] =~ /^-/) {
$_ = shift;
if (/^--xsession=([^ ]+)/ || /^-x=([^ ]+)/) {
$xsession = $1;
} elsif (/^--first/ || /^-F/) {
$first++;
} elsif (/^--gdm/ || /^-g/) {
die "You should be root to build gdm session\n" if $< != 0;
$gdm++;
} elsif (/^--list/ || /^-l/) {
$list++;
} elsif (/^--kdmsess/ || /^-k/) {
$kdm++;
} elsif (/^--test/ || /^-t/) {
$test++;
} elsif (/^--file=([^ ]+)/ || /^-f=([^ ]+)/) {
$file = $1;
} elsif (/^--remove=([^ ]+)/ || /^-r=([^ ]+)/) {
$remove=$1;
} elsif (/^--help/ || /^-h/ || /^-\?/) {
usage(0);
} else {
print STDERR "Unrecognized switch: $_\n";
usage(1);
}
}
$file = $test ? './window-managers' : '/etc/X11/window-managers' unless $file;
die "$file don't exist\n" unless -r $file;
$remove ? remove_entry($remove, $file) : parse_file ($file);
if ($kdm) {
$session="SessionTypes=";
for(@lf) { $session .= /$lf[-1]/ ? "$_;failsafe;default" : "$_;" }
print "$session\n";
exit(0);
}
if ($gdm) {
my $d = '/etc/X11/gdm/Sessions/';
chdir $d;
#Any better way ?
opendir D, $d or die "Can't open $d\n";
for ( readdir(D)) { next if /^\.\.?/;next if /^Failsafe/; chmod 0644, $_; }
closedir D;
for my $file (@lf) {
open FH, ">/etc/X11/gdm/Sessions/$file" or die "Can't write to /etc/X11/gdm/Sessions/$file\n";
print FH "#!/bin/sh";
print FH $script{$file};
close FH;
chmod 0755, $file;
}
unlink 'Default';
symlink shift @lf, 'Default';
}
if ($xsession) {
if ($script{$xsession}) {
print "#!/bin/sh\n";
print $script{$xsession}
} else {
print "xterm -geometry 100x25+0+0 &\n";
-x '/usr/X11R6/bin/icewm' ? print "icewm\n" : print "xterm -geometry 67x14+384+446\n";
}
exit (0);
}
print shift @lf, "\n" if $first;
if ($list) { my $p; for(@lf) { $p .= /$lf[-1]/ ? "$_ default failsafe" : "$_ " } print "$p\n"; }
|
