At 18:42 30/10/2002 +0700, Hengky Stevanus wrote:
mohon pencerahannya dong... gue sudah berkutak-katik di perl mengenai cookies...gue sudah bisa create cookies yang jadi pertanyaan gimana cara baca cookies tsb dengan value yg diinginkan kalo bisa dengan contoh script pls yach... pusing nich...
use CGI;
$q= new CGI;
%trans_cookie = $q->cookie(-name=>$namaCookie, path=>$cookiePath);
# %trans_cookie akan berisikan hash variable dr cookie dng nama $namaCookie
$order_ID = $trans_cookie{'order_ID'} unless ($order_ID);
$user_ID = $trans_cookie{'user_ID'} unless ($user_ID);
%cookie_cart = $q->cookie($cartCookie);dan gimana cara mendelete cookies yang bersangkutan kalau kita udah logout.
%cookie_cart = (1,1);
$the_cookie = $q->cookie(-name=>$cartCookieName, -value=>\%cookie_cart, -expires=>'+1s', -path=>$cookie_path, -domain=>$cookie_domain);
%cookie_trans = $q->cookie($transCookie);
%cookie_trans = (1,1);
$trans_cookie = $q->cookie(-name=>$transCookieName, -value=>\%cookie_trans, -expires=>'+1s', -path=>$cookie_path, -domain=>$cookie_domain);
print $q->header(-cookie=>[$the_cookie, $trans_cookie]), $q->start_html(-vlink=>'#990033', -link=>'#990000', -alink=>'#990000', -title=>$htmlTitle -style=>{-code=>$css_style},-script=>$JSCRIPT, -leftmargin=>0, -topmargin=>0, -marginwidth=>0, -marginheight=>0, onLoad=>$onLoad);
Best Regards,
Ferry I
--
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
