my (@uphosts, @livehosts, $host, $hostlist);
if(($_[0] || 0) == 1) {
$hostlist=$state{'hosts'};
my (@uphosts, @livehosts, $host, $hostlist);
if(($_[0] || 0) == 1) {
$hostlist=$state{'hosts'};
- $ret=!(system(@ssh,shift, 'if pidof xscreensaver >/dev/null && DISPLAY=:0.0 xscreensaver-command -version >/dev/null 2>&1; then if DISPLAY=:0.0 xscreensaver-command -time 2>&1 |egrep "non-blanked|no saver status" >/dev/null; then true; else pid=`ps ax|egrep "[0-9]:[0-9][0-9] ssh gob .*(screen.*RR irc|Chat)"|sed -e "s/^ *//"|cut -d" " -f 1`; [ -f "$HOME/.irc.lock" -o -z "$pid" ] || kill $pid; false; fi; else false; fi') >> 8);
+ $ret=!(system(@ssh,shift, 'if pidof xscreensaver >/dev/null && DISPLAY=:0.0 xscreensaver-command -version >/dev/null 2>&1; then if DISPLAY=:0.0 xscreensaver-command -time 2>&1 |egrep "non-blanked|no saver status" >/dev/null; then true; else pid=`ps ax|egrep "[0-9]:[0-9][0-9] ssh michael .*(screen.*RR irc|Chat)"|sed -e "s/^ *//"|cut -d" " -f 1`; [ -f "$HOME/.irc.lock" -o -z "$pid" ] || kill $pid; false; fi; else false; fi') >> 8);
- $state{'status'}=$state{'away'};
- } elsif ($state{'alive'} eq "tobias" || $state{'alive'} eq "lucille") {
- $state{'status'}="On desktop";
+ $state{'status'}=$state{'away'};
+ } elsif ($state{'alive'} eq "tobias") {
+ $state{'status'}="On desktop";
- $state{'status'}="On laptop";
- } elsif ($state{'alive'} eq "buster") {
- $state{'status'}="In bed";
+ $state{'status'}="On laptop";
+ #} elsif ($state{'alive'} eq "buster") {
+ #$state{'status'}="In bed";
}
open CONF, '>' . $ENV{'HOME'} . "/.away-tpope" || die $!;
foreach my $k (keys %state) {
}
open CONF, '>' . $ENV{'HOME'} . "/.away-tpope" || die $!;
foreach my $k (keys %state) {
- open TMP, '>' . $ENV{'HOME'} . "/.activity";
- print TMP $state{'activity'}."\n";
- close TMP;
+ open TMP, '>' . $ENV{'HOME'} . "/.activity";
+ print TMP $state{'activity'}."\n";
+ close TMP;
- open TMP, '>' . $ENV{'HOME'} . "/.away";
- print TMP $state{'away'}."\n";
- close TMP;
+ open TMP, '>' . $ENV{'HOME'} . "/.away";
+ print TMP $state{'away'}."\n";
+ close TMP;
}
open TMP, '>' . $ENV{'HOME'} . "/.status";
print TMP $state{'status'}."\n";
}
open TMP, '>' . $ENV{'HOME'} . "/.status";
print TMP $state{'status'}."\n";