From dd034b71b47d70afb6d94d8adc26e205aef04d85 Mon Sep 17 00:00:00 2001
From: Thomas Hochstein <thh@thh.name>
Date: Sun, 1 Feb 2026 00:40:30 +0100
Subject: [PATCH] Fix indenting.

Signed-off-by: Thomas Hochstein <thh@thh.name>
---
 MOD/DBIUtils.pm |  2 +-
 bin/poster.pl   | 37 +++++++++++++++++++------------------
 2 files changed, 20 insertions(+), 19 deletions(-)

diff --git a/MOD/DBIUtils.pm b/MOD/DBIUtils.pm
index fcdb029..c7b1bec 100644
--- a/MOD/DBIUtils.pm
+++ b/MOD/DBIUtils.pm
@@ -101,7 +101,7 @@ sub enter_table($$$$)
     {
       if ($values[$i])
       {
-	$msg .= "\n*** " . $columns[$i] . "***\n" . $values[$i];
+        $msg .= "\n*** " . $columns[$i] . "***\n" . $values[$i];
       }
     }
     $self->increase_errorlevel($article_id, $msg);
diff --git a/bin/poster.pl b/bin/poster.pl
index bc03158..0dd9cc5 100755
--- a/bin/poster.pl
+++ b/bin/poster.pl
@@ -129,7 +129,7 @@ while (my $ref = $dataref->fetchrow_arrayref)
   my ($id,$posting) = @{$ref};
   next unless($dbi->set_status($id, 'sending', [ 'moderated' ]));
 
-# Posting einlesen.
+  # Posting einlesen.
   my $article = News::Article->new(\$posting);
   next if (!defined($article->header('Newsgroups')));
 
@@ -189,23 +189,24 @@ while (my $ref = $dataref->fetchrow_arrayref)
     'X-Zedat-Hint',        # FU Berlin (moderators.dana.de)
   );
 
-#albasani-workaround fuer @invalid
+  # albasani-workaround fuer @invalid
   if ($article->header('From') =~ /\@invalid[> ]/i) {
       my $newfrom = $article->header('From');
       $newfrom =~ s/\@invalid/\@invalid.invalid/i;
       $article->set_headers('From',$newfrom);
   }      
-# albasani-workaround fuer leere User-Agent headerzeilen
+  # albasani-workaround fuer leere User-Agent headerzeilen
   if (defined $article->header('User-Agent') and $article->header('User-Agent') !~ /\w/) {
      $article->drop_headers(('User-Agent'));
   }
 
-#Neue Message-ID und Approved-Header erzeugen
- my $mid = defined($article->header('Message-ID')) ? $article->header('Message-ID') :
-          '<' . substr (rand() . '-' . time(), 2) . '@' . $config{'mid_fqdn'} . '>';
- $article->set_headers('Message-ID', $mid, 'Approved', $approve_string);
 
-#signieren
+  #Neue Message-ID und Approved-Header erzeugen
+  my $mid = defined($article->header('Message-ID')) ? $article->header('Message-ID') :
+           '<' . substr (rand() . '-' . time(), 2) . '@' . $config{'mid_fqdn'} . '>';
+  $article->set_headers('Message-ID', $mid, 'Approved', $approve_string);
+
+  #signieren
   if ($sign_pgpmoose)
   {
     my @msg = $article->sign_pgpmoose($moderated_group, $pgp_passphrase, $pgp_keyid);
@@ -217,16 +218,16 @@ while (my $ref = $dataref->fetchrow_arrayref)
 
   my @articleheaders = $article->header('References');
   eval {
-# Workaround fuer Buggy Software, die kaputte References erzeugt
-   my @references = $article->header('References');
-   if (@references > 1) {
-       $article->set_headers('References', join "\n ", @references);
-   } 
-#posten
-  $article->post($nntp) or die $!;
-#posted-Bit setzen, aktuelle MID in DB eintragen (wird in Zukunft vielleicht mal von einer Zusatzfunktion benoetigt)
-  $dbi->set_posted_status($id,$mid);
- }; 
+    # Workaround fuer Buggy Software, die kaputte References erzeugt
+    my @references = $article->header('References');
+    if (@references > 1) {
+      $article->set_headers('References', join "\n ", @references);
+    }
+    #posten
+    $article->post($nntp) or die $!;
+    #posted-Bit setzen, aktuelle MID in DB eintragen (wird in Zukunft vielleicht mal von einer Zusatzfunktion benoetigt)
+    $dbi->set_posted_status($id,$mid);
+  };
   # Fehler in Datenbank festhalten, sofern einer aufgetreten ist
   if ($@) {
     $dbi->increase_errorlevel($id, $@);