1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
/*
** Copyright 1998 - 1999 Double Precision, Inc.
** See COPYING for distribution information.
*/
/*
** $Id: cgihttpscriptptr.c,v 1.4 2003/07/07 15:19:13 mrsam Exp $
*/
#if HAVE_CONFIG_H
#include "config.h"
#endif
#include "cgi.h"
#if HAVE_UNISTD_H
#include <unistd.h>
#endif
#include <string.h>
#include <stdlib.h>
#include <stdio.h>
static char *scriptptr=0;
extern void error(const char *);
void cgihttpscriptptr_init()
{
/* Reinitialisation required when running as fastcgi */
if (scriptptr) {
free(scriptptr);
scriptptr=0;
}
}
const char *cgihttpscriptptr()
{
if (!scriptptr)
{
char *p=getenv("SCRIPT_NAME");
char *h=getenv("HTTP_HOST");
char *q;
if (!h) h="";
if (!p) p="";
q=malloc(strlen(p)+strlen(h)+sizeof("http://"));
if (!q) error("Out of memory.");
sprintf(q, "http:%s%s%s", (*h ? "//":""), h, p);
scriptptr=q;
}
return (scriptptr);
}
|
