Das Notes Forum

Domino 9 und frühere Versionen => ND9: Entwicklung => Thema gestartet von: HHass am 22.11.18 - 18:11:19

Titel: den FQHN dynamisch berechnen
Beitrag von: HHass am 22.11.18 - 18:11:19

Hallo zusammen,

in einer Datenbank, die auf einen anderen Server umziehen soll steht in einer Unmenge von Code Zeilen der Fully Qualified Host Name (FQHN) drin; z. B:

Code

Call item.AppendText("http://server1.bla.eu.com/app/bla/blabla.nsf/online_help?openpage")

Welche Möglichkeit seht Ihr, neben der Variante den FQHN - quasi "über einen Lookup" - aus dem jeweiligen ServerDokument zu holen?

Vielleicht gibt's das ja als 1-Zeiler ;)

Titel: Re: den FQHN dynamisch berechnen
Beitrag von: jBubbleBoy am 22.11.18 - 18:53:00

ein Einzeiler ist es nicht ganz geworden, aber in etwa so mach ich das schon seit längerer Zeit:

Code

Dim Server$
server = "<Server>"
Dim nab As New NotesDatabase(server,"names.nsf")
MsgBox nab.Getview("($ServersLookup)").Getdocumentbykey(server,true).NetAddresses(0)

Titel: Re: den FQHN dynamisch berechnen
Beitrag von: HHass am 22.11.18 - 19:46:27

Gefällt mir - Dankeschön :)

Dann werde ich ne kleine Function bauen. Es sind jede Menge Stellen an denen es rein muss.

Die Zeile mit der Msgbox ist wirklich hübsch komprimiert - cool

Titel: Re: den FQHN dynamisch berechnen
Beitrag von: Pyewacket am 23.11.18 - 08:29:21

Nimm doch den Servernamen aus session.CurrentDatabase.Server,
dann passt das Design zu jedem Servernamen.

Titel: Re: den FQHN dynamisch berechnen
Beitrag von: umi am 23.11.18 - 09:20:20

Moin
Ich nehme mal an Ihr verwendet keine Internet Sites oder ?

Titel: Re: den FQHN dynamisch berechnen
Beitrag von: HHass am 23.11.18 - 11:50:23

Zitat von: umi am 23.11.18 - 09:20:20

Moin
Ich nehme mal an Ihr verwendet keine Internet Sites oder ?

Nicht in dem Zusammenhang  :)

Titel: Re: den FQHN dynamisch berechnen
Beitrag von: HHass am 23.11.18 - 11:57:26

Für den einen oder anderen Fall ist das folgende eine interessante Variante;  hat mir ein Kollege heute gezeigt

Code

<base href=\"http://" + @GetHTTPHeader("Host") +"/" + @WebDbName +"/\">"