Author: lekkim

The problem occurs when calling the RemoveAllElements() method since the Vector isn’t reset correctly, though all elements are removed.

The method should be changed from:

Public Sub removeAllElements()
	Dim i As Integer
	For i = 0 To Me.size() - 1
		If Isobject(array(i)) Then
			Set array(i) = Nothing
		Else
			array(i) = ""
		End If
	Next i
End Sub

to:

Public Sub removeAllElements()
	Dim i As Integer
	For i = 0 To Me.size() - 1
		If Isobject(array(i)) Then
			Set array(i) = Nothing
		Else
			array(i) = ""
		End If
	Next i

	'reset vector
	elementLength = 0
	ensureCapacity(10)
End Sub

I also did a simple extension of the Vector class to create a Set (or “Zet” since “Set” is a reserved word in LotusScript).

Public Class Zet As Vector
   'declarations
   Private pValues As Vector

   '/**
   ' * Constructor.
   ' */
   Public Sub New()
      Set Me.pValues = New Vector()
   End Sub

   '/**
   ' * Adds only unique elements.
   ' */
   Public Sub AddElement(d As Variant)
      'see if the vector contains this element already
      If Not Me.pValues.Contains(d.UniversalID) Then
         Call Vector..AddElement(d)
         Call Me.pValues.AddElement(d.UniversalID)
      End If
   End Sub

   Public Function Size() As Integer
      Size = Vector..Size()
   End Function

   Public Function Elements() As Enumeration
      Set Elements = Vector..Elements()
   End Function

End Class

I spent most of Saturday playing around with S/MIME and internet certificates in Domino. It is very cool and is all well and good with signing and encrypting messages.

What isn’t so cool is that it isn’t so straight forward to set up and it will be rather diffecult to explain an user how to request a certificate. It should be possible with the right level of documentation and screenshots though. What would be really cool would be a way to request the internet certificate for the user – maybe even at registration time. It might already be so but I haven’t found it then.

I’m planning to do a write up of it once I get the time. I have done all the screenshots so… 🙂

I puchased an Hauppauge PVR-350 for my MythTV box so I now have a PVR-250 and a PVR-350 in the Pundit-R. Getting it in was quite a challenge and lets just say that the case has been modded a little… 😉

Getting it to work has been a little challenging. I added the extra ivtv line to /etc/modprobe.conf and once rebooted the card was detected. Great !! Only not… I got no picture – only snow. In the beginning I thought this was due to an IRQ conflict with the audio device (snd_atiixp) but it turned out not to be it. After googling a lot I found a post by a guy saying that i needed to add the following options-line to my modprobe.conf:

options ivtv ivtv_std=2 tda9887=0

I have no idea what is does (other than probably forcing the tuner to PAL?) but it works !! I can now record and watch tv at the same time and picture-in-picture works.

Next point on the agenda will be to play with the hardware decoding video-out on the PVR-350 and to see about the heat issue that some users report. We’ll have to see.

For now I’m just a happy camper.