Changeset 245

Timestamp:

10/09/03 19:47:20 (5 years ago)

Author:

kake

Message:

Show IP address for anonymous edits. Changed CGI.pm version dependency for Dom (CPAN bug #3895). Bumped version number.

Location:

trunk

Files:

• Build.PL (modified) (1 diff)
• Changes (modified) (1 diff)
• PREREQUISITES (modified) (1 diff)
• lib/OpenGuides.pm (modified) (1 diff)
• templates/recent_changes.tt (modified) (1 diff)
• wiki.cgi (modified) (3 diffs)

trunk/Build.PL

@@ -191 +191 @@
     requires => {
         'Algorithm::Diff' => '0.13', # for sdiff 
-        'CGI' => '2.76', # unescape not in early versions, picked random
+        'CGI' => '2.42', # unescape not in early versions, Dom says use this
         'CGI::Carp' => 0,
         'CGI::Cookie' => 0,

trunk/Changes

@@ +1 @@
+0.26    9 October 2003
+        Show IP address for anonymous edits.
+        Changed CGI.pm version dependency for Dom (CPAN bug #3895).
+
 0.25    23 September 2003
         Applied recent changes fix to front page feed as well.

trunk/PREREQUISITES

@@ -1 @@
-Modules required by OpenGuides 0.25
+Modules required by OpenGuides 0.26
 ===================================
 
 Algorithm::Diff (version 0.13 or later)
-CGI (version 2.76 or later)
+CGI (version 2.42 or later)
 CGI::Carp
 CGI::Cookie

trunk/lib/OpenGuides.pm

@@ -4 +4 @@
 use vars qw( $VERSION );
 
-$VERSION = '0.25';
+$VERSION = '0.26';
 
 =head1 NAME

trunk/templates/recent_changes.tt

@@ -22 +22 @@
       [% END %]
       [% IF node.username %]
-        ..... <a href="[% cgi_url %]?username=[% node.username_param %];action=userstats">[% node.username %]</a>
+        [% IF node.username == "Anonymous" %]
+          ..... Anonymous
+          [% IF node.host %]
+            ([% node.host %])
+          [% END %]
+        [% ELSE %]
+          ..... <a href="[% cgi_url %]?username=[% node.username_param %];action=userstats">[% node.username %]</a>
+        [% END %]
       [% END %]
   </li>

trunk/wiki.cgi

@@ -5 +5 @@
 
 use vars qw( $VERSION );
-$VERSION = '0.25';
+$VERSION = '0.26';
 
 use CGI qw/:standard/;
@@ -248 +248 @@
                          comment       => $q->escapeHTML($_->{metadata}{comment}[0]),
                          username      => $q->escapeHTML($_->{metadata}{username}[0]),
+                         host          => $q->escapeHTML($_->{metadata}{host}[0]),
                          username_param => $q->escape($_->{metadata}{username}[0]),
                          edit_type     => $q->escapeHTML($_->{metadata}{edit_type}[0]),
@@ -512 +513 @@
         $metadata{$var} = $q->param($var) || "";
     }
+    $metadata{host} = $ENV{REMOTE_ADDR};
 
     my $written = $wiki->write_node($node, $content, $checksum, \%metadata );