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  Expand view  RUN

   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