/* ======== IGeoS ===== Distribition full ===== IGeoS =========
**                                                                         
** install.c    : Created by 'AMSS-developer' on Fri Jan 12 19:40:00 2018
**                                                                         
** Product      : IGeoS - Integrated Geoscience Software
**                                                                         
** Description  : System for seismic, well log, and potential-field data analysis
**                                                                         
** =================== Limited License: ===================================
** 
** This software is provided free under the following terms and conditions:
** 
** 1. Permission to use, copy, and modify this software 
** for non-commercial purposes without fee is hereby granted, provided  
** that this copyright notice, the warranty disclaimer, and this
** permission notice appear in all copies.
** 
** 2. Distribution of this software or any part of it "bundled" in with
** any product is considered to be a 'commercial purpose'.
** 
** 3. Any new or adapted code developed to operate as a part of this
** software shall be contributed to the authors and distributed under
** the same license.
** 
** ================== Warranty Disclaimer: ================================
** 
** This software is provided "as is", with no support and without
** obligation on the part of the author to assist in its use, correction,
** modification, or enhancement. No guarantees or warranties,
** either express or implied, and regarding the accuracy, safety, or
** fitness for any particular purpose are provided by any contributor
** to this software package.
** 
** ======== IGeoS ===== Distribition full ===== IGeoS ========= */

/********* The following definitions may be auto-generated: *********/

#define CODE_SERVER "http://seisweb.usask.ca"

/*
**
**      Installs IGeoS (SIA) by retrieving files from an HTTP server and running tar, gcc, and make
*/

#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
#include <string.h>
#include <stdarg.h>
#include <unistd.h>
#include <sys/stat.h>
#include <sys/wait.h>
#include <dirent.h>

/* #define DEBUG */

#define BUF_LENGTH		2048
#define UNIX_SHELL		"/bin/sh"
#define FULL_DISTTRIBUTION	"full"
#define SERVER_UPDATE_DIR	"SIA/admin/update/"	/* location of update tar.gz files */
#define SERVER_DEMO_DIR		"SIA/admin/"		/* location of demos.tar.gz file */

#define MAX_DISTRO_LEN	10000	/* maximum number of modules in distribution */

char	*program = NULL,
	distribution[80] = FULL_DISTTRIBUTION,	/* distribution package name */
 	*SIAHOME = NULL,			/* environment */
	*SIABIN = NULL,
	SIALIB[1024],
	unpack_dir[1024] = "./",	/* ditrectory for unpacking tar files */
	response[102400],
	respcpy[1024],
	gcc_option[1024]="",		/* gcc options */
	upd_option[1024]="",		/* updater options */
	buf1[512],
	buf2[512];

int	get_cpr = 1,
	print_log = 1,
	need_updater = 1,
	interactive = 0,
	build_now = 1;		/* flag to build the item after downloading and unpacking */

char server[400] = CODE_SERVER;

char query( const char *message )
{
  char c='\0';

  printf( "\n%s -> ",message);
  scanf ( "%c", &c );
  return c;
}

void get_distro_name()
{
  char str[512];
  FILE	*f;

  sprintf(str,"%s/configure/distribution", SIAHOME);

  if ( (f = fopen(str,"r")) )
  {
    if ( fgets(str,512,f) )
    {
      const char *delims = " \t\n=";
      char *tok = strtok(str,delims);

#ifdef DEBUG
  printf("*** get_distro_name: distr '%s'\n",tok);
#endif

      if ( tok )
        strcpy(distribution,tok);
    }

    fclose(f);
  }
}

void get_options()
{
  char str[512];
  FILE	*f;

  sprintf(str,"%s/configure/distribution.%s", SIAHOME,distribution);

  if ( (f = fopen(str,"r")) )
  {
    while ( fgets(str,512,f) )
    {
      const char *delims = " \t\n=";
      char *tok = strtok(str,delims);

#ifdef DEBUG
  printf("*** get_options: opt '%s'\n",tok);
#endif

      if ( tok )
      {
        if ( !strcmp(tok,"$serv" ) )
	{
	  if ( (tok = strtok(NULL,delims)) )
            strcpy(server,tok);
	}
	else
        if ( !strcmp(tok,"$copt" ) )
	{
	  while ( (tok = strtok(NULL,delims)) )
            strcat(strcat(gcc_option," "),tok);
	}
	else
          if ( *tok == '.' )		// options ended
	    break;

        tok = strtok(NULL,delims);
      }
    }

    fclose(f);
  }
}

int usage_info()
{
  printf("\nIGeoS (formerly SIA) web installer\n");
  printf("----------------------------------\n");
  printf("Usage:\n");

  printf("\t1) To prepare for installation (create file $SIALIB/SETUP/sia_setup.h):\n\n\t\t%s URL [--distribution name] "
  			"[ --interactive --prepare ]\n",program);

  printf("\n\t2) To install programs or demos:\n\n\t\t%s URL [--distribution name] [-Doptions -n -q] "
  			"[ --interactive --prepare --redo --update ] [components]\n\n",program);

  printf("\t   Add option '--agree' if you accept the license agreement and wish to "
  		"bypass its display.\n\n");

  printf("\t   [components] can include module names, .gui for GUI, .xviewer for display server,\n");
  printf("\t   .modules for all modules, .demos for demos, or .all for everything except the demos.\n\n");

  printf("\t   -Doptions give optional environment variables passed to the compiler and overriding the\n");
  printf("\t   automatic software configuration. Examples: -DUSE_PVM -DUSE_QT -DUSE_POSTGRES\n\n");

  printf("\t   Note that .demos can only be obtained separately from the code. \n");
  printf("\t   Also, .demos can be obtained by any user (not necessarily code administrator).\n\n");

  printf("\t   Above, URL equal '-' corresponds to the default distribution server (%s).\n\n", server );
  printf("\t   Option --redo reinstalls by using current settings (equivalent to '%s --distribution %s --agree')\n\n", 
				server, distribution );

  printf("\n\t3) To update an installed distribution:\n\n\t\t%s --update\n",program);

  printf("\n\t\nShort options:\n.");
  printf("\t\t-n: disables obtaining the updater;\n");
  printf("\t\t-q: disables informational messages.\n");

  printf("\nPrerequisites:\n");
  printf("\t1) Create environment variables SIAHOME (directory for the source codes) and SIABIN (for binaries);\n");
  printf("\t2) Administrator: make sure you have the priviliges to create and write into $SIAHOME and $SIABIN.\n\n");

  printf("NOTE: Installation by 'root' is not needed and not recommended.\n\n", server );

  return 1;
}

int sh_call ( const char *cmd_string )
{
#ifdef DEBUG
  printf("*** sh_call: '%s'\n",cmd_string);
#endif

  pid_t pid;
  int status;

  if ( !cmd_string )
     return 1;

  if ( ( pid = fork() ) < 0 )
     return -1;

  if ( pid == 0 )	// child
  {
     execl(UNIX_SHELL,UNIX_SHELL,"-c",cmd_string,(char*)0);
     exit(0);
  }

  /*-- parent here -------------------*/

  wait(&status);

  if ( WIFEXITED(status) )
    return 0;

  if ( WIFSIGNALED(status) )
    printf("command '%s' terminated by signal %d\n", cmd_string,WTERMSIG(status));

  if ( WIFSTOPPED(status) )
    printf("command '%s' stopped by signal %d\n", cmd_string,WSTOPSIG(status));

  return status;
}

int full_distro()
{
  return strcmp(distribution,FULL_DISTTRIBUTION)==0;
}

int request ( char *url )
{
  char str[512];
  FILE	*f;

#ifdef DEBUG
	printf("*** request: %s\n", url);
#endif

  *response = '\0';
  sprintf(str,"wget -q -O - %s", url);

#ifdef DEBUG
	printf("*** command: %s\n", str);
#endif

  f = popen(str, "r" );

  if ( f )
  {
    while ( fgets(str,512,f) )
      strcat(response,str);

    pclose(f);
  }
  else
  {
    printf("Could not execute '%s'\n",str);
    exit(1);
  }

  return strlen(response);
}

/* request and obtain file from server. return 1 if OK, ) if failed */

int getfile( int silent, const char *dir, const char *file )
{
  char	str[1024];

  /*  delete the existing file */

  if ( access(file,F_OK)==0 )
  {
    sprintf(str,"rm -f %s",file);
    sh_call(str);
  }

  sprintf(str,"wget --read-timeout=15 %s %s/%s/%s",silent ? "-q" : "", server,dir,file);

  if ( print_log )
    printf("*** Retrieving file: %s/%s/%s\n",  server,dir,file);

#ifdef DEBUG
	printf("*** getfile: Command: %s\n", str);
#endif

  if ( sh_call(str) )
  {
    printf("*** Error executing '%s'\n",str);
    return 0;
  }

  return access(file,F_OK)==0;
}

int getphpfile( const char *mes )
{
  char	str[1024];

  sprintf(str,"%s/SIA/cs.php?%s",server,mes);
  request(str);
}

int check_dir( const char *dir )
{
  return access(dir,R_OK|W_OK|X_OK) == 0;
}

int check_subdir( const char *dir, const char *sub )
{
  char	d[200];

  strcat(strcpy(d,dir),sub);
  return access(d,R_OK|X_OK) == 0;
}

char DIRSTR[10000];

char *dirselect2( const char *dirname, const char *start, const char *end, const char *exclude )
{
   DIR *dp;

   DIRSTR[0] = '\0';

   dp = opendir(dirname);

   if (dp != NULL)
   {
      struct dirent *ep;

       while (ep = readdir(dp))
	 if ( ep->d_name )
	 {
	   if ( ep->d_name[0] == '.' )
		continue;

	   if ( start )
	     if ( strncmp(ep->d_name,start,strlen(start)) )	/* skip */
		continue;

	   if ( end )
	   {
	     int le = strlen(end), l = strlen(ep->d_name);

	     if ( l < le )
		continue;

	     if ( strncmp(ep->d_name + l-le,end,strlen(end)) )		/* skip */
		continue;
	   }

	   if ( exclude )
	   {
	     int le = strlen(exclude), l = strlen(ep->d_name);

	     if ( l >= le )
	       if ( !strncmp(ep->d_name + l-le,exclude,strlen(exclude)) )	/* skip matching */
		 continue;
	   }
	   strcat(strcat(DIRSTR,ep->d_name)," ");	/* output */
	}

       closedir (dp);
    }

  return DIRSTR;
}

	/* remove files ending in 'select' in 'dirname' */

void rmfiles( const char *dir, const char *subdir, const char *options,
			const char *select_start, const char *select_end,
			const char *exclude )
{
  char	d[40000],wd[400],td[400];
  getcwd(wd,400);
  sprintf(td,"%s/%s",dir,subdir);
  chdir(td);

  {
    const char *s = dirselect2("./",select_start,select_end,exclude);

/*      printf("td '%s' sel '%s' %s' dirs '%s'\n",td,select_start,select_end, s); */

    if ( strlen(s) )
    {
      sprintf(d,"rm %s %s",options,s);
      sh_call(d);
    }
  }
  chdir(wd);
}

void test_system()
{
  /*--- word length test done in sia_config --------*/
  /*--- endian test done in sia_config --------*/

  if ( access(UNIX_SHELL,X_OK) != 0 )
  {
    printf("*** Shell '%s' is not available on this system. Installation aborted.\n",
					UNIX_SHELL);
    exit(1);
  }
}

  /*------- obtain and install all requested items ----------*/

int install( const char *subdir, int argc, char ** argv )
{
  char	str[3072];
  int arg;
  int count=0;

  if ( print_log )
    printf("*** Installing IGeoS source codes in directory %s\n",subdir);

  for ( arg=2; arg<argc; arg++)
  {
    char *tok;

    if ( !strcmp(argv[arg],"--distribution") )	/* skip distribution name */
    {
      arg++;
      continue;
    }

    if ( !strncmp(argv[arg],"-",1) )		/* skip all options */
      continue;

   ++count;

   sprintf(str, "%s/SIA/cs.php?update=%%20--distribution%%20%s%%20--pack%%20%s",
    						server, distribution, argv[arg] );

   if ( print_log )
     printf("*** Requesting: '%s'\n", str);

   request(str);

   if ( print_log )
     printf("*** Response: '%s'\n", response);

    strcpy(respcpy,response);

    tok = strtok(response," \t\n");	// file name

    if ( tok )
    {
      char 	fname[512];
      size_t	fsize;

      if ( *tok == '*' )
      {
        printf("*** Requested: '%s'\n", str);
        printf("*** Error reported: %s\n", respcpy);
	exit(1);
      }

      strcpy(fname,tok);

      if ( !(tok=strtok(NULL," \t\n")) )
      {
        printf("*** Unexpected response '%s' from %s\n",subdir,fname,server);
	continue;
      }

      fsize = atoi(tok);	/* expected file size */

      if ( fsize )
      {
        if ( getfile(0,subdir,fname) )
        {
          char ifname[512];

          struct stat st;

          /*  check file size */

          stat(fname,&st);

	  if ( fsize != st.st_size )
            printf("*** Warning *** File size mismatch for %s: "
	    		"reported %ld, copied %ld bytes\n", fname, fsize, st.st_size);

	  printf("*** Unpacking in %s ...\n",unpack_dir);

          sprintf(str, "%s/sia-update %s --clean --dir %s --unpack %s", SIABIN, upd_option, unpack_dir, fname );
          sh_call(str);

	  if ( build_now )
	  {
            sprintf(str, "%s/sia-update %s --server %s --distribution %s --build %s",
					SIABIN, upd_option, server, distribution, argv[arg] );
            sh_call(str);
	  }

	  /* if built a new installer, remove the temporary one */

	  sprintf(ifname,"%s/sia-install",SIABIN);

	 /*   printf("Check %s %s\n",ifname,argv[0]); */

          if ( stat(ifname,&st) == 0 )		/* new installer */
          {
	    struct stat st1;

	    stat(argv[0],&st1);		/* this installer */

	    /* printf("installers inodes %d %d\n",st.st_ino,st1.st_ino); */

	    if ( st.st_ino != st1.st_ino )	/* not the same file */
	    {
	      printf("Removing the temporary installer %s\n",argv[0]);

              sprintf(str, "rm -f %s",argv[0] );
              sh_call(str);
	    }
	  }
        }
        else
          printf("*** Could not retrieve file %s%s from %s\n",subdir,fname,server);
      }
      else
        printf("*** The reported file size for %s from %s is 0; Skipped.\n",fname,server);
    }
    else
      printf("*** No archive for %s returned from %s\n",argv[arg],server);
  }

  if ( !count )
    printf("*** No installation items specified.\n");
}

/* make the necessary directories */

int make_dir( const char *path, const char *dir )
{
  char	d[500], comm[500];

  sprintf(d,"%s/%s",path,dir);
  sprintf(comm,"mkdir -p %s/%s",path,dir);

  if ( check_dir(d) )
    return 1;

  sh_call(comm);

  if (!check_dir(d))
  {
      printf("Directory %s/%s does not exist, is not writable, or could not be created\n", path,dir);
      return 0;
  }

  return 1;
}

void make_dirs()
{
  const char *user = getenv("USER");
  char	str[3072];

#ifdef DEBUG
	printf("********* MAKE DIRS SIAHOME '%s' USER '%s'\n",SIAHOME,user);
#endif

  if ( !make_dir(SIAHOME,"") || !make_dir(SIABIN,"") )
    goto Error;

#ifdef DEBUG
	printf("********* MAKE DIRS SIALIB '%s'\n",SIALIB);
#endif

  if ( !make_dir(SIALIB,"") )
    goto Error;

  /* make subdirectories */

  if ( !make_dir(SIAHOME,"configure") ||
	!make_dir(SIAHOME,"source") ||
	!make_dir(SIAHOME,"include") ||
	!make_dir(SIAHOME,"modules") ||
	!make_dir(SIAHOME,"gui") ||
	!make_dir(SIAHOME,"xviewer") ||
	!make_dir(SIAHOME,"sms_display") ||
	!make_dir(SIAHOME,"sms_relay") ||
	!make_dir(SIAHOME,"sms_server")
	)
    goto Error;

  if ( !make_dir(SIALIB,"gui") ||
	!make_dir(SIALIB,"xviewer") ||
	!make_dir(SIALIB,"modules") ||
	!make_dir(SIALIB,"o") ||
	!make_dir(SIALIB,"PRM") ||
	!make_dir(SIALIB,"MAKE") ||
	!make_dir(SIALIB,"SETUP") 
	)
    goto Error;

  if ( !make_dir(SIABIN,"apps") ||
	!make_dir(SIABIN,"configure")
	)
    goto Error;

  if ( !make_dir(SIALIB,"SETUP/modules") ||
  	!make_dir(SIALIB,"SETUP/packages") ||
	!make_dir(SIALIB,"SETUP/images") ||
	!make_dir(SIAHOME,"apps/man") ||
	!make_dir(SIALIB,"o/xplot")
     )
    goto Error;

  sprintf(str,"configure/%s",user);

  if ( !make_dir(SIABIN,str) )
    goto Error;

  return;

Error:
    printf("*** Please check file access permissions. ****\n");
    exit(1);
}

int Qtpackage ( const char *name )
{
  return !strcmp(name,".gui") || !strcmp(name,".xviewer") || !strcmp(name,".sms_display");
}

int SMSpackage ( const char *name )
{
  return !strcmp(name,".sms_server") || !strcmp(name,".sms_display") || !strcmp(name,".sms_relay");
}

void update()
{
   int mnum = 0;	/* number of modules */
   char *mname[MAX_DISTRO_LEN];
   double mver[MAX_DISTRO_LEN];
   size_t msize[MAX_DISTRO_LEN];
   char	str0[1000],*s,*str1, *ss;
   FILE	*f;
   
   int need_Qt=0,	/* flag to check Qt packages */
       need_SMS=0;	/* flag to check SMS packages */
       
   char	str[512];
   sprintf(str, "%s/SIA/cs.php?update=%%20--distribution%%20%s%%20--list",server, distribution );

//   if ( print_log )
//      printf("*** Requesting: '%s'\n", str);

   request(str);

//   if ( print_log )
//     printf("*** Response:\n%s\n", response);

	/* split the response into modules */

   str1 = response;

   s = strsep(&str1,"\n");

   while ( s )
   {
     char *str2 = s + strspn(str," \t");
     char str3[512];

     switch (*str2)
     {
	case '$': 
	case '#': break;		/* skip directives */

	default : str2 = strcpy(str3,str2);

		ss = strsep(&str2," =\t\n");
		mname[mnum] = ss ? strdup(ss) : NULL;

		ss = strsep(&str2," =\t\n");
      		mver[mnum] = ss ? atof(ss) : -1.0;

		ss = strsep(&str2," =\t\n");
      		msize[mnum] = ss ? atoi(ss) : 0;

#ifdef DEBUG
	printf("FROM SERVER: #%d = '%s' %f %d\n",mnum,mname[mnum],mver[mnum],msize[mnum]);
#endif

		++mnum;
     }

     s = strsep(&str1,"\n");
   }

	/* read the local distribution */

  sprintf(str0,"%s/configure/distribution.%s", SIAHOME,distribution);

#ifdef DEBUG
    printf("Distro from %s\n", str0);
#endif

  if ( (f=fopen(str0,"rt")) )
  {
    char str[256];
    int i, changed = 0;

#ifdef DEBUG
    printf("Distro file opened %p\n", f);
#endif

    while ( fgets(str,128,f) )
    if ( strlen(str) )
    {
      char *str1 = str + strspn(str," \t");
      char *name = strsep(&str1," =\t\n");
      char *ver = strsep(&str1," =\t\n");
      char *size = strsep(&str1," =\t\n");

      if ( name && ver )
        switch (*name)
	{
	  case '$': if ( !strcmp(name,"$qt=1") )
		      need_Qt=1;
		    else
		      if ( !strcmp(name,"$sms=1") )
		        need_SMS=1;
		    
	  case '#': continue;		/* skip directives */

	  default : 	/* obtain and install only newer items */
		
	      if ( Qtpackage(name) && !need_Qt )	/* skip Qt packages */
		continue;
	      
	      if ( SMSpackage(name) && !need_SMS )	/* skip SMS packages */
		continue;
		
		for ( i = 0; i < mnum; i++ )
		  if ( !strcmp(mname[i],name) )
		  {
#ifdef DEBUG
	printf("LOCAL: '%s' %s %s is external #%d %s %f\n",name,ver,size,i,mname[i],mver[i]);
#endif

		    if ( atof(ver) - mver[i] < -0.00001 )	// new version came
		    {
			char str[512];
			printf("*** Re-installing '%s'  (new version %1.2f) from '%s'...\n",
						  mname[i], mver[i], server);

         		sprintf(str, "%s/sia-install %s -q -n --redo %s", SIABIN, server, mname[i] );
          		sh_call(str);
		    }

		    mver[i] = -1.0;		/* mark as done */
		    changed=1;
		    break;
		  }
	}
    }

    fclose(f);

	/* check for new codes in the external distro */

    for ( i = 0; i < mnum; i++ )
    {
      if ( Qtpackage(mname[i]) && !need_Qt )	/* skip Qt packages */
		continue;
      
      if ( SMSpackage(mname[i]) && !need_SMS )	/* skip SMS packages */
		continue;

      if ( mver[i] > 0.0 )
      {
	printf("*** Installing new '%s' version %1.2f from '%s'  ...\n", mname[i],mver[i],server);
        sprintf(str, "%s/sia-install %s -q -n --redo %s", SIABIN, server, mname[i] );
        sh_call(str);
	
	changed=1;
      }
    }
    
     /* if changed anything, relist the local distro */
      
    if ( changed )
    {
        sprintf(str, "%s/sia-update --prelist --distribution %s", SIABIN, distribution );
        sh_call(str);
    } 
  }
}

int main (int argc, char ** argv)
{
  char	str[102400];
  int	arg,
  	demos=0,
  	get_updater = 0,
	get_server_name = 1;

  program = argv[0];
  SIAHOME = getenv("SIAHOME");
  SIABIN = getenv("SIABIN");

  /*-- test the system ---*/

  test_system();

  if ( argc<2 )
    return usage_info();

  if ( !SIAHOME )
  {
    printf("*** SIAHOME environment variable is not set ****\n");
    return 1;
  }

  if ( !SIABIN )
  {
    printf("*** SIABIN environment variable is not set ****\n");
    return 1;
  }

  {
    const char *c = getenv("SIALIB");

    if ( c )
	strcpy(SIALIB,c);
    else
	sprintf(SIALIB,"%s/lib",SIABIN);
  }

  /*-- first pass through parameters - pick out the general settings ---*/

  for ( arg=1; arg<argc; arg++)
  {
/* printf("switch %d = '%s'\n",arg,argv[arg]); */

      if ( !strcmp(argv[arg],"-q") )
      {
        print_log = 0;
        continue;
      }

      if ( !strcmp(argv[arg],"-n") )
      {
        need_updater = 0;
        continue;
      }

      if ( !strncmp(argv[arg],"-D",2) )
      {
          strcat(gcc_option,argv[arg]);
          strcat(gcc_option," ");
	  continue;
      }

      if ( !strcmp(argv[arg],"--nobuild") )
      {
	  build_now = 0;
	  continue;
      }

      if ( !strcmp(argv[arg],"--redo") )
      {
        interactive=get_cpr=0;
	get_updater=1;
	get_server_name=0;
	get_distro_name();
	get_options();
        continue;
      }

      if ( !strcmp(argv[arg],"--interactive") )
      {
        interactive=1;
        continue;
      }

      if ( !strcmp(argv[arg],"--prepare") )	/* skip for now */
        continue;

      if ( !strcmp(argv[arg],"--agree") )
      {
        get_cpr=0;
        continue;
      }

      if ( !strcmp(argv[arg],"--update") )
      {
        update();
        return 0;
      }

      if ( !strcmp(argv[arg],"--distribution") )
        if ( ++arg < argc )
	{
          strcpy(distribution,argv[arg]);
	  continue;
	}

      if ( !strncmp(argv[arg],"-",1) )		/* short options passed to sia-update */
      {
          strcat(upd_option,argv[arg]);
          strcat(upd_option," ");
	  continue;
      }
  }

#ifdef DEBUG
	printf("*** SERVER '%s' %d\n",server,get_server_name);
#endif

  if ( get_server_name )
    if ( strcmp(argv[1],"-") )		/* '-' means the default server */
      strcpy(server,argv[1]);

  if ( interactive )
  {
    printf("\nSpecify the installation directories:\n");
    printf("Source code root directory -> ");

    if ( fgets(buf1,512,stdin) )
      SIAHOME = strtok(buf1," \t\n");

    printf("Object and executable root -> ");

    if ( fgets(buf2,512,stdin) )
    {
      SIABIN = strtok(buf2," \t\n");
      sprintf(SIALIB,"%s/lib",SIABIN);
    }
  }

#ifdef DEBUG
	printf("********* USER '%s'\n",getenv("USER"));
#endif

  /*------- second pass - check if the updater needs to be obtained ----------*/

  for ( arg=2; arg<argc; arg++)
  {
      if ( !strcmp(argv[arg],"--prepare") )	/* obtain sia_setup.h file */
      {
        /* get sia_setup.h */

	sprintf(str, "%s/SETUP/sia_setup.h", SIALIB);

        if ( access(str,F_OK) )		// no such file yet
	{
          if ( getfile(1,"SIA/install","sia_setup.h") )
	  {
	    sprintf(str, "mv sia_setup.h %s/SETUP/sia_setup.h", SIALIB);

	    if ( sh_call(str) )
	      return 1;
	    else
              printf("File %s/SETUP/sia_setup.h created\n",SIALIB);
	  }
	  else
	  {
	    printf("Could not obtain file %s/SIA/sia_setup.h\n",server);
	    return 1;
	  }
	}
	else
           printf("File %s/SETUP/sia_setup.h exists",SIALIB);

        printf(" -- edit it as needed (most likely not needed).\n");

	if ( interactive )
	{
	  char c = query("Ready to continue? (y/n)");

	  if ( tolower(c) == 'y' )
	    continue;
	}

	printf("Preparation completed\n");
        return 0;
      }

    if ( !strcmp(argv[arg],".demos") )		/* demo mode */
     demos = 1;
    else
    {
      demos = 0;

      if ( !strcmp(argv[arg],".all") || !strcmp(argv[arg],".source") )
      {
	strcpy(unpack_dir,SIAHOME);		/* will unpack in SIAHOME */
        get_updater = 1;
      }
      else if ( !strcmp(argv[arg],".apps") )
	strcpy(unpack_dir,SIABIN);		/* will unpack in SIABIN */
    }
  }
  	/* if demos or apps requested, simply obtain the files and unpack */

  if ( demos )
  {
     install(SERVER_DEMO_DIR,argc,argv);
     return 0;
  }

     /* otherwise proceed with code install */

  make_dirs();

  /*----------------- request and display the copyright ------------*/

#ifdef DEBUG
	printf("********* START SIALIB '%s' get_cpr %d\n",SIALIB,get_cpr);
#endif

  if ( get_cpr )
  {
    sprintf(str, "%s/SIA/cs.php?copyright&list=%s", server, distribution);

    if ( request(str) )
    {
      printf("%s",response);

    Ask:
      printf("Type 'yes' or 'no' about accepting this license -->");

      scanf("%s",str);

      if ( strcmp(str,"yes") )
      {
	if ( tolower(*str) != 'n' ) 
	{
          printf("You have responded '%s'.\n", str);
	  goto Ask;
	}
        exit(0);	// responded 'no'
      }

      printf("\n\nInstalling SIA distribution '%s'...\n",distribution);
    }
    else
      exit(1);
  }

    /* get updater */

#ifdef DEBUG
	printf("********* GET UPDATER %d\n",get_updater);
#endif

  if ( get_updater && need_updater )
  {
    int err=0;

    if ( getfile(1,"SIA/install","update.c") )
    {
      sprintf(str, "mv update.c %s/source/\n",SIAHOME);

      if ( sh_call(str) )
        err=1;
    }

    if ( getfile(1,"SIA/install","configure.h") )
    {
      sprintf(str, "mv configure.h %s/include/\n",SIAHOME);

      if ( sh_call(str) )
        err=1;
    }

      if ( err )
      {
	printf("*** Error obtaining updater files. Installation aborted.\n");
	exit(1);
      }

      {
        char	options[2048] = "";

      /*------- perform initial cleanup in case a previous version is installed ----------*/

/*    rmfiles(SIABIN,"","-f","sia-config",NULL,NULL);
      rmfiles(SIABIN,"","-f","sia-update",NULL,NULL);
      rmfiles(SIABIN,"","-f","pdf",NULL,NULL);
      rmfiles(SIABIN,"","-f","cwr",NULL,NULL);
      rmfiles(SIABIN,"","-f","sia_",NULL,NULL);

      printf("*** Old SIA utilities and executables removed.\n");
*/
      if ( *gcc_option )
	strcat(options,gcc_option);

      sprintf(str, "cd %s/source; gcc -DINPACKAGE %s update.c -I%s/SETUP -o %s/sia-update",
				SIAHOME, options, SIALIB, SIABIN);

      if ( sh_call(str) )
      {
	printf("*** Error buiding the updater. Installation aborted.\n");
	exit(1);
      }

      printf("*** Updater obtained and built.\n");
    }
  }

  sprintf(str, "%s/sia-update", SIABIN);

  if ( access(str,X_OK) )		/* no updater */
  {
    printf("*** Missing updater program: %s\n",str);
    return 1;
  }
  else					/* perform installation */
    install(SERVER_UPDATE_DIR,argc,argv);

  return 0;
}