diff options
author | Perl Tidy <perltidy@bugzilla.org> | 2018-12-05 21:38:52 +0100 |
---|---|---|
committer | Dylan William Hardison <dylan@hardison.net> | 2018-12-05 23:49:08 +0100 |
commit | 8ec8da0491ad89604700b3e29a227966f6d84ba1 (patch) | |
tree | 9d270f173330ca19700e0ba9f2ee931300646de1 /extensions/LimitedEmail/Extension.pm | |
parent | a7bb5a65b71644d9efce5fed783ed545b9336548 (diff) | |
download | bugzilla-8ec8da0491ad89604700b3e29a227966f6d84ba1.tar.gz bugzilla-8ec8da0491ad89604700b3e29a227966f6d84ba1.tar.xz |
no bug - reformat all the code using the new perltidy rules
Diffstat (limited to 'extensions/LimitedEmail/Extension.pm')
-rw-r--r-- | extensions/LimitedEmail/Extension.pm | 62 |
1 files changed, 31 insertions, 31 deletions
diff --git a/extensions/LimitedEmail/Extension.pm b/extensions/LimitedEmail/Extension.pm index 9b504db91..3831ac878 100644 --- a/extensions/LimitedEmail/Extension.pm +++ b/extensions/LimitedEmail/Extension.pm @@ -21,46 +21,46 @@ use Encode qw(encode_utf8); use Bugzilla::Constants qw(bz_locations); sub mailer_before_send { - my ($self, $args) = @_; - my $email = $args->{email}; - my $header = $email->{header}; - return if $header->header('to') eq ''; + my ($self, $args) = @_; + my $email = $args->{email}; + my $header = $email->{header}; + return if $header->header('to') eq ''; - my $blocked = ''; - if (!deliver_to($header->header('to'))) { - $blocked = $header->header('to'); - $header->header_set(to => ''); - } + my $blocked = ''; + if (!deliver_to($header->header('to'))) { + $blocked = $header->header('to'); + $header->header_set(to => ''); + } - my $log_filename = bz_locations->{'datadir'} . '/mail.log'; - my $fh = FileHandle->new(">>$log_filename"); - if ($fh) { - print $fh encode_utf8(sprintf( - "[%s] %s%s %s : %s\n", - time2str('%D %T', time), - ($blocked eq '' ? '' : '(blocked) '), - ($blocked eq '' ? $header->header('to') : $blocked), - $header->header('X-Bugzilla-Reason') || '-', - $header->header('subject') - )); - $fh->close(); - } + my $log_filename = bz_locations->{'datadir'} . '/mail.log'; + my $fh = FileHandle->new(">>$log_filename"); + if ($fh) { + print $fh encode_utf8(sprintf( + "[%s] %s%s %s : %s\n", + time2str('%D %T', time), + ($blocked eq '' ? '' : '(blocked) '), + ($blocked eq '' ? $header->header('to') : $blocked), + $header->header('X-Bugzilla-Reason') || '-', + $header->header('subject') + )); + $fh->close(); + } } sub deliver_to { - my $email = address_of(shift); - my $ra_filters = Bugzilla::Extension::LimitedEmail::FILTERS; - foreach my $re (@$ra_filters) { - if ($email =~ $re) { - return 1; - } + my $email = address_of(shift); + my $ra_filters = Bugzilla::Extension::LimitedEmail::FILTERS; + foreach my $re (@$ra_filters) { + if ($email =~ $re) { + return 1; } - return 0; + } + return 0; } sub address_of { - my $email = shift; - return $email =~ /<([^>]+)>/ ? $1 : $email; + my $email = shift; + return $email =~ /<([^>]+)>/ ? $1 : $email; } __PACKAGE__->NAME; |