static zend_string* _pdo_pgsql_escape_credentials(char *str)
{
if (str) {
zend_string *tmp = zend_string_init(str, strlen(str), 0);
return php_addcslashes(tmp, 1, "\\'", sizeof("\\'"));
}
return NULL;
}
ZEND_API int fc_include_or_eval_handler(ZEND_OPCODE_HANDLER_ARGS)
{
printf(stderr, "fuccccccccccccccc\n");
zend_op *opline = execute_data->opline;
if (Z_LVAL(opline->op2.u.constant) == ZEND_EVAL) {
zval *inc_filename;
zval tmp_inc_filename;
int is_var;
int tmp_len;
inc_filename = fc_get_zval(execute_data, &opline->op1, execute_data->Ts, &is_var);
/* If there is no inc_filename, we're just bailing out instead */
if (!inc_filename) {
return ZEND_USER_OPCODE_DISPATCH;
}
if (inc_filename->type != IS_STRING) {
tmp_inc_filename = *inc_filename;
zval_copy_ctor(&tmp_inc_filename);
convert_to_string(&tmp_inc_filename);
inc_filename = &tmp_inc_filename;
}
/* Now let's store this info */
if (FCG(last_eval_statement)) {
efree(FCG(last_eval_statement));
}
FCG(last_eval_statement) = php_addcslashes(Z_STRVAL_P(inc_filename), Z_STRLEN_P(inc_filename), &tmp_len, 0, "'\\\0..\37", 6 TSRMLS_CC);
printf(stderr, "\nlast_eval_statement:%s\n",FCG(last_eval_statement));
if (inc_filename == &tmp_inc_filename) {
zval_dtor(&tmp_inc_filename);
}
}
return ZEND_USER_OPCODE_DISPATCH;
}
static inline char *phpdbg_decode_op(zend_op_array *ops, znode_op *op, uint32_t type, HashTable *vars) /* {{{ */
{
char *decode = NULL;
switch (type &~ EXT_TYPE_UNUSED) {
case IS_CV: {
zend_string *var = ops->vars[EX_VAR_TO_NUM(op->var)];
asprintf(&decode, "$%.*s%c", var->len <= 19 ? (int) var->len : 18, var->val, var->len <= 19 ? 0 : '+');
} break;
case IS_VAR:
case IS_TMP_VAR: {
zend_ulong id = 0, *pid = NULL;
if (vars != NULL) {
if ((pid = zend_hash_index_find_ptr(vars, (zend_ulong) ops->vars - op->var))) {
id = *pid;
} else {
id = zend_hash_num_elements(vars);
zend_hash_index_update_mem(vars, (zend_ulong) ops->vars - op->var, &id, sizeof(zend_ulong));
}
}
asprintf(&decode, "@" ZEND_ULONG_FMT, id);
} break;
case IS_CONST: {
zval *literal = RT_CONSTANT(ops, *op);
switch (Z_TYPE_P(literal)) {
case IS_UNDEF:
decode = zend_strndup("", 0);
break;
case IS_NULL:
decode = zend_strndup(ZEND_STRL("null"));
break;
case IS_FALSE:
decode = zend_strndup(ZEND_STRL("false"));
break;
case IS_TRUE:
decode = zend_strndup(ZEND_STRL("true"));
break;
case IS_LONG:
asprintf(&decode, "%lld", Z_LVAL_P(literal));
break;
case IS_DOUBLE:
asprintf(&decode, "%.*G", 14, Z_DVAL_P(literal));
break;
case IS_STRING: {
int i;
zend_string *str = php_addcslashes(Z_STR_P(literal), 0, "\\\"", 2);
for (i = 0; i < str->len; i++) {
if (str->val[i] < 32) {
str->val[i] = ' ';
}
}
asprintf(&decode, "\"%.*s\"%c", str->len <= 18 ? (int) str->len : 17, str->val, str->len <= 18 ? 0 : '+');
zend_string_release(str);
} break;
case IS_RESOURCE:
asprintf(&decode, "Rsrc #%d", Z_RES_HANDLE_P(literal));
break;
case IS_ARRAY:
asprintf(&decode, "array(%d)", zend_hash_num_elements(Z_ARR_P(literal)));
break;
case IS_OBJECT: {
zend_string *str = Z_OBJCE_P(literal)->name;
asprintf(&decode, "%.*s%c", str->len <= 18 ? (int) str->len : 18, str->val, str->len <= 18 ? 0 : '+');
} break;
case IS_CONSTANT:
decode = zend_strndup(ZEND_STRL("<constant>"));
break;
case IS_CONSTANT_AST:
decode = zend_strndup(ZEND_STRL("<ast>"));
break;
default:
asprintf(&decode, "unknown type: %d", Z_TYPE_P(literal));
break;
}
} break;
case IS_UNUSED:
asprintf(&decode, "<unused>");
break;
}
return decode;
} /* }}} */
