/packages/httpd22/src/util_script.inc
https://github.com/slibre/freepascal · Pascal · 140 lines · 31 code · 13 blank · 96 comment · 0 complexity · e806f8014038ab1f0ae4c20a9754e25a MD5 · raw file
- { Licensed to the Apache Software Foundation (ASF) under one or more
- * contributor license agreements. See the NOTICE file distributed with
- * this work for additional information regarding copyright ownership.
- * The ASF licenses this file to You under the Apache License, Version 2.0
- * (the "License"); you may not use this file except in compliance with
- * the License. You may obtain a copy of the License at
- *
- * http://www.apache.org/licenses/LICENSE-2.0
- *
- * Unless required by applicable law or agreed to in writing, software
- * distributed under the License is distributed on an "AS IS" BASIS,
- * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
- * See the License for the specific language governing permissions and
- * limitations under the License.
- }
- //#include "apr_buckets.h"
- {
- * @package Apache script tools
- }
- const
- APACHE_ARG_MAX = 512;
- {
- * Create an environment variable out of an Apache table of key-value pairs
- * @param p pool to allocate out of
- * @param t Apache table of key-value pairs
- * @return An array containing the same key-value pairs suitable for
- * use with an exec call.
- * @deffunc char **ap_create_environment(apr_pool_t *p, apr_table_t *t)
- }
- function ap_create_environment(p: Papr_pool_t; t: Papr_table_t): PPChar;
- {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
- external LibHTTPD name LibNamePrefix + 'ap_create_environment' + LibSuff8;
- {
- * This "cute" little function comes about because the path info on
- * filenames and URLs aren't always the same. So we take the two,
- * and find as much of the two that match as possible.
- * @param uri The uri we are currently parsing
- * @param path_info The current path info
- * @return The length of the path info
- * @deffunc int ap_find_path_info(const char *uri, const char *path_info)
- }
- function ap_find_path_info(const uri, path_info: PChar): Integer;
- {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
- external LibHTTPD name LibNamePrefix + 'ap_find_path_info' + LibSuff8;
- {
- * Add CGI environment variables required by HTTP/1.1 to the request's
- * environment table
- * @param r the current request
- * @deffunc void ap_add_cgi_vars(request_rec *r)
- }
- procedure ap_add_cgi_vars(r: Prequest_rec);
- {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
- external LibHTTPD name LibNamePrefix + 'ap_add_cgi_vars' + LibSuff4;
- {
- * Add common CGI environment variables to the requests environment table
- * @param r The current request
- * @deffunc void ap_add_common_vars(request_rec *r)
- }
- procedure ap_add_common_vars(r: Prequest_rec);
- {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
- external LibHTTPD name LibNamePrefix + 'ap_add_common_vars' + LibSuff4;
- {
- * Read headers output from a script, ensuring that the output is valid. If
- * the output is valid, then the headers are added to the headers out of the
- * current request
- * @param r The current request
- * @param f The file to read from
- * @param buffer Empty when calling the function. On output, if there was an
- * error, the string that cause the error is stored here.
- * @return HTTP_OK on success, HTTP_INTERNAL_SERVER_ERROR otherwise
- * @deffunc int ap_scan_script_header_err(request_rec *r, apr_file_t *f, char *buffer)
- }
- function ap_scan_script_header_err(r: Prequest_rec;
- f: Papr_file_t; buffer: PChar): Integer;
- {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
- external LibHTTPD name LibNamePrefix + 'ap_scan_script_header_err' + LibSuff12;
- {
- * Read headers output from a script, ensuring that the output is valid. If
- * the output is valid, then the headers are added to the headers out of the
- * current request
- * @param r The current request
- * @param bb The brigade from which to read
- * @param buffer Empty when calling the function. On output, if there was an
- * error, the string that cause the error is stored here.
- * @return HTTP_OK on success, HTTP_INTERNAL_SERVER_ERROR otherwise
- * @deffunc int ap_scan_script_header_err_brigade(request_rec *r, apr_bucket_brigade *bb, char *buffer)
- }
- function ap_scan_script_header_err_brigade(r: Prequest_rec;
- bb: Papr_bucket_brigade; buffer: PChar): Integer;
- {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
- external LibHTTPD name LibNamePrefix + 'ap_scan_script_header_err_brigade' + LibSuff12;
- {
- * Read headers strings from a script, ensuring that the output is valid. If
- * the output is valid, then the headers are added to the headers out of the
- * current request
- * @param r The current request
- * @param buffer Empty when calling the function. On output, if there was an
- * error, the string that cause the error is stored here.
- * @param termch Pointer to the last character parsed.
- * @param termarg Pointer to an int to capture the last argument parsed.
- * @param args String arguments to parse consecutively for headers,
- * a NULL argument terminates the list.
- * @return HTTP_OK on success, HTTP_INTERNAL_SERVER_ERROR otherwise
- * @deffunc int ap_scan_script_header_err_core(request_rec *r, char *buffer, int (*getsfunc)(char *, int, void *), void *getsfunc_data)
- }
- function ap_scan_script_header_err_strs(buffer: PChar;
- termch: PPChar; termarg: PInteger; others: array of const): Integer;
- cdecl; external LibHTTPD name 'ap_scan_script_header_err_strs';
- {
- * Read headers output from a script, ensuring that the output is valid. If
- * the output is valid, then the headers are added to the headers out of the
- * current request
- * @param r The current request
- * @param buffer Empty when calling the function. On output, if there was an
- * error, the string that cause the error is stored here.
- * @param getsfunc Function to read the headers from. This function should
- act like gets()
- * @param getsfunc_data The place to read from
- * @return HTTP_OK on success, HTTP_INTERNAL_SERVER_ERROR otherwise
- * @deffunc int ap_scan_script_header_err_core(request_rec *r, char *buffer, int (*getsfunc)(char *, int, void *), void *getsfunc_data)
- }
- type
- getsfunc_t = function(p1: PChar; p2: Integer; p3: Pointer): Integer;
-
- function ap_scan_script_header_err_core(r: Prequest_rec;
- buffer: PChar; getsfunc: getsfunc_t; getsfunc_data: Pointer): Integer;
- {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
- external LibHTTPD name LibNamePrefix + 'ap_scan_script_header_err_core' + LibSuff16;