#!/usr/bin/perl

# wait until woken-up by reception of a "Compile MAD for Windows!\n" message
# on the receiving socket

# this script should be scheduled on each startup of the Windows box, with the
# Start->All Programs->Accessories->System Tools->Scheduled Tasks.
# 
# the script is installed under /afs/user/n/nougaret/scractch0/mad-automation
# together with the other scripts, BUT IF I DO SO IT CAN'T BE VIEWED THROUGH SAMBA
# HENCE NEED TO FIND SOMETHING ELSE...

#use MIME::Lite;
use IO::Socket::INET;
use Cwd; # to get current directory on Windows (would work on Linux as well)


# upon start-up, send e-mail
#my $msg = MIME::Lite->new(
#			  From => 'Jean-Luc.Nougaret@cern.ch',
#			  To => 'Jean-Luc.Nougaret@cern.ch',
#			  Subject => 'MAD windows monitor started'
#			  Data => 'now waiting for a trigger signal through dedicated socket port'
#);
#$msg->send;

use Sys::Hostname;


my $os = 'windows';

my $socketPortWindows = 7070; # agreed-up with client
my $socketPortLinux = 7071; # could be the same as above

# my $windowsHost = 'abpc10788';
$windowsHost = hostname;

my $sock = new IO::Socket::INET ( 
				  LocalHost => $windowsHost,
				  LocalPort => $socketPortWindows,
				  Proto => 'tcp',
				  Listen => 1,
				  Reuse => 1
				  ); 

die "Could not create client socket: $!\n" unless $sock; 


print "now accepting messages sent through socket $socketPortWindows\n";

while(1){

    my $receiving = $sock->accept();

    my $clientHost;

while (<$receiving>){
    print $_;
    if (/([\w\d\-\_]+) asks: Compile MAD for Windows!/){ # message signalling compilation trigger
	
	# following is specific to the DOS system
	if ($os eq 'windows'){
	    my $dir = getcwd; # get current working directory
	    print "we are now in $dir\n";
	    chdir("Y:\\MAD-X-WINDOWS\\madX"); # changed Z to Y
            $dir = getcwd;
	    print "we are now in $dir\n";
	    # first make sure we are in sync with the CVS repository
	    my @needsUpdate = `cvs status | grep Need`;
	    print "list of files requiring refreshment from the CVS:\n";
	    foreach $file (@needsUpdate){
		print "$file\n";
	    }
	    # if is cumbersome on Windows, we may assume the CVS synch is already achieved
	    # on the Linux side.


	    print "now trigger compilation of madx.exe, madxp.exe and pars.exe\n";
	    print "(for the time-being, skip compilation)\n";
	    # invoke compilation of madx.exe, madxp.exe and pars.exe
# monday 29 september 2009: comment/uncomment the following:
	    system("MakefileIntel.bat");
	    # moving these files to the proper AFS web folder is left to the calling
	    # Linux-side Perl script...
	    # (an e-mail will be sent to observers of the Windows distribution of MAD-X)

	    # chdir("Z:\\MAD-X\\madX\");
	}

	sleep 5; # necessary ?????

	$clientHost = $1; 
	print "clientHost is '$clientHost'\n";

       	my $replySock = new IO::Socket::INET(
					      PeerAddr => $clientHost,
					      PeerPort => $socketPortLinux,
					      Proto => 'tcp'
					     );

	die "Could not create socket $socketPortLinux to reply: $!\n" unless $replySock;
	print $replySock "Compilation completed\n";
	print "sent acknowledgement to $clientHost\n";	
	close($replySock);

	# once compliation completed, send an acknowledgement message to the
	# the Linux box that triggered the compilation in the first place

	#last;

    } # if client requests MAD compilation on Windows
} # receiving from the socket
    
    print "disconnected from client\n";

} # do for ever


close($sock);