Old Blog Post

Yes, I know it is Tuesday, but I was too busy last week for the SNTT entry...  At my workplace, we are in the process of purchasing and implementing a new billing system. It relies heavily on XML files, stored in the file system, for inport/export. The idea is that we export XML from our policy system to be processed by this software. The results are returned as XML files, and we are currently looking at how we can consume them and present them to the accounting department.We are mainly looking at tools like Crystal Reports 2008.Just for fun, I decided to write an XML importer in Lotusscript. The XML is very simple so I did not have to do any advanced parsing.I decided to write it as a class. The class just have a few methods. One is of course New(), the only thing it does is clear the xmldata string and also clear the list of XML tags from memory.LoadXMLData() open the specified XML file and read the text into the xmldata string, adding a linebreak after each line.XML2List take the xmlstring, parse it and build a list of all the tags and values. Because the XML is so simple, with no multiple values or deeply nested data, I can very easily parse it using normal string operations in a Do-While loop.The final method is called CreateNotesDocument(), it creates a new Notes document in the specified database, using the specified form. To process the sample XML file with 66 XMl entries took 0.148 seconds (according to TeamStudio Profiler). Here is the code:Class XMLClassPrivate xmldata As StringPrivate xml List As StringPublic Sub New()  xmldata=""  Erase xmlEnd SubPublic Sub LoadXMLData(filename As String)  Dim xmlline As String  Open filename For Input As #1  xmldata = ""  While Not Eof(1)   Line Input #1, xmlline   xmldata = xmldata & xmlline & Chr$(13)  Wend  Close #1End SubPublic Sub XML2List()  Dim tag As String  Dim value As String  Dim startpos As Long  Dim endpos As Long  Dim nextpos As Long  Dim endtagpos As Long    endpos = 1  Do    startpos = Instr(endpos,xmldata,"<")   If startpos > 0 Then    endpos = Instr(startpos,xmldata,">")   End If   If endpos > 0 Then    tag = Mid$(xmldata,startpos+1,endpos-startpos-1)    If Instr(tag,"/")=1 Then     startpos = Instr(endpos+1,xmldata,"<")    Else     nextpos = Instr(endpos,xmldata,"<")     endtagpos = Instr(endpos,xmldata,"</" & tag & ">")     If endtagpos = ne xtpos Then      value = Mid$(xmldata,endpos+1,nextpos-endpos-1)      If Iselement(xml(tag)) = False Then       xml(tag) = value      End If      endpos = Instr(nextpos,xmldata,">")     End If    End If       End If  Loop While startpos > 0End SubPublic Sub CreateNotesDocument(db As NotesDatabase, form As String)  Dim doc As NotesDocument  Set doc = New NotesDocument(db)  doc.Form = form  Forall x In xml   Call doc.ReplaceItemValue(Listtag(x),x)  End Forall  Call doc.Save(True,True)End Sub  End ClassSub InitializeDim session As New NotesSessionDim db As NotesDatabaseDim noic As XMLclassSet db = session.CurrentDatabaseSet noic = New XMLclass()Call noic.LoadXMLData("c:XSLTNOIC-1450-01 0-2007Nov09.xml")Call noic.XML2List()Call noic.CreateNotesDocument(db,"NOIC")End Sub This LotusScript was converted to HTML using the ls2html routine,provided by Julian Robichaux at nsftools.com. 

I am reading that Prince Harry of England was pulled out of Afghanistan, where he have been serving with his regiment since December, after an Australian newspaper and then The Drudge Report outed him. Major news organisations, like AP, CNN and many English newspapers, knew about it for months and even got exclusive information, interviews and photos with the understanding that they were not going to be published until after the story eventually leaked.There is some discussion about if it is ethical for news organisations to censor information like this. As a techical writer, I have often been given information after agreeing to a non-disclosure agreement. So to me it is not a big deal.As being in the military for 13 years, I understand that anyone that train hard and long want to be able to "test themselves" and do "the real thing", especially if your comrades are sent off to war. You are a unit, you train as a unit, and you fight as a unit. If I had been Prince Harry, I would been furious to have trained for years and then not been allowed to go.I think the media instead should think about Harry. He did not ask to be born who he is. Sure, he get all kinds of perks, but he also have paparazzis and media around him whatever he does. Give the guy some freedom, let him have a life for a while. There is no need to knwo what he does every hour of the day, every day of the week. If he want to go party or pick up girls, let him do that. If he want to be a good soldier/officer and lead his men into battle, let him do that.I respect Prince Harry much more than I respect someone like Britney Spears... 

OK, I know it is Friday already, but here is my Show-n-Tell-Thursday entry... Lists are a data type that I don't think is used enough. Many Notes developers, even some that been programming in the environment for years, don't use this very powerful feature. In previous years, Bill Buchan have been talking about lists in some of his Lotussphere sessions, and when asking how many in the audience that used lists, less than 10% raised their hands.So what are lists? They are a data type, similar to an array, but instead of using a numeric index, it uses a string as index, or tag as it is called.This makes it easy to address items in the list, check if they exists, etc.Here is a simple example:Dim age List as IntegerDim name as Stringage( "karl" ) = 38age( "erik" ) = 7name = InputBox$( "Enter name:" )If IsElement(age(Lcase(name))) = True ThenMsgBox name & " is " & age(lcase(name)) & " years old."ElseMsgBox name & " does not occur in the list."End IfThis code define a list of integers, containing the age of two people. When a name is entered in the input box, IsElement is used to check if an item with that name is found in the list. If it is, the age is displayed, if not another message is displayed, saying that the name was not found.Note that the list tag (name in this case) is case sensitive! To loop through a list and display all the values, use ForAll. Here is an example where we loop thorugh all the entries and display their list tags as well as the values:Dim age List As Integerage( "Karl" ) = 38age( "Erik" ) = 7Forall a In ageMsgbox Listtag(a) & " is " & a & " years old."End ForallSome of the things I use lists for are web agents, where I parse the URL passed for parameters, and build a list of them. Then it is very easy to write code that check for parameters and get the value if they exist.I wrote an article about lists for The View, published in November/December 2006. You can find more details and examples there. 

Today's Forum Friday posting is in response to this question about sending mail from a Lotusscript agent by H Falzone. He (she?) is having problems sending a mail to multiple users from an agent.Here is the existing code:Sub InitializeDim session As New NotessessionDim db As NotesdatabaseDim view As NotesViewDim doc As NotesDocumentDim maildoc As NotesDocumentDim rtitem As NotesRichTextItemSet db = session.CurrentDatabaseSet view = db.GetView( "TESTER" )Set Col = session.CurrentDatabase.UnprocessedDocumentsFor x = 1 To Col.countSet doc = col.getnthdocument(x)Set maildoc = New NotesDocument( db ) Set rtitem = New NotesRichTextItem( mailDoc, "Body" )Call rtitem.AddNewLine( 2 )Call rtitem.AppendText( "You are responsible for a lease that expires in 30 days. Please contact Legal Services ( Gidget DiRienz and Responsible Attorney ) to indicate your intentions regarding this lease." )Call rtitem.AddNewLine( 2 )Call rtitem.AppendText( "You will also need to update FMV for this property." )Call rtitem.AddNewLine( 2 )Call rtitem.AppendDocLink( doc, db.Title )Dim recipients( 1 To 3 ) As Stringrecipients( 1 ) = doc.contactname(0)recipients( 2 ) = doc.RespAttorney(0)recipients( 3 ) = doc.NoticesSentTo(0)maildoc.Form = "Memo"maildoc.principal="MHP Legal Department"maildoc.From = maildoc.Principal(0)'<---- !!maildoc.ReplyTo = "Gidget DiRienz and Responsible Attorney"maildoc.CopyTo = doc.EnteredBymaildoc.Subject = "* * * LEASE UP FOR RENEWAL IN 30 DAYS * * * " + doc.ViewDisplay(0) +" - "+ doc.Status(0)maildoc.~_ViewIcon = 94Call maildoc.send (False,recipients)NextExit SubEnd Sub maildoc.Send is called with the argument recipients, which is declared as an array. That should work, but I would use a zero based array, perhaps that is what's wrong. Run the code through the debugger and make sure there really are values for all the array elements, and see what the array looks like.But why not simply drop that argument to .Send() and store the values in the field SendTo in the document?Simply assign the array to the field like this: maildoc.SendTo = recipientsThat is IMHO the best way to make sure you get everything right. I also spot another big no-no... Using GetNthDocuments(). This is VERY slow as soon as you have more than just a few entries in the document collection. Use GetFirstDocument() and GetNextDocument() instead.Here is my version of the same code. Not tested, but something to start with. My additions are in red.:Sub InitializeDim session As New NotessessionDim db As NotesdatabaseDim view As NotesViewDim doc As NotesDocumentDim maildoc As NotesDocumentDim rtitem As NotesRichTextItemDim recipients(2) As StringSet db = session.CurrentDatabaseSet view = db.GetView( "TESTER" )Set Col = session.CurrentDatabase.UnprocessedDocumentsSet doc = col.GetFirstDocument()Do while Not doc is NothingSet maildoc = New NotesDocument( db ) Set rtitem = New NotesRichTextItem( mailDoc, "Body" )Call rtitem.AddNewLine( 2 )Call rtitem.AppendText( "You are responsible for a lease that expires in 30 days. Please contact Legal Services ( Gidget DiRienz and Responsible Attorney ) to indicate your intentions regarding this lease." )Call rtitem.AddNewLine( 2 )Call rtitem.AppendText( "You will also need to update FMV for this property." )Call rtitem.AddNewLine( 2 )Call rtitem.AppendDocLink( doc, db.Title )recipients(0) = doc.contactname(0)recipients(1) = doc.RespAttorney(0)recipients(2) = doc.NoticesSentTo(0)maildoc.Form = "Memo"maildoc.principal="MHP Legal Department"maildoc.SendTo = FullTrim(recipients)maildoc.ReplyTo = "Gidget DiRienz and Responsible Attorney"maildoc.CopyTo = doc.EnteredBymaildoc.Subject = "* * * LEASE UP FOR RENEWAL IN 30 DAYS * * * " + doc.ViewDisplay(0) +…

My seven year old son yesterday evening, after I changed into jeans and my BleedYellow t-shirt with claw marks:"Nobody bleeds yellow"I tried to explain it, but I am not sure if he understood... :-) My son at my sister's place in Sweden last Christmas Eve. 

I just read a blog entry by Dave Hay called "Geek is Cool". He talk about how he now is proud to be a geek, after he realized he is one:I realised that I am a geek, I've always been a geek and I may well be a geek forever.I have been a geek since 7th grade, back in the early 1980's. That's when the computer club in my school started. I spent many hours, both during the breaks/recess and after school, in the computer room, learning to program and use the computers. My parents were not too happy... "You need to do your homework, so you get good grades and get a good job after you graduate." Little did they knew that what I learned on my own would be much more valuable than most of the other things I learned in school. :-)Back then, geeks were not popular. All the girls were into the jocks and "normal" guys. Someone like me, member of the computer club and the role playing game club (yes, we even had that!) were considered very weird.I graduated, started working, first at Microsoft and then (after my military service in the Swedish Airforce) at a company developing IVR applications. That company went bankrupt, and I got a job as a journalist at a computer publication. I was still the resident geek, all other writers had a journalistic background and learned about technology, while I was brought in as a technical person they could teach to write. I developed some internal systems while I was there, initially just to help myself in my daily work, but soon they were used by the whole staff.I then met my wife-to-be (now ex-wife) online. This was in 1996, she did not even tell her dad until after we were married how we met. :-) That's how many people looked at technology then. It is just a little over 10 years ago...Today I meet girls who like geeks and even look to date geeks specifically. We are now more popular, and when most people have computers, I think they appreciate the geekyness more. So it has never been a better time to be a geek. :-) I am a geek, and I am proud of it! 

Lately I been feeling more restless than usual. I work very close to the DFW airport, and every time I drive by and see the planes take off or come in for landing, I want to be on that plane. I went to Sweden both last summer (I also visisted my aunt and cousin in Germany) and for Christmas. Of course I went to Orlando for Lotusphere in January, and in the beginning of February I went on a 5 day cruise to Mexico. And I already want to go away again... 

What's your take on certifications?It took me over 10 years before I took my first certifications (last year at Lotusphere, crammed in 3 tests between the sessions). I never believed in certifications, I can tell some horror stories about "certified" developers that could not code very good at all. All I say is "GetNthDocument"... At this years Lotusphere, I wanted to upgrade my Certified Application Developer to the Advanced level for 6.0/6.5, and also try to upgrade to Notes/Domino 7.0. The advanced upgrade (exam 273) was no problem, but I failed the 7 upgrade. Since I am still on R5 at work (some clients are on 7.0.2, but development has to be done for 5.0.12), I did not have that much experience of creating web services or using DB2 in Notes, which were what most of the test was about. But what really made me wonder were all the questions about the new user interface. Is the biggest and most important thing for a developer to know that if you click "do not show this dialog again" when you get the prompt to close Designer, the prompt will also go away in the Notes client?What about having a couple of questions about something that is really useful for a developer to know? Like how to work with lists, for example.On the bus to the Lotusphere Wednesday party at Islands of Adventure, I was sitting next to Andr?uirard, and we talked about the tests. He said he did review the tests a while back, and they were thinking about revising them. But I did not get any word on what the current plan is. 

...in a country far far away, there were a class of six graders. Their teacher was married to a theater actor, and the class set up a play pretty much every semester. One time the teacher came up with the idea of making movies instead. The class was divided into 6 groups of 4-5 students each. One of the children in the class had a father who was a documentary film maker/director, and he came in and explained a little bit about film making basics.Most groups opted for the easy route, using one of the fairly new camcorders. This was back in 1982 or 83, so they were big and heavy, but the advantage was instant results. One group, however, were the overachivers. :-) They decided to make an animated (stop motion) movie about toys coming alive at night. To do that, they used Super 8 cameras so they could take one picture, move the toys, take another picture, etc. The group (or at least the three core members) spent several days and a couple of weekends making the movie, which was later shown to the parents.I was one of the members of this group, and I got a copy of the movie transferred to VCD a couple of years ago. A couple of weeks ago, I opened the movie into Sony Vegas, removed the old handprinted titles and replaced them with new computer generated titles, as well as adding a soundtrack and a sound effect. A couple of animated sequences were slowed down a little, and a couple of live-action sequences were speeded up slightly.Here is the result. Update: The titles are in Swedish, just like the original. I will create a version in English. You are not missing much, it is basically some thnaks to parents and teachers, and a list of who made the movie. The text in the end of the movie says: "Hmm, I thought I picked those up last night." (select hidden text to read). 

Well, plenty of things going on since I got back from Lotusphere and not much time (or energy) for blogging.... Part of the office moved to a different location a few miles away, about 100 users were moved to Citrix and Notes 7.0.2 as a result of this, and several servers were upgraded to Domino 7.0.2.I got an upper respiratory infection after Lotusphere, took me about 2 weeks to get well. Went on a cruise to Mexico the week before the move (was planned way before the dates of the move was set), so that added to the stress... Felt like I was deserting the rest of the team, even if I was not that involved in teh actual move as a developer. And finally I finished an article for The View.Well, things are slowing down. Some personal issues still have to be solved, that will take some time. But now I should have time for some more blogging. 

Back from Lotusphere with a bunch of new knowledge and new contacts. Back to the regular routine with development and support.Well, not exactly. We ran into an interesting problem this week, affecting application performance.We currently mostly run Notes 5.0.12 clients, but have a handful users that are on 7.0.2.Our Domino servers run a couple of different versions. 5.0.8, 5.0.12, one 6.0 and (since a few weeks) one 7.0.2 server. The new 7.0.2 server is on a faster/newer box, so we can now run the full database, not a filtered replica. So here is the layout:* DomApp1 is running 5.0.12, having a full replica of the database.* Dallas is running 7.0.2, having a filtered replica containing Dallas and Little Rock documents.What we then found was that certain operations were much slower when performed by a Notes 7 client against the Notes 5 server DomApp1 than if a Notes 5.0.12 client is being used agianst the same server. If we use a 7.0.2 client or a 5.0.12 client against the 7.0.2 server, there is no problem.I was running TeamStudio profiler, and the calls that took much longer were:Call templatedoc.ComputeWithForm(False,True)andsuccess = templatedoc.RenderToRTitem(rtitem)What the code does is looping through a collection of documents, building a template document for each processed document and populating fields in it, then rendering it into a "container" document with just one rich text field. See http://www.flickr.com/photos/texasswede/2235410624/sizes/o/ for an example. Anyone seen this behaviour before? Network compression is not turned on, as far as I know. Of course, Lotus does not support Notes/Domino 5 anymore. Management at my current workplace does not believe in upgrading, for some reason... 

Whew... Two busy days! Yesterday I ended up going to a sushi restaurant with Michael Wagner, a German friend and collegue. We ate us though the menu, untile they closed the kitchen and threw us out... Today I focused on UI sessions, like "Yiekes" and the two UI sessions by Nathan T. Freeman and Chris Blatnick. Great sessions! I also went to the (last) "Worst practicses" with Paul Mooney and Bill Buchan. Hillarious, as always, especially the end with Duffbert harassing them on stage. I have some great pictures that I will put up later. Now I am just back from the Bloggers BOF (where Alan himself had to tell the room monitors to let me and Jess Stratton in, since we were tagged as "media", who normally are not welcome), and I just changed shirt (to the "Bleeding yellow" t-shirt), and I am now heading down to board a bus for Universal Studios Islands of Adventure... Oh, yesterday I passed my certification upgrade to "IBM Lotus Notes/Domino 6.0 Advanced Application Developer", but I failed the upgrade test for version 7 today. Did not really ave time to study, though.  

 Busy day. Opening General Session with secret host Bob Costas (as a non-american and non-sportsnut, I had no clue who he was, but he was good and entertaining). Plenty of news, quite a bit Linux related, even if they "forgot" to mention that Lotus Foundations is running on Linux. :-)Other news were Connections 2.0, Quickr 8.1 and of course (as expected) Notes 8.01 and 8.5. I still can't decide if I like the new Eclipse-based Designer... But Xpages are really cool!After the session I met a German collegue, Michael Wagner, and we walked thorugh the showcase. We ended up with a couple of shirts and assorted stuff, including blue tea cups(!) and yellow luggage tags... Some baseball caps and t-shirts were also added to the collections. A friend of mine, who have been reading my and other blogs here, messaged me during the day and wanted me to check if Scott was single... (I checked, he is not, sorry). 

..and it already feels like it used to feel Tuesday evening. It has been a busy and informational day!I went to three jumpstart sessions:JMP301 - Understanding Security in IBM Lotus Notes and DominoJMP205 - AJAX and JSON for IBM Lotus Domino ApplicationsJMP206 - Web Services BootcampBill Buchan (JMP206) was hillariuos as always, even if he did not wear his kilt this year.I was intending to do some certification Sunday afternoon, but the lab was already full for the rest of the day. I think it is great that certification now start on Sunday, and that they are upen until 8pm Tuesday and Wednesday.I also went by the Lotus Stuff Store (this year located over at the Y&B, where the cert labs are as well), and got me a few little gadgets. A 15 dollar USB BlueTooth adapter, a USB extension cable with multiple connectors of different size/shape, and some other (more or less) useful things. I got a free 4-port USB-hub, came in handy, so I can connect my MP3-player, memory card adapter for my camera, BlueTooth adapter and mouse to one port. :-)I also learnd something very cool and interesting that probably will be revealed at the OGS tomorrow. I promised not to tell anyone, but I think it will make some big news.Oh, and I got my backpack today, as well as my 12-year button from Bob Balaban.   

 I went over to "Big River" on the Boardwalk for the BALD (blogger) meeting. Spent a couple of hours having fun. On the way home, I saw some lightning in the sky, and heard some thunder. When I was just 20-30 meter away from the hotel entrace, the sky opened up. A quick rush and a elevator ride later, I was back my room again, watching the lightning outside.I rested for a bit, checked mail and around 8.20pm I headed over to ESPN. Many of the BALDies were there as well.Below are a couple of pictures from the BALD meeting.   

I turned on the TV in my room, and guess what shows up?I wonder if this is a prediction of the guest speaker at the OGS...  

I have arrived. Bad weather and fog delayed some flights into Orlando, but mine was on time. Landed at 11.35 right on schedule, and took a cab to Swan where I am staying. I registered and went to Big River on the Boardwalk to grab lunch. Just got back to my room (12th floor and nice view, see below) and is taking a break. Soon heading to the BALD gathering at Big River, I think.The only disapointment was that I, as press (I am going as press since I in addition to being a developer also write articles for Computer Sweden), did not get a backpack. This is my 11th Lotusphere in Orlando, and every other year we got a backpack like everyone else.I wonder how much money IBM is saving on that, can't be that much... Oh well. 

Just 12 hours until boarding start for my flight to Orlando. I think most things are done, just need to load up my MP3/video player with some more episodes of Mythbusters, and pull down the latest security patches for my laptop...  

I started developing for Lotus Notes using 4.5 back in 1996, but it was not until 1997 I started doing some serious development.At that time I was a journalist, working for IDG in Sweden. Since I was covering PC hardware and software, I went to Lotusphere Europe in Nice in 1997, and also to a pre-cursor to it in Maastricht, Holland in 1996. I basically learned the product on my own, which was not that hard since I had a programming background. Journalism was something that I happened to get into when the company I worked for before went bankrupt.Anyway, in 1997 I got married to Angie, who I met in the summer of 1996 while visiting Seattle and Microsoft. After we got married, she decided she wanted to move back to the US, so I transferred to Boston where IDG is based. I now became a full-time Notes developer. My last project in Sweden wa sto write an editorial system in Notes, something I did in 3 weeks while also packing my appartment and getting ready to move on New Years day.That application is still in production today, 10 years later. They tried a few times to replace it with commercial products, but they did not work well enough compared to the custom built system I developed.Ever since then I been developing Notes applications, both for the client and web. In 2002 we moved to the Dallas area, since Angie wanted to live closer to her family after we had our son. I got a job as Notes developer at an insurance company, where I still work today.I can't imagine not working with Notes and Domino, and I am very excited about the new directions the platform is taking.It is now 5pm Friday, I am about to go home, finish packing and early tomorrow I will board a plane to fly to Orlando for my 12th Lotusphere. I am looking forward to it more than ever, I expect to hear plenty of news, meet people I already know, and learn to know more of my fellow Yellow-bleeders. :-) See you in Orlando!