Project

General

Profile

« Previous | Next » 

Revision 8354

correct some syntax errors, date filter formatting. https://projects.ecoinformatics.org/ecoinfo/issues/6099

View differences:

ldapweb.cgi
334 334
	
335 335
	my $dt = DateTime->now;
336 336
	$dt->subtract( hours => $orgExpiration );
337
	my $expirationDate = $dt->ymd() . $dt->hms() . "Z";
337
	my $expirationDate = $dt->ymd("") . $dt->hms("") . "Z";
338 338
    my $filter = "(createTimestamp <= " . $expirationDate . ")";
339 339
    debug("Clearing expired accounts with filter: " . $filter);
340 340
    my @attrs = [ 'uid', 'o', 'ou', 'cn', 'mail', 'telephoneNumber', 'title' ];
......
351 351
    	$ldap->start_tls( verify => 'none');
352 352
        $ldap->bind( version => 3, dn => $ldapUsername, password => $ldapPassword ); 
353 353
		$mesg = $ldap->search (
354
			base   => $base,
354
			base   => $orgAuthBase,
355 355
			filter => $filter,
356 356
			attrs => \@attrs,
357 357
		);
......
368 368
    	$ldap->unbind;   # take down session
369 369
    }
370 370

  
371
    return $foundAccounts;
371
    return 0;
372 372
}
373 373

  
374 374
sub fullTemplate {

Also available in: Unified diff