Gecko [ paroquia-rio-de-mouro.pt ]

Name	Size	Permission	Date
colors	1.02 KB	-rwxr-xr-x	2016-04-14 21:29
common	1.89 KB	-rwxr-xr-x	2016-04-14 21:29
config.py	10.36 KB	-rwxr-xr-x	2016-04-14 21:29
constants	2.32 KB	-rwxr-xr-x	2016-04-14 21:29
cycle-status	1.35 KB	-rwxr-xr-x	2016-04-14 21:29
dirs	2.58 KB	-rwxr-xr-x	2016-04-14 21:29
ec2instancespricing.py	23.85 KB	-rwxr-xr-x	2016-04-14 21:29
icons	1.73 KB	-rwxr-xr-x	2016-04-14 21:29
mondrian	4.46 KB	-rwxr-xr-x	2016-04-14 21:29
notify_osd	1.74 KB	-rwxr-xr-x	2016-04-14 21:29
select-session.py	5.16 KB	-rwxr-xr-x	2016-04-14 21:29
shutil	8.48 KB	-rwxr-xr-x	2016-04-14 21:29
tmux-detach-all-but-current-client	1.56 KB	-rwxr-xr-x	2016-04-14 21:29
tmux-send-command-to-all-panes	955 B	-rwxr-xr-x	2016-04-14 21:29
tmux-send-command-to-all-windows	881 B	-rwxr-xr-x	2016-04-14 21:29
toggle-utf8	1.65 KB	-rwxr-xr-x	2016-04-14 21:29

Rename

#!/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");
}