[yast-commit] r58328 - in /trunk/yast2/library/runlevel/src: Makefile.am YaPI/ YaPI/SERVICES.pm
Author: jsuchome Date: Wed Aug 12 11:07:20 2009 New Revision: 58328 URL: http://svn.opensuse.org/viewcvs/yast?rev=58328&view=rev Log: preliminary version of YaPI/SERVICES.pm (for testing) Added: trunk/yast2/library/runlevel/src/YaPI/ trunk/yast2/library/runlevel/src/YaPI/SERVICES.pm Modified: trunk/yast2/library/runlevel/src/Makefile.am Modified: trunk/yast2/library/runlevel/src/Makefile.am URL: http://svn.opensuse.org/viewcvs/yast/trunk/yast2/library/runlevel/src/Makefile.am?rev=58328&r1=58327&r2=58328&view=diff ============================================================================== --- trunk/yast2/library/runlevel/src/Makefile.am (original) +++ trunk/yast2/library/runlevel/src/Makefile.am Wed Aug 12 11:07:20 2009 @@ -6,7 +6,12 @@ module_DATA = Service.ycp Runlevel.ycp +YaPI_perldir = @moduledir@/YaPI + +YaPI_perl_DATA = \ + YaPI/SERVICES.pm + EXTRA_DIST = $(agent_SCRIPTS) \ - $(scrconf_DATA) $(module_DATA) + $(scrconf_DATA) $(module_DATA) $(YaPI_perl_DATA) include $(top_srcdir)/Makefile.am.common Added: trunk/yast2/library/runlevel/src/YaPI/SERVICES.pm URL: http://svn.opensuse.org/viewcvs/yast/trunk/yast2/library/runlevel/src/YaPI/SERVICES.pm?rev=58328&view=auto ============================================================================== --- trunk/yast2/library/runlevel/src/YaPI/SERVICES.pm (added) +++ trunk/yast2/library/runlevel/src/YaPI/SERVICES.pm Wed Aug 12 11:07:20 2009 @@ -0,0 +1,71 @@ +package YaPI::SERVICES; + +use strict; +use YaST::YCP qw(Boolean); +use YaPI; + +textdomain("runlevel"); + +# ------------------- imported modules +YaST::YCP::Import ("Service"); +# ------------------------------------- + +our $VERSION = '1.0.0'; +our @CAPABILITIES = ('SLES11'); +our %TYPEINFO; + +BEGIN{$TYPEINFO{Read} = ["function", + ["list", [ "map", "string", "any"]]]; +} +sub Read { + + my $self = shift; + my @ret = (); + + # FIXME read the list of services from config file + foreach my $name ("cron", "openvpn") { + my $service = { + "name" => $name, + "status" => Service->Status ($name) + }; + push @ret, $service; + } + return \@ret; +} + +BEGIN{$TYPEINFO{Get} = ["function", + [ "map", "string", "any"], + "string" ]; +} +sub Get { + + my $self = shift; + my $name = shift; + + my $service = { + "name" => $name, + "status" => Service->Status ($name) + }; + return $service; +} + +BEGIN{$TYPEINFO{Execute} = ["function", + [ "map", "string", "any"], + "string", "string" ]; +} +sub Execute { + + my $self = shift; + my $name = shift; + my $action = shift; + my $ret = {}; + + # service with init script + if (1) { + $ret = Service->RunInitScriptOutput ($name, $action); + } + # FIXME other services + + return $ret; +} +1; -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org
participants (1)
-
jsuchome@svn.opensuse.org