0917d32013-03-04Anders Johansson // $Id$
1494372003-07-31Anders Johansson 
fc10292022-06-27Henrik Grubbström (Grubba) #if constant(roxen) inherit /*Variable*/.Variable;
0a29482001-08-22Per Hedbor 
5004d12001-08-22Martin Nilsson //! This class implements a scheduler widget with three main states, //! never index, index every n:th hour or index every n:th x-day at y //! o'clock. In the "index every n:th hour" case the range is 1 to 23. //! In the "index every n:th x-day at y o'clock" the n-range is //! 1 to 9, the units are day and all the weekdays. The time range for //! y is all hours in a day.
0a29482001-08-22Per Hedbor // Locale macros //<locale-token project="roxen_config"> LOCALE </locale-token> #define LOCALE(X,Y) \ ([string](mixed)Locale.translate("roxen_config",roxenp()->locale->get(),X,Y))
fc10292022-06-27Henrik Grubbström (Grubba) #endif #define VALS_SORT 0 #define VALS_REPEAT_HOURS 1 #define VALS_REPEAT_COUNT 2 #define VALS_DAY 3 #define VALS_HOUR 4
5004d12001-08-22Martin Nilsson //! Transforms the form variables given in the @[vl] attribute //! to the internal time representation as follows. //!
0a29482001-08-22Per Hedbor //! @array //! @elem int(0..2) sort //! @int //! @value 0 //! Never //! @value 1 //! Every x hour //! @value 2 //! Every x y at z //! @endint //! @elem int(1..23) hour
97c8322002-04-23Henrik Grubbström (Grubba) //! Number of hours between restarts.
5004d12001-08-22Martin Nilsson //!
0a29482001-08-22Per Hedbor //! @elem int(1..9) everynth
97c8322002-04-23Henrik Grubbström (Grubba) //! Number of days or weeks to skip between restarts.
5004d12001-08-22Martin Nilsson //!
0a29482001-08-22Per Hedbor //! @elem int(0..7) day //! @int //! @value 0 //! Day //! @value 1 //! Sunday //! @value 2..7 //! Rest of weekdays //! @endint
d8816e2002-10-22Jonas Wallden //! @elem int(0..23) time
97c8322002-04-23Henrik Grubbström (Grubba) //! Time at which to restart.
0a29482001-08-22Per Hedbor //! @endarray
e7c3402002-10-03Anders Johansson array transform_from_form( string what, mapping vl )
0a29482001-08-22Per Hedbor { array res = query() + ({}); if(sizeof(res)!=5) res = ({ 0, 2, 1, 6, 3 });
fc10292022-06-27Henrik Grubbström (Grubba)  res[VALS_SORT] = (int)what; for(int i=1; i <= VALS_HOUR; i++) {
0a29482001-08-22Per Hedbor  res[i] = (int)vl[(string)i]; res[i] = max( ({ 0, 1, 1, 0, 0 })[i], res[i] ); res[i] = min( ({ 2, 23, 9, 7, 23 })[i], res[i] ); } return res; }
96718a2019-04-29Henrik Grubbström (Grubba) protected int mktime(mapping m) { int t = predef::mktime(m); if (m->timezone) { // Compensate for cases where predef::mktime() is broken. // Cf [WS-469]. t += t - predef::mktime(localtime(t)); } return t; }
e7c3402002-10-03Anders Johansson private mapping next_or_same_day(mapping from, int day, int hour)
0a29482001-08-22Per Hedbor {
e7c3402002-10-03Anders Johansson  if(from->wday==day && from->hour<hour) return from;
0a29482001-08-22Per Hedbor  return next_day(from, day); } private mapping next_day(mapping from, int day) {
795b952020-03-27Henrik Grubbström (Grubba)  int num_days = ((6 + day - from->wday) % 7) + 1; // NB: Use a time in the middle of the date to ensure that we // don't miss the next day due to DST or similar. // Adjust the hour back to 00 afterwards. from->hour = 12; mapping m = localtime(mktime(from) + num_days * 3600 * 24); m->hour = from->hour = 0; return m;
0a29482001-08-22Per Hedbor } private mapping next_or_same_time(mapping from, int hour, void|int delta) { if(from->hour==hour) return from; return next_time(from, hour, delta); } private mapping next_time(mapping from, int hour, void|int delta) { if(from->hour<hour) { from->hour = hour; return from; }
4dbfcf2002-04-25Anders Johansson  return localtime(mktime(from) + (24 - from->hour + hour)*3600 + delta);
0a29482001-08-22Per Hedbor } int get_next( int last )
5004d12001-08-22Martin Nilsson //! Get the next time that matches this schedule, starting from the //! posix time @[last]. If last is 0, time(1) will be used instead. //! //! @returns //! When the next scheduled event is, represented by a posix time integer.
fc10292022-06-27Henrik Grubbström (Grubba) //! Note that the returned time may already have occured, so all return
5004d12001-08-22Martin Nilsson //! values < time() essentially means go ahead and do it right away. //! Minutes and seconds are cleared in the return value, so if the scheduler //! is set to every day at 5 o'clock, and this method is called at 5:42 it //! will return the posix time representing 5:00, unless of course @[last] //! was set to a posix time >= 5:00.
97c8322002-04-23Henrik Grubbström (Grubba) //! Returns @tt{-1@} if the schedule is disabled (@tt{"Never"@}).
0a29482001-08-22Per Hedbor { array vals = query();
fc10292022-06-27Henrik Grubbström (Grubba)  if( !vals[VALS_SORT] )
0a29482001-08-22Per Hedbor  return -1;
e7c3402002-10-03Anders Johansson  // Every n:th hour.
fc10292022-06-27Henrik Grubbström (Grubba)  if( vals[VALS_SORT] == 1 )
0a29482001-08-22Per Hedbor  if( !last ) return time(1); else
fc10292022-06-27Henrik Grubbström (Grubba)  return last + 3600 * vals[VALS_REPEAT_HOURS];
0a29482001-08-22Per Hedbor  mapping m = localtime( last || time(1) ); m->min = m->sec = 0;
fc10292022-06-27Henrik Grubbström (Grubba)  if( !vals[VALS_DAY] ) {
0757312002-10-09Anders Johansson  // Every n:th day at x. if (!last) {
fc10292022-06-27Henrik Grubbström (Grubba)  for(int i; i<vals[VALS_REPEAT_COUNT]; i++) m = next_or_same_time( m, vals[VALS_HOUR] );
0757312002-10-09Anders Johansson  return mktime(m); } else {
fc10292022-06-27Henrik Grubbström (Grubba)  for(int i; i<vals[VALS_REPEAT_COUNT]; i++) m = next_time( m, vals[VALS_HOUR] );
0757312002-10-09Anders Johansson  return mktime(m); } } // Every x-day at y. if (!last) {
fc10292022-06-27Henrik Grubbström (Grubba)  for(int i; i<vals[VALS_REPEAT_COUNT]; i++)
0757312002-10-09Anders Johansson  {
fc10292022-06-27Henrik Grubbström (Grubba)  m = next_or_same_time( next_or_same_day( m, vals[VALS_DAY]-1, vals[VALS_HOUR]+1 ), vals[VALS_HOUR], 6*24*3600 );
0757312002-10-09Anders Johansson  }
0a29482001-08-22Per Hedbor  }
0757312002-10-09Anders Johansson  else
4dbfcf2002-04-25Anders Johansson  {
fc10292022-06-27Henrik Grubbström (Grubba)  for(int i; i<vals[VALS_REPEAT_COUNT]; i++)
0757312002-10-09Anders Johansson  {
fc10292022-06-27Henrik Grubbström (Grubba)  m = next_or_same_time( next_or_same_day( m, vals[VALS_DAY]-1, vals[VALS_HOUR] ), vals[VALS_HOUR], 6*24*3600 );
0757312002-10-09Anders Johansson  }
4dbfcf2002-04-25Anders Johansson  } return mktime(m);
0a29482001-08-22Per Hedbor }
fc10292022-06-27Henrik Grubbström (Grubba) #if constant(roxen) private string checked( int pos, int alt ) { if(alt==query()[pos]) return " checked='checked'"; return ""; }
0a29482001-08-22Per Hedbor string render_form( RequestID id, void|mapping additional_args ) { string res, inp1, inp2, inp3;
fc10292022-06-27Henrik Grubbström (Grubba)  array vals = query();
0a29482001-08-22Per Hedbor  res = "<table>" "<tr valign='top'><td><input name='" + path() + "' value='0' type='radio' " +
9fa11d2001-08-24Martin Nilsson  checked(0,0) + " /></td><td>" + LOCALE(482, "Never") + "</td></tr>\n";
0a29482001-08-22Per Hedbor 
fc10292022-06-27Henrik Grubbström (Grubba)  inp1 = HTML.select(path()+"1", "123456789"/1 + "1011121314151617181920212223"/2, (string)vals[VALS_REPEAT_HOURS]);
0a29482001-08-22Per Hedbor  res += "<tr valign='top'><td><input name='" + path() + "' value='1' type='radio' " +
9fa11d2001-08-24Martin Nilsson  checked(0,1) + " /></td><td>" + sprintf( LOCALE(483, "Every %s hour(s)."), inp1) +
0a29482001-08-22Per Hedbor  "</td></tr>\n";
fc10292022-06-27Henrik Grubbström (Grubba)  inp1 = HTML.select(path()+"2", "123456789"/1, (string)vals[VALS_REPEAT_COUNT]);
3931ad2003-07-25Anders Johansson  inp2 = HTML.select(path()+"3", ({
9fa11d2001-08-24Martin Nilsson  ({ "0", LOCALE(484, "Day") }), ({ "1", LOCALE(485, "Sunday") }), ({ "2", LOCALE(486, "Monday") }), ({ "3", LOCALE(487, "Tuesday") }), ({ "4", LOCALE(488, "Wednesday") }), ({ "5", LOCALE(489, "Thursday") }), ({ "6", LOCALE(490, "Friday") }),
fc10292022-06-27Henrik Grubbström (Grubba)  ({ "7", LOCALE(491, "Saturday") }) }), (string)vals[VALS_DAY]); inp3 = HTML.select(path()+"4", "000102030405060708091011121314151617181920212223"/2, sprintf("%02d", vals[VALS_HOUR]));
0a29482001-08-22Per Hedbor  res += "<tr valign='top'><td><input name='" + path() + "' value='2' type='radio' " + checked(0,2) + " /></td>\n<td>" +
9fa11d2001-08-24Martin Nilsson  sprintf(LOCALE(492, "Every %s %s at %s o'clock."), inp1, inp2, inp3) +
0a29482001-08-22Per Hedbor  "</td></tr>\n</table>"; return res; } string render_view( RequestID id, void|mapping additional_args ) { array res = query();
fc10292022-06-27Henrik Grubbström (Grubba)  switch(res[VALS_SORT]) {
0a29482001-08-22Per Hedbor  case 0:
9fa11d2001-08-24Martin Nilsson  return LOCALE(482, "Never");
0a29482001-08-22Per Hedbor  case 1:
fc10292022-06-27Henrik Grubbström (Grubba)  return sprintf(LOCALE(493, "Every %d hour."), res[VALS_REPEAT_HOURS]);
0a29482001-08-22Per Hedbor  case 2: string period = ({
9fa11d2001-08-24Martin Nilsson  LOCALE(484, "Day"),
e7c3402002-10-03Anders Johansson  LOCALE(485, "Sunday"),
9fa11d2001-08-24Martin Nilsson  LOCALE(486, "Monday"), LOCALE(487, "Tuesday"), LOCALE(488, "Wednesday"), LOCALE(489, "Thursday"), LOCALE(490, "Friday"),
e7c3402002-10-03Anders Johansson  LOCALE(491, "Saturday")
fc10292022-06-27Henrik Grubbström (Grubba)  })[res[VALS_DAY]];
0a29482001-08-22Per Hedbor 
fc10292022-06-27Henrik Grubbström (Grubba)  return sprintf(LOCALE(494, "Every %d %s at %02d:00"), res[VALS_REPEAT_COUNT], period, res[VALS_HOUR]);
0a29482001-08-22Per Hedbor  default:
9fa11d2001-08-24Martin Nilsson  return LOCALE(495, "Error in stored value.");
0a29482001-08-22Per Hedbor  } }
fc10292022-06-27Henrik Grubbström (Grubba)  #endif