sub readEditTokens { &checkFileCanBeAccessed($editTokenFile, "READ"); open(TOKENFILE,"$editTokenFile") || &error("Cannot open edit token file."); flock(TOKENFILE, 2) || &error("Cannot lock edit token file."); my $editTokens = ; flock(TOKENFILE, 8); close (TOKENFILE); return ($editTokens); }