Changeset 27390
- Timestamp:
- 2013-05-22T17:01:58+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/cgiactions/baseaction.pm
r27366 r27390 226 226 { 227 227 my $self = shift @_; 228 229 my $gsdl_cgi = $self->{'gsdl_cgi'}; 230 231 # For now, we don't authenticate for GS3 as this still needs to be implemented for it. 232 if($gsdl_cgi->greenstone_version() == 3) { 233 $gsdl_cgi->generate_message("**** To do: still need to authenticate for GS3."); 234 return; 235 } 236 228 237 my $username = shift(@_); 229 238 my $collection = shift(@_); … … 231 240 my $keydecay = 1800; # 30 mins same as in runtime-src/recpt/authentication.cpp 232 241 233 my $gsdl_cgi = $self->{'gsdl_cgi'};234 242 235 243 # Remove the pw argument (since this can mess up other scripts)
Note:
See TracChangeset
for help on using the changeset viewer.