[frontierkernel-commits] odbs/mainResponderRoot/mainResponder/menuCommands installMainResponderSite,1.1,1.2,

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

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

Modified Files:
	installMainResponderSite 
Log Message:
factored the installation part of the script into mainResponder.utilities.installWebsite

Index: installMainResponderSite
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/menuCommands/installMainResponderSite,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** installMainResponderSite	9 Feb 2006 02:52:39 -0000	1.1
--- installMainResponderSite	10 Feb 2006 03:19:39 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:mainResponder.menuCommands.installMainResponderSite
  
! ÇChanges
	Ç1/17/06; 11:30:26 AM by TAC
		Çcreated, cribbed from mainResponder.menuCommands.installSite

local (adrSite = table.getCursorAddress ());

while (sizeOf (string.parseAddress (adrSite)) > 2) {
	adrSite = parentOf (adrSite^)};

local (flIsMainResponderSite = false, siteName = nameOf (adrSite^));

if string.lower (siteName) endsWith "mrws" {
	flIsMainResponderSite = true;
	siteName = string.delete (siteName, sizeOf (siteName) - 3, infinity)};

if flIsMainResponderSite {
	local (oldUrl = adrSite^.["#ftpSite"].url);
	local (newUrl = oldUrl);
	
	if dialog.ask ("New site URL for " + siteName + ":", @newUrl) {
		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 {
				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}}};
		
		dialog.notify ("The mainResponder website \"" + siteName + "\" has been installed.")}}
else {
	dialog.alert ("Can't install \"" + siteName + "\" because it isn't a mainResponder website.")}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:mainResponder.menuCommands.installMainResponderSite
  
! ÇChanges
	Ç2/9/06; 1:59:07 PM by TAC
		Çfactored the installation part of the script into mainResponder.utilities.installWebsite
	Ç1/17/06; 11:30:26 AM by TAC
		Çcreated, cribbed from mainResponder.menuCommands.installSite

local (adrSite = table.getCursorAddress ());

while (sizeOf (string.parseAddress (adrSite)) > 2) {
	adrSite = parentOf (adrSite^)};

local (flIsMainResponderSite = false, siteName = nameOf (adrSite^));

if string.lower (siteName) endsWith "mrws" {
	flIsMainResponderSite = true;
	siteName = string.delete (siteName, sizeOf (siteName) - 3, infinity)};

if flIsMainResponderSite {
	local (oldUrl = adrSite^.["#ftpSite"].url);
	local (newUrl = oldUrl);
	
	if dialog.ask ("New site URL for " + siteName + ":", @newUrl) {
		mainResponder.utilities.installSite (adrSite, siteName, oldUrl, newUrl)}}
else {
	dialog.alert ("Can't install \"" + siteName + "\" because it isn't a mainResponder website.")}
\ No newline at end of file