[frontierkernel-commits] odbs/frontierRoot/system/verbs/apps/Manila/editResponder respond,1.1.1.1,1.2

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

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/apps/Manila/editResponder
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7553

Modified Files:
	respond 
Log Message:
changed hard coded references to UserLand Radio and Radio to Frontier.getProgramName

Index: respond
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/apps/Manila/editResponder/respond,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** respond	26 Mar 2005 19:42:18 -0000	1.1.1.1
--- respond	28 Sep 2005 03:08:48 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.apps.Manila.editResponder.respond
  
! on respond (pta) {
	ÇImplement the edit responder that opens Manila objects for editing.
		Ç11/26/00; 9:33:13 PM by PBS
		ÇChanges:
			Ç11/26/00; 9:33:35 PM by PBS
				ÇpathArgs have priority over searchArgs, since sometimes we need to send a form, and searchArgs get wiped out in that case. So we use pathArgs in that case. For instance -- the Create a New Story form uses pathArgs, since it's a form.
			Ç11/27/00; 12:47:13 AM by PBS
				ÇFixed a bug with editing messages -- you would sometimes get the rendered text instead of the outline.
			Ç11/27/00; 3:46:47 PM by PBS
				ÇShortening the URL the server generates -- less info is sent now. Get info from referer, assume defaults, when certain arguments aren't specified. If not supplied, get username and password from prefs or prompt user.
			Ç12/04/00 at 3:53:37 PM by JES
				ÇIf there's a scriptError when checking out an item, forget the username and password, so the user will have a chance to enter them again.
			Ç12/04/00 4:16:11 PM by PBS
				ÇIf there's an error, display a friendly It Didn't Work page rather than a 500 Server Error page.
			Ç12/12/00; 10:29:11 PM by PBS
				ÇIf this is a Macintosh, bring the app to front right away, to work around the MSIE 5 CPU hogging bug.
			Ç12/17/00; 6:32:24 PM by JES
				ÇOptimizations: If we already know the canonical site name, get it from user.playlist.manila.sites, instead of calling the server. If the story is already open for editing, don't make any calls to the server; just bring the window to the front.
			Ç12/27/00; 2:50:35 PM by PBS
				ÇBring Radio to front on Windows right away (same as on Macs). If there's an error page to display, bring the Web browser to the front.
			Ç12/30/00; 5:51:36 PM by JES
				ÇEdit Manila sites' site structure using the structure outline, instead of plain XML.
			Ç01/22/01; 1:59:38 AM by JES
				ÇFix a bug where stories created in the browser would not correctly translate to Mac text for editing in Radio.
			Ç3/22/01; 6:38:26 PM by PBS
				ÇWhen creating a new story, convert the title that was typed in the form on the web page to Macintosh text (when on a Macintosh).
			Ç3/12/02; 4:00:26 AM by JES
				ÇConvert the title of new stories from Latin to Mac text, if running on a Mac. (This conversion used to happen, but was lost in the move to the windowTypes framework.)
	
	Frontier.bringToFront ();
	
	bundle { //init windowTypes and nodeTypes
		manila.nodeTypes.init ();
		manila.windowTypes.init ()};
	
	pta^.responseHeaders.["Content-Type"] = "text/html"; //a sensible default
	
	try {
		on buildResponse (code, shortmessage, longmessage) {
			pta^.code = code;
			pta^.responseBody = webserver.util.buildErrorPage (code + " " + string.upper (shortmessage), longmessage);
			return};
		
		local (args, siteinfo, redirectURL, adrinfo);
		bundle { //decode args, copy items to siteinfo table and to redirectURL
			try {
				new (tabletype, @args);
				if pta^.pathArgs != "" {
					webserver.parseArgs (pta^.pathArgs, @args)};
				bundle { //add search args
					local (t);
					new (tableType, @t);
					webserver.parseArgs (pta^.searchArgs, @t);
					table.copyContents (@t, @args)};
				new (tabletype, @siteinfo);
				
				siteInfo.url = args.url;
				
				bundle { //host
					if defined (args.host) { //PBS 11/27/00: if not defined, get from site URL
						siteinfo.host = args.host}
					else {
						local (urlParts = string.urlSplit (siteInfo.url));
						local (host = urlParts [2]);
						host = string.nthField (host, ':', 1); //strip port
						siteInfo.host = host}};
				bundle { //port
					if defined (args.port) { //PBS 11/27/00: assume port 80 if not sent
						siteinfo.port = args.port}
					else {
						siteInfo.port = 80}};
				bundle { //rpcPath
					if defined (args.rpcPath) { //PBS 11/27/00: assume /RPC2 if not sent
						siteinfo.rpcPath = args.rpcPath}
					else {
						siteInfo.rpcPath = "/RPC2"}};
				bundle { //canonical site name
					if defined (args.siteName) { //PBS 11/27/00: get siteName via XML-RPC if not defined
						siteInfo.siteName = args.sitename}
					else {
						if defined (args.s) { //short name
							siteInfo.siteName = args.s}
						else {
							try { //12/17/00 JES: try to get the siteName from prefs
								ÇsiteInfo.siteName = playlist.manila.getCanonicalNameFromPrefs (siteInfo.url)
								bundle { //get the name from the siteInfoTable at user.manila.data.sites
									local (adrinfo);
									if manila.windowTypes.findSiteInfo (siteInfo.url, @adrinfo) {
										siteInfo.siteName = adrinfo^.siteName}};
								if siteInfo.siteName == "" {
									siteInfo.siteName = manila.getSiteName (args.url)}}
							else {
								siteInfo.siteName = manila.getSiteName (args.url)}}}};
				bundle { //display site name
					if defined (args.displaySiteName) { //PBS 11/27/00: use canonical site name if not defined
						siteInfo.displaySiteName = args.displaySiteName}
					else {
						if defined (args.d) { //short name
							siteInfo.displaySiteName = args.d}
						else {
							siteInfo.displaySiteName == "";
							bundle { //get the displaySiteName from the siteInfoTable at user.manila.data.sites
								local (adrinfo);
								if manila.windowTypes.findSiteInfo (siteInfo.url, @adrinfo) {
									siteInfo.siteName = adrinfo^.displaySiteName}};
							if siteInfo.displaySiteName == "" { //fall back to the canonical site name for displaySiteName
								siteInfo.displaySiteName = siteInfo.siteName}}}};
				bundle { //redirect URL
					if defined (args.redirectUrl) { //PBS 11/27/00: if not defined, use referer
						redirectURL = args.redirectURL}
					else {
						redirectUrl = pta^.requestHeaders.referer}};
				bundle { //server accepts OPML
					if defined (args.flAcceptsOpml) {
						siteInfo.flAcceptsOpml = args.flAcceptsOpml}};
				bundle { //username and password
					siteInfo.username = "";
					siteInfo.password = "";
					
					if defined (args.u) {
						siteinfo.username = base64.decode (args.u)};
					if defined (args.p) {
						siteinfo.password = base64.decode (args.p)};
					
					Çif siteInfo.username == "" or siteInfo.password == "" //get from prefs or prompt user
						ÇsiteInfo.password = ""
						Çplaylist.manila.getUserNameAndPassword (siteinfo.URL, @siteInfo.username, @siteInfo.password)}}
			else {
				scripterror ("Can't edit with Radio because an error occured while decoding the GET arguments: " + tryerror)}};
		
		on passwordError () {
			try { //to clear the password
				manila.windowTypes.setUsernameAndPassword (adrinfo, siteInfo.username, "")};
			scriptError ("Can't edit with Radio because the username and password have not been set.")};
		
		local (s = string.delete (pta^.path, 1, sizeOf ("/manilaEdit/")));
		local (command = string.lower (string.nthField (s, '/', 1)));
		try {
			on createInfoCallback (adrinfo) {
				if manila.windowTypes.getUsernameAndPassword (adrinfo, @siteInfo.username, @siteInfo.password) {
					manila.windowTypes.setUsernameAndPassword (adrinfo, siteInfo.username, siteInfo.password);
					return (true)}
				else {
					return (false)}};
			
			if manila.windowTypes.findSiteInfo (siteinfo.url, @adrinfo, @createInfoCallback) {
				bundle { //copy siteInfo items returned by the server
					if defined (siteinfo.host) {
						adrinfo^.host = siteinfo.host};
					if defined (siteinfo.port) {
						adrinfo^.port = siteinfo.port};
					if defined (siteinfo.rpcPath) {
						adrinfo^.rpcPath = siteinfo.rpcPath};
					if defined (siteinfo.protocol) {
						adrinfo^.protocol = siteinfo.protocol};
					if defined (siteinfo.soapAction) {
						adrinfo^.soapAction = siteinfo.soapAction};
					if defined (siteinfo.siteName) {
						adrinfo^.siteName = siteinfo.siteName};
					if defined (siteinfo.displaySiteName) {
						adrinfo^.displaySiteName = siteinfo.displaySiteName};
					if defined (siteinfo.flAcceptsOpml) {
						adrinfo^.flAcceptsOpml = siteinfo.flAcceptsOpml}};
				case command {
					"newstory" {
						local (adrtype);
						if Frontier.tools.windowTypes.findWindowType ("manilaMessage", @adrtype) {
							local (inResponseTo = 0);
							if defined (args.inResponseTo) {
								inResponseTo = args.inResponseTo};
							local (title = args.title);
							if system.environment.isMac {
								title = latinToMac.convert (title)};
							if not adrtype^.newMessage (args.url, title, inResponseTo, boolean (args.flPromoteToStory)) {
								scriptError ("Can't create story because there was a problem calling the manilaMessage.newMessage windowType script. It returned false.")}};
						Çbundle //old code
							Çpike.checkSiteInfoTable (@siteinfo, "create story in Radio")
							Çlocal (storyinfo)
							Çnew (tableType, @storyinfo)
							Çnew (tableType, @storyinfo.rendererInfo)
							Çtry
								Çstoryinfo.subject = args.title
								Çif system.environment.isMac //PBS 03/22/01: convert title to Mac text
									ÇstoryInfo.subject = latinToMac.convert (storyInfo.subject)
								Çstoryinfo.rendererInfo.name = args.rendererName
								Çstoryinfo.rendererInfo.flRenderOnEntry = boolean (args.flRenderOnEntry)
								ÇstoryInfo.flPromoteToStory = boolean (args.flPromoteToStory)
								Çif defined (args.inResponseTo)
									ÇstoryInfo.inResponseTo = args.inResponseTo
								Çif defined (args.flAcceptsOpml)
									ÇstoryInfo.flServerAcceptsOpml = true
							Çelse
								Çscripterror ("Can't edit in Radio because an error occured while decoding the GET arguments: " + tryerror)
							Çlocal (adrStoryTable = pike.getNewStoryTableAddress (@siteinfo))
							ÇadrStoryTable^.siteinfo = siteinfo
							ÇadrStoryTable^.storyinfo = storyinfo
							Ç
							Çthread.callScript (@pike.commands.newStory, {adrStoryTable})};
					"editstory" {
						local (adrtype);
						if Frontier.tools.windowTypes.findWindowType ("manilaMessage", @adrtype) {
							local (flHomePage = false, adrwindow);
							try {flHomePage = (args.url == args.redirectUrl)};
							if not adrtype^.openMessage (args.url, args.msgnum, false, flHomePage, @adrwindow) {
								scriptError ("Can't edit message because there was a problem calling the manilaMessage.openMessage windowType script. It returned false.")}};
						Çbundle //old code
							Çpike.checkSiteInfoTable (@siteinfo, "edit story in Radio")
							Çlocal (msgnum) //actually, we don't care if it's a number
							Çtry
								Çmsgnum = args.msgnum
							Çelse
								Çscripterror ("Can't edit in Radio because an error occured while decoding the GET arguments: " + tryerror)
							Çlocal (adrStoryTable = pike.getStoryTableAddress (@siteinfo, msgnum), flAlreadyOpen = false)
							Çif defined (adrStoryTable^.outline) //12/17/00 JES: bring the outline to the front if already open
								Çif window.isOpen (@adrStoryTable^.outline)
									Çwindow.bringToFront (@adrStoryTable^.outline)
									ÇflAlreadyOpen = true
							Çif not flAlreadyOpen //12/17/00 JES: only call the server if the outline wasn't already open
								Çmanila.message.checkOut (@siteInfo, msgNum) //check out the story: custody support
								Çlocal (storyinfo = manila.message.get (@siteinfo, msgnum))
								Çif defined (storyInfo.outline)
									ÇstoryInfo.body = storyInfo.outline
								Çpike.checkStoryInfoTable (@storyinfo, "edit story in Radio")
								Çif defined (args.flAcceptsOpml)
									ÇstoryInfo.flServerAcceptsOpml = true
								Çif system.environment.isMac //convert from Latin to Mac text (if this is a Mac)
									Çif defined (storyinfo.opml) //01/22/01 JES: only convert to Mac text if the body is opml
										ÇstoryInfo.body = latinToMac.convert (storyInfo.body)
								Çthread.callScript (@pike.commands.editStory, {siteinfo, storyinfo})};
					"editadvanceditem" {
						local (item);
						try { //get the itemtype
							itemtype = args.itemtype}
						else {
							scripterror ("Can't edit in Radio because an error occured while decoding the GET arguments: " + tryerror)};
						local (adrtype);
						if Frontier.tools.windowTypes.findWindowType ("manilaTemplate", @adrtype) {
							if not adrtype^.openTemplate (args.url, itemtype) {
								scriptError ("Can't edit message because there was a problem calling the manilaTemplate.openTemplate windowType script. It returned false.")}};
						Çbundle //old code
							Çmanila.advancedPref.checkOut (@siteInfo, itemType) //check it out
							Çlocal (itemInfo = manila.advancedPref.get (@siteInfo, itemType))
							ÇitemInfo.type = itemType
							Ç
							Çlocal (adrBuildDisplayRoutine, adrSerializeRoutine)
							Çcase string.lower (itemInfo.type) //12/30/00 JES: edit site structure with site structure editor
								Ç"sitestructure"
									ÇadrBuildDisplayRoutine = @playlist.manila.siteStructure.xmlToOutline
									ÇadrSerializeRoutine = @playlist.manila.siteStructure.outlineToXml
							Çthread.callScript (@pike.commands.editAdvancedItem, {siteinfo, iteminfo, true, adrBuildDisplayRoutine, adrSerializeRoutine})}}
				else { //unimplemented command
					buildResponse (404, "NOT FOUND", "The object \"" + command + "\" doesn't exist.");
					return (true)}}
			else { //username/password error
				passwordError ()}}
		else { //the script that implements the command had an error
			local (lowerError = string.lower (tryError));
			if (lowerError contains "password") or (lowerError contains "not a member") {
				passwordError ()}
			else { //unhandled error
				scriptError (tryError)}};
		
		pta^.responseHeaders.location = redirectURL;
		pta^.responseHeaders.URI = redirectURL;
		buildResponse (302, "FOUND", "Found the page.")}
	else { //an error -- show It Didn't Work page
		webBrowser.bringToFront ();
		local (htmlText = "<html><head><title>It Didn't Work</title></head>");
		on add (s) {
			htmlText = htmlText + s + "\r"};
		add ("<body bgcolor=\"#FFFFFF\">");
		add ("<blockquote><h2>It Didn't Work</h2>");
		add ("<b>Radio UserLand reported an error:</b><p>" + tryError + "");
		add ("</blockquote></body></html>");
		pta^.code = 200;
		pta^.responseBody = htmlText};
	
	return (true)};
Çbundle //debugging
	Çrespond (@scratchpad.pt)
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.apps.Manila.editResponder.respond
  
! on respond (pta) {
	ÇChanges
		Ç9/14/05; 4:34:26 PM by TAC
			Çchanged hard coded references to UserLand Radio and Radio to Frontier.getProgramName 
		Ç3/12/02; 4:00:26 AM by JES
			ÇConvert the title of new stories from Latin to Mac text, if running on a Mac. (This conversion used to happen, but was lost in the move to the windowTypes framework.)
		Ç3/22/01; 6:38:26 PM by PBS
			ÇWhen creating a new story, convert the title that was typed in the form on the web page to Macintosh text (when on a Macintosh).
		Ç01/22/01; 1:59:38 AM by JES
			ÇFix a bug where stories created in the browser would not correctly translate to Mac text for editing in Radio.
		Ç2000
			Ç12/30/00; 5:51:36 PM by JES
				ÇEdit Manila sites' site structure using the structure outline, instead of plain XML.
			Ç12/27/00; 2:50:35 PM by PBS
				ÇBring Radio to front on Windows right away (same as on Macs). If there's an error page to display, bring the Web browser to the front.
			Ç12/17/00; 6:32:24 PM by JES
				ÇOptimizations: If we already know the canonical site name, get it from user.playlist.manila.sites, instead of calling the server. If the story is already open for editing, don't make any calls to the server; just bring the window to the front.
			Ç12/12/00; 10:29:11 PM by PBS
				ÇIf this is a Macintosh, bring the app to front right away, to work around the MSIE 5 CPU hogging bug.
			Ç12/04/00 4:16:11 PM by PBS
				ÇIf there's an error, display a friendly It Didn't Work page rather than a 500 Server Error page.
			Ç12/04/00 at 3:53:37 PM by JES
				ÇIf there's a scriptError when checking out an item, forget the username and password, so the user will have a chance to enter them again.
			Ç11/27/00; 3:46:47 PM by PBS
				ÇShortening the URL the server generates -- less info is sent now. Get info from referer, assume defaults, when certain arguments aren't specified. If not supplied, get username and password from prefs or prompt user.
			Ç11/27/00; 12:47:13 AM by PBS
				ÇFixed a bug with editing messages -- you would sometimes get the rendered text instead of the outline.
			Ç11/26/00; 9:33:35 PM by PBS
				ÇpathArgs have priority over searchArgs, since sometimes we need to send a form, and searchArgs get wiped out in that case. So we use pathArgs in that case. For instance -- the Create a New Story form uses pathArgs, since it's a form.
			Ç11/26/00; 9:33:13 PM by PBS
				ÇImplement the edit responder that opens Manila objects for editing.
	Çscratchpad.pt = pta^
	ÇfileMenu.save ()
	
	local (programName = Frontier.getProgramName ());
	
	Frontier.bringToFront ();
	
	bundle { //init windowTypes and nodeTypes
		manila.nodeTypes.init ();
		manila.windowTypes.init ()};
	
	pta^.responseHeaders.["Content-Type"] = "text/html"; //a sensible default
	
	try {
		on buildResponse (code, shortmessage, longmessage) {
			pta^.code = code;
			pta^.responseBody = webserver.util.buildErrorPage (code + " " + string.upper (shortmessage), longmessage);
			return};
		
		local (args, siteinfo, redirectURL, adrinfo);
		bundle { //decode args, copy items to siteinfo table and to redirectURL
			try {
				new (tabletype, @args);
				if pta^.pathArgs != "" {
					webserver.parseArgs (pta^.pathArgs, @args)};
				bundle { //add search args
					local (t);
					new (tableType, @t);
					webserver.parseArgs (pta^.searchArgs, @t);
					table.copyContents (@t, @args)};
				new (tabletype, @siteinfo);
				
				siteInfo.url = args.url;
				
				bundle { //host
					if defined (args.host) { //PBS 11/27/00: if not defined, get from site URL
						siteinfo.host = args.host}
					else {
						local (urlParts = string.urlSplit (siteInfo.url));
						local (host = urlParts [2]);
						host = string.nthField (host, ':', 1); //strip port
						siteInfo.host = host}};
				bundle { //port
					if defined (args.port) { //PBS 11/27/00: assume port 80 if not sent
						siteinfo.port = args.port}
					else {
						siteInfo.port = 80}};
				bundle { //rpcPath
					if defined (args.rpcPath) { //PBS 11/27/00: assume /RPC2 if not sent
						siteinfo.rpcPath = args.rpcPath}
					else {
						siteInfo.rpcPath = "/RPC2"}};
				bundle { //canonical site name
					if defined (args.siteName) { //PBS 11/27/00: get siteName via XML-RPC if not defined
						siteInfo.siteName = args.sitename}
					else {
						if defined (args.s) { //short name
							siteInfo.siteName = args.s}
						else {
							try { //12/17/00 JES: try to get the siteName from prefs
								ÇsiteInfo.siteName = playlist.manila.getCanonicalNameFromPrefs (siteInfo.url)
								bundle { //get the name from the siteInfoTable at user.manila.data.sites
									local (adrinfo);
									if manila.windowTypes.findSiteInfo (siteInfo.url, @adrinfo) {
										siteInfo.siteName = adrinfo^.siteName}};
								if siteInfo.siteName == "" {
									siteInfo.siteName = manila.getSiteName (args.url)}}
							else {
								siteInfo.siteName = manila.getSiteName (args.url)}}}};
				bundle { //display site name
					if defined (args.displaySiteName) { //PBS 11/27/00: use canonical site name if not defined
						siteInfo.displaySiteName = args.displaySiteName}
					else {
						if defined (args.d) { //short name
							siteInfo.displaySiteName = args.d}
						else {
							siteInfo.displaySiteName == "";
							bundle { //get the displaySiteName from the siteInfoTable at user.manila.data.sites
								local (adrinfo);
								if manila.windowTypes.findSiteInfo (siteInfo.url, @adrinfo) {
									siteInfo.siteName = adrinfo^.displaySiteName}};
							if siteInfo.displaySiteName == "" { //fall back to the canonical site name for displaySiteName
								siteInfo.displaySiteName = siteInfo.siteName}}}};
				bundle { //redirect URL
					if defined (args.redirectUrl) { //PBS 11/27/00: if not defined, use referer
						redirectURL = args.redirectURL}
					else {
						redirectUrl = pta^.requestHeaders.referer}};
				bundle { //server accepts OPML
					if defined (args.flAcceptsOpml) {
						siteInfo.flAcceptsOpml = args.flAcceptsOpml}};
				bundle { //username and password
					siteInfo.username = "";
					siteInfo.password = "";
					
					if defined (args.u) {
						siteinfo.username = base64.decode (args.u)};
					if defined (args.p) {
						siteinfo.password = base64.decode (args.p)};
					
					Çif siteInfo.username == "" or siteInfo.password == "" //get from prefs or prompt user
						ÇsiteInfo.password = ""
						Çplaylist.manila.getUserNameAndPassword (siteinfo.URL, @siteInfo.username, @siteInfo.password)}}
			else {
				scripterror ("Can't edit with " + programName + " because an error occured while decoding the GET arguments: " + tryerror)}};
		
		on passwordError () {
			try { //to clear the password
				manila.windowTypes.setUsernameAndPassword (adrinfo, siteInfo.username, "")};
			scriptError ("Can't edit with " + programName + " because the username and password have not been set.")};
		
		local (s = string.delete (pta^.path, 1, sizeOf ("/manilaEdit/")));
		local (command = string.lower (string.nthField (s, '/', 1)));
		try {
			on createInfoCallback (adrinfo) {
				if manila.windowTypes.getUsernameAndPassword (adrinfo, @siteInfo.username, @siteInfo.password) {
					manila.windowTypes.setUsernameAndPassword (adrinfo, siteInfo.username, siteInfo.password);
					return (true)}
				else {
					return (false)}};
			
			if manila.windowTypes.findSiteInfo (siteinfo.url, @adrinfo, @createInfoCallback) {
				bundle { //copy siteInfo items returned by the server
					if defined (siteinfo.host) {
						adrinfo^.host = siteinfo.host};
					if defined (siteinfo.port) {
						adrinfo^.port = siteinfo.port};
					if defined (siteinfo.rpcPath) {
						adrinfo^.rpcPath = siteinfo.rpcPath};
					if defined (siteinfo.protocol) {
						adrinfo^.protocol = siteinfo.protocol};
					if defined (siteinfo.soapAction) {
						adrinfo^.soapAction = siteinfo.soapAction};
					if defined (siteinfo.siteName) {
						adrinfo^.siteName = siteinfo.siteName};
					if defined (siteinfo.displaySiteName) {
						adrinfo^.displaySiteName = siteinfo.displaySiteName};
					if defined (siteinfo.flAcceptsOpml) {
						adrinfo^.flAcceptsOpml = siteinfo.flAcceptsOpml}};
				case command {
					"newstory" {
						local (adrtype);
						if Frontier.tools.windowTypes.findWindowType ("manilaMessage", @adrtype) {
							local (inResponseTo = 0);
							if defined (args.inResponseTo) {
								inResponseTo = args.inResponseTo};
							local (title = args.title);
							if system.environment.isMac {
								title = latinToMac.convert (title)};
							if not adrtype^.newMessage (args.url, title, inResponseTo, boolean (args.flPromoteToStory)) {
								scriptError ("Can't create story because there was a problem calling the manilaMessage.newMessage windowType script. It returned false.")}};
						Çbundle //old code
							Çpike.checkSiteInfoTable (@siteinfo, "create story in Radio")
							Çlocal (storyinfo)
							Çnew (tableType, @storyinfo)
							Çnew (tableType, @storyinfo.rendererInfo)
							Çtry
								Çstoryinfo.subject = args.title
								Çif system.environment.isMac //PBS 03/22/01: convert title to Mac text
									ÇstoryInfo.subject = latinToMac.convert (storyInfo.subject)
								Çstoryinfo.rendererInfo.name = args.rendererName
								Çstoryinfo.rendererInfo.flRenderOnEntry = boolean (args.flRenderOnEntry)
								ÇstoryInfo.flPromoteToStory = boolean (args.flPromoteToStory)
								Çif defined (args.inResponseTo)
									ÇstoryInfo.inResponseTo = args.inResponseTo
								Çif defined (args.flAcceptsOpml)
									ÇstoryInfo.flServerAcceptsOpml = true
							Çelse
								Çscripterror ("Can't edit in Radio because an error occured while decoding the GET arguments: " + tryerror)
							Çlocal (adrStoryTable = pike.getNewStoryTableAddress (@siteinfo))
							ÇadrStoryTable^.siteinfo = siteinfo
							ÇadrStoryTable^.storyinfo = storyinfo
							Ç
							Çthread.callScript (@pike.commands.newStory, {adrStoryTable})};
					"editstory" {
						local (adrtype);
						if Frontier.tools.windowTypes.findWindowType ("manilaMessage", @adrtype) {
							local (flHomePage = false, adrwindow);
							try {flHomePage = (args.url == args.redirectUrl)};
							if not adrtype^.openMessage (args.url, args.msgnum, false, flHomePage, @adrwindow) {
								scriptError ("Can't edit message because there was a problem calling the manilaMessage.openMessage windowType script. It returned false.")}};
						Çbundle //old code
							Çpike.checkSiteInfoTable (@siteinfo, "edit story in Radio")
							Çlocal (msgnum) //actually, we don't care if it's a number
							Çtry
								Çmsgnum = args.msgnum
							Çelse
								Çscripterror ("Can't edit in Radio because an error occured while decoding the GET arguments: " + tryerror)
							Çlocal (adrStoryTable = pike.getStoryTableAddress (@siteinfo, msgnum), flAlreadyOpen = false)
							Çif defined (adrStoryTable^.outline) //12/17/00 JES: bring the outline to the front if already open
								Çif window.isOpen (@adrStoryTable^.outline)
									Çwindow.bringToFront (@adrStoryTable^.outline)
									ÇflAlreadyOpen = true
							Çif not flAlreadyOpen //12/17/00 JES: only call the server if the outline wasn't already open
								Çmanila.message.checkOut (@siteInfo, msgNum) //check out the story: custody support
								Çlocal (storyinfo = manila.message.get (@siteinfo, msgnum))
								Çif defined (storyInfo.outline)
									ÇstoryInfo.body = storyInfo.outline
								Çpike.checkStoryInfoTable (@storyinfo, "edit story in Radio")
								Çif defined (args.flAcceptsOpml)
									ÇstoryInfo.flServerAcceptsOpml = true
								Çif system.environment.isMac //convert from Latin to Mac text (if this is a Mac)
									Çif defined (storyinfo.opml) //01/22/01 JES: only convert to Mac text if the body is opml
										ÇstoryInfo.body = latinToMac.convert (storyInfo.body)
								Çthread.callScript (@pike.commands.editStory, {siteinfo, storyinfo})};
					"editadvanceditem" {
						local (item);
						try { //get the itemtype
							itemtype = args.itemtype}
						else {
							scripterror ("Can't edit in " + programName + " because an error occured while decoding the GET arguments: " + tryerror)};
						local (adrtype);
						if Frontier.tools.windowTypes.findWindowType ("manilaTemplate", @adrtype) {
							if not adrtype^.openTemplate (args.url, itemtype) {
								scriptError ("Can't edit message because there was a problem calling the manilaTemplate.openTemplate windowType script. It returned false.")}};
						Çbundle //old code
							Çmanila.advancedPref.checkOut (@siteInfo, itemType) //check it out
							Çlocal (itemInfo = manila.advancedPref.get (@siteInfo, itemType))
							ÇitemInfo.type = itemType
							Ç
							Çlocal (adrBuildDisplayRoutine, adrSerializeRoutine)
							Çcase string.lower (itemInfo.type) //12/30/00 JES: edit site structure with site structure editor
								Ç"sitestructure"
									ÇadrBuildDisplayRoutine = @playlist.manila.siteStructure.xmlToOutline
									ÇadrSerializeRoutine = @playlist.manila.siteStructure.outlineToXml
							Çthread.callScript (@pike.commands.editAdvancedItem, {siteinfo, iteminfo, true, adrBuildDisplayRoutine, adrSerializeRoutine})}}
				else { //unimplemented command
					buildResponse (404, "NOT FOUND", "The object \"" + command + "\" doesn't exist.");
					return (true)}}
			else { //username/password error
				passwordError ()}}
		else { //the script that implements the command had an error
			local (lowerError = string.lower (tryError));
			if (lowerError contains "password") or (lowerError contains "not a member") {
				passwordError ()}
			else { //unhandled error
				scriptError (tryError)}};
		
		pta^.responseHeaders.location = redirectURL;
		pta^.responseHeaders.URI = redirectURL;
		buildResponse (302, "FOUND", "Found the page.")}
	else { //an error -- show It Didn't Work page
		webBrowser.bringToFront ();
		local (htmlText = "<html><head><title>It Didn't Work</title></head>");
		on add (s) {
			htmlText = htmlText + s + "\r"};
		add ("<body bgcolor=\"#FFFFFF\">");
		add ("<blockquote><h2>It Didn't Work</h2>");
		add ("<b>" + programName + " reported an error:</b><p>" + tryError + "");
		add ("</blockquote></body></html>");
		pta^.code = 200;
		pta^.responseBody = htmlText};
	
	return (true)};

Çbundle //testing
	Çrespond (@scratchpad.pt)
\ No newline at end of file