Thierry Laurent Thierry Laurent Author
Title: Faire une base de redirection automatique tant en Lotus Notes qu'en Http
Author: Thierry Laurent
Rating 5 of 5 Des:
Bon je sais maintenant il parait que le système est opérationnelle sur les nouvelles version de serveur mais quand même on murmure qu'il...
Bon je sais maintenant il parait que le système est opérationnelle sur les nouvelles version de serveur mais quand même on murmure qu'il y aurait des erreurs des pop up et des trucs qui daille l'utilisateur et donc l'administrateur ...
Alors le but est de faire en sorte que les personnes qui ouvrent la base en question sur un serveur se retrouvent automatiquement redirigé sur un autre serveur de façon transparente.
Le principe est simple finalement :
  1. On réplique la base sur le serveur de destination
  2. On modifie les informations des fiches de l'annuaire pour le routage sur le nouveau serveur
  3. On supprime la base de l'ancien serveur et on la remplace par une base créée sur le modèle décrit après. La base doit simplement mais de manière impérative porter le même nom de fichier et bien sûr être dans le même répertoire (je sais c'est beaucoup mais on va quand même pas se prendre la tête ... )
Alors passons maintenant à la base modèle ...

Nous allons mettre en oeuvre des bouts de script et du codage http à différents endroits de la base.
Mais occupons nous d'abord de la liste de contrôle d'accès ... Facile comme on va faire du postopen et que la base ne contient rien en terme de donnée si la personne est "auteur" ca le fait parfaitement ..

Et hop pour la suite occupons nous des composants de la base de redirection ...

d'abord on va faire un masque


avec un lien URL qui contient une valeur calculé sur la champ qui va servir pour le web


Dans le masque on positionne le lien web avec une valeur calculée qui contient le nom du champ (cf le champ suivant ) vers la base de destination et un champ (celui là .. ) qui contient la valeur @ReplaceSubstring(@ReplaceSubstring(@LowerCase(@Subset(@DbName; -1)); "mail" : " "; "mailbp" : "+"); "\\" : " "; "/" : "+")

Le lien URL est

bon on a finit avec le masque

Alors voyons les pages, deux pages pour tenir les utilisateurs au courant ...

La première qui va être ouverte lors de l'ouverture de la base Notes et va provoquer la redirection vers la nouvelle base

La deuxième va rester ouverte sur le poste de l'utilisateur pour le prévenir du changement

Elle contient un bouton pour permettre la fermeture de la base de redirection.

Voila il ne manque plus que deux éléments l'agencement pour faire apparaitre les pages au bon endroit et le post open de la base.

L'agencement je vous le laisse faire pour mette la page de fermeture ...

Le post open se compose de deux éléments une constante pour fixer le nom du serveur de destination et le code de post open :

Sub Postopen(Source As Notesuidatabase)

Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim CurrentMailDatabase As NotesUIDatabase
Dim CurrentMail As NotesDatabase
Dim nomfichier As String
Dim ServerMailDatabase As String

Dim Result As Integer

Set CurrentMail = session.CurrentDatabase
nomfichier = CurrentMail.FileName
nomfichier = "mailbp\" + nomfichier

Call workspace.OpenDatabase ( MailBPServer,nomfichier , , , False, False )

End Sub

Reste à bien vérifier que lors de l'ouverture de la base en mode web ou en mode notes les bon documents s'affichent et le tour est joué ...


Alors pour les plus courageux à vos Designer pour les autres si vous me demandez la base je vous l'envoi ..

About Author

Advertisement

Enregistrer un commentaire

 
Top