- #!/usr/bin/perl
- my $cmd = "dbus-monitor --session \"type='signal',interface='org.gnome.ScreenSaver',member='ActiveChanged'\"";
- open (IN, "$cmd |");
- while (<IN>) {
- if (m/^\s+boolean true/) {
- system("qbittorrent");
- }
- }
SHARE
TWEET
Ubuntu 10.04 PERL/BASH Lanch BASH CMD on Screensaver
a guest
Nov 17th, 2012
18
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
RAW Paste Data
