| Server IP : 127.0.1.1 / Your IP : 216.73.216.152 Web Server : Apache/2.4.52 (Ubuntu) System : Linux bahcrestlinepropertiesllc 5.15.0-113-generic #123-Ubuntu SMP Mon Jun 10 08:16:17 UTC 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.33 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /lib/byobu/include/ |
Upload File : |
#!/usr/bin/perl
#
# notify_osd: perform some string manipulation on notify-osd messages
# and then send to the screen message window
# Copyright (C) 2010 Canonical Ltd.
#
# Authors: Dustin Kirkland <kirkland@byobu.org>
# with help from Mathias Gug <mathias.gug@canonical.com>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, version 3 of the License.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
$/ = "\n\n";
$PKG = "byobu";
$sleep = 5;
while (<STDIN>) {
# Ensure that the notify_osd indicator is enabled
my $skip = 0;
open(F, "<$ENV{BYOBU_CONFIG_DIR}/status");
foreach my $i (<F>) {
if ($i =~ /notify_osd=0/) {
$skip = 1;
}
}
close(F);
if ($skip == 1) {
next;
}
$msg = $_;
$msg =~ s/\[[^,]*, //; # strip the leading "[timestamp, "
$msg =~ s/\] /: /; # replace the " ] " following the indicator name, with ":"
$msg =~ s/\s+/ /g; # collapse multi-whitespace into one
$msg =~ s/\s+$//g; # strip trailing whitespace
$msg =~ s/^\s+//g; # strip leading whitespace
system("/usr/bin/screen", "-X", "-S", "$ARGV[0]", "at", "*", "msgwait", "$sleep");
system("/usr/bin/screen", "-X", "-S", "$ARGV[0]", "at", "*", "echo", "[$msg]");
sleep($sleep);
system("/usr/bin/screen", "-X", "-S", "$ARGV[0]", "at", "*", "msgwait", "0");
}