#include "common.h"
#include "h_script.h"
#include "haserl.h"
#include "h_error.h"
char *g_err_msg[] = {
"",
"Memory Allocation Failure",
"Unable to open file %s",
"%c> before <%c",
"Missing %c>",
"Unknown operation",
"Unable to start subshell",
"Unspecified Error",
};
/*
* abort the program
*/
void
die_with_error (char *msg)
{
fprintf (stderr, "Error: %s\n", msg);
exit (-1);
}
/* print an error message and die. If sp or where are non-null pointers, then
a line is added saying where in the script buffer the error occured. If
there's a request method, then http headers are added.
*/
void
die_with_message (void *sp, char *where, const char *s, ...)
{
#ifndef JUST_LUACSHELL
script_t *script = sp;
#endif
va_list p;
FILE *fo = stderr;
if (global.silent == FALSE)
{
if (getenv ("REQUEST_METHOD"))
{
fo = stdout;
fprintf (fo, "HTTP/1.0 500 Server Error\n"
"Content-Type: text/html\n\n"
"" PACKAGE_NAME
" CGI Error
\n");
}
va_start (p, s);
vfprintf (fo, s, p);
va_end (p);
#ifndef JUST_LUACSHELL
if (where && sp)
{
fprintf (fo, " near line %d of %s\n",
count_lines (script->buf, script->size, where),
script->name);
}
#endif
printf ("\n");
if (getenv ("REQUEST_METHOD"))
fprintf (fo, "\n");
}
exit (-1);
}
haserl-0.9.35/src/h_lua.c 0000644 0001750 0001750 00000007735 12470215303 014414 0 ustar nangel nangel /* --------------------------------------------------------------------------
* Copyright 2003-2011 (inclusive) Nathan Angelacos
* (nangel@users.sourceforge.net)
*
* This file is part of haserl.
*
* Haserl is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2,
* as published by the Free Software Foundation.
*
* Haserl 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with haserl. If not, see .
*
* ------------------------------------------------------------------------ */
#if HAVE_CONFIG_H
#include
#endif
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include "common.h"
#include "h_error.h"
#include "h_lua.h"
#include "h_script.h"
#include "haserl.h"
extern lua_State *lua_vm;
/* attempts to open a file, tokenize and then process it as a haserl script */
int
h_lua_loadfile (lua_State * L)
{
script_t *scriptchain;
token_t *tokenchain;
buffer_t script_text;
int status;
/* get the filename */
const char *filename = luaL_checkstring (L, 1);
scriptchain = load_script ((char *) filename, NULL);
tokenchain = build_token_list (scriptchain, NULL);
preprocess_token_list (tokenchain);
process_token_list (&script_text, tokenchain);
free_token_list (tokenchain);
free_script_list (scriptchain);
/* script_text has the include file */
status = luaL_loadbuffer (L, (char *) script_text.data,
script_text.ptr - script_text.data, filename);
buffer_destroy (&script_text);
if (status)
{
lua_error (L);
}
return (1); /* we return one value, the buffer, as a function */
}
void
lua_exec (buffer_t * buf, char *str)
{
buffer_add (buf, str, strlen (str));
}
void
lua_doscript (buffer_t * script, char *name)
{
int status;
/* force the string to be null terminated */
buffer_add (script, "\0", 1);
status = luaL_loadbuffer (lua_vm, (char *) script->data,
strlen ((char *) script->data), name) ||
lua_pcall (lua_vm, 0, LUA_MULTRET, 0);
if (status && !lua_isnil (lua_vm, -1))
{
const char *msg = lua_tostring (lua_vm, -1);
if (msg == NULL)
msg = "(error object is not a string)";
die_with_message (NULL, NULL, msg);
}
}
/* Run the echo command in a subshell */
void
lua_echo (buffer_t * buf, char *str, size_t len)
{
static char echo_start[] = " io.write(";
char quote[200] = "]=]"; /* 197 nested comments is a problem */
if (len == 0)
return;
/* figure out if the string uses ]] ]=] ]==] etc in it */
while ((strstr (str, quote)) && (strlen (quote) < 198))
{
memmove (quote + strlen (quote) - 1, quote + strlen (quote) - 2, 3);
}
/* As of 5.1, nested comments are depreciated... sigh */
quote[0] = '[';
quote[strlen (quote) - 1] = quote[0];
while ((strstr (str, quote)) && (strlen (quote) < 198))
{
memmove (quote + strlen (quote) - 1, quote + strlen (quote) - 2, 3);
}
buffer_add (buf, echo_start, strlen (echo_start));
buffer_add (buf, quote, strlen (quote));
buffer_add (buf, str, len);
quote[0] = ']';
quote[strlen (quote) - 1] = quote[0];
buffer_add (buf, quote, strlen (quote));
buffer_add (buf, ")\n", 2);
}
/* do an evaluation */
void
lua_eval (buffer_t * buf, char *str, size_t len)
{
static char start[] = " io.write(tostring(";
static char end[] = "))\n";
if (len == 0)
return;
buffer_add (buf, start, strlen (start));
buffer_add (buf, str, len);
buffer_add (buf, end, strlen (end));
}
haserl-0.9.35/src/haserl.h 0000644 0001750 0001750 00000010505 12470207650 014602 0 ustar nangel nangel /* --------------------------------------------------------------------------
* Copyright 2003-2011 (inclusive) Nathan Angelacos
* (nangel@users.sourceforge.net)
*
* This file is part of haserl.
*
* Haserl is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2,
* as published by the Free Software Foundation.
*
* Haserl 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with haserl. If not, see .
*
* ------------------------------------------------------------------------ */
#ifndef _HASERL_H
#define _HASERL_H 1
/* Just a silly construct to contain global variables */
typedef struct
{
unsigned long uploadkb; /* how big an upload do we allow (0 for none)*/
char *shell; /* The shell we use */
char *uploaddir; /* where we upload to */
char *uploadhandler; /* a handler for uploads */
char *var_prefix; /* what name we give to FORM variables */
char *get_prefix; /* what name we give to POST variables */
char *post_prefix; /* what name we give to POST variables */
char *cookie_prefix; /* what name we give to COOKIE variables */
char *nul_prefix; /* what name we give to environment variables*/
char *haserl_prefix; /* what name we give to HASERL variables */
token_t *uploadlist; /* a linked list of pathspecs */
int debug; /* true if in "debug" mode */
int acceptall; /* true if we'll accept POST data on
GETs and vice versa */
int silent; /* true if we never print errors */
} haserl_t;
extern haserl_t global;
char x2c(char *what);
void unescape_url(char *url);
void *xmalloc (size_t size);
void *xrealloc (void *buf, size_t size);
list_t *myputenv(list_t *cur, char *str, char *prefix);
void free_list_chain ( list_t *);
void readenv(list_t *env);
void CookieVars(list_t *env);
void sessionid(list_t *env);
list_t *wcversion(list_t *env);
void haserlflags(list_t *env);
int ReadCGIQueryString(list_t *env);
int ReadCGIPOSTValues(list_t *env);
int LineToStr(char *string, size_t max);
int ReadMimeEncodedInput(list_t *env);
void PrintParseError(char *error, int linenum);
int parseCommandLine(int argc, char *argv[]);
int BecomeUser(uid_t uid, gid_t gid);
void assignGlobalStartupValues(void);
void unlink_uploadlist (void);
int main(int argc, char *argv[]);
extern void (*shell_exec)(buffer_t *buf, char *str);
extern void (*shell_echo)(buffer_t *buf, char *str, size_t len);
extern void (*shell_eval)(buffer_t *buf, char *str, size_t len);
extern void (*shell_setup)( char *, list_t *);
extern void (*shell_doscript)( buffer_t *, char *);
extern void (*shell_destroy) (void);
#ifdef BASHEXTENSIONS
extern void (*shell_if)(buffer_t *buf, char *str, size_t len);
extern void (*shell_elif)(buffer_t *buf, char *str, size_t len);
extern void (*shell_else)(buffer_t *buf, char *str, size_t len);
extern void (*shell_endif)(buffer_t *buf, char *str, size_t len);
extern void (*shell_case)(buffer_t *buf, char *str, size_t len);
extern void (*shell_when)(buffer_t *buf, char *str, size_t len);
extern void (*shell_otherwise)(buffer_t *buf, char *str, size_t len);
extern void (*shell_endcase)(buffer_t *buf, char *str, size_t len);
extern void (*shell_while)(buffer_t *buf, char *str, size_t len);
extern void (*shell_endwhile)(buffer_t *buf, char *str, size_t len);
extern void (*shell_until)(buffer_t *buf, char *str, size_t len);
extern void (*shell_enduntil)(buffer_t *buf, char *str, size_t len);
extern void (*shell_for)(buffer_t *buf, char *str, size_t len);
extern void (*shell_endfor)(buffer_t *buf, char *str, size_t len);
extern void (*shell_unless)(buffer_t *buf, char *str, size_t len);
extern void (*shell_elun)(buffer_t *buf, char *str, size_t len);
extern void (*shell_unelse)(buffer_t *buf, char *str, size_t len);
extern void (*shell_endunless)(buffer_t *buf, char *str, size_t len);
#endif
#endif /* !_HASERL_H */
haserl-0.9.35/src/haserl_lualib.lua 0000644 0001750 0001750 00000003360 12470207650 016465 0 ustar nangel nangel --[[
/* --------------------------------------------------------------------------
* Copyright 2003-2011 (inclusive) Nathan Angelacos
* (nangel@users.sourceforge.net)
*
* This file is part of haserl.
*
* Haserl is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2,
* as published by the Free Software Foundation.
*
* Haserl 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with haserl. If not, see .
*
* ------------------------------------------------------------------------ */
]]--
haserl, FORM, ENV, COOKIE, HASERL, GET, POST = {}, {}, {}, {}, {}, {}, {}
function haserl.setfield (f, v)
-- From programming in Lua 1st Ed.
local t = _G -- start with the table of globals
for w, d in string.gmatch(f, '([%w_%-]+)(.?)') do
if (tonumber(w)) then
w = tonumber(w)
end
if d == '.' then -- not last field?
t[w] = t[w] or {} -- create table if absent
t = t[w] -- get the table
else -- last field
t[w] = v -- do the assignment
end
end
end
function haserl.getfield (f)
local v = _G -- start with the table of globals
for w in string.gmatch(f, '[%w_]+') do
v = v[w]
end
return v
end
function haserl.myputenv(key, value)
-- convert key to dotted form
key = string.gsub(key, '[\\]\\[]', '.' )
key = string.gsub(key, '[\\.]+', '.' )
-- and create a table if necessary
haserl.setfield (key, value)
end
haserl-0.9.35/src/h_lua_common.h 0000644 0001750 0001750 00000002002 12470207650 015755 0 ustar nangel nangel /* --------------------------------------------------------------------------
* Copyright 2003-2011 (inclusive) Nathan Angelacos
* (nangel@users.sourceforge.net)
*
* This file is part of haserl.
*
* Haserl is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2,
* as published by the Free Software Foundation.
*
* Haserl 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with haserl. If not, see .
*
* ------------------------------------------------------------------------ */
#ifndef _H_LUA_COMMON_H
#define _H_LUA_COMMON_H
void lua_common_setup(char *shell, list_t *env);
void lua_common_destroy(void);
#endif
haserl-0.9.35/src/lua2c.c 0000644 0001750 0001750 00000005020 12470213372 014317 0 ustar nangel nangel /* --------------------------------------------------------------------------
* Copyright 2003-2011 (inclusive) Nathan Angelacos
* (nangel@users.sourceforge.net)
*
* This file is part of haserl.
*
* Haserl is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2,
* as published by the Free Software Foundation.
*
* Haserl 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with haserl. If not, see .
*
* ------------------------------------------------------------------------ */
/* This program loads the source file, and then uses lua_dump to output it
* to a c const char array. Because lua_dump is used instead of the internal
* luaU_dump function, debugging info is in the output array. If you want
* to compile the array without debugging information, first use luac on the
* .lua source, and then run lua2c on that output:
* luac -s -o foo haserl_lualib.lua
* lua2c haserl_lualib foo >haserl_lualib.inc
*/
#if HAVE_CONFIG_H
#include
#endif
#include
#include
#include
#include
#include
#include
#include
lua_State *lua_vm = NULL;
static void
loadit (char *filename)
{
lua_vm = luaL_newstate ();
luaL_openlibs (lua_vm);
if (luaL_loadfile (lua_vm, filename))
{
puts (lua_tostring (lua_vm, -1));
exit (-1);
}
}
static int
writer (lua_State * L, const void *p, size_t size, void *u)
{
static int count = 0;
int i;
for (i = 0; i < size; i++)
{
if ((count) && (count % 16) == 0)
printf ("\n ");
printf ("%3d,", *((unsigned char *) (p + i)));
count++;
}
return (0);
}
static void
dumpit ()
{
#if LUA_VERSION_NUM >= 503
lua_dump (lua_vm, writer, NULL, 0);
#else
lua_dump (lua_vm, writer, NULL);
#endif
}
int
main (int argc, char *argv[])
{
if (argc != 3)
{
printf ("usage: %s varname luasource >output\n", argv[0]);
return (-1);
}
loadit (argv[2]);
printf
("/* This file was automatically generated from %s. DO NOT EDIT */\n\n",
argv[2]);
printf ("static const unsigned char %s[] = { \n ", argv[1]);
dumpit ();
printf ("\n};\n");
return (0);
}
haserl-0.9.35/src/common.c 0000644 0001750 0001750 00000016421 12470207650 014612 0 ustar nangel nangel /* --------------------------------------------------------------------------
* Copyright 2003-2014 (inclusive) Nathan Angelacos
* (nangel@users.sourceforge.net)
*
* This file is part of haserl.
*
* Haserl is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2,
* as published by the Free Software Foundation.
*
* Haserl 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with haserl. If not, see .
*
* ------------------------------------------------------------------------ */
#if HAVE_CONFIG_H
#include
#endif
#include
#include
#include
#include
#include
#include "common.h"
#include "h_error.h"
/* we define this here, but should use the header files instead. */
void *xrealloc (void *buf, size_t size);
/*
* split a string into an argv[] array, and return the number of elements.
* Warning: Overwrites instr with nulls (to make ASCIIZ strings) and mallocs
* space for the argv array. The argv array will point to the offsets in
* instr where the elements occur. The calling function must free the argv
* array, and should do so before freeing instr memory.
*
* If comment points to a non-null string, then any character in the string
* will mark the beginning of a comment until the end-of-line:
*
* comment="#;"
* foo bar # This is a comment
* foo baz ; This is a comment as well
*
* Example of use:
*
* int argc, count; argv_t *argv; char string[2000];
*
* strcpy (string, "This\\ string will be \"separated into\" '6' elements.", "");
* argc = argc_argv (string, &argv);
* for (count = 0; count < argc; count++) {
* printf ("%03d: %s\n", count, argv[count].string);
* }
* free (argv);
*
*/
int
argc_argv (char *instr, argv_t ** argv, char *commentstr)
{
char quote = '\0';
int arg_count = 0;
enum state_t
{
WHITESPACE, WORDSPACE, TOKENSTART
} state = WHITESPACE;
argv_t *argv_array = NULL;
int argc_slots = 0;
size_t len, pos;
len = strlen (instr);
pos = 0;
char quoted = 0;
while (pos < len)
{
// printf ("%3d of %3d: %s\n", pos, len, instr);
/* Comments are really, really special */
if ((state == WHITESPACE) && (strchr (commentstr, *instr)))
{
while ((*instr != '\n') && (*instr != '\0'))
{
instr++;
pos++;
}
}
switch (*instr)
{
/* quoting */
case '"':
case '\'':
/* Begin quoting */
if (state == WHITESPACE)
{
quote = *instr;
state = TOKENSTART;
quoted = -1;
if (*(instr + 1) == quote)
{ /* special case for NULL quote */
*instr = '\0';
}
else
{
instr++;
pos++;
}
}
else
{ /* WORDSPACE, so quotes end or quotes within quotes */
/* Is it the same kind of quote? */
if ( (*instr == quote) && quoted )
{
quote = '\0';
*instr = '\0';
state = WHITESPACE;
}
}
break;
/* backslash - if escaping a quote within a quote */
case '\\':
if ((quote) && (*(instr + 1) == quote))
{
memmove (instr, instr + 1, strlen (instr));
len--;
}
/* otherwise, its just a normal character */
else
{
if (state == WHITESPACE)
{
state = TOKENSTART;
}
}
break;
/* whitepsace */
case ' ':
case '\t':
case '\r':
case '\n':
if ((state == WORDSPACE) && (quote == '\0'))
{
state = WHITESPACE;
*instr = '\0';
}
break;
case '\0':
break;
default:
if (state == WHITESPACE)
{
state = TOKENSTART;
}
} /* end switch */
if (state == TOKENSTART)
{
arg_count++;
if (arg_count > argc_slots)
{
argc_slots += ALLOC_CHUNK;
argv_array =
(argv_t *) xrealloc (argv_array,
sizeof (argv_t) * (argc_slots +
ALLOC_CHUNK));
}
if (argv_array == NULL)
{
return (-1);
}
argv_array[arg_count - 1].string = instr;
argv_array[arg_count - 1].quoted = quoted;
state = WORDSPACE;
quoted = 0;
}
instr++;
pos++;
}
if ( arg_count == 0 ) return (0);
argv_array[arg_count].string = NULL;
*argv = argv_array;
return (arg_count);
}
/* Expandable Buffer is a reimplementation based on buffer.c in GCC
originally by Per Bother */
void
haserl_buffer_init (buffer_t * buf)
{
buf->data = NULL;
buf->ptr = NULL;
buf->limit = NULL;
}
void
buffer_destroy (buffer_t * buf)
{
if (buf->data)
{
free (buf->data);
}
haserl_buffer_init (buf);
}
/* don't reallocate - just forget about the current contents */
void
buffer_reset (buffer_t * buf)
{
if (buf->data)
{
buf->ptr = buf->data;
}
else
{
buf->ptr = NULL;
}
}
void
buffer_add (buffer_t * buf, const void *data, unsigned long size)
{
unsigned long newsize;
unsigned long index;
/* if we need to grow the buffer, do so now */
if ((buf->ptr + size) >= buf->limit)
{
index = (buf->limit - buf->data);
newsize = index;
while (newsize <= index + size)
{
newsize += 1024;
}
index = buf->ptr - buf->data;
buf->data = realloc (buf->data, newsize);
if ( buf->data == NULL )
{
die_with_message ( NULL, NULL, "Memory allocation error");
}
buf->limit = buf->data + newsize;
buf->ptr = buf->data + index;
}
memcpy (buf->ptr, data, size);
buf->ptr += size;
}
#ifndef JUST_LUACSHELL
/* uppercase an entire string, using toupper */
void
uppercase (char *instr)
{
while (*instr != '\0')
{
*instr = toupper (*instr);
instr++;
}
}
/* lowercase an entire string, using tolower */
void
lowercase (char *instr)
{
while (*instr != '\0')
{
*instr = tolower (*instr);
instr++;
}
}
/* return ptr to first non-whitespace character */
char *
skip_whitespace (char *instr)
{
while (isspace (*instr) && *instr)
instr++;
return instr;
}
/* return ptr to first whitespace character */
char *
find_whitespace (char *instr)
{
while (!isspace (*instr) && *instr)
instr++;
return instr;
}
/* Counts the number of newlines in a buffer */
int
count_lines (char *instr, size_t len, char *where)
{
size_t line = 1;
while ((where > instr) && (len))
{
if (*instr == '\n')
line++;
len--;
instr++;
}
return line;
}
#endif
#ifdef TEST_FRAMEWORK
main ()
{
int argc, count;
argv_t *argv;
char string[2000];
strcpy (string,
"\\This\\ string will be '' \"separated into\" \"'\\\"'\" ' 16 ' elements.\n"
"' including a multi-line\n"
"element' with a comment. # This should not be parsed\n"
";Nor should this\n" "The End.");
argc = argc_argv (string, &argv, "#;");
printf ("%s\n", string);
for (count = 0; count < argc; count++)
{
printf ("%03d: [%s] ", count, argv[count].string, "");
if (argv[count].quoted)
{
printf ("(it was quoted)");
}
printf ("\n");
}
if (argc != 15)
{
puts ("Test FAILED");
}
else
{
puts ("Test PASSED");
}
free (argv);
}
#endif
haserl-0.9.35/src/config.h.in 0000644 0001750 0001750 00000005014 12500111133 015155 0 ustar nangel nangel /* src/config.h.in. Generated from configure.ac by autoheader. */
/* Include bash extensions */
#undef BASHEXTENSIONS
/* Define to 1 if you have the header file. */
#undef HAVE_INTTYPES_H
/* Define to 1 if you have the header file. */
#undef HAVE_MEMORY_H
/* Define to 1 if you have the `memset' function. */
#undef HAVE_MEMSET
/* Define to 1 if you have the `putenv' function. */
#undef HAVE_PUTENV
/* Define to 1 if you have the header file. */
#undef HAVE_SIGNAL_H
/* Define to 1 if you have the header file. */
#undef HAVE_STDINT_H
/* Define to 1 if you have the header file. */
#undef HAVE_STDLIB_H
/* Define to 1 if you have the `strcasecmp' function. */
#undef HAVE_STRCASECMP
/* Define to 1 if you have the `strdup' function. */
#undef HAVE_STRDUP
/* Define to 1 if you have the header file. */
#undef HAVE_STRINGS_H
/* Define to 1 if you have the header file. */
#undef HAVE_STRING_H
/* Define to 1 if you have the `strncasecmp' function. */
#undef HAVE_STRNCASECMP
/* Define to 1 if you have the `strstr' function. */
#undef HAVE_STRSTR
/* Define to 1 if you have the header file. */
#undef HAVE_SYS_STAT_H
/* Define to 1 if you have the header file. */
#undef HAVE_SYS_TYPES_H
/* Define to 1 if you have the header file. */
#undef HAVE_UNISTD_H
/* Include Bash/Linux shell */
#undef INCLUDE_BASHSHELL
/* Include shell for precompiled Haserl/Lua */
#undef INCLUDE_LUACSHELL
/* Include ordinary Lua shell */
#undef INCLUDE_LUASHELL
/* Include just the compiled Lua shell */
#undef JUST_LUACSHELL
/* Name of package */
#undef PACKAGE
/* Define to the address where bug reports for this package should be sent. */
#undef PACKAGE_BUGREPORT
/* Define to the full name of this package. */
#undef PACKAGE_NAME
/* Define to the full name and version of this package. */
#undef PACKAGE_STRING
/* Define to the one symbol short name of this package. */
#undef PACKAGE_TARNAME
/* Define to the home page for this package. */
#undef PACKAGE_URL
/* Define to the version of this package. */
#undef PACKAGE_VERSION
/* Define to 1 if you have the ANSI C header files. */
#undef STDC_HEADERS
/* the subshell to start up */
#undef SUBSHELL_CMD
/* Lua enabled */
#undef USE_LUA
/* Version number of package */
#undef VERSION
/* Enable GNU Extensions */
#undef _GNU_SOURCE
/* Define to empty if `const' does not conform to ANSI C. */
#undef const
/* Define to `unsigned int' if does not define. */
#undef size_t
haserl-0.9.35/src/h_script.h 0000644 0001750 0001750 00000004523 12470207650 015142 0 ustar nangel nangel /* --------------------------------------------------------------------------
* Copyright 2003-2011 (inclusive) Nathan Angelacos
* (nangel@users.sourceforge.net)
*
* This file is part of haserl.
*
* Haserl is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2,
* as published by the Free Software Foundation.
*
* Haserl 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with haserl. If not, see .
*
* ------------------------------------------------------------------------ */
#ifndef H_SCRIPT_H
#define H_SCRIPT_H 1
/* Everything we care to know about a script */
typedef struct {
char *name; /* pointer to name of script */
int size; /* size of script in bytes */
uid_t uid; /* user owner */
gid_t gid; /* group owner */
char *buf; /* pointer to malloc'ed buffer */
size_t curpos; /* current position in buffer */
void *next; /* next script in our chain */
} script_t;
/* tag types */
#ifdef BASHEXTENSIONS
enum tag_t { HTML, RUN, INCLUDE, EVAL, COMMENT, IF, ELIF, ELSE, ENDIF, CASE, WHEN, OTHERWISE, ENDCASE, WHILE, ENDWHILE, UNTIL, ENDUNTIL, FOR, ENDFOR, UNLESS, ELUN, UNELSE, ENDUNLESS, NOOP };
#else
enum tag_t { HTML, RUN, INCLUDE, EVAL, COMMENT, NOOP };
#endif
/* token structure */
typedef struct {
script_t *script; /* the parent script */
enum tag_t tag; /* the token type */
size_t len; /* length of token */
char *buf; /* pointer to start of token */
void *next; /* the next token in the chain */
} token_t;
/* h_script.c */
script_t *load_script(char *filename, script_t *scriptlist);
void free_script_list(script_t *script);
token_t *push_token_on_list(token_t *tokenlist, script_t *scriptbuf, char *start, size_t len);
void free_token_list(token_t *tokenlist);
#ifndef JUST_LUACSHELL
token_t *build_token_list(script_t *scriptbuf, token_t *tokenlist);
void preprocess_token_list(token_t *tokenlist);
token_t *process_token_list(buffer_t *buf, token_t *tokenlist);
#endif
#endif /* !H_SCRIPT_H */
haserl-0.9.35/src/h_lua_common.c 0000644 0001750 0001750 00000005522 12470207650 015762 0 ustar nangel nangel /* --------------------------------------------------------------------------
* Copyright 2003-2011 (inclusive) Nathan Angelacos
* (nangel@users.sourceforge.net)
*
* This file is part of haserl.
*
* Haserl is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2,
* as published by the Free Software Foundation.
*
* Haserl 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with haserl. If not, see .
*
* ------------------------------------------------------------------------ */
#if HAVE_CONFIG_H
#include
#endif
#include
#include
#include
#include
#include "common.h"
#include "h_lua_common.h"
#ifdef INCLUDE_LUASHELL
#include "h_lua.h"
#endif
#ifdef INCLUDE_LUACSHELL
#include "h_luac.h"
#endif
#include "h_error.h"
/* this is not a mistake. We are including the
* definition of the lualib here
*/
#include "haserl_lualib.inc"
lua_State *lua_vm = NULL;
void
lua_common_putenv (char *str)
{
char *value;
value = memchr (str, '=', strlen (str));
if (value)
{
*value = (char) '\0';
value++;
}
else
{
value = str + strlen (str);
}
lua_getglobal (lua_vm, "haserl");
lua_pushstring (lua_vm, "myputenv");
lua_gettable (lua_vm, -2);
lua_pushstring (lua_vm, str);
lua_pushstring (lua_vm, value);
lua_call (lua_vm, 2, 0);
return;
}
void
lua_common_setup (char *shell, list_t * env)
{
/* create a lua instance */
lua_vm = luaL_newstate ();
luaL_openlibs (lua_vm);
/* and load our haserl library */
if (luaL_loadbuffer
(lua_vm, (const char *) &haserl_lualib, sizeof (haserl_lualib),
"luascript.lua") || lua_pcall (lua_vm, 0, 0, 0))
{
die_with_message (NULL, NULL,
"Error passing the lua library to the lua vm: %s",
lua_tostring (lua_vm, -1));
}
/* and put the vars in the vm */
while (env)
{
lua_common_putenv (env->buf);
env = env->next;
}
/* register our open function in the haserl table */
lua_getglobal (lua_vm, "haserl");
lua_pushstring (lua_vm, "loadfile");
#if defined(INCLUDE_LUASHELL) && defined(INCLUDE_LUACSHELL)
lua_pushcfunction (lua_vm,
shell[3] == 'c' ? h_luac_loadfile : h_lua_loadfile);
#elif defined(INCLUDE_LUASHELL)
lua_pushcfunction (lua_vm, h_lua_loadfile);
#else /* INCLUDE_LUACSHELL */
lua_pushcfunction (lua_vm, h_luac_loadfile);
#endif
lua_settable (lua_vm, -3);
}
void
lua_common_destroy (void)
{
/* close the lua instance */
lua_close (lua_vm);
}
haserl-0.9.35/src/h_lua.h 0000644 0001750 0001750 00000002235 12470207650 014415 0 ustar nangel nangel /* --------------------------------------------------------------------------
* Copyright 2003-2011 (inclusive) Nathan Angelacos
* (nangel@users.sourceforge.net)
*
* This file is part of haserl.
*
* Haserl is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2,
* as published by the Free Software Foundation.
*
* Haserl 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with haserl. If not, see .
*
* ------------------------------------------------------------------------ */
#ifndef H_LUA_H
#define H_LUA_H 1
#include
void lua_exec(buffer_t *buf, char *str);
void lua_echo(buffer_t *buf, char *str, size_t len);
void lua_eval(buffer_t *buf, char *str, size_t len);
void lua_doscript(buffer_t *script, char *name);
int h_lua_loadfile(lua_State *L);
#endif
haserl-0.9.35/src/sliding_buffer.h 0000644 0001750 0001750 00000003366 12470207650 016315 0 ustar nangel nangel /* --------------------------------------------------------------------------
* Copyright 2003-2011 (inclusive) Nathan Angelacos
* (nangel@users.sourceforge.net)
*
* This file is part of haserl.
*
* Haserl is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2,
* as published by the Free Software Foundation.
*
* Haserl 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with haserl. If not, see .
*
* ------------------------------------------------------------------------ */
#ifndef _SLIDING_BUF_H
#define _SLIDING_BUF_H 1
/* sliding buffer structure */
typedef struct {
int fh; /* the input filehandle for the buffer */
unsigned char *buf; /* pointer to the buffer */
unsigned char *ptr; /* start positon (used internally) */
unsigned char *segment; /* the start position of this segment */
size_t len; /* length of this segment */
size_t maxsize; /* max size of buffer */
size_t bufsize; /* current size of buffer */
size_t maxread; /* maximum number of bytes to read from fh, ignored if 0 */
size_t nrread; /* number of bytes read from fh */
int eof; /* true if there is no more to read */
} sliding_buffer_t;
/* sliding_buffer.c */
int s_buffer_init(sliding_buffer_t *sbuf, int size);
void s_buffer_destroy(sliding_buffer_t *sbuf);
int s_buffer_read(sliding_buffer_t *sbuf, char *matchstr);
#endif /* !_SLIDING_BUF_H */
haserl-0.9.35/src/h_bash.c 0000644 0001750 0001750 00000036152 12470215263 014550 0 ustar nangel nangel /* --------------------------------------------------------------------------
* Copyright 2003-2011 (inclusive) Nathan Angelacos
* (nangel@users.sourceforge.net)
*
* This file is part of haserl.
*
* Haserl is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2,
* as published by the Free Software Foundation.
*
* Haserl 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with haserl. If not, see .
*
* ------------------------------------------------------------------------ */
#if HAVE_CONFIG_H
#include
#endif
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#if HAVE_SIGNAL_H
#include
#endif
#include "common.h"
#include "h_error.h"
#include "h_bash.h"
#include "h_script.h"
#include "haserl.h"
/* Local subshell variables */
static int subshell_pipe[2];
static int subshell_pid;
void
bash_setup (char *shell, list_t * env)
{
int retcode = 0;
int count;
argv_t *argv;
char *av[20];
list_t *next;
if (shell == NULL)
return;
retcode = pipe (&subshell_pipe[PARENT_IN]);
if (retcode == 0)
{
subshell_pid = fork ();
if (subshell_pid == -1)
{
die_with_message (NULL, NULL, g_err_msg[E_SUBSHELL_FAIL]);
}
if (subshell_pid == 0)
{
/* I'm the child, connect stdin to the parent */
dup2 (subshell_pipe[PARENT_IN], STDIN_FILENO);
close (subshell_pipe[PARENT_IN]);
close (subshell_pipe[PARENT_OUT]);
count = argc_argv (shell, &argv, "");
if (count > 19)
{
/* over 20 command line args, silently truncate */
av[19] = "\0";
count = 18;
}
while (count >= 0)
{
av[count] = argv[count].string;
count--;
}
/* populate the environment */
while (env)
{
next = env->next;
putenv (env->buf);
env = next;
}
execv (argv[0].string, av);
free (argv);
/* if we get here, we had a failure */
die_with_message (NULL, NULL, g_err_msg[E_SUBSHELL_FAIL]);
}
else
{
/* I'm parent, move along please */
close (subshell_pipe[PARENT_IN]);
}
}
/* control should get to this point only in the parent.
*/
}
void
bash_destroy (void)
{
int status;
waitpid (subshell_pid, &status, 0);
}
void
bash_exec (buffer_t * buf, char *str)
{
buffer_add (buf, str, strlen (str));
return;
}
/* Run the echo command in a subshell */
void
bash_echo (buffer_t * buf, char *str, size_t len)
{
/* limits.h would tell us the ARG_MAX characters we COULD send to the echo command, but
* we will take the (ancient) POSIX1 standard of 4K, subtract 1K from it and use that
* as the maxmimum. The Linux limit appears to be 128K, so 3K will fit. */
static char echo_start[] = "printf '%s' '";
static char echo_quote[] = "'\\''";
static char echo_end[] = "'\n";
const size_t maxlen = 3096;
size_t pos;
if (len == 0)
return;
pos = 0;
buffer_add (buf, echo_start, strlen (echo_start));
while (pos < len)
{
if (str[pos] == '\'')
buffer_add (buf, echo_quote, strlen (echo_quote));
else
buffer_add (buf, str + pos, 1);
pos++;
if ((pos % maxlen) == 0)
{
buffer_add (buf, echo_end, strlen (echo_end));
buffer_add (buf, echo_start, strlen (echo_start));
}
}
buffer_add (buf, echo_end, strlen (echo_end));
}
/* do an evaluation in a subshell */
void
bash_eval (buffer_t * buf, char *str, size_t len)
{
static char echo_start[] = "echo -n ";
static char echo_end[] = "\n";
if (len == 0)
return;
buffer_add (buf, echo_start, strlen (echo_start));
buffer_add (buf, str, len);
buffer_add (buf, echo_end, strlen (echo_end));
}
#ifdef BASHEXTENSIONS
/* generate an IF statment */
void
bash_if (buffer_t * buf, char *str, size_t len)
{
static char err_msg[] =
"echo 'error: missing expression for if'\nexit 99\n";
static char if_start[] = "if [[ ";
static char if_end[] = " ]]\nthen\n";
static char ex_start[] = "if ";
static char ex_end[] = "\nthen\n";
if (len == 0)
{
buffer_add (buf, err_msg, strlen (err_msg));
}
else if (str[0] == '|')
{
str[0] = ' ';
buffer_add (buf, ex_start, strlen (ex_start));
buffer_add (buf, str, len);
buffer_add (buf, ex_end, strlen (ex_end));
}
else
{
buffer_add (buf, if_start, strlen (if_start));
buffer_add (buf, str, len);
buffer_add (buf, if_end, strlen (if_end));
}
}
/* generate an ELIF statment */
void
bash_elif (buffer_t * buf, char *str, size_t len)
{
static char err_msg[] =
"echo 'error: missing expression for elif'\nexit 99\n";
static char elif_start[] = "elif [[ ";
static char elif_end[] = " ]]\nthen\n";
static char ex_start[] = "elif ";
static char ex_end[] = "\nthen\n";
if (len == 0)
{
buffer_add (buf, err_msg, strlen (err_msg));
}
else if (str[0] == '|')
{
str[0] = ' ';
buffer_add (buf, ex_start, strlen (ex_start));
buffer_add (buf, str, len);
buffer_add (buf, ex_end, strlen (ex_end));
}
else
{
buffer_add (buf, elif_start, strlen (elif_start));
buffer_add (buf, str, len);
buffer_add (buf, elif_end, strlen (elif_end));
}
}
/* generate an ELSE statment */
void
bash_else (buffer_t * buf, char *str, size_t len)
{
static char else_start[] = "else";
static char else_start2[] = "else #";
static char else_end[] = "\n";
if (len == 0)
{
buffer_add (buf, else_start, strlen (else_start));
}
else
{
buffer_add (buf, else_start2, strlen (else_start2));
buffer_add (buf, str, len);
}
buffer_add (buf, else_end, strlen (else_end));
}
/* generate a FI statment */
void
bash_endif (buffer_t * buf, char *str, size_t len)
{
static char fi_start[] = "fi";
static char fi_start2[] = "fi #";
static char fi_end[] = "\n";
if (len == 0)
{
buffer_add (buf, fi_start, strlen (fi_start));
}
else
{
buffer_add (buf, fi_start2, strlen (fi_start2));
buffer_add (buf, str, len);
}
buffer_add (buf, fi_end, strlen (fi_end));
}
/* generate a CASE statment */
void
bash_case (buffer_t * buf, char *str, size_t len)
{
static char err_msg[] =
"echo 'error: missing expression for case'\nexit 99\n";
static char case_start[] = "case ";
static char case_end[] = " in\n";
/*
create a bogus case condition, nul+esc+eof, so nl+;;+nl
can be prepended to each when/otherwise/endcase, which
eliminates the need for ;; or <% ;; %> in the page source
*/
static char case_bogus[] = "\"\\000\\040\\004\") :\n";
if (len == 0)
{
buffer_add (buf, err_msg, strlen (err_msg));
}
else
{
buffer_add (buf, case_start, strlen (case_start));
buffer_add (buf, str, len);
buffer_add (buf, case_end, strlen (case_end));
buffer_add (buf, case_bogus, strlen (case_bogus));
}
}
/* generate a WHEN statment */
void
bash_when (buffer_t * buf, char *str, size_t len)
{
static char err_msg[] =
"echo 'error: missing expression for when'\nexit 99\n";
static char when_start[] = "\n;;\n";
static char when_end[] = ")\n";
if (len == 0)
{
buffer_add (buf, err_msg, strlen (err_msg));
}
else
{
buffer_add (buf, when_start, strlen (when_start));
buffer_add (buf, str, len - 1);
buffer_add (buf, when_end, strlen (when_end));
}
}
/* generate an OTHERWISE statment */
void
bash_otherwise (buffer_t * buf, char *str, size_t len)
{
static char otherwise_start[] = "\n;;\n";
static char otherwise_start1[] = "*)";
static char otherwise_start2[] = "*) #";
static char otherwise_end[] = "\n";
buffer_add (buf, otherwise_start, strlen (otherwise_start));
if (len == 0)
{
buffer_add (buf, otherwise_start1, strlen (otherwise_start1));
}
else
{
buffer_add (buf, otherwise_start2, strlen (otherwise_start2));
buffer_add (buf, str, len);
}
buffer_add (buf, otherwise_end, strlen (otherwise_end));
}
/* generate a ENDCASE statment */
void
bash_endcase (buffer_t * buf, char *str, size_t len)
{
static char endcase_start[] = "\n;;\n";
static char endcase_start1[] = "esac";
static char endcase_start2[] = "esac #";
static char endcase_end[] = "\n";
buffer_add (buf, endcase_start, strlen (endcase_start));
if (len == 0)
{
buffer_add (buf, endcase_start1, strlen (endcase_start1));
}
else
{
buffer_add (buf, endcase_start2, strlen (endcase_start2));
buffer_add (buf, str, len);
}
buffer_add (buf, endcase_end, strlen (endcase_end));
}
/* generate a WHILE statment */
void
bash_while (buffer_t * buf, char *str, size_t len)
{
static char err_msg[] =
"echo 'error: missing expression for while'\nexit 99\n";
static char while_start[] = "while [[ ";
static char while_end[] = " ]]\ndo\n";
static char ex_start[] = "while ";
static char ex_end[] = "\ndo\n";
if (len == 0)
{
buffer_add (buf, err_msg, strlen (err_msg));
}
else if (str[0] == '|')
{
str[0] = ' ';
buffer_add (buf, ex_start, strlen (ex_start));
buffer_add (buf, str, len);
buffer_add (buf, ex_end, strlen (ex_end));
}
else
{
buffer_add (buf, while_start, strlen (while_start));
buffer_add (buf, str, len);
buffer_add (buf, while_end, strlen (while_end));
}
}
/* generate an ENDWHILE statment */
void
bash_endwhile (buffer_t * buf, char *str, size_t len)
{
static char endwhile_start[] = "done";
static char endwhile_start2[] = "done #";
static char endwhile_end[] = "\n";
if (len == 0)
{
buffer_add (buf, endwhile_start, strlen (endwhile_start));
}
else
{
buffer_add (buf, endwhile_start2, strlen (endwhile_start2));
buffer_add (buf, str, len);
}
buffer_add (buf, endwhile_end, strlen (endwhile_end));
}
/* generate an UNTIL statment */
void
bash_until (buffer_t * buf, char *str, size_t len)
{
static char err_msg[] =
"echo 'error: missing expression for until'\nexit 99\n";
static char until_start[] = "until [[ ";
static char until_end[] = " ]]\ndo\n";
static char ex_start[] = "until ";
static char ex_end[] = "\ndo\n";
if (len == 0)
{
buffer_add (buf, err_msg, strlen (err_msg));
}
else if (str[0] == '|')
{
str[0] = ' ';
buffer_add (buf, ex_start, strlen (ex_start));
buffer_add (buf, str, len);
buffer_add (buf, ex_end, strlen (ex_end));
}
else
{
buffer_add (buf, until_start, strlen (until_start));
buffer_add (buf, str, len);
buffer_add (buf, until_end, strlen (until_end));
}
}
/* generate an ENDUNTIL statment */
void
bash_enduntil (buffer_t * buf, char *str, size_t len)
{
static char enduntil_start[] = "done";
static char enduntil_start2[] = "done #";
static char enduntil_end[] = "\n";
if (len == 0)
{
buffer_add (buf, enduntil_start, strlen (enduntil_start));
}
else
{
buffer_add (buf, enduntil_start2, strlen (enduntil_start2));
buffer_add (buf, str, len);
}
buffer_add (buf, enduntil_end, strlen (enduntil_end));
}
/* generate a FOR statment */
void
bash_for (buffer_t * buf, char *str, size_t len)
{
static char err_msg[] =
"echo 'error: missing expression for for'\nexit 99\n";
static char for_start[] = "for ";
static char for_end[] = "\ndo\n";
if (len == 0)
{
buffer_add (buf, err_msg, strlen (err_msg));
}
else
{
buffer_add (buf, for_start, strlen (for_start));
buffer_add (buf, str, len);
buffer_add (buf, for_end, strlen (for_end));
}
}
/* generate an ENDFOR statment */
void
bash_endfor (buffer_t * buf, char *str, size_t len)
{
static char endfor_start[] = "done";
static char endfor_start2[] = "done #";
static char endfor_end[] = "\n";
if (len == 0)
{
buffer_add (buf, endfor_start, strlen (endfor_start));
}
else
{
buffer_add (buf, endfor_start2, strlen (endfor_start2));
buffer_add (buf, str, len);
}
buffer_add (buf, endfor_end, strlen (endfor_end));
}
/* generate an UNLESS statment */
void
bash_unless (buffer_t * buf, char *str, size_t len)
{
static char err_msg[] =
"echo 'error: missing expression for unless'\nexit 99\n";
static char unless_start[] = "if [[ ! ( ";
static char unless_end[] = " ) ]]\nthen\n";
static char ex_start[] = "if ! ";
static char ex_end[] = "\nthen\n";
if (len == 0)
{
buffer_add (buf, err_msg, strlen (err_msg));
}
else if (str[0] == '|')
{
str[0] = ' ';
buffer_add (buf, ex_start, strlen (ex_start));
buffer_add (buf, str, len);
buffer_add (buf, ex_end, strlen (ex_end));
}
else
{
buffer_add (buf, unless_start, strlen (unless_start));
buffer_add (buf, str, len);
buffer_add (buf, unless_end, strlen (unless_end));
}
}
/* generate an ELUN statment */
void
bash_elun (buffer_t * buf, char *str, size_t len)
{
static char err_msg[] =
"echo 'error: missing expression for elun'\nexit 99\n";
static char elun_start[] = "elif [[ ! ( ";
static char elun_end[] = " ) ]]\nthen\n";
static char ex_start[] = "elif ! ";
static char ex_end[] = "\nthen\n";
if (len == 0)
{
buffer_add (buf, err_msg, strlen (err_msg));
}
else if (str[0] == '|')
{
str[0] = ' ';
buffer_add (buf, ex_start, strlen (ex_start));
buffer_add (buf, str, len);
buffer_add (buf, ex_end, strlen (ex_end));
}
else
{
buffer_add (buf, elun_start, strlen (elun_start));
buffer_add (buf, str, len);
buffer_add (buf, elun_end, strlen (elun_end));
}
}
/* generate an UNELSE statment */
void
bash_unelse (buffer_t * buf, char *str, size_t len)
{
static char unelse_start[] = "else";
static char unelse_start2[] = "else #";
static char unelse_end[] = "\n";
if (len == 0)
{
buffer_add (buf, unelse_start, strlen (unelse_start));
}
else
{
buffer_add (buf, unelse_start2, strlen (unelse_start2));
buffer_add (buf, str, len);
}
buffer_add (buf, unelse_end, strlen (unelse_end));
}
/* generate a ENDUNLESS statment */
void
bash_endunless (buffer_t * buf, char *str, size_t len)
{
static char endunless_start[] = "fi";
static char endunless_start2[] = "fi #";
static char endunless_end[] = "\n";
if (len == 0)
{
buffer_add (buf, endunless_start, strlen (endunless_start));
}
else
{
buffer_add (buf, endunless_start2, strlen (endunless_start2));
buffer_add (buf, str, len);
}
buffer_add (buf, endunless_end, strlen (endunless_end));
}
#endif
void
bash_doscript (buffer_t * script, char *name)
{
static char postfix[] = "\nexit\n";
/* dump the script to the subshell */
write (subshell_pipe[PARENT_OUT], script->data, script->ptr - script->data);
/* write the postfix */
write (subshell_pipe[PARENT_OUT], postfix, strlen (postfix));
return;
}
haserl-0.9.35/src/haserl.c 0000644 0001750 0001750 00000052002 12500107764 014572 0 ustar nangel nangel /* --------------------------------------------------------------------------
* Copyright 2003-2015 (inclusive) Nathan Angelacos
* (nangel@users.sourceforge.net)
*
* This file is part of haserl.
*
* Haserl is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2,
* as published by the Free Software Foundation.
*
* Haserl 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with haserl. If not, see .
*
* -----
* The x2c() and unescape_url() routines were taken from
* http://www.jmarshall.com/easy/cgi/getcgi.c.txt
*
* The comments in that text file state:
*
*** Written in 1996 by James Marshall, james@jmarshall.com, except
*** that the x2c() and unescape_url() routines were lifted directly
*** from NCSA's sample program util.c, packaged with their HTTPD.
*** For the latest, see http://www.jmarshall.com/easy/cgi/
* -----
*
------------------------------------------------------------------------- */
#if HAVE_CONFIG_H
#include
#endif
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#if HAVE_SIGNAL_H
#include
#endif
#include "common.h"
#include "h_error.h"
#include "h_script.h"
#include "sliding_buffer.h"
#include "rfc2388.h"
#ifdef INCLUDE_BASHSHELL
#include "h_bash.h"
#endif
#ifdef USE_LUA
#include
#include
#include
#include "h_lua_common.h"
#endif
#ifdef INCLUDE_LUASHELL
#include "h_lua.h"
#endif
#ifdef INCLUDE_LUACSHELL
#include "h_luac.h"
#endif
#include "haserl.h"
#ifndef TEMPDIR
#define TEMPDIR "/tmp"
#endif
#ifndef MAX_UPLOAD_KB
#define MAX_UPLOAD_KB 2048
#endif
/* Refuse to disable the subshell */
#ifndef SUBSHELL_CMD
#define SUBSHELL_CMD "/bin/sh"
#endif
haserl_t global;
/* declare the shell_ function pointers here */
void (*shell_exec) (buffer_t * buf, char *str);
void (*shell_echo) (buffer_t * buf, char *str, size_t len);
void (*shell_eval) (buffer_t * buf, char *str, size_t len);
void (*shell_setup) (char *, list_t *);
void (*shell_doscript) (buffer_t *, char *);
void (*shell_destroy) (void);
#ifdef BASHEXTENSIONS
void (*shell_if) (buffer_t * buf, char *str, size_t len);
void (*shell_elif) (buffer_t * buf, char *str, size_t len);
void (*shell_else) (buffer_t * buf, char *str, size_t len);
void (*shell_endif) (buffer_t * buf, char *str, size_t len);
void (*shell_case) (buffer_t * buf, char *str, size_t len);
void (*shell_when) (buffer_t * buf, char *str, size_t len);
void (*shell_otherwise) (buffer_t * buf, char *str, size_t len);
void (*shell_endcase) (buffer_t * buf, char *str, size_t len);
void (*shell_while) (buffer_t * buf, char *str, size_t len);
void (*shell_endwhile) (buffer_t * buf, char *str, size_t len);
void (*shell_until) (buffer_t * buf, char *str, size_t len);
void (*shell_enduntil) (buffer_t * buf, char *str, size_t len);
void (*shell_for) (buffer_t * buf, char *str, size_t len);
void (*shell_endfor) (buffer_t * buf, char *str, size_t len);
void (*shell_unless) (buffer_t * buf, char *str, size_t len);
void (*shell_elun) (buffer_t * buf, char *str, size_t len);
void (*shell_unelse) (buffer_t * buf, char *str, size_t len);
void (*shell_endunless) (buffer_t * buf, char *str, size_t len);
#endif
/* global shell execution function pointers. These point to the actual functions
that do the job, based on the language */
/*
* Command line / Config file directives When adding a long option, make sure
* to update the short_options as well
*/
struct option ga_long_options[] = {
{"version", no_argument, 0, 'v'},
{"help", no_argument, 0, 'h'},
{"debug", no_argument, 0, 'd'},
{"upload-limit", required_argument, 0, 'u'},
{"upload-dir", required_argument, 0, 'U'},
{"upload-handler", required_argument, 0, 'H'},
{"accept-all", no_argument, 0, 'a'},
{"accept-none", no_argument, 0, 'n'},
{"shell", required_argument, 0, 's'},
{"silent", no_argument, 0, 'S'},
{0, 0, 0, 0}
};
const char *gs_short_options = "+vhdu:U:H:ans:S";
/*
* Convert 2 char hex string into char it represents
* (from http://www.jmarshall.com/easy/cgi)
*/
char
x2c (char *what)
{
char digit;
digit = (what[0] >= 'A' ? ((what[0] & 0xdf) - 'A') + 10 : (what[0] - '0'));
digit *= 16;
digit += (what[1] >= 'A' ? ((what[1] & 0xdf) - 'A') + 10 : (what[1] - '0'));
return (digit);
}
/*
* unsescape %xx to the characters they represent
*/
/* Modified by Juris Feb 2007 */
void
unescape_url (char *url)
{
int i, j;
for (i = 0, j = 0; url[j]; ++i, ++j)
{
if ((url[i] = url[j]) != '%')
continue;
if (!url[j + 1] || !url[j + 2])
break;
url[i] = x2c (&url[j + 1]);
j += 2;
}
url[i] = '\0';
}
/*
* allocate memory or die, busybox style.
*/
void *
xmalloc (size_t size)
{
void *buf;
if ((buf = malloc (size)) == NULL)
{
die_with_message (NULL, NULL, g_err_msg[E_MALLOC_FAIL]);
}
memset (buf, 0, size);
return buf;
}
/*
* realloc memory, or die xmalloc style.
*/
void *
xrealloc (void *buf, size_t size)
{
if ((buf = realloc (buf, size)) == NULL)
{
die_with_message (NULL, NULL, g_err_msg[E_MALLOC_FAIL]);
}
return buf;
}
/*
* adds or replaces the "key=value" value in the env_list chain
* prefix is appended to the key (e.g. FORM_key=value)
*/
list_t *
myputenv (list_t * cur, char *str, char *prefix)
{
list_t *prev = NULL;
size_t keylen;
char *entry = NULL;
char *temp = NULL;
int array = 0;
int len;
temp = memchr (str, '=', strlen (str));
/* if we don't have an equal sign, exit early */
if (temp == 0)
{
return (cur);
}
keylen = (size_t) (temp - str);
/* is this an array */
if (memcmp (str + keylen - 2, "[]", 2) == 0)
{
keylen = keylen - 2;
array = 1;
}
entry = xmalloc (strlen (str) + strlen (prefix) + 1);
entry[0] = '\0';
if (strlen (prefix))
{
strncat (entry, prefix, strlen (prefix));
}
if (array == 1)
{
strncat (entry, str, keylen);
strcat (entry, str + keylen + 2);
}
else
{
strcat (entry, str);
}
/* does the value already exist? */
len = keylen + strlen (prefix) + 1;
while (cur != NULL)
{
if (memcmp (cur->buf, entry, len) == 0)
{
if (array == 1)
{
/* if an array, create a new string with this
* value added to the end of the old value(s)
*/
temp = xmalloc (strlen (cur->buf) + strlen (entry) - len + 2);
memmove (temp, cur->buf, strlen (cur->buf) + 1);
strcat (temp, "\n");
strcat (temp, str + keylen + 3);
free (entry);
entry = temp;
}
/* delete the old entry */
free (cur->buf);
if (prev != NULL)
prev->next = cur->next;
free (cur);
cur = prev;
} /* end if found a matching key */
prev = cur;
if (cur)
{
cur = (list_t *) cur->next;
}
} /* end if matching key */
/* add the value to the end of the chain */
cur = xmalloc (sizeof (list_t));
cur->buf = entry;
if (prev != NULL)
prev->next = cur;
return (cur);
}
/* free list_t chain */
void
free_list_chain (list_t * list)
{
list_t *next;
while (list)
{
next = list->next;
free (list->buf);
free (list);
list = next;
}
}
/* readenv
* reads the current environment and popluates our environment chain
*/
void
readenv (list_t * env)
{
extern char **environ;
int count = 0;
while (environ[count] != NULL)
{
myputenv (env, environ[count], global.nul_prefix);
count++;
}
}
/* CookieVars ()
* if HTTP_COOKIE is passed as an environment variable,
* attempt to parse its values into environment variables
*/
void
CookieVars (list_t * env)
{
char *qs;
char *token;
if (getenv ("HTTP_COOKIE") != NULL)
{
qs = strdup (getenv ("HTTP_COOKIE"));
}
else
{
return;
}
/** split on; to extract name value pairs */
token = strtok (qs, ";");
while (token)
{
// skip leading spaces
while (token[0] == ' ')
{
token++;
}
myputenv (env, token, global.var_prefix);
myputenv (env, token, global.cookie_prefix);
token = strtok (NULL, ";");
}
free (qs);
}
/* SessionID
* Makes a uniqe SESSIONID environment variable for this script
*/
void
sessionid (list_t * env)
{
char session[29];
sprintf (session, "SESSIONID=%x%x", getpid (), (int) time (NULL));
myputenv (env, session, global.nul_prefix);
}
list_t *
wcversion (list_t * env)
{
char version[200];
sprintf (version, "HASERLVER=%s", PACKAGE_VERSION);
return (myputenv (env, version, global.nul_prefix));
}
void
haserlflags (list_t * env)
{
char buf[200];
snprintf (buf, 200, "UPLOAD_DIR=%s", global.uploaddir);
myputenv (env, buf, global.haserl_prefix);
snprintf (buf, 200, "UPLOAD_LIMIT=%lu", global.uploadkb);
myputenv (env, buf, global.haserl_prefix);
snprintf (buf, 200, "ACCEPT_ALL=%d", global.acceptall);
myputenv (env, buf, global.haserl_prefix);
snprintf (buf, 200, "SHELL=%s", global.shell);
myputenv (env, buf, global.haserl_prefix);
}
/*
* Read cgi variables from query string, and put in environment
*/
int
ReadCGIQueryString (list_t * env)
{
char *qs;
char *token;
int i;
if (getenv ("QUERY_STRING") != NULL)
{
qs = strdup (getenv ("QUERY_STRING"));
}
else
{
return (0);
}
/* change plusses into spaces */
for (i = 0; qs[i]; i++)
{
if (qs[i] == '+')
{
qs[i] = ' ';
}
};
/** split on & and ; to extract name value pairs */
token = strtok (qs, "&;");
while (token)
{
unescape_url (token);
myputenv (env, token, global.var_prefix);
myputenv (env, token, global.get_prefix);
token = strtok (NULL, "&;");
}
free (qs);
return (0);
}
/*
* Read cgi variables from stdin (for POST queries)
*/
int
ReadCGIPOSTValues (list_t * env )
{
size_t content_length = 0;
size_t max_len;
int urldecoding = 0;
char *matchstr = "";
size_t i, j, x;
sliding_buffer_t sbuf;
buffer_t token;
unsigned char *data;
const char *CONTENT_LENGTH = "CONTENT_LENGTH";
const char *CONTENT_TYPE = "CONTENT_TYPE";
char *content_type = NULL;
if ((getenv (CONTENT_LENGTH) == NULL) ||
(strtoul (getenv (CONTENT_LENGTH), NULL, 10) == 0))
return (0);
content_type = getenv(CONTENT_TYPE);
if ( ( content_type != NULL ) &&
( strncasecmp ( content_type , "multipart/form-data", 19)) == 0 )
{
/* This is a mime request, we need to go to the mime handler */
i = rfc2388_handler (env);
return (i);
}
/* at this point its either urlencoded or some other blob */
if ( (content_type == NULL ) ||
( strncasecmp (getenv (CONTENT_TYPE), "application/x-www-form-urlencoded", 33) == 0 ) )
{
urldecoding = 1;
matchstr = "&";
}
/* Allow 2MB content, unless they have a global upload set */
max_len = ((global.uploadkb == 0) ? 2048 : global.uploadkb) *1024;
s_buffer_init (&sbuf, 32768);
sbuf.fh = STDIN;
if (getenv (CONTENT_LENGTH))
{
sbuf.maxread = strtoul (getenv (CONTENT_LENGTH), NULL, 10);
}
haserl_buffer_init (&token);
if ( urldecoding == 0 ) {
buffer_add( &token, "body=", 5 );
}
do
{
/* x is true if this token ends with a matchstr or is at the end of stream */
x = s_buffer_read (&sbuf, matchstr);
content_length += sbuf.len;
if (content_length > max_len)
{
die_with_message (NULL, NULL,
"Attempted to send content larger than allowed limits.");
}
if ((x == 0) || (token.data))
{
buffer_add (&token, (char *) sbuf.segment, sbuf.len);
}
if (x)
{
data = sbuf.segment;
sbuf.segment[sbuf.len] = '\0';
if (token.data)
{
/* add the ASCIIZ */
buffer_add (&token, sbuf.segment + sbuf.len, 1);
data = token.data;
}
if (urldecoding) {
/* change plusses into spaces */
j = strlen ((char *) data);
for (i = 0; i <= j; i++)
{
if (data[i] == '+')
{
data[i] = ' ';
}
}
unescape_url ((char *) data);
}
myputenv (env, (char *) data, global.var_prefix);
myputenv (env, (char *) data, global.post_prefix);
if (token.data)
{
buffer_reset (&token);
}
}
}
while (!sbuf.eof);
s_buffer_destroy (&sbuf);
buffer_destroy (&token);
return (0);
}
int
parseCommandLine (int argc, char *argv[])
{
int c;
int option_index = 0;
/* set optopt and optind to 0 to reset getopt_long -
* we may call it multiple times
*/
optopt = 0;
optind = 0;
while ((c = getopt_long (argc, argv, gs_short_options,
ga_long_options, &option_index)) != -1)
{
switch (c)
{
case 'd':
global.debug = TRUE;
break;
case 's':
global.shell = optarg;
break;
case 'S':
global.silent = TRUE;
break;
case 'u':
if (optarg)
{
global.uploadkb = atoi (optarg);
}
else
{
global.uploadkb = MAX_UPLOAD_KB;
}
break;
case 'a':
global.acceptall = TRUE;
break;
case 'n':
global.acceptall = NONE;
break;
case 'U':
global.uploaddir = optarg;
break;
case 'H':
global.uploadhandler = optarg;
break;
case 'v':
case 'h':
printf ("This is " PACKAGE_NAME " version " PACKAGE_VERSION ""
" (http://haserl.sourceforge.net)\n");
exit (0);
break;
}
}
return (optind);
}
int
BecomeUser (uid_t uid, gid_t gid)
{
/* This silently fails if it doesn't work */
/* Following is from Timo Teras */
if (getuid () == 0)
setgroups (1, &gid);
setgid (gid);
setgid (getgid ());
setuid (uid);
setuid (getuid ());
return (0);
}
/*
* Assign default values to the global structure
*/
void
assignGlobalStartupValues ()
{
global.uploadkb = 0; /* how big an upload do we allow (0 for none) */
global.shell = SUBSHELL_CMD; /* The shell we use */
global.silent = FALSE; /* We do print errors if we find them */
global.uploaddir = TEMPDIR; /* where to upload to */
global.uploadhandler = NULL; /* the upload handler */
global.debug = FALSE; /* Not in debug mode. */
global.acceptall = FALSE; /* don't allow POST data for GET method */
global.uploadlist = NULL; /* we don't have any uploaded files */
global.var_prefix = "FORM_";
global.get_prefix = "GET_";
global.post_prefix = "POST_";
global.cookie_prefix = "COOKIE_";
global.haserl_prefix = "HASERL_";
global.nul_prefix = "";
}
void
unlink_uploadlist ()
{
token_t *me;
me = global.uploadlist;
while (me)
{
unlink (me->buf);
free (me->buf);
me = me->next;
}
}
void
cleanup (void)
{
if (global.uploadlist)
{
unlink_uploadlist ();
free_token_list (global.uploadlist);
global.uploadlist = NULL;
}
}
/*-------------------------------------------------------------------------
*
* Main
*
*------------------------------------------------------------------------*/
int
main (int argc, char *argv[])
{
#ifndef JUST_LUACSHELL
token_t *tokenchain = NULL;
buffer_t script_text;
#endif
script_t *scriptchain;
char *filename = NULL;
argv_t *av = NULL;
char **av2 = argv;
int av2c = argc;
int command;
int count;
list_t *env = NULL;
if (atexit (cleanup) != 0)
{
die_with_message (NULL, NULL, "atexit() failed");
}
assignGlobalStartupValues ();
#ifndef JUST_LUACSHELL
haserl_buffer_init (&script_text);
#endif
/* if more than argv[1] and argv[1] is not a file */
switch (argc)
{
case 1:
/* we were run, instead of called as a shell script */
puts ("This is " PACKAGE_NAME " version " PACKAGE_VERSION "\n"
"This program runs as a cgi interpeter, not interactively\n"
"Please see: http://haserl.sourceforge.net\n"
#ifdef USE_LUA
"This version includes Lua (precompiled"
#ifdef INCLUDE_LUASHELL
" and interpreted"
#endif
")\n"
#endif
#ifdef BASHEXTENSIONS
"Unsupported bash extensions supplied by simnux enabled\n"
#endif
);
return (0);
break;
default: /* more than one */
/* split combined #! args - linux bundles them as one */
command = argc_argv (argv[1], &av, "");
if (command > 1)
{
/* rebuild argv into new av2 */
av2c = argc - 1 + command;
av2 = xmalloc (sizeof (char *) * av2c);
av2[0] = argv[0];
for (count = 1; count <= command; count++)
{
av2[count] = av[count - 1].string;
}
for (; count < av2c; count++)
{
av2[count] = argv[count - command + 1];
}
}
parseCommandLine (av2c, av2);
free (av);
if (av2 != argv)
free (av2);
if (optind < av2c)
{
filename = av2[optind];
}
else
{
die_with_message (NULL, NULL, "No script file specified");
}
break;
}
scriptchain = load_script (filename, NULL);
/* drop permissions */
BecomeUser (scriptchain->uid, scriptchain->gid);
/* populate the function pointers based on the shell selected */
if (strcmp (global.shell, "lua") && strcmp (global.shell, "luac"))
/* default to "bash" */
{
#ifdef INCLUDE_BASHSHELL
shell_exec = &bash_exec;
shell_echo = &bash_echo;
shell_eval = &bash_eval;
shell_setup = &bash_setup;
shell_doscript = &bash_doscript;
shell_destroy = &bash_destroy;
#ifdef BASHEXTENSIONS
shell_if = &bash_if;
shell_elif = &bash_elif;
shell_else = &bash_else;
shell_endif = &bash_endif;
shell_case = &bash_case;
shell_when = &bash_when;
shell_otherwise = &bash_otherwise;
shell_endcase = &bash_endcase;
shell_while = &bash_while;
shell_endwhile = &bash_endwhile;
shell_until = &bash_until;
shell_enduntil = &bash_enduntil;
shell_for = &bash_for;
shell_endfor = &bash_endfor;
shell_unless = &bash_unless;
shell_elun = &bash_elun;
shell_unelse = &bash_unelse;
shell_endunless = &bash_endunless;
#endif
#else
die_with_message (NULL, NULL, "Bash shell is not enabled.");
#endif
}
else
{
#ifdef USE_LUA
shell_setup = &lua_common_setup;
shell_destroy = &lua_common_destroy;
global.var_prefix = "FORM.";
global.nul_prefix = "ENV.";
global.get_prefix = "GET.";
global.post_prefix = "POST.";
global.cookie_prefix = "COOKIE.";
global.haserl_prefix = "HASERL.";
if (global.shell[3] == 'c') /* luac only */
#ifdef INCLUDE_LUACSHELL
shell_doscript = &luac_doscript;
#else
die_with_message (NULL, NULL, "Compiled Lua shell is not enabled.");
#endif
else
{
#ifdef INCLUDE_LUASHELL
shell_exec = &lua_exec;
shell_echo = &lua_echo;
shell_eval = &lua_eval;
shell_doscript = &lua_doscript;
#else
die_with_message (NULL, NULL, "Standard Lua shell is not enabled.");
#endif
}
#else
die_with_message (NULL, NULL, "Lua shells are not enabled.");
#endif
}
/* Read the current environment into our chain */
env = wcversion (env);
readenv (env);
sessionid (env);
haserlflags (env);
#ifndef JUST_LUACSHELL
if (strcmp (global.shell, "luac"))
{
tokenchain = build_token_list (scriptchain, NULL);
preprocess_token_list (tokenchain);
}
#endif
/* Read the request data */
if (global.acceptall != NONE)
{
/* If we have a request method, and we were run as a #! style script */
CookieVars (env);
if (getenv ("REQUEST_METHOD"))
{
if ( (strcasecmp (getenv ("REQUEST_METHOD"), "GET") == 0) ||
(strcasecmp (getenv ("REQUEST_METHOD"), "DELETE") == 0) )
{
if (global.acceptall == TRUE)
ReadCGIPOSTValues (env);
ReadCGIQueryString (env);
}
if ( (strcasecmp (getenv ("REQUEST_METHOD"), "POST") == 0) ||
(strcasecmp (getenv ("REQUEST_METHOD"), "PUT") == 0) )
{
if (global.acceptall == TRUE)
ReadCGIQueryString (env);
ReadCGIPOSTValues (env);
}
}
}
/* build a copy of the script to send to the shell */
#ifndef JUST_LUACSHELL
if (strcmp (global.shell, "luac"))
{
process_token_list (&script_text, tokenchain);
}
#endif
/* run the script */
if (global.debug == TRUE)
{
#ifndef JUST_LUACSHELL
if (getenv ("REQUEST_METHOD"))
{
write (1, "Content-Type: text/plain\n\n", 26);
}
write (1, script_text.data, script_text.ptr - script_text.data);
#else
die_with_message (NULL, NULL,
"Debugging output doesn't work with the compiled Lua shell.");
#endif
}
else
{
shell_setup (global.shell, env);
#ifdef JUST_LUACSHELL
shell_doscript (NULL, scriptchain->name);
#else
shell_doscript (&script_text, scriptchain->name);
#endif
shell_destroy ();
}
#ifndef JUST_LUACSHELL
/* destroy the script */
buffer_destroy (&script_text);
free_token_list (tokenchain);
#endif
free_list_chain (env);
free_script_list (scriptchain);
return (0);
}
haserl-0.9.35/src/Makefile.am 0000644 0001750 0001750 00000002507 12470207650 015212 0 ustar nangel nangel PACKAGE=@PACKAGE_TARNAME@
EXTRA_DIST = haserl_lualib.lua lua2c.c
datarootdir=@datarootdir@
# Not strictly required, but we explicitly do not distribute the generated inc file
nodist_haserl_SOURCES = haserl_lualib.inc
if USE_LUA
noinst_PROGRAMS = lua2c
LUASOURCE = h_lua_common.c h_lua_common.h
if INCLUDE_LUASHELL
LUASOURCE += h_lua.c h_lua.h
endif
if INCLUDE_LUACSHELL
LUASOURCE += h_luac.c h_luac.h
endif
endif
if INCLUDE_BASHSHELL
BASHSOURCE = h_bash.c h_bash.h
endif
if USE_LUA
# lua2c_LIBS ?= -llua -ldl -lm
lua2c_LDFLAGS ?= -Wl,-E
lua2c: lua2c.c
$(CC_FOR_BUILD) $(CFLAGS) $(LUA_CFLAGS) $(LDFLAGS) $(lua2c_LDFLAGS) \
-o $@ $^ $(LIBS) $(LUA_LIBS)
haserl_lualib.inc : haserl_lualib.lua lua2c
if ! ./lua2c haserl_lualib haserl_lualib.lua >$@; then \
rm $@; \
exit 1 ;\
fi
h_lua_common.c : haserl_lualib.inc
endif
bin_PROGRAMS = haserl
haserl_SOURCES = common.c common.h sliding_buffer.c sliding_buffer.h \
h_error.c h_error.h h_script.c h_script.h rfc2388.c rfc2388.h \
$(BASHSOURCE) $(LUASOURCE) haserl.c haserl.h
haserl_CFLAGS = $(LUA_CFLAGS)
haserl_LDADD = $(LUA_LIBS)
install-strip:
$(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
`test -z '$(STRIP)' || \
echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
haserl-0.9.35/src/h_script.c 0000644 0001750 0001750 00000035061 12470215320 015127 0 ustar nangel nangel /* --------------------------------------------------------------------------
* Copyright 2003-2011 (inclusive) Nathan Angelacos
* (nangel@users.sourceforge.net)
*
* This file is part of haserl.
*
* Haserl is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2,
* as published by the Free Software Foundation.
*
* Haserl 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with haserl. If not, see .
*
* ------------------------------------------------------------------------ */
#if HAVE_CONFIG_H
#include
#endif
#include
#include
#include
#include
#include
#include
#include
#include
#include "common.h"
#include "h_error.h"
#include "h_script.h"
#include "h_bash.h"
#include "haserl.h"
#ifdef BASHEXTENSIONS
/* HTML, RUN, INCLUDE, EVAL, COMMENT, IF, ELIF, ELSE, ENDIF, CASE, WHEN,
OTHERWISE, ENDCASE, WHILE, ENDWHILE, UNTIL, ENDUNTIL, FOR, ENDFOR,
UNLESS, ELUN, UNELSE, ENDUNLESS, NOOP }; */
#else
/* HTML, RUN, INCLUDE, EVAL, COMMENT, NOOP */
#endif
const char *g_tag[] = {
"",
"",
"in",
"=",
"#",
#ifdef BASHEXTENSIONS
"if",
"elif",
"else",
"endif",
"case",
"when",
"otherwise",
"endcase",
"while",
"endwhile",
"until",
"enduntil",
"for",
"endfor",
"unless",
"elun",
"unelse",
"endunless",
#endif
""
};
/* the open and close tags */
char open_tag[3] = "<%";
char close_tag[3] = "%>";
/* Open a script and return a populated script_t structure
*/
script_t *
load_script (char *filename, script_t * scriptlist)
{
script_t *scriptbuf;
int scriptfp;
struct stat filestat;
scriptfp = open (filename, O_NONBLOCK + O_RDONLY);
if (scriptfp == -1)
{ /* open failed */
die_with_message (NULL, NULL, g_err_msg[E_FILE_OPEN_FAIL], filename);
}
fstat (scriptfp, &filestat);
scriptbuf = (script_t *) xmalloc (sizeof (script_t));
scriptbuf->name = (char *) xmalloc (strlen (filename) + 1);
scriptbuf->buf = (char *) xmalloc (filestat.st_size + 1);
memset (scriptbuf->name, 0, strlen (filename) + 1);
memcpy (scriptbuf->name, filename, strlen (filename));
memset (scriptbuf->buf, 0, filestat.st_size + 1);
read (scriptfp, scriptbuf->buf, filestat.st_size);
scriptbuf->size = filestat.st_size;
scriptbuf->uid = filestat.st_uid;
scriptbuf->gid = filestat.st_gid;
scriptbuf->curpos = 0;
scriptbuf->next = NULL;
/* if we already have scripts, add this one to the end */
if (scriptlist != NULL)
{
while (scriptlist->next)
scriptlist = scriptlist->next;
scriptlist->next = scriptbuf;
}
/* skip over the first line, if the file starts with a #!
* This means that offset will start at the beginning of
* the second line in most cases.
*/
if (memcmp (scriptbuf->buf, "#!", 2) == 0)
{
while ((scriptbuf->curpos < scriptbuf->size) &&
((char) scriptbuf->buf[scriptbuf->curpos] != '\n'))
{
(scriptbuf->curpos)++;
}
(scriptbuf->curpos)++;
}
/* If this is the first script, switch to mode only
* if <% is not used anywhere else in the script. Otherwise
* don't change the tagging method
*/
if (scriptlist == NULL)
{
if (strstr (scriptbuf->buf + scriptbuf->curpos, open_tag) == NULL)
{
open_tag[1] = '?';
close_tag[0] = '?';
}
}
close (scriptfp);
return (scriptbuf);
}
/* Free the script structures */
void
free_script_list (script_t * script)
{
script_t *next;
while (script)
{
next = script->next;
if (script->name)
free (script->name);
if (script->buf)
free (script->buf);
free (script);
script = next;
}
}
/* Insert this token into the token chain.
* If tokenlist is null, create a new one
*/
token_t *
push_token_on_list (token_t * tokenlist, script_t * scriptbuf,
char *start, size_t len)
{
token_t *me, *next;
if (len == 0)
return (tokenlist);
me = (token_t *) xmalloc (sizeof (token_t));
if (tokenlist == NULL)
{
next = NULL;
}
else
{
next = tokenlist->next;
tokenlist->next = me;
}
me->next = next;
me->script = scriptbuf;
me->buf = start;
me->len = len;
return (me);
}
/* Free a token chain */
void
free_token_list (token_t * tokenlist)
{
token_t *next;
while (tokenlist)
{
next = tokenlist->next;
free (tokenlist);
tokenlist = next;
}
}
#ifndef JUST_LUACSHELL
/* return the point in a script where the "comment" ends */
char *
skip_comment (char *startbuf, char *endbuf)
{
unsigned int c_lev = 1;
char *s_tag, *e_tag;
startbuf += 2;
while (startbuf < endbuf)
{
s_tag = strstr (startbuf, open_tag);
e_tag = strstr (startbuf, close_tag);
if (!e_tag)
{
break;
}
if ((s_tag) && (s_tag < e_tag))
{
c_lev++;
startbuf = s_tag + 2;
continue;
}
/* otherwise, we have an end tag first */
c_lev--;
startbuf = e_tag;
if (c_lev == 0)
{
return (startbuf);
}
startbuf += 2;
}
return NULL;
}
/* build a tokenchain from a script. This step just
* splits a script buf into parts that are separated
* by <% %>. If the <% %> are out of order, then it
* flags that, but doesn't try to do anything else.
*
* For nesting comments, this function IS aware of
* the comment tag, and will try accomodate commented
* tags. Commented script never enters the token list
*/
token_t *
build_token_list (script_t * scriptbuf, token_t * tokenlist)
{
char *start, *end, *curpos, *endpos;
token_t *curtoken, *firsttoken;
curtoken = tokenlist;
firsttoken = tokenlist;
curpos = scriptbuf->buf + scriptbuf->curpos;
endpos = scriptbuf->buf + scriptbuf->size;
while (curpos < endpos)
{
start = strstr (curpos, open_tag);
end = strstr (curpos, close_tag);
/* if this is a comment tag, the end is at the end of the comment */
if ((start) && (memcmp (start + 2, g_tag[COMMENT], 1) == 0))
{
/* save any bare html before the comment */
curtoken = push_token_on_list (curtoken, scriptbuf, curpos,
start - curpos);
if (firsttoken == NULL)
firsttoken = curtoken;
/* push start of token to end of token */
end = skip_comment (start, endpos);
if (end)
{
curpos = end + 2;
continue;
}
}
if (start && !end)
die_with_message (scriptbuf, start, g_err_msg[E_NO_END_MARKER],
open_tag[1]);
if ((start > end) || (!start && end))
die_with_message (scriptbuf, end, g_err_msg[E_END_BEFORE_BEGIN],
open_tag[1], open_tag[1]);
if (start && (strstr (start + 1, open_tag)
&& (strstr (start + 1, open_tag) < end)))
die_with_message (scriptbuf, start, g_err_msg[E_NO_END_MARKER],
open_tag[1]);
if (end)
{
/* push curpos to the start of the token */
curtoken = push_token_on_list (curtoken, scriptbuf, curpos,
start - curpos);
if (firsttoken == NULL)
firsttoken = curtoken;
/* push start of token to end of token */
curtoken =
push_token_on_list (curtoken, scriptbuf, start, end - start);
if (firsttoken == NULL)
firsttoken = curtoken;
curpos = end + 2;
}
else
{
/* push curpos to end of script */
curtoken =
push_token_on_list (curtoken, scriptbuf, curpos, endpos - curpos);
if (firsttoken == NULL)
firsttoken = curtoken;
curpos = endpos;
}
}
return (firsttoken);
}
/* syntax check a script */
void
preprocess_token_list (token_t * tokenlist)
{
script_t *newscript;
token_t *me;
char *cp;
me = tokenlist;
/* walk the chain to fill in the tags */
while (me)
{
if (memcmp (me->buf, open_tag, 2))
{
me->tag = HTML;
}
else
{
me->tag = NOOP;
me->buf[me->len] = '\0';
cp = me->buf + 2; /* skip tag = INCLUDE;
/* skip the first word - in, include, include-file, etc */
me->buf = find_whitespace (me->buf);
me->buf = skip_whitespace (me->buf);
cp = find_whitespace (me->buf);
*cp = '\0';
me->len = strlen (me->buf) + 1;
newscript = load_script (me->buf, me->script);
build_token_list (newscript, me);
}
else if (memcmp (cp, g_tag[EVAL], 1) == 0)
{
me->tag = EVAL;
me->buf = find_whitespace (me->buf);
me->len = strlen (me->buf);
}
#ifdef BASHEXTENSIONS
else if (memcmp (cp, g_tag[IF], 2) == 0)
{
me->tag = IF;
me->buf = find_whitespace (me->buf);
me->buf = skip_whitespace (me->buf);
me->len = strlen (me->buf);
}
else if (memcmp (cp, g_tag[ELIF], 4) == 0)
{
me->tag = ELIF;
me->buf = find_whitespace (me->buf);
me->buf = skip_whitespace (me->buf);
me->len = strlen (me->buf);
}
else if (memcmp (cp, g_tag[ELSE], 4) == 0)
{
me->tag = ELSE;
me->buf = find_whitespace (me->buf);
me->buf = skip_whitespace (me->buf);
me->len = strlen (me->buf);
}
else if (memcmp (cp, g_tag[ENDIF], 5) == 0)
{
me->tag = ENDIF;
me->buf = find_whitespace (me->buf);
me->buf = skip_whitespace (me->buf);
me->len = strlen (me->buf);
}
else if (memcmp (cp, g_tag[CASE], 4) == 0)
{
me->tag = CASE;
me->buf = find_whitespace (me->buf);
me->buf = skip_whitespace (me->buf);
me->len = strlen (me->buf);
}
else if (memcmp (cp, g_tag[WHEN], 4) == 0)
{
me->tag = WHEN;
me->buf = find_whitespace (me->buf);
me->buf = skip_whitespace (me->buf);
me->len = strlen (me->buf);
}
else if (memcmp (cp, g_tag[OTHERWISE], 9) == 0)
{
me->tag = OTHERWISE;
me->buf = find_whitespace (me->buf);
me->buf = skip_whitespace (me->buf);
me->len = strlen (me->buf);
}
else if (memcmp (cp, g_tag[ENDCASE], 7) == 0)
{
me->tag = ENDCASE;
me->buf = find_whitespace (me->buf);
me->buf = skip_whitespace (me->buf);
me->len = strlen (me->buf);
}
else if (memcmp (cp, g_tag[WHILE], 5) == 0)
{
me->tag = WHILE;
me->buf = find_whitespace (me->buf);
me->buf = skip_whitespace (me->buf);
me->len = strlen (me->buf);
}
else if (memcmp (cp, g_tag[ENDWHILE], 8) == 0)
{
me->tag = ENDWHILE;
me->buf = find_whitespace (me->buf);
me->buf = skip_whitespace (me->buf);
me->len = strlen (me->buf);
}
else if (memcmp (cp, g_tag[UNTIL], 5) == 0)
{
me->tag = UNTIL;
me->buf = find_whitespace (me->buf);
me->buf = skip_whitespace (me->buf);
me->len = strlen (me->buf);
}
else if (memcmp (cp, g_tag[ENDUNTIL], 8) == 0)
{
me->tag = ENDUNTIL;
me->buf = find_whitespace (me->buf);
me->buf = skip_whitespace (me->buf);
me->len = strlen (me->buf);
}
else if (memcmp (cp, g_tag[FOR], 3) == 0)
{
me->tag = FOR;
me->buf = find_whitespace (me->buf);
me->buf = skip_whitespace (me->buf);
me->len = strlen (me->buf);
}
else if (memcmp (cp, g_tag[ENDFOR], 6) == 0)
{
me->tag = ENDFOR;
me->buf = find_whitespace (me->buf);
me->buf = skip_whitespace (me->buf);
me->len = strlen (me->buf);
}
else if (memcmp (cp, g_tag[UNLESS], 6) == 0)
{
me->tag = UNLESS;
me->buf = find_whitespace (me->buf);
me->buf = skip_whitespace (me->buf);
me->len = strlen (me->buf);
}
else if (memcmp (cp, g_tag[ELUN], 4) == 0)
{
me->tag = ELUN;
me->buf = find_whitespace (me->buf);
me->buf = skip_whitespace (me->buf);
me->len = strlen (me->buf);
}
else if (memcmp (cp, g_tag[UNELSE], 6) == 0)
{
me->tag = UNELSE;
me->buf = find_whitespace (me->buf);
me->buf = skip_whitespace (me->buf);
me->len = strlen (me->buf);
}
else if (memcmp (cp, g_tag[ENDUNLESS], 9) == 0)
{
me->tag = ENDUNLESS;
me->buf = find_whitespace (me->buf);
me->buf = skip_whitespace (me->buf);
me->len = strlen (me->buf);
}
#endif /* BASHEXTENSIONS */
if (isspace (*cp))
{
me->tag = RUN;
me->buf = cp;
}
if (me->tag == NOOP)
{
die_with_message (me->script, cp, g_err_msg[E_NO_OP]);
}
me->len = strlen (me->buf);
}
me = me->next;
}
}
token_t *
process_token_list (buffer_t * buf, token_t * token)
{
char *c;
haserl_buffer_init (buf);
shell_exec (buf, "\n"); /* try to get the error reporting match the line number */
while (token)
{
switch (token->tag)
{
case HTML:
/* Change from 0.8.0 - if the whole thing is just
whitespace, don't print it */
c = token->buf;
while ((c < (token->buf + token->len)) && (isspace (*c)))
c++;
if (c != token->buf + token->len)
shell_echo (buf, token->buf, token->len);
break;
case RUN:
shell_exec (buf, token->buf);
shell_exec (buf, "\n");
break;
case EVAL:
shell_eval (buf, token->buf, token->len);
break;
#ifdef BASHEXTENSIONS
case IF:
shell_if (buf, token->buf, token->len);
break;
case ELIF:
shell_elif (buf, token->buf, token->len);
break;
case ELSE:
shell_else (buf, token->buf, token->len);
break;
case ENDIF:
shell_endif (buf, token->buf, token->len);
break;
case CASE:
shell_case (buf, token->buf, token->len);
break;
case WHEN:
shell_when (buf, token->buf, token->len);
break;
case OTHERWISE:
shell_otherwise (buf, token->buf, token->len);
break;
case ENDCASE:
shell_endcase (buf, token->buf, token->len);
break;
case WHILE:
shell_while (buf, token->buf, token->len);
break;
case ENDWHILE:
shell_endwhile (buf, token->buf, token->len);
break;
case UNTIL:
shell_until (buf, token->buf, token->len);
break;
case ENDUNTIL:
shell_enduntil (buf, token->buf, token->len);
break;
case FOR:
shell_for (buf, token->buf, token->len);
break;
case ENDFOR:
shell_endfor (buf, token->buf, token->len);
break;
case UNLESS:
shell_unless (buf, token->buf, token->len);
break;
case ELUN:
shell_elun (buf, token->buf, token->len);
break;
case UNELSE:
shell_unelse (buf, token->buf, token->len);
break;
case ENDUNLESS:
shell_endunless (buf, token->buf, token->len);
break;
#endif
default:
break;
}
token = token->next;
}
return (token);
}
#endif
haserl-0.9.35/src/common.h 0000644 0001750 0001750 00000004012 12470207650 014610 0 ustar nangel nangel /* --------------------------------------------------------------------------
* Copyright 2003-2011 (inclusive) Nathan Angelacos
* (nangel@users.sourceforge.net)
*
* This file is part of haserl.
*
* Haserl is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2,
* as published by the Free Software Foundation.
*
* Haserl 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with haserl. If not, see .
*
* ------------------------------------------------------------------------ */
#ifndef _COMMON_H
#define _COMMON_H 1
/* how many argv slots to allocate at once */
#define ALLOC_CHUNK 10
#define STDIN 0
#define STDOUT 1
#define STDERR 2
#define TRUE -1
#define FALSE 0
#define NONE 1
/* linked list */
typedef struct
{
char *buf;
void *next;
} list_t;
/* name/value pairs */
typedef struct
{
char *string; /* the string */
unsigned char quoted; /* non-zero if the string was quoted */
} argv_t;
/* expandable buffer structure */
typedef struct
{
unsigned char *data; /* the data */
unsigned char *ptr; /* where to write to next */
unsigned char *limit; /* maximal allocated buffer pos */
} buffer_t;
/* common.c */
int argc_argv (char *instr, argv_t ** argv, char *commentstr);
void haserl_buffer_init (buffer_t * buf);
void buffer_reset (buffer_t * buf);
void buffer_destroy (buffer_t * buf);
void buffer_add (buffer_t * buf, const void *data, unsigned long size);
#ifndef JUST_LUACSHELL
void uppercase (char *instr);
void lowercase (char *instr);
char *skip_whitespace (char *instr);
char *find_whitespace (char *instr);
int count_lines (char *instr, size_t len, char *where);
#endif
#endif /* !_COMMON_H */
haserl-0.9.35/src/rfc2388.h 0000644 0001750 0001750 00000003251 12470207650 014423 0 ustar nangel nangel /* --------------------------------------------------------------------------
* Copyright 2003-2011 (inclusive) Nathan Angelacos
* (nangel@users.sourceforge.net)
*
* This file is part of haserl.
*
* Haserl is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2,
* as published by the Free Software Foundation.
*
* Haserl 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with haserl. If not, see .
*
* ------------------------------------------------------------------------ */
#ifndef _RFC2388_H
#define _RFC2388_H 1
typedef struct
{
char *name; /* the variable name */
char *filename; /* the client-specified filename */
char *type; /* the mime-type */
char *tempname; /* the tempfilename */
buffer_t value; /* the value of the variable */
int fh; /* the output file handle */
} mime_var_t;
/* rfc2388.c */
void empty_stdin(void);
void mime_var_init(mime_var_t *obj);
void mime_var_destroy(mime_var_t *obj);
char *mime_substr(char *start, int len);
void mime_tag_add(mime_var_t *obj, char *str);
void mime_var_putenv(list_t *env, mime_var_t *obj);
void mime_exec(mime_var_t *obj, char *fifo);
void mime_var_open_target(mime_var_t *obj);
void mime_var_writer(mime_var_t *obj, char *str, int len);
int rfc2388_handler(list_t *env);
#endif /* _RFC2388_H */
haserl-0.9.35/src/h_error.h 0000644 0001750 0001750 00000002440 12470207650 014763 0 ustar nangel nangel /* --------------------------------------------------------------------------
* Copyright 2003-2011 (inclusive) Nathan Angelacos
* (nangel@users.sourceforge.net)
*
* This file is part of haserl.
*
* Haserl is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2,
* as published by the Free Software Foundation.
*
* Haserl 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with haserl. If not, see .
*
* ------------------------------------------------------------------------ */
#ifndef H_ERROR_H
#define H_ERROR_H 1
enum error_types { E_NO_ERROR, E_MALLOC_FAIL, E_FILE_OPEN_FAIL,
E_END_BEFORE_BEGIN, E_NO_END_MARKER ,
E_NO_OP, E_SUBSHELL_FAIL, E_WHATEVER };
extern char *g_err_msg[];
/* h_error.c */
void die_with_error(char *msg);
void die_with_syntax(void *script, char *where, int error);
void
die_with_message ( void *sp, char *where, const char *s, ...);
#endif /* !H_ERROR_H */
haserl-0.9.35/src/h_luac.c 0000644 0001750 0001750 00000003266 12470207650 014560 0 ustar nangel nangel /* --------------------------------------------------------------------------
* Copyright 2003-2011 (inclusive) Nathan Angelacos
* (nangel@users.sourceforge.net)
*
* This file is part of haserl.
*
* Haserl is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2,
* as published by the Free Software Foundation.
*
* Haserl 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with haserl. If not, see .
*
* ------------------------------------------------------------------------ */
#if HAVE_CONFIG_H
#include
#endif
#include
#include
#include
#include "common.h"
#include "h_luac.h"
#include "h_error.h"
extern lua_State *lua_vm;
/* tokenizer was not used, so script is NULL, but name is the filename to process */
void
luac_doscript (buffer_t * script, char *name)
{
if (luaL_loadfile (lua_vm, name) || lua_pcall (lua_vm, 0, LUA_MULTRET, 0))
{
die_with_message (NULL, NULL, "Cannot load lua and execute chunk: %s",
lua_tostring (lua_vm, -1));
}
}
int
h_luac_loadfile (lua_State * L)
{
const char *filename = luaL_checkstring (L, 1);
if (luaL_loadfile (L, filename))
{
die_with_message (NULL, NULL, "Cannot load file '%s': %s", filename,
lua_tostring (L, -1));
} /* no error: function is on the stack */
return 1;
}
haserl-0.9.35/src/Makefile.in 0000644 0001750 0001750 00000114025 12500111036 015204 0 ustar nangel nangel # Makefile.in generated by automake 1.15 from Makefile.am.
# @configure_input@
# Copyright (C) 1994-2014 Free Software Foundation, Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
@SET_MAKE@
VPATH = @srcdir@
am__is_gnu_make = { \
if test -z '$(MAKELEVEL)'; then \
false; \
elif test -n '$(MAKE_HOST)'; then \
true; \
elif test -n '$(MAKE_VERSION)' && test -n '$(CURDIR)'; then \
true; \
else \
false; \
fi; \
}
am__make_running_with_option = \
case $${target_option-} in \
?) ;; \
*) echo "am__make_running_with_option: internal error: invalid" \
"target option '$${target_option-}' specified" >&2; \
exit 1;; \
esac; \
has_opt=no; \
sane_makeflags=$$MAKEFLAGS; \
if $(am__is_gnu_make); then \
sane_makeflags=$$MFLAGS; \
else \
case $$MAKEFLAGS in \
*\\[\ \ ]*) \
bs=\\; \
sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \
| sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \
esac; \
fi; \
skip_next=no; \
strip_trailopt () \
{ \
flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \
}; \
for flg in $$sane_makeflags; do \
test $$skip_next = yes && { skip_next=no; continue; }; \
case $$flg in \
*=*|--*) continue;; \
-*I) strip_trailopt 'I'; skip_next=yes;; \
-*I?*) strip_trailopt 'I';; \
-*O) strip_trailopt 'O'; skip_next=yes;; \
-*O?*) strip_trailopt 'O';; \
-*l) strip_trailopt 'l'; skip_next=yes;; \
-*l?*) strip_trailopt 'l';; \
-[dEDm]) skip_next=yes;; \
-[JT]) skip_next=yes;; \
esac; \
case $$flg in \
*$$target_option*) has_opt=yes; break;; \
esac; \
done; \
test $$has_opt = yes
am__make_dryrun = (target_option=n; $(am__make_running_with_option))
am__make_keepgoing = (target_option=k; $(am__make_running_with_option))
pkgdatadir = $(datadir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkglibexecdir = $(libexecdir)/@PACKAGE@
am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
install_sh_DATA = $(install_sh) -c -m 644
install_sh_PROGRAM = $(install_sh) -c
install_sh_SCRIPT = $(install_sh) -c
INSTALL_HEADER = $(INSTALL_DATA)
transform = $(program_transform_name)
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
@USE_LUA_TRUE@noinst_PROGRAMS = lua2c$(EXEEXT)
@INCLUDE_LUASHELL_TRUE@@USE_LUA_TRUE@am__append_1 = h_lua.c h_lua.h
@INCLUDE_LUACSHELL_TRUE@@USE_LUA_TRUE@am__append_2 = h_luac.c h_luac.h
bin_PROGRAMS = haserl$(EXEEXT)
subdir = src
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
$(ACLOCAL_M4)
DIST_COMMON = $(srcdir)/Makefile.am $(am__DIST_COMMON)
mkinstalldirs = $(install_sh) -d
CONFIG_HEADER = config.h
CONFIG_CLEAN_FILES =
CONFIG_CLEAN_VPATH_FILES =
am__installdirs = "$(DESTDIR)$(bindir)"
PROGRAMS = $(bin_PROGRAMS) $(noinst_PROGRAMS)
am__haserl_SOURCES_DIST = common.c common.h sliding_buffer.c \
sliding_buffer.h h_error.c h_error.h h_script.c h_script.h \
rfc2388.c rfc2388.h h_bash.c h_bash.h h_lua_common.c \
h_lua_common.h h_lua.c h_lua.h h_luac.c h_luac.h haserl.c \
haserl.h
@INCLUDE_BASHSHELL_TRUE@am__objects_1 = haserl-h_bash.$(OBJEXT)
@INCLUDE_LUASHELL_TRUE@@USE_LUA_TRUE@am__objects_2 = \
@INCLUDE_LUASHELL_TRUE@@USE_LUA_TRUE@ haserl-h_lua.$(OBJEXT)
@INCLUDE_LUACSHELL_TRUE@@USE_LUA_TRUE@am__objects_3 = \
@INCLUDE_LUACSHELL_TRUE@@USE_LUA_TRUE@ haserl-h_luac.$(OBJEXT)
@USE_LUA_TRUE@am__objects_4 = haserl-h_lua_common.$(OBJEXT) \
@USE_LUA_TRUE@ $(am__objects_2) $(am__objects_3)
am_haserl_OBJECTS = haserl-common.$(OBJEXT) \
haserl-sliding_buffer.$(OBJEXT) haserl-h_error.$(OBJEXT) \
haserl-h_script.$(OBJEXT) haserl-rfc2388.$(OBJEXT) \
$(am__objects_1) $(am__objects_4) haserl-haserl.$(OBJEXT)
nodist_haserl_OBJECTS =
haserl_OBJECTS = $(am_haserl_OBJECTS) $(nodist_haserl_OBJECTS)
am__DEPENDENCIES_1 =
haserl_DEPENDENCIES = $(am__DEPENDENCIES_1)
haserl_LINK = $(CCLD) $(haserl_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \
$(LDFLAGS) -o $@
lua2c_SOURCES = lua2c.c
lua2c_OBJECTS = lua2c.$(OBJEXT)
lua2c_LDADD = $(LDADD)
AM_V_P = $(am__v_P_@AM_V@)
am__v_P_ = $(am__v_P_@AM_DEFAULT_V@)
am__v_P_0 = false
am__v_P_1 = :
AM_V_GEN = $(am__v_GEN_@AM_V@)
am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@)
am__v_GEN_0 = @echo " GEN " $@;
am__v_GEN_1 =
AM_V_at = $(am__v_at_@AM_V@)
am__v_at_ = $(am__v_at_@AM_DEFAULT_V@)
am__v_at_0 = @
am__v_at_1 =
DEFAULT_INCLUDES = -I.@am__isrc@
depcomp = $(SHELL) $(top_srcdir)/depcomp
am__depfiles_maybe = depfiles
am__mv = mv -f
AM_V_lt = $(am__v_lt_@AM_V@)
am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@)
am__v_lt_0 = --silent
am__v_lt_1 =
COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \
$(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
AM_V_CC = $(am__v_CC_@AM_V@)
am__v_CC_ = $(am__v_CC_@AM_DEFAULT_V@)
am__v_CC_0 = @echo " CC " $@;
am__v_CC_1 =
CCLD = $(CC)
LINK = $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@
AM_V_CCLD = $(am__v_CCLD_@AM_V@)
am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@)
am__v_CCLD_0 = @echo " CCLD " $@;
am__v_CCLD_1 =
SOURCES = $(haserl_SOURCES) $(nodist_haserl_SOURCES) lua2c.c
DIST_SOURCES = $(am__haserl_SOURCES_DIST) lua2c.c
am__can_run_installinfo = \
case $$AM_UPDATE_INFO_DIR in \
n|no|NO) false;; \
*) (install-info --version) >/dev/null 2>&1;; \
esac
am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) \
$(LISP)config.h.in
# Read a list of newline-separated strings from the standard input,
# and print each of them once, without duplicates. Input order is
# *not* preserved.
am__uniquify_input = $(AWK) '\
BEGIN { nonempty = 0; } \
{ items[$$0] = 1; nonempty = 1; } \
END { if (nonempty) { for (i in items) print i; }; } \
'
# Make sure the list of sources is unique. This is necessary because,
# e.g., the same source file might be shared among _SOURCES variables
# for different programs/libraries.
am__define_uniq_tagged_files = \
list='$(am__tagged_files)'; \
unique=`for i in $$list; do \
if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
done | $(am__uniquify_input)`
ETAGS = etags
CTAGS = ctags
am__DIST_COMMON = $(srcdir)/Makefile.in $(srcdir)/config.h.in \
$(top_srcdir)/depcomp
DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
ACLOCAL = @ACLOCAL@
AMTAR = @AMTAR@
AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@
AUTOCONF = @AUTOCONF@
AUTOHEADER = @AUTOHEADER@
AUTOMAKE = @AUTOMAKE@
AWK = @AWK@
CC = @CC@
CCDEPMODE = @CCDEPMODE@
CC_FOR_BUILD = @CC_FOR_BUILD@
CFLAGS = @CFLAGS@
CFLAGS_FOR_BUILD = @CFLAGS_FOR_BUILD@
CPP = @CPP@
CPPFLAGS = @CPPFLAGS@
CYGPATH_W = @CYGPATH_W@
DEFS = @DEFS@
DEPDIR = @DEPDIR@
ECHO_C = @ECHO_C@
ECHO_N = @ECHO_N@
ECHO_T = @ECHO_T@
EGREP = @EGREP@
EXEEXT = @EXEEXT@
GREP = @GREP@
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
LDFLAGS = @LDFLAGS@
LIBOBJS = @LIBOBJS@
LIBS = @LIBS@
LN_S = @LN_S@
LTLIBOBJS = @LTLIBOBJS@
LUA_CFLAGS = @LUA_CFLAGS@
LUA_LIBS = @LUA_LIBS@
MAKEINFO = @MAKEINFO@
MKDIR_P = @MKDIR_P@
OBJEXT = @OBJEXT@
PACKAGE = @PACKAGE_TARNAME@
PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
PACKAGE_NAME = @PACKAGE_NAME@
PACKAGE_STRING = @PACKAGE_STRING@
PACKAGE_TARNAME = @PACKAGE_TARNAME@
PACKAGE_URL = @PACKAGE_URL@
PACKAGE_VERSION = @PACKAGE_VERSION@
PATH_SEPARATOR = @PATH_SEPARATOR@
PKG_CONFIG = @PKG_CONFIG@
PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@
PKG_CONFIG_PATH = @PKG_CONFIG_PATH@
SET_MAKE = @SET_MAKE@
SHELL = @SHELL@
STRIP = @STRIP@
VERSION = @VERSION@
abs_builddir = @abs_builddir@
abs_srcdir = @abs_srcdir@
abs_top_builddir = @abs_top_builddir@
abs_top_srcdir = @abs_top_srcdir@
ac_ct_CC = @ac_ct_CC@
am__include = @am__include@
am__leading_dot = @am__leading_dot@
am__quote = @am__quote@
am__tar = @am__tar@
am__untar = @am__untar@
bindir = @bindir@
build_alias = @build_alias@
builddir = @builddir@
datadir = @datadir@
datarootdir = @datarootdir@
docdir = @docdir@
dvidir = @dvidir@
exec_prefix = @exec_prefix@
host_alias = @host_alias@
htmldir = @htmldir@
includedir = @includedir@
infodir = @infodir@
install_sh = @install_sh@
libdir = @libdir@
libexecdir = @libexecdir@
localedir = @localedir@
localstatedir = @localstatedir@
mandir = @mandir@
mkdir_p = @mkdir_p@
oldincludedir = @oldincludedir@
pdfdir = @pdfdir@
prefix = @prefix@
program_transform_name = @program_transform_name@
psdir = @psdir@
sbindir = @sbindir@
sharedstatedir = @sharedstatedir@
srcdir = @srcdir@
sysconfdir = @sysconfdir@
target_alias = @target_alias@
top_build_prefix = @top_build_prefix@
top_builddir = @top_builddir@
top_srcdir = @top_srcdir@
EXTRA_DIST = haserl_lualib.lua lua2c.c
# Not strictly required, but we explicitly do not distribute the generated inc file
nodist_haserl_SOURCES = haserl_lualib.inc
@USE_LUA_TRUE@LUASOURCE = h_lua_common.c h_lua_common.h \
@USE_LUA_TRUE@ $(am__append_1) $(am__append_2)
@INCLUDE_BASHSHELL_TRUE@BASHSOURCE = h_bash.c h_bash.h
haserl_SOURCES = common.c common.h sliding_buffer.c sliding_buffer.h \
h_error.c h_error.h h_script.c h_script.h rfc2388.c rfc2388.h \
$(BASHSOURCE) $(LUASOURCE) haserl.c haserl.h
haserl_CFLAGS = $(LUA_CFLAGS)
haserl_LDADD = $(LUA_LIBS)
all: config.h
$(MAKE) $(AM_MAKEFLAGS) all-am
.SUFFIXES:
.SUFFIXES: .c .o .obj
$(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps)
@for dep in $?; do \
case '$(am__configure_deps)' in \
*$$dep*) \
( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
&& { if test -f $@; then exit 0; else break; fi; }; \
exit 1;; \
esac; \
done; \
echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu src/Makefile'; \
$(am__cd) $(top_srcdir) && \
$(AUTOMAKE) --gnu src/Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
@case '$?' in \
*config.status*) \
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
*) \
echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
esac;
$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(top_srcdir)/configure: $(am__configure_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(ACLOCAL_M4): $(am__aclocal_m4_deps)
cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
$(am__aclocal_m4_deps):
config.h: stamp-h1
@test -f $@ || rm -f stamp-h1
@test -f $@ || $(MAKE) $(AM_MAKEFLAGS) stamp-h1
stamp-h1: $(srcdir)/config.h.in $(top_builddir)/config.status
@rm -f stamp-h1
cd $(top_builddir) && $(SHELL) ./config.status src/config.h
$(srcdir)/config.h.in: $(am__configure_deps)
($(am__cd) $(top_srcdir) && $(AUTOHEADER))
rm -f stamp-h1
touch $@
distclean-hdr:
-rm -f config.h stamp-h1
install-binPROGRAMS: $(bin_PROGRAMS)
@$(NORMAL_INSTALL)
@list='$(bin_PROGRAMS)'; test -n "$(bindir)" || list=; \
if test -n "$$list"; then \
echo " $(MKDIR_P) '$(DESTDIR)$(bindir)'"; \
$(MKDIR_P) "$(DESTDIR)$(bindir)" || exit 1; \
fi; \
for p in $$list; do echo "$$p $$p"; done | \
sed 's/$(EXEEXT)$$//' | \
while read p p1; do if test -f $$p \
; then echo "$$p"; echo "$$p"; else :; fi; \
done | \
sed -e 'p;s,.*/,,;n;h' \
-e 's|.*|.|' \
-e 'p;x;s,.*/,,;s/$(EXEEXT)$$//;$(transform);s/$$/$(EXEEXT)/' | \
sed 'N;N;N;s,\n, ,g' | \
$(AWK) 'BEGIN { files["."] = ""; dirs["."] = 1 } \
{ d=$$3; if (dirs[d] != 1) { print "d", d; dirs[d] = 1 } \
if ($$2 == $$4) files[d] = files[d] " " $$1; \
else { print "f", $$3 "/" $$4, $$1; } } \
END { for (d in files) print "f", d, files[d] }' | \
while read type dir files; do \
if test "$$dir" = .; then dir=; else dir=/$$dir; fi; \
test -z "$$files" || { \
echo " $(INSTALL_PROGRAM_ENV) $(INSTALL_PROGRAM) $$files '$(DESTDIR)$(bindir)$$dir'"; \
$(INSTALL_PROGRAM_ENV) $(INSTALL_PROGRAM) $$files "$(DESTDIR)$(bindir)$$dir" || exit $$?; \
} \
; done
uninstall-binPROGRAMS:
@$(NORMAL_UNINSTALL)
@list='$(bin_PROGRAMS)'; test -n "$(bindir)" || list=; \
files=`for p in $$list; do echo "$$p"; done | \
sed -e 'h;s,^.*/,,;s/$(EXEEXT)$$//;$(transform)' \
-e 's/$$/$(EXEEXT)/' \
`; \
test -n "$$list" || exit 0; \
echo " ( cd '$(DESTDIR)$(bindir)' && rm -f" $$files ")"; \
cd "$(DESTDIR)$(bindir)" && rm -f $$files
clean-binPROGRAMS:
-test -z "$(bin_PROGRAMS)" || rm -f $(bin_PROGRAMS)
clean-noinstPROGRAMS:
-test -z "$(noinst_PROGRAMS)" || rm -f $(noinst_PROGRAMS)
haserl$(EXEEXT): $(haserl_OBJECTS) $(haserl_DEPENDENCIES) $(EXTRA_haserl_DEPENDENCIES)
@rm -f haserl$(EXEEXT)
$(AM_V_CCLD)$(haserl_LINK) $(haserl_OBJECTS) $(haserl_LDADD) $(LIBS)
@USE_LUA_FALSE@lua2c$(EXEEXT): $(lua2c_OBJECTS) $(lua2c_DEPENDENCIES) $(EXTRA_lua2c_DEPENDENCIES)
@USE_LUA_FALSE@ @rm -f lua2c$(EXEEXT)
@USE_LUA_FALSE@ $(AM_V_CCLD)$(LINK) $(lua2c_OBJECTS) $(lua2c_LDADD) $(LIBS)
mostlyclean-compile:
-rm -f *.$(OBJEXT)
distclean-compile:
-rm -f *.tab.c
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/haserl-common.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/haserl-h_bash.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/haserl-h_error.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/haserl-h_lua.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/haserl-h_lua_common.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/haserl-h_luac.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/haserl-h_script.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/haserl-haserl.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/haserl-rfc2388.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/haserl-sliding_buffer.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/lua2c.Po@am__quote@
.c.o:
@am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ $<
.c.obj:
@am__fastdepCC_TRUE@ $(AM_V_CC)$(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'`
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ `$(CYGPATH_W) '$<'`
haserl-common.o: common.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -MT haserl-common.o -MD -MP -MF $(DEPDIR)/haserl-common.Tpo -c -o haserl-common.o `test -f 'common.c' || echo '$(srcdir)/'`common.c
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/haserl-common.Tpo $(DEPDIR)/haserl-common.Po
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='common.c' object='haserl-common.o' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -c -o haserl-common.o `test -f 'common.c' || echo '$(srcdir)/'`common.c
haserl-common.obj: common.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -MT haserl-common.obj -MD -MP -MF $(DEPDIR)/haserl-common.Tpo -c -o haserl-common.obj `if test -f 'common.c'; then $(CYGPATH_W) 'common.c'; else $(CYGPATH_W) '$(srcdir)/common.c'; fi`
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/haserl-common.Tpo $(DEPDIR)/haserl-common.Po
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='common.c' object='haserl-common.obj' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -c -o haserl-common.obj `if test -f 'common.c'; then $(CYGPATH_W) 'common.c'; else $(CYGPATH_W) '$(srcdir)/common.c'; fi`
haserl-sliding_buffer.o: sliding_buffer.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -MT haserl-sliding_buffer.o -MD -MP -MF $(DEPDIR)/haserl-sliding_buffer.Tpo -c -o haserl-sliding_buffer.o `test -f 'sliding_buffer.c' || echo '$(srcdir)/'`sliding_buffer.c
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/haserl-sliding_buffer.Tpo $(DEPDIR)/haserl-sliding_buffer.Po
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='sliding_buffer.c' object='haserl-sliding_buffer.o' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -c -o haserl-sliding_buffer.o `test -f 'sliding_buffer.c' || echo '$(srcdir)/'`sliding_buffer.c
haserl-sliding_buffer.obj: sliding_buffer.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -MT haserl-sliding_buffer.obj -MD -MP -MF $(DEPDIR)/haserl-sliding_buffer.Tpo -c -o haserl-sliding_buffer.obj `if test -f 'sliding_buffer.c'; then $(CYGPATH_W) 'sliding_buffer.c'; else $(CYGPATH_W) '$(srcdir)/sliding_buffer.c'; fi`
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/haserl-sliding_buffer.Tpo $(DEPDIR)/haserl-sliding_buffer.Po
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='sliding_buffer.c' object='haserl-sliding_buffer.obj' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -c -o haserl-sliding_buffer.obj `if test -f 'sliding_buffer.c'; then $(CYGPATH_W) 'sliding_buffer.c'; else $(CYGPATH_W) '$(srcdir)/sliding_buffer.c'; fi`
haserl-h_error.o: h_error.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -MT haserl-h_error.o -MD -MP -MF $(DEPDIR)/haserl-h_error.Tpo -c -o haserl-h_error.o `test -f 'h_error.c' || echo '$(srcdir)/'`h_error.c
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/haserl-h_error.Tpo $(DEPDIR)/haserl-h_error.Po
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='h_error.c' object='haserl-h_error.o' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -c -o haserl-h_error.o `test -f 'h_error.c' || echo '$(srcdir)/'`h_error.c
haserl-h_error.obj: h_error.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -MT haserl-h_error.obj -MD -MP -MF $(DEPDIR)/haserl-h_error.Tpo -c -o haserl-h_error.obj `if test -f 'h_error.c'; then $(CYGPATH_W) 'h_error.c'; else $(CYGPATH_W) '$(srcdir)/h_error.c'; fi`
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/haserl-h_error.Tpo $(DEPDIR)/haserl-h_error.Po
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='h_error.c' object='haserl-h_error.obj' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -c -o haserl-h_error.obj `if test -f 'h_error.c'; then $(CYGPATH_W) 'h_error.c'; else $(CYGPATH_W) '$(srcdir)/h_error.c'; fi`
haserl-h_script.o: h_script.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -MT haserl-h_script.o -MD -MP -MF $(DEPDIR)/haserl-h_script.Tpo -c -o haserl-h_script.o `test -f 'h_script.c' || echo '$(srcdir)/'`h_script.c
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/haserl-h_script.Tpo $(DEPDIR)/haserl-h_script.Po
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='h_script.c' object='haserl-h_script.o' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -c -o haserl-h_script.o `test -f 'h_script.c' || echo '$(srcdir)/'`h_script.c
haserl-h_script.obj: h_script.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -MT haserl-h_script.obj -MD -MP -MF $(DEPDIR)/haserl-h_script.Tpo -c -o haserl-h_script.obj `if test -f 'h_script.c'; then $(CYGPATH_W) 'h_script.c'; else $(CYGPATH_W) '$(srcdir)/h_script.c'; fi`
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/haserl-h_script.Tpo $(DEPDIR)/haserl-h_script.Po
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='h_script.c' object='haserl-h_script.obj' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -c -o haserl-h_script.obj `if test -f 'h_script.c'; then $(CYGPATH_W) 'h_script.c'; else $(CYGPATH_W) '$(srcdir)/h_script.c'; fi`
haserl-rfc2388.o: rfc2388.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -MT haserl-rfc2388.o -MD -MP -MF $(DEPDIR)/haserl-rfc2388.Tpo -c -o haserl-rfc2388.o `test -f 'rfc2388.c' || echo '$(srcdir)/'`rfc2388.c
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/haserl-rfc2388.Tpo $(DEPDIR)/haserl-rfc2388.Po
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='rfc2388.c' object='haserl-rfc2388.o' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -c -o haserl-rfc2388.o `test -f 'rfc2388.c' || echo '$(srcdir)/'`rfc2388.c
haserl-rfc2388.obj: rfc2388.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -MT haserl-rfc2388.obj -MD -MP -MF $(DEPDIR)/haserl-rfc2388.Tpo -c -o haserl-rfc2388.obj `if test -f 'rfc2388.c'; then $(CYGPATH_W) 'rfc2388.c'; else $(CYGPATH_W) '$(srcdir)/rfc2388.c'; fi`
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/haserl-rfc2388.Tpo $(DEPDIR)/haserl-rfc2388.Po
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='rfc2388.c' object='haserl-rfc2388.obj' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -c -o haserl-rfc2388.obj `if test -f 'rfc2388.c'; then $(CYGPATH_W) 'rfc2388.c'; else $(CYGPATH_W) '$(srcdir)/rfc2388.c'; fi`
haserl-h_bash.o: h_bash.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -MT haserl-h_bash.o -MD -MP -MF $(DEPDIR)/haserl-h_bash.Tpo -c -o haserl-h_bash.o `test -f 'h_bash.c' || echo '$(srcdir)/'`h_bash.c
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/haserl-h_bash.Tpo $(DEPDIR)/haserl-h_bash.Po
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='h_bash.c' object='haserl-h_bash.o' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -c -o haserl-h_bash.o `test -f 'h_bash.c' || echo '$(srcdir)/'`h_bash.c
haserl-h_bash.obj: h_bash.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -MT haserl-h_bash.obj -MD -MP -MF $(DEPDIR)/haserl-h_bash.Tpo -c -o haserl-h_bash.obj `if test -f 'h_bash.c'; then $(CYGPATH_W) 'h_bash.c'; else $(CYGPATH_W) '$(srcdir)/h_bash.c'; fi`
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/haserl-h_bash.Tpo $(DEPDIR)/haserl-h_bash.Po
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='h_bash.c' object='haserl-h_bash.obj' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -c -o haserl-h_bash.obj `if test -f 'h_bash.c'; then $(CYGPATH_W) 'h_bash.c'; else $(CYGPATH_W) '$(srcdir)/h_bash.c'; fi`
haserl-h_lua_common.o: h_lua_common.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -MT haserl-h_lua_common.o -MD -MP -MF $(DEPDIR)/haserl-h_lua_common.Tpo -c -o haserl-h_lua_common.o `test -f 'h_lua_common.c' || echo '$(srcdir)/'`h_lua_common.c
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/haserl-h_lua_common.Tpo $(DEPDIR)/haserl-h_lua_common.Po
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='h_lua_common.c' object='haserl-h_lua_common.o' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -c -o haserl-h_lua_common.o `test -f 'h_lua_common.c' || echo '$(srcdir)/'`h_lua_common.c
haserl-h_lua_common.obj: h_lua_common.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -MT haserl-h_lua_common.obj -MD -MP -MF $(DEPDIR)/haserl-h_lua_common.Tpo -c -o haserl-h_lua_common.obj `if test -f 'h_lua_common.c'; then $(CYGPATH_W) 'h_lua_common.c'; else $(CYGPATH_W) '$(srcdir)/h_lua_common.c'; fi`
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/haserl-h_lua_common.Tpo $(DEPDIR)/haserl-h_lua_common.Po
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='h_lua_common.c' object='haserl-h_lua_common.obj' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -c -o haserl-h_lua_common.obj `if test -f 'h_lua_common.c'; then $(CYGPATH_W) 'h_lua_common.c'; else $(CYGPATH_W) '$(srcdir)/h_lua_common.c'; fi`
haserl-h_lua.o: h_lua.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -MT haserl-h_lua.o -MD -MP -MF $(DEPDIR)/haserl-h_lua.Tpo -c -o haserl-h_lua.o `test -f 'h_lua.c' || echo '$(srcdir)/'`h_lua.c
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/haserl-h_lua.Tpo $(DEPDIR)/haserl-h_lua.Po
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='h_lua.c' object='haserl-h_lua.o' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -c -o haserl-h_lua.o `test -f 'h_lua.c' || echo '$(srcdir)/'`h_lua.c
haserl-h_lua.obj: h_lua.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -MT haserl-h_lua.obj -MD -MP -MF $(DEPDIR)/haserl-h_lua.Tpo -c -o haserl-h_lua.obj `if test -f 'h_lua.c'; then $(CYGPATH_W) 'h_lua.c'; else $(CYGPATH_W) '$(srcdir)/h_lua.c'; fi`
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/haserl-h_lua.Tpo $(DEPDIR)/haserl-h_lua.Po
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='h_lua.c' object='haserl-h_lua.obj' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -c -o haserl-h_lua.obj `if test -f 'h_lua.c'; then $(CYGPATH_W) 'h_lua.c'; else $(CYGPATH_W) '$(srcdir)/h_lua.c'; fi`
haserl-h_luac.o: h_luac.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -MT haserl-h_luac.o -MD -MP -MF $(DEPDIR)/haserl-h_luac.Tpo -c -o haserl-h_luac.o `test -f 'h_luac.c' || echo '$(srcdir)/'`h_luac.c
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/haserl-h_luac.Tpo $(DEPDIR)/haserl-h_luac.Po
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='h_luac.c' object='haserl-h_luac.o' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -c -o haserl-h_luac.o `test -f 'h_luac.c' || echo '$(srcdir)/'`h_luac.c
haserl-h_luac.obj: h_luac.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -MT haserl-h_luac.obj -MD -MP -MF $(DEPDIR)/haserl-h_luac.Tpo -c -o haserl-h_luac.obj `if test -f 'h_luac.c'; then $(CYGPATH_W) 'h_luac.c'; else $(CYGPATH_W) '$(srcdir)/h_luac.c'; fi`
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/haserl-h_luac.Tpo $(DEPDIR)/haserl-h_luac.Po
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='h_luac.c' object='haserl-h_luac.obj' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -c -o haserl-h_luac.obj `if test -f 'h_luac.c'; then $(CYGPATH_W) 'h_luac.c'; else $(CYGPATH_W) '$(srcdir)/h_luac.c'; fi`
haserl-haserl.o: haserl.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -MT haserl-haserl.o -MD -MP -MF $(DEPDIR)/haserl-haserl.Tpo -c -o haserl-haserl.o `test -f 'haserl.c' || echo '$(srcdir)/'`haserl.c
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/haserl-haserl.Tpo $(DEPDIR)/haserl-haserl.Po
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='haserl.c' object='haserl-haserl.o' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -c -o haserl-haserl.o `test -f 'haserl.c' || echo '$(srcdir)/'`haserl.c
haserl-haserl.obj: haserl.c
@am__fastdepCC_TRUE@ $(AM_V_CC)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -MT haserl-haserl.obj -MD -MP -MF $(DEPDIR)/haserl-haserl.Tpo -c -o haserl-haserl.obj `if test -f 'haserl.c'; then $(CYGPATH_W) 'haserl.c'; else $(CYGPATH_W) '$(srcdir)/haserl.c'; fi`
@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) $(DEPDIR)/haserl-haserl.Tpo $(DEPDIR)/haserl-haserl.Po
@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='haserl.c' object='haserl-haserl.obj' libtool=no @AMDEPBACKSLASH@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(haserl_CFLAGS) $(CFLAGS) -c -o haserl-haserl.obj `if test -f 'haserl.c'; then $(CYGPATH_W) 'haserl.c'; else $(CYGPATH_W) '$(srcdir)/haserl.c'; fi`
ID: $(am__tagged_files)
$(am__define_uniq_tagged_files); mkid -fID $$unique
tags: tags-am
TAGS: tags
tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
set x; \
here=`pwd`; \
$(am__define_uniq_tagged_files); \
shift; \
if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \
test -n "$$unique" || unique=$$empty_fix; \
if test $$# -gt 0; then \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
"$$@" $$unique; \
else \
$(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
$$unique; \
fi; \
fi
ctags: ctags-am
CTAGS: ctags
ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files)
$(am__define_uniq_tagged_files); \
test -z "$(CTAGS_ARGS)$$unique" \
|| $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
$$unique
GTAGS:
here=`$(am__cd) $(top_builddir) && pwd` \
&& $(am__cd) $(top_srcdir) \
&& gtags -i $(GTAGS_ARGS) "$$here"
cscopelist: cscopelist-am
cscopelist-am: $(am__tagged_files)
list='$(am__tagged_files)'; \
case "$(srcdir)" in \
[\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \
*) sdir=$(subdir)/$(srcdir) ;; \
esac; \
for i in $$list; do \
if test -f "$$i"; then \
echo "$(subdir)/$$i"; \
else \
echo "$$sdir/$$i"; \
fi; \
done >> $(top_builddir)/cscope.files
distclean-tags:
-rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
distdir: $(DISTFILES)
@srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
list='$(DISTFILES)'; \
dist_files=`for file in $$list; do echo $$file; done | \
sed -e "s|^$$srcdirstrip/||;t" \
-e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
case $$dist_files in \
*/*) $(MKDIR_P) `echo "$$dist_files" | \
sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
sort -u` ;; \
esac; \
for file in $$dist_files; do \
if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
if test -d $$d/$$file; then \
dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
if test -d "$(distdir)/$$file"; then \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \
find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \
fi; \
cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \
else \
test -f "$(distdir)/$$file" \
|| cp -p $$d/$$file "$(distdir)/$$file" \
|| exit 1; \
fi; \
done
check-am: all-am
check: check-am
all-am: Makefile $(PROGRAMS) config.h
installdirs:
for dir in "$(DESTDIR)$(bindir)"; do \
test -z "$$dir" || $(MKDIR_P) "$$dir"; \
done
install: install-am
install-exec: install-exec-am
install-data: install-data-am
uninstall: uninstall-am
install-am: all-am
@$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
installcheck: installcheck-am
mostlyclean-generic:
clean-generic:
distclean-generic:
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES)
maintainer-clean-generic:
@echo "This command is intended for maintainers to use"
@echo "it deletes files that may require special tools to rebuild."
clean: clean-am
clean-am: clean-binPROGRAMS clean-generic clean-noinstPROGRAMS \
mostlyclean-am
distclean: distclean-am
-rm -rf ./$(DEPDIR)
-rm -f Makefile
distclean-am: clean-am distclean-compile distclean-generic \
distclean-hdr distclean-tags
dvi: dvi-am
dvi-am:
html: html-am
html-am:
info: info-am
info-am:
install-data-am:
install-dvi: install-dvi-am
install-dvi-am:
install-exec-am: install-binPROGRAMS
install-html: install-html-am
install-html-am:
install-info: install-info-am
install-info-am:
install-man:
install-pdf: install-pdf-am
install-pdf-am:
install-ps: install-ps-am
install-ps-am:
installcheck-am:
maintainer-clean: maintainer-clean-am
-rm -rf ./$(DEPDIR)
-rm -f Makefile
maintainer-clean-am: distclean-am maintainer-clean-generic
mostlyclean: mostlyclean-am
mostlyclean-am: mostlyclean-compile mostlyclean-generic
pdf: pdf-am
pdf-am:
ps: ps-am
ps-am:
uninstall-am: uninstall-binPROGRAMS
.MAKE: all install-am install-strip
.PHONY: CTAGS GTAGS TAGS all all-am check check-am clean \
clean-binPROGRAMS clean-generic clean-noinstPROGRAMS \
cscopelist-am ctags ctags-am distclean distclean-compile \
distclean-generic distclean-hdr distclean-tags distdir dvi \
dvi-am html html-am info info-am install install-am \
install-binPROGRAMS install-data install-data-am install-dvi \
install-dvi-am install-exec install-exec-am install-html \
install-html-am install-info install-info-am install-man \
install-pdf install-pdf-am install-ps install-ps-am \
install-strip installcheck installcheck-am installdirs \
maintainer-clean maintainer-clean-generic mostlyclean \
mostlyclean-compile mostlyclean-generic pdf pdf-am ps ps-am \
tags tags-am uninstall uninstall-am uninstall-binPROGRAMS
.PRECIOUS: Makefile
# lua2c_LIBS ?= -llua -ldl -lm
@USE_LUA_TRUE@lua2c_LDFLAGS ?= -Wl,-E
@USE_LUA_TRUE@lua2c: lua2c.c
@USE_LUA_TRUE@ $(CC_FOR_BUILD) $(CFLAGS) $(LUA_CFLAGS) $(LDFLAGS) $(lua2c_LDFLAGS) \
@USE_LUA_TRUE@ -o $@ $^ $(LIBS) $(LUA_LIBS)
@USE_LUA_TRUE@haserl_lualib.inc : haserl_lualib.lua lua2c
@USE_LUA_TRUE@ if ! ./lua2c haserl_lualib haserl_lualib.lua >$@; then \
@USE_LUA_TRUE@ rm $@; \
@USE_LUA_TRUE@ exit 1 ;\
@USE_LUA_TRUE@ fi
@USE_LUA_TRUE@h_lua_common.c : haserl_lualib.inc
install-strip:
$(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
`test -z '$(STRIP)' || \
echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:
haserl-0.9.35/src/h_luac.h 0000644 0001750 0001750 00000001774 12470207650 014567 0 ustar nangel nangel /* --------------------------------------------------------------------------
* Copyright 2003-2011 (inclusive) Nathan Angelacos
* (nangel@users.sourceforge.net)
*
* This file is part of haserl.
*
* Haserl is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2,
* as published by the Free Software Foundation.
*
* Haserl 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with haserl. If not, see .
*
* ------------------------------------------------------------------------ */
#ifndef _H_LUAC_H
#define _H_LUAC_H
void luac_doscript(buffer_t *script, char *name);
int h_luac_loadfile(lua_State * L);
#endif
haserl-0.9.35/src/h_bash.h 0000644 0001750 0001750 00000004552 12470207650 014555 0 ustar nangel nangel /* --------------------------------------------------------------------------
* Copyright 2003-2011 (inclusive) Nathan Angelacos
* (nangel@users.sourceforge.net)
*
* This file is part of haserl.
*
* Haserl is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2,
* as published by the Free Software Foundation.
*
* Haserl 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with haserl. If not, see .
*
* ------------------------------------------------------------------------ */
#ifndef H_SUBSHELL_H
#define H_SUBSHELL_H 1
/* the "names" for the pipes to the subshell */
enum pipe_t { PARENT_IN, PARENT_OUT };
/* h_bash.c */
void bash_destroy(void);
void bash_exec(buffer_t *buf, char *str);
void bash_wait(buffer_t *buf, char *str);
void bash_echo(buffer_t *buf, char *str, size_t len);
void bash_eval(buffer_t *buf, char *str, size_t len);
void bash_setup(char *shell, list_t *env);
void bash_doscript(buffer_t *script, char *name);
#ifdef BASHEXTENSIONS
void bash_if(buffer_t *buf, char *str, size_t len);
void bash_elif(buffer_t *buf, char *str, size_t len);
void bash_else(buffer_t *buf, char *str, size_t len);
void bash_endif(buffer_t *buf, char *str, size_t len);
void bash_case(buffer_t *buf, char *str, size_t len);
void bash_when(buffer_t *buf, char *str, size_t len);
void bash_otherwise(buffer_t *buf, char *str, size_t len);
void bash_endcase(buffer_t *buf, char *str, size_t len);
void bash_while(buffer_t *buf, char *str, size_t len);
void bash_endwhile(buffer_t *buf, char *str, size_t len);
void bash_until(buffer_t *buf, char *str, size_t len);
void bash_enduntil(buffer_t *buf, char *str, size_t len);
void bash_for(buffer_t *buf, char *str, size_t len);
void bash_endfor(buffer_t *buf, char *str, size_t len);
void bash_unless(buffer_t *buf, char *str, size_t len);
void bash_elun(buffer_t *buf, char *str, size_t len);
void bash_unelse(buffer_t *buf, char *str, size_t len);
void bash_endunless(buffer_t *buf, char *str, size_t len);
#endif
#endif /* !H_SUBSHELL_H */
haserl-0.9.35/src/rfc2388.c 0000644 0001750 0001750 00000030314 12470222501 014406 0 ustar nangel nangel /* --------------------------------------------------------------------------
* Copyright 2003-2014 (inclusive) Nathan Angelacos
* (nangel@users.sourceforge.net)
*
* This file is part of haserl.
*
* Haserl is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2,
* as published by the Free Software Foundation.
*
* Haserl 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with haserl. If not, see .
*
* ------------------------------------------------------------------------ */
#if HAVE_CONFIG_H
#include
#endif
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#if HAVE_SIGNAL_H
#include
#endif
#include "common.h"
#include "h_error.h"
#include "h_script.h"
#include "h_bash.h"
#include "sliding_buffer.h"
#include "rfc2388.h"
#include "haserl.h"
void
empty_stdin (void)
{
char c[2000];
while (read (STDIN_FILENO, &c, 2000))
{
};
}
void
mime_var_init (mime_var_t * obj)
{
obj->name = NULL;
obj->filename = NULL;
obj->type = NULL;
obj->tempname = NULL;
haserl_buffer_init (&(obj->value));
obj->fh = 0;
}
void
mime_var_destroy (mime_var_t * obj)
{
int status;
struct sigaction new_action;
if (obj->name)
{
free (obj->name);
obj->name = NULL;
}
if (obj->filename)
{
free (obj->filename);
obj->filename = NULL;
}
if (obj->type)
{
free (obj->type);
obj->type = NULL;
}
if (obj->tempname)
{
free (obj->tempname);
obj->tempname = NULL;
}
buffer_destroy (&(obj->value));
if (obj->fh)
{
close (abs (obj->fh));
if (global.uploadhandler)
{
wait (&status);
new_action.sa_handler = SIG_DFL;
sigemptyset (&new_action.sa_mask);
new_action.sa_flags = 0;
sigaction (SIGPIPE, &new_action, NULL);
}
obj->fh = 0;
}
}
char *
mime_substr (char *start, int len)
{
char *ptr;
if (!start)
return NULL;
if (len < 0)
return NULL;
ptr = xmalloc (len + 2);
memcpy (ptr, start, len);
return ptr;
}
void
mime_tag_add (mime_var_t * obj, char *str)
{
char *a = NULL;
char *b = NULL;
static char *tag[] = { "name=\"", "filename=\"", "Content-Type: " };
a = strcasestr (str, tag[0]);
if (a)
{
a += strlen (tag[0]);
b = strchr (a, '"');
if ( (!obj->name) && ( b ) )
obj->name = mime_substr (a, b - a);
}
a = strcasestr (str, tag[1]);
if (a)
{
a += strlen (tag[1]);
b = strchr (a, '"');
if ( (!obj->filename) && ( b ) )
obj->filename = mime_substr (a, b - a);
}
a = strcasestr (str, tag[2]);
if (a)
{
a += strlen (tag[2]);
b = a + strlen (a);
if (!obj->type)
obj->type = mime_substr (a, b - a);
}
}
void
mime_var_putenv (list_t * env, mime_var_t * obj)
{
buffer_t buf;
haserl_buffer_init (&buf);
if (obj->name)
{
/* For file uploads, this creates FORM_foo=tempfile_pathspec.
That name can be overwritten by a subsequent foo=/etc/passwd,
for instance. This code block is depricated for FILE uploads
only. (it is still valid for non-form uploads */
buffer_add (&(obj->value), "", 1);
buffer_add (&buf, obj->name, strlen (obj->name));
buffer_add (&buf, "=", 1);
buffer_add (&buf, (char *) obj->value.data,
strlen ((char *) obj->value.data) + 1);
myputenv (env, (char *) buf.data, global.var_prefix);
myputenv (env, (char *) buf.data, global.post_prefix);
buffer_reset (&buf);
}
if (obj->filename)
{
/* This creates HASERL_foo_path=tempfile_pathspec. */
buffer_add (&buf, obj->name, strlen (obj->name));
buffer_add (&buf, "_path=", 6);
buffer_add (&buf, (char *) obj->value.data,
strlen ((char *) obj->value.data) + 1);
myputenv (env, (char *) buf.data, global.haserl_prefix);
myputenv (env, (char *) buf.data, global.var_prefix);
myputenv (env, (char *) buf.data, global.post_prefix);
buffer_reset (&buf);
/* this saves the name of the file the client supplied */
buffer_add (&buf, obj->name, strlen (obj->name));
buffer_add (&buf, "_name=", 6);
buffer_add (&buf, obj->filename, strlen (obj->filename) + 1);
myputenv (env, (char *) buf.data, global.var_prefix);
myputenv (env, (char *) buf.data, global.post_prefix);
buffer_reset (&buf);
}
buffer_destroy (&buf);
}
void
mime_exec (mime_var_t * obj, char *fifo)
{
int pid;
char *av[4];
char *type, *filename, *name;
char *c;
int fh;
struct sigaction new_action;
pid = fork ();
if (pid == -1)
{
empty_stdin ();
die_with_message (NULL, NULL, g_err_msg[E_SUBSHELL_FAIL]);
}
if (pid == 0)
{
/* store the content type, filename, and form name */
/* we do not use global.var_prefix because it could be lua or shell
* or something else, and we are only shell here */
if (obj->type)
{
type = xmalloc (13 + strlen (obj->type) + 1);
sprintf (type, "CONTENT_TYPE=%s", obj->type);
putenv (type);
}
if (obj->filename)
{
filename = xmalloc (9 + strlen (obj->filename) + 1);
sprintf (filename, "FILENAME=%s", obj->filename);
putenv (filename);
}
if (obj->name)
{
name = xmalloc (5 + strlen (obj->name) + 1);
sprintf (name, "NAME=%s", obj->name);
putenv (name);
}
av[0] = global.uploadhandler;
av[1] = fifo;
av[2] = NULL;
execv (av[0], av);
/* if we get here, we had a failure. Not much we can do.
* We are the child, so we can't even warn the parent */
fh = open (fifo, O_RDONLY);
while (read (fh, &c, 1))
{
}
exit (-1);
}
else
{
/* I'm parent - ignore SIGPIPE from the child */
new_action.sa_handler = SIG_IGN;
sigemptyset (&new_action.sa_mask);
new_action.sa_flags = 0;
sigaction (SIGPIPE, &new_action, NULL);
}
/* control should get to this point only in the parent.
*/
} /* end mime_exec */
void
mime_var_open_target (mime_var_t * obj)
{
char *tmpname;
token_t *curtoken;
curtoken = global.uploadlist;
int ok;
/* if upload_limit is zero, we die right here */
if (global.uploadkb == 0)
{
empty_stdin ();
die_with_message (NULL, NULL, "File uploads are not allowed.");
}
ok = -1;
tmpname = xmalloc (strlen (global.uploaddir) + 8);
strcpy (tmpname, global.uploaddir);
strcat (tmpname, "/XXXXXX");
obj->fh = mkstemp (tmpname);
if (obj->fh == -1)
{
ok = 0;
}
/* reuse the name as a fifo if we have a handler. We do this
* because tempnam uses TEMPDIR if defined, among other bugs
*/
if ((ok) && global.uploadhandler)
{
/* I have a handler */
close (obj->fh);
unlink (tmpname);
if (mkfifo (tmpname, 0600))
{
ok = 0;
}
/* you must open the fifo for reading before writing
* on non linux systems
*/
if (ok)
{
mime_exec (obj, tmpname);
obj->fh = open (tmpname, O_WRONLY);
}
if (obj->fh == -1)
ok = 0;
}
else
{
buffer_add (&(obj->value), tmpname, strlen (tmpname));
}
if (!ok)
{
empty_stdin ();
die_with_message (NULL, NULL, g_err_msg[E_FILE_OPEN_FAIL], tmpname);
}
curtoken =
push_token_on_list (curtoken, NULL, tmpname, strlen (tmpname) + 1);
if (global.uploadlist == NULL)
{
global.uploadlist = curtoken;
}
}
void
mime_var_writer (mime_var_t * obj, char *str, int len)
{
int err;
/* if not a file upload, then just a normal variable */
if (!obj->filename)
{
buffer_add (&(obj->value), str, len);
}
/* if a file upload, but don't have an open filehandle, open one */
if ((!obj->fh) && (obj->filename))
mime_var_open_target (obj);
/* if we have an open file, write the chunk */
if (obj->fh > 0)
{
err = write (obj->fh, str, len);
/* if there was an error, invert the filehandle; we need the
handle for later when we close it */
if (err == -1)
{
obj->fh = abs (obj->fh) * -1;
}
}
}
/*
* Read multipart/form-data input (RFC2388), typically used when
* uploading a file.
*/
int
rfc2388_handler (list_t * env)
{
enum mime_state_t
{ DISCARD, BOUNDARY, HEADER, CONTENT };
int state;
int i, x;
unsigned long max_len, content_length;
sliding_buffer_t sbuf;
char *crlf = "\r\n";
char *boundary;
char *str;
buffer_t buf;
mime_var_t var;
int header_continuation;
/* prevent a potential unitialized free() - ISE-TPS-2014-008 */
var.name = NULL;
/* get the boundary info */
str = getenv ("CONTENT_TYPE");
i = strlen (str) - 9;
while ((i >= 0) && (memcmp ("boundary=", str + i, 9)))
{
i--;
}
if (i == -1)
{
empty_stdin ();
die_with_message (NULL, NULL, "No Mime Boundary Information Found");
}
i = i + 9;
if (str[i] == '"')
i++;
boundary = xmalloc (strlen (str + i) + 5); /* \r\n-- + NULL */
memcpy (boundary, crlf, 2);
memcpy (boundary + 2, "--", 2);
memcpy (boundary + 4, str + i, strlen (str + i) + 1);
if ((i > 0) && (str[i - 1] == '"'))
{
while ((boundary[i]) && (boundary[i] != '"'))
i++;
boundary[i] = '\0';
}
/* Allow 2MB content, unless they have a global upload set */
max_len = ((global.uploadkb == 0) ? 2048 : global.uploadkb) *1024;
content_length = 0;
/* initialize a 128K sliding buffer */
s_buffer_init (&sbuf, 1024 * 128);
sbuf.fh = STDIN;
if (getenv ("CONTENT_LENGTH"))
{
sbuf.maxread = strtoul (getenv ("CONTENT_LENGTH"), NULL, 10);
}
/* initialize the buffer, and make sure it doesn't point to null */
haserl_buffer_init (&buf);
buffer_add (&buf, "", 1);
buffer_reset (&buf);
state = DISCARD;
str = boundary + 2; /* skip the leading crlf */
header_continuation = 0;
do
{
/* x is true if this token ends with a matchstr or is at the end of stream */
x = s_buffer_read (&sbuf, str);
content_length += sbuf.len;
if (content_length >= max_len)
{
empty_stdin ();
free (boundary);
s_buffer_destroy (&sbuf);
buffer_destroy (&buf);
if (var.name)
{
mime_var_destroy (&var);
}
die_with_message (NULL, NULL,
"Attempted to send content larger than allowed limits.");
}
switch (state)
{
case DISCARD:
/* discard any text - used for first mime boundary */
if (x)
{
state = BOUNDARY;
str = crlf;
buffer_reset (&buf); /* reinitializes the buffer */
}
break;
case BOUNDARY:
if (!x)
{
buffer_add (&buf, sbuf.segment, sbuf.len);
}
if (x)
{
buffer_add (&buf, sbuf.segment, sbuf.len);
if (!memcmp (buf.data, boundary + 2, 2))
{ /* "--" */
/* all done... what does that mean? */
str = boundary + 2;
state = DISCARD;
}
else
{
buffer_reset (&buf);
mime_var_init (&var);
state = HEADER;
header_continuation = 0;
str = crlf;
}
}
break;
case HEADER:
buffer_add (&buf, sbuf.segment, sbuf.len);
if (x)
{
if (sbuf.len == 0 && header_continuation == 0)
{ /* blank line */
buffer_reset (&buf);
state = CONTENT;
str = boundary;
}
else
{
buffer_add (&buf, "", 1);
mime_tag_add (&var, (char *) buf.data);
buffer_reset (&buf);
}
header_continuation = 0;
}
else
{
// expect more data
header_continuation = 1;
}
break;
case CONTENT:
/* write to writer process, regardless */
mime_var_writer (&var, (char *) sbuf.segment, sbuf.len);
if (x)
{
buffer_reset (&buf);
mime_var_putenv (env, &var);
mime_var_destroy (&var);
state = BOUNDARY;
str = crlf;
}
break;
} /* end switch */
}
while (!sbuf.eof);
free (boundary);
s_buffer_destroy (&sbuf);
buffer_destroy (&buf);
return (0);
}
haserl-0.9.35/src/sliding_buffer.c 0000644 0001750 0001750 00000010606 12470207650 016303 0 ustar nangel nangel /* --------------------------------------------------------------------------
* Copyright 2003-2014 (inclusive) Nathan Angelacos
* (nangel@users.sourceforge.net)
*
* This file is part of haserl.
*
* Haserl is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2,
* as published by the Free Software Foundation.
*
* Haserl 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 General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with haserl. If not, see .
*
* ------------------------------------------------------------------------ */
#if HAVE_CONFIG_H
#include
#endif
#include
#include
#include
#include
#include
#include
#include
#include "sliding_buffer.h"
#include "h_error.h"
/*
* initialize a sliding buffer structure
*/
int
s_buffer_init (sliding_buffer_t * sbuf, int size)
{
sbuf->maxsize = size;
sbuf->buf = malloc (sbuf->maxsize);
/* reduce maxsize by one, so that you can add a NULL to the end of any
returned token and not have a memory overwrite */
sbuf->maxsize -= 1;
sbuf->fh = 0; /* use stdin by default */
sbuf->eof = 0;
sbuf->len = 0;
sbuf->ptr = sbuf->buf;
sbuf->bufsize = 0;
sbuf->maxread = 0;
sbuf->nrread = 0;
return (sbuf->buf != NULL); /* return true if the alloc succeeded */
}
/*
* destroy a sliding buffer structure
*/
void
s_buffer_destroy (sliding_buffer_t * sbuf)
{
free (sbuf->buf);
}
/*
* read the next segment from a sliding buffer. returns !=0 if the
* segment ends at a matchstr token, or if we are at the end of the string
* returns 0 if the segment does not end
*/
int
s_buffer_read (sliding_buffer_t * sbuf, char *matchstr)
{
int len, pos;
int r;
/*
* if eof and ptr ran off the buffer, then we are done
*/
if ((sbuf->eof) && (sbuf->ptr > sbuf->buf))
{
return 0;
}
/*
* if need to fill the buffer, do so
*/
if ((sbuf->bufsize == 0) ||
(sbuf->ptr >= (sbuf->buf + sbuf->bufsize - strlen (matchstr))))
{
len = sbuf->bufsize - (sbuf->ptr - sbuf->buf);
if (len)
{
memmove (sbuf->buf, sbuf->ptr, len);
}
sbuf->ptr = sbuf->buf;
sbuf->bufsize = len;
/* if the filedescriptor is invalid, we are obviously
* at an end of file condition.
*/
if (fcntl (sbuf->fh, F_GETFL) == -1)
{
r = 0;
}
else
{
size_t n = sbuf->maxsize - len;
if (sbuf->maxread && sbuf->maxread < sbuf->nrread + n)
n = sbuf->maxread - sbuf->nrread;
r = read (sbuf->fh, sbuf->buf + len, n);
}
/*
* only report eof when we've done a read of 0.
*/
if (r == 0 || (r < 0 && errno != EINTR))
{
sbuf->eof = -1;
}
else
{
sbuf->bufsize += (r > 0) ? r : 0;
sbuf->nrread += (r > 0) ? r : 0;
}
}
/*
* look for the matchstr
*/
pos = 0;
len = sbuf->bufsize - (int) (sbuf->ptr - sbuf->buf) - strlen (matchstr);
/* a malicious client can send a matchstr longer than the actual content body
do not allow reads beyond the buffer limits
*/
len = ( len < 0 ) ? 0 : len;
/* if have a matchstr, look for it, otherwise return the chunk */
if ( strlen(matchstr) > 0 ) {
while (memcmp (matchstr, sbuf->ptr + pos, strlen (matchstr)) && (pos < len))
{
pos++;
}
/*
* if we found it
*/
if (pos < len)
{
sbuf->len = pos;
sbuf->segment = sbuf->ptr;
sbuf->ptr = sbuf->segment + pos + strlen (matchstr);
return -1;
}
if (sbuf->eof)
{
len += strlen (matchstr);
}
}
/*
* ran off the end, didn't find the matchstr
*/
sbuf->segment = sbuf->ptr;
sbuf->len = len;
sbuf->ptr += sbuf->len;
return (sbuf->eof) ? (-1) : (0);
}
#ifdef TEST_FRAMEWORK
main ()
{
int x;
sliding_buffer_t sb;
char foo[200];
s_buffer_init (&sb, 32);
do
{
x = s_buffer_read (&sb, "&");
sprintf (foo, "%03d- %03d - %03d", x, sb.eof, sb.len);
write (1, foo, strlen (foo));
write (1, sb.segment, sb.len);
write (1, "\n", 1);
}
while ((!sb.eof));
s_buffer_destroy (&sb);
}
#endif
haserl-0.9.35/missing 0000755 0001750 0001750 00000015330 12452711736 013771 0 ustar nangel nangel #! /bin/sh
# Common wrapper for a few potentially missing GNU programs.
scriptversion=2013-10-28.13; # UTC
# Copyright (C) 1996-2014 Free Software Foundation, Inc.
# Originally written by Fran,cois Pinard , 1996.
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
# This program 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 General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program. If not, see .
# As a special exception to the GNU General Public License, if you
# distribute this file as part of a program that contains a
# configuration script generated by Autoconf, you may include it under
# the same distribution terms that you use for the rest of that program.
if test $# -eq 0; then
echo 1>&2 "Try '$0 --help' for more information"
exit 1
fi
case $1 in
--is-lightweight)
# Used by our autoconf macros to check whether the available missing
# script is modern enough.
exit 0
;;
--run)
# Back-compat with the calling convention used by older automake.
shift
;;
-h|--h|--he|--hel|--help)
echo "\
$0 [OPTION]... PROGRAM [ARGUMENT]...
Run 'PROGRAM [ARGUMENT]...', returning a proper advice when this fails due
to PROGRAM being missing or too old.
Options:
-h, --help display this help and exit
-v, --version output version information and exit
Supported PROGRAM values:
aclocal autoconf autoheader autom4te automake makeinfo
bison yacc flex lex help2man
Version suffixes to PROGRAM as well as the prefixes 'gnu-', 'gnu', and
'g' are ignored when checking the name.
Send bug reports to ."
exit $?
;;
-v|--v|--ve|--ver|--vers|--versi|--versio|--version)
echo "missing $scriptversion (GNU Automake)"
exit $?
;;
-*)
echo 1>&2 "$0: unknown '$1' option"
echo 1>&2 "Try '$0 --help' for more information"
exit 1
;;
esac
# Run the given program, remember its exit status.
"$@"; st=$?
# If it succeeded, we are done.
test $st -eq 0 && exit 0
# Also exit now if we it failed (or wasn't found), and '--version' was
# passed; such an option is passed most likely to detect whether the
# program is present and works.
case $2 in --version|--help) exit $st;; esac
# Exit code 63 means version mismatch. This often happens when the user
# tries to use an ancient version of a tool on a file that requires a
# minimum version.
if test $st -eq 63; then
msg="probably too old"
elif test $st -eq 127; then
# Program was missing.
msg="missing on your system"
else
# Program was found and executed, but failed. Give up.
exit $st
fi
perl_URL=http://www.perl.org/
flex_URL=http://flex.sourceforge.net/
gnu_software_URL=http://www.gnu.org/software
program_details ()
{
case $1 in
aclocal|automake)
echo "The '$1' program is part of the GNU Automake package:"
echo "<$gnu_software_URL/automake>"
echo "It also requires GNU Autoconf, GNU m4 and Perl in order to run:"
echo "<$gnu_software_URL/autoconf>"
echo "<$gnu_software_URL/m4/>"
echo "<$perl_URL>"
;;
autoconf|autom4te|autoheader)
echo "The '$1' program is part of the GNU Autoconf package:"
echo "<$gnu_software_URL/autoconf/>"
echo "It also requires GNU m4 and Perl in order to run:"
echo "<$gnu_software_URL/m4/>"
echo "<$perl_URL>"
;;
esac
}
give_advice ()
{
# Normalize program name to check for.
normalized_program=`echo "$1" | sed '
s/^gnu-//; t
s/^gnu//; t
s/^g//; t'`
printf '%s\n' "'$1' is $msg."
configure_deps="'configure.ac' or m4 files included by 'configure.ac'"
case $normalized_program in
autoconf*)
echo "You should only need it if you modified 'configure.ac',"
echo "or m4 files included by it."
program_details 'autoconf'
;;
autoheader*)
echo "You should only need it if you modified 'acconfig.h' or"
echo "$configure_deps."
program_details 'autoheader'
;;
automake*)
echo "You should only need it if you modified 'Makefile.am' or"
echo "$configure_deps."
program_details 'automake'
;;
aclocal*)
echo "You should only need it if you modified 'acinclude.m4' or"
echo "$configure_deps."
program_details 'aclocal'
;;
autom4te*)
echo "You might have modified some maintainer files that require"
echo "the 'autom4te' program to be rebuilt."
program_details 'autom4te'
;;
bison*|yacc*)
echo "You should only need it if you modified a '.y' file."
echo "You may want to install the GNU Bison package:"
echo "<$gnu_software_URL/bison/>"
;;
lex*|flex*)
echo "You should only need it if you modified a '.l' file."
echo "You may want to install the Fast Lexical Analyzer package:"
echo "<$flex_URL>"
;;
help2man*)
echo "You should only need it if you modified a dependency" \
"of a man page."
echo "You may want to install the GNU Help2man package:"
echo "<$gnu_software_URL/help2man/>"
;;
makeinfo*)
echo "You should only need it if you modified a '.texi' file, or"
echo "any other file indirectly affecting the aspect of the manual."
echo "You might want to install the Texinfo package:"
echo "<$gnu_software_URL/texinfo/>"
echo "The spurious makeinfo call might also be the consequence of"
echo "using a buggy 'make' (AIX, DU, IRIX), in which case you might"
echo "want to install GNU make:"
echo "<$gnu_software_URL/make/>"
;;
*)
echo "You might have modified some files without having the proper"
echo "tools for further handling them. Check the 'README' file, it"
echo "often tells you about the needed prerequisites for installing"
echo "this package. You may also peek at any GNU archive site, in"
echo "case some other package contains this missing '$1' program."
;;
esac
}
give_advice "$1" | sed -e '1s/^/WARNING: /' \
-e '2,$s/^/ /' >&2
# Propagate the correct exit status (expected to be 127 for a program
# not found, 63 for a program that failed due to version mismatch).
exit $st
# Local variables:
# eval: (add-hook 'write-file-hooks 'time-stamp)
# time-stamp-start: "scriptversion="
# time-stamp-format: "%:y-%02m-%02d.%02H"
# time-stamp-time-zone: "UTC"
# time-stamp-end: "; # UTC"
# End:
haserl-0.9.35/install-sh 0000755 0001750 0001750 00000034523 12452711735 014402 0 ustar nangel nangel #!/bin/sh
# install - install a program, script, or datafile
scriptversion=2013-12-25.23; # UTC
# This originates from X11R5 (mit/util/scripts/install.sh), which was
# later released in X11R6 (xc/config/util/install.sh) with the
# following copyright and license.
#
# Copyright (C) 1994 X Consortium
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to
# deal in the Software without restriction, including without limitation the
# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
# sell copies of the Software, and to permit persons to whom the Software is
# furnished to do so, subject to the following conditions:
#
# The above copyright notice and this permission notice shall be included in
# all copies or substantial portions of the Software.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
# X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
# AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC-
# TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
#
# Except as contained in this notice, the name of the X Consortium shall not
# be used in advertising or otherwise to promote the sale, use or other deal-
# ings in this Software without prior written authorization from the X Consor-
# tium.
#
#
# FSF changes to this file are in the public domain.
#
# Calling this script install-sh is preferred over install.sh, to prevent
# 'make' implicit rules from creating a file called install from it
# when there is no Makefile.
#
# This script is compatible with the BSD install script, but was written
# from scratch.
tab=' '
nl='
'
IFS=" $tab$nl"
# Set DOITPROG to "echo" to test this script.
doit=${DOITPROG-}
doit_exec=${doit:-exec}
# Put in absolute file names if you don't have them in your path;
# or use environment vars.
chgrpprog=${CHGRPPROG-chgrp}
chmodprog=${CHMODPROG-chmod}
chownprog=${CHOWNPROG-chown}
cmpprog=${CMPPROG-cmp}
cpprog=${CPPROG-cp}
mkdirprog=${MKDIRPROG-mkdir}
mvprog=${MVPROG-mv}
rmprog=${RMPROG-rm}
stripprog=${STRIPPROG-strip}
posix_mkdir=
# Desired mode of installed file.
mode=0755
chgrpcmd=
chmodcmd=$chmodprog
chowncmd=
mvcmd=$mvprog
rmcmd="$rmprog -f"
stripcmd=
src=
dst=
dir_arg=
dst_arg=
copy_on_change=false
is_target_a_directory=possibly
usage="\
Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE
or: $0 [OPTION]... SRCFILES... DIRECTORY
or: $0 [OPTION]... -t DIRECTORY SRCFILES...
or: $0 [OPTION]... -d DIRECTORIES...
In the 1st form, copy SRCFILE to DSTFILE.
In the 2nd and 3rd, copy all SRCFILES to DIRECTORY.
In the 4th, create DIRECTORIES.
Options:
--help display this help and exit.
--version display version info and exit.
-c (ignored)
-C install only if different (preserve the last data modification time)
-d create directories instead of installing files.
-g GROUP $chgrpprog installed files to GROUP.
-m MODE $chmodprog installed files to MODE.
-o USER $chownprog installed files to USER.
-s $stripprog installed files.
-t DIRECTORY install into DIRECTORY.
-T report an error if DSTFILE is a directory.
Environment variables override the default commands:
CHGRPPROG CHMODPROG CHOWNPROG CMPPROG CPPROG MKDIRPROG MVPROG
RMPROG STRIPPROG
"
while test $# -ne 0; do
case $1 in
-c) ;;
-C) copy_on_change=true;;
-d) dir_arg=true;;
-g) chgrpcmd="$chgrpprog $2"
shift;;
--help) echo "$usage"; exit $?;;
-m) mode=$2
case $mode in
*' '* | *"$tab"* | *"$nl"* | *'*'* | *'?'* | *'['*)
echo "$0: invalid mode: $mode" >&2
exit 1;;
esac
shift;;
-o) chowncmd="$chownprog $2"
shift;;
-s) stripcmd=$stripprog;;
-t)
is_target_a_directory=always
dst_arg=$2
# Protect names problematic for 'test' and other utilities.
case $dst_arg in
-* | [=\(\)!]) dst_arg=./$dst_arg;;
esac
shift;;
-T) is_target_a_directory=never;;
--version) echo "$0 $scriptversion"; exit $?;;
--) shift
break;;
-*) echo "$0: invalid option: $1" >&2
exit 1;;
*) break;;
esac
shift
done
# We allow the use of options -d and -T together, by making -d
# take the precedence; this is for compatibility with GNU install.
if test -n "$dir_arg"; then
if test -n "$dst_arg"; then
echo "$0: target directory not allowed when installing a directory." >&2
exit 1
fi
fi
if test $# -ne 0 && test -z "$dir_arg$dst_arg"; then
# When -d is used, all remaining arguments are directories to create.
# When -t is used, the destination is already specified.
# Otherwise, the last argument is the destination. Remove it from $@.
for arg
do
if test -n "$dst_arg"; then
# $@ is not empty: it contains at least $arg.
set fnord "$@" "$dst_arg"
shift # fnord
fi
shift # arg
dst_arg=$arg
# Protect names problematic for 'test' and other utilities.
case $dst_arg in
-* | [=\(\)!]) dst_arg=./$dst_arg;;
esac
done
fi
if test $# -eq 0; then
if test -z "$dir_arg"; then
echo "$0: no input file specified." >&2
exit 1
fi
# It's OK to call 'install-sh -d' without argument.
# This can happen when creating conditional directories.
exit 0
fi
if test -z "$dir_arg"; then
if test $# -gt 1 || test "$is_target_a_directory" = always; then
if test ! -d "$dst_arg"; then
echo "$0: $dst_arg: Is not a directory." >&2
exit 1
fi
fi
fi
if test -z "$dir_arg"; then
do_exit='(exit $ret); exit $ret'
trap "ret=129; $do_exit" 1
trap "ret=130; $do_exit" 2
trap "ret=141; $do_exit" 13
trap "ret=143; $do_exit" 15
# Set umask so as not to create temps with too-generous modes.
# However, 'strip' requires both read and write access to temps.
case $mode in
# Optimize common cases.
*644) cp_umask=133;;
*755) cp_umask=22;;
*[0-7])
if test -z "$stripcmd"; then
u_plus_rw=
else
u_plus_rw='% 200'
fi
cp_umask=`expr '(' 777 - $mode % 1000 ')' $u_plus_rw`;;
*)
if test -z "$stripcmd"; then
u_plus_rw=
else
u_plus_rw=,u+rw
fi
cp_umask=$mode$u_plus_rw;;
esac
fi
for src
do
# Protect names problematic for 'test' and other utilities.
case $src in
-* | [=\(\)!]) src=./$src;;
esac
if test -n "$dir_arg"; then
dst=$src
dstdir=$dst
test -d "$dstdir"
dstdir_status=$?
else
# Waiting for this to be detected by the "$cpprog $src $dsttmp" command
# might cause directories to be created, which would be especially bad
# if $src (and thus $dsttmp) contains '*'.
if test ! -f "$src" && test ! -d "$src"; then
echo "$0: $src does not exist." >&2
exit 1
fi
if test -z "$dst_arg"; then
echo "$0: no destination specified." >&2
exit 1
fi
dst=$dst_arg
# If destination is a directory, append the input filename; won't work
# if double slashes aren't ignored.
if test -d "$dst"; then
if test "$is_target_a_directory" = never; then
echo "$0: $dst_arg: Is a directory" >&2
exit 1
fi
dstdir=$dst
dst=$dstdir/`basename "$src"`
dstdir_status=0
else
dstdir=`dirname "$dst"`
test -d "$dstdir"
dstdir_status=$?
fi
fi
obsolete_mkdir_used=false
if test $dstdir_status != 0; then
case $posix_mkdir in
'')
# Create intermediate dirs using mode 755 as modified by the umask.
# This is like FreeBSD 'install' as of 1997-10-28.
umask=`umask`
case $stripcmd.$umask in
# Optimize common cases.
*[2367][2367]) mkdir_umask=$umask;;
.*0[02][02] | .[02][02] | .[02]) mkdir_umask=22;;
*[0-7])
mkdir_umask=`expr $umask + 22 \
- $umask % 100 % 40 + $umask % 20 \
- $umask % 10 % 4 + $umask % 2
`;;
*) mkdir_umask=$umask,go-w;;
esac
# With -d, create the new directory with the user-specified mode.
# Otherwise, rely on $mkdir_umask.
if test -n "$dir_arg"; then
mkdir_mode=-m$mode
else
mkdir_mode=
fi
posix_mkdir=false
case $umask in
*[123567][0-7][0-7])
# POSIX mkdir -p sets u+wx bits regardless of umask, which
# is incompatible with FreeBSD 'install' when (umask & 300) != 0.
;;
*)
tmpdir=${TMPDIR-/tmp}/ins$RANDOM-$$
trap 'ret=$?; rmdir "$tmpdir/d" "$tmpdir" 2>/dev/null; exit $ret' 0
if (umask $mkdir_umask &&
exec $mkdirprog $mkdir_mode -p -- "$tmpdir/d") >/dev/null 2>&1
then
if test -z "$dir_arg" || {
# Check for POSIX incompatibilities with -m.
# HP-UX 11.23 and IRIX 6.5 mkdir -m -p sets group- or
# other-writable bit of parent directory when it shouldn't.
# FreeBSD 6.1 mkdir -m -p sets mode of existing directory.
ls_ld_tmpdir=`ls -ld "$tmpdir"`
case $ls_ld_tmpdir in
d????-?r-*) different_mode=700;;
d????-?--*) different_mode=755;;
*) false;;
esac &&
$mkdirprog -m$different_mode -p -- "$tmpdir" && {
ls_ld_tmpdir_1=`ls -ld "$tmpdir"`
test "$ls_ld_tmpdir" = "$ls_ld_tmpdir_1"
}
}
then posix_mkdir=:
fi
rmdir "$tmpdir/d" "$tmpdir"
else
# Remove any dirs left behind by ancient mkdir implementations.
rmdir ./$mkdir_mode ./-p ./-- 2>/dev/null
fi
trap '' 0;;
esac;;
esac
if
$posix_mkdir && (
umask $mkdir_umask &&
$doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir"
)
then :
else
# The umask is ridiculous, or mkdir does not conform to POSIX,
# or it failed possibly due to a race condition. Create the
# directory the slow way, step by step, checking for races as we go.
case $dstdir in
/*) prefix='/';;
[-=\(\)!]*) prefix='./';;
*) prefix='';;
esac
oIFS=$IFS
IFS=/
set -f
set fnord $dstdir
shift
set +f
IFS=$oIFS
prefixes=
for d
do
test X"$d" = X && continue
prefix=$prefix$d
if test -d "$prefix"; then
prefixes=
else
if $posix_mkdir; then
(umask=$mkdir_umask &&
$doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir") && break
# Don't fail if two instances are running concurrently.
test -d "$prefix" || exit 1
else
case $prefix in
*\'*) qprefix=`echo "$prefix" | sed "s/'/'\\\\\\\\''/g"`;;
*) qprefix=$prefix;;
esac
prefixes="$prefixes '$qprefix'"
fi
fi
prefix=$prefix/
done
if test -n "$prefixes"; then
# Don't fail if two instances are running concurrently.
(umask $mkdir_umask &&
eval "\$doit_exec \$mkdirprog $prefixes") ||
test -d "$dstdir" || exit 1
obsolete_mkdir_used=true
fi
fi
fi
if test -n "$dir_arg"; then
{ test -z "$chowncmd" || $doit $chowncmd "$dst"; } &&
{ test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } &&
{ test "$obsolete_mkdir_used$chowncmd$chgrpcmd" = false ||
test -z "$chmodcmd" || $doit $chmodcmd $mode "$dst"; } || exit 1
else
# Make a couple of temp file names in the proper directory.
dsttmp=$dstdir/_inst.$$_
rmtmp=$dstdir/_rm.$$_
# Trap to clean up those temp files at exit.
trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0
# Copy the file name to the temp name.
(umask $cp_umask && $doit_exec $cpprog "$src" "$dsttmp") &&
# and set any options; do chmod last to preserve setuid bits.
#
# If any of these fail, we abort the whole thing. If we want to
# ignore errors from any of these, just make sure not to ignore
# errors from the above "$doit $cpprog $src $dsttmp" command.
#
{ test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } &&
{ test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } &&
{ test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } &&
{ test -z "$chmodcmd" || $doit $chmodcmd $mode "$dsttmp"; } &&
# If -C, don't bother to copy if it wouldn't change the file.
if $copy_on_change &&
old=`LC_ALL=C ls -dlL "$dst" 2>/dev/null` &&
new=`LC_ALL=C ls -dlL "$dsttmp" 2>/dev/null` &&
set -f &&
set X $old && old=:$2:$4:$5:$6 &&
set X $new && new=:$2:$4:$5:$6 &&
set +f &&
test "$old" = "$new" &&
$cmpprog "$dst" "$dsttmp" >/dev/null 2>&1
then
rm -f "$dsttmp"
else
# Rename the file to the real destination.
$doit $mvcmd -f "$dsttmp" "$dst" 2>/dev/null ||
# The rename failed, perhaps because mv can't rename something else
# to itself, or perhaps because mv is so ancient that it does not
# support -f.
{
# Now remove or move aside any old file at destination location.
# We try this two ways since rm can't unlink itself on some
# systems and the destination file might be busy for other
# reasons. In this case, the final cleanup might fail but the new
# file should still install successfully.
{
test ! -f "$dst" ||
$doit $rmcmd -f "$dst" 2>/dev/null ||
{ $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null &&
{ $doit $rmcmd -f "$rmtmp" 2>/dev/null; :; }
} ||
{ echo "$0: cannot unlink or rename $dst" >&2
(exit 1); exit 1
}
} &&
# Now rename the file to the real destination.
$doit $mvcmd "$dsttmp" "$dst"
}
fi || exit 1
trap '' 0
fi
done
# Local variables:
# eval: (add-hook 'write-file-hooks 'time-stamp)
# time-stamp-start: "scriptversion="
# time-stamp-format: "%:y-%02m-%02d.%02H"
# time-stamp-time-zone: "UTC"
# time-stamp-end: "; # UTC"
# End: