Revision 4543999a
Von Moritz Bunkus vor etwa 5 Jahren hinzugefügt
| SL/Auth.pm | ||
|---|---|---|
| 94 | 94 |
return $self->client; |
| 95 | 95 |
} |
| 96 | 96 |
|
| 97 |
sub get_default_client_id {
|
|
| 98 |
my ($self) = @_; |
|
| 99 |
|
|
| 100 |
my $dbh = $self->dbconnect; |
|
| 101 |
|
|
| 102 |
return unless $dbh; |
|
| 103 |
|
|
| 104 |
my $row = $dbh->selectrow_hashref(qq|SELECT id FROM auth.clients WHERE is_default = TRUE LIMIT 1|); |
|
| 105 |
|
|
| 106 |
return $row->{id} if $row;
|
|
| 107 |
} |
|
| 108 |
|
|
| 97 | 109 |
sub DESTROY {
|
| 98 | 110 |
my $self = shift; |
| 99 | 111 |
|
Auch abrufbar als: Unified diff
Authentifizierung: Unterstützung für HTTP Basic Authentication RFC 7617