add bash color tester

diff --git a/bash_colors b/bash_colors
new file mode 100755 (executable)
index 0000000..8b0f839
--- /dev/null
+++ b/bash_colors
@@ -0,0 +1,26 @@
+#!/bin/bash
+#
+#   This file echoes a bunch of color codes to the 
+#   terminal to demonstrate what's available.  Each 
+#   line is the color code of one forground color,
+#   out of 17 (default + 16 escapes), followed by a 
+#   test use of that color on all nine background 
+#   colors (default + 8 escapes).
+#
+
+T='gYw'   # The test text
+
+echo -e "\n                 40m     41m     42m     43m\
+     44m     45m     46m     47m";
+
+for FGs in '    m' '   1m' '  30m' '1;30m' '  31m' '1;31m' '  32m' \
+           '1;32m' '  33m' '1;33m' '  34m' '1;34m' '  35m' '1;35m' \
+           '  36m' '1;36m' '  37m' '1;37m';
+  do FG=${FGs// /}
+  echo -en " $FGs \033[$FG  $T  "
+  for BG in 40m 41m 42m 43m 44m 45m 46m 47m;
+    do echo -en "$EINS \033[$FG\033[$BG  $T  \033[0m";
+  done
+  echo;
+done
+echo

diff --git a/parse_banlist b/parse_banlist
index c1a9a8faf89ff37409d74a9eb403f47e6d931243..9548f64e3fe72d666206666d2d9b1ef0423aa079 100755 (executable)
--- a/parse_banlist
+++ b/parse_banlist
@@ -87,17 +87,17 @@ my @bans_to_remove;
 
 while (<$bans_fh>) {
      # pull the ban and the times.
-     print {$bans_k_fh} $_ and next unless my ($channel, $banmask, $time) = 
-         $_ =~ /(\#\w+)\:\s+ban\s+([\w\d\*\@\%\!\-\_\.]+)\s+\[by\s*.*?\,\s+(\d+)\s+secs/;
-     print {$bans_k_fh} $_ and next unless $time > $options{age};
+     print {$bans_k_fh} "nomatch: $_" and next unless my ($channel, $banmask, $time) = 
+         $_ =~ /(\#\w+)\:\s+ban\s+([^\s]+)\s+\[by\s*.*?\,\s+(\d+)\s+secs/;
+     print {$bans_k_fh} "time: $_" and next unless $time > $options{age};
 
      # Ignore bans against specific users.
      if ($options{user}) {
-         print {$bans_k_fh} $_ and next if $banmask =~ /^\%?\w/
+         print {$bans_k_fh} "user: $_" and next if $banmask =~ /^\%?\w/
      }
      # Ignore wide bans
      if ($options{wide}) {
-         print {$bans_k_fh} $_ and next if $banmask =~ /\*\!.*?\@.*\*.*/;
+         print {$bans_k_fh} "wide: $_" and next if $banmask =~ /\*\!.*?\@.*\*.*/;
      }
 
      push @bans_to_remove, $banmask;

diff --git a/renamepic b/renamepic
index e89dc073b9d3c49a07802d685627d50f1a716df7..be6f9e1147f648d7e9b91940618367a6958260d1 100755 (executable)
--- a/renamepic
+++ b/renamepic
@@ -101,7 +101,7 @@ while (defined($_ = $current_directory->read)) {
 foreach my $picture (@pictures) {
      my $line = sprintf('%03s',$file_counter).$$picture{default_name};
      # view the image
-     `feh -FZ $$picture{old_name} > /dev/null` unless $$config{renumber_only};
+     `feh -Z $$picture{old_name} > /dev/null` unless $$config{renumber_only};
 
      #prompt to rename the picture
      print "Rename $$picture{old_name}\n";