pmg-system-report: check for existing sa-awl db

[pmg-api.git] / PMG / LDAPConfig.pm

diff --git a/PMG/LDAPConfig.pm b/PMG/LDAPConfig.pm
index 3de59f9aefb346585ee3ce4e12d3a1de2be037ef..9445205c6d18ad097141c5b7167d47f550c1ad09 100644 (file)
--- a/PMG/LDAPConfig.pm
+++ b/PMG/LDAPConfig.pm
@@ -12,16 +12,33 @@ use PVE::SectionConfig;
 
 use base qw(PVE::SectionConfig);
 
+PVE::JSONSchema::register_format('ldap-simple-attr', \&verify_ldap_simple_attr);
+sub verify_ldap_simple_attr {
+    my ($attr, $noerr) = @_;
+
+    if ($attr =~ m/^[a-zA-Z0-9]+$/) {
+       return $attr;
+    }
+
+    die "value '$attr' does not look like a simple ldap attribute name\n" if !$noerr;
+
+    return undef;
+}
+
+my $inotify_file_id = 'pmg-ldap.conf';
+my $config_filename = '/etc/pmg/ldap.conf';
+
 my $defaultData = {
     propertyList => {
        type => { description => "Section type." },
        profile => {
-           description => "Secion ID.",
+           description => "Profile ID.",
            type => 'string', format => 'pve-configid',
        },
     },
 };
 
+
 sub properties {
     return {
        disable => {
@@ -79,15 +96,18 @@ sub properties {
        },
        accountattr => {
            description => "Account attribute name name.",
-           type => 'string',
-           pattern => '[a-zA-Z0-9]+',
-           default => 'sAMAccountName',
+           type => 'string', format => 'ldap-simple-attr-list',
+           default => 'sAMAccountName, uid',
        },
        mailattr => {
            description => "List of mail attribute names.",
-           type => 'string', format => 'string-list',
-           pattern => '[a-zA-Z0-9]+',
-           default => "mail, userPrincipalName, proxyAddresses, othermailbox",
+           type => 'string', format => 'ldap-simple-attr-list',
+           default => "mail, userPrincipalName, proxyAddresses, othermailbox, mailAlternativeAddress",
+       },
+       groupclass => {
+           description => "List of objectclasses for groups.",
+           type => 'string', format => 'ldap-simple-attr-list',
+           default => "group, univentionGroup, ipausergroup",
        },
     };
 }
@@ -107,6 +127,7 @@ sub options {
        filter => { optional => 1 },
        accountattr => { optional => 1 },
        mailattr => { optional => 1 },
+       groupclass => { optional => 1 },
     };
 }
 
@@ -166,6 +187,22 @@ sub write_config {
     $class->SUPER::write_config($filename, $cfg);
 }
 
+sub new {
+    my ($type) = @_;
+
+    my $class = ref($type) || $type;
+
+    my $cfg = PVE::INotify::read_file($inotify_file_id);
+
+    return bless $cfg, $class;
+}
+
+sub write {
+    my ($self) = @_;
+
+    PVE::INotify::write_file($inotify_file_id, $self);
+}
+
 my $lockfile = "/var/lock/pmgldapconfig.lck";
 
 sub lock_config {
@@ -186,7 +223,7 @@ sub read_pmg_ldap_conf {
 
     local $/ = undef; # slurp mode
 
-    my $raw = <$fh>;
+    my $raw = defined($fh) ? <$fh> : '';
 
     return __PACKAGE__->parse_config($filename, $raw);
 }
@@ -196,14 +233,18 @@ sub write_pmg_ldap_conf {
 
     my $raw = __PACKAGE__->write_config($filename, $cfg);
 
-    chmod(0600, $fh);
+    my $gid = getgrnam('www-data');
+    chown(0, $gid, $fh);
+    chmod(0640, $fh);
 
     PVE::Tools::safe_print($filename, $fh, $raw);
 }
 
-PVE::INotify::register_file('pmg-ldap.conf', "/etc/pmg/ldap.conf",
+PVE::INotify::register_file($inotify_file_id, $config_filename,
                            \&read_pmg_ldap_conf,
-                           \&write_pmg_ldap_conf);
+                           \&write_pmg_ldap_conf,
+                           undef,
+                           always_call_parser => 1);
 
 
 1;