one.net

#!/usr/local/bin/perl5 require "./cgi-lib.pl"; $homeURL = "http://www.onenet.com.hk"; $passfile = "password/password.txt"; $ret = &ReadParse; $mid=10000; if ( -e $passfile ){ open(pfile,$passfile); @lines = ; close(pfile); foreach (@lines){ ($id) = split(/\t/,$_); if ( $id > $mid ){ $mid = $id; } } $id = $mid+1; }else{ $id = 10000; } print <<_EOT_; Content-type: text/html one.net

Member Registration Form

會員登記表格

_EOT_ open(INF,"../regformtext.htm") ; @data = ; close(INF); foreach $line (@data) { chomp($line); print "$line\n"; } print <<_EOT_;

會員編號 Member No.	$id
密碼 Password*		確定密碼 Verify Password*
姓 Last Name*		名 Given Name*
電子郵址 Email*
性別 Sex*	Male Female	出生日期 Date of Birth*	// DD / MM/ YYYY
職業 Occupation		婚姻狀況 Martial Status
電話 Phone No.*		傳真 Fax
傳呼 Pager		手提電話 Mobile
地址 Address*


	Hong Kong Kowloon N.T.
其他國家 Other Country
家庭成員數目 Number of Household Members
興趣 Interest/Hobbies
我 / 我們將遵循網上良品會員的規章與條件 I will abide by the rules and by-law of the onenet club.

_EOT_