Gecko [ www.foryou-vip.com ]

Name	Size	Permission	Date
.libs	[ DIR ]	drwxr-xr-x	2024-03-12 14:32
html_tables	[ DIR ]	drwxrwxr-x	2022-10-31 11:36
tests	[ DIR ]	drwxrwxr-x	2022-10-31 11:36
Makefile.frag	518 B	-rw-rw-r--	2022-10-31 11:36
Makefile.frag.w32	484 B	-rw-rw-r--	2022-10-31 11:36
array.c	180.31 KB	-rw-rw-r--	2022-10-31 11:36
array.lo	319 B	-rw-r--r--	2024-03-12 14:30
array.o	899.66 KB	-rw-r--r--	2024-03-12 14:30
assert.c	11.06 KB	-rw-rw-r--	2022-10-31 11:36
assert.lo	322 B	-rw-r--r--	2024-03-12 14:31
assert.o	160.11 KB	-rw-r--r--	2024-03-12 14:31
base64.c	30.69 KB	-rw-rw-r--	2022-10-31 11:36
base64.h	3.8 KB	-rw-rw-r--	2022-10-31 11:36
base64.lo	322 B	-rw-r--r--	2024-03-12 14:30
base64.o	87.38 KB	-rw-r--r--	2024-03-12 14:30
basic_functions.c	169.92 KB	-rw-rw-r--	2022-10-31 11:36
basic_functions.h	7.71 KB	-rw-rw-r--	2022-10-31 11:36
basic_functions.lo	349 B	-rw-r--r--	2024-03-12 14:30
basic_functions.o	928.72 KB	-rw-r--r--	2024-03-12 14:30
browscap.c	20.87 KB	-rw-rw-r--	2022-10-31 11:36
browscap.lo	328 B	-rw-r--r--	2024-03-12 14:30
browscap.o	144.24 KB	-rw-r--r--	2024-03-12 14:30
config.m4	12.06 KB	-rw-rw-r--	2022-10-31 11:36
config.w32	1.79 KB	-rw-rw-r--	2022-10-31 11:36
crc32.c	2.78 KB	-rw-rw-r--	2022-10-31 11:36
crc32.h	4.64 KB	-rw-rw-r--	2022-10-31 11:36
crc32.lo	319 B	-rw-r--r--	2024-03-12 14:30
crc32.o	78.52 KB	-rw-r--r--	2024-03-12 14:30
credits.c	5.86 KB	-rw-rw-r--	2022-10-31 11:36
credits.h	1.67 KB	-rw-rw-r--	2022-10-31 11:36
credits.lo	325 B	-rw-r--r--	2024-03-12 14:31
credits.o	112.09 KB	-rw-r--r--	2024-03-12 14:31
credits_ext.h	5.25 KB	-rw-rw-r--	2022-10-31 11:36
credits_sapi.h	835 B	-rw-rw-r--	2022-10-31 11:36
crypt.c	8.2 KB	-rw-rw-r--	2022-10-31 11:36
crypt.lo	319 B	-rw-r--r--	2024-03-12 14:30
crypt.o	94.56 KB	-rw-r--r--	2024-03-12 14:30
crypt_blowfish.c	31.67 KB	-rw-rw-r--	2022-10-31 11:36
crypt_blowfish.h	1.01 KB	-rw-rw-r--	2022-10-31 11:36
crypt_blowfish.lo	346 B	-rw-r--r--	2024-03-12 14:30
crypt_blowfish.o	70.52 KB	-rw-r--r--	2024-03-12 14:30
crypt_freesec.c	21.67 KB	-rw-rw-r--	2022-10-31 11:36
crypt_freesec.h	662 B	-rw-rw-r--	2022-10-31 11:36
crypt_freesec.lo	343 B	-rw-r--r--	2024-03-12 14:30
crypt_freesec.o	30.79 KB	-rw-r--r--	2024-03-12 14:30
crypt_sha256.c	21.56 KB	-rw-rw-r--	2022-10-31 11:36
crypt_sha256.lo	340 B	-rw-r--r--	2024-03-12 14:30
crypt_sha256.o	105.59 KB	-rw-r--r--	2024-03-12 14:30
crypt_sha512.c	26.21 KB	-rw-rw-r--	2022-10-31 11:36
crypt_sha512.lo	340 B	-rw-r--r--	2024-03-12 14:30
crypt_sha512.o	109.91 KB	-rw-r--r--	2024-03-12 14:30
css.c	2.39 KB	-rw-rw-r--	2022-10-31 11:36
css.h	1.19 KB	-rw-rw-r--	2022-10-31 11:36
css.lo	313 B	-rw-r--r--	2024-03-12 14:31
css.o	74.53 KB	-rw-r--r--	2024-03-12 14:31
cyr_convert.c	11.42 KB	-rw-rw-r--	2022-10-31 11:36
cyr_convert.h	1.22 KB	-rw-rw-r--	2022-10-31 11:36
cyr_convert.lo	337 B	-rw-r--r--	2024-03-12 14:30
cyr_convert.o	85.68 KB	-rw-r--r--	2024-03-12 14:30
datetime.c	3.48 KB	-rw-rw-r--	2022-10-31 11:36
datetime.h	1.34 KB	-rw-rw-r--	2022-10-31 11:36
datetime.lo	328 B	-rw-r--r--	2024-03-12 14:30
datetime.o	81.48 KB	-rw-r--r--	2024-03-12 14:30
dir.c	14.9 KB	-rw-rw-r--	2022-10-31 11:36
dir.lo	313 B	-rw-r--r--	2024-03-12 14:30
dir.o	147.7 KB	-rw-r--r--	2024-03-12 14:30
dl.c	8.11 KB	-rw-rw-r--	2022-10-31 11:36
dl.h	1.59 KB	-rw-rw-r--	2022-10-31 11:36
dl.lo	310 B	-rw-r--r--	2024-03-12 14:30
dl.o	106.3 KB	-rw-r--r--	2024-03-12 14:30
dns.c	28.95 KB	-rw-rw-r--	2022-10-31 11:36
dns.lo	313 B	-rw-r--r--	2024-03-12 14:30
dns.o	186.35 KB	-rw-r--r--	2024-03-12 14:30
dns_win32.c	15.22 KB	-rw-rw-r--	2022-10-31 11:36
exec.c	13.49 KB	-rw-rw-r--	2022-10-31 11:36
exec.h	1.68 KB	-rw-rw-r--	2022-10-31 11:36
exec.lo	316 B	-rw-r--r--	2024-03-12 14:30
exec.o	147.67 KB	-rw-r--r--	2024-03-12 14:30
file.c	68.02 KB	-rw-rw-r--	2022-10-31 11:36
file.h	4.63 KB	-rw-rw-r--	2022-10-31 11:36
file.lo	316 B	-rw-r--r--	2024-03-12 14:30
file.o	448.2 KB	-rw-r--r--	2024-03-12 14:30
filestat.c	30.34 KB	-rw-rw-r--	2022-10-31 11:36
filestat.lo	328 B	-rw-r--r--	2024-03-12 14:30
filestat.o	263.89 KB	-rw-r--r--	2024-03-12 14:30
filters.c	53.65 KB	-rw-rw-r--	2022-10-31 11:36
filters.lo	325 B	-rw-r--r--	2024-03-12 14:31
filters.o	190.89 KB	-rw-r--r--	2024-03-12 14:31
flock_compat.c	6.73 KB	-rw-rw-r--	2022-10-31 11:36
flock_compat.h	2.06 KB	-rw-rw-r--	2022-10-31 11:36
flock_compat.lo	340 B	-rw-r--r--	2024-03-12 14:30
flock_compat.o	69.09 KB	-rw-r--r--	2024-03-12 14:30
formatted_print.c	20.84 KB	-rw-rw-r--	2022-10-31 11:36
formatted_print.lo	349 B	-rw-r--r--	2024-03-12 14:30
formatted_print.o	180.03 KB	-rw-r--r--	2024-03-12 14:30
fsock.c	3.95 KB	-rw-rw-r--	2022-10-31 11:36
fsock.h	1.42 KB	-rw-rw-r--	2022-10-31 11:36
fsock.lo	319 B	-rw-r--r--	2024-03-12 14:30
fsock.o	89.59 KB	-rw-r--r--	2024-03-12 14:30
ftok.c	2.05 KB	-rw-rw-r--	2022-10-31 11:36
ftok.lo	316 B	-rw-r--r--	2024-03-12 14:31
ftok.o	78.41 KB	-rw-r--r--	2024-03-12 14:31
ftp_fopen_wrapper.c	31.75 KB	-rw-rw-r--	2022-10-31 11:36
ftp_fopen_wrapper.lo	355 B	-rw-r--r--	2024-03-12 14:31
ftp_fopen_wrapper.o	157.71 KB	-rw-r--r--	2024-03-12 14:31
head.c	12.54 KB	-rw-rw-r--	2022-10-31 11:36
head.h	1.85 KB	-rw-rw-r--	2022-10-31 11:36
head.lo	316 B	-rw-r--r--	2024-03-12 14:30
head.o	186.44 KB	-rw-r--r--	2024-03-12 14:30
hrtime.c	5.06 KB	-rw-rw-r--	2022-10-31 11:36
hrtime.h	2.48 KB	-rw-rw-r--	2022-10-31 11:36
hrtime.lo	322 B	-rw-r--r--	2024-03-12 14:32
hrtime.o	86.02 KB	-rw-r--r--	2024-03-12 14:32
html.c	47 KB	-rw-rw-r--	2022-10-31 11:36
html.h	2.62 KB	-rw-rw-r--	2022-10-31 11:36
html.lo	316 B	-rw-r--r--	2024-03-12 14:31
html.o	1.03 MB	-rw-r--r--	2024-03-12 14:31
html_tables.h	472.41 KB	-rw-rw-r--	2022-10-31 11:36
http.c	7.46 KB	-rw-rw-r--	2022-10-31 11:36
http.lo	316 B	-rw-r--r--	2024-03-12 14:32
http.o	118.94 KB	-rw-r--r--	2024-03-12 14:32
http_fopen_wrapper.c	32.52 KB	-rw-rw-r--	2022-10-31 11:36
http_fopen_wrapper.lo	358 B	-rw-r--r--	2024-03-12 14:31
http_fopen_wrapper.o	248.67 KB	-rw-r--r--	2024-03-12 14:31
image.c	42.17 KB	-rw-rw-r--	2022-10-31 11:36
image.lo	319 B	-rw-r--r--	2024-03-12 14:31
image.o	166.95 KB	-rw-r--r--	2024-03-12 14:31
incomplete_class.c	5.04 KB	-rw-rw-r--	2022-10-31 11:36
incomplete_class.lo	352 B	-rw-r--r--	2024-03-12 14:31
incomplete_class.o	85.84 KB	-rw-r--r--	2024-03-12 14:31
info.c	40.22 KB	-rw-rw-r--	2022-10-31 11:36
info.h	22.6 KB	-rw-rw-r--	2022-10-31 11:36
info.lo	316 B	-rw-r--r--	2024-03-12 14:31
info.o	249.2 KB	-rw-r--r--	2024-03-12 14:31
iptc.c	9.57 KB	-rw-rw-r--	2022-10-31 11:36
iptc.lo	316 B	-rw-r--r--	2024-03-12 14:31
iptc.o	106.11 KB	-rw-r--r--	2024-03-12 14:31
lcg.c	3 KB	-rw-rw-r--	2022-10-31 11:36
lcg.lo	313 B	-rw-r--r--	2024-03-12 14:31
lcg.o	75.09 KB	-rw-r--r--	2024-03-12 14:31
levenshtein.c	3.92 KB	-rw-rw-r--	2022-10-31 11:36
levenshtein.lo	337 B	-rw-r--r--	2024-03-12 14:31
levenshtein.o	76.74 KB	-rw-r--r--	2024-03-12 14:31
link.c	5.84 KB	-rw-rw-r--	2022-10-31 11:36
link.lo	316 B	-rw-r--r--	2024-03-12 14:31
link.o	101.48 KB	-rw-r--r--	2024-03-12 14:31
mail.c	17.34 KB	-rw-rw-r--	2022-10-31 11:36
mail.lo	316 B	-rw-r--r--	2024-03-12 14:31
mail.o	170.32 KB	-rw-r--r--	2024-03-12 14:31
math.c	30.06 KB	-rw-rw-r--	2022-10-31 11:36
math.lo	316 B	-rw-r--r--	2024-03-12 14:31
math.o	263.9 KB	-rw-r--r--	2024-03-12 14:31
md5.c	10.91 KB	-rw-rw-r--	2022-10-31 11:36
md5.h	2.1 KB	-rw-rw-r--	2022-10-31 11:36
md5.lo	313 B	-rw-r--r--	2024-03-12 14:31
md5.o	104.06 KB	-rw-r--r--	2024-03-12 14:31
metaphone.c	11.96 KB	-rw-rw-r--	2022-10-31 11:36
metaphone.lo	331 B	-rw-r--r--	2024-03-12 14:31
metaphone.o	170.27 KB	-rw-r--r--	2024-03-12 14:31
microtime.c	4.29 KB	-rw-rw-r--	2022-10-31 11:36
microtime.h	1.32 KB	-rw-rw-r--	2022-10-31 11:36
microtime.lo	331 B	-rw-r--r--	2024-03-12 14:31
microtime.o	87.61 KB	-rw-r--r--	2024-03-12 14:31
mt_rand.c	10.84 KB	-rw-rw-r--	2022-10-31 11:36
mt_rand.lo	325 B	-rw-r--r--	2024-03-12 14:31
mt_rand.o	94.95 KB	-rw-r--r--	2024-03-12 14:31
net.c	8.97 KB	-rw-rw-r--	2022-10-31 11:36
net.lo	313 B	-rw-r--r--	2024-03-12 14:32
net.o	85.18 KB	-rw-r--r--	2024-03-12 14:32
pack.c	31.5 KB	-rw-rw-r--	2022-10-31 11:36
pack.h	1.24 KB	-rw-rw-r--	2022-10-31 11:36
pack.lo	316 B	-rw-r--r--	2024-03-12 14:31
pack.o	149.25 KB	-rw-r--r--	2024-03-12 14:31
pageinfo.c	3.72 KB	-rw-rw-r--	2022-10-31 11:36
pageinfo.h	1.42 KB	-rw-rw-r--	2022-10-31 11:36
pageinfo.lo	328 B	-rw-r--r--	2024-03-12 14:31
pageinfo.o	84.04 KB	-rw-r--r--	2024-03-12 14:31
password.c	21.94 KB	-rw-rw-r--	2022-10-31 11:36
password.lo	328 B	-rw-r--r--	2024-03-12 14:32
password.o	142.6 KB	-rw-r--r--	2024-03-12 14:32
php_array.h	4.41 KB	-rw-rw-r--	2022-10-31 11:36
php_assert.h	1.38 KB	-rw-rw-r--	2022-10-31 11:36
php_browscap.h	1.28 KB	-rw-rw-r--	2022-10-31 11:36
php_crypt.h	1.54 KB	-rw-rw-r--	2022-10-31 11:36
php_crypt_r.c	10.76 KB	-rw-rw-r--	2022-10-31 11:36
php_crypt_r.h	1.99 KB	-rw-rw-r--	2022-10-31 11:36
php_crypt_r.lo	337 B	-rw-r--r--	2024-03-12 14:30
php_crypt_r.o	80.88 KB	-rw-r--r--	2024-03-12 14:30
php_dir.h	1.66 KB	-rw-rw-r--	2022-10-31 11:36
php_dns.h	2.96 KB	-rw-rw-r--	2022-10-31 11:36
php_ext_syslog.h	1.46 KB	-rw-rw-r--	2022-10-31 11:36
php_filestat.h	3.1 KB	-rw-rw-r--	2022-10-31 11:36
php_fopen_wrapper.c	11.6 KB	-rw-rw-r--	2022-10-31 11:36
php_fopen_wrapper.lo	355 B	-rw-r--r--	2024-03-12 14:31
php_fopen_wrapper.o	114.31 KB	-rw-r--r--	2024-03-12 14:31
php_fopen_wrappers.h	1.94 KB	-rw-rw-r--	2022-10-31 11:36
php_ftok.h	1.22 KB	-rw-rw-r--	2022-10-31 11:36
php_http.h	1.62 KB	-rw-rw-r--	2022-10-31 11:36
php_image.h	2.37 KB	-rw-rw-r--	2022-10-31 11:36
php_incomplete_class.h	2.24 KB	-rw-rw-r--	2022-10-31 11:36
php_iptc.h	1.23 KB	-rw-rw-r--	2022-10-31 11:36
php_lcg.h	1.48 KB	-rw-rw-r--	2022-10-31 11:36
php_link.h	1.33 KB	-rw-rw-r--	2022-10-31 11:36
php_mail.h	2.37 KB	-rw-rw-r--	2022-10-31 11:36
php_math.h	4.65 KB	-rw-rw-r--	2022-10-31 11:36
php_metaphone.h	1.2 KB	-rw-rw-r--	2022-10-31 11:36
php_mt_rand.h	1.96 KB	-rw-rw-r--	2022-10-31 11:36
php_net.h	1.32 KB	-rw-rw-r--	2022-10-31 11:36
php_password.h	3.07 KB	-rw-rw-r--	2022-10-31 11:36
php_rand.h	3.14 KB	-rw-rw-r--	2022-10-31 11:36
php_random.h	2.07 KB	-rw-rw-r--	2022-10-31 11:36
php_smart_string.h	1.28 KB	-rw-rw-r--	2022-10-31 11:36
php_smart_string_public.h	1.29 KB	-rw-rw-r--	2022-10-31 11:36
php_standard.h	2.24 KB	-rw-rw-r--	2022-10-31 11:36
php_string.h	5.94 KB	-rw-rw-r--	2022-10-31 11:36
php_type.h	1.62 KB	-rw-rw-r--	2022-10-31 11:36
php_uuencode.h	1.38 KB	-rw-rw-r--	2022-10-31 11:36
php_var.h	3.61 KB	-rw-rw-r--	2022-10-31 11:36
php_versioning.h	1.36 KB	-rw-rw-r--	2022-10-31 11:36
proc_open.c	31.34 KB	-rw-rw-r--	2022-10-31 11:36
proc_open.h	1.74 KB	-rw-rw-r--	2022-10-31 11:36
proc_open.lo	331 B	-rw-r--r--	2024-03-12 14:32
proc_open.o	159.39 KB	-rw-r--r--	2024-03-12 14:32
quot_print.c	7.29 KB	-rw-rw-r--	2022-10-31 11:36
quot_print.h	1.45 KB	-rw-rw-r--	2022-10-31 11:36
quot_print.lo	334 B	-rw-r--r--	2024-03-12 14:31
quot_print.o	90.55 KB	-rw-r--r--	2024-03-12 14:31
rand.c	2.41 KB	-rw-rw-r--	2022-10-31 11:36
rand.lo	316 B	-rw-r--r--	2024-03-12 14:31
rand.o	79.04 KB	-rw-r--r--	2024-03-12 14:31
random.c	7.49 KB	-rw-rw-r--	2022-10-31 11:36
random.lo	322 B	-rw-r--r--	2024-03-12 14:32
random.o	88.59 KB	-rw-r--r--	2024-03-12 14:32
scanf.c	28.81 KB	-rw-rw-r--	2022-10-31 11:36
scanf.h	2.24 KB	-rw-rw-r--	2022-10-31 11:36
scanf.lo	319 B	-rw-r--r--	2024-03-12 14:31
scanf.o	122.94 KB	-rw-r--r--	2024-03-12 14:31
sha1.c	11.44 KB	-rw-rw-r--	2022-10-31 11:36
sha1.h	1.69 KB	-rw-rw-r--	2022-10-31 11:36
sha1.lo	316 B	-rw-r--r--	2024-03-12 14:31
sha1.o	118.13 KB	-rw-r--r--	2024-03-12 14:31
soundex.c	3.16 KB	-rw-rw-r--	2022-10-31 11:36
soundex.lo	325 B	-rw-r--r--	2024-03-12 14:31
soundex.o	77.52 KB	-rw-r--r--	2024-03-12 14:31
streamsfuncs.c	46.41 KB	-rw-rw-r--	2022-10-31 11:36
streamsfuncs.h	2.73 KB	-rw-rw-r--	2022-10-31 11:36
streamsfuncs.lo	340 B	-rw-r--r--	2024-03-12 14:32
streamsfuncs.o	341.69 KB	-rw-r--r--	2024-03-12 14:32
string.c	154.56 KB	-rw-rw-r--	2022-10-31 11:36
string.lo	322 B	-rw-r--r--	2024-03-12 14:31
string.o	871.95 KB	-rw-r--r--	2024-03-12 14:31
strnatcmp.c	4.34 KB	-rw-rw-r--	2022-10-31 11:36
strnatcmp.lo	331 B	-rw-r--r--	2024-03-12 14:31
strnatcmp.o	71.72 KB	-rw-r--r--	2024-03-12 14:31
syslog.c	6.37 KB	-rw-rw-r--	2022-10-31 11:36
syslog.lo	322 B	-rw-r--r--	2024-03-12 14:31
syslog.o	96.32 KB	-rw-r--r--	2024-03-12 14:31
type.c	10.17 KB	-rw-rw-r--	2022-10-31 11:36
type.lo	316 B	-rw-r--r--	2024-03-12 14:31
type.o	130.52 KB	-rw-r--r--	2024-03-12 14:31
uniqid.c	2.65 KB	-rw-rw-r--	2022-10-31 11:36
uniqid.h	1.23 KB	-rw-rw-r--	2022-10-31 11:36
uniqid.lo	322 B	-rw-r--r--	2024-03-12 14:31
uniqid.o	81.45 KB	-rw-r--r--	2024-03-12 14:31
url.c	17.75 KB	-rw-rw-r--	2022-10-31 11:36
url.h	2.39 KB	-rw-rw-r--	2022-10-31 11:36
url.lo	313 B	-rw-r--r--	2024-03-12 14:31
url.o	157.62 KB	-rw-r--r--	2024-03-12 14:31
url_scanner_ex.c	39.41 KB	-rw-r--r--	2022-10-31 11:36
url_scanner_ex.h	2.44 KB	-rw-rw-r--	2022-10-31 11:36
url_scanner_ex.lo	346 B	-rw-r--r--	2024-03-12 14:31
url_scanner_ex.o	322.59 KB	-rw-r--r--	2024-03-12 14:31
url_scanner_ex.re	27.65 KB	-rw-rw-r--	2022-10-31 11:36
user_filters.c	17.55 KB	-rw-rw-r--	2022-10-31 11:36
user_filters.lo	340 B	-rw-r--r--	2024-03-12 14:31
user_filters.o	142.52 KB	-rw-r--r--	2024-03-12 14:31
uuencode.c	6.62 KB	-rw-rw-r--	2022-10-31 11:36
uuencode.lo	328 B	-rw-r--r--	2024-03-12 14:31
uuencode.o	85.96 KB	-rw-r--r--	2024-03-12 14:31
var.c	37.8 KB	-rw-rw-r--	2022-10-31 11:36
var.lo	313 B	-rw-r--r--	2024-03-12 14:31
var.o	399.8 KB	-rw-r--r--	2024-03-12 14:31
var_unserializer.c	38.52 KB	-rw-r--r--	2022-10-31 11:36
var_unserializer.lo	352 B	-rw-r--r--	2024-03-12 14:31
var_unserializer.o	244.13 KB	-rw-r--r--	2024-03-12 14:31
var_unserializer.re	30.81 KB	-rw-rw-r--	2022-10-31 11:36
versioning.c	5.76 KB	-rw-rw-r--	2022-10-31 11:36
versioning.lo	334 B	-rw-r--r--	2024-03-12 14:31
versioning.o	95.11 KB	-rw-r--r--	2024-03-12 14:31
winver.h	6.23 KB	-rw-rw-r--	2022-10-31 11:36

Rename

/*
   +----------------------------------------------------------------------+
   | PHP Version 7                                                        |
   +----------------------------------------------------------------------+
   | Copyright (c) The PHP Group                                          |
   +----------------------------------------------------------------------+
   | This source file is subject to version 3.01 of the PHP license,      |
   | that is bundled with this package in the file LICENSE, and is        |
   | available through the world-wide-web at the following url:           |
   | http://www.php.net/license/3_01.txt                                  |
   | If you did not receive a copy of the PHP license and are unable to   |
   | obtain it through the world-wide-web, please send a note to          |
   | license@php.net so we can mail you a copy immediately.               |
   +----------------------------------------------------------------------+
   | Author: Rasmus Lerdorf <rasmus@php.net>                              |
   +----------------------------------------------------------------------+
 */

#include <stdlib.h>
#include <ctype.h>
#include <stdio.h>
#include <time.h>
#include "php.h"
#include "ext/standard/info.h"
#include "ext/standard/php_string.h"
#include "ext/standard/basic_functions.h"
#include "ext/date/php_date.h"
#include "zend_smart_str.h"

#if HAVE_SYSEXITS_H
#include <sysexits.h>
#endif
#if HAVE_SYS_SYSEXITS_H
#include <sys/sysexits.h>
#endif

#if PHP_SIGCHILD
#include <signal.h>
#endif

#include "php_syslog.h"
#include "php_mail.h"
#include "php_ini.h"
#include "php_string.h"
#include "exec.h"

#ifdef PHP_WIN32
#include "win32/sendmail.h"
#endif

#define SKIP_LONG_HEADER_SEP(str, pos)																	\
	if (str[pos] == '\r' && str[pos + 1] == '\n' && (str[pos + 2] == ' ' || str[pos + 2] == '\t')) {	\
		pos += 2;																						\
		while (str[pos + 1] == ' ' || str[pos + 1] == '\t') {											\
			pos++;																						\
		}																								\
		continue;																						\
	}																									\

#define MAIL_ASCIIZ_CHECK(str, len)				\
	p = str;									\
	e = p + len;								\
	while ((p = memchr(p, '\0', (e - p)))) {	\
		*p = ' ';								\
	}											\

extern zend_long php_getuid(void);

/* {{{ proto int ezmlm_hash(string addr)
   Calculate EZMLM list hash value. */
PHP_FUNCTION(ezmlm_hash)
{
	char *str = NULL;
	unsigned int h = 5381;
	size_t j, str_len;

ZEND_PARSE_PARAMETERS_START(1, 1)
		Z_PARAM_STRING(str, str_len)
	ZEND_PARSE_PARAMETERS_END();

for (j = 0; j < str_len; j++) {
		h = (h + (h << 5)) ^ (zend_ulong) (unsigned char) tolower(str[j]);
	}

h = (h % 53);

RETURN_LONG((zend_long) h);
}
/* }}} */

static zend_bool php_mail_build_headers_check_field_value(zval *val)
{
	size_t len = 0;
	zend_string *value = Z_STR_P(val);

/* https://tools.ietf.org/html/rfc2822#section-2.2.1 */
	/* https://tools.ietf.org/html/rfc2822#section-2.2.3 */
	while (len < value->len) {
		if (*(value->val+len) == '\r') {
			if (value->len - len >= 3
				&&  *(value->val+len+1) == '\n'
				&& (*(value->val+len+2) == ' '  || *(value->val+len+2) == '\t')) {
				len += 3;
				continue;
			}
			return FAILURE;
		}
		if (*(value->val+len) == '\0') {
			return FAILURE;
		}
		len++;
	}
	return SUCCESS;
}

static zend_bool php_mail_build_headers_check_field_name(zend_string *key)
{
	size_t len = 0;

/* https://tools.ietf.org/html/rfc2822#section-2.2 */
	while (len < key->len) {
		if (*(key->val+len) < 33 || *(key->val+len) > 126 || *(key->val+len) == ':') {
			return FAILURE;
		}
		len++;
	}
	return SUCCESS;
}

static void php_mail_build_headers_elems(smart_str *s, zend_string *key, zval *val);

static void php_mail_build_headers_elem(smart_str *s, zend_string *key, zval *val)
{
	switch(Z_TYPE_P(val)) {
		case IS_STRING:
			if (php_mail_build_headers_check_field_name(key) != SUCCESS) {
				php_error_docref(NULL, E_WARNING, "Header field name (%s) contains invalid chars", ZSTR_VAL(key));
				return;
			}
			if (php_mail_build_headers_check_field_value(val) != SUCCESS) {
				php_error_docref(NULL, E_WARNING, "Header field value (%s => %s) contains invalid chars or format", ZSTR_VAL(key), Z_STRVAL_P(val));
				return;
			}
			smart_str_append(s, key);
			smart_str_appendl(s, ": ", 2);
			smart_str_appends(s, Z_STRVAL_P(val));
			smart_str_appendl(s, "\r\n", 2);
			break;
		case IS_ARRAY:
			php_mail_build_headers_elems(s, key, val);
			break;
		default:
			php_error_docref(NULL, E_WARNING, "headers array elements must be string or array (%s)", ZSTR_VAL(key));
	}
}

static void php_mail_build_headers_elems(smart_str *s, zend_string *key, zval *val)
{
	zend_string *tmp_key;
	zval *tmp_val;

ZEND_HASH_FOREACH_STR_KEY_VAL(Z_ARRVAL_P(val), tmp_key, tmp_val) {
		if (tmp_key) {
			php_error_docref(NULL, E_WARNING, "Multiple header key must be numeric index (%s)", ZSTR_VAL(tmp_key));
			continue;
		}
		if (Z_TYPE_P(tmp_val) != IS_STRING) {
			php_error_docref(NULL, E_WARNING, "Multiple header values must be string (%s)", ZSTR_VAL(key));
			continue;
		}
		php_mail_build_headers_elem(s, key, tmp_val);
	} ZEND_HASH_FOREACH_END();
}

PHPAPI zend_string *php_mail_build_headers(zval *headers)
{
	zend_ulong idx;
	zend_string *key;
	zval *val;
	smart_str s = {0};

ZEND_ASSERT(Z_TYPE_P(headers) == IS_ARRAY);

ZEND_HASH_FOREACH_KEY_VAL(Z_ARRVAL_P(headers), idx, key, val) {
		if (!key) {
			php_error_docref(NULL, E_WARNING, "Found numeric header (" ZEND_LONG_FMT ")", idx);
			continue;
		}
		/* https://tools.ietf.org/html/rfc2822#section-3.6 */
		switch(ZSTR_LEN(key)) {
			case sizeof("orig-date")-1:
				if (!strncasecmp("orig-date", ZSTR_VAL(key), ZSTR_LEN(key))) {
					PHP_MAIL_BUILD_HEADER_CHECK("orig-date", s, key, val);
				} else {
					PHP_MAIL_BUILD_HEADER_DEFAULT(s, key, val);
				}
				break;
			case sizeof("from")-1:
				if (!strncasecmp("from", ZSTR_VAL(key), ZSTR_LEN(key))) {
					PHP_MAIL_BUILD_HEADER_CHECK("from", s, key, val);
				} else {
					PHP_MAIL_BUILD_HEADER_DEFAULT(s, key, val);
				}
				break;
			case sizeof("sender")-1:
				if (!strncasecmp("sender", ZSTR_VAL(key), ZSTR_LEN(key))) {
					PHP_MAIL_BUILD_HEADER_CHECK("sender", s, key, val);
				} else {
					PHP_MAIL_BUILD_HEADER_DEFAULT(s, key, val);
				}
				break;
			case sizeof("reply-to")-1:
				if (!strncasecmp("reply-to", ZSTR_VAL(key), ZSTR_LEN(key))) {
					PHP_MAIL_BUILD_HEADER_CHECK("reply-to", s, key, val);
				} else {
					PHP_MAIL_BUILD_HEADER_DEFAULT(s, key, val);
				}
				break;
			case sizeof("to")-1: /* "to", "cc" */
				if (!strncasecmp("to", ZSTR_VAL(key), ZSTR_LEN(key))) {
					php_error_docref(NULL, E_WARNING, "Extra header cannot contain 'To' header");
					continue;
				}
				if (!strncasecmp("cc", ZSTR_VAL(key), ZSTR_LEN(key))) {
					PHP_MAIL_BUILD_HEADER_CHECK("cc", s, key, val);
				} else {
					PHP_MAIL_BUILD_HEADER_DEFAULT(s, key, val);
				}
				break;
			case sizeof("bcc")-1:
				if (!strncasecmp("bcc", ZSTR_VAL(key), ZSTR_LEN(key))) {
					PHP_MAIL_BUILD_HEADER_CHECK("bcc", s, key, val);
				} else {
					PHP_MAIL_BUILD_HEADER_DEFAULT(s, key, val);
				}
				break;
			case sizeof("message-id")-1: /* "references" */
				if (!strncasecmp("message-id", ZSTR_VAL(key), ZSTR_LEN(key))) {
					PHP_MAIL_BUILD_HEADER_CHECK("message-id", s, key, val);
				} else if (!strncasecmp("references", ZSTR_VAL(key), ZSTR_LEN(key))) {
					PHP_MAIL_BUILD_HEADER_CHECK("references", s, key, val);
				} else {
					PHP_MAIL_BUILD_HEADER_DEFAULT(s, key, val);
				}
				break;
			case sizeof("in-reply-to")-1:
				if (!strncasecmp("in-reply-to", ZSTR_VAL(key), ZSTR_LEN(key))) {
					PHP_MAIL_BUILD_HEADER_CHECK("in-reply-to", s, key, val);
				} else {
					PHP_MAIL_BUILD_HEADER_DEFAULT(s, key, val);
				}
				break;
			case sizeof("subject")-1:
				if (!strncasecmp("subject", ZSTR_VAL(key), ZSTR_LEN(key))) {
					php_error_docref(NULL, E_WARNING, "Extra header cannot contain 'Subject' header");
					continue;
				}
				PHP_MAIL_BUILD_HEADER_DEFAULT(s, key, val);
				break;
			default:
				PHP_MAIL_BUILD_HEADER_DEFAULT(s, key, val);
		}
	} ZEND_HASH_FOREACH_END();

/* Remove the last \r\n */
	if (s.s) s.s->len -= 2;
	smart_str_0(&s);

return s.s;
}

/* {{{ proto int mail(string to, string subject, string message [, string additional_headers [, string additional_parameters]])
   Send an email message */
PHP_FUNCTION(mail)
{
	char *to=NULL, *message=NULL;
	char *subject=NULL;
	zend_string *extra_cmd=NULL, *str_headers=NULL, *tmp_headers;
	zval *headers = NULL;
	size_t to_len, message_len;
	size_t subject_len, i;
	char *force_extra_parameters = INI_STR("mail.force_extra_parameters");
	char *to_r, *subject_r;
	char *p, *e;

ZEND_PARSE_PARAMETERS_START(3, 5)
		Z_PARAM_STRING(to, to_len)
		Z_PARAM_STRING(subject, subject_len)
		Z_PARAM_STRING(message, message_len)
		Z_PARAM_OPTIONAL
		Z_PARAM_ZVAL(headers)
		Z_PARAM_STR(extra_cmd)
	ZEND_PARSE_PARAMETERS_END();

/* ASCIIZ check */
	MAIL_ASCIIZ_CHECK(to, to_len);
	MAIL_ASCIIZ_CHECK(subject, subject_len);
	MAIL_ASCIIZ_CHECK(message, message_len);
	if (headers) {
		switch(Z_TYPE_P(headers)) {
			case IS_STRING:
				tmp_headers = zend_string_init(Z_STRVAL_P(headers), Z_STRLEN_P(headers), 0);
				MAIL_ASCIIZ_CHECK(ZSTR_VAL(tmp_headers), ZSTR_LEN(tmp_headers));
				str_headers = php_trim(tmp_headers, NULL, 0, 2);
				zend_string_release_ex(tmp_headers, 0);
				break;
			case IS_ARRAY:
				str_headers = php_mail_build_headers(headers);
				break;
			default:
				php_error_docref(NULL, E_WARNING, "headers parameter must be string or array");
				RETURN_FALSE;
		}
	}
	if (extra_cmd) {
		MAIL_ASCIIZ_CHECK(ZSTR_VAL(extra_cmd), ZSTR_LEN(extra_cmd));
	}

if (to_len > 0) {
		to_r = estrndup(to, to_len);
		for (; to_len; to_len--) {
			if (!isspace((unsigned char) to_r[to_len - 1])) {
				break;
			}
			to_r[to_len - 1] = '\0';
		}
		for (i = 0; to_r[i]; i++) {
			if (iscntrl((unsigned char) to_r[i])) {
				/* According to RFC 822, section 3.1.1 long headers may be separated into
				 * parts using CRLF followed at least one linear-white-space character ('\t' or ' ').
				 * To prevent these separators from being replaced with a space, we use the
				 * SKIP_LONG_HEADER_SEP to skip over them. */
				SKIP_LONG_HEADER_SEP(to_r, i);
				to_r[i] = ' ';
			}
		}
	} else {
		to_r = to;
	}

if (subject_len > 0) {
		subject_r = estrndup(subject, subject_len);
		for (; subject_len; subject_len--) {
			if (!isspace((unsigned char) subject_r[subject_len - 1])) {
				break;
			}
			subject_r[subject_len - 1] = '\0';
		}
		for (i = 0; subject_r[i]; i++) {
			if (iscntrl((unsigned char) subject_r[i])) {
				SKIP_LONG_HEADER_SEP(subject_r, i);
				subject_r[i] = ' ';
			}
		}
	} else {
		subject_r = subject;
	}

if (force_extra_parameters) {
		extra_cmd = php_escape_shell_cmd(force_extra_parameters);
	} else if (extra_cmd) {
		extra_cmd = php_escape_shell_cmd(ZSTR_VAL(extra_cmd));
	}

if (php_mail(to_r, subject_r, message, str_headers && ZSTR_LEN(str_headers) ? ZSTR_VAL(str_headers) : NULL, extra_cmd ? ZSTR_VAL(extra_cmd) : NULL)) {
		RETVAL_TRUE;
	} else {
		RETVAL_FALSE;
	}

if (str_headers) {
		zend_string_release_ex(str_headers, 0);
	}

if (extra_cmd) {
		zend_string_release_ex(extra_cmd, 0);
	}
	if (to_r != to) {
		efree(to_r);
	}
	if (subject_r != subject) {
		efree(subject_r);
	}
}
/* }}} */

void php_mail_log_crlf_to_spaces(char *message) {
	/* Find all instances of carriage returns or line feeds and
	 * replace them with spaces. Thus, a log line is always one line
	 * long
	 */
	char *p = message;
	while ((p = strpbrk(p, "\r\n"))) {
		*p = ' ';
	}
}

void php_mail_log_to_syslog(char *message) {
	/* Write 'message' to syslog. */
#ifdef HAVE_SYSLOG_H
	php_syslog(LOG_NOTICE, "%s", message);
#endif
}

void php_mail_log_to_file(char *filename, char *message, size_t message_size) {
	/* Write 'message' to the given file. */
	uint32_t flags = IGNORE_URL_WIN | REPORT_ERRORS | STREAM_DISABLE_OPEN_BASEDIR;
	php_stream *stream = php_stream_open_wrapper(filename, "a", flags, NULL);
	if (stream) {
		php_stream_write(stream, message, message_size);
		php_stream_close(stream);
	}
}

static int php_mail_detect_multiple_crlf(char *hdr) {
	/* This function detects multiple/malformed multiple newlines. */

if (!hdr || !strlen(hdr)) {
		return 0;
	}

/* Should not have any newlines at the beginning. */
	/* RFC 2822 2.2. Header Fields */
	if (*hdr < 33 || *hdr > 126 || *hdr == ':') {
		return 1;
	}

while(*hdr) {
		if (*hdr == '\r') {
			if (*(hdr+1) == '\0' || *(hdr+1) == '\r' || (*(hdr+1) == '\n' && (*(hdr+2) == '\0' || *(hdr+2) == '\n' || *(hdr+2) == '\r'))) {
				/* Malformed or multiple newlines. */
				return 1;
			} else {
				hdr += 2;
			}
		} else if (*hdr == '\n') {
			if (*(hdr+1) == '\0' || *(hdr+1) == '\r' || *(hdr+1) == '\n') {
				/* Malformed or multiple newlines. */
				return 1;
			} else {
				hdr += 2;
			}
		} else {
			hdr++;
		}
	}

return 0;
}

/* {{{ php_mail
 */
PHPAPI int php_mail(char *to, char *subject, char *message, char *headers, char *extra_cmd)
{
#ifdef PHP_WIN32
	int tsm_err;
	char *tsm_errmsg = NULL;
#endif
	FILE *sendmail;
	int ret;
	char *sendmail_path = INI_STR("sendmail_path");
	char *sendmail_cmd = NULL;
	char *mail_log = INI_STR("mail.log");
	char *hdr = headers;
#if PHP_SIGCHILD
	void (*sig_handler)() = NULL;
#endif

#define MAIL_RET(val) \
	if (hdr != headers) {	\
		efree(hdr);	\
	}	\
	return val;	\

if (mail_log && *mail_log) {
		char *logline;

spprintf(&logline, 0, "mail() on [%s:%d]: To: %s -- Headers: %s -- Subject: %s", zend_get_executed_filename(), zend_get_executed_lineno(), to, hdr ? hdr : "", subject);

if (hdr) {
			php_mail_log_crlf_to_spaces(logline);
		}

if (!strcmp(mail_log, "syslog")) {
			php_mail_log_to_syslog(logline);
		} else {
			/* Add date when logging to file */
			char *tmp;
			time_t curtime;
			zend_string *date_str;
			size_t len;

time(&curtime);
			date_str = php_format_date("d-M-Y H:i:s e", 13, curtime, 1);
			len = spprintf(&tmp, 0, "[%s] %s%s", date_str->val, logline, PHP_EOL);

php_mail_log_to_file(mail_log, tmp, len);

zend_string_free(date_str);
			efree(tmp);
		}

efree(logline);
	}

if (PG(mail_x_header)) {
		const char *tmp = zend_get_executed_filename();
		zend_string *f;

f = php_basename(tmp, strlen(tmp), NULL, 0);

if (headers != NULL && *headers) {
			spprintf(&hdr, 0, "X-PHP-Originating-Script: " ZEND_LONG_FMT ":%s\n%s", php_getuid(), ZSTR_VAL(f), headers);
		} else {
			spprintf(&hdr, 0, "X-PHP-Originating-Script: " ZEND_LONG_FMT ":%s", php_getuid(), ZSTR_VAL(f));
		}
		zend_string_release_ex(f, 0);
	}

if (hdr && php_mail_detect_multiple_crlf(hdr)) {
		php_error_docref(NULL, E_WARNING, "Multiple or malformed newlines found in additional_header");
		MAIL_RET(0);
	}

if (!sendmail_path) {
#ifdef PHP_WIN32
		/* handle old style win smtp sending */
		if (TSendMail(INI_STR("SMTP"), &tsm_err, &tsm_errmsg, hdr, subject, to, message, NULL, NULL, NULL) == FAILURE) {
			if (tsm_errmsg) {
				php_error_docref(NULL, E_WARNING, "%s", tsm_errmsg);
				efree(tsm_errmsg);
			} else {
				php_error_docref(NULL, E_WARNING, "%s", GetSMErrorText(tsm_err));
			}
			MAIL_RET(0);
		}
		MAIL_RET(1);
#else
		MAIL_RET(0);
#endif
	}
	if (extra_cmd != NULL) {
		spprintf(&sendmail_cmd, 0, "%s %s", sendmail_path, extra_cmd);
	} else {
		sendmail_cmd = sendmail_path;
	}

#if PHP_SIGCHILD
	/* Set signal handler of SIGCHLD to default to prevent other signal handlers
	 * from being called and reaping the return code when our child exits.
	 * The original handler needs to be restored after pclose() */
	sig_handler = (void *)signal(SIGCHLD, SIG_DFL);
	if (sig_handler == SIG_ERR) {
		sig_handler = NULL;
	}
#endif

#ifdef PHP_WIN32
	sendmail = popen_ex(sendmail_cmd, "wb", NULL, NULL);
#else
	/* Since popen() doesn't indicate if the internal fork() doesn't work
	 * (e.g. the shell can't be executed) we explicitly set it to 0 to be
	 * sure we don't catch any older errno value. */
	errno = 0;
	sendmail = popen(sendmail_cmd, "w");
#endif
	if (extra_cmd != NULL) {
		efree (sendmail_cmd);
	}

if (sendmail) {
#ifndef PHP_WIN32
		if (EACCES == errno) {
			php_error_docref(NULL, E_WARNING, "Permission denied: unable to execute shell to run mail delivery binary '%s'", sendmail_path);
			pclose(sendmail);
#if PHP_SIGCHILD
			/* Restore handler in case of error on Windows
			   Not sure if this applicable on Win but just in case. */
			if (sig_handler) {
				signal(SIGCHLD, sig_handler);
			}
#endif
			MAIL_RET(0);
		}
#endif
		fprintf(sendmail, "To: %s\n", to);
		fprintf(sendmail, "Subject: %s\n", subject);
		if (hdr != NULL) {
			fprintf(sendmail, "%s\n", hdr);
		}
		fprintf(sendmail, "\n%s\n", message);
		ret = pclose(sendmail);

#if PHP_SIGCHILD
		if (sig_handler) {
			signal(SIGCHLD, sig_handler);
		}
#endif

#ifdef PHP_WIN32
		if (ret == -1)
#else
#if defined(EX_TEMPFAIL)
		if ((ret != EX_OK)&&(ret != EX_TEMPFAIL))
#elif defined(EX_OK)
		if (ret != EX_OK)
#else
		if (ret != 0)
#endif
#endif
		{
			MAIL_RET(0);
		} else {
			MAIL_RET(1);
		}
	} else {
		php_error_docref(NULL, E_WARNING, "Could not execute mail delivery program '%s'", sendmail_path);
#if PHP_SIGCHILD
		if (sig_handler) {
			signal(SIGCHLD, sig_handler);
		}
#endif
		MAIL_RET(0);
	}

MAIL_RET(1); /* never reached */
}
/* }}} */

/* {{{ PHP_MINFO_FUNCTION
 */
PHP_MINFO_FUNCTION(mail)
{
	char *sendmail_path = INI_STR("sendmail_path");

#ifdef PHP_WIN32
	if (!sendmail_path) {
		php_info_print_table_row(2, "Internal Sendmail Support for Windows", "enabled");
	} else {
		php_info_print_table_row(2, "Path to sendmail", sendmail_path);
	}
#else
	php_info_print_table_row(2, "Path to sendmail", sendmail_path);
#endif
}
/* }}} */