[MKDoc-commit] [1.6] log ip-address of remote comment poster

[bruno at mkdoc.demon.co.uk]

Log Message:
-----------
[1.6] log ip-address of remote comment poster

Tags:
----
mkdoc-1-6

Modified Files:
--------------
    mkd/flo/editor:
        Comment.pm
    mkd/templates/editor/comment:
        en.html

-------------- next part --------------
Index: Comment.pm
===================================================================
RCS file: /var/spool/cvs/mkd/flo/editor/Comment.pm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -Lflo/editor/Comment.pm -Lflo/editor/Comment.pm -u -r1.1.2.2 -r1.1.2.3
--- flo/editor/Comment.pm
+++ flo/editor/Comment.pm
@@ -94,6 +94,7 @@
         $self->{poster}      = $cgi->param ($param_name . "_poster")      || flo::Standard::current_user()->real_name();
         $self->{email}       = $cgi->param ($param_name . "_email")       || flo::Standard::current_user()->email();
         $self->{login}       = $cgi->param ($param_name . "_login")       || flo::Standard::current_user()->login();
+        $self->{remote_addr} = $cgi->param ($param_name . "_remote_addr") || $ENV{REMOTE_ADDR} || '127.0.0.1';
     }
 }
 
Index: en.html
===================================================================
RCS file: /var/spool/cvs/mkd/templates/editor/comment/Attic/en.html,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -Ltemplates/editor/comment/en.html -Ltemplates/editor/comment/en.html -u -r1.1.2.2 -r1.1.2.3
--- templates/editor/comment/en.html
+++ templates/editor/comment/en.html
@@ -15,6 +15,7 @@
                 name_poster         string:${self/block_name}_poster;
                 name_login          string:${self/block_name}_login;
                 name_email          string:${self/block_name}_email;
+                name_remote_addr    string:${self/block_name}_remote_addr;
                 name_date_posted    string:${self/block_name}_date_posted"
 >
 
@@ -74,6 +75,13 @@
   />
   <input
     type="hidden"
+    name="remote_addr"
+    id="remote_addr"
+    value="127.0.0.1"
+    petal:attributes="name name_remote_addr; id name_remote_addr; value self/remote_addr"
+  />
+  <input
+    type="hidden"
     name="poster"
     id="poster"
     value="Fred Flintstone"