den FQHN dynamisch berechnen

[HHass]

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

[jBubbleBoy]

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)

[HHass]

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

[Pyewacket]

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

[umi]

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

[HHass]

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

Nicht in dem Zusammenhang 

[HHass]

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 +"/\">"