MIS vs CS

Dec 18, 2007

I learned a lot about my coding abilities today. It was quite apparent that I am a Business major and not a Computer Science major.

I spent the evening trying to combine Julian Robichaux’s SHA-1 encryption script with an HMAC-MD5 script I found on expert-exchange. I’m a loser at this stuff. Bit shifting… endians??? I have no idea if I am close to a solution or not. Luckily, there are test cases out there to verify my results.

by tom | Categories: lotus, programming | No Comments

Amazon S3 in Notes 8

Dec 17, 2007

I tried uploading the Amazon AWS WSDL to Notes Designer 8 but I kept getting an error: “Cannot Find AmazonS3.xsd”

I found it easier to download the files from http://s3.amazonaws.com/doc/2006-03-01/. First download “AmazonS3.wsdl” then download (into the same directory) “AmazonS3.xsd.” Once downloaded, install the WSDL directly from the local folder.

What am I doing with Amazon’s Web Services?

I’m trying to get S3 (Simple Storage Service) to work with Lotus Notes. My current road block is finding (or… coding) a HMAC-SHA1 LotusScript function. Could I do this a lot easier with Java? Yes.

by tom | Categories: lotus, programming | No Comments

Code Hunting Nuggets

Dec 17, 2007

This might be my first LotusScript class. I found it while hunting for previously written code:

QueryStringHelper:

Class QSHelper
	Private parms List As String

	'querystring = agentcontextdoc.query_string_decoded(0)
	Sub New(querystring As String)
		On Error Goto catcherror

		Dim keys As Variant
		Dim values As Variant
		Dim evalString As String
		Dim x As Integer
		evalstring =  {@Left(@Explode(@URLDecode("Domino";"} + querystring + {");"&");"=");}
		keys = Evaluate(evalString)
		evalstring =  {@Right(@Explode(@URLDecode("Domino";"} + querystring + {");"&");"=");}
		values = Evaluate(evalString)

		If (Isarray(keys) And Isarray(values)) Then
			If (Ubound(keys) = Ubound(values)) Then
				For x = 0 To Ubound(keys)
					parms(keys(x)) = values(x)
				Next
			End If
		End If
exitsub:
		Exit Sub
catcherror:
		Print Cstr(Error) + " at line " + Cstr(Erl)
		Resume exitsub
	End Sub

	Public Function getParmValue(keyname As String) As String
		If (Iselement ( parms ( keyname ) )) Then
			getParmValue = parms(keyname)
		Else
			getParmValue = ""
		End If
	End Function

End Class
by tom | Categories: general | No Comments

Sunday…

Dec 16, 2007

A hillarious question is asked at ParentDish (a parents blog):

When is it time to let your kid start wiping independently?

by tom | Categories: parenting | No Comments

Surviving Christmas desktop backgrounds can be downloaded here.

I keep hoping the movie will be released on UMD (psp format) but no news.

by tom | Categories: general | No Comments

OmniFind

Dec 12, 2007

OmniFind Yahoo edition isn’t working out the way I hoped. For some reason I was thinking it would crawl my filesystem and understand NSFs. I think I had delusions of grandeur at that moment.

I would like to see how it crawl’s an NSF url but I need a test web server. I can just imagine how badly I would screw things up if I crawled an application server.

We had a user who decided to download websites to their laptop. Well… when you crawl (or download) a web application, it fires off every link it finds. It doesn’t matter if that web link calls a delete agent. All of the data was gone in about 15 minutes.

by tom | Categories: general | No Comments