#!revolution

--| PayPal key_log updater CGI
--| Version: 1.0
--| (c) Thomas McCarthy: speakup at mac. com
--| updated Feb 21, 2006
--| The first step of McCarthy's PayPal scheme.
--| Write the custom code and the license key to a log file.

on startup
  --StartCGI
  --read info
  put $QUERY_STRING into theBuffer
  put theBuffer into theTermsArray --keep the original info.
  put "myLibUrl.rev" into theStack
  start using stack theStack
   
  split theTermsArray by "&" and "="
  put theTermsArray["date"] into tdate
  put theTermsArray["tcustom"] into tcustom
  put theTermsArray["email"] into temail
  put theTermsArray["FirstName"] into tFirstname
  put theTermsArray["LastName"] into tLastname
  put theTermsArray["school"] into tschool
  put theTermsArray["price"] into tprice
  put theTermsArray["key"] into tkey
  
  -------------------GET THE KEY_LOG INFO--------------------
  put url "file:../reg/key_log.txt" into t_base
  put itemoffset("date",t_base) into date_item
  put itemoffset("custom",t_base) into custom_item
  put itemoffset("FirstName",t_base) into fname_item
  put itemoffset("LastName",t_base) into lname_item
  put itemoffset("email",t_base) into mail_item
  put itemoffset("price",t_base) into price_item
  put itemoffset("key",t_base) into key_item
  put itemoffset("FirstName",t_base) into name_item
  put itemoffset("type",t_base) into type_item
  
  -----setup line----
  put "" into tnewline
  put urldecode(tdate) into item date_item of tnewline
  put tcustom into item custom_item of tnewline
  put temail into item mail_item of tnewline
  put tFirstName into item fname_item of tnewline
  put tLastName into item lname_item of tnewline
  put tschool into item type_item of tnewline
  put tprice into item price_item of tnewline
  put tkey into item key_item of tnewline
  -----WRITE THE NEW LINE ---------
  put cr & "------------------------------------------------------------------------------------------------" & cr & tnewline after url "file:../reg/key_log.txt"
  
  put the result into tresult       
  --put theBuffer & cr & x into tresult
  put "Content-Type: text/html" & cr & cr
  put  tresult
end startup