Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]154[/thread]

set cookies: ..und CGI



<< >> 6 Einträge, 1 Seite
format_c
 2004-01-21 17:41
#1039 #1039
User since
2003-08-04
1706 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Code: (dl )
if ($cgi->cookie($cookiename)) {print "Cookie vorhanden";}


Glaube das mal so gemacht zu haben.

Was sollte daran nicht sicher sein?
Das Risiko liegt im entfertesten Sinn bei Windows-Usern die am besten noch mit dem IE (nicht alle 30_000 mal gepatcht) auf der Seite surft, da er dir vertrauen muss, dass du keinen evtl.JavaCode drin hast (Oder wars irgendwas anderes).

Gruß Alex
Effizente Linuxshell
steinwolf
 2004-01-21 16:57
#1040 #1040
User since
2003-08-04
367 Artikel
BenutzerIn
[default_avatar]
Hi,
wie würdet Ihr das Modul bewerten?
Kann man das "sicherer" machen, Zb. prüfen ob das Cookie gesetzt wurde?

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
sub setCookie
{
	my $cookiename = shift;
	my $value = shift;
	my $expires = shift;
	my $domain = shift;
	my $path = shift;
	
	my $cookie = cookie(-name => $cookiename,
			-value => $value,
			-expires => $expires,
			-domain => $domain,
			-path => $path);

	print header(-cookie => $cookie);
	
}
#


mfg steinwolf
perlddc CGI
jaja..ok ;)
"Did you know? You can use your old motor oil to fertilize your lawn." - Blinkster - Professionelles EDV Forum
kabel
 2004-01-21 21:21
#1041 #1041
User since
2003-08-04
704 Artikel
BenutzerIn
[default_avatar]
ich war so frei ...
-- stefan
Crian
 2004-01-21 21:24
#1042 #1042
User since
2003-08-04
5866 Artikel
ModeratorIn
[Homepage]
user image
... was zu tun? ???
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
eisbeer
 2004-01-21 21:26
#1043 #1043
User since
2003-08-29
347 Artikel
BenutzerIn
[Homepage] [default_avatar]
das thema zu verschieben...
Die meisten PC Probleme befinden sich zwischen Bildschirm und Stuhl...
Crian
 2004-01-21 21:40
#1044 #1044
User since
2003-08-04
5866 Artikel
ModeratorIn
[Homepage]
user image
ah :)

aber irgendwie ist es jetzt doppelt ^^
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
<< >> 6 Einträge, 1 Seite



View all threads created 2004-01-21 17:41.