xcat-core/xCAT-client/bin/xtcd.pl

#!/usr/bin/perl

#use strict;
use IO::Socket;
use File::Path;
use POSIX qw(:signal_h WNOHANG);
use Sys::Syslog qw(:DEFAULT setlogsock);

my $sock_dir = "/tmp/.xtcd";
mkpath($sock_dir);
my $display = shift;
my $node = shift;
my $title = shift;
my $quit = 0;

my $sock_path = "$sock_dir/$display.$node";

$SIG{CHLD} = sub { while ( waitpid(-1,WNOHANG) > 0 ) { } };
$SIG{HUP} = $SIG{TERM} = $SIG{INT} = sub { $quit++ };

unlink($sock_path);
umask(0111);

my $listen;

$listen = IO::Socket::UNIX->new(
	Local => $sock_path,
	Listen => SOMAXCONN
);
unless($listen) {
	print("xtcd: $display.$node cannot create a listening socket: $@");
	die "cannot create a listening socket $sock_path: $@";
}

while(!$quit) {
	my $connected = $listen->accept();
	my $child = launch_child();

	if(!defined $child) {
		print("xtcd: $display.$node cannot fork, exiting");
		die "cannot fork";
	} 

	if($child) {
		close $connected;
	}
	else {
		close $listen;
		interact($connected);
		exit 0;
	}
}

unlink($sock_path);
exit(0);

sub launch_child {
	my $signals = POSIX::SigSet->new(SIGINT,SIGCHLD,SIGTERM,SIGHUP);
	sigprocmask(SIG_BLOCK,$signals);
	my $child = fork();
	unless($child) {
		$SIG{$_} = 'DEFAULT' foreach qw(HUP INT TERM CHLD);
	}
	sigprocmask(SIG_UNBLOCK,$signals);
	return $child;
}

sub interact {
	my $c = shift;
	my $command;

	my $commandstring = <$c>;
	chomp($commandstring);

	foreach(split(/ /,$commandstring)) {
		$command = $_;

		if($command eq "ping") {
#			print $c "ok ping\n";
		}
		elsif($command =~ /move=/) {
			$command =~ s/move=//;
			my ($x,$y) = split(/x/,$command);
			print "\033[3;${x};${y}t";
#			print $c "ok move\n";
		}
		elsif($command =~ /font=/) {
			$command =~ s/font=//;
			print "\033]50;${command}\007";
#			print $c "ok font\n";
		}
		elsif($command eq "raise") {
			print "\033[5t";
#			print $c "ok raise\n";
		}
		elsif($command eq "lower") {
			print "\033[6t";
#			print $c "ok lower\n";
		}
		elsif($command eq "refresh") {
			print "\033[7t";
#			print $c "ok refresh\n";
		}
		elsif($command eq "iconify") {
			print "\033[2t";
#			print $c "ok iconify\n";
		}
		elsif($command eq "restore") {
			print "\033[1t";
#			print $c "ok restore\n";
		}
		elsif($command eq "title") {
			print "\033]2;${title}\007";
#			print $c "ok title\n";
		}
		elsif($command =~ /title=/) {
			$command =~ s/title=//;
			print "\033]2;${command}\007";
#			print $c "ok title\n";
		}
	}

	close $c;
}