Tidy

diff --git a/CGI/message.pl b/CGI/message.pl
index e53baf143a65f85d8eba4cda6e8bc563d4a82b30..c4f812a547b17ba5b5d1063373f85d03dc2518de 100755 (executable)
--- a/CGI/message.pl
+++ b/CGI/message.pl
@@ -67,8 +67,7 @@ if ( $mode =~ m,^part/([0-9]+)/?$, ) {
     $partid = $1;
 }
 
-if ( $lookup_key eq "message" )
-{
+if ( $lookup_key eq "message" ) {
     $msg = Emesinae::Message->lookup_id( $dbh, $lookup_value );
 }
 elsif ( $lookup_key eq "mid" ) {

diff --git a/Emesinae/CGI/Message.pm b/Emesinae/CGI/Message.pm
index 8a26a0c6951a7dd8a79eee9afaaaef93f1932725..7bbfea2799dce7d0e8472c099bfce664430e2cc5 100644 (file)
--- a/Emesinae/CGI/Message.pm
+++ b/Emesinae/CGI/Message.pm
@@ -188,7 +188,7 @@ sub format_html ($;$) {
                 hdr( "To",         $m->{to}->stringify ),
                 hdr( "Cc",         $m->{cc}->stringify ),
                 hdr( "Subject",    $m->{subject}->stringify ),
-                hdr( "Date",       $m->{date} ? $m->{date}->stringify : undef),
+                hdr( "Date",       $m->{date} ? $m->{date}->stringify : undef ),
                 hdr( "Message-ID", $m->{msgid} )
             )
         )

diff --git a/Emesinae/Message.pm b/Emesinae/Message.pm
index 509d7eaff5a165b2507e61553cf3fd244e8620ad..659e2a627735b3b7cfb3a5d69c8cb13d1f476eaf 100644 (file)
--- a/Emesinae/Message.pm
+++ b/Emesinae/Message.pm
@@ -39,12 +39,12 @@ sub lookup_id {
         inserted => $inserted,
         msgtype  => $msgtype,
         date     => $date ? Mail::Field::Date->new( 'date', $date ) : undef,
-        from     => Mail::Field::AddrList->new( 'from', $from ),
-        to       => Mail::Field::AddrList->new( 'to', $to ),
-        cc       => Mail::Field::AddrList->new( 'cc', $cc ),
-        id       => $id,
-        msgid    => $msgid,
-        subject  => Mail::Field->new( 'subject', $subj ),
+        from    => Mail::Field::AddrList->new( 'from', $from ),
+        to      => Mail::Field::AddrList->new( 'to',   $to ),
+        cc      => Mail::Field::AddrList->new( 'cc',   $cc ),
+        id      => $id,
+        msgid   => $msgid,
+        subject => Mail::Field->new( 'subject',        $subj ),
     };
 
     bless $self, $class;
@@ -103,10 +103,10 @@ sub lookup_msgid {
         msgid    => $msgid,
         msgtype  => $msgtype,
         date     => $date ? Mail::Field::Date->new( 'date', $date ) : undef,
-        from     => Mail::Field::AddrList->new( 'from', $from ),
-        to       => Mail::Field::AddrList->new( 'to', $to ),
-        cc       => Mail::Field::AddrList->new( 'cc', $cc ),
-        subject  => Mail::Field->new( 'subject', $subj ),
+        from    => Mail::Field::AddrList->new( 'from', $from ),
+        to      => Mail::Field::AddrList->new( 'to',   $to ),
+        cc      => Mail::Field::AddrList->new( 'cc',   $cc ),
+        subject => Mail::Field->new( 'subject',        $subj ),
     };
 
     bless $self, $class;

diff --git a/scripts/control.pl b/scripts/control.pl
index da0b33a742f7cfd2240d2f28eb7b02fefb636581..13bd5a1281942ed47df5023bd69d71493c593c56 100755 (executable)
--- a/scripts/control.pl
+++ b/scripts/control.pl
@@ -226,7 +226,7 @@ sub lookup_msgid ($) {
     my $msgid = parse_msgid(shift);
     my $msg = Emesinae::Message->lookup_msgid( $dbh, $msgid, Insert => 1 );
     die "lookup_msgid or insert failed" unless $msg;
-    return $msg
+    return $msg;
 }
 
 sub lookup_bugid ($) {

diff --git a/scripts/queuerunner.pl b/scripts/queuerunner.pl
index d6126bf544bda0836258a01f0bc992816a024b97..f52fcf97be644cd46bc1afca4122c8bc11901786 100755 (executable)
--- a/scripts/queuerunner.pl
+++ b/scripts/queuerunner.pl
@@ -72,7 +72,8 @@ while (1) {
     $cc == $c || die "$cc $c $!";
     my $status = $?;
     if ($status) {
-        print( STDERR "[$$] $id: process failed ($status $!) - now in [GP]$id\n" )
+        print( STDERR
+              "[$$] $id: process failed ($status $!) - now in [GP]$id\n" )
           || die $!;
     }
     print( STDOUT " done\n" ) || die $!;