I added display of the date, supression of logging blank searches, and an error exit if the log file can't be written to.

Here's my version:

# Log the search request

# Ideally the two variables that follow would be in the mt-search.cfg file and read from there
# But I don't know how to do that
# But the rest of the hack is written to allow for that future enhancement

my $uselog = 1; # 1 = YES; 0 = NO
my $logfile = "/full/path/to/log/file";

# Only write to log if configured to do so
if ($uselog eq '1') {
# Only write to log is search string is not null
if ($searchstr ne "") {
# Open the log file or display error and stop
open (LOG, "&gt&gt$logfile") or die "Can not open file $logfile: $!";
# Get the system date
my $date = `date`;
# Remove the carriage return from the date string
chop($date);
# Write the data to the file
print LOG "$date";
print LOG " – ";
print LOG "$searchstr\n";
# Close the log file
close (LOG);
}
}

# End of logging hack

I posted this on Graham's site too, but thought I'd put it here, since this is what led me to the hack originally.

you asked me if we posted a link to this, my bad – apparently we did (although, funny it didn't come up when I did a search for "search" ???!!!)