option -all for !get

lib/commands/get.pm

@@ -16,8 +16,9 @@ sub exec {
     my @tags = ($msg =~ /#?([a-zA-Z0-9_-]+)/g);
     my $content;
 
-    # if we are in a query, we search in all the channels
-    my $all = ($chan->[0] !~ /^#/) ? 1 : 0;
+    # if we are in a query or arg -all, we search in all the channels
+    my $all = 0;
+    $all = 1 if ($chan->[0] !~ /^#/ || $chan->[0] =~ s/-all//);
 
     if (@tags) {
         my $params = join ', ' => ('?') x @tags;