From 672213bc1ba115ce472f90e7defee592bb929f3b Mon Sep 17 00:00:00 2001
From: Andreas Scherbaum <andreas@scherbaum.biz>
Date: Fri, 24 Feb 2012 15:38:34 +0100
Subject: [PATCH] - change spacing

---
 docbot.pl | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/docbot.pl b/docbot.pl
index 87ca429..cf2764f 100755
--- a/docbot.pl
+++ b/docbot.pl
@@ -374,22 +374,22 @@ sub config_get_keys1 {
 #  none
 sub validate_config {
     if (!config_get_key2('bot', 'commandchannel')) {
-      die("Please set config value 'bot:commandchannel'\n");
+        die("Please set config value 'bot:commandchannel'\n");
     }
     if (!config_get_key2('database', 'host')) {
-      die("Please set config value 'database:host'\n");
+        die("Please set config value 'database:host'\n");
     }
     if (!config_get_key2('database', 'name')) {
-      die("Please set config value 'database:name'\n");
+        die("Please set config value 'database:name'\n");
     }
     if (!config_get_key2('database', 'username')) {
-      die("Please set config value 'database:username'\n");
+        die("Please set config value 'database:username'\n");
     }
     if (!config_get_key2('irc', 'name')) {
-      die("Please set config value 'irc:name'\n");
+        die("Please set config value 'irc:name'\n");
     }
     if (!config_get_key2('irc', 'server')) {
-      die("Please set config value 'irc:server'\n");
+        die("Please set config value 'irc:server'\n");
     }
 
     my @sessions = config_get_keys1('sessions');
@@ -397,14 +397,14 @@ sub validate_config {
     my %seen_sessions = ();
     foreach my $session (@sessions) {
       if ($session !~ /^\d+$/) {
-        die("Session name ($session) must be numeric!\n");
+          die("Session name ($session) must be numeric!\n");
       }
       my $nickname = config_get_key3('sessions', $session, 'nickname');
       if (defined($seen_nicknames{$nickname}) and $seen_nicknames{$nickname} == 1) {
-        die("Please use different nicknames for each session!\n");
+          die("Please use different nicknames for each session!\n");
       }
       if ($nickname !~ /^[a-zA-Z0-9_\-]+/) {
-        die("Please use a different nickname: $nickname\n");
+          die("Please use a different nickname: $nickname\n");
       }
       $seen_nicknames{$nickname} = 1;
       $seen_sessions{$session} = 1;
@@ -559,7 +559,7 @@ sub print_msg {
     my $level = shift || $main::loglevel;
 
     if ($level > $main::loglevel) {
-      return;
+        return;
     }
 
     my $timestamp = localtime;
@@ -844,7 +844,7 @@ sub death {
     print_msg("death()\n", DEBUG);
     my $text = '';
     if (defined($_[0])) {
-      $text = shift;
+        $text = shift;
     }
 
     if (length($text) > 0) {
@@ -1882,10 +1882,10 @@ sub on_nickused {
         # try another nickname
         $nick_name .= '_';
         if ($nick_name =~ /^(.+?)(_+)$/) {
-          if (length($2) > 2) {
-            # too many '_' in the nick, let's start over again
-            $nick_name = $1;
-          }
+            if (length($2) > 2) {
+                # too many '_' in the nick, let's start over again
+                $nick_name = $1;
+            }
         }
         print_msg("sending new nickname: $nick_name", INFO);
         $irc->yield( nick => $nick_name );
-- 
2.39.5