Opened by sri at 2004-08-12 12:31
User since
2004-01-29
828 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-01-29
828 Artikel
BenutzerIn
Hi,
Hab grad ein neues Modul ins CPAN gestellt, falls ihr Maypole benutzt könnte es recht nützlich für euch sein.
Es macht Zugriffskontrolle und Session Management für eure Web-Anwendungen zum Kinderspiel.
Wir haben dafür drei Sicherheitsstufen:
Hier mal ein Beispiel:
Wie ihr seht braucht ihr nur eine von drei Methoden aufrufen und den Rest (cookie handling, user authentifizieren, sessions etc...) erledigt das Modul für euch.
Konfigurierbar ist das ganze natürlich auch.
Erweitern lässt es sich durch einfaches überladen von Methoden, so sind dann auch Sachen wie die Nutzung von Kerberos als Ticketsystem machbar!
P.S.: Im CPAN ist es noch nicht zu finden denn pause scheint heute probleme zu haben. :(
Hab grad ein neues Modul ins CPAN gestellt, falls ihr Maypole benutzt könnte es recht nützlich für euch sein.
Es macht Zugriffskontrolle und Session Management für eure Web-Anwendungen zum Kinderspiel.
Wir haben dafür drei Sicherheitsstufen:
Code: (dl
)
1
2
3
4
Public: No authentication, only session management
Private: Authenticate once, go everywhere
Restricted: Authenticate and reauthorize with a ticket for every
request (best used in a post form as hidden input)
Hier mal ein Beispiel:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
use base qw(Apache::MVC Maypole::Authentication::Abstract);
sub authenticate {
my $r = shift;
if ( $r->{table} eq 'openforall' ) {
$r->public;
}
elsif ( $r->{table} eq 'membersonly' ) {
$r->private;
$r->{template} = 'login' unless $r->{user};
}
elsif ( $r->{table} eq 'topsecret' ) {
$r->restricted;
$r->{template} = 'login' unless $r->{user};
}
}
Wie ihr seht braucht ihr nur eine von drei Methoden aufrufen und den Rest (cookie handling, user authentifizieren, sessions etc...) erledigt das Modul für euch.
Konfigurierbar ist das ganze natürlich auch.
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
25
26
27
28
use base qw(Apache::MVC Maypole::Authentication::Abstract);
MyApp->config->{auth} = {
user_class => 'MyApp::Customer',
user_field => 'email',
session_class => 'Apache::Session::Postgres',
session_args => {
DataSource => 'dbi:Pg:dbname=myapp',
UserName => 'postgres',
Password => '',
Commit => 1
}
};
sub authenticate {
my $r = shift;
if ( $r->{table} eq 'products' && $r->{action} eq 'list' ) {
$r->public;
}
elsif ( $r->{table} eq 'products' && $r->{action} eq 'search' ) {
$r->private;
$r->{template} = 'login' unless $r->{user};
}
elsif ( $r->{table} eq 'products' && $r->{action} eq 'edit' ) {
$r->restricted;
$r->{template} = 'login' unless $r->{user};
}
}
Erweitern lässt es sich durch einfaches überladen von Methoden, so sind dann auch Sachen wie die Nutzung von Kerberos als Ticketsystem machbar!
P.S.: Im CPAN ist es noch nicht zu finden denn pause scheint heute probleme zu haben. :(