pdadmin-forum

pdadmin-forum » Information » Add-Ons » [Fertiggestellt (V3)] Addon-Vorlage für Entwicklung von Frontend Addons » Hallo Gast [Anmelden|Registrieren]
Letzter Beitrag | Erster ungelesener Beitrag Druckvorschau | An Freund senden | Thema zu Favoriten hinzufügen
Neues Thema erstellen Antwort erstellen
Zum Ende der Seite springen Addon-Vorlage für Entwicklung von Frontend Addons
Autor
Beitrag « Vorheriges Thema | Nächstes Thema »
Michael
Mitglied


Dabei seit: 19.10.2004
Beiträge: 297
Herkunft: Düsseldorf

Addon-Vorlage für Entwicklung von Frontend Addons Antworten | Zitieren | Editieren | Melden       Zum Anfang der Seite springen

Diskussion zum Addon: Addon-Gerüst: Nach Sessionende weiterleitung zum Login.

So da mich es genervt hat das bei Addons die man entwickelt hat eine Fehlermeldung kommt wenn die Session vorbei ist habe ich ein bisschen gespielt und nun kommt bei mir auch der Login.

Diese Erfahrung teile ich natürlich gerne mit euch
code:
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:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
#!/usr/local/bin/perl -w

####
#### PD-Admin Add-On: Gerüst für Weiterleitung
#### Michael 9/2005
####

use CGI ':standard';
use DBI;
use strict;

use vars qw($dsn $user $password $color_scheme $color_scheme_administrator);
do "/opt/pdadmin/etc/pdadmin.conf" or die "Can't read configuration: $!";


###
### Variablen Deklarierung
###

my $html_data;
my $Color = 'blue';
my $rest;
my $kill_time='180';

if (defined $color_scheme and length $color_scheme)
{$Color = $color_scheme;}
elsif (defined $color_scheme_administrator and length $color_scheme_administrator )
{$Color = $color_scheme_administrator};

####
#### Korrekte Session ueberpruefen
####

unless (defined $ENV{REQUEST_URI}) {die "no request url available!"};

$ENV{REQUEST_URI} =~ m/\S*\/(\w*)\/dein_addon.cgi$/;
my $SessionID = $1;
my $dbh = DBI->connect($dsn,$user,$password) or die "can't connect!";
my $query = "select time from sessions where session='$SessionID' limit 1";
my $sth = $dbh->prepare($query) or die "cannot prepare query '$query'";
my $rv = $sth->execute or die "cannot execute query '$query'";
my $myTime = $sth->fetchrow;

$sth->finish();
$dbh->disconnect();

$time = time;
$rest = $time - $myTime;

if ($rest >= $kill_time) {
    $html_data = `cat /opt/pdadmin/www/administrator/html/login.failed.html`;
    my $dbh = DBI->connect($dsn,$user,$password) or die "can't connect!";
    my $query = "DELETE FROM sessions where session='$SessionID' LIMIT 1";
    my $sth = $dbh->prepare($query) or die "cannot prepare query '$query'";
    my $rv = $sth->execute or die "cannot execute query '$query'";
    $sth->finish();
    $dbh->disconnect();
} else {


###
### Update der Session
###

   my $dbh = DBI->connect($dsn,$user,$password) or die "can't connect!";
   my $query = "Update sessions set time ='$time' where session='$SessionID'";
   my $sth = $dbh->prepare($query) or die "cannot prepare query '$query'";
   my $rv = $sth->execute or die "cannot execute query '$query'";
   $sth->finish;
   $dbh->disconnect();
   $html_data = `cat deine Normale Html Vorlage`;
   #### Sowie der rest deines Scriptes  ####
}

$html_data =~ s/\$\$color_scheme/$Color/g;

print header;
print $html_data;

exit


So nun will ich nen Keks :lol:.

Und Morgen lernt unser CGI Script 2 Sprachen zu Sprechen (wenn ich es bis dahin schaffe)

[Edit]

So nun wird überprüft ob 3 minuten vergangen sind smile .
Mit $kill_time kann man die Zeit weiter hochschrauben zur zeit wird nach 3 Minuten die Session beendet.

Ach ja natürlich wird die abgelaufende Session gelöscht smile .

__________________
Entwicklung von Addons wieder aufgenommen trotz Compelierten Perl Dateien.
20.09.2005 22:40 Michael ist offline E-Mail an Michael senden Beiträge von Michael suchen Nehme Michael in Deine Freundesliste auf
Baumstruktur | Brettstruktur
Gehe zu:
Neues Thema erstellen Antwort erstellen
pdadmin-forum » Information » Add-Ons » [Fertiggestellt (V3)] Addon-Vorlage für Entwicklung von Frontend Addons

Impressum | Team | Hilfe

Forensoftware: Burning Board, entwickelt von WoltLab GmbH    |    Design entwickelt von You-Online.de