(Len(Fixed) - 300) Then
Comments = Left(Comments, Len(Fixed) - 300)
End If
' Cat up basic user information
UserInfo = Caller + " called from " + cgiGetEnv("remote_addr") + " with " + cgiGetEnv("http_user_agent")
UserInfo = UserInfo + "
" + CRLF + "Guest Book signed on " + Format$(Now, "dddd, dd mmmm yyyy") + " at " + Format$(Now, "h:mm:ss AM/PM")
If Caller = "" Then
tmp = "You left off your name!"
tmp = tmp + "
" + CRLF
tmp = tmp + "Sorry, but you must include your name to sign the Guest Book. "
tmp = tmp + "Use your browser's " + Q("back") + " button to try again."
cgiErrExit tmp
Else
Out "" + Caller + " Added to Guest Book"
Out "Thank you, " + FName + "!
"
Out "Your entry has been added to the " + BookName + "Guest Book
"
tmp = "" + Caller + "
" + CRLF
If Len(Comments) Then tmp = tmp + "" + Q(Comments) + "
" + CRLF
If Len(Email) Then tmp = tmp + "
Send mail to " + FName + "
" + CRLF
If Len(HomePage) Then tmp = tmp + "Visit " + FName + "'s Home Page
" + CRLF
tmp = tmp + "
" + UserInfo + "
" + CRLF + "
" + CRLF
RecNum = fileAddRecord(tmp)
Select Case RecNum
Case 0
cgiErrExit "Could not open " + GuestBook + "."
Case Else
Out "Record " + Format(RecNum) + " added to Guest Book:" + CRLF + tmp
End Select
End If
End Sub
'
' This routine builds & displays a form for signing the guest book
'
Sub BookMakeForm()
Dim tmp As String
Out "Sign the Guest Book"
Out "Sign the " + BookName + "Guest Book
"
Out ""
Out "
"
Out "Fill in the form below, then click the OK button to sign the Guest Book. If you don't want "
Out "to sign, click your browser's " + Q("back") + " button to exit."
' get the path to cgishell.exe + \ + this executable
tmp = PathToURL("\" + cgiGetEnv("SCRIPT_NAME") + cgiGetEnv("PATH_INFO") + "?")
Out "
Dim Background As String ' <body background=gif> (from background= env variable)
'
' Add a record to the Guest Book. Returns zero if unable to open file
' else returns record number of record written
'
Function fileAddRecord(record As String) As Long
Dim hFile As Long ' file handle
Dim WaitTime As Double ' time-lapse counter
Dim Loops As Integer ' loop counter
Dim TotRecords As Long ' total records in file
LSet Fixed = record ' shove data into record
' wait until we have exclusive access for writing
On Error Resume Next
Loops = 0
Do Until Loops > 10 ' try for 10 seconds max
DoEvents
hFile = FreeFile ' get a free file handle
Err = 0 ' reset the error, if any
Open GuestBook For Random Access Write Lock Write As #hFile Len = Len(Fixed)
Select Case Err
Case 0 ' did we get exclusive access?
Exit Do ' yes, skip ahead
Case 70 ' permission denied?
hFile = 0 ' reset the handle
Loops = Loops + 1 ' mark one more loop expired
WaitTime = Timer + 1 ' wait one full second
While Timer < WaitTime
DoEvents
Wend
Case Else ' some other error
hFile = 0
Exit Do
End Select
Loop
' if we managed to open the file
If hFile Then
TotRecords = LOF(hFile) \ Len(Fixed) ' calc end of file
Put #hFile, TotRecords + 1, Fixed ' add a record to the file
Close #hFile ' close the file, releasing locks
fileAddRecord = TotRecords + 1 ' return record number
End If
End Function
'
' This routine adds a record to the guestbook
'
Sub BookAddRecord()
Dim Caller As String, Email As String, HomePage As String, Comments As String
Dim FName As String
Dim UserInfo As String
Dim RecNum As Long
Dim tmp As String, x As Integer
' Get pertinent environment variables
Caller = cgiGetEnv(){kind=link}