[BACK]Return to make_slots.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / debugging_tools

Diff for /loncom/debugging_tools/make_slots.pl between versions 1.5 and 1.6

version 1.5, 2005/08/09 07:34:52 version 1.6, 2005/11/08 02:17:33
Line 16  slots can have these parts;: Line 16  slots can have these parts;:
 Required:  Required:
   starttime - unix time that a slot start    starttime - unix time that a slot start
   endtime - unix time that a slot ends    endtime - unix time that a slot ends
   startreserve - unix time that a slot can start being reserved  
   
 Optional:  
   type - either 'preassigned' or 'schedulable_student'    type - either 'preassigned' or 'schedulable_student'
          (controls whether slotrequest.pm will allow one to select it)           (controls whether slotrequest.pm will allow one to select it)
   
   Optional:
     startreserve - unix time that a slot can start being reserved
   ip - comma seperated list of ip address or wildcard ranges or    ip - comma seperated list of ip address or wildcard ranges or
        wilcard hostnames, or [] style range of allowable client IP         wilcard hostnames, or [] style range of allowable client IP
        addresses         addresses
Line 33  Optional: Line 33  Optional:
   uniqueperiod - if the user has a reservation that has a uniqueperiod    uniqueperiod - if the user has a reservation that has a uniqueperiod
                  that overlaps this don't allow them to schedule this                   that overlaps this don't allow them to schedule this
                  slot                   slot
 Possibly Need: (but not yet supported)  
   secret - arrary ref of words that are the secret for this slot    secret - arrary ref of words that are the secret for this slot
   Possibly Need: (but not yet supported)
   
   
 =cut  =cut
Line 52  $db{'slot2'}= Line 52  $db{'slot2'}=
     &freeze_escape({      &freeze_escape({
  'type'      => 'preassigned',   'type'      => 'preassigned',
  'startreserve' => &UnixDate("Aug 30th 00:00:00 2006","%s"),   'startreserve' => &UnixDate("Aug 30th 00:00:00 2006","%s"),
  'starttime' => &UnixDate("Aug 30th 00:00:00 2006","%s"),   'starttime' => &UnixDate("Aug 30th 00:00:00 2004","%s"),
    #'starttime' => &UnixDate("Aug 30th 00:00:00 2006","%s"),
  'endtime'   => &UnixDate("Aug 30th 00:00:00 2006","%s"),   'endtime'   => &UnixDate("Aug 30th 00:00:00 2006","%s"),
    'endtime'   => &UnixDate("Aug 30th 00:00:00 2004","%s"),
  'ip'        => "*albertelli.com",   'ip'        => "*albertelli.com",
  'proctor'   => 'testuser@annarbor',   'proctor'   => 'testuser@annarbor',
     });      });
Line 85  $db{'slot5'}= Line 87  $db{'slot5'}=
  'description' => 'Aug 30th 4 P.M., Room 123 Kedzie',   'description' => 'Aug 30th 4 P.M., Room 123 Kedzie',
  'startreserve' => &UnixDate("Aug 29th 00:00:00 2004","%s"),   'startreserve' => &UnixDate("Aug 29th 00:00:00 2004","%s"),
  'starttime' => &UnixDate("Aug 30th 00:00:00 2004","%s"),   'starttime' => &UnixDate("Aug 30th 00:00:00 2004","%s"),
  'starttime' => &UnixDate("Aug 30th 00:00:00 2006","%s"),   #'starttime' => &UnixDate("Aug 30th 00:00:00 2006","%s"),
  'endtime' => &UnixDate("Aug 30th 00:00:00 2006","%s"),   'endtime' => &UnixDate("Aug 30th 00:00:00 2006","%s"),
  #'endtime'   => &UnixDate("Aug 30th 00:00:00 2006","%s"),   #'endtime'   => &UnixDate("Aug 30th 00:00:00 2006","%s"),
  #'endtime'   => &UnixDate("Aug 30th 00:00:00 2004","%s"),   'endtime'   => &UnixDate("Aug 30th 00:00:00 2004","%s"),
  #'ip'        => "*albertelli.com,"   #'ip'        => "*albertelli.com,"
  'proctor'   => 'testuser@annarbor',   'proctor'   => 'testuser@annarbor',
  'uniqueperiod' => [&UnixDate("Aug 30th 00:00:00 2004","%s"),   'uniqueperiod' => [&UnixDate("Aug 30th 00:00:00 2004","%s"),
    &UnixDate("Aug 30th 00:00:00 2005","%s")],     &UnixDate("Aug 30th 00:00:00 2005","%s")],
    'maxspace' => 10,
    'secret'   => 'sauce'
     });      });
 $db{'slot6'}=  $db{'slot6'}=
     &freeze_escape({      &freeze_escape({
  'type'      => 'schedulable_student',   'type'      => 'schedulable_student',
  'description' => 'Aug 31th 4 P.M., Room 222 Computer Center',   'description' => 'Aug 31th 4 P.M., Room 222 Computer Center',
  'startreserve' => &UnixDate("Aug 29th 00:00:00 2004","%s"),   'startreserve' => &UnixDate("Aug 29th 00:00:00 2004","%s"),
    #'starttime' => &UnixDate("Aug 30th 00:00:00 2004","%s"),
  'starttime' => &UnixDate("Aug 30th 00:00:00 2006","%s"),   'starttime' => &UnixDate("Aug 30th 00:00:00 2006","%s"),
  'endtime'   => &UnixDate("Aug 30th 00:00:00 2006","%s"),   'endtime'   => &UnixDate("Aug 30th 00:00:00 2006","%s"),
  #'endtime'   => &UnixDate("Aug 30th 00:00:00 2004","%s"),   #'endtime'   => &UnixDate("Aug 30th 00:00:00 2004","%s"),
Line 106  $db{'slot6'}= Line 111  $db{'slot6'}=
  'proctor'   => 'testuser@annarbor',   'proctor'   => 'testuser@annarbor',
  'uniqueperiod' => [&UnixDate("Aug 1st 00:00:00 2005","%s"),   'uniqueperiod' => [&UnixDate("Aug 1st 00:00:00 2005","%s"),
    &UnixDate("Aug 30th 00:00:00 2006","%s")],     &UnixDate("Aug 30th 00:00:00 2006","%s")],
    'maxspace' => 4,
     });      });
   
 sub freeze_escape {  sub freeze_escape {
Removed from v.1.5  
changed lines
  Added in v.1.6

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>