不錯的一篇學習CGI腳本(腳本)

A >Display the Date/A>

#!/bin/sh


echo Content-type: text/plain


echo


/bin/date

Content-type: text/plain


Tue Oct 25 16:15:57 EDT 1994

Content-type: text/html

Format

Content-Type

圖4. 腳本的結果
這是個很簡單的例子, 他能這樣備調用:

A >Is Laura Logged in?/A>

根據前面的闡述，這個腳本內容是這樣：:
#!/bin/sh
 

echo Content-type: text/html
 

echo "HTML>HEAD>"
 

echo "TITLE>Is Laura There?/TITLE>"
 

echo "/HEAD>BODY>"
為了測試我是否已經登陸系統(tǒng)，用who命令(我的登陸名假設為lemay), 儲存結果在變量ison中. 如果我登陸, 變量ison將有些內容，否則則是空的.

ison='who | grep lemay'

if [ ! -z "$ison" ]; then


        echo "P>Laura is logged in."/P>


else


        echo "P>Laura isn't logged in."/P>


fi

echo "/BODY>/HTML>"

Content-type: text/html


HTML>HEAD>


TITLE>Are You There?/TITLE>


/HEAD>BODY>


P>Laura is not logged in.


/BODY>/HTML>

這個例子完整的腳本如下：

#!/bin/sh

echo "Content-type: text/html"


echo

echo "HTML>HEAD>"

echo "TITLE>Is Laura There?/TITLE>"

echo "/HEAD>BODY>"

ison='who | grep lemay'

if [ ! -z "$ison" ]; then

        echo "P>Laura is logged in"

else

        echo "P>Laura isn't logged in"

fi

echo "/BODY>/HTML>"

A HREF="/cgi-bin/myscript?arg1+arg2+arg3">run my script/A>

這個方法有時叫查詢, 因為早期它用在搜索功能中.

我們取個不同題目:

#!/bin/sh


echo "Content-type: text/html"


echo


echo "HTML>HEAD>"


echo "TITLE>Are You There?/TITLE>"


echo "/HEAD>BODY>"

ison='who | grep "${1}"'

剩下的所有修改如下:

if [ ! -z "$ison" ]; then


        echo "P>$1 is logged in"


else


        echo "P>$1 isn't logged in"


fi

echo "/BODY>/HTML>"

A >Is Laura Logged in?/A>

A >Is John Logged in?/A>

看下面一個路徑信息path information例子, :

http://myhost/cgi-bin/myscript/remaining_path_info?arg1+arg2

比如說, 讓我們假設你在多頁上已有多個連接到同一個腳本. 你能用這個路徑信息顯示那個有連接的HTML文件名. 這樣, 在你完成處理你的腳本之后, 當你發(fā)回一個HTML文件時, 你能在這個文件里包含一個連接，發(fā)回用戶一開始那個頁。

你會在下一章節(jié)學到更多路徑信息：有用的表單和腳本. 待后來登出

不用怕, 這里開始解釋這些情況.

Location: ../docs/final.html

指向這個文件的路徑可以是一個URL或相對路徑. 所有相對路徑是指相對于腳本所在的位置. 例子中的final.html文本是在當前上一個目錄下docs的目錄下:

echo Location: ../docs/final.html


echo

很幸運, 這一切很容易. 你只要輸出下面這個命令即可(后面跟一個空行):

echo Status: 204 No Response


echo

記住, 大多數表單有兩個部分: HTML的表單格式；處理表單數據的CGI腳本. 這個CGI腳本使用標簽FORM>屬性調用的.

這個ACTION屬性包含著處理表單的腳本:

FORM ACTION="http://www.popchina.com/cgi-bin/processorscript">

我們上面談論的方法，實際是GET，它將數據打包放置在環(huán)境變量QUERY_STRING中作為URL整體的一部分傳遞給服務器。

POST做很多類似GET同樣的事情, 不同的地方就是它是分離地傳遞數據給腳本. 你的腳本通過標準輸入獲取這些數據. (有些Web服務器是存儲在臨時文件中.) 這個QUERY_STRING環(huán)境變量將不再設置.

那你用那個方法呢? POST是個安全的方法, 尤其如果你的表單中有很多數據的話. 當你用GET, 這個服務器就分配變量QUERY_STRING給所有的表單數據, 但是這個變量可存儲量是有限的. 換句話說，如果你有很多數據但是你又用GET，你會丟失很多數據.

如果你用POST, 你可以盡可能多地使用數據, 因為這些數據從來也不分配到一個變量里.

theName=Ichabod+Cranegender=malestatus=missingheadless=yes

• 每對name/value由符分開.
• 每對來自表單的name/value由=符分開. 如果用戶沒有輸入值給這個name,那么這個name還是出現，只是無值(象這樣 "name=").
• 任何特殊的字符(就是那些不是簡單的七位ASCII，如漢字) 將以百分符%用十六進制編碼. 當然也包括象 =, , 和 % 這些特殊的字符.
• 在輸入區(qū)中的空格將以加號+顯示.

這里介紹一個叫uncgi的解碼程序, 你可以從http://www.hyperion.com/~koreth/uncgi.html. 得到原碼，安裝在你自己的cgi-bin目錄下.

圖5. 告訴我你的名字的表單.

這個輸入被發(fā)給腳本, 然后發(fā)回顯示一個hello的信息(間圖.6).

如果你在姓名輸入處不輸入任何東東，會怎樣？見圖7.

圖6. 姓名表單的結果.

圖7. 另一個結果.

FORM METHOD=POST ACTION="../cgi-bin/form-name">


/FORM>

FORM METHOD=POST ACTION="../cgi-bin/uncgi/form-name">


/FORM>

在腳本中第一步是解碼，在這個例子中, 我們已經使用uncgi解碼輸入數據, 實際這個表單已經為你做好解碼. 通過建立一個uncgi的目錄，一旦表單遞交給服務器，服務器會自動進行解碼，這樣，所有的name/value已經準備就緒等待你的使用.

現在，一個例子開始部分假設是下面這樣:

echo Content-type: text/html


echo


echo "HTML>HEAD>"


echo "TITLE>Hello/TITLE>"


echo "/HEAD>BODY>"


echo "P>"

這個Name元素的值, 是包含在WWW_theName環(huán)境變量中. 用一個簡單的測試命令(-z), 你能查看環(huán)境變量是否是空的還是包括相應的輸出值:

if [ ! -z "$WWW_theName" ]; then


    echo "Hello, "


    echo $WWW_theName


else


    echo "You don't have a name?"


fi

echo "/P>P>A HREF="../lemay/name1.html">Go Back/A>/P>"


echo "/BODY>/HTML>"

• 腳本內容只顯示不執(zhí)行.

  你正確配置了你的服務器運行CGI腳本? 你的腳本是放置在cgi-bin目錄中嗎？如果你的服務器允許帶.cgi擴展名的CGI運行, 你的腳本文件名的擴展名是這樣嗎？

• Error 500: Server doesn't support POST.

  解答還是如上一條一樣，然后你用命令行執(zhí)行你的CGI，可以正常運行嗎？是否有錯誤？.

• Document contains no data.

  確定你的頭部行和數據部之間有一空行.

• Error 500: Bad Script Request.

  確定你的腳本是可執(zhí)行的(在UNIX, 用chmod +x 你的腳本.cgi). 在從瀏覽器運行之前，你應當從命令行運行你的腳本，如果客戶端是win95,可以用telnet登陸你的服務器，執(zhí)行命令行，當然必須了解UNIX命令.

表2. CGI 環(huán)境變量.

環(huán)境變量         

意義

當然也有表單上載時可以解碼的程序，很少。

為了使用cgi-lib.pl，你通常要這樣寫:
＃！/usr/lib/perl

require 'cgi-lib.pl';

ReadParse(*in);

在表單輸入解碼后, 你能讀取和處理這個name/value，方法是象下面這樣:

print $in{'theName'};

如果你有多個用同樣名字的name對, cgi-lib.pl用(\0)分隔多個名字. 這樣可以正常處理你的腳本.

cgi-lib.pl 后來版本可以很好支持, 在http://www.bio.cam.ac.uk/cgi-lib/ 了解更多的情況.

另一個處理用Perl編寫的CGI地址是 http://valine.ncsa.uiuc.edu/cgi_docs.html .

注意：上述程序可以用ultra edit來編輯，注意轉換UNIX格式 ，必須采用UNIX格式存盤，再上載，用telnet登陸，在命令行鍵入perl sample.pl，看有無bug,再 在瀏覽器中調用。CGI程序包括放置CGI的目錄一定要改屬性為777, 要寫入的HTML文件也要改屬性為777.

現在網上有很多免費的cgi,基本可以滿足一般需求，請到這個網址查詢你要的cgi:http://www.itm.com/cgicollection/

本人漢化了一個古老的通用留言簿，大家可以拿去做自己的留言簿。這里下載