kamesh3183 has asked for the wisdom of the Perl Monks concerning the following question:
if ($section eq "logout") { check_user(); #print "Content-type: text/html\n\n"; $cookie1 = $q->cookie(-name=>'id', -value=>'', -expires=>'-1d' -path =>'/', -domain =>'', ); #added by kamesh..it needs to be fixed $cookie2 = $q->cookie(-name=>'pass', -value=>'', -expires=>'-1d' -path =>'/', -domain =>'', ); $cookie3 = $q->cookie(-name=>'user_group_id', -value=>'', -expires=>'-1d' -path =>'/', -domain =>'', ); print $q->header(-cookie =>[$cookie1,$cookie2,$cookie3]); print "<script language=javascript>"; print "window.close()"; print "</script>"; #my $response = $q->cookie("id"); my $response = qq|<b>$LANG{'loggedout'}. <a href=$template{'mainfile' +}?do=main>$LANG{'logbackin'} </a></b>|; $template{'response'} = $response; parse("$global{'data'}/include/tpl/general"); exit; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
•Re: unable to delete cookies
by merlyn (Sage) on Nov 23, 2004 at 13:31 UTC | |
|
Re: unable to delete cookies
by Thilosophy (Curate) on Nov 24, 2004 at 09:31 UTC | |
|
Re: unable to delete cookies
by TedPride (Priest) on Nov 23, 2004 at 14:59 UTC |