X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fimportkeps.pl;h=3ce83317e2e30695b937f264a8bc128dbbbf37a0;hb=766014807e2521cc60a219c6eda5b49d13ffc70f;hp=39fa21dfc3dae59467143fdb961bdfce2193e5ea;hpb=ee2b26cea53095199ebd04c4977ede501981af1c;p=spider.git

diff --git a/perl/importkeps.pl b/perl/importkeps.pl
index 39fa21df..3ce83317 100644
--- a/perl/importkeps.pl
+++ b/perl/importkeps.pl
@@ -1,11 +1,11 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 #
 # Take a 2 line keps email file on STDIN, prepare it for import into standard import directory
 # and then shove it there, marked for SB ALL.
 #
 # Copyright (c) 2004 Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 
 use strict;
@@ -50,6 +50,7 @@ sub process
 	# open the output file in the data area
 	my $fn = "$root/tmp/keps.txt.$$";
 	open OUT, ">$fn" or die "$fn $!";
+	chmod 0666, $fn;
 	print OUT $inp;
 	close OUT;