From 84b367d045940b8ee42c3c5bdf2bbb50d2f5badf Mon Sep 17 00:00:00 2001 From: Jenny Way Date: Thu, 18 Jan 2018 02:04:47 +0000 Subject: [PATCH] Bug-29917: use Modern::Perl in Tools perl scripts Test plan: Check that the following files don't contain use strict; use warnings; and have use Modern::Perl instead. background-job-progress.pl batchMod.pl copy-holidays.pl exceptionHolidays.pl holidays.pl import_borrowers.pl koha-news.pl letter.pl manage-marc-import.pl newHolidays.pl overduerules.pl quotes-upload.pl quotes.pl quotes/quotes-upload_ajax.pl quotes/quotes_ajax.pl scheduler.pl stage-marc-import.pl upload-cover-image.pl Also the credits have been added to newHolidays.pl https://bugs.koha-community.org/show_bug.cgi?id=20017 Signed-off-by: Jon Knight --- tools/background-job-progress.pl | 3 +-- tools/batchMod.pl | 3 +-- tools/copy-holidays.pl | 3 +-- tools/exceptionHolidays.pl | 3 +-- tools/holidays.pl | 3 +-- tools/import_borrowers.pl | 3 +-- tools/koha-news.pl | 3 +-- tools/letter.pl | 3 +-- tools/manage-marc-import.pl | 3 +-- tools/newHolidays.pl | 24 ++++++++++++++++++++---- tools/overduerules.pl | 3 +-- tools/quotes-upload.pl | 3 +-- tools/quotes.pl | 3 +-- tools/quotes/quotes-upload_ajax.pl | 3 +-- tools/quotes/quotes_ajax.pl | 3 +-- tools/scheduler.pl | 3 +-- tools/stage-marc-import.pl | 3 +-- tools/upload-cover-image.pl | 3 +-- 18 files changed, 37 insertions(+), 38 deletions(-) diff --git a/tools/background-job-progress.pl b/tools/background-job-progress.pl index 811f5b2..625389f 100755 --- a/tools/background-job-progress.pl +++ b/tools/background-job-progress.pl @@ -17,8 +17,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; # standard or CPAN modules used use IO::File; diff --git a/tools/batchMod.pl b/tools/batchMod.pl index 0ab4db7..5f54076 100755 --- a/tools/batchMod.pl +++ b/tools/batchMod.pl @@ -19,8 +19,7 @@ # along with Koha; if not, see . use CGI qw ( -utf8 ); -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use C4::Auth; use C4::Output; use C4::Biblio; diff --git a/tools/copy-holidays.pl b/tools/copy-holidays.pl index 61be91e..309f488 100755 --- a/tools/copy-holidays.pl +++ b/tools/copy-holidays.pl @@ -17,8 +17,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); diff --git a/tools/exceptionHolidays.pl b/tools/exceptionHolidays.pl index 2855189..90b17bc 100755 --- a/tools/exceptionHolidays.pl +++ b/tools/exceptionHolidays.pl @@ -1,7 +1,6 @@ #!/usr/bin/perl -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); diff --git a/tools/holidays.pl b/tools/holidays.pl index fb4272b..207439b 100755 --- a/tools/holidays.pl +++ b/tools/holidays.pl @@ -16,8 +16,7 @@ # along with Koha; if not, see . #####Sets holiday periods for each branch. Datedues will be extended if branch is closed -TG -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); diff --git a/tools/import_borrowers.pl b/tools/import_borrowers.pl index d0aa3eb..d17bc40 100755 --- a/tools/import_borrowers.pl +++ b/tools/import_borrowers.pl @@ -34,8 +34,7 @@ # dates should be in the format you have set up Koha to expect # branchcode and categorycode need to be valid -use strict; -use warnings; +use Modern::Perl; use C4::Auth; use C4::Output; diff --git a/tools/koha-news.pl b/tools/koha-news.pl index 61c3ec6..7c20b5d 100755 --- a/tools/koha-news.pl +++ b/tools/koha-news.pl @@ -22,8 +22,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -# use warnings; FIXME - Bug 2505 +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Koha; diff --git a/tools/letter.pl b/tools/letter.pl index 9222079..ef29c73 100755 --- a/tools/letter.pl +++ b/tools/letter.pl @@ -40,8 +40,7 @@ # TODO This script drives the CRUD operations on the letter table # The DB interaction should be handled by calls to C4/Letters.pm -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Context; diff --git a/tools/manage-marc-import.pl b/tools/manage-marc-import.pl index 55707aa..d503a5e 100755 --- a/tools/manage-marc-import.pl +++ b/tools/manage-marc-import.pl @@ -17,8 +17,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; # standard or CPAN modules used use CGI qw ( -utf8 ); diff --git a/tools/newHolidays.pl b/tools/newHolidays.pl index eb948c7..d123b6d 100755 --- a/tools/newHolidays.pl +++ b/tools/newHolidays.pl @@ -1,9 +1,25 @@ #!/usr/bin/perl -#FIXME: add a license #FIXME: perltidy this file - -use strict; -use warnings; +# +# Copyright 2011 C & P Bibliography Services +# +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# Koha is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public Lic# along with Koha; if not, see . +# along with Koha; if not, see . + + +use Modern::Perl; use CGI qw ( -utf8 ); diff --git a/tools/overduerules.pl b/tools/overduerules.pl index 5c35a8c..616f607 100755 --- a/tools/overduerules.pl +++ b/tools/overduerules.pl @@ -17,8 +17,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; use C4::Output; diff --git a/tools/quotes-upload.pl b/tools/quotes-upload.pl index 5a535be..8339422 100755 --- a/tools/quotes-upload.pl +++ b/tools/quotes-upload.pl @@ -17,8 +17,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use autouse 'Data::Dumper' => qw(Dumper); diff --git a/tools/quotes.pl b/tools/quotes.pl index 1f4dff8..4781d29 100755 --- a/tools/quotes.pl +++ b/tools/quotes.pl @@ -17,8 +17,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use autouse 'Data::Dumper' => qw(Dumper); diff --git a/tools/quotes/quotes-upload_ajax.pl b/tools/quotes/quotes-upload_ajax.pl index 727280c..7a429ab 100755 --- a/tools/quotes/quotes-upload_ajax.pl +++ b/tools/quotes/quotes-upload_ajax.pl @@ -17,8 +17,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use JSON; diff --git a/tools/quotes/quotes_ajax.pl b/tools/quotes/quotes_ajax.pl index 9948313..79fbe6f 100755 --- a/tools/quotes/quotes_ajax.pl +++ b/tools/quotes/quotes_ajax.pl @@ -17,8 +17,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use JSON; diff --git a/tools/scheduler.pl b/tools/scheduler.pl index 809ffae..3cf6b7e 100755 --- a/tools/scheduler.pl +++ b/tools/scheduler.pl @@ -17,8 +17,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use C4::Context; use C4::Scheduler; use C4::Reports::Guided; diff --git a/tools/stage-marc-import.pl b/tools/stage-marc-import.pl index 07a921f..f2acc58 100755 --- a/tools/stage-marc-import.pl +++ b/tools/stage-marc-import.pl @@ -24,8 +24,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; # standard or CPAN modules used use CGI qw ( -utf8 ); diff --git a/tools/upload-cover-image.pl b/tools/upload-cover-image.pl index dd73bbb..009c890 100755 --- a/tools/upload-cover-image.pl +++ b/tools/upload-cover-image.pl @@ -37,8 +37,7 @@ resized, maintaining aspect ratio. =cut -use strict; -use warnings; +use Modern::Perl; use File::Temp; use CGI qw ( -utf8 ); -- 2.1.4