Diff
Not logged in

Differences From:

File src/info.c part of check-in [e8d3e327f1] - Changes some "Baseline" labels to "Check-in". by drh on 2009-01-22 14:04:35. [view]

To:

File src/info.c part of check-in [766bec08ce] - Documentation tweaks. Change the "Setup" menu title to "Admin". Added pages under Admin to view the RCVFROM table of the database. by drh on 2009-01-25 19:18:09. [view]

@@ -391,12 +391,28 @@
     }else{
       @ <tr><th>Comment:</th><td>%w(zComment)</td></tr>
     }
     @ </td></tr>
+    if( g.okAdmin ){
+      db_prepare(&q,
+         "SELECT rcvfrom.ipaddr, user.login, datetime(rcvfrom.mtime)"
+         "  FROM blob JOIN rcvfrom USING(rcvid) LEFT JOIN user USING(uid)"
+         " WHERE blob.rid=%d",
+         rid
+      );
+      if( db_step(&q)==SQLITE_ROW ){
+        const char *zIpAddr = db_column_text(&q, 0);
+        const char *zUser = db_column_text(&q, 1);
+        const char *zDate = db_column_text(&q, 2);
+        if( zUser==0 || zUser[0]==0 ) zUser = "unknown";
+        @ <tr><th>Received&nbsp;From:</th>
+        @ <td>%h(zUser) @ %h(zIpAddr) on %s(zDate)</td></tr>
+      }
+      db_finalize(&q);
+    }
     if( g.okHistory ){
       char *zShortUuid = mprintf("%.10s", zUuid);
       const char *zProjName = db_get("project-name", "unnamed");
-      Stmt q;
       @ <tr><th>Timelines:</th><td>
       @    <a href="%s(g.zBaseURL)/timeline?p=%d(rid)">ancestors</a>
       @    | <a href="%s(g.zBaseURL)/timeline?d=%d(rid)">descendants</a>
       @    | <a href="%s(g.zBaseURL)/timeline?d=%d(rid)&p=%d(rid)">both</a>
@@ -1128,11 +1144,8 @@
     return;
   }
   if( db_exists("SELECT 1 FROM mlink WHERE mid=%d", rid) ){
     vinfo_page();
-  }else
-  if( db_exists("SELECT 1 FROM mlink WHERE fid=%d", rid) ){
-    finfo_page();
   }else
   if( db_exists("SELECT 1 FROM tagxref JOIN tag USING(tagid)"
                 " WHERE rid=%d AND tagname LIKE 'wiki-%%'", rid) ){
     winfo_page();