/* ** Copyright (c) 2007 D. Richard Hipp ** ** This program is free software; you can redistribute it and/or ** modify it under the terms of the GNU General Public ** License version 2 as published by the Free Software Foundation. ** ** This program is distributed in the hope that it will be useful, ** but WITHOUT ANY WARRANTY; without even the implied warranty of ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ** General Public License for more details. ** ** You should have received a copy of the GNU General Public ** License along with this library; if not, write to the ** Free Software Foundation, Inc., 59 Temple Place - Suite 330, ** Boston, MA 02111-1307, USA. ** ** Author contact information: ** drh@hwaci.com ** http://www.hwaci.com/drh/ ** ******************************************************************************* ** ** This file contains code to implement the "info" command. The ** "info" command gives command-line access to information about ** the current tree, or a particular artifact or baseline. */ #include "config.h" #include "info.h" #include /* ** Print common information about a particular record. ** ** * The UUID ** * The record ID ** * mtime and ctime ** * who signed it */ void show_common_info(int rid, const char *zUuidName, int showComment){ Stmt q; char *zComment = 0; db_prepare(&q, "SELECT uuid" " FROM blob WHERE rid=%d", rid ); if( db_step(&q)==SQLITE_ROW ){ /* 01234567890123 */ printf("%-13s %s\n", zUuidName, db_column_text(&q, 0)); } db_finalize(&q); db_prepare(&q, "SELECT uuid FROM plink JOIN blob ON pid=rid " " WHERE cid=%d", rid); while( db_step(&q)==SQLITE_ROW ){ const char *zUuid = db_column_text(&q, 0); printf("parent: %s\n", zUuid); } db_finalize(&q); db_prepare(&q, "SELECT uuid FROM plink JOIN blob ON cid=rid " " WHERE pid=%d", rid); while( db_step(&q)==SQLITE_ROW ){ const char *zUuid = db_column_text(&q, 0); printf("child: %s\n", zUuid); } db_finalize(&q); if( zComment ){ printf("comment:\n%s\n", zComment); free(zComment); } } /* ** COMMAND: info ** ** Usage: %fossil info ?UUID? ** ** With no arguments, provide information about the current tree. ** If an argument is given, provide information about the record ** that the argument refers to. */ void info_cmd(void){ if( g.argc!=2 && g.argc!=3 ){ usage("?FILEID|UUID?"); } db_must_be_within_tree(); if( g.argc==2 ){ int vid; /* 012345678901234 */ printf("repository: %s\n", db_lget("repository", "")); printf("local-root: %s\n", g.zLocalRoot); printf("project-code: %s\n", db_get("project-code", "")); printf("server-code: %s\n", db_get("server-code", "")); vid = db_lget_int("checkout", 0); if( vid==0 ){ printf("checkout: nil\n"); }else{ show_common_info(vid, "checkout:", 1); } }else{ int rid = name_to_rid(g.argv[2]); if( rid==0 ){ fossil_panic("no such object: %s\n", g.argv[2]); } show_common_info(rid, "uuid:", 1); } } /* ** Show information about descendants of a baseline. Do this recursively ** to a depth of N. Return true if descendants are shown and false if not. */ static int showDescendants(int pid, int depth, const char *zTitle){ Stmt q; int cnt = 0; db_prepare(&q, "SELECT plink.cid, blob.uuid, datetime(plink.mtime, 'localtime')," " coalesce(event.euser,event.user)," " coalesce(event.comment,event.ecomment)" " FROM plink, blob, event" " WHERE plink.pid=%d" " AND blob.rid=plink.cid" " AND event.objid=plink.cid" " ORDER BY plink.mtime ASC", pid ); while( db_step(&q)==SQLITE_ROW ){ int n; int cid = db_column_int(&q, 0); const char *zUuid = db_column_text(&q, 1); const char *zDate = db_column_text(&q, 2); const char *zUser = db_column_text(&q, 3); const char *zCom = db_column_text(&q, 4); cnt++; if( cnt==1 ){ if( zTitle ){ @
%s(zTitle)
} @ } return cnt; } /* ** Show information about ancestors of a baseline. Do this recursively ** to a depth of N. Return true if ancestors are shown and false if not. */ static void showAncestors(int pid, int depth, const char *zTitle){ Stmt q; int cnt = 0; db_prepare(&q, "SELECT plink.pid, blob.uuid, datetime(event.mtime, 'localtime')," " coalesce(event.euser,event.user)," " coalesce(event.comment,event.ecomment)" " FROM plink, blob, event" " WHERE plink.cid=%d" " AND blob.rid=plink.pid" " AND event.objid=plink.pid" " ORDER BY event.mtime DESC", pid ); while( db_step(&q)==SQLITE_ROW ){ int cid = db_column_int(&q, 0); const char *zUuid = db_column_text(&q, 1); const char *zDate = db_column_text(&q, 2); const char *zUser = db_column_text(&q, 3); const char *zCom = db_column_text(&q, 4); cnt++; if( cnt==1 ){ if( zTitle ){ @
%s(zTitle)
} @ } } /* ** Show information about baselines mentioned in the "leaves" table. */ static void showLeaves(void){ Stmt q; int cnt = 0; db_prepare(&q, "SELECT blob.uuid, datetime(event.mtime, 'localtime')," " coalesce(event.euser, event.user)," " coalesce(event.ecomment,event.comment)" " FROM leaves, blob, event" " WHERE blob.rid=leaves.rid" " AND event.objid=leaves.rid" " ORDER BY event.mtime DESC" ); while( db_step(&q)==SQLITE_ROW ){ const char *zUuid = db_column_text(&q, 0); const char *zDate = db_column_text(&q, 1); const char *zUser = db_column_text(&q, 2); const char *zCom = db_column_text(&q, 3); cnt++; if( cnt==1 ){ @
Leaves
@ } } /* ** Show information about all tags on a given node. */ static void showTags(int rid, const char *zNotGlob){ Stmt q; int cnt = 0; db_prepare(&q, "SELECT tag.tagid, tagname, srcid, blob.uuid, value," " datetime(tagxref.mtime,'localtime'), tagtype" " FROM tagxref JOIN tag ON tagxref.tagid=tag.tagid" " LEFT JOIN blob ON blob.rid=tagxref.srcid" " WHERE tagxref.rid=%d AND tagname NOT GLOB '%s'" " ORDER BY tagname", rid, zNotGlob ); while( db_step(&q)==SQLITE_ROW ){ const char *zTagname = db_column_text(&q, 1); int srcid = db_column_int(&q, 2); const char *zUuid = db_column_text(&q, 3); const char *zValue = db_column_text(&q, 4); const char *zDate = db_column_text(&q, 5); int tagtype = db_column_int(&q, 6); cnt++; if( cnt==1 ){ @
Tags And Properties
@ } } /* ** WEBPAGE: vinfo ** URL: /vinfo?name=RID|UUID ** ** Return information about a baseline */ void vinfo_page(void){ Stmt q; int rid; int isLeaf; login_check_credentials(); if( !g.okRead ){ login_needed(); return; } rid = name_to_rid(PD("name","0")); if( rid==0 ){ style_header("Version Information Error"); @ No such object: %h(g.argv[2]) style_footer(); return; } isLeaf = !db_exists("SELECT 1 FROM plink WHERE pid=%d", rid); db_prepare(&q, "SELECT uuid, datetime(mtime, 'localtime'), user, comment" " FROM blob, event" " WHERE blob.rid=%d" " AND event.objid=%d", rid, rid ); if( db_step(&q)==SQLITE_ROW ){ const char *zUuid = db_column_text(&q, 0); char *zTitle = mprintf("Baseline [%.10s]", zUuid); style_header(zTitle); login_anonymous_available(); free(zTitle); /*@

Version %s(zUuid)

*/ @
Overview
@

@ @ if( g.okSetup ){ @ } @ @ @ if( g.okHistory ){ @ @ @ @ } @
Version:%s(zUuid)
Date:%s(db_column_text(&q, 1))
Record ID:%d(rid)
Original User:%h(db_column_text(&q, 2))
Original Comment:%w(db_column_text(&q,3))
Timelines: @ ancestors @ | descendants @ | both @
Commands: @ diff @ | ZIP archive @ | manifest @

}else{ style_header("Baseline Information"); login_anonymous_available(); } db_finalize(&q); showTags(rid, ""); @
Changes
@
    db_prepare(&q, "SELECT name, pid, fid" " FROM mlink, filename" " WHERE mid=%d" " AND filename.fnid=mlink.fnid", rid ); while( db_step(&q)==SQLITE_ROW ){ const char *zName = db_column_text(&q, 0); int pid = db_column_int(&q, 1); int fid = db_column_int(&q, 2); @
  • if( pid && fid ){ @ Modified: }else if( fid ){ @ Added: }else{ @ Deleted: } if( g.okHistory ){ @ %h(zName)
    • }else{ @ %h(zName) } } @
compute_leaves(rid); showDescendants(rid, 2, "Descendants"); showLeaves(); showAncestors(rid, 2, "Ancestors"); style_footer(); } /* ** WEBPAGE: winfo ** URL: /winfo?name=RID ** ** Return information about a wiki page. */ void winfo_page(void){ Stmt q; int rid; login_check_credentials(); if( !g.okRdWiki ){ login_needed(); return; } rid = name_to_rid(PD("name","0")); if( rid==0 ){ style_header("Wiki Page Information Error"); @ No such object: %h(g.argv[2]) style_footer(); return; } db_prepare(&q, "SELECT substr(tagname, 6, 1000), uuid," " datetime(event.mtime, 'localtime'), user" " FROM tagxref, tag, blob, event" " WHERE tagxref.rid=%d" " AND tag.tagid=tagxref.tagid" " AND tag.tagname LIKE 'wiki-%%'" " AND blob.rid=%d" " AND event.objid=%d", rid, rid, rid ); if( db_step(&q)==SQLITE_ROW ){ const char *zName = db_column_text(&q, 0); const char *zUuid = db_column_text(&q, 1); char *zTitle = mprintf("Wiki Page %s", zName); style_header(zTitle); free(zTitle); login_anonymous_available(); @
Overview
@

@ @ if( g.okSetup ){ @ } @ if( g.okHistory ){ @ @ @ } @
Version:%s(zUuid)
Date:%s(db_column_text(&q, 2))
Record ID:%d(rid)
Original User:%s(db_column_text(&q, 3))
Commands: /* @ diff | */ @ history @ | raw-text @

}else{ style_header("Wiki Information"); rid = 0; } db_finalize(&q); showTags(rid, "wiki-*"); if( rid ){ Blob content; Manifest m; memset(&m, 0, sizeof(m)); blob_zero(&m.content); content_get(rid, &content); manifest_parse(&m, &content); if( m.type==CFTYPE_WIKI ){ Blob wiki; blob_init(&wiki, m.zWiki, -1); @
Content
wiki_convert(&wiki, 0, 0); blob_reset(&wiki); } manifest_clear(&m); } style_footer(); } /* ** WEBPAGE: finfo ** URL: /finfo?name=FILENAME ** ** Show the complete change history for a single file. */ void finfo_page(void){ Stmt q; const char *zFilename; char zPrevDate[20]; Blob title; login_check_credentials(); if( !g.okRead ){ login_needed(); return; } style_header("File History"); login_anonymous_available(); zPrevDate[0] = 0; zFilename = PD("name",""); db_prepare(&q, "SELECT a.uuid, substr(b.uuid,1,10), datetime(event.mtime,'localtime')," " coalesce(event.ecomment, event.comment)," " coalesce(event.euser, event.user)," " mlink.pid, mlink.fid, mlink.mid, mlink.fnid" " FROM mlink, blob a, blob b, event" " WHERE mlink.fnid=(SELECT fnid FROM filename WHERE name=%Q)" " AND a.rid=mlink.mid" " AND b.rid=mlink.fid" " AND event.objid=mlink.mid" " ORDER BY event.mtime DESC", zFilename ); blob_zero(&title); blob_appendf(&title, "History of "); hyperlinked_path(zFilename, &title); @

%b(&title)

blob_reset(&title); @ while( db_step(&q)==SQLITE_ROW ){ const char *zVers = db_column_text(&q, 0); const char *zUuid = db_column_text(&q, 1); const char *zDate = db_column_text(&q, 2); const char *zCom = db_column_text(&q, 3); const char *zUser = db_column_text(&q, 4); int fpid = db_column_int(&q, 5); int frid = db_column_int(&q, 6); int mid = db_column_int(&q, 7); int fnid = db_column_int(&q, 8); if( memcmp(zDate, zPrevDate, 10) ){ sprintf(zPrevDate, "%.10s", zDate); @ } @ @ @ } } db_finalize(&q); @
@ @
@ @ @
%s(zPrevDate)
@
@
%s(&zDate[11]) hyperlink_to_uuid(zVers); @ %h(zCom) (By: %h(zUser)) @ Id: %s(zUuid)/%d(frid) if( g.okHistory ){ @ [view] if( fpid ){ @ [diff] } @ @ [annotate] @
style_footer(); } /* ** Append the difference between two RIDs to the output */ static void append_diff(int fromid, int toid){ Blob from, to, out; content_get(fromid, &from); content_get(toid, &to); blob_zero(&out); text_diff(&from, &to, &out, 5); @ %h(blob_str(&out)) blob_reset(&from); blob_reset(&to); blob_reset(&out); } /* ** WEBPAGE: vdiff ** URL: /vdiff?name=RID ** ** Show all differences for a particular check-in. */ void vdiff_page(void){ int rid; Stmt q; char *zUuid; login_check_credentials(); if( !g.okRead ){ login_needed(); return; } style_header("Baseline Changes"); login_anonymous_available(); rid = name_to_rid(PD("name","")); if( rid==0 ){ cgi_redirect("index"); } db_prepare(&q, "SELECT pid, fid, name" " FROM mlink, filename" " WHERE mlink.mid=%d" " AND filename.fnid=mlink.fnid" " ORDER BY name", rid ); zUuid = db_text(0, "SELECT uuid FROM blob WHERE rid=%d", rid); @

All Changes In Baseline hyperlink_to_uuid(zUuid); @

while( db_step(&q)==SQLITE_ROW ){ int pid = db_column_int(&q,0); int fid = db_column_int(&q,1); const char *zName = db_column_text(&q,2); @

%h(zName)

@ 
    append_diff(pid, fid);
    @
} db_finalize(&q); style_footer(); } /* ** Write a description of an object to the www reply. ** ** If the object is a file then mention: ** ** * It's uuid ** * All its filenames ** * The baselines it was checked-in on, with times and users ** ** If the object is a manifest, then mention: ** ** * It's uuid ** * date of check-in ** * Comment & user */ static void object_description(int rid, int linkToView){ Stmt q; int cnt = 0; int nWiki = 0; db_prepare(&q, "SELECT filename.name, datetime(event.mtime), substr(a.uuid,1,10)," " coalesce(event.comment,event.ecomment)," " coalesce(event.euser,event.user)," " b.uuid" " FROM mlink, filename, event, blob a, blob b" " WHERE filename.fnid=mlink.fnid" " AND event.objid=mlink.mid" " AND a.rid=mlink.fid" " AND b.rid=mlink.mid" " AND mlink.fid=%d", rid ); while( db_step(&q)==SQLITE_ROW ){ const char *zName = db_column_text(&q, 0); const char *zDate = db_column_text(&q, 1); const char *zFuuid = db_column_text(&q, 2); const char *zCom = db_column_text(&q, 3); const char *zUser = db_column_text(&q, 4); const char *zVers = db_column_text(&q, 5); @ File %h(zName) @ uuid %s(zFuuid) part of check-in hyperlink_to_uuid(zVers); @ %w(zCom) by %h(zUser) on %s(zDate) cnt++; } db_finalize(&q); db_prepare(&q, "SELECT substr(tagname, 6, 10000), datetime(event.mtime)," " coalesce(event.euser, event.user), uuid" " FROM tagxref, tag, event, blob" " WHERE tagxref.rid=%d" " AND tag.tagid=tagxref.tagid" " AND tag.tagname LIKE 'wiki-%%'" " AND event.objid=tagxref.rid" " AND blob.rid=tagxref.rid", rid ); while( db_step(&q)==SQLITE_ROW ){ const char *zPagename = db_column_text(&q, 0); const char *zDate = db_column_text(&q, 1); const char *zUser = db_column_text(&q, 2); const char *zUuid = db_column_text(&q, 3); @ Wiki page @ [%h(zPagename)] @ uuid %s(zUuid) by %h(zUser) on %s(zDate) nWiki++; cnt++; } db_finalize(&q); if( nWiki==0 ){ db_prepare(&q, "SELECT datetime(mtime), user, comment, uuid, type" " FROM event, blob" " WHERE event.objid=%d" " AND blob.rid=%d", rid, rid ); while( db_step(&q)==SQLITE_ROW ){ const char *zDate = db_column_text(&q, 0); const char *zUuid = db_column_text(&q, 3); const char *zUser = db_column_text(&q, 1); const char *zCom = db_column_text(&q, 2); const char *zType = db_column_text(&q, 4); if( zType[0]=='w' ){ @ Wiki edit }else if( zType[0]=='t' ){ @ Ticket change }else if( zType[0]=='c' ){ @ Manifest of baseline }else{ @ Control file referencing } hyperlink_to_uuid(zUuid); @ %w(zCom) by %h(zUser) on %s(zDate) cnt++; } db_finalize(&q); } if( cnt==0 ){ char *zUuid = db_text(0, "SELECT uuid FROM blob WHERE rid=%d", rid); @ Control file %s(zUuid). }else if( linkToView ){ @ [view] } } /* ** WEBPAGE: fdiff ** ** Two arguments, v1 and v2, are integers. Show the difference between ** the two records. */ void diff_page(void){ int v1 = name_to_rid(PD("v1","0")); int v2 = name_to_rid(PD("v2","0")); Blob c1, c2, diff; login_check_credentials(); if( !g.okRead ){ login_needed(); return; } style_header("Diff"); @

Differences From:

@
object_description(v1, 1); @
@

To:

@
object_description(v2, 1); @
@
@ 
  content_get(v1, &c1);
  content_get(v2, &c2);
  blob_zero(&diff);
  text_diff(&c1, &c2, &diff, 4);
  blob_reset(&c1);
  blob_reset(&c2);
  @ %h(blob_str(&diff))
  @
blob_reset(&diff); style_footer(); } /* ** WEBPAGE: artifact ** URL: /artifact?name=UUID ** ** Show the complete content of a file identified by UUID ** as preformatted text. */ void artifact_page(void){ int rid; Blob content; rid = name_to_rid(PD("name","0")); login_check_credentials(); if( !g.okRead ){ login_needed(); return; } if( g.zPath[0]=='i' ){ if( db_exists("SELECT 1 FROM tagxref JOIN tag USING(tagid)" " WHERE rid=%d AND tagname LIKE 'wiki-%%'", rid) ){ winfo_page(); return; } if( db_exists("SELECT 1 FROM plink WHERE cid=%d", rid) ){ vinfo_page(); return; } } style_header("Artifact Content"); @

Content Of:

@
object_description(rid, 0); @
@
@ 
  content_get(rid, &content);
  @ %h(blob_str(&content))
  @
blob_reset(&content); style_footer(); } /* ** Guess the mime-type of a document based on its name. */ const char *mimetype_from_name(const char *zName){ const char *z; int i; char zSuffix[20]; static const struct { const char *zSuffix; const char *zMimetype; } aMime[] = { { "html", "text/html" }, { "htm", "text/html" }, { "wiki", "application/x-fossil-wiki" }, { "txt", "text/plain" }, { "jpg", "image/jpeg" }, { "jpeg", "image/jpeg" }, { "gif", "image/gif" }, { "png", "image/png" }, { "css", "text/css" }, }; z = zName; for(i=0; zName[i]; i++){ if( zName[i]=='.' ) z = &zName[i+1]; } i = strlen(z); if( iUUID_SIZE ){ goto doc_not_found; } memcpy(zBaseline, zName, i); zBaseline[i] = 0; zName += i; while( zName[0]=='/' ){ zName++; } if( !file_is_simple_pathname(zName) ){ goto doc_not_found; } if( strcmp(zBaseline,"ckout")==0 ){ /* Read from the local checkout */ char *zFullpath; db_must_be_within_tree(); zFullpath = mprintf("%s/%s", g.zLocalRoot, zName); if( !file_isfile(zFullpath) ){ goto doc_not_found; } if( blob_read_from_file(&filebody, zFullpath)<0 ){ goto doc_not_found; } }else{ db_begin_transaction(); if( strcmp(zBaseline,"tip")==0 ){ vid = db_int(0, "SELECT objid FROM event WHERE type='ci'" " ORDER BY mtime DESC LIMIT 1"); }else{ vid = name_to_rid(zBaseline); } /* Create the baseline cache if it does not already exist */ db_multi_exec( "CREATE TABLE IF NOT EXISTS vcache(\n" " vid INTEGER, -- baseline ID\n" " fname TEXT, -- filename\n" " rid INTEGER, -- artifact ID\n" " UNIQUE(vid,fname,rid)\n" ")" ); /* Check to see if the documentation file artifact ID is contained ** in the baseline cache */ rid = db_int(0, "SELECT rid FROM vcache" " WHERE vid=%d AND fname=%Q", vid, zName); if( rid==0 && db_exists("SELECT 1 FROM vcache WHERE vid=%d", vid) ){ goto doc_not_found; } if( rid==0 ){ Stmt s; Blob baseline; Manifest m; /* Add the vid baseline to the cache */ if( db_int(0, "SELECT count(*) FROM vcache")>10000 ){ db_multi_exec("DELETE FROM vcache"); } if( content_get(vid, &baseline)==0 ){ goto doc_not_found; } if( manifest_parse(&m, &baseline)==0 || m.type!=CFTYPE_MANIFEST ){ goto doc_not_found; } db_prepare(&s, "INSERT INTO vcache(vid,fname,rid)" " SELECT %d, :fname, rid FROM blob" " WHERE uuid=:uuid", vid ); for(i=0; i
    @ %h(blob_str(&filebody))
    @
style_footer(); }else{ cgi_set_content_type(zMime); cgi_set_content(&filebody); } return; doc_not_found: /* Jump here when unable to locate the document */ db_end_transaction(0); style_header("Document Not Found"); @

No such document: %h(PD("name","tip/index.wiki"))

style_footer(); return; } /* ** WEBPAGE: info ** URL: info/UUID ** ** The argument is a UUID which might be a baseline or a file or ** a ticket changes or a wiki editor or something else. ** ** Figure out what the UUID is and jump to it. */ void info_page(void){ const char *zName; int rid, nName; zName = P("name"); if( zName==0 ) cgi_redirect("index"); nName = strlen(zName); if( nName<4 || nName>UUID_SIZE || !validate16(zName, nName) ){ cgi_redirect("index"); } rid = db_int(0, "SELECT rid FROM blob WHERE uuid GLOB '%s*'", zName); if( rid==0 ){ style_header("Broken Link"); @

No such object: %h(zName)

style_footer(); 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 { artifact_page(); } }