mh_sbsplitmode.pl v1.07

provides a statusbar item showing if your server is in splitmode and /splitmode to show details

changes:
added namespace to MSGLEVEL
code cleanup

1 files changed, 31 insertions, 28 deletions

diff --git a/scripts/mh_sbsplitmode.pl b/scripts/mh_sbsplitmode.pl
index e3b15e2..79ebb6d 100644
--- a/scripts/mh_sbsplitmode.pl
+++ b/scripts/mh_sbsplitmode.pl
@@ -1,8 +1,8 @@
 ##############################################################################
 #
-# mh_sbsplitmode.pl v1.06 (20151227)
+# mh_sbsplitmode.pl v1.07 (20160213)
 #
-# Copyright (c) 2015  Michael Hansen
+# Copyright (c) 2015, 2016  Michael Hansen
 #
 # Permission to use, copy, modify, and distribute this software
 # for any purpose with or without fee is hereby granted, provided
@@ -59,6 +59,10 @@
 # see '/help statusbar' for more details and do not forget to '/save'
 #
 # history:
+#
+#	v1.07 (20160213)
+#		added namespace to MSGLEVEL
+#		code cleanup
 #	v1.06 (20151227)
 #		added _print/_print_details and supporting code
 #		/splitmode now prints stats d unavailable in a bit nicer way
@@ -95,7 +99,7 @@ use strict;
 use Irssi 20100403;
 use Irssi::TextUI;
 
-our $VERSION = '1.06';
+our $VERSION = '1.07';
 our %IRSSI   =
 (
 	'name'        => 'mh_sbsplitmode',
@@ -104,7 +108,7 @@ our %IRSSI   =
 	'authors'     => 'Michael Hansen',
 	'contact'     => 'mh on IRCnet #help',
 	'url'         => 'http://scripts.irssi.org / https://github.com/mh-source/irssi-scripts',
-	'changed'     => 'Sun Dec 27 11:50:52 CET 2015',
+	'changed'     => 'Sat Feb 13 14:18:00 CET 2016',
 );
 
 ##############################################################################
@@ -123,19 +127,19 @@ our $state;
 
 sub trim_space
 {
-   my ($string) = @_;
-
-   if (defined($string))
-   {
-      $string =~ s/^\s+//g;
-      $string =~ s/\s+$//g;
+	my ($string) = @_;
 
-   } else {
+	if (defined($string))
+	{
+		$string =~ s/^\s+//g;
+		$string =~ s/\s+$//g;
 
-      $string = '';
-   }
+	} else
+	{
+		$string = '';
+	}
 
-   return($string);
+	return($string);
 }
 
 ##############################################################################
@@ -281,8 +285,8 @@ sub signal_redir_event_248
 			{
 				$format_data = 'is in';
 
-			} else {
-
+			} else
+			{
 				$details = 0;
 				$format_data = 'is no longer in';
 			}
@@ -365,8 +369,8 @@ sub command_splitmode
 				{
 					$format_data = 'Splitmode unavailable';
 
-				} else {
-
+				} else
+				{
 					if ($state->{$servertag}->{'s'})
 					{
 						$format_data = 'In splitmode';
@@ -376,8 +380,8 @@ sub command_splitmode
 							$format_data = $format_data . ' since ' . localtime($state->{$servertag}->{'s'});
 						}
 
-					} else {
-
+					} else
+					{
 						$format_data = 'Not in splitmode';
 					}
 
@@ -386,19 +390,18 @@ sub command_splitmode
 
 				if ($format_detail ne '')
 				{
-					Irssi::active_win->printformat(MSGLEVEL_CRAP, 'mh_sbsplitmode_line', $format_server, $format_data, $format_detail);
-
-				} else {
+					Irssi::active_win->printformat(Irssi::MSGLEVEL_CRAP, 'mh_sbsplitmode_line', $format_server, $format_data, $format_detail);
 
-					Irssi::active_win->printformat(MSGLEVEL_CRAP, 'mh_sbsplitmode_line_no_detail', $format_server, $format_data);
+				} else
+				{
+					Irssi::active_win->printformat(Irssi::MSGLEVEL_CRAP, 'mh_sbsplitmode_line_no_detail', $format_server, $format_data);
 				}
 			}
 		}
 
-	} else {
-
-		Irssi::active_win->printformat(MSGLEVEL_CRAP, 'mh_sbsplitmode_error', 'No servers');
-
+	} else
+	{
+		Irssi::active_win->printformat(Irssi::MSGLEVEL_CRAP, 'mh_sbsplitmode_error', 'No servers');
 	}
 }