[frontierkernel-commits] odbs/mainResponderRoot/mainResponder/discuss postAttachedFile,1.1.1.1,1.2, readMessage,1.5,1.6, editMessageForm,1.2,1.3,

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

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

Modified Files:
	postAttachedFile readMessage editMessageForm 
Log Message:
changes to support mainResponderWebsites.root and sampleMrWs style mainResponder websites

Index: postAttachedFile
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/discuss/postAttachedFile,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** postAttachedFile	26 Mar 2005 21:45:37 -0000	1.1.1.1
--- postAttachedFile	9 Feb 2006 02:52:18 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:mainResponder.discuss.postAttachedFile
  
! on postAttachedFile (adrFileArgs, msgNum, memberGroup) {
	ÇStore an attached file, either on disk or inside the discussion group.
		ÇChanges:
			ÇThu, 20 May 1999 16:39:55 GMT by AR
				ÇFirst implementation. Based on screenshotsSite.postCatcher in screenshots.root.
			Ç10/15/99; 1:13:09 AM by PBS
				ÇAdded support for addresses, and strings that can be coerced to addresses, in discuss.root.
			Ç10/20/99; 12:16:56 PM by PBS
				ÇIf an image is attached, store it in the dg in an image subtable.
				ÇOnly do so if flDiscussStoreImages is true, otherwise write even images to disk.
			Ç03/15/00; 5:26:21 PM by PBS
				ÇWhen computing the path to the attachments folder for this message, it now calls mainResponder.discuss.getMessageAttachmentsFolder -- a new bottleneck script.
	
	bundle { //error checking
		if not defined (adrFileArgs^.filename) {
			return (false)};
		if not defined (adrFileArgs^.data) {
			return (false)};
		if string.length (adrFileArgs^.filename) == 0 {
			return (false)};
		if string.length (adrFileArgs^.data) == 0 {
			return (false)}};
	
	local (pta = html.getPageTableAddress ());
	local (adrMsg = mainResponder.discuss.getMessageTable (msgNum));
	local (flStoredInDg = false, f);
	
	bundle { //possibly store this image in the dg, not to disk
		if defined (pta^.responderAttributes.flDiscussStoreImages) {
			if pta^.responderAttributes.flDiscussStoreImages {
				if defined (adrFileArgs^.["Content-type"]) {
					local (mimeType = adrFileArgs^.["Content-type"]);
					local (flGif = false, flJpeg = false);
					
					case string.lower (mimeType) { //is it a GIF or a JPEG?
						"image/gif" {
							flGif = true};
						"image/jpeg";
						"image/pjpeg" {
							flJpeg = true}};
					
					if flGif or flJpeg { //store GIFs and JPEGs in the dg
						if not defined (adrMsg^.image) {
							new (tableType, @adrMsg^.image)};
						adrMsg^.image.bits = binary (adrFileArgs^.data);
						adrMsg^.image.mimeType = mimeType;
						local (hwList);
						if flGif {
							hwList = html.getGifHeightWidth (@adrMsg^.image.bits);
							setBinaryType (@adrMsg^.image.bits, 'GIFf')};
						if flJpeg {
							hwList = html.getJpegHeightWidth (@adrMsg^.image.bits);
							setBinaryType (@adrMsg^.image.bits, 'JPEG')};
						adrMsg^.image.height = hwList [1];
						adrMsg^.image.width = hwList [2];
						flStoredInDg = true}}}}};
	
	if not flStoredInDg { //write to disk
		local (fname, folderPath, s = adrFileArgs^.filename, i, ch);
		local (pc = file.getPathChar ());
		bundle { //compute folderPath
			folderPath = mainResponder.discuss.getMessageAttachmentsFolder (adrMsg);
			
			ÇPBS 03/15/00: old code, now factored out
				Çlocal (adrDiscuss = mainResponder.discuss.openRoot ())
				Çlocal (dgName = nameOf (adrDiscuss^))
				Çtry //PBS 10/15/99: get the real name of the dg (it might be an address in discuss.root)
					Çlocal (adr = @[system.temp.mainResponder.discussRootFile])
					Çif defined (adr^.[pta^.discussionRoot])
						ÇdgName = nameOf (adr^.[pta^.discussionRoot])
				Çlocal (discussionFolderName = nameOf (adrDiscuss^)) //PBS 10/15/99
				Çif discussionFolderName beginsWith "#"
					ÇdiscussionFolderName = string.popLeading (discussionFolderName, '#')
				Çon add (s) //append sub-folders to folderpath
					ÇfolderPath = folderPath + s + pc
				ÇfolderPath = adrDiscuss^.prefs.binaryServerFolder
				Çadd (memberGroup)
				Çadd (adrMsg^.member)
				Çadd (dgName)
				Çadd (msgNum)};
		for i = sizeOf (s) downTo 1 { //pop off everything but the file name
			ch = s [i];
			if not (string.isAlpha (ch) or string.isNumeric (ch) or (ch == ".") or (ch == " ")) {
				s = string.delete (s, 1, i);
				break}};
		fname = s;
		f = folderPath + fname;
		file.sureFilePath (f);
		file.writeWholeFile (f, adrFileArgs^.data)};
	
	return (f)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:mainResponder.discuss.postAttachedFile
  
! on postAttachedFile (adrFileArgs, msgNum, memberGroup) {
	ÇChanges
		Ç1/15/06; 1:36:47 PM by TAC
			Çcategorize images and attachements in alsoListedIn
			Çstore information about the file in an attachement table, we don't care what kind of file it is
		Ç7/26/03; 4:04:15 PM by TAC
			Çadded PNG support
		Ç03/15/00; 5:26:21 PM by PBS
			ÇWhen computing the path to the attachments folder for this message, it now calls mainResponder.discuss.getMessageAttachmentsFolder -- a new bottleneck script.
		Ç1999
			Ç10/20/99; 12:16:56 PM by PBS
				ÇIf an image is attached, store it in the dg in an image subtable.
				ÇOnly do so if flDiscussStoreImages is true, otherwise write even images to disk.
			Ç10/15/99; 1:13:09 AM by PBS
				ÇAdded support for addresses, and strings that can be coerced to addresses, in discuss.root.
			Ç5/20/99; 8:39:55 AM by AR
				ÇFirst implementation. Based on screenshotsSite.postCatcher in screenshots.root.
		ÇStore an attached file, either on disk or inside the discussion group.
	
	bundle { //error checking
		if not defined (adrFileArgs^.filename) {
			return (false)};
		if not defined (adrFileArgs^.data) {
			return (false)};
		if string.length (adrFileArgs^.filename) == 0 {
			return (false)};
		if string.length (adrFileArgs^.data) == 0 {
			return (false)}};
	
	local (pta = html.getPageTableAddress ());
	local (adrMsg = mainResponder.discuss.getMessageTable (msgNum));
	local (adrAttachment = @adrMsg^.attachment);
	local (flStoredInDg = false, f, newAlsoListedIn, oldAlsoListedIn = "");
	
	if defined (adrAttachment^.mimeType) { // old also listed in
		case string.lower (adrAttachment^.mimeType) { // is it a GIF, JPEG, or PNG?
			"image/gif";
			"image/jpeg";
			"image/pjpeg";
			"image/png" {
				oldAlsoListedIn = "images"}}
		else {
			oldAlsoListedIn = "attachments"}};
	
	bundle { // set up attachment storage
		if not defined (adrAttachment^) {
			new (tableType, adrAttachment)};
		
		try {
			adrAttachment^.mimeType = adrFileArgs^.["Content-type"]};
		
		adrAttachment^.originalFileName = adrFileArgs^.filename;
		
		adrAttachment^.sizeBytes = sizeOf (adrFileArgs^.data)};
	
	if defined (pta^.responderAttributes.flDiscussStoreImages) { // possibly store an image attachment in the dg, not to disk
		if pta^.responderAttributes.flDiscussStoreImages {
			if defined (adrAttachment^.mimeType) {
				local (mimeType = adrAttachment^.mimeType);
				local (flGif = false, flJpeg = false, flPng = false);
				
				case string.lower (mimeType) { // is it a GIF, JPEG, or PNG?
					"image/gif" {
						flGif = true};
					"image/jpeg";
					"image/pjpeg" {
						flJpeg = true};
					"image/png" {
						flPng = true}};
				
				if flGif or flJpeg or flPng { // store GIFs, JPEGs, or PNGs in the dg
					local (hwList);
					
					adrAttachment^.data = binary (adrFileArgs^.data);
					
					if flGif {
						hwList = html.getGifHeightWidth (@adrAttachment^.data);
						setBinaryType (@adrAttachment^.data, 'GIFf')};
					if flJpeg {
						hwList = html.getJpegHeightWidth (@adrAttachment^.data);
						setBinaryType (@adrAttachment^.data, 'JPEG')};
					if flPng {
						hwList = html.getPngHeightWidth (@adrAttachment^.data);
						setBinaryType (@adrAttachment^.data, 'PNGf')};
					
					adrAttachment^.height = hwList [1];
					adrAttachment^.width = hwList [2];
					
					newAlsoListedIn = "images";
					
					flStoredInDg = true}}}};
	
	if not flStoredInDg { //write to disk
		local (folderPath, s = adrFileArgs^.filename, i, ch);
		local (pc = file.getPathChar ());
		
		bundle { //compute folderPath
			folderPath = mainResponder.discuss.getMessageAttachmentsFolder (adrMsg, @adrAttachment^.url);
			
			ÇPBS 03/15/00: old code, now factored out
				Çlocal (adrDiscuss = mainResponder.discuss.openRoot ())
				Çlocal (dgName = nameOf (adrDiscuss^))
				Çtry //PBS 10/15/99: get the real name of the dg (it might be an address in discuss.root)
					Çlocal (adr = @[system.temp.mainResponder.discussRootFile])
					Çif defined (adr^.[pta^.discussionRoot])
						ÇdgName = nameOf (adr^.[pta^.discussionRoot])
				Çlocal (discussionFolderName = nameOf (adrDiscuss^)) //PBS 10/15/99
				Çif discussionFolderName beginsWith "#"
					ÇdiscussionFolderName = string.popLeading (discussionFolderName, '#')
				Çon add (s) //append sub-folders to folderpath
					ÇfolderPath = folderPath + s + pc
				ÇfolderPath = adrDiscuss^.prefs.binaryServerFolder
				Çadd (memberGroup)
				Çadd (adrMsg^.member)
				Çadd (dgName)
				Çadd (msgNum)};};
		
		for i = sizeOf (s) downTo 1 { //pop off everything but the file name
			ch = s [i];
			if not (string.isAlpha (ch) or string.isNumeric (ch) or (ch == ".") or (ch == " ")) {
				s = string.delete (s, 1, i);
				break}};
		
		adrAttachment^.fileName = s;
		
		f = folderPath + adrAttachment^.fileName;
		adrAttachment^.f = f;
		
		file.sureFilePath (f);
		file.writeWholeFile (f, adrFileArgs^.data);
		
		newAlsoListedIn = "attachments"};
	
	bundle { // also listed in
		if not (defined (adrMsg^.alsoListedIn)) {
			adrMsg^.alsoListedIn = {}};
		
		adrMsg^.alsoListedIn = adrMsg^.alsoListedIn - {oldAlsoListedIn};
		
		adrMsg^.alsoListedIn = adrMsg^.alsoListedIn + {newAlsoListedIn}};
	
	return (f)}
\ No newline at end of file

Index: readMessage
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/discuss/readMessage,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** readMessage	5 Jan 2006 06:16:46 -0000	1.5
--- readMessage	9 Feb 2006 02:52:18 -0000	1.6
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:mainResponder.discuss.readMessage
  
! on readMessage (msgNum, flResponses=true, flResponseForm=true, flShowMsgNums=true, flShowAuthor=true, flShowPostTime=true, flShowReads=true, flStoryHeaderOnly=false, flEditButtonsInHeader=true, flShowEnclosure=true, editPageURL="", flShowCowSkullLink=false, pta=nil, adrMsgTable=nil, adrData=nil, adrGetBodyCallback=nil, searchArgs="", flUseMappedMemberKeys=false) {
	
	ÇChanges
		Ç1/4/06; 4:48:10 PM by TAC
			Çfor response form. moved p and hr tags out of mainResponder.discuss.newMessageForm call, XHTML compliance
			Çadded missing quote character from width attribute of td tag when adding horizontal for etp button
		Ç2005
			Ç11/24/05; 9:50:02 AM by TAC
				Çclose input, hr and more p tags
				Çlowercase form method POST for xhtml compatibility
			Ç10/13/05; 12:37:15 AM by TAC
				Çclose paragraph tag for auto paragraphs for compatibility with post HTML v4.01 transitional
			Ç7/12/05; 1:14:38 AM by TAC
				Çhide member emails
		Ç4/18/03; 6:06:50 PM by JES
			ÇNew optional parameter, flUseMappedMemberKeys -- if true, we use the newer style numeric member keys instead of the older email address style member keys.
		ÇThu, Jun 6, 2002 at 2:29:44 PM by TAC
			Çmake davenet style bylines work with deleted members and stories
		Ç2000
			Ç11/27/00; 6:22:13 PM by PBS
				Çpta is named parameter in call to manilaSuite.pike.editMessageButton.
			Ç11/26/00; 8:13:51 PM by PBS
				ÇUse the new bottleneck routine for displaying an external editor button.
			Ç10/18/00; 10:50:08 PM by JES
				ÇCommented out the code that adds the Edit in Frontier button.
			Ç10/12/00; 12:35:42 AM by JES
				ÇNew optional parameter: searchArgs - if provided, it's appended to URLs of links to messages. This is how support for multi-mode (topic-based vs. day-based) DGs are handled.
			Ç07/13/00; 3:00:29 AM by JES
				ÇFixed problem where the byline would sometimes appear in Manila's discussion group interface, even though there was already an Author header -- only display the byline if flShowAuthor is false.
			Ç05/01/00; 7:41:17 PM by JES
				ÇChanged getString calls to use a replacement table address instead of a lists
			Ç05/01/00; 5:19:31 PM by PBS
				ÇNew optional parameter: adrGetBodyCallback. This allows the caller to specify a script that gets the body of the discussion group message. This is used by the news items feature, which needs to convert from XML to HTML when displaying a news item dg message.
				ÇIf adrGetBodyCallback^ () returns "", then the normal get-body routine runs.
			Ç01/17/00; 4:48:31 PM by PBS
				ÇPreliminary server support for Pike.
		Ç1999
			Ç11/18/99; 3:55:29 PM by PBS
				ÇRemoved <font size="+0"></font> tags from around message text, as they did nothing, but they made it hard for a designer to specify the font of the message text.
			Ç10/20/99; 4:12:18 PM by PBS
				ÇIf an image is stored with the message in the dg, display the picture below the title and headers but above the text. Call the new script mainResponder.discuss.buildImageTag to create the image tag.
			Ç10/5/99; 5:06:24 PM by PBS
				ÇSometimes the headers section would be empty, there would be an empty table adding an extra blank line to the page. This is now fixed.
			ÇMon, Aug 2, 1999 at 2:38:39 PM by PBS
				ÇNew optional parameters: pta, adrMsgTable, and adrData. These were added because sometimes these addresses are known before calling this script, and there's no sense in re-computing them. This is a minor performance enhancement.
				ÇAdded some comments to this script to make it easier to follow.
				ÇRemove the unused local variable pagetable.
			ÇSat, 12 Jun 1999 13:42:51 GMT by AR
				ÇBug fix: The Topics header now works properly if the displayed message is part of the response tree of a message that has been deleted.
			ÇFri, Jun 11, 1999 at 10:33:25 AM by PBS
				ÇNew page table attribute: if pta^.readMessageByLineFormat is "DaveNet," then the byline will appear like this:
					ÇTuesday, March 16, 1999; by Dave Winer.
			ÇWednesday, June 09, 1999 at 4:47:49 PM by PBS
				ÇCall mainResponder.discuss.memberCanEdit to determine if the member may edit this message.
			ÇMonday, June 07, 1999 at 2:25:39 PM by PBS
				ÇNew pagetable attributes: flReadMessageAutoParagraphs, flReadMessageProcessMacros, and flReadMessageExpandUrls give more control over what happens when reading a discussion group message. When calling this script from a web page that's a script, it's best to set these all to false. When calling from a macro, it's not necessary to define these attributes: previous behavior is conserved, there's no breakage.
			ÇWed, 26 May 1999 01:33:57 GMT by AR
				ÇReal names of message authors are now looked up in the membership group specified thru pta^.responderAttributes.defaultMembershipGroup instead of formerly config.mainresponder.globals.defaultMembershipGroup, allowing greater flexibility while retaining backwards-compatibility.
			ÇSat, 22 May 1999 15:32:02 GMT by AR
				ÇAdded optional parameter flShowCowSkullLink. The default is false. If it's set to true, a cowskull linking to the standard msgReader page for this message is added. This feature probably only makes sense for sites like stories.userland.com where messages are displayed outside of the standard discussion group context.
			ÇFri, 21 May 1999 16:58:48 GMT by AR
				ÇAdded optional editPageURL parameter for setting the action URL of the Edit This Page button. If it's the empty string, we use pta^.responderattributes.urls^.discussEditInBrowser.
			ÇWed, 19 May 1999 18:50:24 GMT by AR
				ÇAdded three new parameters: flShowAuthor, flShowPostTime, flShowReads. Default: true.
				ÇAdded a new parameter: flStoryHeaderOnly. Default: false.
				ÇInserted missing </tr> tag after header section.
				ÇAdded a new parameter: flEditButtonsInHeader. Default: true.
			Ç5/12/99; 6:43:55 AM by DW
				ÇAdded Topic line for non-top-level messages. It takes you to the top-level topic that the message is in response to.
			ÇThu, 22 Apr 1999 15:00:04 GMT by AR
				ÇModified after closing a security hole in htmlInterfaces.root
					Çhttp://frontier.userland.com/security/htmlInterfacesRoot
			ÇMon, 01 Mar 1999 17:45:42 GMT by AR
				ÇChanged code in the "set member info" section to no longer reference config.mainResponder.prefs.defaultDiscussRoot. Instead we get the discussion group rootname by dereferencing adrdata which is set by mainresponder.discuss.openroot.
			Ç5/19/99; 10:19:48 PM by DW
				ÇChanged "By Dave Winer" to "Posted by Dave Winer". This makes more sense because I might post articles written by other people.
		ÇThis is the main bottleneck script for displaying discussion group messages.
			ÇIt's used in discussion groups -- but also any time you want to display a discussion group message as a page outside of the discussion group interface. Most of the parameters govern whether or not to display the various discussion group message headers.
	
	bundle { //get page table, discussion group, and message table addresses
		if pta == nil { //PBS 8/2/99: get the page table address
			pta = html.getPageTableAddress ()};
		if adrData == nil { //PBS 8/2/99: get the address of the root of this discussion group
			adrData = mainResponder.discuss.openRoot (pta)};
		if adrMsgTable == nil { //PBS 8/2/99: get the address of the table for this discussion group message
			adrMsgTable = @adrData^.messages.[string.padWithZeros (msgNum, 7)]};
		try { //JES 4/19/03: not particularly pretty, but makes sure that any manila code that calls us will get the right value for flUseMappedMemberKeys
			if manilaSuite.isManilaSite (manilaSuite.getSiteAddress ()) {
				flUseMappedMemberKeys = true}}};
	
	local (membershipGroup = pta^.responderAttributes.defaultMembershipGroup);
	local (flShowEditButtons, flEditButtonsAtTop, flEditButtonsAtBottom, flShowMessageHeaders);
	local (htmlText = "", indentLevel = 0);
	local (flMember = defined (pta^.adrMemberInfo));
	
	on add (s) {
		htmlText = htmlText + string.filledString ("\t", indentLevel) + s + "\r"};
	
	bundle { //increment read stats
		adrMsgTable^.ctReads++;
		config.mainResponder.stats.ctDiscussionGroupReads++}; //1/17/99; 9:20:18 AM by DW
	
	bundle { //was this message deleted?
		if mainResponder.discuss.isMessageDeleted (msgNum, adrMsgTable, pta) {
			Ç4/10/00; 12:17:54 AM by JES - added localization
			add (mainResponder.getString ("discuss.messageDeleted"));
			return (htmlText)}};
	
	bundle { //calculate lots of booleans in advance to avoid spitting out unwanted empty table cells etc.
		flShowEnclosure = flShowEnclosure and (defined (adrMsgTable^.enclosureAddress) and (adrMsgTable^.enclosureAddress != ""));
		flShowEditButtons = (flMember and (mainResponder.discuss.memberCanEdit (adrMsgTable, pta^.adrMemberInfo))); //PBS 6/9/99: a member other than the poster may be able to edit this message
		flEditButtonsAtTop = (flShowEditButtons and flEditButtonsInHeader);
		flEditButtonsAtBottom = (flShowEditButtons and not flEditButtonsInHeader);
		flShowMessageHeaders = (not flStoryHeaderOnly) and (flShowAuthor or flShowPostTime or flShowMsgNums or flShowEnclosure or flShowReads);
		if not flShowMessageHeaders { //PBS 9/22/99: make it possible to have a byline and message headers: example -- the Samples site needs a byline plus enclosure header
			if defined (pta^.flReadMessageStoryHeaderAndMessageHeaders) {
				if pta^.flReadMessageStoryHeaderAndMessageHeaders {
					flShowMessageHeaders = true}}}};
	
	on addEditButtons () { //add Edit button (or buttons) to the page
		Ç4/10/00; 12:17:54 AM by JES - added localization
		local (editableInFrontier = false);
		
		Çif defined (pta^.adrMemberInfo^.isFrontierSixAlpha) //edit in Frontier button
			Çbundle //old code
				Çadd ("<hr><b>Frontier 6 Alphas</b><p>")
				Çadd ("According to our records, you are a Frontier 6 alpha tester, and you created the message that you're viewing. That means that you can edit this message using Frontier 6's wrapping headlines outliner.")
				Çadd ("To use this feature, be sure Frontier is running, and you have suites.editorial installed. Then click on the following link. <i>Please follow the instructions carefully.</i><p>")
				Çadd ("<a href=\"" + pta^.responderattributes.urls^.discussEditInFrontier + msgnum + "\">Edit message #" + msgnum + " in Frontier</a>")
				Çadd ("<font size=\"-2\"><br>You can edit this message<br>because you are a Frontier 6<br>alpha tester and you are<br>the author of this message.</font>")
			Çlocal (url = pta^.responderAttributes.urls^.discussEditInFrontier + msgNum)
			Ç
			ÇBuild the Edit in Frontier button.
			Çadd ("<td valign=\"middle\"><center>"); indentLevel++
			Çadd ("<form method=\"POST\" action=\"" + url + "\">"); indentLevel++
			Çadd ("<input name=\"msgnum\" type=\"hidden\" value=\"" + msgNum + "\">")
			Çadd ("<input type=\"submit\" value=\"" + mainResponder.getString ("discuss.editInFrontier") + "\">")
			Çadd ("</form>"); indentLevel--
			Çadd ("</center></td>"); indentLevel--
			Ç
			ÇeditableInFrontier = true
		bundle { //edit in web browser button
			if editPageURL == "" {
				editPageURL = pta^.responderAttributes.urls^.discussEditInBrowser};
			
			add ("<td valign=\"middle\"><center>"); indentLevel++;
			add ("<form method=\"post\" action=\"" + editPageURL + msgNum + "\">"); indentLevel++;
			add ("<input name=\"msgnum\" type=\"hidden\" value=\"" + msgNum + "\" />");
			local (buttonValue = mainResponder.getString ("discuss.editThisPage"));
			
			if editableInFrontier {
				buttonValue = mainResponder.getString ("discuss.editInBrowser"); //change button name from Edit this Page to Edit in Browser
				add ("&nbsp;")};
			
			add ("<input type=\"submit\" value=\"" + buttonValue + "\" />");
			add ("</form>"); indentLevel--;
			
			add ("</center>");
			
			bundle { //PBS 01/13/00: Add the Edit in Pike button
				if defined (pta^.responderAttributes.urls^.editInPike) {
					ÇPike support is a feature not of mainResponder but of Manila. However, this script, which displays the discussion group message and the Edit this Page, needs to be Pike-aware enough to display the Pike button.
					Çif manilaSuite.pike.memberHasPike (pta)
						Çlocal (editInPikeUrl = pta^.responderAttributes.urls^.editInPike)
						Çif not (editInPikeUrl endsWith "$")
							ÇeditInPikeUrl = editInPikeUrl + "$"
						ÇeditInPikeUrl = editInPikeUrl + msgNum
						Çlocal (adrSite = pta^.adrSiteRootTable)
						Çlocal (adrMember = pta^.adrMemberInfo)
						Çadd (manilaSuite.pike.pikeButton (editInPikeUrl, adrMsgTable, adrMember, adrSite, true, mainResponder.getString ("discuss.editThisStoryInPikeOutline"), pta)) //true because this is a message
					add (manilaSuite.pike.editMessageButton (adrMsgTable, pta:pta))}}; //PBS 11/27/00: pta is named parameter
			
			add ("</td>"); indentLevel--}};
	
	bundle { //put up message headers section
		Ç4/10/00; 12:17:54 AM by JES - added localization
			Çbundle // non-localized version
				Çadd ("<i>" + date.abbrevString (adrMsgTable^.postTime) + "; by " + name + ".</i>")
		local (flByline = flStoryHeaderOnly); //PBS 06/22/00: message table can over-ride byline display
		if defined (adrMsgTable^.flByline) { //an attribute in the message table can over-ride the site setting
			if not adrMsgTable^.flByline {
				flByline = false}
			else {
				flByline = true}};
		if flByline and !flShowAuthor { //07/13/00 JES: added !flShowAuthor -- never show a Byline if we have an Author header
			ÇSupport DaveNet-style bylines: PBS 6/11/99
				ÇLike: Friday, June 11, 1999; by Dave Winer (no link to author)
			if defined (pta^.readMessageBylineFormat) and string.lower (pta^.readMessageBylineFormat) == "davenet" {
				bundle {
					local {
						name = mainResponder.members.linkToMember (membershipGroup, adrMsgTable^.member)};
					add ("<i>" + mainResponder.macros.byline (name, adrMsgTable^.postTime, "DaveNet") + "</i>")};
				Çbundle // old code
					Çlocal (adrMember = mainResponder.members.getMemberTable (membershipGroup, adrMsgTable^.member))
					Çlocal (name = nameOf (adrMember^)) // 10/05/05; 7:01:56 PM by PR default to the member key
					Çif defined (adrMember^.personalInfo.name)
						Çname = adrMember^.personalInfo.name
					Çelse
						Çif name contains '@'
							Çname = string.replace (string.mid (name, 1, string.patternMatch ('@', name)+2) + "...", '@', "&#64;")
					Çadd ("<i>" + mainResponder.macros.byline (name, adrMsgTable^.postTime, "DaveNet") + "</i>")}}
			else { // standard byline format
				local (authorLink = mainResponder.members.linkToMember (membershipGroup, adrMsgTable^.member, true, useMap: flUseMappedMemberKeys));
				add ("<i>" + mainResponder.macros.byline (authorLink, adrMsgTable^.postTime) + "</i>")}};
		local (flDoHeaders = false); //PBS 10/5/99: fix for blank headers section, which messages up the formatting
		if flEditButtonsAtTop {
			flDoHeaders = true}
		else {
			if flShowMessageHeaders {
				case true {
					flShowAuthor;
					flShowPostTime;
					flShowMsgNums;
					flShowEnclosure;
					flShowReads {
						flDoHeaders = true}}}};
		if flDoHeaders { //PBS 10/5/99: was: if (flShowMessageHeaders or flEditButtonsAtTop)
			add ("<p />");;
			add ("<table cellspacing=\"0\" cellpadding=\"0\" border=\"0\">"); indentLevel++;
			add ("<tr>"); indentLevel++;
			
			if flShowMessageHeaders { //add author, posted, msg#, etc
				add ("<td>"); indentLevel++;
				add ("<table cellspacing=\"0\" cellpadding=\"0\" border=\"0\">"); indentLevel++;
				
				on tr (label, val) {
					add ("<tr>"); indentLevel++;
					add ("<td valign=\"top\"><font size=\"+0\"><b>" + label + "</b>&nbsp;</font></td>");
					add ("<td valign=\"top\"><font size=\"+0\">" + val + "</font></td>");
					add ("</tr>"); indentLevel--};
				on msgLink (msgNum) {
					return ("<a href=\"" + pta^.responderAttributes.urls^.discussMsgReader + msgNum + searchArgs + "\">" + msgNum + "</a>")};
				
				if flShowAuthor {
					tr (mainResponder.getString ("discuss.authorHeader"), mainResponder.members.linkToMember (membershipGroup, adrMsgTable^.member, true, useMap: flUseMappedMemberKeys))}; // 4/13/00 JES: localized the header
				if flShowPostTime {
					tr (mainResponder.getString ("discuss.postedHeader"), mainResponder.localization.dateTimeString (adrMsgTable^.postTime))}; // 4/13/00 JES: localized the header and the date
				if flShowMsgNums and (adrMsgTable^.inResponseTo > 0) { //spit out the Topic line
					local (nomad = adrMsgTable);
					while (nomad^.inResponseTo > 0) {
						nomad = mainResponder.discuss.getMessageTable (nomad^.inResponseTo)};
					tr (mainResponder.getString ("discuss.topicHeader"), "<a href=\"" + pta^.responderAttributes.urls^.discussMsgReader + nomad^.msgNum + searchArgs + "\">" + nomad^.subject + "</a>")}; // 4/13/00 JES: localized the header
				if flShowMsgNums { // put out the Msg# line
					local (val = msgNum);
					if adrMsgTable^.inResponseTo > 0 {
						try {
							local (replacementTable); new (tableType, @replacementTable); // 05/01/00 JES: use replacement table instead of a list
							replacementTable.msglink = msgLink (adrMsgTable^.inResponseTo);
							val = val + " (" + mainResponder.getString ("discuss.inResponseTo", @replacementTable) + ")"}} // 4/13/00 JES: localized the header
					else {
						val = val + " (" + mainResponder.getString ("discuss.topMsgInThread") + ")"}; // 4/13/00 JES: localized
					tr (mainResponder.getString ("discuss.msgNumHeader"), val)};
				if flShowEnclosure { //regurgitate the Enclosure line
					Çhttp://discuss.userland.com/enclosures/view$868
					local (viewingUrl = pta^.responderAttributes.urls^.discussEnclosureViewer + msgNum);
					Ç4/13/00; 5:52:43 PM by JES: localized enclosure text
					local (listingLink = "<a href=\"" + viewingUrl + "\">" + mainResponder.getString ("discuss.viewEnclosure") + "</a>");
					local (fatPageLink = "<a href=\"" + pta^.responderAttributes.urls^.discussEnclosureDownloader + msgNum + "\">" + mainResponder.getString ("discuss.fatPageEnclosure") + "</a>");
					local (rpcLink = "<a href=\"" + pta^.responderAttributes.urls^.discussEnclosureRPCer + msgNum + "\">" + mainResponder.getString ("discuss.RPCenclosure") + "</a>");
					
					tr (mainResponder.getString ("discuss.enclosureHeader"), listingLink + ", " + fatPageLink + ", " + rpcLink)};
				if flShowMsgNums { //throw up Prev/Next
					local (ixPrev = -1, ixNext = -1);
					local (ixLastMsg = adrData^.prefs.nextMsgNum - 1);
					
					for i = (msgNum - 1) downTo 1 { //find the previous message
						local (adrMsg = mainResponder.discuss.getMessageTable (i, pta, adrData));
						if not (mainResponder.discuss.isMessageDeleted (i, adrMsg, pta:pta)) {
							ixPrev = i;
							break}};
					for i = (msgNum + 1) to ixLastMsg { //find the next message
						local (adrMsg = mainResponder.discuss.getMessageTable (i, pta, adrData));
						if not (mainResponder.discuss.isMessageDeleted (i, adrMsg, pta:pta)) {
							ixNext = i;
							break}};
					
					Ç4/13/00; 5:53:22 PM by JES: localized next/prev header and link display
					if ixPrev == -1 {
						if ixNext != -1 {
							tr (mainResponder.getString ("discuss.nextMsgHeader"), msgLink (ixNext))}}
					else {
						if ixNext == -1 {
							if ixPrev != -1 {
								tr (mainResponder.getString ("discuss.prevMsgHeader"), msgLink (ixPrev))}}
						else {
							local (replacementTable); new (tableType, @replacementTable); // 05/01/00 JES: use replacement table instead of a list
							replacementTable.prevmsglink = msgLink (ixPrev);
							replacementTable.nextmsglink = msgLink (ixNext);
							tr (mainResponder.getString ("discuss.prevNextMsgHeader"), mainResponder.getString ("discuss.prevNextMsgNums", @replacementTable))}}};
				if flShowReads { //show the number of times this message has been read
					tr (mainResponder.getString ("discuss.readsHeader"), adrMsgTable^.ctReads)}; // 4/13/00 JES: localized
				
				add ("</table>"); indentLevel--;
				add ("</td>"); indentLevel--};
			if flEditButtonsAtTop { //add edit in Frontier button, possibly other stuff
				if (flStoryHeaderOnly or flShowMessageHeaders) { //add a bit of horizontal space
					add ("<td width=\"50\">&nbsp;</td>")};
				
				addEditButtons ()};
			
			add ("</tr>"); indentLevel--;
			add ("</table>"); indentLevel--;
			add ("<p />")}
		else {
			add ("<p />")}};
	
	bundle { //add the body of the story
		local (flCallbackReturnedBody = false);
		if adrGetBodyCallback != nil {
			local (s);
			s = adrGetBodyCallback^ (adrMsgTable);
			if s != "" {
				add (s);
				flCallbackReturnedBody = true}};
		if not flCallbackReturnedBody {
			bundle { //PBS 10/20/99: if an image is attached to this message, display it above the body
				if defined (adrMsgTable^.image) {
					if defined (pta^.responderAttributes.urls^.imageViewer) { //must be defined: it's the link to the imageViewer script
						ÇThe imageViewer script takes a msgNum as pathArgs and displays the picture attached to that dg message.
						add (mainResponder.discuss.buildImageTag (adrMsgTable^.msgNum));
						add ("<p />")}}};
			if typeOf (adrMsgTable^.body) == outlineType { //outlines get passed through an outline renderer
				local (oldRenderOutlineWith = nil);
				
				if defined (pta^.renderOutlineWith) {
					oldRenderOutlineWith = pta^.renderOutlineWith};
				if defined (pta^.renderDiscussOutlinesWith) {
					pta^.renderOutlineWith = pta^.renderDiscussOutlinesWith};
				
				if defined (pta^.flReadMessageProcessMacros) and pta^.flReadMessageProcessMacros {
					try {add (html.processMacros (html.tenderRender (@adrMsgTable^.body), false, pta))}}
				else {
					if defined (pta^.flReadMessageExpandUrls) and not pta^.flReadMessageExpandUrls {
						try {add (html.tenderRender (@adrMsgTable^.body))}}
					else { //default, original behavior
						try {add (html.expandURLs (html.tenderRender (@adrMsgTable^.body)))}}};
				
				if oldRenderOutlineWith != nil {
					pta^.renderOutlineWith = oldRenderOutlineWith}}
			else { //it's not an outline
				local (s = string (adrMsgTable^.body));
				s = string.replaceAll (s, "\n", ""); //2/15/99 DW, inside <pre>s these cause extra line-skips
				
				if not (defined (pta^.flReadMessageAutoParagraphs)) or pta^.flReadMessageAutoParagraphs {
					s = string.replaceAll (s, "\r\r", "\r\r<p />")};
				if not (defined (pta^.flReadMessageProcessMacros)) or pta^.flReadMessageProcessMacros {
					s = html.processMacros (s, false, pta);
					};
				Çadd ("<font size=\"+0\">" + s + "</font>")
				add (s)}}}; //PBS 11/18/99: removed <font> tags from around message text, as they didn't do anything, but made it harder for a designer to specify the font for the page
	
	if flEditButtonsAtBottom { //add edit buttons to the bottom
		add ("<p />");
		add ("<table cellspacing=\"0\" cellpadding=\"0\" border=\"0\">"); indentLevel++;
		add ("<tr>"); indentLevel++;
		
		addEditButtons ();
		
		add ("</tr>"); indentLevel--;
		add ("</table>"); indentLevel--;
		add ("<p />")};
	
	if flShowCowSkullLink { //add cowskull link to standard msgReader page
		ÇThe cowskull link is a link to the discussion group interface version of this page.
		try {add ("<p>\r<a href=\"" + pta^.responderAttributes.urls^.discussMsgReader + msgNum + "\">" + mainResponder.discuss.cowSkullImage (pta) + "</a>\r</p>")}};
	
	if flResponses { //list message response structure
		Ç4/10/00; 12:17:54 AM by JES - added localization
			Çbundle // non-localized version
				Çadd ("<i>" + date.abbrevString (adrMsgTable^.postTime) + "; by " + name + ".</i>")
		if sizeof (adrMsgTable^.responses) > 0 {
			local (stack = {});
			
			on addResponses (adrItem) {
				local (adrTable, msgNum, replyMember, i, ct = sizeOf (adrItem^.responses), flDeleted);
				
				add ("<ul>"); indentLevel++;
				
				for i = ct downTo 1 {
					msgNum = adrItem^.responses [i];
					if stack contains msgNum { //avoid infinite recursion
						continue;
						};
					adrTable = mainResponder.discuss.getMessageTable (msgNum, pta, adrData);
					if not defined (adrTable^) {
						continue};
					
					if not (mainResponder.discuss.isMessageDeleted (msgNum, adrTable, pta)) {
						replyMember = mainResponder.members.getMemberName (membershipGroup, adrTable^.member);
						add ("<li><a href=\"" + pta^.responderAttributes.urls^.discussMsgReader + msgNum + searchArgs + "\">" + adrTable^.subject + "</a>, " + replyMember + ", " + mainResponder.localization.dateTimeString (adrTable^.postTime, pta: pta) + "<p />"); // 4/13/00 JES: localized the date display
						if sizeof (adrTable^.responses) > 0 {
							stack = stack + {adrTable^.msgNum};
							addResponses (adrTable);
							delete (@stack [sizeof (stack)])}}};
				
				add ("</ul>"); indentLevel--;
				};
			add ("<p /><hr /><b>" + mainResponder.getString ("discuss.thereAreResponsesToThisMsg") + "</b>");
			
			addResponses (adrMsgTable)}}; //it's recursive
	
	if flResponseForm { //provide a response form
		Ç4/10/00; 12:17:54 AM by JES - added localization
			Çbundle // non-localized version
				Çadd ("<i>" + date.abbrevString (adrMsgTable^.postTime) + "; by " + name + ".</i>")
		if flMember { //only members can add messages
			local (subject = adrMsgTable^.subject);
			
			if not (string.lower (subject) beginswith string.lower (string.trimWhiteSpace (mainResponder.getString ("discuss.rePrefix")))) {
				subject = mainResponder.getString ("discuss.rePrefix") + subject};
			
			local (subjectprompt, buttontext, bodyprompt);
			
			subjectprompt = mainResponder.getString ("discuss.responseSubjectPrompt");
			buttontext = mainResponder.getString ("discuss.postResponseButtonText");
			bodyprompt = mainResponder.getString ("discuss.responseBodyPrompt");
			
			add ("<p /><hr />");
			add (mainResponder.discuss.newMessageForm (msgNum, subject, subjectprompt, buttontext, bodyprompt: bodyprompt, pta: pta))}};
	
	bundle { //set member info
		ÇFor every member, store the highest message read for the current discussion group.
			ÇFirst make sure the discussionGroupInfo table exists for this member, then make sure there's a table for this dg, then set highestMessageRead for this dg for this member.
		if flMember { //is this a member?
			local (adrMember = pta^.adrMemberInfo);
			
			if not defined (adrMember^.discussionGroupInfo) {
				new (tabletype, @adrmember^.discussionGroupInfo)};
			
			local (rootName = nameOf (adrData^));
			local (adrTable = @adrMember^.discussionGroupInfo.[rootName]);
			
			if not defined (adrTable^) {
				new (tableType, adrTable)};
			if not defined (adrTable^.highestMessageRead) {
				adrTable^.highestMessageRead = 0};
			if msgNum > adrTable^.highestMessageRead {
				adrTable^.highestMessageRead = msgNum}}};
	
	return (htmlText)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:mainResponder.discuss.readMessage
  
! on readMessage (msgNum, flResponses=true, flResponseForm=true, flShowMsgNums=true, flShowAuthor=true, flShowPostTime=true, flShowReads=true, flStoryHeaderOnly=false, flEditButtonsInHeader=true, flShowEnclosure=true, editPageURL="", flShowCowSkullLink=false, pta=nil, adrMsgTable=nil, adrData=nil, adrGetBodyCallback=nil, searchArgs="", flUseMappedMemberKeys=false, flShowAttachment = false) {
	ÇChanges
		Ç1/15/06; 3:19:08 PM by TAC
			Çadded flShowAttachment parameter
		Ç1/4/06; 4:48:10 PM by TAC
			Çfor response form don't nest p and hr tags inside b tag, XHTML compliance
			Çadded missing quote character from width attribute of td tag when adding horizontal for etp button
		Ç2005
			Ç11/24/05; 9:50:02 AM by TAC
				Çclose input, hr and more p tags
				Çlowercase form method POST for xhtml compatibility
			Ç10/13/05; 12:37:15 AM by TAC
				Çclose paragraph tag for auto paragraphs for compatibility with post HTML v4.01 transitional
			Ç7/12/05; 1:14:38 AM by TAC
				Çhide member emails
		Ç4/18/03; 6:06:50 PM by JES
			ÇNew optional parameter, flUseMappedMemberKeys -- if true, we use the newer style numeric member keys instead of the older email address style member keys.
		ÇThu, Jun 6, 2002 at 2:29:44 PM by TAC
			Çmake davenet style bylines work with deleted members and stories
		Ç2000
			Ç11/27/00; 6:22:13 PM by PBS
				Çpta is named parameter in call to manilaSuite.pike.editMessageButton.
			Ç11/26/00; 8:13:51 PM by PBS
				ÇUse the new bottleneck routine for displaying an external editor button.
			Ç10/18/00; 10:50:08 PM by JES
				ÇCommented out the code that adds the Edit in Frontier button.
			Ç10/12/00; 12:35:42 AM by JES
				ÇNew optional parameter: searchArgs - if provided, it's appended to URLs of links to messages. This is how support for multi-mode (topic-based vs. day-based) DGs are handled.
			Ç07/13/00; 3:00:29 AM by JES
				ÇFixed problem where the byline would sometimes appear in Manila's discussion group interface, even though there was already an Author header -- only display the byline if flShowAuthor is false.
			Ç05/01/00; 7:41:17 PM by JES
				ÇChanged getString calls to use a replacement table address instead of a lists
			Ç05/01/00; 5:19:31 PM by PBS
				ÇNew optional parameter: adrGetBodyCallback. This allows the caller to specify a script that gets the body of the discussion group message. This is used by the news items feature, which needs to convert from XML to HTML when displaying a news item dg message.
				ÇIf adrGetBodyCallback^ () returns "", then the normal get-body routine runs.
			Ç01/17/00; 4:48:31 PM by PBS
				ÇPreliminary server support for Pike.
		Ç1999
			Ç11/18/99; 3:55:29 PM by PBS
				ÇRemoved <font size="+0"></font> tags from around message text, as they did nothing, but they made it hard for a designer to specify the font of the message text.
			Ç10/20/99; 4:12:18 PM by PBS
				ÇIf an image is stored with the message in the dg, display the picture below the title and headers but above the text. Call the new script mainResponder.discuss.buildImageTag to create the image tag.
			Ç10/5/99; 5:06:24 PM by PBS
				ÇSometimes the headers section would be empty, there would be an empty table adding an extra blank line to the page. This is now fixed.
			ÇMon, Aug 2, 1999 at 2:38:39 PM by PBS
				ÇNew optional parameters: pta, adrMsgTable, and adrData. These were added because sometimes these addresses are known before calling this script, and there's no sense in re-computing them. This is a minor performance enhancement.
				ÇAdded some comments to this script to make it easier to follow.
				ÇRemove the unused local variable pagetable.
			ÇSat, 12 Jun 1999 13:42:51 GMT by AR
				ÇBug fix: The Topics header now works properly if the displayed message is part of the response tree of a message that has been deleted.
			ÇFri, Jun 11, 1999 at 10:33:25 AM by PBS
				ÇNew page table attribute: if pta^.readMessageByLineFormat is "DaveNet," then the byline will appear like this:
					ÇTuesday, March 16, 1999; by Dave Winer.
			ÇWednesday, June 09, 1999 at 4:47:49 PM by PBS
				ÇCall mainResponder.discuss.memberCanEdit to determine if the member may edit this message.
			ÇMonday, June 07, 1999 at 2:25:39 PM by PBS
				ÇNew pagetable attributes: flReadMessageAutoParagraphs, flReadMessageProcessMacros, and flReadMessageExpandUrls give more control over what happens when reading a discussion group message. When calling this script from a web page that's a script, it's best to set these all to false. When calling from a macro, it's not necessary to define these attributes: previous behavior is conserved, there's no breakage.
			ÇWed, 26 May 1999 01:33:57 GMT by AR
				ÇReal names of message authors are now looked up in the membership group specified thru pta^.responderAttributes.defaultMembershipGroup instead of formerly config.mainresponder.globals.defaultMembershipGroup, allowing greater flexibility while retaining backwards-compatibility.
			ÇSat, 22 May 1999 15:32:02 GMT by AR
				ÇAdded optional parameter flShowCowSkullLink. The default is false. If it's set to true, a cowskull linking to the standard msgReader page for this message is added. This feature probably only makes sense for sites like stories.userland.com where messages are displayed outside of the standard discussion group context.
			ÇFri, 21 May 1999 16:58:48 GMT by AR
				ÇAdded optional editPageURL parameter for setting the action URL of the Edit This Page button. If it's the empty string, we use pta^.responderattributes.urls^.discussEditInBrowser.
			ÇWed, 19 May 1999 18:50:24 GMT by AR
				ÇAdded three new parameters: flShowAuthor, flShowPostTime, flShowReads. Default: true.
				ÇAdded a new parameter: flStoryHeaderOnly. Default: false.
				ÇInserted missing </tr> tag after header section.
				ÇAdded a new parameter: flEditButtonsInHeader. Default: true.
			Ç5/12/99; 6:43:55 AM by DW
				ÇAdded Topic line for non-top-level messages. It takes you to the top-level topic that the message is in response to.
			ÇThu, 22 Apr 1999 15:00:04 GMT by AR
				ÇModified after closing a security hole in htmlInterfaces.root
					Çhttp://frontier.userland.com/security/htmlInterfacesRoot
			ÇMon, 01 Mar 1999 17:45:42 GMT by AR
				ÇChanged code in the "set member info" section to no longer reference config.mainResponder.prefs.defaultDiscussRoot. Instead we get the discussion group rootname by dereferencing adrdata which is set by mainresponder.discuss.openroot.
			Ç5/19/99; 10:19:48 PM by DW
				ÇChanged "By Dave Winer" to "Posted by Dave Winer". This makes more sense because I might post articles written by other people.
		ÇThis is the main bottleneck script for displaying discussion group messages.
			ÇIt's used in discussion groups -- but also any time you want to display a discussion group message as a page outside of the discussion group interface. Most of the parameters govern whether or not to display the various discussion group message headers.
	
	bundle { //get page table, discussion group, and message table addresses
		if pta == nil { //PBS 8/2/99: get the page table address
			pta = html.getPageTableAddress ()};
		
		Çscratchpad.pt = pta^
		
		if adrData == nil { //PBS 8/2/99: get the address of the root of this discussion group
			adrData = mainResponder.discuss.openRoot (pta)};
		if adrMsgTable == nil { //PBS 8/2/99: get the address of the table for this discussion group message
			adrMsgTable = @adrData^.messages.[string.padWithZeros (msgNum, 7)]};
		try { //JES 4/19/03: not particularly pretty, but makes sure that any manila code that calls us will get the right value for flUseMappedMemberKeys
			if manilaSuite.isManilaSite (manilaSuite.getSiteAddress ()) {
				flUseMappedMemberKeys = true}}};
	
	local (membershipGroup = pta^.responderAttributes.defaultMembershipGroup);
	local (flShowEditButtons, flEditButtonsAtTop, flEditButtonsAtBottom, flShowMessageHeaders);
	local (htmlText = "", indentLevel = 0);
	local (flMember = defined (pta^.adrMemberInfo));
	
	on add (s) {
		htmlText = htmlText + string.filledString ("\t", indentLevel) + s + "\r"};
	
	bundle { //increment read stats
		adrMsgTable^.ctReads++;
		config.mainResponder.stats.ctDiscussionGroupReads++}; //1/17/99; 9:20:18 AM by DW
	
	bundle { //was this message deleted?
		if mainResponder.discuss.isMessageDeleted (msgNum, adrMsgTable, pta) {
			Ç4/10/00; 12:17:54 AM by JES - added localization
			add (mainResponder.getString ("discuss.messageDeleted"));
			return (htmlText)}};
	
	bundle { //calculate lots of booleans in advance to avoid spitting out unwanted empty table cells etc.
		flShowEnclosure = flShowEnclosure and (defined (adrMsgTable^.enclosureAddress) and (adrMsgTable^.enclosureAddress != ""));
		flShowEditButtons = (flMember and (mainResponder.discuss.memberCanEdit (adrMsgTable, pta^.adrMemberInfo))); //PBS 6/9/99: a member other than the poster may be able to edit this message
		flEditButtonsAtTop = (flShowEditButtons and flEditButtonsInHeader);
		flEditButtonsAtBottom = (flShowEditButtons and not flEditButtonsInHeader);
		flShowAttachment = flShowAttachment and defined (adrMsgTable^.attachment);
		flShowMessageHeaders = (not flStoryHeaderOnly) and (flShowAuthor or flShowPostTime or flShowMsgNums or flShowEnclosure or flShowReads or flShowAttachment);
		if not flShowMessageHeaders { //PBS 9/22/99: make it possible to have a byline and message headers: example -- the Samples site needs a byline plus enclosure header
			if defined (pta^.flReadMessageStoryHeaderAndMessageHeaders) {
				if pta^.flReadMessageStoryHeaderAndMessageHeaders {
					flShowMessageHeaders = true}}}};
	
	on addEditButtons () { //add Edit button (or buttons) to the page
		Ç4/10/00; 12:17:54 AM by JES - added localization
		local (editableInFrontier = false);
		
		Çif defined (pta^.adrMemberInfo^.isFrontierSixAlpha) //edit in Frontier button
			Çbundle //old code
				Çadd ("<hr><b>Frontier 6 Alphas</b><p>")
				Çadd ("According to our records, you are a Frontier 6 alpha tester, and you created the message that you're viewing. That means that you can edit this message using Frontier 6's wrapping headlines outliner.")
				Çadd ("To use this feature, be sure Frontier is running, and you have suites.editorial installed. Then click on the following link. <i>Please follow the instructions carefully.</i><p>")
				Çadd ("<a href=\"" + pta^.responderattributes.urls^.discussEditInFrontier + msgnum + "\">Edit message #" + msgnum + " in Frontier</a>")
				Çadd ("<font size=\"-2\"><br>You can edit this message<br>because you are a Frontier 6<br>alpha tester and you are<br>the author of this message.</font>")
			Çlocal (url = pta^.responderAttributes.urls^.discussEditInFrontier + msgNum)
			Ç
			ÇBuild the Edit in Frontier button.
			Çadd ("<td valign=\"middle\"><center>"); indentLevel++
			Çadd ("<form method=\"POST\" action=\"" + url + "\">"); indentLevel++
			Çadd ("<input name=\"msgnum\" type=\"hidden\" value=\"" + msgNum + "\">")
			Çadd ("<input type=\"submit\" value=\"" + mainResponder.getString ("discuss.editInFrontier") + "\">")
			Çadd ("</form>"); indentLevel--
			Çadd ("</center></td>"); indentLevel--
			Ç
			ÇeditableInFrontier = true
		bundle { //edit in web browser button
			if editPageURL == "" {
				editPageURL = pta^.responderAttributes.urls^.discussEditInBrowser};
			
			add ("<td valign=\"middle\"><center>"); indentLevel++;
			add ("<form method=\"post\" action=\"" + editPageURL + msgNum + "\">"); indentLevel++;
			add ("<input name=\"msgnum\" type=\"hidden\" value=\"" + msgNum + "\" />");
			local (buttonValue = mainResponder.getString ("discuss.editThisPage"));
			
			if editableInFrontier {
				buttonValue = mainResponder.getString ("discuss.editInBrowser"); //change button name from Edit this Page to Edit in Browser
				add ("&nbsp;")};
			
			add ("<input type=\"submit\" value=\"" + buttonValue + "\" />");
			add ("</form>"); indentLevel--;
			
			add ("</center>");
			
			bundle { //PBS 01/13/00: Add the Edit in Pike button
				if defined (pta^.responderAttributes.urls^.editInPike) {
					ÇPike support is a feature not of mainResponder but of Manila. However, this script, which displays the discussion group message and the Edit this Page, needs to be Pike-aware enough to display the Pike button.
					Çif manilaSuite.pike.memberHasPike (pta)
						Çlocal (editInPikeUrl = pta^.responderAttributes.urls^.editInPike)
						Çif not (editInPikeUrl endsWith "$")
							ÇeditInPikeUrl = editInPikeUrl + "$"
						ÇeditInPikeUrl = editInPikeUrl + msgNum
						Çlocal (adrSite = pta^.adrSiteRootTable)
						Çlocal (adrMember = pta^.adrMemberInfo)
						Çadd (manilaSuite.pike.pikeButton (editInPikeUrl, adrMsgTable, adrMember, adrSite, true, mainResponder.getString ("discuss.editThisStoryInPikeOutline"), pta)) //true because this is a message
					add (manilaSuite.pike.editMessageButton (adrMsgTable, pta:pta))}}; //PBS 11/27/00: pta is named parameter
			
			add ("</td>"); indentLevel--}};
	
	bundle { //put up message headers section
		Ç4/10/00; 12:17:54 AM by JES - added localization
			Çbundle // non-localized version
				Çadd ("<i>" + date.abbrevString (adrMsgTable^.postTime) + "; by " + name + ".</i>")
		local (flByline = flStoryHeaderOnly); //PBS 06/22/00: message table can over-ride byline display
		if defined (adrMsgTable^.flByline) { //an attribute in the message table can over-ride the site setting
			if not adrMsgTable^.flByline {
				flByline = false}
			else {
				flByline = true}};
		if flByline and !flShowAuthor { //07/13/00 JES: added !flShowAuthor -- never show a Byline if we have an Author header
			ÇSupport DaveNet-style bylines: PBS 6/11/99
				ÇLike: Friday, June 11, 1999; by Dave Winer (no link to author)
			if defined (pta^.readMessageBylineFormat) and string.lower (pta^.readMessageBylineFormat) == "davenet" {
				bundle {
					local {
						name = mainResponder.members.linkToMember (membershipGroup, adrMsgTable^.member)};
					add ("<i>" + mainResponder.macros.byline (name, adrMsgTable^.postTime, "DaveNet") + "</i>")};
				Çbundle // old code
					Çlocal (adrMember = mainResponder.members.getMemberTable (membershipGroup, adrMsgTable^.member))
					Çlocal (name = nameOf (adrMember^)) // 10/05/05; 7:01:56 PM by PR default to the member key
					Çif defined (adrMember^.personalInfo.name)
						Çname = adrMember^.personalInfo.name
					Çelse
						Çif name contains '@'
							Çname = string.replace (string.mid (name, 1, string.patternMatch ('@', name)+2) + "...", '@', "&#64;")
					Çadd ("<i>" + mainResponder.macros.byline (name, adrMsgTable^.postTime, "DaveNet") + "</i>")}}
			else { // standard byline format
				local (authorLink = mainResponder.members.linkToMember (membershipGroup, adrMsgTable^.member, true, useMap: flUseMappedMemberKeys));
				add ("<i>" + mainResponder.macros.byline (authorLink, adrMsgTable^.postTime) + "</i>")}};
		local (flDoHeaders = false); //PBS 10/5/99: fix for blank headers section, which messages up the formatting
		if flEditButtonsAtTop {
			flDoHeaders = true}
		else {
			if flShowMessageHeaders {
				case true {
					flShowAuthor;
					flShowPostTime;
					flShowMsgNums;
					flShowEnclosure;
					flShowReads;
					flShowAttachment {
						flDoHeaders = true}}}};
		if flDoHeaders { //PBS 10/5/99: was: if (flShowMessageHeaders or flEditButtonsAtTop)
			add ("<p />");;
			add ("<table cellspacing=\"0\" cellpadding=\"0\" border=\"0\">"); indentLevel++;
			add ("<tr>"); indentLevel++;
			
			if flShowMessageHeaders { //add author, posted, msg#, etc
				add ("<td>"); indentLevel++;
				add ("<table cellspacing=\"0\" cellpadding=\"0\" border=\"0\">"); indentLevel++;
				
				on tr (label, val) {
					add ("<tr>"); indentLevel++;
					add ("<td valign=\"top\"><font size=\"+0\"><b>" + label + "</b>&nbsp;</font></td>");
					add ("<td valign=\"top\"><font size=\"+0\">" + val + "</font></td>");
					add ("</tr>"); indentLevel--};
				on msgLink (msgNum) {
					return ("<a href=\"" + pta^.responderAttributes.urls^.discussMsgReader + msgNum + searchArgs + "\">" + msgNum + "</a>")};
				
				if flShowAuthor {
					tr (mainResponder.getString ("discuss.authorHeader"), mainResponder.members.linkToMember (membershipGroup, adrMsgTable^.member, true, useMap: flUseMappedMemberKeys))}; // 4/13/00 JES: localized the header
				if flShowPostTime {
					tr (mainResponder.getString ("discuss.postedHeader"), mainResponder.localization.dateTimeString (adrMsgTable^.postTime))}; // 4/13/00 JES: localized the header and the date
				if flShowMsgNums and (adrMsgTable^.inResponseTo > 0) { //spit out the Topic line
					local (nomad = adrMsgTable);
					while (nomad^.inResponseTo > 0) {
						nomad = mainResponder.discuss.getMessageTable (nomad^.inResponseTo)};
					tr (mainResponder.getString ("discuss.topicHeader"), "<a href=\"" + pta^.responderAttributes.urls^.discussMsgReader + nomad^.msgNum + searchArgs + "\">" + nomad^.subject + "</a>")}; // 4/13/00 JES: localized the header
				if flShowMsgNums { // put out the Msg# line
					local (val = msgNum);
					if adrMsgTable^.inResponseTo > 0 {
						try {
							local (replacementTable); new (tableType, @replacementTable); // 05/01/00 JES: use replacement table instead of a list
							replacementTable.msglink = msgLink (adrMsgTable^.inResponseTo);
							val = val + " (" + mainResponder.getString ("discuss.inResponseTo", @replacementTable) + ")"}} // 4/13/00 JES: localized the header
					else {
						val = val + " (" + mainResponder.getString ("discuss.topMsgInThread") + ")"}; // 4/13/00 JES: localized
					tr (mainResponder.getString ("discuss.msgNumHeader"), val)};
				if flShowEnclosure { //regurgitate the Enclosure line
					Çhttp://discuss.userland.com/enclosures/view$868
					local (viewingUrl = pta^.responderAttributes.urls^.discussEnclosureViewer + msgNum);
					Ç4/13/00; 5:52:43 PM by JES: localized enclosure text
					local (listingLink = "<a href=\"" + viewingUrl + "\">" + mainResponder.getString ("discuss.viewEnclosure") + "</a>");
					local (fatPageLink = "<a href=\"" + pta^.responderAttributes.urls^.discussEnclosureDownloader + msgNum + "\">" + mainResponder.getString ("discuss.fatPageEnclosure") + "</a>");
					local (rpcLink = "<a href=\"" + pta^.responderAttributes.urls^.discussEnclosureRPCer + msgNum + "\">" + mainResponder.getString ("discuss.RPCenclosure") + "</a>");
					
					tr (mainResponder.getString ("discuss.enclosureHeader"), listingLink + ", " + fatPageLink + ", " + rpcLink)};
				if flShowMsgNums { //throw up Prev/Next
					local (ixPrev = -1, ixNext = -1);
					local (ixLastMsg = adrData^.prefs.nextMsgNum - 1);
					
					for i = (msgNum - 1) downTo 1 { //find the previous message
						local (adrMsg = mainResponder.discuss.getMessageTable (i, pta, adrData));
						if not (mainResponder.discuss.isMessageDeleted (i, adrMsg, pta:pta)) {
							ixPrev = i;
							break}};
					for i = (msgNum + 1) to ixLastMsg { //find the next message
						local (adrMsg = mainResponder.discuss.getMessageTable (i, pta, adrData));
						if not (mainResponder.discuss.isMessageDeleted (i, adrMsg, pta:pta)) {
							ixNext = i;
							break}};
					
					Ç4/13/00; 5:53:22 PM by JES: localized next/prev header and link display
					if ixPrev == -1 {
						if ixNext != -1 {
							tr (mainResponder.getString ("discuss.nextMsgHeader"), msgLink (ixNext))}}
					else {
						if ixNext == -1 {
							if ixPrev != -1 {
								tr (mainResponder.getString ("discuss.prevMsgHeader"), msgLink (ixPrev))}}
						else {
							local (replacementTable); new (tableType, @replacementTable); // 05/01/00 JES: use replacement table instead of a list
							replacementTable.prevmsglink = msgLink (ixPrev);
							replacementTable.nextmsglink = msgLink (ixNext);
							tr (mainResponder.getString ("discuss.prevNextMsgHeader"), mainResponder.getString ("discuss.prevNextMsgNums", @replacementTable))}}};
				if flShowReads { //show the number of times this message has been read
					tr (mainResponder.getString ("discuss.readsHeader"), adrMsgTable^.ctReads)}; // 4/13/00 JES: localized
				if flShowAttachment {
					local (val);
					
					case string.lower (adrMsgTable^.attachment.mimeType) { // is it a GIF, JPEG, or PNG?
						"image/gif";
						"image/jpeg";
						"image/pjpeg";
						"image/png" {
							val = "<img height=\"" + adrMsgTable^.attachment.height + "\" src=\"" + pta^.responderAttributes.urls^.discussAttachmentViewer + msgNum + "\" width=\"" + adrMsgTable^.attachment.width + "\" />"}}
					else {
						val = "<a href=\"" + adrMsgTable^.attachment.url + "\">" + adrMsgTable^.attachment.fileName + "</a>";
						};
					tr (mainResponder.getString ("discuss.attachmentHeader"), val)};
				
				add ("</table>"); indentLevel--;
				add ("</td>"); indentLevel--};
			if flEditButtonsAtTop { //add edit in Frontier button, possibly other stuff
				if (flStoryHeaderOnly or flShowMessageHeaders) { //add a bit of horizontal space
					add ("<td width=\"50\">&nbsp;</td>")};
				
				addEditButtons ()};
			
			add ("</tr>"); indentLevel--;
			add ("</table>"); indentLevel--;
			add ("<p />")}
		else {
			add ("<p />")}};
	
	bundle { //add the body of the story
		local (flCallbackReturnedBody = false);
		if adrGetBodyCallback != nil {
			local (s);
			s = adrGetBodyCallback^ (adrMsgTable);
			if s != "" {
				add (s);
				flCallbackReturnedBody = true}};
		if not flCallbackReturnedBody {
			bundle { //PBS 10/20/99: if an image is attached to this message, display it above the body
				if defined (adrMsgTable^.image) {
					if defined (pta^.responderAttributes.urls^.imageViewer) { //must be defined: it's the link to the imageViewer script
						ÇThe imageViewer script takes a msgNum as pathArgs and displays the picture attached to that dg message.
						add (mainResponder.discuss.buildImageTag (adrMsgTable^.msgNum));
						add ("<p />")}}};
			if typeOf (adrMsgTable^.body) == outlineType { //outlines get passed through an outline renderer
				local (oldRenderOutlineWith = nil);
				
				if defined (pta^.renderOutlineWith) {
					oldRenderOutlineWith = pta^.renderOutlineWith};
				if defined (pta^.renderDiscussOutlinesWith) {
					pta^.renderOutlineWith = pta^.renderDiscussOutlinesWith};
				
				if defined (pta^.flReadMessageProcessMacros) and pta^.flReadMessageProcessMacros {
					try {add (html.processMacros (html.tenderRender (@adrMsgTable^.body), false, pta))}}
				else {
					if defined (pta^.flReadMessageExpandUrls) and not pta^.flReadMessageExpandUrls {
						try {add (html.tenderRender (@adrMsgTable^.body))}}
					else { //default, original behavior
						try {add (html.expandURLs (html.tenderRender (@adrMsgTable^.body)))}}};
				
				if oldRenderOutlineWith != nil {
					pta^.renderOutlineWith = oldRenderOutlineWith}}
			else { //it's not an outline
				local (s = string (adrMsgTable^.body));
				s = string.replaceAll (s, "\n", ""); //2/15/99 DW, inside <pre>s these cause extra line-skips
				
				if not (defined (pta^.flReadMessageAutoParagraphs)) or pta^.flReadMessageAutoParagraphs {
					s = string.replaceAll (s, "\r\r", "\r\r<p />")};
				if not (defined (pta^.flReadMessageProcessMacros)) or pta^.flReadMessageProcessMacros {
					s = html.processMacros (s, false, pta);
					};
				Çadd ("<font size=\"+0\">" + s + "</font>")
				add (s)}}}; //PBS 11/18/99: removed <font> tags from around message text, as they didn't do anything, but made it harder for a designer to specify the font for the page
	
	if flEditButtonsAtBottom { //add edit buttons to the bottom
		add ("<p />");
		add ("<table cellspacing=\"0\" cellpadding=\"0\" border=\"0\">"); indentLevel++;
		add ("<tr>"); indentLevel++;
		
		addEd...
 
[truncated message content]