November 19, 2008 01:43am pst

1. Adam314 100,531
2. ozo 37,135
3. FishMonger 37,055
4. Tintin 33,919
5. ahoffmann 20,995
6. hielo 18,400
7. Squinky 7,500
8. teraplane 7,400
9. ravenpl 6,500
9. b0lsc0tt 6,500
11. oleber 6,400
12. MushyPea 5,960
13. clockwatc... 5,660
14. gawai 5,200
14. kawas 5,200
16. caterham... 5,000
17. hernst42 4,400
18. Dave_Dietz 3,800
19. evilrix 3,600
20. mjcoyne 3,500
21. nitinsawh... 3,350
22. nixfreak 3,200
23. ysfx 3,000
24. nognew 2,900
25. giltjr 2,500

1. ahoffmann 337,713
2. Tintin 337,036
3. ozo 242,569
4. Adam314 145,397
5. maneshr 132,537
6. FishMonger 101,480
7. Peewee 52,613
8. kandura 49,055
9. mouatts 49,010
10. Perl_Diver 45,042
11. teraplane 33,915
12. dorward 30,623
13. mjcoyne 28,171
14. faster 21,210
15. mplungjan 19,600
16. jhurst 19,492
17. dutchfoxer 19,305
18. b0lsc0tt 19,272
19. hielo 18,850
20. MasseyM 18,530
21. icd 17,330
22. alamo 16,470
23. inq123 16,467
24. hernst42 16,320
25. rkosai 14,126

08.08.2008 at 03:40PM PDT, ID: 23634267

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

7.8

cookie data -- cgi/perl

Asked by newbie27 in CGI Scripting, Perl Programming Language

Tags: cgi

Hello Experts,

I have a page which is deleting and setting the data in the cookie, for some reason when I call the function it is displaying the cookie information on the page, something like this

"Set-Cookie: UserCook=; path=/ Set-Cookie: ZvisionUser=; path=/ Expires: Thu, 07 Aug 2008 22:35:57 GMT Date: Fri, 08 Aug 2008 22:35:57 GMT Content-Type: text/html; charset=ISO-8859-1 "

This is happening when I call the SetCgiCookie(attached) from this function

sub DeleteProductCookie

{

      my(@Idlist)=@_;

      my @CookiePlist=GetProductCookie();



      foreach $str(@CookiePlist)

      {

            my @temp=split(',',$str);

            $ProductHash{$temp[0]}=$temp[1]+$ProductHash{$temp[0]};

      }

      my @ProductId=keys %ProductHash;

      for(my $i=0;$i<=$#Idlist;$i++)

      {

            delete $ProductHash{$Idlist[$i]};



      }



      my @ProductId=keys %ProductHash;

      my $setcokkie="";

      for(my $i=0;$i<=$#ProductId;$i++)

      {

            $setcookie=$setcookie.'~'."$ProductId[$i],$ProductHash{$ProductId[$i]}";

      }

      SetCgiCookie($Usercookiename,$setcookie);

}

Can someone please let me know if the SetCgiCookie function is not correct?

Your help is much appreciated.

Thanks
Sam
Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

           
           
             sub SetCgiCookie
 
{
 
 
 
my ($cookiename,$cookievalue)=@_;
 
my $cookie = $query->cookie(-name => "$cookiename",-value =>"$cookievalue",-path => "/");
 
	if ($logoutClicked == 1)
 
	{	my $cookie1 = $query->cookie(-name => "$userCookie",-value =>"",-path => "/");
 
     	print $query->header(-expires => "-1d", -cookie => [$cookie,$cookie1]);
 
	}
 
	else
 
	{
 
 		print $query->header(-expires => "-1d", -cookie => $cookie);
 
	}
 
}

           
         

Keywords: cookie data -- cgi/perl

	Title
1	Writing a 'Please Wait' page with spi…
2	Perl : How to optimize the script work…
3	How do I use HTML::Template and d…
4	Accessing an array index during foreach
5	cgi renders as page source code
6	Running perl scripts

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

cookie data -- cgi/perl

Asked by newbie27 in CGI Scripting, Perl Programming Language

Tags: cgi

About this solution