/********************************************************************
 * wilkinson
 * 3.18VMS
 * 1995/09/25 14:40   
 * gopher_root1:[gopher.g2.vms2_13.gopherd]special.c,v
 * Exp
 *
 * Paul Lindner, University of Minnesota CIS.
 *
 * Copyright 1991, 1992 by the Regents of the University of Minnesota
 * see the file "Copyright" in the distribution for conditions of use.
 *********************************************************************
 * MODULE: special.c
 * routines to deal with special types of files, compressed, scripts, etc.
 *********************************************************************
 * Revision History:
 * special.c,v
 * Revision 3.18VMS 1995/09/25 14:40    wilkinson
 * Consolodate VMS/Unix source code for server as well as client
 *
 * Revision 3.18  1994/07/21  04:08:29  lindner
 * Bulletproofing for shell scripts
 *
 * Revision 3.17  1994/04/25  20:49:11  lindner
 * Fix for debug code
 *
 * Revision 3.16  1994/04/14  15:48:54  lindner
 * Fix for files with single quotes
 *
 * Revision 3.15  1993/11/03  03:32:52  lindner
 * Test shell scripts for exec bit
 *
 * Revision 3.14  1993/08/19  20:52:30  lindner
 * Mitra comments
 *
 * Revision 3.13  1993/08/11  22:47:11  lindner
 * Don't let the security stuff trap ask blocks
 *
 * Revision 3.12  1993/08/06  14:30:49  lindner
 * Fixes for better security logging
 *
 * Revision 3.11  1993/08/04  22:14:54  lindner
 * Mods to use Gpopen
 *
 * Revision 3.10  1993/08/04  22:12:51  lindner
 * Mods to use Gpopen
 *
 * Revision 3.9  1993/07/27  05:27:59  lindner
 * Mondo Debug overhaul from Mitra
 *
 * Revision 3.8  1993/07/25  02:56:51  lindner
 * Fixed iscompressed() to return NULL
 *
 * Revision 3.7  1993/07/23  03:18:13  lindner
 * Mods for using decoder:'s
 *
 * Revision 3.6  1993/07/07  19:35:36  lindner
 * removed extra args to popen()
 *
 * Revision 3.5  1993/06/22  06:58:53  lindner
 * Added a little debug code..
 *
 * Revision 3.4  1993/06/11  16:46:50  lindner
 * Support for gzipped files
 *
 * Revision 3.3  1993/04/09  15:00:19  lindner
 * Fixes for ask shell scripts, ensure that they're run in the current
 * directory of the script.
 *
 * Revision 3.2  1993/03/24  20:24:23  lindner
 * Addition for compressed file support rfopenz()
 *
 * Revision 3.1.1.1  1993/02/11  18:02:53  lindner
 * Gopher+1.2beta release
 *
 * Revision 1.3  1993/02/09  22:15:36  lindner
 * additions for askfile
 *
 * Revision 1.2  1993/01/30  23:57:44  lindner
 * Additions for ASK block support.
 *
 * Revision 1.1  1992/12/10  23:13:27  lindner
 * gopher 1.1 release
 *
 *
 *********************************************************************/

#ifdef VMS_SERVER
#define GSGOPHEROBJ_C
	/*  Right now, DEC C v5.0 seems to ignore the angle brackets and
		pull in [-.object]string.h instead of the system
		    version of string.h, which we need here.  But all we
		    need it for is a prototype of strchr(), so we'll put
		    that in by hand to get around this for now		 */
#include <string.h> /* */
/* char   *strchr	(const char *__s, int __c);  /* */
#endif

#include "gopherd.h"

#ifdef VMS_SERVER
#undef GSGOPHEROBJ_C
#include "serverutil.h"
#endif

#include "ext.h"
#include "Debug.h"

char *iscompressed();

/* Check to see if this file needs special treatment before heading
 * back to the client... We will check for:
 *      Encoded files           execute decoder...
 *	Shellscript		if so, "do it"
 *                              (add ask block params if exists..)
 * Note: it would be somewhat non-portable to check of a binary
 *  (we'd need to check for so many different magic numbers; the
 *  shell script designation should be sufficient, since the script
 *  can call an executable anyway
 * Recognized elsewhere:
 *	.snd			needs special processing on client
 *	uuencoded		needs special processing on client
 * Other filetypes we could check for:
 *	GIF		->	Bring up GIF previewer
 *	Postscript	->	Bring up Postscript previewer
 */

static int ispipe;
#ifdef VMS_SERVER


/*  Provide a VMS way of doing popen()	*/

FILE *
vms_popen(char *cmd, char *mode)
{
    int vms_pipe_status;
    FILE *fopen_VMSopt(char *, char *, char *, char *);

    if (((vms_pipe_status = VMS$system(cmd)) &1)==1)
	return(fopen_VMSopt(vms_pipe_file,mode,"",""));
    if (access(vms_pipe_file, 0) == 0)
	unlink(vms_pipe_file);
    vms_pipe_file[0] = '\0';
    return((FILE *)(0));
}


/*  Provide a VMS way of doing pclose()	*/
int
vms_pclose(FILE *fp)
{
    int vms_pipe_status;

    vms_pipe_status = fclose(fp);
    if (strlen(vms_pipe_file)!=0)
	unlink(vms_pipe_file);
    vms_pipe_file[0] = '\0';
    return(vms_pipe_status);
}

#endif

FILE *
specialfile(sockfd, fp, pathname)
  int sockfd;
  FILE *fp;
  char *pathname;
{
     FILE *pp;
     static char buf[256];
     char  s[256], *cp;
     long i;
     char *decoder;
#ifdef VMS_SERVER
     char *VMS$Validate_Filespec(char *);
#endif
     
     ispipe = 0;
     
     /* Keep track of where we are */
     i = ftell(fp);
     rewind(fp);
     
     /* Grab the first line or 254 bytes, and rewind */
     if (fgets(s, 255, fp) == NULL)
	  return (FILE *)0;

     fseek(fp, i, 0);
     
     /* Compressed? */
     if ((decoder = iscompressed(pathname)) != NULL) {
#ifndef VMS_SERVER
	  dequote1(pathname);
	  if (dochroot)
	       sprintf(buf, "%s '%s'", decoder, pathname);
	  else
	       sprintf(buf, "%s '%s/%s'", decoder, Data_Dir, pathname);
#else
	    /* Need to set up buf & vms_pipe_file for VMS decoding here */
#endif

	  Debug("Executing decoder %s\n",buf);

	  pp = popen(buf, "r");

	  if (!pp)
	       return (FILE *)0;
	  ispipe = 1;
	  return pp;
     }

     /* Script? */
#ifndef VMS_SERVER
     if (isshellscript(s) && isexec(fileno(fp))) {
	  dequote1(pathname);
	  s[strlen(s)-1] = '\0';
	  if (dochroot)
	       sprintf(buf, "\"%s\" %s", pathname, (EXECargs == NULL) ? "" : EXECargs);
	  else
	       sprintf(buf, "\"%s/%s\" %s", Data_Dir, pathname, (EXECargs == NULL) ? "" : EXECargs);

	  if (ASKfile != NULL) {		/* Ick this is a global*/
	       strcat(buf, " < ");
	       strcat(buf, ASKfile);
	  }
        else 
               strcat(buf, " < /dev/null ");

	  /*
	   * Okay, let's change our working directory for the benefit of
	   * shell script writers everywhere :-)
	   */

	  strcpy(s, pathname);
	  cp = strrchr(s, '/');
	  if (cp != NULL && cp > s) {
	       *cp = '\0';
	       ;
	  } else
	       strcpy(s, "/");
	  
	  rchdir(s);
	  
#else
     if (isshellscript(s, pathname)) {
	strcpy(vms_pipe_file, pathname);
	if ((cp=strchr(vms_pipe_file,' '))!=NULL)
	    *cp = '\0';
	if (VMS$Validate_Filespec(vms_pipe_file)==NULL) {
	    vms_pipe_file[0] = '\0';
	    return (FILE *)(ispipe=0);
	}
	strcpy(vms_pipe_file, cp=tempnam(GDCgetScratchDir(Config),NULL));
	free(cp);
	sprintf(buf, "$ @%s/output=%s", pathname, vms_pipe_file);
	if (ASKfile != NULL) {
	    strcat(buf, "/input=");	/** JLW - I know this won't work */
	    strcat(buf, ASKfile);	/** just a placeholder, really **/
	}
	if (EXECargs != NULL) {
	    strcat(buf, " \"");
	    strcat(buf, EXECargs);
	    strcat(buf, "\"");
	}
#endif	  
	  Debug("Executing %s\n", buf);

	  if (EXECargs) {
	       if (! (pp = Gpopen(sockfd, buf, "r")))
		    return (FILE *)0;
	  }
	  else {
	       if (! (pp = popen(buf, "r")))
		    return (FILE *)0;
	  }
		    
	  ispipe = 1;
	  
	  Debugmsg("Zcat/popen is okay\n");
	  

	  return pp;
     }

     return (FILE *)0;
}


char *
iscompressed(pathname)
  char *pathname;
{
     static Extobj *ext = NULL;

     if (pathname == NULL || strlen(pathname)==0)
	  return(NULL);

     if (ext == NULL)
	  ext = EXnew();
     
     if (EXAcasedSearch(Config->Extensions, ext, pathname, EXT_DECODER))
	  return(EXgetDecoder(ext));

     return(NULL);
}


/*
 * Is this a shell script?
 */

#ifndef VMS_SERVER
int
isshellscript(s)
  char *s;
{
     if (! strncmp(s, "#!", 2))
	  return 1;
     else
	  return 0;
}
#else
int
isshellscript(char *s, char *path)
{
     if (strncasecmp(path+strlen(path)-strlen(".SCRIPT"),".SCRIPT")!=0)
	return 0;
     if (! strncmp(s, "$!", 2))
	  return 1;
     else
	  return 0;
}
#endif

#ifndef VMS_SERVER
/*
 * Are the exec bits set?
 */

int
isexec(fd)
  int fd;
{
     STATSTR sb;
     
     if (fstat(fd, &sb) == -1)
	  return 0;
     
     if (sb.st_mode & S_IXUSR)
	  return 1;
     else
	  return 0;
}
#endif

int
Specialclose(fp)
  FILE *fp;
{
     if (ASKfile != NULL)		/* Ick this is a global*/
	  unlink(ASKfile);
     if (ispipe)
	  return(pclose(fp));
     else
	  return(fclose(fp));
}


.