change initial #! to #!/bin/env perl

diff --git a/perl/callbot.pl b/perl/callbot.pl
index d63234f9a6730ba6ba199cb181fd7bae85a78027..a1150bb168a110a20c6010436215ec8b3086ea1d 100755 (executable)
--- a/perl/callbot.pl
+++ b/perl/callbot.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/bin/env perl
 #
 # an attempt at producing a general purpose 'bot' for going and getting
 # things orf the web and presenting them to user in a form they want

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 3d38f9c2a486609f0bfe1eb32399425d0ff2a12d..98efced91288e9543eff6879f0cbde30da9a0af6 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/bin/env perl
 #
 # This is the DX cluster 'daemon'. It sits in the middle of its little
 # web of client routines sucking and blowing data where it may.
@@ -11,6 +11,7 @@
 #
 
 require 5.10.1;
+use warnings;
 
 # make sure that modules are searched in the order local then perl
 BEGIN {

diff --git a/perl/connect.pl b/perl/connect.pl
index 3068bbe7feb017a6bf46df88db530bba6e5a0964..f3f33215dc8d5574181498109daf567362f50e96 100755 (executable)
--- a/perl/connect.pl
+++ b/perl/connect.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/bin/env perl
 #
 # connect to an external entity
 #

diff --git a/perl/console.pl b/perl/console.pl
index 5639488874e573231c748c1824b00185e548e8b3..7bcb2abde06d7c0675e9aa4ee21fcd783944b3c3 100755 (executable)
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/bin/env perl
 #
 # this is the operators console.
 #
@@ -14,6 +14,7 @@
 # 
 
 require 5.004;
+use warnings;
 
 # search local then perl directories
 BEGIN {

diff --git a/perl/convert_users.pl b/perl/convert_users.pl
index b55daea0f250a287bb145e4b53475ee9c80b33d7..d33899c2e0b110b88067dbbb17a3e7cd5cd53ef6 100755 (executable)
--- a/perl/convert_users.pl
+++ b/perl/convert_users.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/bin/env perl
 #
 # Export the user file in a form that can be directly imported
 # back with a do statement

diff --git a/perl/convkeps.pl b/perl/convkeps.pl
index 24697105d80bf2abcdd0ba2a87bdaef94c100f25..4f8192b30fb57ad3c15c51f895b2c02f3fc35e6a 100755 (executable)
--- a/perl/convkeps.pl
+++ b/perl/convkeps.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/bin/env perl
 #
 # Convert an Amsat 2 line keps bull into Sun.pm format
 #

diff --git a/perl/create_prefix.pl b/perl/create_prefix.pl
index ff78a16a3ec3ab6781958aa5b7dcd1374feb9507..1923bc3e8357d8be54f5c0304bb3225ab942a63a 100755 (executable)
--- a/perl/create_prefix.pl
+++ b/perl/create_prefix.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/bin/env perl
 # a program to create a prefix file from a wpxloc.raw file
 #
 # Copyright (c) - Dirk Koopman G1TLH

diff --git a/perl/create_qsl.pl b/perl/create_qsl.pl
index 85134ea101b658d541b50a4a6e7f414d57a85d4a..e4510afd48b2f17b7421d5af1b94972988ef5800 100755 (executable)
--- a/perl/create_qsl.pl
+++ b/perl/create_qsl.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/bin/env perl
 #
 # Implement a 'GO' database list
 #

diff --git a/perl/create_sysop.pl b/perl/create_sysop.pl
index 22b64d71ee6f277c94a76d8da77f9137941789ee..c4bd2fb6b7f6e756fb3ba48d7cbda32ef9b00295 100755 (executable)
--- a/perl/create_sysop.pl
+++ b/perl/create_sysop.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/bin/env perl
 #
 # create a NEW user database and the sysop record
 #

diff --git a/perl/create_usdb.pl b/perl/create_usdb.pl
index 241258b758e69803ef90b8106c61b360a89ee6ae..76b91e3d83fe8e38c89f9b93b2d20228086b37d3 100755 (executable)
--- a/perl/create_usdb.pl
+++ b/perl/create_usdb.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/bin/env perl
 #
 # create a USDB file from a standard raw file (which is GZIPPED BTW)
 #

diff --git a/perl/dxcc.pl b/perl/dxcc.pl
index 889b62e98ccce7157b709fc4ea931917f2bce169..4d9036241381895b1474f3e1e80cbf3c494b7965 100755 (executable)
--- a/perl/dxcc.pl
+++ b/perl/dxcc.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/bin/env perl
 #
 # Analyse the dxcc info in the prefix database, listing the 'official' country and its number
 # and also looking for duplicates and missing numbers

diff --git a/perl/dxoldtonew.pl b/perl/dxoldtonew.pl
index ddf6074f925a846a26039821a80987872cbbfd67..27ccf0122ba2824c6b2e6e3dbcd9f6fc4157493d 100755 (executable)
--- a/perl/dxoldtonew.pl
+++ b/perl/dxoldtonew.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/bin/env perl
 #
 # convert an AK1A DX.DAT file to comma delimited form
 #

diff --git a/perl/export_opernam.pl b/perl/export_opernam.pl
index 2107c1aa57878e6b2046882114c6cbec654414a6..2bbfee9be4e5a67b665dbc662fbd34cec6cd521c 100755 (executable)
--- a/perl/export_opernam.pl
+++ b/perl/export_opernam.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/bin/env perl
 #
 # export a standard ak1a opernam.dat file into CSV format.
 #

diff --git a/perl/gen_usdb_data.pl b/perl/gen_usdb_data.pl
index d805870d66f0bdbab65f917884e4b64abd6d8eb0..14d18d6b1ff1efde8fe07c0fe288a2d44d93bfaf 100755 (executable)
--- a/perl/gen_usdb_data.pl
+++ b/perl/gen_usdb_data.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/bin/env perl
 #
 # Something to create my subset of the US call book data,
 # in my flat file form, either from the main data base or

diff --git a/perl/hlptohtml.pl b/perl/hlptohtml.pl
index 19684615886aad019aa04532a0c6961f0a80289b..0e00607eefb5b753327ab2c019bedc0104f8c832 100755 (executable)
--- a/perl/hlptohtml.pl
+++ b/perl/hlptohtml.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/bin/env perl
 # 
 # A program to split out the Command_en.hlp file into two
 # html documents, one for sysops, one for users

diff --git a/perl/importkeps.pl b/perl/importkeps.pl
index 11a267b02943ae2051f4862b8d74915bd0329e54..afbeab4b3fc29c295c6e89ff615d80b8f6e4014d 100644 (file)
--- a/perl/importkeps.pl
+++ b/perl/importkeps.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/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.

diff --git a/perl/importwwv.pl b/perl/importwwv.pl
index f0fcfec0d651d093e7563e009144105bbbeee0e8..d121658ae497e6e186f29ff7cc76700824d3d91f 100755 (executable)
--- a/perl/importwwv.pl
+++ b/perl/importwwv.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/bin/env perl
 #
 # Process and import for mail WWV and Solar Data
 #

diff --git a/perl/issue.pl b/perl/issue.pl
index 41d9fe8b0bc257838d4f746b1b2f2cca6910e515..5b968dfeea1427294880bbd2791dbca05cf0418c 100755 (executable)
--- a/perl/issue.pl
+++ b/perl/issue.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/bin/env perl
 #
 # create a version and build id for the project using git ids
 #

diff --git a/perl/lock_nodes.pl b/perl/lock_nodes.pl
index 4763fb1282666913a44ba01d54d1e5678dac90b6..92878a7dfb7939995cb6b4c34bd8892ca41e33dd 100755 (executable)
--- a/perl/lock_nodes.pl
+++ b/perl/lock_nodes.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/bin/env perl
 #
 # remove all records with the sysop/cluster callsign and recreate
 # it from the information contained in DXVars

diff --git a/perl/log2csv.pl b/perl/log2csv.pl
index 08bf037d9151497bb2e3d730fb2081808b32e181..6284e2be7d459a86ac873a8a3203d0f97610bd0e 100755 (executable)
--- a/perl/log2csv.pl
+++ b/perl/log2csv.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/bin/env perl
 #
 # convert a DXSpider Log file to csv format
 #

diff --git a/perl/process_ursa.pl b/perl/process_ursa.pl
index 01427fc8327ff2d0aba9726ff38148c4e60082bb..1f4726e036bfbe3d49fcd4584296df3e68e9aadb 100644 (file)
--- a/perl/process_ursa.pl
+++ b/perl/process_ursa.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/bin/env perl
 #
 # Process and import for mail SIDC Ursagrams
 #

diff --git a/perl/spot2csv.pl b/perl/spot2csv.pl
index 53f5cec81b7b129e5ba5415f51ba2151c88e5863..62144e25c419a76096c4f7357cee2c8ceb358836 100755 (executable)
--- a/perl/spot2csv.pl
+++ b/perl/spot2csv.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/bin/env perl
 #
 # convert a DXSpider Spot file to csv format
 #

diff --git a/perl/talias.pl b/perl/talias.pl
index 049c024dd4207e5c59e7b16dffe01650afb8a976..42fbbdbe49c6eae19b0a5c8c7b0d7a2e30ef3cd5 100755 (executable)
--- a/perl/talias.pl
+++ b/perl/talias.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/bin/env perl
 #
 # alias testing tool
 #

diff --git a/perl/test_lastid.pl b/perl/test_lastid.pl
index 1bd0ea3b8fd5020ee53cae64f77f17e914c80050..06b0b653c07c7f5905d6699ab6d3c47764aaf3fa 100755 (executable)
--- a/perl/test_lastid.pl
+++ b/perl/test_lastid.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/bin/env perl
 
 my $pc9x_past_age = 3600;
 my $pc9x_future_age = 3600*2;

diff --git a/perl/update_sysop.pl b/perl/update_sysop.pl
index 6700b98ff18c1728bae75427dfc0d350729b3cda..f7adc6dc43d51652220f9d9a35d204dfb9b8560a 100755 (executable)
--- a/perl/update_sysop.pl
+++ b/perl/update_sysop.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/bin/env perl
 #
 # remove all records with the sysop/cluster callsign and recreate
 # it from the information contained in DXVars

diff --git a/perl/winclient.pl b/perl/winclient.pl
index b11be3e910697a20a4df5b735110ce63bf021ca9..df83e87e83a4a983df49c558345e2539b8647a71 100755 (executable)
--- a/perl/winclient.pl
+++ b/perl/winclient.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/bin/env perl
 # The rudimentary beginnings of a Spider client which is known to run on ActiveState
 # Perl under Win32
 #