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

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

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

Modified Files:
	installMainResponderSite 
Log Message:
look for newUrl in ftpSite table, delete it after install

Index: installMainResponderSite
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/menuCommands/installMainResponderSite,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** installMainResponderSite	10 Feb 2006 03:19:39 -0000	1.2
--- installMainResponderSite	10 Feb 2006 21:14:06 -0000	1.3
***************
*** 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
--- 1,3 ----
  FrontierVcsFile:1:scpt:mainResponder.menuCommands.installMainResponderSite
  
! ÇChanges
	Ç2/10/06; 11:45:55 AM by TAC
		Çlook for newUrl in ftpSite table, delete it after install
	Ç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);
	
	try {
		newUrl = adrSite^.["#ftpSite"].newUrl};
	
	if dialog.ask ("New site URL for " + siteName + ":", @newUrl) {
		mainResponder.utilities.installSite (adrSite, siteName, oldUrl, newUrl);
		
		try {
			delete (@adrSite^.["#ftpSite"].newUrl)}}}
else {
	dialog.alert ("Can't install \"" + siteName + "\" because it isn't a mainResponder website.")}
\ No newline at end of file