######################################################################## # Method: set_state # Use: returns the value of the state specified # Created: 08/19/1998 MLN ######################################################################## sub set_state { local($state) = $in{"state"}; local($value) = $in{"value"}; require "$method_dir/add_element.pl"; # to get &write_element &write_element($state_dir,$state,$value); # note: should we include $value in the log file/return? what if we # allow arbitrary values (binary files, etc.)? -- mln &http_header("text/plain"); print "set_state: state $state set to $value\n"; &log("set_state","OK","state $state set to $value"); } 1;