Return-Path: Mailing-List: contact embperl-help@perl.apache.org; run by ezmlm Delivered-To: mailing list embperl@perl.apache.org Received: (qmail 57833 invoked from network); 12 Sep 2000 03:23:53 -0000 Received: from rt-h1.ecos.de (195.52.11.3) by locus.apache.org with SMTP; 12 Sep 2000 03:23:53 -0000 Received: from mond (unknown [194.162.213.51]) by rt-h1.ecos.de (Postfix) with SMTP id A2E0C49DF; Tue, 12 Sep 2000 05:26:22 +0200 (MEST) Message-ID: <004301c01c69$2d50aea0$0a0c0b0a@gr.ecos.de> From: "Gerald Richter" To: , "Mario F. Toro" References: <5.0.0.25.2.20000911164807.01e31f08@127.0.0.1> Subject: Re: Cookies ? Date: Tue, 12 Sep 2000 05:26:01 +0200 MIME-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 7bit X-Priority: 3 X-MSMail-Priority: Normal X-Mailer: Microsoft Outlook Express 5.50.4133.2400 X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400 X-Spam-Rating: locus.apache.org 1.6.2 0/1000/N > > Is possible check if browser allow cookies when use %udat hash ? > > > How can check if user had accept cookies in Embperl ? > I don't have tested this, but I think the following should work: The first page looks like: [- $udat{test} = 1 ; # redirect to another page to see if the cookie gets passed $http_headers_out{'Location'} = "http://$ENV{SERVER_NAME}/script2.epl" ; -] script2.epl: [$if $udat{test} $] Cookie set [$else$] Cookie not set [$endif$] Gerald ------------------------------------------------------------- Gerald Richter ecos electronic communication services gmbh Internetconnect * Webserver/-design/-datenbanken * Consulting Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz E-Mail: richter@ecos.de Voice: +49 6133 925151 WWW: http://www.ecos.de Fax: +49 6133 925152 -------------------------------------------------------------