one.net

#!/usr/local/bin/perl5 require "./cgi-lib.pl"; $homeURL = "http://www.onenet.com.hk"; $passfile = "password/password.txt"; $emailaddr = "sales\@onenet.com.hk databank\@hkstar.com"; $mailer = "/usr/bin/mail"; $descfile = "desc.txt"; $ret = &ReadParse; @parts = split(/;/,$ENV{'HTTP_COOKIE'}); foreach (@parts){ $_ =~ s/^[\s]//g; $_ =~ s/[\s]$//g; } if ( $parts[0] =~ /^product/ ){ $pline = $parts[0]; } if ( $parts[0] =~ /^username/ ){ $username = $parts[0]; } if ( $parts[1] =~ /^product/ ){ $pline = $parts[1]; } if ( $parts[1] =~ /^username/ ){ $username = $parts[1]; } $pline =~ s/^product=//g; if ($pline eq "product") { $pline="";} $username =~ s/^username=//g; @p = split(/\|/,$pline); foreach (@p){ ($tcode,$tprice,$tqty) = split(/!/,$_); $tcode =~ tr/a-z/A-Z/; $PRICE{$tcode} = $tprice; $QTY{$tcode} = $tqty + $QTY{$tcode}; } print <<_EOT_; Content-type: text/html one.net

Check Out

付款處

_EOT_ if (( $username eq "" ) || ( $username eq "username" )) { print <<_EOT_; Please login as our member first.

_EOT_ }else{ print <<_EOT_; _EOT_ $atotal = 0; foreach (sort(keys %QTY)){ $utotal = $PRICE{$_} * $QTY{$_}; $atotal = $atotal + $utotal; print "\n"; } print "\n"; print <<_EOT_;

Code	Description	Quantity	Unit Price	Total
$_	$DESC{$_}		$PRICE{$_}
			Total

1.	請選擇付款方法 Select a payment method:

	網上良品銀行戶口 onenet A/C: 恆生銀行戶口號碼 Hang Seng Bank A/C No. 266-189380-001
	直接存款經自動櫃員機或銀行櫃台 direct deposit via ATM or counter
	支票 (抬頭網上良品 Cheque (made payable to onenet))
	電匯 Wire Transfer
	匯票 Money Order

2.	請輸入送貨地址 Enter a Mailing Address: 以下地址，是用作送貨之用，請正確輸入 (郵箱不可用速遞) On the mailing label, we will use exactly what you enter here, so please make sure this address is the way you want it to appear. (we cannot ship via courier to P.O. Box)

送貨地址 Mailing address
國家 Country

3.	這是否禮物? Is this order a gift? 如是禮物，網上良品可免費為您在禮上附上您的話語，請在以下空格內寫上 (最多五十字) For gift order, you can include a personalized gift message in your order (maximum 50 characters). These services are free of charge.

_EOT_ } print <<_EOT_; _EOT_