[frontierkernel-commits] odbs/mainResponderRoot/mainResponder/utilities installSite,1.1,1.2,

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

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

Modified Files:
	installSite 
Log Message:
update navigation

Index: installSite
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/utilities/installSite,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** installSite	10 Feb 2006 03:18:15 -0000	1.1
--- installSite	10 Feb 2006 21:13:43 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:mainResponder.utilities.installSite
  
! on installSite (adrSite, siteName, oldUrl, newUrl, flNotifySiteInstalled = true, flForceSiteTree = false) {
	ÇChanges
		Ç2/9/06; 1:27:42 PM by TAC
			Çcreated, factored from mainResponder.menuCommands.installMainResponderSite
	
	config.mainresponder.sites.[siteName] = adrSite;
	
	[system.temp.mainResponder.discussRootFile].[adrSite^.["#prefs"].discussionRoot] = @adrSite^.["#discussionGroup"];
	
	[system.temp.mainResponder.membersRootFile].[adrSite^.["#prefs"].defaultMembershipGroup] = @adrSite^.["#membershipGroup"];
	
	if not (newUrl endsWith "/") {
		newUrl = newUrl + "/"};
	
	if not (string.lower (newUrl) beginsWith "http://") {
		newUrl = "http://" + newUrl};
	
	adrSite^.["#discussionGroup"].prefs.adrMsgReader = @adrSite^.discussionGroup.messageReader;
	
	if string.lower (oldUrl) != string.lower (newUrl) { // change url
		adrSite^.["#ftpSite"].url = string.replace (adrSite^.["#ftpSite"].url, oldUrl, newUrl);
		
		adrSite^.["#discussionGroup"].prefs.msgReaderUrl = string.replace (adrSite^.["#discussionGroup"].prefs.msgReaderUrl, oldUrl, newUrl);
		
		adrSite^.["#prefs"].search.siteUrl = string.replace (adrSite^.["#prefs"].search.siteUrl, oldUrl, newUrl);
		
		local (adr, s);
		
		for adr in @adrSite^.["#urls"] {
			s = string.lower (nameOf (adr^));
			
			if adr^ == nil {
				continue};
			
			case s {
				"discusseditinfrontier";
				"memberhome" {
					continue}};
			
			adr^ = string.replace (adr^, oldUrl, newUrl)}};
	
	try { // config.mainResponder.domains
		local (url = adrSite^.["#ftpSite"].url);
		local (urlParts = string.urlSplit (url));
		local (path = urlParts [3]);
		local (domain = string.lower (urlParts [2]));
		
		if sizeOf (path) > 0 or flForceSiteTree {
			if not defined (config.mainResponder.domains.[domain]) { // use default domain
				domain = "default"};
			
			mainResponder.siteTree.addSiteToTree (domain, path, adrSite, false, true)}
		else { // top-level site
			if not defined (config.mainResponder.domains.[domain]) {
				config.mainResponder.domains.[domain] = adrSite}}};
	
	if flNotifySiteInstalled {
		dialog.notify ("The mainResponder website \"" + siteName + "\" has been installed.")}};

Çbundle // testing
	ÇinstallSite (@sampleMrWs, "sample", "http://127.0.0.1/", "http://127.0.0.1/", false, true)
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:mainResponder.utilities.installSite
  
! on installSite (adrSite, siteName, oldUrl, newUrl, flNotifySiteInstalled = true, flForceSiteTree = false) {
	ÇChanges
		Ç2/10/06; 12:55:21 PM by TAC
			Çupdate navigation
		Ç2/9/06; 1:27:42 PM by TAC
			Çcreated, factored from mainResponder.menuCommands.installMainResponderSite
	
	config.mainresponder.sites.[siteName] = adrSite;
	
	[system.temp.mainResponder.discussRootFile].[adrSite^.["#prefs"].discussionRoot] = @adrSite^.["#discussionGroup"];
	
	[system.temp.mainResponder.membersRootFile].[adrSite^.["#prefs"].defaultMembershipGroup] = @adrSite^.["#membershipGroup"];
	
	if not (newUrl endsWith "/") {
		newUrl = newUrl + "/"};
	
	if not (string.lower (newUrl) beginsWith "http://") {
		newUrl = "http://" + newUrl};
	
	adrSite^.["#discussionGroup"].prefs.adrMsgReader = @adrSite^.discussionGroup.messageReader;
	
	if string.lower (oldUrl) != string.lower (newUrl) { // change url
		adrSite^.["#ftpSite"].url = string.replace (adrSite^.["#ftpSite"].url, oldUrl, newUrl);
		
		adrSite^.["#discussionGroup"].prefs.msgReaderUrl = string.replace (adrSite^.["#discussionGroup"].prefs.msgReaderUrl, oldUrl, newUrl);
		
		adrSite^.["#prefs"].search.siteUrl = string.replace (adrSite^.["#prefs"].search.siteUrl, oldUrl, newUrl);
		
		local (adr, s);
		
		for adr in @adrSite^.["#urls"] {
			s = string.lower (nameOf (adr^));
			
			if adr^ == nil {
				continue};
			
			case s {
				"discusseditinfrontier";
				"memberhome" {
					continue}};
			
			adr^ = string.replace (adr^, oldUrl, newUrl)};
		
		bundle { // update navigation
			local (oldPath, newPath, structure);
			
			bundle { // old path
				oldPath = string.urlSplit (oldUrl);
				oldPath = "/" + oldPath [3]};
			
			bundle { // new path
				newPath = string.urlSplit (newUrl);
				newPath = "/" + newPath [3]};
			
			xml.compile (string (adrSite^.["#navigator"].outline), @structure);
			
			for adr in @structure [1] {
				adr^.["/atts"].pagename = string.replace (adr^.["/atts"].pagename, oldPath, newPath)};
			
			s = xml.decompile (@structure);
			s = string.delete (s, 1, string.patternMatch ('\n', s));
			
			op.newOutlineObject (s, @adrSite^.["#navigator"].outline)}};
	
	try { // config.mainResponder.domains
		local (url = adrSite^.["#ftpSite"].url);
		local (urlParts = string.urlSplit (url));
		local (path = urlParts [3]);
		local (domain = string.lower (urlParts [2]));
		
		if sizeOf (path) > 0 or flForceSiteTree {
			if not defined (config.mainResponder.domains.[domain]) { // use default domain
				domain = "default"};
			
			mainResponder.siteTree.addSiteToTree (domain, path, adrSite, false, true)}
		else { // top-level site
			if not defined (config.mainResponder.domains.[domain]) {
				config.mainResponder.domains.[domain] = adrSite}}};
	
	if flNotifySiteInstalled {
		dialog.notify ("The mainResponder website \"" + siteName + "\" has been installed.")}};

Çbundle // testing
	ÇinstallSite (@myFirstMainresponderWebsiteMrWs, "myFirstMainresponderWebsite", "http://127.0.0.1/myFirstMainresponderWebsite/", "http://127.0.0.1/", false, true)
	ÇinstallSite (@myFirstMainresponderWebsiteMrWs, "myFirstMainresponderWebsite", "http://127.0.0.1/", "http://127.0.0.1/myFirstMainresponderWebsite/", false, true)
	ÇinstallSite (@sampleMrWs, "sample", "http://127.0.0.1/", "http://127.0.0.1/", false, true)
\ No newline at end of file