From 361efdf53c8379c8e74b3667b17ff24fb594fc63 Mon Sep 17 00:00:00 2001 From: Hadaq Hades Date: Tue, 5 Mar 2019 14:38:40 +0100 Subject: [PATCH] log all actions in gui. mt --- control/gui/Buttons2.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/control/gui/Buttons2.pm b/control/gui/Buttons2.pm index 187a52f..c6c839a 100644 --- a/control/gui/Buttons2.pm +++ b/control/gui/Buttons2.pm @@ -373,7 +373,7 @@ sub make_subroutine { # make subroutines #sub slot0Pressed { my $c = buttons->[0]; $c = "cd ../control; ./$c"; print "will execute: $c\n"; qx($c); } - my $str = qq|sub slot| . $i . qq|Pressed { my \$c = this->{self}->{ra_buttons}->[$i]; \$c = "cd $dir; ./\$c &"; print "will execute: \$c\n"; system(\$c); }|; + my $str = qq|sub slot| . $i . qq|Pressed { my \$c = this->{self}->{ra_buttons}->[$i]; \$c = "cd $dir; control_gui_logger.sh \$c; ./\$c &"; print "will execute: \$c\n"; system(\$c); }|; # my $str = qq|sub slot| . $i . qq|Pressed { print "$i pressed\n"; }|; #system(\$c); }|; #print "sub: $str\n"; -- 2.43.0