Revision 6769
Added by ben leinfelder about 13 years ago
src/perl/register-dataset.cgi | ||
---|---|---|
354 | 354 |
|
355 | 355 |
# check if the user is logged in... |
356 | 356 |
my $session = CGI::Session->load() or die CGI::Session->errstr(); |
357 |
|
|
358 |
# check with Metacat to see if we are actually logged in |
|
359 |
my $metacat = Metacat->new($metacatUrl); |
|
360 |
my $response = $metacat->getUserInfo(); |
|
361 |
if ($response =~ "public") { |
|
362 |
$session->clear(); |
|
363 |
} |
|
364 |
|
|
365 | 357 |
if ( $session->is_empty ) { |
366 | 358 |
|
367 | 359 |
# no session found ... redirect to login page template |
Also available in: Unified diff
ROLLBACK: check for non-public session in Metacat before showing the registry form
http://bugzilla.ecoinformatics.org/process_bug.cgi