Opened by Gast at 2006-02-19 09:40
Moin,
könnt ihr mir helfen? Ich habe einen PHP Code... der auch super funktioniert. Jetzt möchte ich das gleiche in Perl anwenden.
Weiß einer von euch wie der folgende PHP Code in PERL umgeschrieben werden muss??
Danke\n\n
<!--EDIT|renee|1140336326-->
könnt ihr mir helfen? Ich habe einen PHP Code... der auch super funktioniert. Jetzt möchte ich das gleiche in Perl anwenden.
Weiß einer von euch wie der folgende PHP Code in PERL umgeschrieben werden muss??
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
<?
function logout() {
global $f;
session_start();
session_destroy();
header ("Set-Cookie: logged=$f; expires=Wed, 2-Jan-1987 00:00:00 GMT; path=/;");
header ("Set-Cookie: modlogin=$f; expires=Wed, 2-Jan-1987 00:00:00 GMT; path=/;");
header ("Set-Cookie: ivadmin=$f; expires=Wed, 2-Jan-1987 00:00:00 GMT; path=/;");
}
if ((isset($f)) && $f == "logout") logout();
?>
Danke\n\n
<!--EDIT|renee|1140336326-->