The Annoyance Filter.pdf - Fourmilab

120 MAIL FOLDER ANNOYANCE-FILTER §137
137. Open the next file in a directory of files which constitute a logical mail folder. findNextFileInDirectory
has already vetted and expanded the path name, certifying that (at least when it checked) the target
was an extant regular file.
〈 Class implementations 11 〉 +≡
#ifdef HAVE_DIRECTORY_TRAVERSAL
bool mailFolder ::openNextFileInDirectory (void)
{
assert(dirFolder );
if (dh ≡ Λ) {
return false ;
}
#ifdef COMPRESSED_FILES
string fname = cfName ;
〈 Check for symbolic link to compressed file 133 〉;
if (jname .rfind (Compressed file type ) ≡ (jname .length ( )−string(Compressed file type ).length ( )))
{
string cmd (Uncompress command );
cmd += ’␣’ + fname ;
ip = popen (cmd .c str ( ), "r");
#ifdef HAVE_FDSTREAM_COMPATIBILITY
ifcdir .attach (fileno(ip));
ifcdir .clear ( ); /∗ Stupid attach doesn’t reset ios ::eofbit ! ∗/
is = &ifcdir ;
#else
ifdir .attach (fileno(ip));
ifdir .clear ( ); /∗ Stupid attach doesn’t reset ios ::eofbit ! ∗/
is = &ifdir ;
#endif
}
else {
#endif
ifdir .open (cfName .c str ( ));
if (¬ifdir .is open ( )) {
if (verbose ) {
cerr ≪ "Unable␣to␣open␣mail␣folder␣directory␣file␣\"" ≪ cfName ≪ "\"" ≪ endl ;
}
return false ;
}
ifdir .clear ( ); /∗ Clean ios ::eofbit if open didn’t do so ∗/
is = &ifdir ;
#ifdef COMPRESSED_FILES
}
#endif
expectingNewMessage = true ; /∗ Expect file to contain a new message ∗/
setNewMessageEligiblity ( );
return true ;
}
#endif