#!/usr/bin/perl

# Copyright (C) 2007-2012 by X2Go project, http://wiki.x2go.org
#       Oleksandr Shneyder <oleksandr.shneyder@obviously-nice.de>

# X2Go 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; either version 2 of the License, or
# (at your option) any later version.
#
# X2Go 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, write to the
# Free Software Foundation, Inc.,
# 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.


use strict;
use File::Path::Expand;
use IPC::Open3;

sub catch_term
{
	system ("killall --user x2gothinclient --wait x2goclient");
	system ("killall --wait Xorg");
	system ("killall --user x2gothinclient --wait pulseaudio");
	system ("killall --user x2gothinclient --wait dbus-daemon");
	system ("killall --user x2gothinclient --wait dbus-launch");
	unlink("/var/run/x2gothinclient.pid");
	exit;
}

sub check_x
{
	my $x=`ps ax | grep X`;
	if ( $x=~m/usr.bin.(Xorg|X)/ )
	{
		return 1;
	}
	return 0;
}

sub check_pulse
{
	my $pulse=`ps ax | grep pulse`;

	if ( $pulse=~m/pulseaudio/)
	{
		return 1;
	}
	return 0;
}

sub check_client
{
	my $client=`ps ax | grep x2goc`;

	if ( $client=~m/lient/)
	{
		return 1;
	}
	return 0;
}

# make sure the .halt file is not present when we start this script
system("rm -f ~x2gothinclient/.halt");

# pre-load the thinclient initialization script
system("su x2gothinclient -c \". /etc/x2go/x2gothinclient_init\"");

# fork to background, check if forked state is ok...
my $pid = fork();
if (not defined $pid) 
{
	print "resources not avilable.\n";
} 
elsif ($pid != 0) 
{
	open (F,">/var/run/x2gothinclient.pid");
	print F "$pid\n";
	close(F);
}
elsif ($pid == 0 )
{

	# silence this daemon script completely...
	close(STDOUT);
	close(STDERR);

	$SIG{TERM}=\&catch_term;

	while(sleep 1)
	{
		# test if shutdown button on X2Go Client was clicked
		if (-e expand_filename("~x2gothinclient/.halt"))
		{
			# when used with plymouth, make sure we stay on the correct terminal
			system("killall Xorg");
			system("shutdown -h now");
			system("chvt 7");
		}
		# test if XServer is running, if not launch it...
		if ( check_x() ==0 )
		{
			system("/usr/bin/Xorg -br &");

			# wait for X-Server to come up
			sleep(3);

			# align displays next to each other in order of appearance in xrandr
			my $this_display;
			my $next_display;
			foreach (`DISPLAY=:0 LANG=C xrandr 2>/dev/null | grep ' connected ' | cut -d ' ' -f1`)
			{
				$next_display = $_;
				$next_display =~ s/\n//;
				if (defined($this_display))
				{
					`DISPLAY=:0 /usr/bin/xrandr --output $next_display --left-of $this_display`;
				}
				$this_display = $next_display;
			}
		}

		# test if pulseaudio is running, if not launch it...
		if ( !check_pulse() )
		{
			system("su - x2gothinclient -c \"DISPLAY=:0 pulseaudio -D -n \\
			-L 'module-native-protocol-tcp port=4713' \\
			-L 'module-udev-detect' --exit-idle-time=65535\"");
		}

		# test if x2goclient is running, if not launch it...
		if ( !check_client() ) {
			qx(su - x2gothinclient -c \"export DISPLAY=:0; /etc/x2go/x2gothinclient_start\ 1>/dev/null 2>/dev/null");
		}
	}
}
