Thanks for the report. Does this patch look sufficient to you?
--- flamethrower-0.1.8.orig/bin/flamethrower
+++ flamethrower-0.1.8/bin/flamethrower
@@ -9,6 +9,7 @@
use strict;
use File::Path;
+use File::Temp;
use Getopt::Long;
use lib "/usr/lib/flamethrower";
@@ -23,7 +24,7 @@
my $version_number = "INS_VERSION";
my $conf_file = '/etc/flamethrower/flamethrower.conf';
my $transport = "udp-receiver";
-my $tmp_dir = "/tmp/.flamethrower.$$";
+my $tmp_dir = File::Temp::tempdir("/tmp/flamethrower.XXXXXX");
my $version_info = <<"EOF";
@@ -283,13 +284,16 @@
#
my $udp_cmd;
my $tar_cmd;
+ my $tar_fh;
+ my $tar_file;
+ ($tar_fh, $tar_file) = File::Temp::tempfile("/tmp/multicast.tar.XXXXXX");
if($verbose) {
- $udp_cmd = "udp-receiver $udp_receiver_options --file
/tmp/multicast.tar.$$";
- $tar_cmd = "tar $tar_opts -C $dir -f /tmp/multicast.tar.$$";
+ $udp_cmd = "udp-receiver $udp_receiver_options --file $tar_file";
+ $tar_cmd = "tar $tar_opts -C $dir -f $tar_file";
} else {
- $udp_cmd = "udp-receiver $udp_receiver_options --file
/tmp/multicast.tar.$$ 2>/dev/null";
- $tar_cmd = "tar $tar_opts -C $dir -f /tmp/multicast.tar.$$";
+ $udp_cmd = "udp-receiver $udp_receiver_options --file $tar_file
2>/dev/null";
+ $tar_cmd = "tar $tar_opts -C $dir -f $tar_file";
}
print "$udp_cmd\n" if($verbose);
@@ -298,7 +302,8 @@
print "$tar_cmd\n" if($verbose);
!system($tar_cmd) or die("FAILED: $tar_cmd");
- unlink("/tmp/multicast.tar.$$");
+ close $tar_fh;
+ unlink("$tar_file");
}
--
dann frazier
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
