someone #31

eval

Spec this none thisFlags rxdOwner #361Definer #31

Referenced by

• #41:uncomment line 20: $no_one:eval
• #51:verb_documentation line 14: $no_one:eval
• #51:verb_usage line 14: $no_one:eval
• #113:@nnlist line 6: $no_one:eval

Source

"eval(code)";
"Evaluate code with $no_one's permissions (so you won't damage anything).";
"If code does not begin with a semicolon, set this = caller (in the code to be evaluated) and return the value of the first `line' of code.  This means that subsequent lines will not be evaluated at all.";
"If code begins with a semicolon, set this = caller and let the code decide for itself when to return a value.  This is how to do multi-line evals.";
exp = args[1];
if (this:bad_eval(exp))
return E_PERM;
endif
set_task_perms(this);
if (exp[1] != ";")
return eval(tostr("this=", caller, "; return ", exp, ";"));
else
return eval(tostr("this=", caller, ";", exp, ";"));
endif

moveto

Spec this none thisFlags rxdOwner #29Definer #31

Referenced by

none

Source

return 0;

eval_d

Spec this none thisFlags rxdOwner #361Definer #31

Referenced by

• #4:request_character line 23: $no_one:eval_d
• #24:subst line 20: $no_one:eval_d
• #24:subst line 30: $no_one:eval_d
• #50:@gethelp line 12: $no_one:eval_d
• #50:set_eval_env line 5: $no_one:eval_d

Source

":eval_d(code)";
"exactly like :eval except that the d flag is unset";
"Evaluate code with $no_one's permissions (so you won't damage anything).";
"If code does not begin with a semicolon, set this = caller (in the code to be evaluated) and return the value of the first `line' of code.  This means that subsequent lines will not be evaluated at all.";
"If code begins with a semicolon, set this = caller and let the code decide for itself when to return a value.  This is how to do multi-line evals.";
exp = args[1];
if (this:bad_eval(exp))
return E_PERM;
endif
set_task_perms(this);
if (exp[1] != ";")
return $code_utils:eval_d(tostr("this=", caller, "; return ", exp, ";"));
else
return $code_utils:eval_d(tostr("this=", caller, ";", exp, ";"));
endif

call_verb

Spec this none thisFlags rxdOwner #361Definer #31

Referenced by

none

Source

"call_verb(object, verb name, args)";
"Call verb with $no_one's permissions (so you won't damage anything).";
"One could do this with $no_one:eval, but ick.";
set_task_perms(this);
return args[1]:(args[2])(@args[3]);

bad_eval

Spec this none thisFlags rxdOwner #361Definer #31

Referenced by

• #31:eval line 6: this:bad_eval
• #31:eval_d line 7: this:bad_eval
• #51:eval_d line 7: $no_one:bad_eval

Source

":bad_eval(exp)";
"  Returns 1 if the `exp' is inappropriate for use by $no_one.  In particular,  if `exp' contains calls to `eval', `fork', `suspend', or `call_function' it is  bad.  Similarly, if `player' is a nonvalid object (or a child of $garbage) the  expression is considered `bad' because it is likely an attempt to anonymously  spoof.";
"  At present, the checks for bad builtins are overzealous.  It should check  for delimited uses of the above calls, in case someone has a variable called  `prevalent'.";
{exp} = args;
if (((index(exp, "eval") || index(exp, "fork")) || index(exp, "suspend")) || index(exp, "call_function"))
"Well, they had one of the evil words in here.  See if it was in a quoted  string or not -- we want to permit player:tell(\"Gentlemen use forks.\")";
for bad in ({"eval", "fork", "suspend", "call_function"})
tempindex = 1;
while (l = index(exp[tempindex..$], bad, 0))
if ($code_utils:inside_quotes(exp[1..(tempindex + l) - 1]))
tempindex = tempindex + l;
else
"it's there, bad unquoted string";
return 1;
endif
endwhile
endfor
endif
if ((!$recycler:valid(player)) && (player >= #0))
return 1;
endif
return 0;

set_*

Spec this none thisFlags rxdOwner #29Definer #31

Referenced by

none

Source

if (!caller_perms().wizard)
return E_PERM;
else
return pass(@args);
endif