Inloggen iets betere logging met welke claim je eigenlijk binnen bent gekomen

svn path=/Website/branches/v2018.2/; revision=40811

APPL/AUT/Login.inc

@@ -131,6 +131,7 @@ function doLogin(prs_key, params)
     Session("user_key") = user_key; // Nu ben je pas *echt* ingelogd
     /* global */ user = new Perslid(user_key);
     Session("userident") = "{0} ({1})".format(user.naam(), user.oslogin() || user.oslogin2() || user.prs_perslid_email() || "??"); // Handig voor in logging
+    __Log("Authenticated '{0}' successfully".format(Session("userident")));
 
     Session.Contents.Remove("must_accept_terms");
     if (S("fac_accept_terms") > 0
@@ -1190,6 +1191,7 @@ function process_claim(claim, idp_data, params)
         {
             shared.auditfail(L("lcl_autfai_loginnotfound").format(idpm.name.name,  idpm.from, claim[idpm.from]));
         }
+        __Log("Authenticated because claim '{0}' maps to '{1}'".format(idpm.from, idpm.name.name));
         break; // ingelogd, niet verder zoeken
     }