/* 
 * (c) 2005 Nico Schottelius (nico-linux at schottelius.org)
 * cinit.c
 * part of cLinux/cinit
 */

/* *stat() */
#include <sys/stat.h>
#include <unistd.h>

/* open */
#include <fcntl.h>

/* siggnal */
#include <signal.h>

/* PATH_MAX */
#include <limits.h>

/* printf() */
//#include <stdio.h>

/* str* */
#include <string.h>

/* sockets */
#include <sys/types.h>
#include <sys/socket.h>
#include <sys/un.h>

/* mount */
#include <sys/mount.h>

#include <stdio.h>
#include <fcntl.h>

#include <time.h>    /* nanosleep */

#include "cinit.h"

/* global variable */
struct listitem *list;
int sock, logfd;

/***********************************************************************
 * the main procedure
 */

time_t start;

int main()
{
   struct stat sbuf;
   unsigned long tmp;
   pid_t pid;
   struct sockaddr_un addr;
   struct timespec ts;
   
   start = time(NULL);

   set_signals(ACT_SERV);  /* set signal handlers */
   logfd = 1;              /* write to stdout */
   list = NULL;            /* list of services is empty currently */

   /* stat, checkdir */
   if( stat(CINIT_INIT,&sbuf) ) {
      perror("PANIC ACTION");
      panic();
   }
   if( ! S_ISDIR(sbuf.st_mode) ) {
      LOG("PANIC ACTION: init is not a dir");
      panic();
   }
   if( chdir(CINIT_INIT) == -1) {
      perror("PANIC ACTION");
      panic();
   }

   /* count of started processes */
   // svc_list.process = 0; 

   /******************** TMPDIR  **********************/
   tmp = 0;
   if(mount(C_TMPMOUNT,CINIT_TMNT,C_TMPFS,tmp,NULL) == -1) {
      perror("mount");
      panic();
    }

   /******************** begin socket **********************/
   sock = socket(AF_UNIX,SOCK_STREAM,0); /* create socket */
   if( sock == -1 ) {
      perror("socket");
      panic();
   }
   
   /* tell the socket, _we_ want to get SIGIO! */
   pid = getpid();
   if(fcntl(sock,F_SETOWN,pid) == -1) {
      perror("fcntl");
      panic();
   }

   /* O_SYNC: SIGIO will be called, O_NONBLOCK: don't block cinit */
   if ( fcntl(sock,F_SETFL,O_ASYNC|O_NONBLOCK) == -1) {
      perror("fcntl");
      panic();
   }
   
   tmp = 1;
   if(setsockopt(sock, SOL_SOCKET, SO_PASSCRED, &tmp, sizeof(tmp)) == -1) {
      perror("passcred");
      LOG("Does your OS not support SO_PASSCRED (man 7 socket)?");
      panic();
   }

   memset(&addr,0,sizeof(addr)); /* clear addr */
   strcpy(addr.sun_path, CINIT_SOCK);
   addr.sun_family   = AF_UNIX;
   tmp = sizeof(addr);

   if(bind(sock,(struct sockaddr *)&addr,tmp) == -1) {
      perror("bind");
      panic();
   }
   
   /* start listening */
   if(listen(sock,SOCK_QUEUE) == -1) {
      perror("listen");
      panic();
   }
   /******************** end socket **********************/

   /* initial run, only if we are 'real' init' */
//   if( pid == 1) {
      run_init_svc();
//   }

   D_PRINTF("fertig gestartet");
   
   ts.tv_sec = (1 << ( (sizeof(ts.tv_sec)* 8) -1 )) -1;
   /* the main loop: sleep until a signal comes in */
   while(1) {
      nanosleep(&ts,NULL);
   }
}