53bf482000-12-30Martin Nilsson // $Id: module.pmod,v 1.44 2000/12/30 16:51:15 nilsson Exp $
ef40dc2000-09-01Martin Stjernholm 
d1de942000-08-19Martin Nilsson #include <module.h> #include <roxen.h> // Locale macros //<locale-token project="roxen_config"> LOCALE </locale-token>
2f02b12000-10-12Martin Nilsson #define LOCALE(X,Y) \ ([string](mixed)Locale.translate("roxen_config",roxenp()->locale->get(),X,Y))
d1de942000-08-19Martin Nilsson  // Increased for each variable, used to index the mappings below. static int unique_vid; // The theory is that most variables (or at least a sizable percentage // of all variables) does not have these members. Thus this saves
edbf2d2000-09-19Per Hedbor // quite a respectable amount of memory, the cost is speed. But // hopefully not all that great a percentage of speed.
d1de942000-08-19Martin Nilsson static mapping(int:mixed) changed_values = ([]); static mapping(int:function(object:void)) changed_callbacks = ([]); static mapping(int:int) all_flags = ([]); static mapping(int:string) all_warnings = ([]); static mapping(int:function(RequestID,object:int)) invisibility_callbacks = set_weak_flag( ([]), 1 ); class Variable //! The basic variable type in Roxen. All other variable types should //! inherit this class. { constant is_variable = 1; constant type = "Basic"; //! Mostly used for debug (sprintf( "%O", variable_obj ) uses it)
b9bf912000-11-18Per Hedbor  int _id = unique_vid++;
d1de942000-08-19Martin Nilsson  // used for indexing the mappings. static mixed _initial; // default value
0a92fe2000-12-12Per Hedbor  static string _path = sprintf("v%x",_id); // used for forms
79ca872000-11-24Per Hedbor  static LocaleString __name, __doc;
d1de942000-08-19Martin Nilsson  void destroy() { // clean up... m_delete( all_flags, _id ); m_delete( all_warnings, _id ); m_delete( invisibility_callbacks, _id ); m_delete( changed_values, _id ); } string get_warnings() //! Returns the current warnings, if any. { return all_warnings[ _id ]; } int get_flags() //! Returns the 'flags' field for this variable. //! Flags is a bitwise or of one or more of //! //! VAR_EXPERT Only for experts //! VAR_MORE Only visible when more-mode is on (default on) //! VAR_DEVELOPER Only visible when devel-mode is on (default on) //! VAR_INITIAL Should be configured initially. { return all_flags[_id]; } void set_flags( int flags ) //! Set the flags for this variable. //! Flags is a bitwise or of one or more of
65025e2000-10-19Per Hedbor  //!
d1de942000-08-19Martin Nilsson  //! VAR_EXPERT Only for experts //! VAR_MORE Only visible when more-mode is on (default on) //! VAR_DEVELOPER Only visible when devel-mode is on (default on) //! VAR_INITIAL Should be configured initially. { if(!flags ) m_delete( all_flags, _id ); else all_flags[_id] = flags; } int check_visibility( RequestID id, int more_mode, int expert_mode, int devel_mode,
82f9da2000-09-16Per Hedbor  int initial, int|void variable_in_cfif )
d1de942000-08-19Martin Nilsson  //! Return 1 if this variable should be visible in the //! configuration interface. The default implementation check the //! 'flags' field, and the invisibility callback, if any. See //! get_flags, set_flags and set_invisibibility_check_callback
82f9da2000-09-16Per Hedbor  //! //! If variable_in_cfif is true, the variable is in a module //! that is added to the configuration interface itself.
d1de942000-08-19Martin Nilsson  { int flags = get_flags(); function cb;
e51c7b2000-12-08Martin Nilsson  if( flags & VAR_INVISIBLE ) return 0;
82f9da2000-09-16Per Hedbor  if( initial && !(flags & VAR_INITIAL) ) return 0; if( (flags & VAR_EXPERT) && !expert_mode ) return 0; if( (flags & VAR_MORE) && !more_mode ) return 0; if( (flags & VAR_DEVELOPER) && !devel_mode ) return 0; if( (flags & VAR_NOT_CFIF) && variable_in_cfif ) return 0;
d1de942000-08-19Martin Nilsson  if( (cb = get_invisibility_check_callback() ) && cb( id, this_object() ) ) return 0; return 1; } void set_invisibility_check_callback( function(RequestID,Variable:int) cb ) //! If the function passed as argument returns 1, the variable //! will not be visible in the configuration interface. //! //! Pass 0 to remove the invisibility callback. { if( functionp( cb ) ) invisibility_callbacks[ _id ] = cb; else m_delete( invisibility_callbacks, _id ); } function(Variable:void) get_changed_callback( ) //! Return the callback set with set_changed_callback { return changed_callbacks[ _id ]; } void set_changed_callback( function(Variable:void) cb ) //! The function passed as an argument will be called //! when the variable value is changed. //! //! Pass 0 to remove the callback. { if( functionp( cb ) ) changed_callbacks[ _id ] = cb; else m_delete( changed_callbacks, _id ); }
c6fd2e2000-09-03Per Hedbor  void add_changed_callback( function(Variable:void) cb ) //! Add a new callback to be called when the variable is changed. //! If set_changed_callback is called, callbacks added with this function //! are overridden. { mixed oc = get_changed_callback( ); if( arrayp( oc ) ) oc += ({ cb }); else oc = ({ oc, cb }) - ({ 0 }); changed_callbacks[ _id ] = oc; }
d1de942000-08-19Martin Nilsson  function(RequestID,Variable:int) get_invisibility_check_callback() //! Return the current invisibility check callback { return invisibility_callbacks[_id]; }
79ca872000-11-24Per Hedbor  LocaleString doc( )
d1de942000-08-19Martin Nilsson  //! Return the documentation for this variable (locale dependant). //! //! The default implementation queries the locale object in roxen //! to get the documentation. { return __doc || ""; }
79ca872000-11-24Per Hedbor  LocaleString name( )
d1de942000-08-19Martin Nilsson  //! Return the name of this variable (locale dependant). //! //! The default implementation queries the locale object in roxen //! to get the documentation. {
55a8662000-11-20Per Hedbor  return __name || LOCALE(326,"unnamed")+" "+_id;
d1de942000-08-19Martin Nilsson  }
79ca872000-11-24Per Hedbor  LocaleString type_hint( )
d1de942000-08-19Martin Nilsson  //! Return the type hint for this variable. //! Type hints are generic documentation for this variable type, //! and is the same for all instances of the type. { } mixed default_value() //! The default (initial) value for this variable. { return _initial; } void set_warning( string to ) //! Set the warning shown in the configuration interface { if( to && strlen(to) ) all_warnings[ _id ] = to; else m_delete( all_warnings, _id ); }
b8fd5c2000-09-28Per Hedbor  void add_warning( string to ) //! Like set_warning, but adds to the current warning, if any. {
a882cd2000-09-28Per Hedbor  if(to) set_warning( (get_warnings()||"") + to );
b8fd5c2000-09-28Per Hedbor  }
d1de942000-08-19Martin Nilsson  int set( mixed to ) //! Set the variable to a new value. //! If this function returns true, the set was successful. //! Otherwise 0 is returned. 0 is also returned if the variable was //! not changed by the set. 1 is returned if the variable was //! changed, and -1 is returned if the variable was changed back to //! it's default value. //! //! If verify_set() threw a string, ([])[0] is returned, that is, //! 0 with zero_type set. //! //! If verify_set() threw an exception, the exception is thrown. { string err, e2; if( e2 = catch( [err,to] = verify_set( to )) ) { if( stringp( e2 ) ) {
b8fd5c2000-09-28Per Hedbor  add_warning( e2 );
d1de942000-08-19Martin Nilsson  return ([])[0]; } throw( e2 ); }
b8fd5c2000-09-28Per Hedbor  add_warning( err );
d1de942000-08-19Martin Nilsson  return low_set( to ); } int low_set( mixed to ) //! Forced set. No checking is done whatsoever. //! 1 is returned if the variable was changed, -1 is returned if //! the variable was changed back to it's default value and 0 //! otherwise. { if( equal( to, query() ) ) return 0; if( !equal(to, default_value() ) ) { changed_values[ _id ] = to; if( get_changed_callback() ) catch( get_changed_callback()( this_object() ) ); return 1; } else { m_delete( changed_values, _id ); if( get_changed_callback() ) catch( get_changed_callback()( this_object() ) ); return -1; } } mixed query() //! Returns the current value for this variable. { mixed v; if( !zero_type( v = changed_values[ _id ] ) ) return v; return default_value(); } int is_defaulted() //! Return true if this variable is set to it's default value. { return zero_type( changed_values[ _id ] ) || equal(changed_values[ _id ], default_value()); }
b8fd5c2000-09-28Per Hedbor  array(string|mixed) verify_set_from_form( mixed new_value ) //! Like verify_set, but only called when the variables are set //! from a form. { return ({ 0, new_value }); }
d1de942000-08-19Martin Nilsson  array(string|mixed) verify_set( mixed new_value ) //! Return ({ error, new_value }) for the variable, or throw a string. //! //! If error != 0, it should contain a warning or error message. //! If new_value is modified, it will be used instead of the //! supplied value. //! //! If a string is thrown, it will be used as a error message from //! set, and the variable will not be changed. { return ({ 0, new_value }); } mapping(string:string) get_form_vars( RequestID id ) //! Return all form variables preficed with path(). { string p = path(); array names = glob( p+"*", indices(id->variables) ); mapping res = ([ ]); foreach( sort(names), string n ) res[ n[strlen(p).. ] ] = id->variables[ n ]; return res; } mixed transform_from_form( string what ) //! Given a form value, return what should be set. //! Used by the default set_from_form implementation. { return what; } void set_from_form( RequestID id ) //! Set this variable from the form variable in id->Variables, //! if any are available. The default implementation simply sets //! the variable to the string in the form variables. //! //! Other side effects: Might create warnings to be shown to the //! user (see get_warnings)
b8fd5c2000-09-28Per Hedbor  //! //! Calls verify_set_from_form and verify_set
d1de942000-08-19Martin Nilsson  {
b8fd5c2000-09-28Per Hedbor  mixed val;
d1de942000-08-19Martin Nilsson  if( sizeof( val = get_form_vars(id)) && val[""] &&
b8fd5c2000-09-28Per Hedbor  (val = transform_from_form( val[""] )) != query() ) { array b; mixed q = catch( b = verify_set_from_form( val ) ); if( q || sizeof( b ) != 2 ) { if( q ) add_warning( q ); else
cd87a22000-11-27Martin Nilsson  add_warning( "Internal error: Illegal sized array " "from verify_set_from_form\n" );
b8fd5c2000-09-28Per Hedbor  return; }
a882cd2000-09-28Per Hedbor  if( b ) { set_warning( b[0] ); set( b[1] ); }
b8fd5c2000-09-28Per Hedbor  }
d1de942000-08-19Martin Nilsson  } string path() //! A unique identifier for this variable. //! Should be used to prefix form variable names. //! //! Unless this variable was created by defvar(), the path is set //! by the configuration interface the first time the variable is //! to be shown in a form. This function can thus return 0. If it //! does, and you still have to show the form, call set_path( ) //! with a unique string. { return _path; } void set_path( string to ) //! Set the path. Not normally called from user-level code. //! //! This function must be called at least once before render_form //! can be called (at least if more than one variable is to be //! shown on the same page). This is normally done by the //! configuration interface. { _path = to; }
a968342000-08-25Martin Nilsson  string render_form( RequestID id, void|mapping additional_args );
d1de942000-08-19Martin Nilsson  //! Return a (HTML) form to change this variable. The name of all <input> //! or similar variables should be prefixed with the value returned //! from the path() function. string render_view( RequestID id ) //! Return a 'view only' version of this variable. {
88c8672000-09-19Per Hedbor  mixed v = query(); if( arrayp(v) ) v = map(v,lambda(mixed v){return(string)v;})*", " ; return Roxen.html_encode_string( (string)v );
d1de942000-08-19Martin Nilsson  } static string _sprintf( int i ) { if( i == 'O' )
8fec792000-09-04Per Hedbor  return sprintf( "Variable.%s(%s)",type,(string)name());
d1de942000-08-19Martin Nilsson  }
a968342000-08-25Martin Nilsson  static void create(mixed default_value, void|int flags,
79ca872000-11-24Per Hedbor  void|LocaleString std_name, void|LocaleString std_doc)
d1de942000-08-19Martin Nilsson  //! Constructor. //! Flags is a bitwise or of one or more of //! //! VAR_EXPERT Only for experts //! VAR_MORE Only visible when more-mode is on (default on) //! VAR_DEVELOPER Only visible when devel-mode is on (default on) //! VAR_INITIAL Should be configured initially. //! //! The std_name and std_doc is the name and documentation string //! for the default locale (always english) { set_flags( flags ); _initial = default_value; __name = std_name; __doc = std_doc; } } // ===================================================================== // Float // ===================================================================== class Float //! Float variable, with optional range checks, and adjustable precision. { inherit Variable; constant type = "Float"; static float _max, _min;
a968342000-08-25Martin Nilsson  static int _prec = 2;
d1de942000-08-19Martin Nilsson  static string _format( float m ) { if( !_prec ) return sprintf( "%d", (int)m ); return sprintf( "%1."+_prec+"f", m ); } void set_range(float minimum, float maximum ) //! Set the range of the variable, if minimum and maximum are both //! 0.0 (the default), the range check is removed. { _max = maximum; _min = minimum; } void set_precision( int prec ) //! Set the number of _decimals_ shown to the user. //! If prec is 3, and the float is 1, 1.000 will be shown. //! Default is 2. { _prec = prec; } array(string|float) verify_set( float new_value ) { string warn;
a968342000-08-25Martin Nilsson  if( new_value > _max && _max > _min)
d1de942000-08-19Martin Nilsson  {
55a8662000-11-20Per Hedbor  warn = sprintf(LOCALE(328,"Value is bigger than %s, adjusted"),
9f97972000-11-20Per Hedbor  _format(_max) );
a968342000-08-25Martin Nilsson  new_value = _max; } else if( new_value < _min && _min < _max) {
55a8662000-11-20Per Hedbor  warn = sprintf(LOCALE(329,"Value is less than %s, adjusted"),
9f97972000-11-20Per Hedbor  _format(_min) );
a968342000-08-25Martin Nilsson  new_value = _min;
d1de942000-08-19Martin Nilsson  } return ({ warn, new_value }); } float transform_from_form( string what ) { return (float)what; } string render_view( RequestID id ) { return Roxen.html_encode_string( _format(query()) ); }
a968342000-08-25Martin Nilsson  string render_form( RequestID id, void|mapping additional_args )
d1de942000-08-19Martin Nilsson  { int size = 15;
84a73d2000-09-18Per Hedbor  if( _max != _min )
d1de942000-08-19Martin Nilsson  size = max( strlen(_format(_max)), strlen(_format(_min)) )+2;
53bf482000-12-30Martin Nilsson  return input(path(), (query()==""?"":_format(query())), size, additional_args);
d1de942000-08-19Martin Nilsson  } } // ===================================================================== // Int // ===================================================================== class Int //! Integer variable, with optional range checks { inherit Variable; constant type = "Int";
a968342000-08-25Martin Nilsson  static int _max, _min;
d1de942000-08-19Martin Nilsson  void set_range(int minimum, int maximum ) //! Set the range of the variable, if minimum and maximum are both //! 0 (the default), the range check is removed. { _max = maximum; _min = minimum; }
6fd6832000-11-27Per Hedbor  array(string|int) verify_set( mixed new_value )
d1de942000-08-19Martin Nilsson  { string warn;
6fd6832000-11-27Per Hedbor  if(!intp( new_value ) )
e05d532000-11-27Martin Nilsson  return ({ sprintf(LOCALE(152,"%O is not an integer"),new_value),
6fd6832000-11-27Per Hedbor  query() });
a968342000-08-25Martin Nilsson  if( new_value > _max && _max > _min )
d1de942000-08-19Martin Nilsson  {
55a8662000-11-20Per Hedbor  warn = sprintf(LOCALE(328,"Value is bigger than %s, adjusted"),
9f97972000-11-20Per Hedbor  (string)_max );
a968342000-08-25Martin Nilsson  new_value = _max; } else if( new_value < _min && _min < _max) {
55a8662000-11-20Per Hedbor  warn = sprintf(LOCALE(329,"Value is less than %s, adjusted"),
9f97972000-11-20Per Hedbor  (string)_min );
a968342000-08-25Martin Nilsson  new_value = _min;
d1de942000-08-19Martin Nilsson  } return ({ warn, new_value }); }
6fd6832000-11-27Per Hedbor  int transform_from_form( mixed what )
d1de942000-08-19Martin Nilsson  {
6fd6832000-11-27Per Hedbor  sscanf( what, "%d", what ); return what;
d1de942000-08-19Martin Nilsson  }
a968342000-08-25Martin Nilsson  string render_form( RequestID id, void|mapping additional_args )
d1de942000-08-19Martin Nilsson  { int size = 10;
84a73d2000-09-18Per Hedbor  if( _min != _max )
d1de942000-08-19Martin Nilsson  size = max( strlen((string)_max), strlen((string)_min) )+2;
a968342000-08-25Martin Nilsson  return input(path(), (string)query(), size, additional_args);
d1de942000-08-19Martin Nilsson  } } // ===================================================================== // String // ===================================================================== class String //! String variable { inherit Variable; constant type = "String"; constant width = 40; //! The width of the input field. Used by overriding classes.
613baf2000-09-28Per Hedbor  array(string) verify_set_from_form( string new ) { return ({ 0, new-"\r" }); }
a968342000-08-25Martin Nilsson  string render_form( RequestID id, void|mapping additional_args )
d1de942000-08-19Martin Nilsson  {
a968342000-08-25Martin Nilsson  return input(path(), (string)query(), width, additional_args);
d1de942000-08-19Martin Nilsson  } } // ===================================================================== // Text // ===================================================================== class Text //! Text (multi-line string) variable { inherit String; constant type = "Text"; constant cols = 60; //! The width of the textarea constant rows = 10; //! The height of the textarea
a968342000-08-25Martin Nilsson  string render_form( RequestID id, void|mapping additional_args )
d1de942000-08-19Martin Nilsson  { return "<textarea cols='"+cols+"' rows='"+rows+"' name='"+path()+"'>" + Roxen.html_encode_string( query() || "" ) + "</textarea>"; } } // ===================================================================== // Password // ===================================================================== class Password //! Password variable (uses crypt) { inherit String; constant width = 20; constant type = "Password"; void set_from_form( RequestID id ) { mapping val; if( sizeof( val = get_form_vars(id)) && val[""] && strlen(val[""]) ) set( crypt( val[""] ) ); } string render_view( RequestID id ) { return "******"; }
a968342000-08-25Martin Nilsson  string render_form( RequestID id, void|mapping additional_args )
d1de942000-08-19Martin Nilsson  {
a968342000-08-25Martin Nilsson  additional_args = additional_args || ([]); additional_args->type="password";
2ffb482000-11-19Stefan Wallström  return input(path(), "", 30, additional_args);
d1de942000-08-19Martin Nilsson  } } class File //! A filename { inherit String; constant type = "File"; constant width = 50; string read( ) //! Read the file as a string. { return Stdio.read_bytes( query() ); }
1f4a6c2000-08-28Per Hedbor  Stat stat()
d1de942000-08-19Martin Nilsson  //! Stat the file { return file_stat( query() ); }
be36312000-08-23Per Hedbor  #ifdef __NT__ array verify_set( string value ) { return ::verify_set( replace( value, "\\", "/" ) ); } #endif
d1de942000-08-19Martin Nilsson } class Location //! A location in the virtual filesystem { inherit String; constant type = "Location"; constant width = 50;
81251c2000-11-20Per Hedbor  array verify_set( string value ) { if( !strlen( value ) || !((<'~','/'>)[value[-1]]) ) return ({
55a8662000-11-20Per Hedbor  LOCALE(330,"You most likely want an ending '/' on this variable"),
81251c2000-11-20Per Hedbor  value }); return ::verify_set( value ); }
d1de942000-08-19Martin Nilsson } class URL //! A URL. { inherit String; constant type = "URL"; constant width = 50;
b8fd5c2000-09-28Per Hedbor  array verify_set_from_form( string new_value )
d1de942000-08-19Martin Nilsson  { return verify_port( new_value, 1 ); } } class Directory //! A Directory. { inherit String; constant type = "Directory"; constant width = 50; array verify_set( string value ) {
be36312000-08-23Per Hedbor #ifdef __NT__ value = replace( value, "\\", "/" ); #endif if( strlen(value) && value[-1] != '/' ) value += "/";
f637572000-08-22Per Hedbor  if( !strlen( value ) ) return ::verify_set( value );
d1de942000-08-19Martin Nilsson  if( !(r_file_stat( value ) && (r_file_stat( value )[ ST_SIZE ] == -2 )))
55a8662000-11-20Per Hedbor  return ({sprintf(LOCALE(331,"%s is not a directory"),value)+"\n",value});
d1de942000-08-19Martin Nilsson  return ::verify_set( value ); }
1f4a6c2000-08-28Per Hedbor  Stat stat()
d1de942000-08-19Martin Nilsson  //! Stat the directory { return file_stat( query() ); } array get( ) //! Return a listing of all files in the directory { return get_dir( query() ); } } // ===================================================================== // MultipleChoice (one of many) baseclass // ===================================================================== class MultipleChoice //! Base class for multiple-choice (one of many) variables. { inherit Variable; static array _list = ({}); static mapping _table = ([]); void set_choice_list( array to ) //! Set the list of choices. { _list = to; } array get_choice_list( ) //! Get the list of choices. Used by this class as well. //! You can overload this function if you want a dynamic list. { return _list; } void set_translation_table( mapping to ) //! Set the lookup table. { _table = to; } mapping get_translation_table( ) //! Get the lookup table. Used by this class as well. //! You can overload this function if you want a dynamic table. { return _table; } static string _name( mixed what ) //! Get the name used as value for an element gotten from the //! get_choice_list() function. { return (string)what; } static string _title( mixed what ) //! Get the title used as description (shown to the user) for an //! element gotten from the get_choice_list() function. { if( mapping tt = get_translation_table() ) return tt[ what ] || (string)what; return (string)what; }
a968342000-08-25Martin Nilsson  string render_form( RequestID id, void|mapping additional_args )
d1de942000-08-19Martin Nilsson  { string res = "<select name='"+path()+"'>\n";
ef40dc2000-09-01Martin Stjernholm  string current = _name (query()); int selected = 0;
d1de942000-08-19Martin Nilsson  foreach( get_choice_list(), mixed elem ) { mapping m = ([]); m->value = _name( elem );
ef40dc2000-09-01Martin Stjernholm  if( equal( m->value, current ) ) {
d1de942000-08-19Martin Nilsson  m->selected="selected";
ef40dc2000-09-01Martin Stjernholm  selected = 1; }
d1de942000-08-19Martin Nilsson  res += " "+Roxen.make_container( "option", m, _title( elem ) )+"\n"; }
ef40dc2000-09-01Martin Stjernholm  if (!selected) // Make an entry for the current value if it's not in the list, // so no other value appears to be selected, and to ensure that // the value doesn't change as a side-effect by another change.
c6fd2e2000-09-03Per Hedbor  res += " " + Roxen.make_container (
9f97972000-11-20Per Hedbor  "option", (["value":_name(current), "selected": "selected"]),
55a8662000-11-20Per Hedbor  sprintf(LOCALE(332,"(keep stale value %s)"),_name(current)));
d1de942000-08-19Martin Nilsson  return res + "</select>"; } static void create( mixed default_value, array|mapping choices,
79ca872000-11-24Per Hedbor  int _flags, LocaleString std_name, LocaleString std_doc )
d1de942000-08-19Martin Nilsson  //! Constructor. //! //! Choices is the list of possible choices, can be set with //! set_choice_list at any time. //! //! Flags is a bitwise or of one or more of //! //! VAR_EXPERT Only for experts //! VAR_MORE Only visible when more-mode is on (default on) //! VAR_DEVELOPER Only visible when devel-mode is on (default on) //! VAR_INITIAL Should be configured initially. //! //! The std_name and std_doc is the name and documentation string //! for the default locale (always english) { ::create( default_value, _flags, std_name, std_doc ); if( mappingp( choices ) ) { set_translation_table( choices ); set_choice_list( indices(choices) ); } else set_choice_list( choices ); } } // ===================================================================== // MultipleChoice subclasses // ===================================================================== class StringChoice //! Select one of many strings. { inherit MultipleChoice; constant type = "StringChoice"; } class IntChoice //! Select one of many integers. { inherit MultipleChoice; constant type = "IntChoice"; int transform_from_form( string what ) { return (int)what; } } class FloatChoice //! Select one of many floating point (real) numbers. { inherit MultipleChoice; constant type = "FloatChoice"; static int _prec = 3; void set_precision( int prec ) //! Set the number of _decimals_ shown to the user. //! If prec is 3, and the float is 1, 1.000 will be shown. //! Default is 2. { _prec = prec; } static string _title( mixed what ) { if( !_prec ) return sprintf( "%d", (int)what ); return sprintf( "%1."+_prec+"f", what ); } int transform_from_form( string what ) { array q = get_choice_list(); mapping a = mkmapping( map( q, _name ), q ); return a[what] || (float)what; // Do we want this fallback? } } class FontChoice //! Select a font from the list of available fonts { inherit StringChoice; constant type = "FontChoice"; void set_choice_list() { } array get_choice_list() { return roxenp()->fonts->available_fonts(); } static void create(mixed default_value,int flags,
79ca872000-11-24Per Hedbor  LocaleString std_name,LocaleString std_doc)
d1de942000-08-19Martin Nilsson  //! Constructor. //! Flags is a bitwise or of one or more of //! //! VAR_EXPERT Only for experts //! VAR_MORE Only visible when more-mode is on (default on) //! VAR_DEVELOPER Only visible when devel-mode is on (default on) //! VAR_INITIAL Should be configured initially. //! //! The std_name and std_doc is the name and documentation string //! for the default locale (always english) { ::create( default_value, 0, flags,std_name, std_doc ); } } // ===================================================================== // List baseclass // ===================================================================== class List //! Many of one type types {
0a19152000-11-11Per Hedbor  inherit Variable;
d1de942000-08-19Martin Nilsson  constant type="List"; constant width = 40; string transform_to_form( mixed what ) //! Override this function to do the value->form mapping for //! individual elements in the array. { return (string)what; } mixed transform_from_form( string what ) { return what; } static int _current_count = time()*100+(gethrtime()/10000); void set_from_form(RequestID id) {
f637572000-08-22Per Hedbor  int rn, do_goto;
d1de942000-08-19Martin Nilsson  array l = query(); mapping vl = get_form_vars(id); // first do the assign... if( (int)vl[".count"] != _current_count ) return; _current_count++; foreach( indices( vl ), string vv ) if( sscanf( vv, ".set.%d", rn ) ) { m_delete( id->variables, path()+vv ); l[rn] = transform_from_form( vl[vv] ); m_delete( vl, vv ); } // then the move... foreach( indices(vl), string vv ) if( sscanf( vv, ".up.%d.x%*s", rn ) == 2 ) {
f637572000-08-22Per Hedbor  do_goto = 1;
d1de942000-08-19Martin Nilsson  m_delete( id->variables, path()+vv ); m_delete( vl, vv ); l = l[..rn-2] + l[rn..rn] + l[rn-1..rn-1] + l[rn+1..]; } else if( sscanf( vv, ".down.%d.x%*s", rn )==2 ) {
f637572000-08-22Per Hedbor  do_goto = 1;
d1de942000-08-19Martin Nilsson  m_delete( id->variables, path()+vv ); l = l[..rn-1] + l[rn+1..rn+1] + l[rn..rn] + l[rn+2..]; } // then the possible add. if( vl[".new.x"] ) {
f637572000-08-22Per Hedbor  do_goto = 1;
d1de942000-08-19Martin Nilsson  m_delete( id->variables, path()+".new.x" ); l += ({ transform_from_form( "" ) }); } // .. and delete .. foreach( indices(vl), string vv ) if( sscanf( vv, ".delete.%d.x%*s", rn )==2 ) {
f637572000-08-22Per Hedbor  do_goto = 1;
d1de942000-08-19Martin Nilsson  m_delete( id->variables, path()+vv ); l = l[..rn-1] + l[rn+1..]; }
f637572000-08-22Per Hedbor  if( do_goto ) {
6b81772000-08-30Per Hedbor  if( !id->misc->do_not_goto ) { id->misc->moreheads = ([
edbf2d2000-09-19Per Hedbor  "Location":Roxen.http_encode_string(id->raw_url+"?random="+ random(4949494)+ "&section="+ id->variables->section+ "#"+path()),
6b81772000-08-30Per Hedbor  ]); if( id->misc->defines ) id->misc->defines[ " _error" ] = 302; }
f637572000-08-22Per Hedbor  }
0a19152000-11-11Per Hedbor  array b; mixed q = catch( b = verify_set_from_form( l ) ); if( q || sizeof( b ) != 2 ) { if( q ) set_warning( q ); else
cd87a22000-11-27Martin Nilsson  set_warning( "Internal error: Illegal sized array " "from verify_set_from_form\n" );
0a19152000-11-11Per Hedbor  return; } if( b ) { set_warning( b[0] ); set( b[1] ); }
d1de942000-08-19Martin Nilsson  }
a968342000-08-25Martin Nilsson  string render_form( RequestID id, void|mapping additional_args )
d1de942000-08-19Martin Nilsson  { string prefix = path()+"."; int i;
f637572000-08-22Per Hedbor  string res = "<a name='"+path()+"'>\n</a><table>\n" "<input type='hidden' name='"+prefix+"count' value='"+_current_count+"' />\n";
d1de942000-08-19Martin Nilsson  foreach( map(query(), transform_to_form), string val ) {
f637572000-08-22Per Hedbor  res += "<tr>\n<td><font size='-1'>"+ input( prefix+"set."+i, val, width) + "</font></td>\n";
d1de942000-08-19Martin Nilsson #define BUTTON(X,Y) ("<submit-gbutton2 name='"+X+"'>"+Y+"</submit-gbutton2>")
e69c012000-08-31Martin Nilsson #define REORDER(X,Y) ("<submit-gbutton2 name='"+X+"' icon-src='"+Y+"'></submit-gbutton2>")
d1de942000-08-19Martin Nilsson  if( i ) res += "\n<td>"+
e69c012000-08-31Martin Nilsson  REORDER(prefix+"up."+i, "/internal-roxen-up")+
d1de942000-08-19Martin Nilsson  "</td>"; else
f637572000-08-22Per Hedbor  res += "\n<td></td>";
d1de942000-08-19Martin Nilsson  if( i != sizeof( query())- 1 ) res += "\n<td>"+
e69c012000-08-31Martin Nilsson  REORDER(prefix+"down."+i, "/internal-roxen-down")
d1de942000-08-19Martin Nilsson  +"</td>"; else
f637572000-08-22Per Hedbor  res += "\n<td></td>";
d1de942000-08-19Martin Nilsson  res += "\n<td>"+
99a7452000-08-22Andreas Lange  BUTTON(prefix+"delete."+i, LOCALE(227, "Delete") )
d1de942000-08-19Martin Nilsson  +"</td>"; "</tr>"; i++; } res +=
f637572000-08-22Per Hedbor  "\n<tr><td colspan='2'>"+
99a7452000-08-22Andreas Lange  BUTTON(prefix+"new", LOCALE(297, "New row") )+
f637572000-08-22Per Hedbor  "</td></tr></table>\n\n";
d1de942000-08-19Martin Nilsson  return res; } } // ===================================================================== // List subclasses // ===================================================================== class DirectoryList //! A list of directories { inherit List; constant type="DirectoryList"; array verify_set( array(string) value ) { string warn = "";
f637572000-08-22Per Hedbor  foreach( value, string vi ) { if(!strlen(vi)) // empty continue; if( !(r_file_stat( vi ) && (r_file_stat( vi )[ ST_SIZE ] == -2 )))
55a8662000-11-20Per Hedbor  warn += sprintf(LOCALE(331,"%s is not a directory"),vi)+"\n";
f637572000-08-22Per Hedbor  if( strlen(vi) && vi[-1] != '/' ) value = replace( value, vi, vi+"/" );
843ccc2000-08-25Per Hedbor  }
be36312000-08-23Per Hedbor #ifdef __NT__
843ccc2000-08-25Per Hedbor  value = map( value, replace, "\\", "/" );
be36312000-08-23Per Hedbor #endif
d1de942000-08-19Martin Nilsson  if( strlen( warn ) ) return ({ warn, value });
f637572000-08-22Per Hedbor 
d1de942000-08-19Martin Nilsson  return ::verify_set( value ); } } class StringList //! A list of strings { inherit List; constant type="StringList"; } class IntList //! A list of integers { inherit List; constant type="IntList"; constant width=20; string transform_to_form(int what) { return (string)what; } int transform_from_form(string what) { return (int)what; } } class FloatList //! A list of floating point numbers { inherit List;
a968342000-08-25Martin Nilsson  constant type="DirectoryList";
d1de942000-08-19Martin Nilsson  constant width=20; static int _prec = 3; void set_precision( int prec ) //! Set the number of _decimals_ shown to the user. //! If prec is 3, and the float is 1, 1.000 will be shown. //! Default is 2. { _prec = prec; } string transform_to_form(int what) { return sprintf("%1."+_prec+"f", what); } float transform_from_form(string what) { return (float)what; } } class URLList //! A list of URLs { inherit List;
a968342000-08-25Martin Nilsson  constant type="URLList";
d1de942000-08-19Martin Nilsson 
b8fd5c2000-09-28Per Hedbor  array verify_set_from_form( array(string) new_value )
d1de942000-08-19Martin Nilsson  { string warn = ""; array res = ({}); foreach( new_value, string vv ) { string tmp1, tmp2; [tmp1,tmp2] = verify_port( vv, 1 ); if( tmp1 ) warn += tmp1; res += ({ tmp2 }); } if( !strlen( warn ) ) warn = 0; return ({ warn, res }); } } class PortList //! A list of Port URLs { inherit List; constant type="PortList";
b8fd5c2000-09-28Per Hedbor  array verify_set_from_form( array(string) new_value )
d1de942000-08-19Martin Nilsson  { string warn = ""; array res = ({}); foreach( new_value, string vv ) { string tmp1, tmp2; [tmp1,tmp2] = verify_port( vv, 0 ); if( tmp1 ) warn += tmp1; res += ({ tmp2 }); } if( !strlen( warn ) ) warn = ""; return ({ warn, res }); } } class FileList //! A list of filenames. { inherit List; constant type="FileList";
be36312000-08-23Per Hedbor  #ifdef __NT__ array verify_set( array(string) value ) { return ::verify_set( map( value, replace, "\\", "/" ) ); } #endif
d1de942000-08-19Martin Nilsson } // ===================================================================== // Flag // ===================================================================== class Flag //! A on/off toggle. { inherit Variable; constant type = "Flag"; int transform_from_form( string what ) { return (int)what; }
a968342000-08-25Martin Nilsson  string render_form( RequestID id, void|mapping additional_args )
d1de942000-08-19Martin Nilsson  { string res = "<select name=\""+path()+"\"> "; if(query()) res += "<option value=\"1\" selected=\"selected\">" + LOCALE("yes", "Yes")+ "</option>\n" "<option value=\"0\">" +LOCALE("no", "No")+ "</option>\n"; else res += "<option value=\"1\">" +LOCALE("yes", "Yes")+ "</option>\n" "<option value=\"0\" selected>" +LOCALE("no", "No")+ "</option>\n"; return res+"</select>"; } } // ================================================================= // Utility functions used in multiple variable classes above // =================================================================
a968342000-08-25Martin Nilsson static array(string) verify_port( string port, int nofhttp )
d1de942000-08-19Martin Nilsson { if(!strlen(port)) return ({ 0, port });
9f97972000-11-20Per Hedbor 
d1de942000-08-19Martin Nilsson  string warning=""; if( (int)port ) {
55a8662000-11-20Per Hedbor  warning += sprintf(LOCALE(333,"Assuming http://*:%[0]d/ for %[0]d")+"\n",
9f97972000-11-20Per Hedbor  (int)port);
d1de942000-08-19Martin Nilsson  port = "http://*:"+port+"/"; } string protocol, host, path; if(!strlen( port ) )
55a8662000-11-20Per Hedbor  return ({ LOCALE(334,"Empty URL field")+"\n", port });
d1de942000-08-19Martin Nilsson  if(sscanf( port, "%[^:]://%[^/]%s", protocol, host, path ) != 3)
55a8662000-11-20Per Hedbor  return ({ sprintf(LOCALE(335,"%s does not conform to URL syntax")+"\n",port),
9f97972000-11-20Per Hedbor  port });
d1de942000-08-19Martin Nilsson 
bb6d6c2000-11-02Per Hedbor  if( path == "" || path[-1] != '/' )
d1de942000-08-19Martin Nilsson  {
55a8662000-11-20Per Hedbor  warning += sprintf(LOCALE(336,"Added / to the end of %s")+"\n",port);
bb6d6c2000-11-02Per Hedbor  path += "/";
d1de942000-08-19Martin Nilsson  } if( nofhttp && protocol == "fhttp" ) {
55a8662000-11-20Per Hedbor  warning += sprintf(LOCALE(337,"Changed %s to http")+"\n",protocol);
d1de942000-08-19Martin Nilsson  protocol = "http"; } if( protocol != lower_case( protocol ) ) {
55a8662000-11-20Per Hedbor  warning += sprintf(LOCALE(338,"Changed %s to %s"),
9f97972000-11-20Per Hedbor  protocol, lower_case( protocol ))+"\n";
edbf2d2000-09-19Per Hedbor  protocol = lower_case( protocol ); } if(!nofhttp) // it's a port, not a URL {
c50bf62000-09-28Per Hedbor #if constant(SSL.sslfile)
edbf2d2000-09-19Per Hedbor  /* All is A-OK */ #else if( (protocol == "https" || protocol == "ftps") )
9f97972000-11-20Per Hedbor  warning +=
55a8662000-11-20Per Hedbor  LOCALE(339,"SSL support not available in this Pike version.")+"\n"+ sprintf(LOCALE(340,"Please use %s instead."),
9f97972000-11-20Per Hedbor  protocol[..strlen(protocol)-2])+"\n";
edbf2d2000-09-19Per Hedbor #endif
d1de942000-08-19Martin Nilsson  }
9f23122000-09-21Per Hedbor  int pno; if( sscanf( host, "%s:%d", host, pno ) == 2) if( roxenp()->protocols[ lower_case( protocol ) ] && (pno == roxenp()->protocols[ lower_case( protocol ) ]->default_port ))
55a8662000-11-20Per Hedbor  warning += sprintf(LOCALE(341,"Removed the default port number "
9f97972000-11-20Per Hedbor  "(%d) from %s"),pno,port)+"\n";
9f23122000-09-21Per Hedbor  else host = host+":"+pno;
d1de942000-08-19Martin Nilsson 
edbf2d2000-09-19Per Hedbor  port = protocol+"://"+host+path;
d1de942000-08-19Martin Nilsson 
edbf2d2000-09-19Per Hedbor  if( !roxenp()->protocols[ protocol ] )
55a8662000-11-20Per Hedbor  warning += sprintf(LOCALE(342,"Warning: The protocol %s is not known "
9f97972000-11-20Per Hedbor  "by roxen"),protocol)+"\n";
d1de942000-08-19Martin Nilsson  return ({ (strlen(warning)?warning:0), port }); }
a968342000-08-25Martin Nilsson 
ae70232000-12-02Martin Nilsson string input(string name, string value, int size, void|mapping(string:string) args, void|int noxml)
a968342000-08-25Martin Nilsson { if(!args) args=([]); else args+=([]); args->name=name;
ae70232000-12-02Martin Nilsson  if(value) args->value=value; if(!args->size && size)
f4cf462000-11-20Martin Nilsson  args->size=(string)size;
a968342000-08-25Martin Nilsson  string render="<input"; foreach(indices(args), string attr) { render+=" "+attr+"="; if(!has_value(args[attr], "\"")) render+="\""+args[attr]+"\""; else if(!has_value(args[attr], "'")) render+="'"+args[attr]+"'"; else render+="\""+replace(args[attr], "'", "&#39;")+"\""; } if(noxml) return render+">"; return render+" />"; }