InstallScript := func(partFrame, removeFrame)
	begin
if Getroot().|NetHopper:ALLPEN|
     then 
 begin  
	getroot().|NetHopper:ALLPEN|.fSharedURLManipulator:=clone(getroot().|NetHopper:ALLPEN|.fSharedURLManipulator);
//*****************************************************************

addArraySlot(getglobals().|NH3Registry:Allpen|.fregistereddataHandlers.|NHpkgHandler:Allpen|.types, 
[pathExpr: '|application|, '|x-newton-package| ]);


getglobals().|NH3registry:allpen|.fMIMEDataHandlers.application.|x-newton-package|:=
clone(getglobals().|NH3registry:allpen|.fMIMEDataHandlers.application.|x-newton-compatible-pkg|);

//*****************************************************************	
	getroot().|NetHopper:ALLPEN|.fSharedURLManipulator.BuildDefaultDocumentRequest:=

		func(Arg1) begin

			nombre:=clone(arg1.directoryStr);
			arg1.directoryStr:="http://"&arg1.domainNameStr&nombre;
			print(arg1);
			local Local1;
			Local1 := clone('{targetURL: nil, method: 2, displayMode: verbose, fLockInCache: nil, 
					fTitle: "Untitled Page", dateDownloaded: 0, totalContentLen: 0, 
					fDelayTime: nil, useCaches: true, allowUserInteraction: true, 
					ifModifiedSince: nil, stuffResultInCache: true});
			Local1.targetURL := Arg1;
			return Local1
		end;
//*****************************************************************
getroot().|nethopper:allpen|.fTransactionCore_rom:=clone(getroot().|nethopper:allpen|.fTransactionCore_rom);
getroot().|nethopper:allpen|.fTransactionCore_rom.getblankcontainer:=
	clone(getroot().|nethopper:allpen|.fTransactionCore_rom.getblankcontainer);
getroot().|nethopper:allpen|.fTransactionCore_rom.getblankcontainer.literals:=
	clone(getroot().|nethopper:allpen|.fTransactionCore_rom.getblankcontainer.literals);
getroot().|nethopper:allpen|.fTransactionCore_rom.getblankcontainer.literals[0]:=
	clone(getroot().|nethopper:allpen|.fTransactionCore_rom.getblankcontainer.literals[0]);
getroot().|nethopper:allpen|.fTransactionCore_rom.getblankcontainer.literals[0].fURLManipulator_ROM:=
	clone(getroot().|nethopper:allpen|.fTransactionCore_rom.getblankcontainer.literals[0].fURLManipulator_ROM);

getroot().|nethopper:allpen|.fTransactionCore_rom.getblankcontainer.literals[0].fURLManipulator_ROM.
	NewWholeURLFromBaseAndRelativeString:=

func(Arg1,Arg2) begin
			print("original:"&&arg2);
			funcion1:=GetRoot().|nethopper:allpen|._proto.ftransactioncore_rom.getblankcontainer.literals[0].furlmanipulator_rom.
				NewWholeURLFromBaseAndRelativeString.literals[0];	
			direccion:= call funcion1 with (Arg1, Arg2);
		print (direccion);
		if StrLen(direccion.filenameStr)>1 then begin 
							if beginswith(direccion.directorystr,"/http") then direccion.directorystr:=SubStr( direccion.directorystr, 1, nil );
							return direccion;
							
							end;
		if beginswith(direccion.directorystr,"/http") then direccion.directorystr:=SubStr( direccion.directorystr, 1, nil );
		else direccion.directorystr:="http://"&direccion.domainNameStr&direccion.directoryStr;
		print (direccion);
		return direccion;
		end;	
	
	
//*****************************************************************
end;
end;


RemoveScript := func(removeFrame)

 /* we have to remove everything we did if we uninstall the hack */
begin
if Getroot().|NetHopper:ALLPEN|
     then 
 begin 
removeslot(getroot().|NetHopper:ALLPEN|.fSharedURLManipulator,'BuildDefaultDocumentRequest);
removeslot(getroot().|NetHopper:ALLPEN|,'fSharedURLManipulator);

removeslot(getroot().|nethopper:allpen|.fTransactionCore_rom.getblankcontainer.literals[0].fURLManipulator_ROM,
	'NewWholeURLFromBaseAndRelativeString);
removeslot(getroot().|nethopper:allpen|.fTransactionCore_rom.getblankcontainer.literals[0],'fURLManipulator_ROM);
removeslot(getroot().|nethopper:allpen|.fTransactionCore_rom.getblankcontainer,'literals);
removeslot(getroot().|nethopper:allpen|.fTransactionCore_rom,'getblankcontainer);
removeslot(getroot().|nethopper:allpen|,'fTransactionCore_rom);
ArrayRemoveCount( getglobals().|NH3Registry:Allpen|.fregistereddataHandlers.|NHpkgHandler:Allpen|.types, 2, 1 );
removeSlot(getglobals().|NH3registry:allpen|.fMIMEDataHandlers.application,'|x-newton-package|);
end;
end