Dear Dan,
I keep most of our majordomo archives compressed. I put a
small hack into the function lopen which automatically
uuencoded such files before returning them to the requester.
Most of the hack is code to get the correct filename. Below
are the first few lines of the function, which can be found
in the file shlock.pl.
Regards,
Mick
8<--------8<--------8<
sub main'lopen {
local($FH) = shift;
local($mode) = shift;
local($file) = shift;
# $fm is what will actually get passed to open()
local($fm) = "$mode$file";
#
# local hack by mick@dcs.bbk.ac.uk
#
if ($mode !~ '>' && -B $file) {
local($myfile) = $file;
$myfile =~ s%^.*/%%;
$fm = "uuencode $file $myfile |";
}
... remainder deleted
References:
|
|
