fc8ffc2017-05-23Pontus Östlund #include <config_interface.h>
dd2f1d1999-11-17Per Hedbor #include <config.h> #include <roxen.h>
cf2dec2000-07-11Martin Nilsson 
23414a2000-07-21Andreas Lange //<locale-token project="roxen_config">LOCALE</locale-token>
fc8ffc2017-05-23Pontus Östlund #define LOCALE(X,Y) _STR_LOCALE("roxen_config",X,Y) #define CALL(X,Y) _LOCALE_FUN("roxen_config",X,Y)
cf2dec2000-07-11Martin Nilsson 
dd2f1d1999-11-17Per Hedbor int __lt; string describe_time(int t) { int full; if(localtime(__lt)->yday != localtime(t)->yday) { __lt = t; full=1; } if(full)
b9a7022000-07-15Andreas Lange  return capitalize(roxen->language(roxen.locale->get(),"date")(t));
dd2f1d1999-11-17Per Hedbor  else return sprintf("%02d:%02d",localtime(t)->hour,localtime(t)->min); }
3e3bab2001-01-19Per Hedbor string _units(string unit, int num) {
715d3c2000-07-11Martin Nilsson  if(num==1) return "one "+unit; return num+" "+unit+"s"; }
dd2f1d1999-11-17Per Hedbor string describe_interval(int i) {
715d3c2000-07-11Martin Nilsson  switch(i) { case 0..50:
1c783c2000-07-15Andreas Lange  return CALL("units", _units)("second", i);
715d3c2000-07-11Martin Nilsson  case 51..3560:
1c783c2000-07-15Andreas Lange  return CALL("units", _units)("minute", ((i+20)/60));
715d3c2000-07-11Martin Nilsson  default:
1c783c2000-07-15Andreas Lange  return CALL("units", _units)("hour", ((i+300)/3600));
dd2f1d1999-11-17Per Hedbor  } } string describe_times(array (int) times) { __lt=0; if(sizeof(times) < 6)
3e3bab2001-01-19Per Hedbor  return String.implode_nicely(map(times, describe_time),
fc8ffc2017-05-23Pontus Östlund  LOCALE("cw", "and"));
dd2f1d1999-11-17Per Hedbor  int d, every=1; int ot = times[0]; foreach(times[1..], int t) if(d) { if(abs(t-ot-d)>(d/4)) {
fc8ffc2017-05-23Pontus Östlund  every=0; break;
dd2f1d1999-11-17Per Hedbor  } ot=t; } else d = t-ot; if(every && (times[-1]+d) >= time(1)-10)
23414a2000-07-21Andreas Lange  return (LOCALE(207, "every") +" "
fc8ffc2017-05-23Pontus Östlund  +describe_interval(d)+" "+LOCALE(208, "since")+" "+ describe_time(times[0]));
dd2f1d1999-11-17Per Hedbor  return String.implode_nicely(map(times[..4], describe_time)+({"..."})+
fc8ffc2017-05-23Pontus Östlund  map(times[sizeof(times)-3..], describe_time), LOCALE("cw", "and"));
dd2f1d1999-11-17Per Hedbor } string fix_err(string s) { sscanf(reverse(s), "%*[ \t\n]%s", s); s=reverse(s); if(s=="") return s; if(!(<'.','!','?'>)[s[-1]]) s+=".";
715d3c2000-07-11Martin Nilsson  return Roxen.html_encode_string(capitalize(s));
dd2f1d1999-11-17Per Hedbor }
fc8ffc2017-05-23Pontus Östlund  constant logitem_tmpl = #" <ul class='logitem'> <li class='err-{{ code }}' title='{{ code_text }}'> {{ &links }} {{ #times }}<span class='times'>{{ times }}</span><br>{{ /times }} {{ &message }} </li> </ul>";
dd2f1d1999-11-17Per Hedbor int last_time;
c60cae2000-02-02Johan Sundström string describe_error(string err, array (int) times,
fc8ffc2017-05-23Pontus Östlund  string lang, int|void no_links)
dd2f1d1999-11-17Per Hedbor { int code, nt;
c60cae2000-02-02Johan Sundström  string links = "", reference, server;
23414a2000-07-21Andreas Lange  array(string) codetext=({ LOCALE(209, "Notice"),
fc8ffc2017-05-23Pontus Östlund  LOCALE(210, "Warning"), LOCALE(211, "Error") });
c60cae2000-02-02Johan Sundström 
dd2f1d1999-11-17Per Hedbor  if(sizeof(times)==1 && times[0]/60==last_time) nt=1; last_time=times[0]/60;
c60cae2000-02-02Johan Sundström  sscanf(err, "%d,%[^,],%s", code, reference, err);
fc8ffc2017-05-23Pontus Östlund 
c60cae2000-02-02Johan Sundström  switch(no_links) { Configuration conf; RoxenModule module; case 2: sscanf(reference, "%[^/]", server); if(conf = roxen->find_configuration( server ))
fc8ffc2017-05-23Pontus Östlund  links += sprintf("<a href=\"%s\">%s</a> : ", @get_conf_url_to_virtual_server( conf, lang ));
c60cae2000-02-02Johan Sundström  case 1: // find_configuration(configinterface)->query_name() == realname
715d3c2000-07-11Martin Nilsson  if(module = Roxen.get_module( reference ))
fc8ffc2017-05-23Pontus Östlund  links += sprintf("<a href=\"%s\">%s</a> : ", @get_conf_url_to_module( module, lang ));
c60cae2000-02-02Johan Sundström  }
fc8ffc2017-05-23Pontus Östlund  mapping mctx = ([ "code" : code, "code_text" : codetext[code-1], "links" : links, "times" : nt ? 0 : describe_times(times), "message" : replace(fix_err(err), "\n", "<br />\n") ]);
bf66c32018-02-28Pontus Östlund  string out = Roxen.render_mustache(logitem_tmpl, mctx);
fc8ffc2017-05-23Pontus Östlund  return out; // return "<table class='logitems'><tr><td><img src=&usr.err-"+code+"; \n" // "alt=\"" + codetext[code-1] + "\" />" // "</td><td>" + links + (nt?"":describe_times(times)+"<br />") + // replace(fix_err(err), "\n", "<br />\n") + "</table>";
c60cae2000-02-02Johan Sundström } // Returns ({ URL to module config page, human-readable (full) module name })
3e3bab2001-01-19Per Hedbor array(string) get_conf_url_to_module(string|RoxenModule m, string|void lang) { // module is either a RoxenModule object or a string as returned by
c60cae2000-02-02Johan Sundström  // get_modname(some RoxenModule), eg "ConfigInterface/piketag#0"
715d3c2000-07-11Martin Nilsson  RoxenModule module = stringp(m) ? Roxen.get_module(m) : m;
c60cae2000-02-02Johan Sundström  Configuration conf = module->my_configuration(); string url_modname = replace(conf->otomod[module], "#", "!"),
fc8ffc2017-05-23Pontus Östlund  url_confname = conf->name;
c60cae2000-02-02Johan Sundström 
e1fff72016-01-15Henrik Grubbström (Grubba)  return ({ sprintf("/sites/site.html/%s/-!-/%s/?section=Information&amp;&usr.set-wiz-id;",
fc8ffc2017-05-23Pontus Östlund  Roxen.http_encode_url(url_confname), Roxen.http_encode_url(url_modname)), Roxen.html_encode_string(Roxen.get_modfullname(module)) });
c60cae2000-02-02Johan Sundström } // Returns ({ URL to virtual server config page, virtual server name })
3e3bab2001-01-19Per Hedbor array(string) get_conf_url_to_virtual_server(string|Configuration conf,
fc8ffc2017-05-23Pontus Östlund  string|void lang)
3e3bab2001-01-19Per Hedbor { // conf is either a conf object or the configuration's real name, // eg "ConfigInterface"
c60cae2000-02-02Johan Sundström  string url_confname; if(stringp(conf)) conf = roxen->find_configuration(url_confname = conf); else url_confname = conf->name;
fc8ffc2017-05-23Pontus Östlund  return ({ sprintf("/sites/site.html/%s/", Roxen.http_encode_url(url_confname)), Roxen.html_encode_string(conf->query_name()) });
dd2f1d1999-11-17Per Hedbor }
9d477e2001-05-16Per Hedbor