From 3544558f2d1b7b53de77f5ea373850dce8b05947 Mon Sep 17 00:00:00 2001
From: alecpl <alec@alec.pl>
Date: Tue, 20 Apr 2010 16:04:33 +0000
Subject: - Add HTTP_X_REAL_IP and HTTP_X_FORWARDED_FOR to successful logins
 log (#1486441)

---
 program/include/main.inc | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

(limited to 'program/include/main.inc')

diff --git a/program/include/main.inc b/program/include/main.inc
index 9e1813182..1dbf0d406 100644
--- a/program/include/main.inc
+++ b/program/include/main.inc
@@ -1140,6 +1140,34 @@ function write_log($name, $line)
 }
 
 
+/**
+ * Write login data (name, ID, IP address) to the 'userlogins' log file.
+ */
+function rcmail_log_login()
+{
+  global $RCMAIL;
+
+  if (!$RCMAIL->config->get('log_logins') || !$RCMAIL->user)
+    return;
+
+  $address = $_SERVER['REMOTE_ADDR'];
+  // append the NGINX X-Real-IP header, if set
+  if (!empty($_SERVER['HTTP_X_REAL_IP'])) {
+    $remote_ip[] = 'X-Real-IP: ' . $_SERVER['HTTP_X_REAL_IP'];
+  }
+  // append the X-Forwarded-For header, if set
+  if (!empty($_SERVER['HTTP_X_FORWARDED_FOR'])) {
+    $remote_ip[] = 'X-Forwarded-For: ' . $_SERVER['HTTP_X_FORWARDED_FOR'];
+  }
+
+  if (!empty($remote_ip))
+    $address .= '(' . implode(',', $remote_ip) . ')';
+
+  write_log('userlogins', sprintf('Successful login for %s (ID: %d) from %s',
+    $RCMAIL->user->get_username(), $RCMAIL->user->ID, $address));
+}
+
+
 /**
  * @access private
  */
-- 
cgit v1.2.3