First feedback (French)

• Mac4Ever : Protections Skinizi pour iPod
• w3sh : Habiller votre iPod avec Skinizi
• iGeneration : Gadget de la semaine
• AppleGadget : Skinizi
• iTrafik : Pour un iPod moins laid
• LeCarnet : Ca y est, je suis de bonne humeur !
• etc…

• Evasee
• Technochica

• ipodmania
• Tuttotech.myblog.it

• Vowe - The smartest German guy I never met

• Joe Litton - The smartest American guy I never met

Perte de focus lors de la notification "Nouveau message"

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Control Panel\Desktop]
"ForegroundLockTimeout"=dword:00030d40
"ForegroundFlashCount"=dword:00000003

Productivité caféinée

• Un journaliste c'est fourbe
  
• Toujours soigner son profil droit
  
• Faire le gars qui bosse, même au café
  
• La télé ça ne fait pas que grossir, ça allonge les nez aussi...
  

iNotes pour SmartPhone

• Il n’est pas compatible V5 (mon client est encore en V5 jusqu'en octobre).
• Les entrées de l’agenda ne sont pas disponibles.
• Sa vue des messages en arrivé fait intervenir @UserName dans sa sélection (pas bon du tout pour pleins de raisons…).
• Un petit bug en V7 : lors de l’envoi de mail, ben le mail il part pas et il est sauvegardé en brouillon (en fait c’est un bug de @mailSend en V7).

La vue agenda	La vue inbox
La visualisation d’un message	Rédaction d’un message

Microsoft vs Lotus

• Windows Server 2003
• Windows Server 2003 CAL
• Active Directory 2000 or 2003 – Part of the Windows server licensing
• Exchange Server 2003
• Exchange Server 2003 CAL – Includes Outlook 2003
• Internet Explorer 6 SP1 – for full OWA functionality including S/MIME and gzip compression
• Windows Live Communication Server – Only runs on Windows Server 2003
• Windows Live Communication Server CAL
• SQL Server
• Windows Messenger 5.1 or Office Communicator 2005
• Outlook 2003 – for integrated email presence awareness

• Lotus Domino Server (Messaging Only)
• Lotus Notes client CAL (Messaging Only)
• Server OS of choice to host Domino & Sametime (Windows, UNIX, Linux, OS/400, ZOS, Solaris etc.)

Malentendu sur les BackEnd documents en LS

• Deux utilisateurs A et B ouvre le même document en lecture.
• L'utilisateur B édite le document et modifie le champ toto et le fait passer de la valeur "litoto" à "cpasdrole".
• L'utilisateur B enregistre et ferme le document.
• L'utilisateur A entre en modification, fait un reload mais la valeur du champ toto est toujours à "litoto". De plus, dans le post mode change ou dans un bouton d'action, si l'on regarde la valeur du source.document.toto(0) il sera aussi égal à "litoto".
• L'utilisateur A ferme le document et l'ouvre a nouveau et le champ toto a bien pris la modification de l'utilisateur B.

Dim vw As NotesView
Set vw = Source.Document.ParentDatabase.GetView("(UNID)")
Set BackEndDoc = vw.GetDocumentByKey(Source.Document.UniversalID)

Suivi des faits

• Concernant ma passion soudaine pour la course à pied, elle s’est un peu (beaucoup) estompée après ma tendinite du moyen fessier. En fait après une radio, j’ai découvert que cette tendinite n’en était pas une mais que c’était une fracture ischio-pubienne. Une tendinite qui met trois mois à guérir c’était louche aussi… Bon en tout cas une fracture c’est un peu plus classe qu’une tendinite de la fesse


• Concernant mon imprimante, j’ai finalement acheté une HP Photosmart 6180. Les divers tests que j’ai pu voir (celui-ci notamment ) plaçaient HP et Canon en tête. J’ai longtemps hésité et j’ai décidé de rester fidèle à HP vu que je sortais d’une très bonne expérience.


• Concernant le réseau d’indépendants, il se met en place petit à petit. L’idée suit son cours et les débuts sont encourageants. J’en profite pour renouveler mon offre : Si vous êtes indépendant que vous avez plusieurs années d’expérience à votre actif et que vous souhaitez faire parti de ce réseau, n’hésitez pas en m’en faire part. Inversement si vous êtes client sachez qu’il existe un moyen de s’offrir des prestations de grandes qualités pas plus onéreuses qu’en SSII.

Placetypes Lotus Quickr 8

• Project Management
• Ideas and Innovation
• Image Repository
• Meeting and Agenda Management
• Activities Integration
• Contact Management
• Dynamic Surveys
• Corporate Communications Management
• Collaborative Presentation Development
• Issues Escalation, Workflow and Management
• J2EE Document Library Integration

V8 et Blog de Pierre Moysan

• Intégrer AWSTATS à un serveur Domino
• Filtrer le SPAM sous Domino avec SpamAssassin

Automatiser le redémarrage d’un serveur Domino sous Windows

• Certains problèmes liés à la tache http et à sa gourmandise en RAM.
• Pour faire des opérations de maintenance (compact, updall, fixup) sur les bases log.nsf, names.nsf, mail.box, etc…
• Pour faire des sauvegardes bases fermées.

• Si il s’agit d’un simple redémarrage, on peut créer un document programme tel que celui-ci :
  
  
  
  
• Si il s’agit d’un arrêt puis d’un démarrage x minutes plus tard, on peut exécuter un .bat avec les instructions suivantes :
  
  net stop "Lotus Domino Server (LotusDominoData)"
  …
  on fait nos trucs
  …
  net start "Lotus Domino Server (LotusDominoData)"
  
  On peut même écrire ce que l’on veut dans le journal système windows avec ce type d’instruction :
  logevent -s S -r "Script Event" "Shutdown Completed."

• Pour la première, on ne peut pas effectuer d’actions entre l’arrêt et le redémarrage du serveur.
• Pour la seconde, on est obligé de passer par le scheduler de windows pour exécuter le .bat à heure régulière. Cela n’est possible que si il y a une session d’ouverte car le schéduler n’est pas un service windows…

Heberger un serveur Domino en 2007

• Processeur 2GHz
• 1024 Mo RAM DDR-2
• Disque dur 160Go SATA-2
• Bande passante illimitée !!!

Irish Lotus Notes User Group

• La beta de Lotus Notes 8 devrait être sortie. Fini les print-screen. On aura du concret sous les yeux et dans les mains.
• Je vais enfin pouvoir rencontrer et discuter avec Ed Brill, Alan Lepofsky, Julian Robichaux, Bruce Elgort, Bill Buchan, etc...
• Ces deux jours sont entièrement gratuit
• C'est en Irlande et Ryanair a eu la bonne idée d'ouvrir une ligne Biarritz/Shannon à 0,38 € l'AR :
  

Monitorer les transferts d' emails externes

• 1 Un agent envoi un mail à l'adresse ping toutes les 5min avec le unid du document qui à servi à créer le mail en sujet. Ce document est stocké dans la base.
• 2 Un agent exécuté "before new mails arrives" reçoit la réponse du ping et flage "reçu" le document ayant servi à l'envoi. Le mail reçu est supprimé.
• 3 Toutes les 20 min le serveur de monitoring exécute un fichier JScript qui effectue une requête AJAX sur un vue affichant la liste des mails n'ayant pas reçu de réponse dans les dernière 20 minutes.
• 4 Si il y a plus de 2 documents n'ayant pas reçu de réponse, le serveur de monitoring lance une alerte.

Infos utilisateur

• A des rôles
• A l’appartenance à certains groupes
• A un niveau d’accès
• Les trois à la foi

• On n’est pas toujours en V6.
• On n’est pas toujours gestionnaire de la base
• On n’est jamais certain que les droits de l'utilisateur n’aient pas changés depuis le signalement du bug.
• On ne sait pas si l’utilisateur disposait du bon login lorsqu’il a constaté l’anomalie.

<script language="JavaScript" type="text/javascript">
nn=(document.layers)?true:false; ie=(document.all)?true:false; 
function keyDown(e) { 
	var evt=(e)?e:(window.event)?window.event:null;
	 if(evt){ var key=(evt.charCode)?evt.charCode: ((evt.keyCode)?evt.keyCode:((evt.which)?evt.which:0));
		if(key=="85" && toucheAlt(e)==true ) showUserInfo(); 
	}
}
// retourne vrai si la touche Alt a ete enfoncee avec la derniere touche
function toucheAlt(e) {
  if (window.event) {
    return (window.event.altKey);
  } else {
    return (e.altKey || (e.modifiers % 2));
  }
} 
document.onkeydown=keyDown; 
if(nn) document.captureEvents(Event.KEYDOWN);
function showUserInfo(){
var userName =  '<Valeur calculée 1>';
var userAccessLevel = '<Valeur calculée 2>'
var userRolesAndGroup = '<Valeur calculée 3>';
alert('User name : '+userName+'\n\nUser access level : '+userAccessLevel+'\n\nUser roles & groups : \n'+userRolesAndGroup );
}
</script>

Cours de Javascript

• Part 1: 31 minutes
• Part 2: 31 minutes
• Part 3: 29 minutes
• Part 4: 20 minutes

• Connaissez vous la différence entre les opérateurs a==b et a===b ?
• Quel est le scope d'une variabe non déclarée ?
• Que veux dire la ligne : value instanceof Array ?

Five things you may not have known about me (French)

• 1. J’ai fais mon service militaire dans les fusillers commandos de l’air. Rassurez-vous c’est pas moi qu’est choisi…. Je voulais juste être tranquille pendant 10 mois et on m’avait dit que l’armée de l’air c’était la planque. Pas cool la planque en tout cas . Bon l’avantage c’est que j’ai touché et tiré avec plein d’armes et que je me suis fait pleins de potes.


• 2. J'ai eu pas mal d'ordinateurs dans me petite vie. En voiçi la liste classée par ordre chronologique :
  • Apple IIc
  • Atari 800XL
  • Commodore 128 avec son lecteur 5''1/4 testé comme étant le lecteur le plus lent du monde
  • Amiga 500
  • PC Pentium 60
  • PC Pentium II 350
  • PC AMD 2800+
  • Laptop DELL Latitude D810
  
  Je garde une affection toute particulière pour l'Apple IIc. Mes premières nuits blanches, je les aient passées devant un jeu nommé Sorcellerie (Wizardery).
  Je me souviens encore du premier niveau comme de ma pôche.J'ai encore en tête mon sortilège préféré nommé TILTOWAIT dont j'ai retrouvé la trace dans une doc scannée :
  
  
  
  C'est sûrement ce jeu qui m'a donné le goût des RPG (Role playing game).


• 3. Durant mon adolescence, et longtemps après, j’ai fait énormément de jeux de rôle. Cela allait du JDR traditionnel tel que Dark Sun jusqu’au plus trash comme In Nomine Satanis. J’étais personnellement maître de jeu sur L’appel de Chtulu. Ce jeu de rôle est issu des nouvelles de l'écrivain américain H. P. Lovecraft dont je vous conseille vivement la lecture si vous aimez la littérature fantastique.


• 4. Côté musique, j’aime beaucoup le Rock progressif (Genesis, Yes, Jethro tull,etc…) et le Jazz. Je suis particulièrement fan de John Coltrane et Magma.


• 5. J'en sais rien...

Table UNK

• Database has too many unique field names
• Cannot Store Document; Database has too many unique field names. Please ask your administrator to compact the database.

Liens Ajax

• Tout d’abord un nouveau bouquin (et oui encore…) sur la programmation Ajax :
  Bien développer pour le Web 2.0
  J’en ai lu quelques passages et ce livre semble excellent. Christophe Porteneuve ne se borne pas à l’aspect technique mais déborde allègrement sur tout ce qui touche à la problématique d’accessibilité liée au Web 2.0. Une très bonne idée cadeau (ça c'est juste au cas ou ma femme lit mon blog).


• Une nouvelle librairie AJAX légère et accessible aux débutants. 13,6ko et pas besoin de librairie externe pour SimpleJS.js


• J’arrive peut-être un peu la bataille mais j’ai découvert un site génial qui nous crée des gifs animés pour nous faire patienter quand Monsieur Ajax il travaille : AjaxLoad

Les 10 Km d'Arcachon

• Courir c'est dur.
• Ca fait mal aux jambes.
• La transpiration dans les yeux ça pique.
• Après 10km, les lignes blanches c'est beau.

Extraction des bases courrier inutilisées

Sub Initialize
    
    Dim session As New notessession
    Dim dbcurrent As notesdatabase
    Dim view As notesview
    Dim entry As NotesViewEntry
    Dim item As Notesitem
    Dim itemText As String 
    Dim vc As NotesViewEntryCollection
    Dim dirDBArray() As String
    Dim usersDBArray() As String
    
    Dim db As NotesDatabase
    Dim intExportFile As Integer
    
    Set dbcurrent = session.currentdatabase 
    Dim dbdir As New NotesDBDirectory(dbcurrent.server)
    
    intExportFile = Freefile
    Open "c:\temp\ExportFile.txt" For Output As intExportFile
    
    ' Récupération des bases dans le répertoire mail
    i%=0
    Set db = dbdir.GetFirstDatabase (DATABASE)
    Do Until db Is Nothing
        If Lcase(Left(db.FilePath, "5")) = "mail\" Then
            i%=i%+1
            Redim Preserve dirDBArray(i%)
            dirDBArray(i%-1)=Lcase(replaceSubstring( db.FilePath,".nsf",""))
        End If
        Set db = dbdir.GetNextDatabase
    Loop    
    
    Set view = dbcurrent.getview("People")
    Set vc = view.AllEntries
    
    ' Récupération des fichiers mails des documents personne
    i%=0
    Set entry = vc.GetFirstEntry()
    While Not entry Is Nothing
        If Lcase(Left(entry.document.mailfile(0), "5")) = "mail\" Then
            i%=i%+1
            Redim Preserve usersDBArray(i%) 
            usersDBArray(i%-1)=Lcase(entry.document.mailfile(0))
        End If
        Set entry = vc.getnextEntry(entry)
    Wend
    
    ' Comparaison des deux tableaux et extractions dans le fichiers texte
    For x% = Lbound(dirDBArray)To Ubound(dirDBArray) 
        y%=0
        found%=0
        For y% = Lbound(usersDBArray)To Ubound(usersDBArray)
            If dirDBArray(x%)=usersDBArray(y%) Then
                found%=1
                Exit For
            End If 
        Next
        If found%=0 Then
            Write #intExportFile, dirDBArray(x%)
        End If
    Next
    
    
    Close #intExportFile
    
End Sub 

Function ReplaceSubstring( Byval s1 As String, s2 As String, s3 As String) As String
Dim index%

index = Instr( s1, s2 )
If index = 0 Then
ReplaceSubstring = s1
Else
ReplaceSubstring = Left$(s1, index - 1 ) & s3 & ReplaceSubstring(Right$(s1, Len(s1) - (index + Len(s2)) + 1 ), s2, s3 )
End If
End Function

Utiliser AJAX pour actionner vos Agents

La seconde solution (la bonne) c’est d’exécuter cet agent par une requête Ajax et recharger la page une fois l’agent exécuté. Cette solution a l’avantage de pouvoir montrer à l’utilisateur que l’agent est en cour d’exécution par un indicateur de ce type : .
De plus on contrôle la fin d’exécution de l’agent et on peut ainsi choisir de recharger la page par exemple.

<input type="button" id="btUpdateStatistics" onclick="updateStatistics()" value="Mettre à jour statistiques">
<span id="Indicateur" style="display:none"><img src="Indicator.gif"></span>

// Création de l'handler ou l’on va gérer
// l’apparition de l’indicateur d’activité
// ainsi que l’activation/désactivation du bouton.
var myGlobalHandlers = {
		onCreate: function(){
			$('btUpdateStatistics').disabled = true;
			Element.show('Indicateur');
		},
		onComplete: function() {
			if(Ajax.activeRequestCount == 0){
				$('btUpdateStatistics').disabled = false;
				Element.hide('Indicateur');
			}
		}
	};

Ajax.Responders.register(myGlobalHandlers);

var opt = {
    // Use POST
    method: 'get',
    // Handle successful response. Here we reload the current location
    onSuccess: function(t) {
	    window.location.reload();
    },
    // Handle 404
    on404: function(t) {
        alert('Error 404: location "' + t.statusText + '" was not found.');
    },
    // Handle other errors
    onFailure: function(t) {
        alert('Error ' + t.status + ' -- ' + t.statusText);
    }
}

function updateStatistics(){
	if(Ajax.activeRequestCount == 0){
		new Ajax.Request('nomAgent?OpenAgent', opt);
	}
}

Créer un document avec une simple requête Ajax et prototype

<form name="DOME-6T7S28" method="post" action="javascript:vote('DOME-6T7S28')">
	<div class="PollTitle">
		 What would you do if you could control the whole world for one day?
	</div>
	<div class="PollChoice">
		<input name="PollOption" value="Sleep" type="radio"> Sleep<br>
		<input name="PollOption" value="Migrate all exchange servers to Lotus" type="radio"> Migrate all exchange servers to Lotus<br>
		<input name="PollOption" value="Ask Ed Brill for a free invitation for LotusSphere 2007" type="radio"> Ask Ed Brill for a free invitation for LotusSphere 2007<br>
	 </div><br>
		<input name="Pollid" value="DOME-6T7S28" type="hidden">
		<input name="PollTitle" value="What would you do if you could control the whole world for one day?" type="hidden">
		<input value="Vote" onclick="vote('DOME-6T7S28')" style="background: transparent" type="button">  
		<input value="Results" onclick="view('DOME-6T7S28')" style="background: transparent" type="button">
 </form>

function vote(currPoll)
{
	form= document.forms[currPoll];	
	var params = form.serialize(form);

	var url = dbWebPollPath+'PollEntry?createdocument';
	var myAjax = new Ajax.Request( url, { method: 'post',parameters: params,onComplete: viewResult });
} 

Les limites des DOM Table

function tableMethods()
{
	var x = document.createElement('table');
	var y = x.appendChild(document.createElement('tbody'));
	for (var i=0;i<50;i++)
	{
		var z = y.insertRow(0);
		for (var j=0;j<50;j++)
		{
			var a = z.insertCell(0).appendChild(document.createTextNode('*'));
		}
	}
	document.getElementById('writeroot').appendChild(x);
}

function inner2()
{
	var string = new Array();
	string.push('<table><tbody>');
	for (var i=0;i<50;i++)
	{
		string.push('<tr>');
		for (var j=0;j<50;j++)
		{
			string.push('<td>*</td>');
		}
		string.push('</tr>');
	}
	string.push('</tbody></table>');
	var writestring = string.join('');
	document.getElementById('writeroot').innerHTML = writestring;
}

Des news de la 7.0.2

• IBM Lotus Notes access for SAP solutions -- seven use cases for integrating Notes mail/calendar/contacts with SAP systems
• A weblog template
• An RSS feed template -- note this isn't a core code change, it's a database which aggregates information from other Notes databases and publishes them as RSS feeds.  I'll be writing more about it in the coming days.
• "Nomad" (current codename, formerly "Wanda") -- A complete, functioning, supported Notes install to a portable USB memory key, for enhanced roaming user support
• Improvements to iCalendar support
• Notes 7 on Macintosh (Power and Intel); Domino Web Access support on Macintosh/Firefox
• Notes 7 on Linux via the IBM Workplace Managed client 2.6.1
• SmartUpgrade "run as admin" utility -- which will work with previous releases of Notes but is shipping with 7.0.2

Monitorer son réseau et son infrastructure Notes avec HostMonitor et.... AJAX

statusAlive       = 'Host is alive:'
statusDead        = 'No answer:'
statusUnknown     = 'Unknown:'
statusNotResolved = 'Unknown host:'
statusOk          = 'Ok:'
statusBad         = 'Bad:'
statusBadContents = 'Bad contents:'
servername        = 'server.hostname.fr'
username          = 'julien%20bottemanne'
password          = 'xxxxxxx'
maxLimit          = 50
function performtest()
{
 var status=statusUnknown;
 var view=new ActiveXObject("Microsoft.XMLDOM");
 view.async=false;
 var strURL = 'http://'+servername+'/names.nsf?Login&Username='+_
  username+'&Password='+password+'&RedirectTo=/mail.box/mail?readviewentries'
 view.load(strURL);
 var xml=view.getElementsByTagName("viewentries");
 var noentries=parseInt(xml.item(0).getAttribute("toplevelentries"));
 if (noentries<maxLimit){
  status=statusOk;
 }else{
  status=statusBad;
 }
 return status+noentries  //change this line to return proper test`s "Status" and "Reply" value to HostMonitor
}

Gérer les listes en @formule

DIFFERENCE
All unique entries in list 1 but not in list2
list1:="......";
list2:=".....";
reslist:=@unique(@trim(@replace(list1;list2;"")));

AND
All unique entries in both list 1 and list2
list1:="......";
list2:=".....";
list3:=@replace(list1;list2;"");
resList:=@unique(@trim(@replace(list1;list3;"")));

OR (SUM)
All unique entries in either list1 or list2
resList:=@trim(@unique(List1:List2));

XOR
All unique entries in list 1 or list2 but not in both
list1:="......";
list2:=".....";
list3:=@replace(list1;list2;"");
list4:=@replace(list2;list1;"");
resList:=@unique(@trim(list3:list4));

How many dates in a list are less than a given date?
rem "subtract list from date to get list of +ve & -ve nos";
p1:=@Text(Date-DateList);
rem "change all entries which are -ve";
p2:=@Explode(@ReplaceSubstring(@Implode(p1;"/");"-";"*");"/");
rem "now replace unchanged entries from orig list";
p3:=@TextToTime(@Trim(@Replace(@Replace(p2;p1;@Text(DateList));p2;"")));
@elements(p3) 

All numbers within a given range
list:=1:2:3:4:5:1:2:3:4:5:1:2:3:4:5;
lower:=2;
upper:=4;
p0:=@text(list);
p3:=@Trim(@Replace(p0;@Replace(p0;@Right(@Text(List-lower);"-")+p0;"");""));
res:=@texttonumber(@Trim(@Replace(p3;@Replace(p3;@Right(@Text(upper-@texttonumber(p3));"-")+p3;"");""))) 

Execute Statement

Dim script As String
script = {Option Public} & Chr$(10) & {Option Declare} & Chr$(10) & {Use "}
If session.NotesBuildVersion >= 182 Then
    script = script & {My ND6 Script Library}
Else
    script = script & {My R5 Script Library}
End If
script = script & {"} & Chr$(10) & {Sub Initialize}
script = script & Chr$(10) & {Call myFunction} & Chr$(10) & {End Sub}
Execute(script)

Du repos bienvenue

• La sieste.


• Faire le point avec mon expert comptable.


• Passer une visite médicale pour mon assurance prévoyance.


• Engueuler mon banquier pour m'avoir appliqué des frais de gestion énorme.


• Emmener ma grande fille à l'école .


• Finir ma terrasse <-- ça c'est ma femme qui m'oblige...


• Et surtout pouvoir enfin prospecter de nouveaux clients.

Compteur et clés uniques

varUnique := @Unique;
varPrefix := @Word(varUnique;"-";1) ;
varSuffix := @Word(varUnique;"-";2) ;
varYear := @Right(@Text(@Year(@Now)); 2);
varMonth := (@Month(@Now)-1) * 31 ;
varDOY := @Text(varMonth + @Day(@Now));
varPrefix + varYear + varDOY + "-" + varSuffix

Function fCreateUniqueID As Variant

        'Creates Unique ID, 4 letters from @Unique, a dash, the 2 digit year,
        '3 digit julian date, 5 digit # seconds since midnight
        'Example: RBRT-04112312345

        Dim dt As NotesDateTime
        Dim x As Long, y As Long        
        Dim u As Variant
        Dim v As String
        Set dt = New NotesDateTime(Today())
        u = Evaluate(|@Unique|)
        v = Cstr(u(0))
        x = Datenumber(Year(dt.LocalTime),Month(dt.LocalTime),Day(dt.LocalTime))
        y = Datenumber(Year(dt.LocalTime),1,1)
        
        fCreateUniqueID = Strtoken(v,"-",1) & "-" & Format$(Today,"yy") &_
        Format$((x-y)+1,"000") & Format$(Timer,"00000") & fGenRndString(2)
        
End Function

Function fGenRndString(tmp_length As Integer) As String
        Dim x As Integer, digit As Integer
        Dim result As String
        For x = 1 To tmp_length
                digit = Round(Rnd*16,0) ' Generate number between 0 to 15...
                result = Hex(digit)
                If result = "10" Then result = "A"
                fGenRndString = fGenRndString + result
        Next x
End Function