>>>>> foo <[EMAIL PROTECTED]> writes:
> In Autobuse's main perl script, line 96:
>
> if(!$test_run) {
> open OUT, ">/tmp/autobuse_report.$$"
> or die "can't open /tmp/autobuse_report.$$";
> select OUT;
> }
This is fixed, partly, in autobuse version snap949125599, and more so
in today's snap949380617, which uses this mktemp function:
sub get_tmpfile {
my $file;
do {
open RAN, "/dev/random" || die;
read(RAN,$foo,16);
close RAN;
$file = '/tmp/autobuse' . unpack('H16',$foo);
} while (-e $file || -l $file);
return $file;
}
This method is Linux-specific, but that's all I need. The fixed
autobuse is available at http://www.picante.com/~gtaylor/autobuse/
Note that Autobuse has, as far as I know, zero users (including me).
If I am wrong about this, please let me know!
--
Grant Taylor - gtaylor at picante.com - http://www.picante.com/~gtaylor/
Linux Printing HOWTO: http://www.picante.com/~gtaylor/pht/
