Revision 9532
Added by Chris Jones almost 9 years ago
| register-dataset.cgi | ||
|---|---|---|
| 5581 | 5581 |
my $token = ""; |
| 5582 | 5582 |
|
| 5583 | 5583 |
if ( $ENV{'HTTP_AUTHORIZATION'} ) {
|
| 5584 |
@token_parts = split(/ /, $ENV{'HTTP_AUTHORIZATION'});
|
|
| 5584 |
my @token_parts = split(/ /, $ENV{'HTTP_AUTHORIZATION'});
|
|
| 5585 | 5585 |
$token = @token_parts[1]; |
| 5586 | 5586 |
|
| 5587 | 5587 |
} |
| ... | ... | |
| 5628 | 5628 |
debug('validateSession() called.');
|
| 5629 | 5629 |
} |
| 5630 | 5630 |
|
| 5631 |
my $token_info = getTokenInfo();
|
|
| 5631 |
my %token_info = getTokenInfo();
|
|
| 5632 | 5632 |
my $session = CGI::Session->load(); |
| 5633 | 5633 |
my $valid = 0; |
| 5634 | 5634 |
|
| ... | ... | |
| 5639 | 5639 |
|
| 5640 | 5640 |
} |
| 5641 | 5641 |
|
| 5642 |
} else if ( ! $session->is_empty && ! $session->is_expired ) {
|
|
| 5642 |
} elsif ( ! $session->is_empty && ! $session->is_expired ) {
|
|
| 5643 | 5643 |
$valid = 1; |
| 5644 | 5644 |
if ( $debug_enabled ) {
|
| 5645 | 5645 |
debug('The CGI session is valid.');
|
Also available in: Unified diff
Fix a couple of syntax issues.
refs https://github.nceas.ucsb.edu/KNB/arctic-data/issues/42