/*
 * External helper for bombus. Notify user about new messages via keyboard backlight
 * (c) 2007, Dmitry Nezhevenko <dion@inhex.net>
 */

#include <stdio.h>
#include <stdlib.h>
#include <errno.h>
#include <string.h>
#include <unistd.h>
#include <fcntl.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <sys/un.h>
#include <sys/uio.h>
#include <sys/types.h>
#include <unistd.h>
#include <netinet/in.h>
#include <signal.h>
#include <linux/fs.h>


#define USE_EZX_COMPRESS

#ifdef USE_EZX_COMPRESS
#define KVMBINARY "/mmc/mmca1/.system/bin/kvm1"
#else
#define KVMBINARY "/usr/SYSjava/kvm"
#endif

#define MIDLETNUMBER "20000"

int fd;
int parentPid;


void blink(int cnt, int delay)
{
    int fd=open("/dev/keypad2", O_RDWR);
    if (fd<=0) return;

    int i;
    for (i=0; i<cnt; i++)
    {
	ioctl(fd,FIBMAP,0);
	usleep(delay);
	ioctl(fd,0,0);
	usleep(delay);
    }
    close(fd);
}


void parse(char *buf)
{
    if (!strcmp(buf,"Alert"))
    {
        blink(4,40000);
//	blink(3,100000);
    }
}

void timerHandler()
{
    alarm(1);
    if (kill(parentPid,0)<0)
	exit(0);
}

int main(void)
{
    blink(3,40000);
    int pid=getpid();
    ;
    parentPid=pid;    
    printf("getpid()=%d\n",pid);        
    pid=fork();
    if (pid)
    {
	signal(SIGCHLD,SIG_IGN);
	const char *args[50];
        int i=0;
	printf("child pid=%d\n",pid);
	args[i++]=KVMBINARY;
	args[i++]="-launch";
	args[i++]=MIDLETNUMBER;
	args[i++]=NULL;
	execvp(args[0],(char* const*)args);
	printf("Unable to execvp()\n");
	return 0;	
    }
    else
    {
	struct sigaction act;
	memset(&act,0,sizeof(act));
	act.sa_handler=timerHandler;
	sigaction(SIGALRM, &act, NULL);
	alarm(1);	
	
	pid=getpid();
        int sock;
        struct sockaddr_in server;
	struct sockaddr from;
        int from_length;
    	char buf[1024];
	int nr;
    
        from_length=sizeof(from);
    
	sock = socket( PF_INET, SOCK_DGRAM, 0);

        memset(&server,0,sizeof(server));
	server.sin_addr.s_addr=htonl(INADDR_ANY);
        server.sin_family=AF_INET;
	server.sin_port=htons(9000);
    
        if (bind(sock, (struct sockaddr*)&server,sizeof(server))<0)
	{
	    perror("Can't bind: ");
    	    return 1;
	}

	while (1)
        {
	    printf("Recv...\n");
	    nr=recvfrom(sock,buf,sizeof(buf)-1,0, &from,&from_length);
	    if (nr<=0)
	    {
		sleep(1);
		continue;
	    }
	    buf[nr]=0;
    	    printf("=>%s\n",buf);
	    parse(buf);
	}    
	close(sock);
    }
}