Mailinglist Archive: yast-commit (953 mails)

< Previous Next >
[yast-commit] r49725 - /trunk/ldap-server/src/LdapServer.pm
  • From: rhafer@xxxxxxxxxxxxxxxx
  • Date: Tue, 05 Aug 2008 14:24:04 -0000
  • Message-id: <20080805142405.08DA039CE7@xxxxxxxxxxxxxxxx>
Author: rhafer
Date: Tue Aug 5 16:24:04 2008
New Revision: 49725

URL: http://svn.opensuse.org/viewcvs/yast?rev=49725&view=rev
Log:
Fixed some typos

Modified:
trunk/ldap-server/src/LdapServer.pm

Modified: trunk/ldap-server/src/LdapServer.pm
URL:
http://svn.opensuse.org/viewcvs/yast/trunk/ldap-server/src/LdapServer.pm?rev=49725&r1=49724&r2=49725&view=diff
==============================================================================
--- trunk/ldap-server/src/LdapServer.pm (original)
+++ trunk/ldap-server/src/LdapServer.pm Tue Aug 5 16:24:04 2008
@@ -22,12 +22,14 @@
use X500::DN;
use ycp;
use YaST::YCP;
+use YaPI;

our %TYPEINFO;

YaST::YCP::Import ("Progress");
YaST::YCP::Import ("SuSEFirewall");
YaST::YCP::Import ("Service");
+YaST::YCP::Import ("SCR");

my %error = ( msg => undef, details => undef );
my $usingDefaults = 1;
@@ -142,13 +144,14 @@
BEGIN { $TYPEINFO{Read} = ["function", "boolean"]; }
sub Read {
y2milestone("");
-
SuSEFirewall->Read();
+
my $progressItems = [ "Reading Startup Configuration",
"Reading Configuration Backend",
"Reading Configuration Data" ];
- Progress->New("Initializing LDAP Server Configuration", "Blub", 3,
$progressItems, $progressItems, "");
+ Progress->New("Initializing LDAP Server Configuration", " ", 3,
$progressItems, $progressItems, "");
Progress->NextStage();
+
my $serviceInfo = Service->FullInfo("ldap");
y2milestone("Serviceinfo: ". Data::Dumper->Dump([$serviceInfo]));
my $isRunning = ( defined $serviceInfo->{"started"}) &&
($serviceInfo->{"started"} == 0); # 0 == "running"
@@ -221,7 +224,7 @@
$slapdConfChanged = 1;
}

- y2milestone("ConfigModifed: " . $slapdConfChanged);
+ y2milestone("ConfigModified: " . $slapdConfChanged);
}

Progress->Finish();
@@ -1109,8 +1112,8 @@
$ppolicy->{'useLockout'} =
YaST::YCP::Boolean($ppolicy->{'useLockout'});

# slapo-ppolicy requires ppolicy schema to be loaded
- my @schema = $self->GetSchemaList();
- if ( grep( !/^ppolicy$/, @schema ) )
+ my $schema = $self->GetSchemaList();
+ if ( ! grep( /^ppolicy$/, @{$schema} ) )
{
my $rc =
$self->AddSchemaToSchemaList("/etc/openldap/schema/ppolicy.schema");
if ( ! $rc )

--
To unsubscribe, e-mail: yast-commit+unsubscribe@xxxxxxxxxxxx
For additional commands, e-mail: yast-commit+help@xxxxxxxxxxxx

< Previous Next >
This Thread
  • No further messages