/*

 )J1996 Ray Rischpater

 All Rights Reserved.

 dove@lothlorien.com

 This program is free software; you can redistribute it and/or

 modify it under the terms of the GNU General Public License 

 as published by the Free Software Foundation; either 

 version 2 of the License, or (at your option) any later 

 version.

 

 This program is distributed in the hope that it will be useful,

 but WITHOUT ANY WARRANTY; without even the implied warranty of

 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

 GNU General Public License for more details.

 You should have received a copy of the GNU General Public 

 License along with this program; if not, write to the Free 

 Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, 

 USA. 

 

*/

 

 InstallScript:=func(inPartFr, inFrameFr)

 begin

 	if HasSlot(GetRoot(),'|nHTTPd:ALLPEN|) then

 	begin

 		GetRoot().|nHTTPd:ALLPEN|:RegTranslator(kAppSymbol,

 			"/personal/",

 			{

 				_parent: nil,

 				CompletionScript: func(inEp, inData, inErr)

 				begin

 					PlaySoundSync(ROM_funbeep);

					inEp:Output("Plink!" & unicodeLF , nil, nil);

					inEp:Close();

				end,

 			});

 	end

 	else

 	begin

 		GetRoot():Notify(kNotifyAlert, "Personal Server",

 			"nHTTPd is not currently installed.");

 	end

 end;

 

 RemoveScript:=func(inPartFr)

 begin

  	if HasSlot(GetRoot(),'|nHTTPd:ALLPEN|) then

 	begin

 		GetRoot().|nHTTPd:ALLPEN|:UnRegTranslators(kAppSymbol);

 	end

 end;