ocultar directorio y ADS

[meskamas]

Cuales son los pasos para ocultar un directorio y solo pueda accesarlo desde Advantage??? mi servidor es un Netware 6.0 y el servidor ADS es 7.0

Trabajo con Fivewin/xharbour, PHP y ASP accesando a las mismas tablas

gracias


Gracias por la Ayuda

[reinaldocrespo]

No tengo la experiencia con Netware y ADS. Pero si con Linux y Windows server. El proceso debe ser similar.

Primero asigno "ownership" del directorio y los archivos al mismo usuario que es dueño del servicio de ADS server. Mas nadie tiene acceso a ver, o escribir en ese directorio.

Segundo necesitas un ADS data dictionary al cual te vas a conectar desde tu applicación de FWh + xharbour. Una vez el DD exite, ya te puedes conectar y tienes acceso a la data. Y es porque al conectarte al DD es el servicio del ADS server quien tiene el acceso a la data y le habla al cliente que se conecta al DD.

Un poco de código abajo:

Code: Select all

	INI oIni FILE cIni
		Get xRDD SECTION "RDD" ENTRY "RDD-VERSION" OF oIni DEFAULT "LOCAL"
		Get xRDDpath SECTION "RDD" ENTRY "PATH" OF oIni DEFAULT cAppPath + "data\"
	ENDINI

	if xRDD <> "LOCAL"
		rddsetdefault( "ADS" )
		AdsSetFileType( ADS_NTX )
		AdsLocking( ADS_COMPATIBLE_LOCKING )
		rddRegister ( "ADS", 1 )
		AdsRightsCheck( 0 )
		if xRDD == "REMOTE"
			ADSSetServerType( ADS_REMOTE_SERVER )
			if  !AdsConnect60( xrddpath + "pathlabs.add", ADS_REMOTE_SERVER, "ADSSYS", "" )
				MsgStop( "Cannot connect to Remote Server " + Str( AdsGetLastError() ), xrddpath + "pathlabs.add" )
				Quit
			endif
		else
			ADSSetServerType( ADS_AIS_SERVER )
			if  !AdsConnect60( xrddpath + "pathlabs.add", ADS_AIS_SERVER, "internetuser", "pathlabs" )
				MsgStop( "Cannot connect to AIS Server " + Str( AdsGetLastError() ), xrddpath + "pathlabs.add" )
				Quit
			endif
		Endif
	endif

Aqui ya tengo creado el DD y se llama pathlabs.add y con este codigo me conecto al DD ya sea dentro de la red o desde afuera via internet.

[R.F.]

1) Comparte la carpeta donde tienes los datos
2) No asignes ningun usuario a dicha capeta
3) en tu codigo llama a la función ADSRightsCheck(.F.)

y listo.

[meskamas]

vamos a hacer las pruebas, gracias