Added debugging information

16 years ago · 597c8728a5
parent 900b9f2894
commit 597c8728a5
1 changed files with 1 additions and 0 deletions
--- a/CommModule/client.pl
+++ b/CommModule/client.pl
@ -920,6 +920,7 @@ sub RevokeCerts($$)
        my $body = _("Hi")." $user{fname},\n\n";
        $body .= sprintf(_("Your certificate for %s has been revoked, as per request.")."\n\n", $row{'CN'});
        $body .= _("Best regards")."\n"._("CAcert.org Support!")."\n\n";
+	SysLog("Sending email to ".$user{"email"}."\n") if($debug);
        sendmail($user{email}, "[CAcert.org] "._("Your certificate"), $body, "support\@cacert.org", "", "", "CAcert Support");
      }