Allow synonyms for localhost

[spider.git] / perl / importkeps.pl

diff --git a/perl/importkeps.pl b/perl/importkeps.pl
index 39fa21dfc3dae59467143fdb961bdfce2193e5ea..3ce83317e2e30695b937f264a8bc128dbbbf37a0 100644 (file)
--- 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;