From 14fa5913c9b5be9f55ef741236aaafbe516f64fe Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Wed, 20 May 2015 22:16:53 +0100 Subject: [PATCH] change initial #! to #!/bin/env perl --- perl/callbot.pl | 2 +- perl/cluster.pl | 3 ++- perl/connect.pl | 2 +- perl/console.pl | 3 ++- perl/convert_users.pl | 2 +- perl/convkeps.pl | 2 +- perl/create_prefix.pl | 2 +- perl/create_qsl.pl | 2 +- perl/create_sysop.pl | 2 +- perl/create_usdb.pl | 2 +- perl/dxcc.pl | 2 +- perl/dxoldtonew.pl | 2 +- perl/export_opernam.pl | 2 +- perl/gen_usdb_data.pl | 2 +- perl/hlptohtml.pl | 2 +- perl/importkeps.pl | 2 +- perl/importwwv.pl | 2 +- perl/issue.pl | 2 +- perl/lock_nodes.pl | 2 +- perl/log2csv.pl | 2 +- perl/process_ursa.pl | 2 +- perl/spot2csv.pl | 2 +- perl/talias.pl | 2 +- perl/test_lastid.pl | 2 +- perl/update_sysop.pl | 2 +- perl/winclient.pl | 2 +- 26 files changed, 28 insertions(+), 26 deletions(-) diff --git a/perl/callbot.pl b/perl/callbot.pl index d63234f9..a1150bb1 100755 --- 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 3d38f9c2..98efced9 100755 --- 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 3068bbe7..f3f33215 100755 --- 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 56394888..7bcb2abd 100755 --- 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 b55daea0..d33899c2 100755 --- 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 24697105..4f8192b3 100755 --- 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 ff78a16a..1923bc3e 100755 --- 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 85134ea1..e4510afd 100755 --- 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 22b64d71..c4bd2fb6 100755 --- 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 241258b7..76b91e3d 100755 --- 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 889b62e9..4d903624 100755 --- 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 ddf6074f..27ccf012 100755 --- 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 2107c1aa..2bbfee9b 100755 --- 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 d805870d..14d18d6b 100755 --- 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 19684615..0e00607e 100755 --- 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 11a267b0..afbeab4b 100644 --- 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 f0fcfec0..d121658a 100755 --- 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 41d9fe8b..5b968dfe 100755 --- 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 4763fb12..92878a7d 100755 --- 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 08bf037d..6284e2be 100755 --- 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 01427fc8..1f4726e0 100644 --- 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 53f5cec8..62144e25 100755 --- 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 049c024d..42fbbdbe 100755 --- 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 1bd0ea3b..06b0b653 100755 --- 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 6700b98f..f7adc6dc 100755 --- 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 b11be3e9..df83e87e 100755 --- 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 # -- 2.34.1