libvideosite: Add per-window debug support

diff --git a/libvideosite.pm b/libvideosite.pm
index 8791c64..f7f3d9d 100644 (file)
--- a/libvideosite.pm
+++ b/libvideosite.pm
@@ -25,6 +25,7 @@ use strict;
 my @outputstack;
 my $outputprefix;
 my $debug = 0;
 my @outputstack;
 my $outputprefix;
 my $debug = 0;

+my %debugwindows = ();

 my @grabbers;
 my @getters;
 my $getter;
 my @grabbers;
 my @getters;
 my $getter;


@@ -113,19 +114,11 @@ my $videosite_commands = {
     },
 
     'debug' => sub {
     },
 
     'debug' => sub {

-        $debug = 1;
-        foreach (@grabbers, @getters) {
-            $_->setdebug(1);
-        }
-        _io('Enabled debugging');
+        _cmd_debug(@_);

     },
 
     'nodebug' => sub {
     },
 
     'nodebug' => sub {

-        $debug = 0;
-        foreach (@grabbers, @getters) {
-            $_->setdebug(0);
-        }
-        _io('Disabled debugging');
+        _cmd_nodebug(@_);

     },
 };
 
     },
 };
 


@@ -156,7 +149,7 @@ sub _io {
     #
     @text = map { defined($_)?$remote_api->{quote}->($_):'(undef)' } @text;
 
     #
     @text = map { defined($_)?$remote_api->{quote}->($_):'(undef)' } @text;
 

-    $outputstack[0]->(sprintf($format, @text));
+    $outputstack[0]->{ewpf}->(sprintf($format, @text));

 }
 
 #
 }
 
 #


@@ -206,8 +199,18 @@ sub _init_config_item {
 # Print a message if debug is enabled
 #
 sub _debug {
 # Print a message if debug is enabled
 #
 sub _debug {

+    my @data = @_;
+
+    $data[0] = "DEBUG: " . $data[0];
+
+    # Check for global debug

     if ($debug) {
     if ($debug) {

-        _io(@_);
+        _io(@data);
+    } else {
+        # Check if current window is in the per-window-debug list
+        if (exists($debugwindows{$outputstack[0]->{window}})) {
+            _io(@data);
+        }

     }
 }
 
     }
 }
 


@@ -253,12 +256,12 @@ sub _ploader {
             push(@g, $g);
             $g->register_api({
                 io => \&_io,
             push(@g, $g);
             $g->register_api({
                 io => \&_io,

+                io_debug => \&_debug,

                 connectors => sub { return _connectorlist('active-connectors') },
                 config_get => \&_config_get,
                 config_set => \&_config_set,
                 config_has => \&_config_has,
             });
                 connectors => sub { return _connectorlist('active-connectors') },
                 config_get => \&_config_get,
                 config_set => \&_config_set,
                 config_has => \&_config_has,
             });

-            $g->setdebug($debug);

         } else {
             _io('%s has wrong type (got %s, expected %s)', $p, $g->{'TYPE'}, $type);
             delete($INC{$p});
         } else {
             _io('%s has wrong type (got %s, expected %s)', $p, $g->{'TYPE'}, $type);
             delete($INC{$p});


@@ -523,6 +526,8 @@ sub _expand_url_shortener {
 # Save the config to durable storage
 #
 sub _cmd_save {
 # Save the config to durable storage
 #
 sub _cmd_save {

+    my $event = shift;
+

     if ($remote_api->{config_save}->()) {
         _io("Config saved");
     } else {
     if ($remote_api->{config_save}->()) {
         _io("Config saved");
     } else {


@@ -534,6 +539,7 @@ sub _cmd_save {
 # Set a configuration element
 #
 sub _cmd_set {
 # Set a configuration element
 #
 sub _cmd_set {

+    my $event = shift;

     my $target = shift;
     my $key = shift;
     my $val = shift;
     my $target = shift;
     my $key = shift;
     my $val = shift;


@@ -553,6 +559,7 @@ sub _cmd_set {
 # Enable a given module
 #
 sub _cmd_enable {
 # Enable a given module
 #
 sub _cmd_enable {

+    my $event = shift;

     my $target = shift;
     my $p;
 
     my $target = shift;
     my $p;
 


@@ -569,6 +576,7 @@ sub _cmd_enable {
 # Disable given module
 #
 sub _cmd_disable {
 # Disable given module
 #
 sub _cmd_disable {

+    my $event = shift;

     my $target = shift;
     my $p;
 
     my $target = shift;
     my $p;
 


@@ -585,6 +593,7 @@ sub _cmd_disable {
 # Show settings for modules
 #
 sub _cmd_show {
 # Show settings for modules
 #
 sub _cmd_show {

+    my $event = shift;

     my $target = shift;
     my $p;
     my $e;
     my $target = shift;
     my $p;
     my $e;


@@ -615,6 +624,7 @@ sub _cmd_show {
 # Show help for the commands
 #
 sub _cmd_help {
 # Show help for the commands
 #
 sub _cmd_help {

+    my $event = shift;

     my $target = shift;
     my $p;
 
     my $target = shift;
     my $p;
 


@@ -649,6 +659,7 @@ EOT
 # Set the getter to use
 #
 sub _cmd_getter {
 # Set the getter to use
 #
 sub _cmd_getter {

+    my $event = shift;

     my $target = shift;
     my $p;
 
     my $target = shift;
     my $p;
 


@@ -671,6 +682,7 @@ sub _cmd_getter {
 # Show/set the working mode
 #
 sub _cmd_mode {
 # Show/set the working mode
 #
 sub _cmd_mode {

+    my $event = shift;

     my $mode = shift;
 
     if (defined($mode)) {
     my $mode = shift;
 
     if (defined($mode)) {


@@ -691,6 +703,7 @@ sub _cmd_mode {
 # Manage the connectors
 #
 sub _cmd_connector {
 # Manage the connectors
 #
 sub _cmd_connector {

+    my $event = shift;

     my $subcmd = shift;
     my $c;
 
     my $subcmd = shift;
     my $c;
 


@@ -853,6 +866,49 @@ sub _cmd_connector {
 }
 
 #
 }
 
 #

+# Enable debug.
+# Global debug if the keyword "all" is given, or just for the
+# current window otherwise
+#
+sub _cmd_debug {
+    my $event = shift;
+    my $scope = shift;
+
+    if (defined($scope) and (lc($scope) eq 'all')) {
+        _io("Global debug enabled");
+        $debug = 1;
+    } else {
+        _io("Debug for this window enabled");
+        $debugwindows{$event->{window}} = 1;
+    }
+
+    _io("keys in debugwindows: %s", join(", ", keys(%debugwindows)));
+}
+
+#
+# Disable debug
+# Disable global debug if the keyword "all" is given (this will
+# also disable all per-window debugs) or just for the current
+# window
+#
+sub _cmd_nodebug {
+    my $event = shift;
+    my $scope = shift;
+
+    if (defined($scope) and (lc($scope) eq 'all')) {
+        $debug = 0;
+        %debugwindows = ();
+        _io("Global debug disabled");
+    } else {
+        delete($debugwindows{$event->{window}});
+        _io("Debug for this window disabled");
+    }
+
+    _io("keys in debugwindows: %s", join(", ", keys(%debugwindows)));
+}
+
+
+#

 # Return the list of loaded grabbers.
 # This is used by the test programs, and is not meant to be
 # used in general.
 # Return the list of loaded grabbers.
 # This is used by the test programs, and is not meant to be
 # used in general.


@@ -982,7 +1038,7 @@ sub register_api {
         $debug = $a->{_debug}->();
     }
 
         $debug = $a->{_debug}->();
     }
 

-    @outputstack = ($remote_api->{'io'});
+    @outputstack = ({ewpf => $remote_api->{'io'}, window => ""});

 
     return 1;
 }
 
     return 1;
 }


@@ -1008,7 +1064,7 @@ sub check_for_link {
         $mode = 'display';
     }
 
         $mode = 'display';
     }
 

-    _push_output($event->{ewpf});
+    _push_output($event);

     $message = _expand_url_shortener($message);
 
     study($message);
     $message = _expand_url_shortener($message);
 
     study($message);


@@ -1075,10 +1131,10 @@ sub handle_command {
     my $event = shift;
     my ($cmd, @params) = split(/\s+/, $event->{message});
 
     my $event = shift;
     my ($cmd, @params) = split(/\s+/, $event->{message});
 

-    _push_output($event->{ewpf});
+    _push_output($event);

 
     if (exists($videosite_commands->{$cmd})) {
 
     if (exists($videosite_commands->{$cmd})) {

-        $videosite_commands->{$cmd}->(@params);
+        $videosite_commands->{$cmd}->($event, @params);

     }
 
     _pop_output();
     }
 
     _pop_output();