[Jifty-commit] r7004 - in wifty/trunk: etc

[Jifty commits]

Author: ruz
Date: Tue May 12 04:02:08 2009
New Revision: 7004

Modified:
   wifty/trunk/etc/config.yml
   wifty/trunk/lib/Wifty/Model/Revision.pm

Log:
* add ip to revisions

Modified: wifty/trunk/etc/config.yml
==============================================================================
--- wifty/trunk/etc/config.yml	(original)
+++ wifty/trunk/etc/config.yml	Tue May 12 04:02:08 2009
@@ -10,7 +10,7 @@
   LogConfig: etc/log4perl.conf
 
   Database:
-    Version: 0.0.23
+    Version: 0.0.24
     AutoUpgrade: 1
     CheckSchema: 1
     Driver: SQLite

Modified: wifty/trunk/lib/Wifty/Model/Revision.pm
==============================================================================
--- wifty/trunk/lib/Wifty/Model/Revision.pm	(original)
+++ wifty/trunk/lib/Wifty/Model/Revision.pm	Tue May 12 04:02:08 2009
@@ -17,11 +17,15 @@
         render_as 'Wifty::Form::Field::WikiPage'
     ;
     column created =>
-        type is 'timestamp'
+        type is 'timestamp',
     ;
     column created_by =>
         refers_to Wifty::Model::User,
-        since '0.0.20'
+        since '0.0.20',
+    ;
+    column ip =>
+        type is 'varchar(15)',
+        since '0.0.24',
     ;
 };
 
@@ -38,7 +42,8 @@
     my %args = (@_);
 
     my $now = DateTime->now();
-    $args{'created'} =  $now->ymd." ".$now->hms;
+    $args{'created'} ||=  $now->ymd." ".$now->hms;
+    $args{'ip'} ||= $ENV{'REMOTE_HOST'};
     $self->SUPER::create(%args);
 
 }