/*

  Copyright 2009 Nathan Phillip Brink, Ethan Zonca, Matthew Orlando

  This file is a part of DistRen.

  DistRen is free software: you can redistribute it and/or modify

  it under the terms of the GNU Affero General Public License as published by

  the Free Software Foundation, either version 3 of the License, or

  (at your option) any later version.

  DistRen is distributed in the hope that it will be useful,

  but WITHOUT ANY WARRANTY; without even the implied warranty of

  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

  GNU Affero General Public License for more details.

  You should have received a copy of the GNU Affero General Public License

  along with DistRen.  If not, see <http://www.gnu.org/licenses/>.

*/

 /*

  * Registration on server. Needs attention. Prevent account spamming.

  * distrenslave -c username email@example.com

 */

#include "asprintf.h"

#include "slavefuncs.h"

#include "distrenjob.h"

#include "execio.h"

#include <curl/curl.h>

#include <curl/types.h>

#include <curl/easy.h>

#include <stdio.h>

#include <string.h>

#include <unistd.h>

#include <stdlib.h>

#include <sys/stat.h>

#include <fcntl.h>

/**

 utility function for XPath-ish stuff:

 */

xmlNodePtr xml_quickxpath(xmlXPathContextPtr xpathctxt, xmlChar *path)

{

  xmlNodePtr toreturn;

  xmlXPathObjectPtr xmlxpathobjptr;

  xmlxpathobjptr = xmlXPathEval(path, xpathctxt);

  if(!xmlxpathobjptr

     || !xmlxpathobjptr->nodesetval->nodeNr)

    {

      fprintf(stderr, "XPath resolution failed for ``%s'' in ``%s'' (``%s'')\n", path, xpathctxt->doc->name, xpathctxt->doc->URL);

      return (xmlNodePtr)NULL;

    }

  toreturn = *(xmlxpathobjptr->nodesetval->nodeTab);

  xmlXPathFreeObject(xmlxpathobjptr);

  return toreturn;

}

/** Ensures that rendering engines on the computer are up-to-date */

int software_updatecheck(){

  curlget("http://protofusion.org/srv/version.info", SYSCONFDIR "/serverEngineVersion.info");

  struct stat buffer;

  char serverVersion[5]; // Version numbers are nice and short

  char localVersion[5]; // Version numbers are nice and short

  // Read server version

  {

    FILE * serverVersionFile;

    serverVersionFile = fopen(SYSCONFDIR "/serverEngineVersion.info","r");

    fscanf(serverVersionFile, "%s",serverVersion);

    fclose(serverVersionFile);

  }

  // Read local version

  {

    FILE * localVersionFile;

    localVersionFile = fopen(SYSCONFDIR "/engines/blender/version.info","r");

    fscanf(localVersionFile, "%s",localVersion);

    fclose(localVersionFile);

  }

  // If a rendering engine was never downloaded

  if( stat(SYSCONFDIR "/engines/blender", &buffer) == -1){

    fprintf(stderr,"You don't have the blender engine. Preparing to download...");

    curlget("http://protofusion.org/distren/srv/blender-lin32-dist.tgz", SYSCONFDIR "/engines/blender.tgz"); // Add calls for operating system info

    // untar(SYSCONFDIR "/engines/blender.tgz");

  }

  // If a rendering engine is out-of-date

  else if( serverVersion != localVersion){

    fprintf(stderr,"You don't have the latest blender engine. Preparing to download...");

    curlget("http://protofusion.org/distren/srv/blender-lin32-dist.tgz", SYSCONFDIR "/engines/blender.tgz"); // Add calls for operating system info

    // untar(SYSCONFDIR "/engines/blender.tgz");

  }

  return 0;

}

/** Stub for deleting job data from the disk. @TODO: unstubify me! */

int delete_jobdata(int jobnum, char *datadir)

{

  char *jobpath;

  _distren_asprintf(&jobpath, "%s/%d", datadir, jobnum);

  rmdir(jobpath);

  fprintf(stderr, "I just failed to remove all of your job data because I can only delete empty directories! Haha!\nPlease contact the dev team :D\n\tWe'd be overjoyed to know that someone was willing to try to use this in this devel/design/planning stage ;-)\n");

  return 0;

}

/** Stub stub stubbiness ugh @TODO: Kill me. */

void tell_the_server(int stuff){

}

    };

  size_t readlen;

  fprintf(stderr, "Logging you in to %s\n", userhost);

  int status;

  struct stat buffer;

  status = stat(SYSCONFDIR "/distren.id_rsa", &buffer);

  if(status == -1){

	  fprintf(stderr,"Your key has not been found! Re-register or somehow regenerate your key!\nWe need a way to regenerate keys coded in, but we don't have the facilities yet!\n");

	  return 0;

  }

  execio_open(&testrem, "ssh", execargv); // TODO: Grab returns from this someday

  buf[9] = '\0'; // null-terminating the array...

  while(!execio_read(testrem, buf, 9, &readlen))

    {

      if(readlen > 9) {

	fprintf(stderr, "Something is terribly wrong!\n");

      }

    buf[readlen] = '\0';

    fprintf(stderr, "read \"%s\"\n", buf);

    }

  execio_close(testrem);

  return 1; // 1 means success

}

/** Replaces !username with a username in the slave's conf file */

int conf_replace(char *username){

  int maxlinelen = 120;

  char *fileOrig = SYSCONFDIR "/distrenslave.conf";

  char *fileRepl = SYSCONFDIR "/distrenslave.conf.edited";

  char *text2find = "!username";

  char *text2repl = username;

  char buffer[maxlinelen+2];

  char *buff_ptr, *find_ptr;

  FILE *fp1, *fp2;

  size_t find_len = strlen(text2find);

  fp1 = fopen(fileOrig,"r");

  fp2 = fopen(fileRepl,"w");

  if (fp1 ==NULL){

	  fprintf(stderr, "%s doesn't exist\n",fileOrig);

	  return 0;

  }

  else if(fp2 ==NULL){

	  fprintf(stderr, "Can't write a file to disk! Check permissions.\n");

	  return 0;

  }

  else{

    while(fgets(buffer,maxlinelen+2,fp1))

      {

          buff_ptr = buffer;

          while ((find_ptr = strstr(buff_ptr,text2find)))

          {

          while(buff_ptr < find_ptr)

          	fputc((int)*buff_ptr++,fp2);

          fputs(text2repl,fp2);

          buff_ptr += find_len;

          }

          fputs(buff_ptr,fp2);

      }

    rename(fileRepl, fileOrig);

  }

  fclose(fp2);

  fclose(fp1);

  fprintf(stderr,"Wrote conf file...\n");

return 1; // Success

}

/* Executors */

/** Executor function for Blender operations */

void exec_blender(struct distrenjob* distrenjob, char *input, char *output, int frame)

{

  int ret;

  char *frame_str;

  /* start execio code */

  char *command = "blender"; // @TODO: append .exe if win32?

  char *cmd[] = { command, "-b", "-o", output, input, "-f", frame_str, (char *)NULL };

  char buf[10];

  struct execio *testrem;

  size_t readlen;

  _distren_asprintf(&frame_str, "%i", frame);

  ret = execio_open(&testrem, command, cmd); // This path will be absolute for testing, @TODO: should be relative to install on production

  buf[9] = '\0';

  while(!execio_read(testrem, buf, 9, &readlen))

  	    {

  	      if(readlen > 9) {

  		fprintf(stderr, "Something is terribly wrong!\n");

  	      }

  	      buf[readlen] = '\0';

  	      fprintf(stderr, "read \"%s\"\n", buf);

  	    }

  	execio_close(testrem);

  /* end execio code */

  	if(ret == 1){

  		fprintf(stderr,"Error starting Blender. Check your install.\n");

  	}

  	else{

  		fprintf(stderr,"Blender at least started nicely, we don't know if it rendered anything though.\n");

  	}

  	// Consider placing the following in the exec_blender() function

}

void xmlinit()

{

  xmlInitParser();

  xmlXPathInit();

}

void xmlcleanup()

{

  xmlCleanupParser();

}