-- set these properties outside of the event. That way they will only be set -- once each time the app is run, not once for each event. property crlf : (ASCII character 13) & (ASCII character 10) -- This is a standard header for HTML files. property http_10_header : "HTTP/1.0 200 OK" & crlf & "Server: MacHTTP" & crlf &  "MIME-Version: 1.0" & crlf & "Content-type: text/html" & crlf & crlf -- Idletime is how long you want it to remain open to -- wait for another event. Idletime is in seconds. -- Datestamp will contain the current date. Initialize it here. property idletime : 300 -- set to 5 minutes property datestamp : 0 -- this bit of code outside the sdoc event is executed at launch-time -- it is neccesary because an idle event can happen between -- launch and the receipt of an sdoc event (and in fact often does) set datestamp to current date -- This is the loop for handling "sdoc" AppleEvents sent to the -- application by MacHTTP. on Çevent WWW½sdocÈ path_args  given Çclass kforÈ:http_search_args, Çclass postÈ:post_args, Çclass methÈ:method, Çclass addrÈ:client_address, Çclass userÈ:username, Çclass passÈ:password, Çclass frmuÈ:from_user, Çclass svnmÈ:server_name, Çclass svptÈ:server_port, Çclass scnmÈ:script_name, Çclass ctypÈ:content_type -- Variables available for use: -- http_search_args - stuff in the URL after a ? -- post_args - stuff in the URL after a $ -- method - GET, POST, etc. Used to tell if post_args are valid -- client_address - IP address or domain name of remote client's host -- from_user - non-standard. e-mail address of remote user -- username - authenticated user name -- password - authenticated password -- server_name - name or IP address of this server -- server_port - TCP/IP port number being used by this server -- script_name - URL name of this script -- content_type - MIME content type of post_args -- Using the "try" clause causes the "on error" routine to be run -- if an error occurs instead of crashing. -- If the error occurs outside the "try"/"end try" space then -- the "on error" routine is NOT run. try -- save the current date and time to check later for quitting set datestamp to current date -- Return each parameter so you can see what the -- decoded information looks like. -- I use DecodeURL and Tokenize only on the post_args, since this is the only -- information entered by the user (all else is from MacHTTP). set return_page to http_10_header  &  "Post_Args Results" & "

Post_Args Results

" & return  & "

post_args

" & return -- this will produce a list of "name=value" pairs set postarglist to tokenize post_args with delimiters {"&"} -- process each list pair in postarglist -- store the original AppleScript text item delimiters set oldDelim to AppleScript's text item delimiters -- use "=" to delimit the pairs set AppleScript's text item delimiters to {"="} -- traverse the list and process the items repeat with currpostarg in postarglist set currname to first text item of currpostarg if currname = "name" then set username to (Decode URL (dePlus (last text item of currpostarg))) set return_page to return_page & "User: " & username & return else if currname = "address" then set useraddress to (Decode URL (dePlus (last text item of currpostarg))) set return_page to return_page & "
E-mail: " & useraddress & return else if currname = "sub" then set sub_text to (Decode URL (dePlus (last text item of currpostarg))) set return_page to return_page & "
Subject:
" & sub_text & return else if currname = "message" then set message_text to (Decode URL (dePlus (last text item of currpostarg))) set return_page to return_page & "
Message:
" & message_text & return else if currname = "S" then -- ignore it. That's the Submit button. else -- you have a variable who's name you don't know. Bad news! -- create your own errMsg and errNum to pass back -- the number 100 has no significance. I just chose it at random error ("Unknown variable in post_args: " & currname) number 100 end if end repeat -- restore the old AppleScript text item delimiters settings set AppleScript's text item delimiters to oldDelim set return_page to return_page  & "

client_address

" & return  & client_address & return  & "
Results generated at: " & (current date)  & "" & "" -- return the page created. A return statement ends the -- processing of the AppleEvent return return_page -- here is the routine to run if an error occurs -- errMsg contains the message sent by the System -- errNum contains the number of the error (negative for System, AE, or AS errors) on error errMsg number errNum -- create a page of HTML text to return set return_page to http_10_header  &  "Error Page" & "

Error Encountered!

" & return  & "An error was encountered while trying to run this script." & return set return_page to return_page  & "

Error Message

" & return & errMsg & return  & "

Error Number

" & return & errNum & return  & "

Date

" & return & (current date) & return set return_page to return_page  &  "
Please notify Jon Wiederspan at " & Â "jonwd@tjp.washington.edu" & " of this error." & "" -- return the page created. A return statement ends the -- processing of the AppleEvent return return_page end try end Çevent WWW½sdocÈ -- The idle function is run everytime the system sends an idle message. -- If the current date is more than idletime seconds more than the last date -- then it is time to quit. -- The return value tells the system how long to wait before on idle if (current date) > (datestamp + idletime) then quit end if return 5 end idle -- This code allows you to do any clean-up that might be necessary. -- Example: you could write the quit event time to a log to see -- how often the applet is running. on quit -- do any clean-up chores here continue quit end quit