8639
|
1 |
diff -u system-tools-backends-1.4.2/services-conf.in-orig system-tools-backends-1.4.2/services-conf.in
|
10822
|
2 |
--- system-tools-backends-1.4.2/services-conf.in-orig 2006-01-02 23:32:34.000000000 +0800
|
|
3 |
+++ system-tools-backends-1.4.2/services-conf.in 2007-11-14 16:37:05.174308000 +0800
|
8639
|
4 |
@@ -35,7 +35,6 @@
|
|
5 |
require "$SCRIPTSDIR/general.pl$DOTIN";
|
|
6 |
require "$SCRIPTSDIR/platform.pl$DOTIN";
|
|
7 |
require "$SCRIPTSDIR/service.pl$DOTIN";
|
|
8 |
- require "$SCRIPTSDIR/print.pl$DOTIN";
|
|
9 |
}
|
|
10 |
|
|
11 |
# --- Tool information --- #
|
|
12 |
@@ -51,6 +50,7 @@
|
7860
|
13 |
|
|
14 |
"debian-2.2", "debian-3.0", "debian-sarge",
|
|
15 |
|
|
16 |
+ "nexenta-1.0", "solaris-2.11",
|
|
17 |
"suse-7.0", "turbolinux-7.0", "fedora-1", "fedora-2", "fedora-3", "rpath",
|
|
18 |
"pld-1.0", "pld-1.1", "pld-1.99",
|
|
19 |
"slackware-9.1.0", "slackware-10.0.0", "slackware-10.1.0", "slackware-10.2.0",
|
8639
|
20 |
@@ -91,6 +91,7 @@
|
7860
|
21 |
{
|
|
22 |
if ($elem eq "runlevels") { $runlevel = &xml_parse_runlevel_list (shift @$tree)}
|
|
23 |
elsif ($elem eq "services") { push @$services, &xml_parse_service_list (shift @$tree); }
|
|
24 |
+ elsif ($elem eq "longname") { shift @$tree; }
|
|
25 |
else { &gst_report ("xml_unexp_tag", $elem); shift @$tree; }
|
|
26 |
}
|
|
27 |
|
8639
|
28 |
@@ -173,6 +174,7 @@
|
7860
|
29 |
elsif ($elem eq "role") { shift @$tree }
|
|
30 |
elsif ($elem eq "runlevels") { push @$runlevels, &xml_parse_runlevels (shift @$tree); }
|
|
31 |
elsif ($elem eq "script") { $$hash{"script"} = &gst_xml_get_pcdata (shift @$tree); }
|
|
32 |
+ elsif ($elem eq "longname") { shift @$tree; }
|
|
33 |
else { &gst_report ("xml_unexp_tag", $elem); shift @$tree; }
|
|
34 |
}
|
|
35 |
|
8639
|
36 |
@@ -260,6 +262,7 @@
|
7860
|
37 |
sub xml_print_runlevels
|
|
38 |
{
|
|
39 |
my ($h, $default) = @_;
|
|
40 |
+ &gst_xml_print_pcdata ("longname", $i);
|
|
41 |
&gst_xml_print_line ("<runlevels>");
|
|
42 |
&gst_xml_enter ();
|
|
43 |
|
10822
|
44 |
diff -up system-tools-backends-1.4.2/service.pl.in-clean system-tools-backends-1.4.2/service.pl.in
|
|
45 |
--- system-tools-backends-1.4.2/service.pl.in-clean 2006-01-02 15:42:19.000000000 +0000
|
|
46 |
+++ system-tools-backends-1.4.2/service.pl.in 2008-03-05 14:00:46.119320000 +0000
|
|
47 |
@@ -85,6 +85,9 @@ sub gst_service_sysv_get_paths
|
8027
|
48 |
"ubuntu-5.10" => ["$gst_prefix/etc", "$gst_prefix/etc/init.d", "../init.d"],
|
|
49 |
"ubuntu-6.04" => ["$gst_prefix/etc", "$gst_prefix/etc/init.d", "../init.d"],
|
|
50 |
|
|
51 |
+ "nexenta-1.0" => ["$gst_prefix/etc", "$gst_prefix/etc/init.d", "../init.d"],
|
|
52 |
+ "solaris-2.11" => ["$gst_prefix/etc", "$gst_prefix/etc/init.d", "../init.d"],
|
|
53 |
+
|
|
54 |
"suse-7.0" => ["$gst_prefix/etc/rc.d", "$gst_prefix/etc/rc.d", "../"],
|
|
55 |
"suse-9.0" => ["$gst_prefix/etc/init.d", "$gst_prefix/etc/init.d", "../"],
|
|
56 |
"suse-9.1" => ["$gst_prefix/etc/init.d", "$gst_prefix/etc/init.d", "../"],
|
10822
|
57 |
@@ -154,6 +157,9 @@ sub gst_service_sysv_get_runlevels
|
8027
|
58 |
"ubuntu-5.04" => [2, 3],
|
|
59 |
"ubuntu-5.10" => [2, 3],
|
|
60 |
"ubuntu-6.04" => [2, 3],
|
|
61 |
+
|
|
62 |
+ "nexenta-1.0" => [2, 3],
|
|
63 |
+ "solaris-2.11" => [2, 3],
|
|
64 |
|
|
65 |
"suse-7.0" => [3, 5],
|
|
66 |
"suse-9.0" => [3, 5],
|
10822
|
67 |
@@ -223,6 +229,10 @@ sub gst_service_get_runlevel_roles
|
8027
|
68 |
"ubuntu-5.04" => "debian-2.2",
|
|
69 |
"ubuntu-5.10" => "debian-2.2",
|
|
70 |
"ubuntu-6.04" => "debian-2.2",
|
|
71 |
+
|
|
72 |
+ "nexenta-1.0" => "nexenta",
|
|
73 |
+
|
|
74 |
+ "solaris-2.11" => "solaris",
|
|
75 |
|
|
76 |
"suse-7.0" => "redhat-5.2",
|
|
77 |
"suse-9.0" => "redhat-5.2",
|
10822
|
78 |
@@ -277,6 +287,14 @@ sub gst_service_get_runlevel_roles
|
8027
|
79 |
"default" => "GRAPHICAL",
|
|
80 |
"nonetwork" => "RECOVER"
|
|
81 |
},
|
|
82 |
+ "nexenta" => {"single-user" => "TEXT",
|
|
83 |
+ "multi-user" => "GRAPHICAL",
|
|
84 |
+ "none" => "RECOVER"
|
|
85 |
+ },
|
|
86 |
+ "solaris" => {"single-user" => "TEXT",
|
|
87 |
+ "multi-user" => "GRAPHICAL",
|
|
88 |
+ "none" => "RECOVER"
|
|
89 |
+ },
|
|
90 |
"freebsd-5" => {"rc" => "GRAPHICAL" },
|
|
91 |
"slackware-9.1.0" => {"4" => "GRAPHICAL" }
|
|
92 |
);
|
10822
|
93 |
@@ -797,6 +815,159 @@ sub gst_service_bsd_get_services
|
8027
|
94 |
return \%ret;
|
|
95 |
}
|
|
96 |
|
|
97 |
+sub gst_service_smf_service_exist
|
|
98 |
+{
|
|
99 |
+ my($service) = @_;
|
|
100 |
+ my($services) = &gst_service_smf_get_services_list();
|
|
101 |
+
|
|
102 |
+ foreach $i (@$services)
|
|
103 |
+ {
|
|
104 |
+ return 1 if ($i =~ /$service/);
|
|
105 |
+ }
|
|
106 |
+
|
|
107 |
+ return 0;
|
|
108 |
+}
|
|
109 |
+
|
|
110 |
+sub gst_service_smf_run_svcadm
|
|
111 |
+{
|
|
112 |
+ my ($service, $arg) = @_;
|
|
113 |
+ my ($option);
|
|
114 |
+
|
|
115 |
+ my %map =
|
|
116 |
+ ("stop" => "stopped",
|
|
117 |
+ "start" => "started"
|
|
118 |
+ );
|
|
119 |
+
|
|
120 |
+ my %op =
|
|
121 |
+ ("stop" => "disable",
|
|
122 |
+ "start" => "enable"
|
|
123 |
+ );
|
|
124 |
+
|
|
125 |
+ &gst_report_enter ();
|
|
126 |
+
|
|
127 |
+ if (!exists $map{$arg})
|
|
128 |
+ {
|
|
129 |
+ &gst_report ("service_sysv_op_unk", $arg);
|
|
130 |
+ &gst_report_leave ();
|
|
131 |
+ return -1;
|
|
132 |
+ }
|
|
133 |
+
|
|
134 |
+ if (&gst_service_smf_service_exist ($service))
|
|
135 |
+ {
|
|
136 |
+ if (!&gst_file_run ("svcadm $op{$arg} $service"))
|
|
137 |
+ {
|
|
138 |
+ &gst_report ("service_sysv_op_success", $service, $str);
|
|
139 |
+ &gst_report_leave ();
|
|
140 |
+ return 0;
|
|
141 |
+ }
|
|
142 |
+ }
|
|
143 |
+
|
|
144 |
+ &gst_report ("service_sysv_op_failed", $service, $str);
|
|
145 |
+ &gst_report_leave ();
|
|
146 |
+ return -1;
|
|
147 |
+}
|
|
148 |
+
|
|
149 |
+sub gst_service_smf_runlevel_status_by_service
|
|
150 |
+{
|
|
151 |
+ my ($service, $status) = @_;
|
|
152 |
+ my (@arr, @ret);
|
|
153 |
+ my (@runlevels) = split(" ","single-user multi-user");
|
|
154 |
+
|
|
155 |
+ foreach $runlevel (@runlevels)
|
|
156 |
+ {
|
|
157 |
+ if ($status)
|
|
158 |
+ {
|
|
159 |
+ push @arr, { "name" => $runlevel,
|
|
160 |
+ "action" => "start" };
|
|
161 |
+ }
|
|
162 |
+ else
|
|
163 |
+ {
|
|
164 |
+ push @arr, { "name" => $runlevel,
|
|
165 |
+ "action" => "stop" };
|
|
166 |
+ }
|
|
167 |
+ }
|
|
168 |
+
|
|
169 |
+ push @ret, { "runlevel" => \@arr };
|
|
170 |
+ return @ret;
|
|
171 |
+}
|
|
172 |
+
|
|
173 |
+sub gst_service_smf_get_service_info
|
|
174 |
+{
|
|
175 |
+ my ($service) = @_;
|
|
176 |
+ my ($script, @actions, @runlevels);
|
|
177 |
+ my %hash;
|
|
178 |
+ my $role;
|
|
179 |
+ my $status = 0;
|
|
180 |
+ my $longname = "";
|
|
181 |
+
|
10822
|
182 |
+
|
|
183 |
+ return undef if (&gst_service_list_service_is_forbidden ($service));
|
|
184 |
+
|
8027
|
185 |
+ my $fd = &gst_file_run_pipe_read ("svcs -l $service");
|
|
186 |
+ while (<$fd>) {
|
|
187 |
+ $status = 1 if (/^state.*online/);
|
|
188 |
+ $longname = $1 if (/^name\s*(.*)/);
|
|
189 |
+ }
|
|
190 |
+ gst_file_close ($fd);
|
|
191 |
+
|
|
192 |
+ my($runlevels) = &gst_service_smf_runlevel_status_by_service ($service, $status);
|
|
193 |
+
|
|
194 |
+ $hash{"script"} = $service;
|
|
195 |
+ $hash{"longname"} = $longname if ($longname);
|
|
196 |
+ $hash{"runlevels"} = $runlevels unless ($runlevels eq undef);
|
10822
|
197 |
+ $role = &gst_service_get_role ($service);
|
8027
|
198 |
+
|
|
199 |
+ if ($role eq "UNKNOWN") {
|
|
200 |
+ $role = "SYSTEM" if ($service =~ /^system\// || $service =~ /^platform\//);
|
|
201 |
+ $role = "NETWORK" if ($service =~ /^network\//);
|
|
202 |
+ $role = "NTP_SERVER" if ($service =~ /^network\/ntp/);
|
|
203 |
+ $role = "FILE_SERVER" if ($service =~ /^network\/nfs/);
|
|
204 |
+ $role = "DYNAMIC_DNS" if ($service =~ /^network\/dns/);
|
|
205 |
+ $role = "SYSTEM_LOGGER" if ($service =~ /^system\/system-log/);
|
|
206 |
+ $role = "MTA" if ($service =~ /^network\/smtp/);
|
|
207 |
+ $role = "PRINTER_SERVICE" if ($service =~ /^application\/print\/server/);
|
|
208 |
+ }
|
|
209 |
+
|
|
210 |
+ $hash{"role"} = $role;
|
|
211 |
+
|
|
212 |
+ return \%hash;
|
|
213 |
+}
|
|
214 |
+
|
|
215 |
+sub gst_service_smf_get_services_list
|
|
216 |
+{
|
|
217 |
+ my @list;
|
|
218 |
+ local *SVCS=gst_file_run_pipe_read("svcs -H -a");
|
|
219 |
+ while (<SVCS>) {
|
|
220 |
+ next if (/svc:\/milestone/);
|
|
221 |
+ if (/^.*\s*.*\s*svc:\/(.*):(.*)/) {
|
|
222 |
+ my $svcname = $1;
|
|
223 |
+ $svcname .= ":$2" if ( $2 ne "default" );
|
|
224 |
+
|
|
225 |
+ push(@list,$svcname);
|
|
226 |
+ }
|
|
227 |
+ }
|
|
228 |
+ close (SVCS);
|
|
229 |
+
|
|
230 |
+ return \@list;
|
|
231 |
+}
|
|
232 |
+
|
|
233 |
+sub gst_service_smf_get_services
|
|
234 |
+{
|
|
235 |
+ my ($service);
|
|
236 |
+ my (%ret);
|
|
237 |
+ my ($service_list) = &gst_service_smf_get_services_list ();
|
|
238 |
+
|
|
239 |
+ foreach $service (@$service_list)
|
|
240 |
+ {
|
|
241 |
+ my (%hash);
|
|
242 |
+ $hash = &gst_service_smf_get_service_info ($service);
|
|
243 |
+
|
|
244 |
+ $ret{$service} = $hash if ($hash ne undef);
|
|
245 |
+ }
|
|
246 |
+
|
|
247 |
+ return \%ret;
|
|
248 |
+}
|
|
249 |
+
|
|
250 |
# these functions get a list of the services that run on a gentoo init
|
|
251 |
sub gst_service_gentoo_get_service_status
|
|
252 |
{
|
10822
|
253 |
@@ -1163,6 +1334,10 @@ sub gst_get_init_type
|
8027
|
254 |
{
|
|
255 |
return "suse";
|
|
256 |
}
|
|
257 |
+ elsif ($gst_dist =~ /nexenta/ || $gst_dist =~ /solaris-2.11/)
|
|
258 |
+ {
|
|
259 |
+ return "smf";
|
|
260 |
+ }
|
|
261 |
else
|
|
262 |
{
|
|
263 |
return "sysv";
|
10822
|
264 |
@@ -1180,6 +1355,8 @@ sub gst_service_get_services
|
8027
|
265 |
return &gst_service_rcng_get_services () if ($type eq "rcng");
|
|
266 |
return &gst_service_suse_get_services () if ($type eq "suse");
|
|
267 |
return &gst_service_archlinux_get_services() if ($type eq "archlinux");
|
|
268 |
+ return &gst_service_smf_get_services () if ($type eq "smf");
|
|
269 |
+
|
|
270 |
return undef;
|
|
271 |
}
|
|
272 |
|
10822
|
273 |
@@ -1199,7 +1376,7 @@ sub gst_service_get_default_runlevel
|
8027
|
274 |
{
|
|
275 |
my ($type) = &gst_get_init_type ();
|
|
276 |
|
|
277 |
- return "default" if ($type eq "gentoo");
|
|
278 |
+ return "default" if ($type eq "gentoo" || $type eq "smf");
|
|
279 |
return "rc" if ($type eq "rcng");
|
|
280 |
return "rc" if ($type eq "archlinux");
|
|
281 |
return &gst_service_sysv_get_default_runlevel ();
|
10822
|
282 |
@@ -1585,6 +1762,7 @@ sub gst_service_set_services
|
8027
|
283 |
&gst_service_rcng_set_services ($services, $runlevel) if ($type eq "rcng");
|
|
284 |
&gst_service_suse_set_services ($services, $runlevel) if ($type eq "suse");
|
|
285 |
&gst_service_archlinux_set_services ($services, $runlevel) if ($type eq "archlinux");
|
|
286 |
+ &gst_service_smf_set_services ($services, $runlevel) if ($type eq "smf");
|
|
287 |
}
|
|
288 |
|
|
289 |
sub gst_service_set_conf
|
10822
|
290 |
@@ -1632,6 +1810,47 @@ sub gst_service_debian_get_status
|
8027
|
291 |
return undef;
|
|
292 |
}
|
|
293 |
|
|
294 |
+sub gst_service_smf_set_services
|
|
295 |
+{
|
|
296 |
+ my ($services, $runlevel) = @_;
|
|
297 |
+ my ($action);
|
|
298 |
+
|
|
299 |
+ foreach $service (@$services)
|
|
300 |
+ {
|
|
301 |
+ $script = $$service{"script"};
|
|
302 |
+ $arr = $$service{"runlevels"}[0]{"runlevel"};
|
|
303 |
+
|
|
304 |
+ foreach $i (@$arr)
|
|
305 |
+ {
|
|
306 |
+ $action = $$i{"action"};
|
|
307 |
+ $rl = $$i{"name"};
|
|
308 |
+
|
|
309 |
+ if ( $action eq "start")
|
|
310 |
+ {
|
|
311 |
+ &gst_file_run ("rc-update add $script $rl");
|
|
312 |
+ }
|
|
313 |
+ elsif ($action eq "stop")
|
|
314 |
+ {
|
|
315 |
+ &gst_file_run ("rc-update del $script $rl");
|
|
316 |
+ }
|
|
317 |
+ }
|
|
318 |
+ }
|
|
319 |
+}
|
|
320 |
+
|
|
321 |
+sub gst_service_smf_get_status
|
|
322 |
+{
|
|
323 |
+ my ($service) = @_;
|
|
324 |
+ my $ret = 0;
|
|
325 |
+ my $fd = &gst_file_run_pipe_read ("svcs -H -ostate $service");
|
|
326 |
+
|
|
327 |
+ while (<$fd>) {
|
|
328 |
+ if (/^online/) { $ret = 1; last; }
|
|
329 |
+ }
|
|
330 |
+ gst_file_close ($fd);
|
|
331 |
+
|
|
332 |
+ return $ret;
|
|
333 |
+}
|
|
334 |
+
|
|
335 |
sub gst_service_redhat_get_status
|
|
336 |
{
|
|
337 |
my ($service) = @_;
|
10822
|
338 |
@@ -1697,6 +1916,9 @@ sub gst_service_get_status
|
8027
|
339 |
"ubuntu-5.04" => \&gst_service_debian_get_status,
|
|
340 |
"ubuntu-5.10" => \&gst_service_debian_get_status,
|
|
341 |
"ubuntu-6.04" => \&gst_service_debian_get_status,
|
|
342 |
+
|
|
343 |
+ "nexenta-1.0" => \&gst_service_smf_get_status,
|
|
344 |
+ "solaris-2.11" => \&gst_service_smf_get_status,
|
|
345 |
|
|
346 |
"redhat-5.2" => \&gst_service_redhat_get_status,
|
|
347 |
"redhat-6.0" => \&gst_service_redhat_get_status,
|
10822
|
348 |
@@ -1909,6 +2131,7 @@ sub gst_service_run_script
|
8027
|
349 |
"rcng" => \&gst_service_rcng_run_script,
|
|
350 |
"suse" => \&gst_service_sysv_run_initd_script,
|
|
351 |
"archlinux" => \&gst_service_archlinux_run_script,
|
|
352 |
+ "smf" => \&gst_service_smf_run_svcadm,
|
|
353 |
);
|
|
354 |
|
|
355 |
$type = &gst_get_init_type ();
|
10822
|
356 |
@@ -1964,6 +2187,14 @@ sub gst_service_rcng_installed
|
8027
|
357 |
return 0;
|
|
358 |
}
|
|
359 |
|
|
360 |
+sub gst_service_smf_installed
|
|
361 |
+{
|
|
362 |
+ my ($service) = @_;
|
|
363 |
+
|
|
364 |
+ return 1 if (! &gst_file_run("svcs -H -ostate $service"));
|
|
365 |
+ return 0;
|
|
366 |
+}
|
|
367 |
+
|
|
368 |
sub gst_service_installed
|
|
369 |
{
|
|
370 |
my ($service) = @_;
|
10822
|
371 |
@@ -1975,6 +2206,8 @@ sub gst_service_installed
|
8027
|
372 |
return &gst_service_gentoo_installed ($service) if ($type eq "gentoo");
|
|
373 |
return &gst_service_rcng_installed ($service) if ($type eq "rcng");
|
|
374 |
return &gst_service_rcng_installed ($service) if ($type eq "archlinux");
|
|
375 |
+ return &gst_service_smf_installed ($service) if ($type eq "smf");
|
|
376 |
+
|
|
377 |
return 0;
|
|
378 |
}
|
|
379 |
|
10822
|
380 |
@@ -2013,6 +2246,21 @@ sub gst_service_bsd_set_status
|
8027
|
381 |
}
|
|
382 |
}
|
|
383 |
|
|
384 |
+sub gst_service_smf_set_status
|
|
385 |
+{
|
|
386 |
+ my ($service, $active) = @_;
|
|
387 |
+ my (@arr);
|
|
388 |
+
|
|
389 |
+ if ($active)
|
|
390 |
+ {
|
|
391 |
+ &gst_file_run ("svcadm enable $service");
|
|
392 |
+ }
|
|
393 |
+ else
|
|
394 |
+ {
|
|
395 |
+ &gst_file_run ("svcadm disable $service");
|
|
396 |
+ }
|
|
397 |
+}
|
|
398 |
+
|
|
399 |
sub gst_service_gentoo_set_status
|
|
400 |
{
|
|
401 |
my ($script, $force_now, $active) = @_;
|
|
402 |
|
10822
|
403 |
diff -up system-tools-backends-1.4.2/service-list.pl.in-clean system-tools-backends-1.4.2/service-list.pl.in
|
|
404 |
--- system-tools-backends-1.4.2/service-list.pl.in-clean 2006-01-02 15:39:39.000000000 +0000
|
|
405 |
+++ system-tools-backends-1.4.2/service-list.pl.in 2008-03-05 14:00:30.285948000 +0000
|
|
406 |
@@ -82,7 +82,7 @@ sub gst_service_list_service_is_forbidde
|
|
407 |
"hostname",
|
|
408 |
"keymaps",
|
|
409 |
"localmount",
|
|
410 |
- "net\..*",
|
|
411 |
+ "net\\..*",
|
|
412 |
"numlock",
|
|
413 |
"depscan\.sh",
|
|
414 |
"functions\.sh",
|
|
415 |
@@ -145,6 +145,8 @@ sub gst_service_list_service_is_forbidde
|
|
416 |
"rc[sS0-9]\.d",
|
|
417 |
"boot",
|
|
418 |
"boot\..*",
|
|
419 |
+ # These are the services found in Solaris
|
|
420 |
+ "application\/graphical-login\/gdm",
|
|
421 |
];
|
|
422 |
|
|
423 |
foreach $i (@$service_forbidden_list)
|
|
424 |
@@ -328,10 +330,24 @@ sub gst_service_get_role
|
|
425 |
"zmailer" => "MTA",
|
|
426 |
);
|
|
427 |
|
|
428 |
- my ($role) = $service_roles{$script};
|
|
429 |
+ if ($gst_dist =~ /nexenta/ || $gst_dist =~ /solaris-2.11/) {
|
|
430 |
+ my $role;
|
|
431 |
|
|
432 |
- return $role if ($role);
|
|
433 |
- return "UNKNOWN";
|
|
434 |
+ foreach $key (keys %service_roles) {
|
|
435 |
+ if ( $script =~ /.*\b$key\b.*/ ) {
|
|
436 |
+ $role = $service_roles{$key};
|
|
437 |
+ last;
|
|
438 |
+ }
|
|
439 |
+ }
|
|
440 |
+ return $role if ($role);
|
|
441 |
+ return "UNKNOWN";
|
|
442 |
+ }
|
|
443 |
+ else {
|
|
444 |
+ my ($role) = $service_roles{$script};
|
|
445 |
+
|
|
446 |
+ return $role if ($role);
|
|
447 |
+ return "UNKNOWN";
|
|
448 |
+ }
|
|
449 |
}
|
|
450 |
|
|
451 |
1;
|
|
452 |
|