[frontierkernel-commits] odbs/mainResponderRoot/mainResponder/search/utilities indexDiscussionGroup,1.1.1.1,1.2,

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/search/utilities
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1247

Modified Files:
	indexDiscussionGroup 
Log Message:
made this more generally useful, it used to be setup to just index a single dg

Index: indexDiscussionGroup
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/search/utilities/indexDiscussionGroup,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** indexDiscussionGroup	26 Mar 2005 21:46:13 -0000	1.1.1.1
--- indexDiscussionGroup	9 Feb 2006 02:47:11 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:mainResponder.search.utilities.indexDiscussionGroup
  
! ÇIndex the UserLand Discussion Group.
local (adrMessages);
local (siteName = "Discussion Group");
local (siteUrl = "http://discuss.userland.com/");
local (baseUrl = siteUrl + "msgReader$");
local (client = tcp.myDottedId ());

adrMessages = @["D:\\discuss.root"].discuss.messages;
local (i);

for i = 1 to sizeOf (adrMessages^) {
	local (adrMessage = @adrMessages^ [i]);
	
	if defined (adrMessage^.flDeleted) and adrMessage^.flDeleted {
		continue};
	
	local (text, title, url);
	
	title = adrMessage^.subject;
	text = string (adrMessage^.body);
	text = text + " " + adrMessage^.member + " " + title;
	
	local (lastMod = clock.now ());
	try {lastMod = adrMessage^.postTime};
	try {lastMod = adrMessage^.lastUpdate};
	
	url = baseUrl + adrMessage^.msgNum;
	
	mainResponder.search.server.index (title, url, text, siteName, siteUrl, client, false, lastMod);
	
	fileMenu.save (mainResponder.search.utilities.getIndexPath ())}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:mainResponder.search.utilities.indexDiscussionGroup
  
! on indexDiscussionGroup (adrMessages, siteName, siteUrl, messageReaderUrl, client = tcp.myDottedId ()) {
	ÇChanges
		Ç8/11/05; 5:25:57 PM by TAC
			Çmade this more generally useful, it used to be setup to just index a single dg
		ÇIndex a Discussion Group.
	
	local (i);
	
	mainResponder.search.utilities.assureIndex ();
	
	for i = 1 to sizeOf (adrMessages^) {
		local (adrMessage = @adrMessages^ [i]);
		
		if defined (adrMessage^.flDeleted) and adrMessage^.flDeleted {
			continue};
		
		local (text, title, url);
		
		title = adrMessage^.subject;
		text = string (adrMessage^.body);
		text = text + " " + adrMessage^.member + " " + title;
		
		local (lastMod = clock.now ());
		try {lastMod = adrMessage^.postTime};
		try {lastMod = adrMessage^.lastUpdate};
		
		url = messageReaderUrl + adrMessage^.msgNum;
		
		mainResponder.search.server.index (title, url, text, siteName, siteUrl, client, false, lastMod);
		
		fileMenu.save (mainResponder.search.utilities.getIndexPath ())}};

Çbundle // testing
	ÇindexDiscussionGroup (@localDocserverMrWs.["#discussionGroup"].messages, localDocserverMnrspndrWbst.["#prefs"].siteName, localDocserverMnrspndrWbst.["#ftpSite"].url, localDocserverMnrspndrWbst.["#urls"].discussMsgReader)
	ÇindexDiscussionGroup (@sampleMrWs.["#discussionGroup"].messages, sampleMrWs.["#siteName"], sampleMrWs.["#ftpSite"].url, sampleMrWs.["#urls"].discussMsgReader)
\ No newline at end of file