Author: jsuchome Date: Fri Aug 21 16:02:59 2009 New Revision: 58420 URL: http://svn.opensuse.org/viewcvs/yast?rev=58420&view=rev Log: Read can return status if asked, API changed Modified: trunk/yast2/library/runlevel/src/YaPI/SERVICES.pm Modified: trunk/yast2/library/runlevel/src/YaPI/SERVICES.pm URL: http://svn.opensuse.org/viewcvs/yast/trunk/yast2/library/runlevel/src/YaPI/SERVICES.pm?rev=58420&r1=58419&r2=58420&view=diff ============================================================================== --- trunk/yast2/library/runlevel/src/YaPI/SERVICES.pm (original) +++ trunk/yast2/library/runlevel/src/YaPI/SERVICES.pm Fri Aug 21 16:02:59 2009 @@ -15,16 +15,31 @@ our %TYPEINFO; -# Return the list of services enabled in given runlevel +# Return the map of services enabled in given runlevel +# Parameter is an argument map with possible keys: +# "runlevel" : integer +# "read_status" : if present, service status will be queried +# returns array of hashes BEGIN{$TYPEINFO{Read} = ["function", - ["list", "string"], "integer"]; + ["list", [ "map", "string", "any"]], + ["map", "string", "any"]]; } sub Read { my $self = shift; - my $runlevel = shift; - - return Service->EnabledServices ($runlevel); + my $args = shift; + my @ret = (); + my $runlevel = 5; + $runlevel = $args->{"runlevel"} if defined $args->{"runlevel"}; + + foreach my $name (@{Service->EnabledServices ($runlevel)}) { + my $s = { + "name" => $name + }; + $s->{"status"} = Service->Status ($name) if ($args->{"read_status"} || 0); + push @ret, $s; + } + return \@ret; } # Return the status of given service -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org