Opened by Sebastian at 2012-04-15 18:30
Hallo zusammen,
ich habe ein CGI/Perl Script, welches nur ausgeführt werden darf wenn der User auf der Webseite (HTML/PHP) eingeloggt ist. Für meine anderen PHP Scripte habe ich das zwar realisiert, da ich aber keinerlei Ahnung von Perl habe, weiß ich nicht wie ich das realisieren kann.
Das ist mein PHP Code, wäre der relativ einfach umzusetzen in Perl?
Gruß Sebastian
Last edited: 2012-04-15 18:33:26 +0200 (CEST)
ich habe ein CGI/Perl Script, welches nur ausgeführt werden darf wenn der User auf der Webseite (HTML/PHP) eingeloggt ist. Für meine anderen PHP Scripte habe ich das zwar realisiert, da ich aber keinerlei Ahnung von Perl habe, weiß ich nicht wie ich das realisieren kann.
Das ist mein PHP Code, wäre der relativ einfach umzusetzen in Perl?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
<?php
mysql_connect("mysql.webhosting","benutzer","pass");
mysql_select_db("datenbank");
$session_id = $_COOKIE["sid"];
$query = "SELECT guest FROM session WHERE session_id='$session_id'";
$mysqlabfrage = mysql_query($query);
while($row = mysql_fetch_object($mysqlabfrage))
{
$guest = $row->guest;
}
if(ISSET($guest) && $guest == '0')
{
#Gast = 0 = eingeloggt / Script soll weiter ausgeführt werden
exit();
}
if(!ISSET($guest) OR $guest == '1') echo "<meta http-equiv='refresh' content='0; URL=URL'>";
#Weiterleitung auf Login wenn nicht eingeloggt
?>
Gruß Sebastian
Last edited: 2012-04-15 18:33:26 +0200 (CEST)