Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Normalize #! lines on all plugins

find . -type f | xargs -n1 perl -pi.bak -0777 -e '$want = "#!perl -Tw"; s/\A#!.*\n/$want\n/; s/\A([^#])/$want\n\1/s'
  • Loading branch information...
commit 61de599c1bfc5eb8eeea2073c5c0a431dbe6a01f 1 parent 38c7435
@rspier authored
Showing with 65 additions and 43 deletions.
  1. +1 −1  plugins/async/check_earlytalker
  2. +1 −1  plugins/async/dns_whitelist_soft
  3. +1 −1  plugins/async/dnsbl
  4. +1 −1  plugins/async/queue/smtp-forward
  5. +1 −1  plugins/async/require_resolvable_fromhost
  6. +1 −1  plugins/async/rhsbl
  7. +1 −1  plugins/async/uribl
  8. +1 −1  plugins/auth/auth_checkpassword
  9. +1 −1  plugins/auth/auth_cvm_unix_local
  10. +1 −1  plugins/auth/auth_flat_file
  11. +1 −1  plugins/auth/auth_ldap_bind
  12. +1 −1  plugins/auth/auth_vpopmail
  13. +1 −1  plugins/auth/auth_vpopmail_sql
  14. +1 −1  plugins/auth/auth_vpopmaild
  15. +1 −1  plugins/auth/authdeny
  16. +1 −1  plugins/check_badmailfrom_patterns
  17. +1 −1  plugins/check_badmailfromto
  18. +1 −0  plugins/check_badrcptto_patterns
  19. +1 −1  plugins/check_basicheaders
  20. +1 −1  plugins/check_bogus_bounce
  21. +1 −0  plugins/check_earlytalker
  22. +1 −1  plugins/check_loop
  23. +1 −0  plugins/check_norelay
  24. +1 −0  plugins/check_spamhelo
  25. +1 −0  plugins/connection_time
  26. +1 −0  plugins/dns_whitelist_soft
  27. +1 −1  plugins/dnsbl
  28. +1 −0  plugins/domainkeys
  29. +1 −0  plugins/greylisting
  30. +1 −0  plugins/hosts_allow
  31. +1 −0  plugins/http_config
  32. +1 −1  plugins/logging/adaptive
  33. +1 −0  plugins/logging/apache
  34. +1 −1  plugins/logging/connection_id
  35. +1 −1  plugins/logging/devnull
  36. +1 −1  plugins/logging/file
  37. +1 −1  plugins/logging/syslog
  38. +1 −1  plugins/logging/transaction_id
  39. +1 −1  plugins/logging/warn
  40. +1 −0  plugins/milter
  41. +1 −0  plugins/queue/exim-bsmtp
  42. +1 −1  plugins/queue/maildir
  43. +1 −0  plugins/queue/postfix-queue
  44. +1 −0  plugins/queue/smtp-forward
  45. +1 −0  plugins/quit_fortune
  46. +1 −0  plugins/random_error
  47. +1 −0  plugins/rcpt_map
  48. +1 −0  plugins/rcpt_regexp
  49. +1 −1  plugins/relay_only
  50. +1 −0  plugins/require_resolvable_fromhost
  51. +1 −1  plugins/rhsbl
  52. +1 −0  plugins/sender_permitted_from
  53. +1 −1  plugins/spamassassin
  54. +1 −1  plugins/tls
  55. +1 −1  plugins/tls_cert
  56. +1 −1  plugins/uribl
  57. +1 −1  plugins/virus/aveclient
  58. +1 −1  plugins/virus/bitdefender
  59. +1 −1  plugins/virus/clamav
  60. +1 −1  plugins/virus/clamdscan
  61. +1 −1  plugins/virus/hbedv
  62. +1 −1  plugins/virus/kavscanner
  63. +1 −0  plugins/virus/klez_filter
  64. +1 −1  plugins/virus/sophie
  65. +1 −1  plugins/virus/uvscan
View
2  plugins/async/check_earlytalker
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
=head1 NAME
View
2  plugins/async/dns_whitelist_soft
@@ -1,4 +1,4 @@
-#!perl -w
+#!perl -Tw
use Qpsmtpd::Plugin::Async::DNSBLBase;
View
2  plugins/async/dnsbl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
use Qpsmtpd::Plugin::Async::DNSBLBase;
View
2  plugins/async/queue/smtp-forward
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
=head1 NAME
View
2  plugins/async/require_resolvable_fromhost
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
use Qpsmtpd::DSN;
use ParaDNS;
View
2  plugins/async/rhsbl
@@ -1,4 +1,4 @@
-#!perl -w
+#!perl -Tw
use Qpsmtpd::Plugin::Async::DNSBLBase;
View
2  plugins/async/uribl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
use Qpsmtpd::Plugin::Async::DNSBLBase;
View
2  plugins/auth/auth_checkpassword
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
=head1 NAME
View
2  plugins/auth/auth_cvm_unix_local
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
=head1 NAME
View
2  plugins/auth/auth_flat_file
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
=head1 NAME
View
2  plugins/auth/auth_ldap_bind
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -Tw
+#!perl -Tw
sub register {
my ( $self, $qp, @args ) = @_;
View
2  plugins/auth/auth_vpopmail
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
use strict;
=head1 NAME
View
2  plugins/auth/auth_vpopmail_sql
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
=head1 NAME
View
2  plugins/auth/auth_vpopmaild
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl -Tw
use strict;
use warnings;
View
2  plugins/auth/authdeny
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl -Tw
#
# This plugin doesn't actually check anything and will fail any
# user no matter what they type. It is strictly a proof of concept for
View
2  plugins/check_badmailfrom_patterns
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl -Tw
=pod
View
2  plugins/check_badmailfromto
@@ -1,4 +1,4 @@
-#! perl
+#!perl -Tw
=head1 NAME
View
1  plugins/check_badrcptto_patterns
@@ -1,3 +1,4 @@
+#!perl -Tw
=pod
=head1 SYNOPSIS
View
2  plugins/check_basicheaders
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl -Tw
=head1 NAME
View
2  plugins/check_bogus_bounce
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
=head1 NAME
View
1  plugins/check_earlytalker
@@ -1,3 +1,4 @@
+#!perl -Tw
=head1 NAME
check_earlytalker - Check that the client doesn't talk before we send the SMTP banner
View
2  plugins/check_loop
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl -Tw
=head1 NAME
View
1  plugins/check_norelay
@@ -1,3 +1,4 @@
+#!perl -Tw
=pod
=head1 SYNOPSIS
View
1  plugins/check_spamhelo
@@ -1,3 +1,4 @@
+#!perl -Tw
=head1 NAME
check_spamhelo - Check a HELO message delivered from a connecting host.
View
1  plugins/connection_time
@@ -1,3 +1,4 @@
+#!perl -Tw
=head1 NAME
View
1  plugins/dns_whitelist_soft
@@ -1,3 +1,4 @@
+#!perl -Tw
=head1 NAME
dns_whitelist_soft - dns-based whitelist override for other qpsmtpd plugins
View
2  plugins/dnsbl
@@ -1,4 +1,4 @@
-#!perl -w
+#!perl -Tw
=head1 NAME
View
1  plugins/domainkeys
@@ -1,3 +1,4 @@
+#!perl -Tw
sub init {
my ($self, $qp, %args) = @_;
View
1  plugins/greylisting
@@ -1,3 +1,4 @@
+#!perl -Tw
=head1 NAME
denysoft_greylist
View
1  plugins/hosts_allow
@@ -1,3 +1,4 @@
+#!perl -Tw
=head1 NAME
View
1  plugins/http_config
@@ -1,3 +1,4 @@
+#!perl -Tw
=head1 NAME
http_config
View
2  plugins/logging/adaptive
@@ -1,4 +1,4 @@
-#!perl
+#!perl -Tw
# Adaptive logging plugin - logs at one level for successful messages and
# one level for DENY'd messages
View
1  plugins/logging/apache
@@ -1,3 +1,4 @@
+#!perl -Tw
=head1 NAME
View
2  plugins/logging/connection_id
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl -Tw
# this is a simple 'connection_id' plugin like the default builtin logging
#
# It demonstrates that a logging plugin can call ->log itself as well
View
2  plugins/logging/devnull
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl -Tw
# this is a simple 'drop packets on the floor' plugin
sub hook_logging {
View
2  plugins/logging/file
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl -Tw
=head1 NAME
View
2  plugins/logging/syslog
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl -Tw
=head1 NAME
View
2  plugins/logging/transaction_id
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl -Tw
# this is a simple 'transaction_id' plugin like the default builtin logging
#
# It demonstrates that a logging plugin can call ->log itself as well
View
2  plugins/logging/warn
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl -Tw
# this is a simple 'warn' plugin like the default builtin logging
#
# It demonstrates that a logging plugin can call ->log itself as well
View
1  plugins/milter
@@ -1,3 +1,4 @@
+#!perl -Tw
=head1 NAME
milter
View
1  plugins/queue/exim-bsmtp
@@ -1,3 +1,4 @@
+#!perl -Tw
=head1 NAME
exim-bsmtp
View
2  plugins/queue/maildir
@@ -1,4 +1,4 @@
-#!perl
+#!perl -Tw
=head1 NAME
View
1  plugins/queue/postfix-queue
@@ -1,3 +1,4 @@
+#!perl -Tw
=head1 NAME
View
1  plugins/queue/smtp-forward
@@ -1,3 +1,4 @@
+#!perl -Tw
=head1 NAME
smtp-forward
View
1  plugins/quit_fortune
@@ -1,3 +1,4 @@
+#!perl -Tw
sub hook_quit {
my $qp = shift->qp;
View
1  plugins/random_error
@@ -1,3 +1,4 @@
+#!perl -Tw
=head1 NAME
random_error
View
1  plugins/rcpt_map
@@ -1,3 +1,4 @@
+#!perl -Tw
=head1 NAME
View
1  plugins/rcpt_regexp
@@ -1,3 +1,4 @@
+#!perl -Tw
=head1 NAME
rcpt_regexp - check recipients against a list of regular expressions
View
2  plugins/relay_only
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
=head1 NAME
View
1  plugins/require_resolvable_fromhost
@@ -1,3 +1,4 @@
+#!perl -Tw
use Qpsmtpd::DSN;
use Net::DNS qw(mx);
use Socket;
View
2  plugins/rhsbl
@@ -1,4 +1,4 @@
-#!perl -w
+#!perl -Tw
sub register {
my ($self, $qp, $denial ) = @_;
View
1  plugins/sender_permitted_from
@@ -1,3 +1,4 @@
+#!perl -Tw
=head1 NAME
View
2  plugins/spamassassin
@@ -1,4 +1,4 @@
-#!perl -w
+#!perl -Tw
=head1 NAME
View
2  plugins/tls
@@ -1,4 +1,4 @@
-#!perl -w
+#!perl -Tw
=head1 NAME
View
2  plugins/tls_cert
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
# Very basic script to create TLS certificates for qpsmtpd
use File::Temp qw/ tempfile tempdir /;
use Getopt::Long;
View
2  plugins/uribl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
=head1 NAME
View
2  plugins/virus/aveclient
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
=head1 NAME
aveclient
View
2  plugins/virus/bitdefender
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -Tw
+#!perl -Tw
=head1 NAME
View
2  plugins/virus/clamav
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -Tw
+#!perl -Tw
=head1 NAME
View
2  plugins/virus/clamdscan
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
=head1 NAME
View
2  plugins/virus/hbedv
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
# H+B EDV-AV plugin.
#
View
2  plugins/virus/kavscanner
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
# Kasperski-AV plugin.
=head1 NAME
View
1  plugins/virus/klez_filter
@@ -1,3 +1,4 @@
+#!perl -Tw
sub hook_data_post {
my ($self, $transaction) = @_;
View
2  plugins/virus/sophie
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
use IO::Socket;
sub register {
View
2  plugins/virus/uvscan
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!perl -Tw
=head1 NAME
Please sign in to comment.
Something went wrong with that request. Please try again.