/*___INFO__MARK_BEGIN__*/
/*************************************************************************
 * 
 *  The Contents of this file are made available subject to the terms of
 *  the Sun Industry Standards Source License Version 1.2
 * 
 *  Sun Microsystems Inc., March, 2001
 * 
 * 
 *  Sun Industry Standards Source License Version 1.2
 *  =================================================
 *  The contents of this file are subject to the Sun Industry Standards
 *  Source License Version 1.2 (the "License"); You may not use this file
 *  except in compliance with the License. You may obtain a copy of the
 *  License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
 * 
 *  Software provided under this License is provided on an "AS IS" basis,
 *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
 *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
 *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
 *  See the License for the specific provisions governing your rights and
 *  obligations concerning the Software.
 * 
 *   The Initial Developer of the Original Code is: Sun Microsystems, Inc.
 * 
 *   Copyright: 2001 by Sun Microsystems, Inc.
 *   Copyright 2012 Dave Love, University of Liverpool
 * 
 *   All Rights Reserved.
 * 
 ************************************************************************/
/*___INFO__MARK_END__*/
#include <pwd.h>
#include <string.h>
#include <sys/stat.h>
#include <errno.h>

#include "uti/sge_rmon.h"
#include "uti/sge_log.h"
#include "uti/sge_uidgid.h"
#include "uti/sge_prog.h"
#include "uti/sge_dstring.h"
#include "uti/sge_unistd.h"
#include "uti/sge_string.h"
#include "uti/sge_spool.h"

#include "sgeobj/sge_conf.h"
#include "sgeobj/sge_ja_task.h"
#include "sgeobj/sge_pe_task.h"
#include "sgeobj/sge_job.h"

#include "get_path.h"
#include "msg_execd.h"
#include "sge.h"

static int getHomeDir(char *exp_path, const char *user);

int sge_get_path(const char *qualified_hostname, lList *lp, const char *cwd, const char *owner, 
                 const char *job_name, u_long32 job_number, 
                 u_long32 ja_task_number, int type,
                 char *pathstr, size_t pathstr_len) 
{
   lListElem *ep = NULL;
   const char *path = NULL, *host = NULL;

   DENTER(TOP_LAYER, "sge_get_path");

   *pathstr = '\0';

   /*
    * check if there's a path for this host
    */
   ep = lGetElemHost(lp, PN_host, qualified_hostname);
   if (ep != NULL) {
      path = expand_path(lGetString(ep, PN_path), job_number, 
         ja_task_number, job_name, owner, qualified_hostname);
      host = lGetHost(ep, PN_host);
   } else {
      /* 
       * hostname: wasn't set, look for a default 
       */
      for_each(ep, lp) {
         path = expand_path(lGetString(ep, PN_path), job_number, 
                            ja_task_number, job_name, owner, 
                            qualified_hostname);
         host = lGetHost(ep, PN_host);
         if (host == NULL) {
            break;
         }
      }
   }

   /*
    * prepend cwd to path
    */
   if (path && path[0]!='\0' && path[0] != '/') {
      /* got relative path from -e/-o */
      snprintf(pathstr, pathstr_len, "%s/%s", cwd, path);
   } else if (path && path[0]!='\0' ) { 
      /* got absolute path from -e/-o */
      sge_strlcpy(pathstr, path, pathstr_len);
   } else if (type == SGE_STDIN) {
      sge_strlcpy(pathstr, "/dev/null", pathstr_len);
   } else if (type != SGE_SHELL) {
      /* no -e/-o directive (but not for shells) */
      sge_strlcpy(pathstr, cwd, pathstr_len);
   }

   DEXIT;
   return 0;
}

/****** execd/fileio/sge_get_fs_path() ********************************
*  NAME
*     sge_get_fs_path() -- Retrieve the file staging host and path
*
*  SYNOPSIS
*     bool sge_get_fs_path( lList* lp, char* fs_host, char* fs_path )
*
*  FUNCTION
*     Retrieves the file staging host and path from the
*     job list element.
*
*  INPUTS
*     lList *lp        - pointer to the path sublist
*     char  *fs_host   - buffer to hold the host name
*     char  *fs_path   - buffer to hold the file path
*
*  RESULT
*     bool - Is file staging enabled for this (stdin/stdout/stderr)
*            path sublist?
*
*  EXAMPLES
*
*  NOTES
*
*  SEE ALSO
*******************************************************************************/
bool sge_get_fs_path( lList* lp, char* fs_host, size_t fs_host_len, 
                                 char* fs_path, size_t fs_path_len)
{
   lListElem* ep;
   bool       bFileStaging=false;

   DENTER(TOP_LAYER, "sge_get_fs_path");

   if( lp && (ep=lFirst(lp))) {
      bFileStaging = (bool)lGetBool(ep, PN_file_staging);
 
      if( bFileStaging ) {
         if(lGetHost(ep, PN_file_host)) {
            sge_strlcpy(fs_host, lGetHost(ep, PN_file_host), fs_host_len);
         }
         if(lGetString(ep, PN_path)) {
            sge_strlcpy(fs_path, lGetString(ep, PN_path), fs_path_len);
         }
      }
   }
   DEXIT;
   return bFileStaging;
}

const char*
expand_path(const char *in_path, u_long32 job_id, u_long32 ja_task_id,
            const char *job_name, const char *user, const char *host)
{
   char *t;
   const char *s;
   static char exp_path[SGE_PATH_MAX];
   
   DENTER(TOP_LAYER, "expand_path");
   exp_path[0] = '\0';

   if (in_path) {
      s = in_path;
      /*
      ** handle ~, ~/, ~username and ~username/
      */
      if (s[0] == '~') {
         char *tmp = strdup(s+1);
         t = strchr(s, '/');
         if (t)
            tmp[t-s-1] = '\0'; /* uname or null */
         if (!getHomeDir(exp_path, strlen(tmp) ? tmp : user)) {
            sge_free(&tmp);
            DEXIT;
            return NULL;
         }
         sge_free(&tmp);
         if (sge_strlcat(exp_path, "/", sizeof(exp_path))
             >= sizeof(exp_path)) {
            DEXIT;
            return NULL;
         }
         if (!t) {
            DEXIT;
            return exp_path;
         }
         s = t + 1;
      }
      t = strchr(s, '$');
      while (t) {
         size_t nmax;
         char *printpos;

         nmax = sizeof exp_path;
         printpos = exp_path + strlen(exp_path);
         sge_strlcat(exp_path, s, sizeof exp_path);
         printpos = printpos + (t - s);
         *printpos = '\0';
         nmax = sizeof exp_path - strlen(exp_path);
         s = t;
         if (!strncmp(t, "$HOME", sizeof("$HOME") - 1)) {
            if (!getHomeDir(exp_path, user)) {
               DEXIT;
               return NULL;
            }
            s = t + sizeof("$HOME") - 1;
         }
         nmax = sizeof(exp_path) - strlen(exp_path);
         printpos = exp_path + strlen(exp_path);
         if (!strncmp(t, "$JOB_ID", sizeof("$JOB_ID") - 1)) {
            snprintf(printpos, nmax, sge_u32, job_id);
            s = t + sizeof("$JOB_ID") - 1;
         }
         if (!strncmp(t, "$TASK_ID", sizeof("$TASK_ID") - 1)) {
            snprintf(printpos, nmax, sge_u32, ja_task_id);
            s = t + sizeof("$TASK_ID") - 1;
         }
         if (!strncmp(t, "$JOB_NAME", sizeof("$JOB_NAME") - 1)) {
            snprintf(printpos, nmax, "%s", job_name);
            s = t + sizeof("$JOB_NAME") - 1;
         }
         if (!strncmp(t, "$USER", sizeof("$USER") - 1)) {
            snprintf(printpos, nmax, "%s", user);
            s = t + sizeof("$USER") - 1;
         }
         if (!strncmp(t, "$HOSTNAME", sizeof("$HOSTNAME") - 1)) {
            snprintf(printpos, nmax, "%s", host);
            s = t + sizeof("$HOSTNAME") - 1;
         }
         if (!strncmp(t, "$$", sizeof("$$") - 1)) {
            snprintf(printpos, nmax, "$");
            s = t + 2;
         }
         if (*s == '$' && s == t) {
            snprintf(printpos, nmax, "$");
            s = t + 1;
         }
         t = strchr(s, '$');
      }
      if (sge_strlcat(exp_path, s, sizeof(exp_path)) >= sizeof(exp_path)) {
         DEXIT;
         return NULL;
      }
   }

   DEXIT;
   return exp_path;
}

static int getHomeDir(
char *exp_path,
const char *user 
) {
   struct passwd *pwd;
   struct passwd pw_struct;
   char *buffer;
   int size;

   DENTER(TOP_LAYER, "getHomeDir");

   size = get_pw_buffer_size();
   buffer = sge_malloc(size);

   pwd = sge_getpwnam_r(user, &pw_struct, buffer, size);
   if (!pwd) {
      ERROR((SGE_EVENT, MSG_EXECD_INVALIDUSERNAME_S, user));
      sge_free(&buffer);
      DEXIT;
      return 0;
   }
   if (!pwd->pw_dir) {
      ERROR((SGE_EVENT, MSG_EXECD_NOHOMEDIR_S, user));
      sge_free(&buffer);
      DEXIT;
      return 0;

   }
   sge_strlcat(exp_path, pwd->pw_dir, SGE_PATH_MAX);

   sge_free(&buffer);
   DEXIT;
   return 1;
}

/****** execd/fileio/sge_make_ja_task_active_dir() *********************************
*  NAME
*     sge_make_ja_task_active_dir() -- create a jatask's active job directory
*
*  SYNOPSIS
*     const char* sge_make_ja_task_active_dir(const lListElem *job, 
*                                             const lListElem *ja_task, 
*                                             dstring *err_str) 
*
*  FUNCTION
*     Creates the active jobs sub directory for a job array task.
*     If it already exists (because the task has been restarted)
*     and the execd is configured to keep the active job directories
*     (execd_param KEEP_ACTIVE), it is renamed to <old_name>.n, where
*     n is a number from 0 to 9. If a job is restarted more than 10 times,
*     the old active job dir will be removed and only the first 10 be kept.
*
*  INPUTS
*     const lListElem *job     - job object
*     const lListElem *ja_task - ja task object
*     dstring *err_str         - optional buffer to hold error strings. If it is
*                                NULL, errors are output.
*
*  RESULT
*     const char* - the path of the jobs/jatasks active job directory, or NULL if
*                   the function call failed.
*
*  SEE ALSO
*     execd/fileio/sge_get_active_job_file_path()
*     execd/fileio/sge_make_pe_task_active_dir()
*******************************************************************************/
const char *sge_make_ja_task_active_dir(const lListElem *job, const lListElem *ja_task, dstring *err_str)
{
   static dstring path_buffer = DSTRING_INIT;
   const char *path;
   int result;


   DENTER(TOP_LAYER, "sge_make_ja_task_active_dir");
   
   if (err_str != NULL) {
      sge_dstring_clear(err_str);
   }
   
   if (job == NULL || ja_task == NULL) {
      DEXIT;
      return NULL;
   }

   /* build path to active dir */
   path = sge_get_active_job_file_path(&path_buffer,
                                       lGetUlong(job, JB_job_number), 
                                       lGetUlong(ja_task, JAT_task_number), 
                                       NULL, NULL);   

   /* try to create it */
   result = sge_mkdir(path, 0755, false, false);
   if (result == -1) {
      /* if it already exists and keep_active: try to rename it */
      if (errno == EEXIST && mconf_get_keep_active() && lGetUlong(ja_task, JAT_job_restarted) > 0) {
         dstring new_path = DSTRING_INIT;
         int i, success = 0;

         for (i = 0; i < 10; i++) {
            sge_dstring_sprintf(&new_path, "%s.%d", path, i);
            if (rename(path, sge_dstring_get_string(&new_path)) == 0) {
               success = 1;
               break;
            } 
         }
         
         /* if it couldn't be renamed: try to remove it */
         if (success == 0) {
            dstring error_string;
            char error_string_buffer[MAX_STRING_SIZE];

            sge_dstring_init(&error_string, error_string_buffer, sizeof(error_string_buffer));

            DPRINTF(("could not rename old active job dir "SFN" - removing it\n", path));

            if (sge_rmdir(path, &error_string)) {
               if (err_str != NULL) {
                  SGE_ADD_MSG_ID(sge_dstring_sprintf(err_str, MSG_FILE_RMDIR_SS, path, 
                        sge_dstring_get_string(&error_string)));
               } else {
                  ERROR((SGE_EVENT, MSG_FILE_RMDIR_SS, path, SGE_EVENT));
                  DEXIT;
                  return NULL;
               }
            }
         }

         sge_dstring_free(&new_path);

         result = sge_mkdir(path, 0755, false, false);
      }
   }   

   if (result == -1) {
      /* error creating directory */
      if (err_str != NULL) {
         sge_dstring_sprintf(err_str, MSG_FILE_CREATEDIR_SS, path, strerror(errno));
      } else {
         ERROR((SGE_EVENT, MSG_FILE_CREATEDIR_SS, path, strerror(errno)));
      }
      DEXIT;
      return NULL;
   }

   DEXIT;
   return path;
}

/****** execd/fileio/sge_make_pe_task_active_dir() *********************************
*  NAME
*     sge_make_pe_task_active_dir() -- create a petask's active job directory
*
*  SYNOPSIS
*     const char* sge_make_pe_task_active_dir(const lListElem *job, 
*                                             const lListElem *ja_task, 
*                                             const lListElem *pe_task, 
*                                             dstring *err_str) 
*
*  FUNCTION
*     Creates the active job sub directory for a pe task.
*
*  INPUTS
*     const lListElem *job     - the job object
*     const lListElem *ja_task - the ja task object
*     const lListElem *pe_task - the pe task object
*     dstring *err_str         - optional buffer to hold error strings. If it is
*                                NULL, errors are output.
*
*  RESULT
*     const char* - the path of the jobs/jatasks active job directory, or NULL if
*                   the function call failed.
*
*  SEE ALSO
*     execd/fileio/sge_get_active_job_file_path()
*     execd/fileio/sge_make_ja_task_active_dir()
*******************************************************************************/
const char *sge_make_pe_task_active_dir(const lListElem *job, const lListElem *ja_task, const lListElem *pe_task, dstring *err_str)
{
   static dstring path_buffer = DSTRING_INIT;
   const char *path;

   DENTER(TOP_LAYER, "sge_make_pe_task_active_dir");
  
   if(err_str != NULL) {
      sge_dstring_clear(err_str);
   }
  
   if(job == NULL || ja_task == NULL || pe_task == NULL) {
      DEXIT;
      return NULL;
   }

   /* build path to active dir */
   path = sge_get_active_job_file_path(&path_buffer,
                                       lGetUlong(job, JB_job_number), 
                                       lGetUlong(ja_task, JAT_task_number), 
                                       lGetString(pe_task, PET_id), 
                                       NULL);   

   /* try to create it */
   if (sge_mkdir(path, 0755, false, false) == -1) {
      /* error creating directory */
      if(err_str != NULL) {
         sge_dstring_sprintf(err_str, MSG_FILE_CREATEDIR_SS, path, strerror(errno));
      } else {
         ERROR((SGE_EVENT, MSG_FILE_CREATEDIR_SS, path, strerror(errno)));
      }
      DEXIT;
      return NULL;
   }

   DEXIT;
   return path;
}