One Hat Cyber Team
Your IP :
3.21.122.130
Server IP :
104.21.80.1
Server :
Linux agrigation-prod 5.15.0-67-generic #74-Ubuntu SMP Wed Feb 22 14:14:39 UTC 2023 x86_64
Server Software :
nginx/1.24.0
PHP Version :
7.4.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
lib
/
byobu
/
include
/
Edit File:
notify_osd
#!/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"); }
Simpan