X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fimportkeps.pl;h=11a267b02943ae2051f4862b8d74915bd0329e54;hb=9fc2ec17088fbff22e825133a4b9b3efe5384df3;hp=39fa21dfc3dae59467143fdb961bdfce2193e5ea;hpb=ee2b26cea53095199ebd04c4977ede501981af1c;p=spider.git diff --git a/perl/importkeps.pl b/perl/importkeps.pl index 39fa21df..11a267b0 100644 --- a/perl/importkeps.pl +++ b/perl/importkeps.pl @@ -5,7 +5,7 @@ # # 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;