--- loncom/debugging_tools/make_slots.pl 2005/03/21 18:53:51 1.1 +++ loncom/debugging_tools/make_slots.pl 2005/05/31 21:35:51 1.3 @@ -8,29 +8,92 @@ if (! tie(%db,'GDBM_File',$fname,&GDBM_W warn "Unable to tie to $fname"; exit; } + +=pod + +slots can have these parts;: + +Required: + starttime - unix time that a slot start + endtime - unix time that a slot ends + + +Optional: + type - either 'preassigned' or 'scheduleable_student' + (controls whether slotrequest.pm will allow one to select it) + ip - comma seperated list of ip address or wildcard ranges or + wilcard hostnames, or [] style range of allowable client IP + addresses + proctor - comma seperated list of user@domain that can checkin a user + description - string that will displayed to people when talking about + this slot + maxspace - integer (number of people that can schedule this space) + (if unspecfied no limit is used) + +Possibly Need: (but not yet supported) + symb - arrayref of symbs that can be scheduled to be done in this slot + uniqperiod - if the user has a reservation that has a uniqpersion + that overlaps this dn't allow them to schedule this + reservation + + +=cut + $db{'slot1'}= &freeze_escape({ + 'type' => 'preassigned', 'starttime' => &UnixDate("Aug 30th 00:00:00 2004","%s"), 'endtime' => &UnixDate("Aug 30th 01:00:00 2004","%s"), 'ip' => "*albertelli.com", + 'proctor' => 'testuser@annarbor', }); $db{'slot2'}= &freeze_escape({ + 'type' => 'preassigned', 'starttime' => &UnixDate("Aug 30th 00:00:00 2006","%s"), 'endtime' => &UnixDate("Aug 30th 00:00:00 2006","%s"), 'ip' => "*albertelli.com", + 'proctor' => 'testuser@annarbor', }); $db{'slot3'}= &freeze_escape({ + 'type' => 'preassigned', + 'description' => 'slot3', 'starttime' => &UnixDate("Aug 30th 00:00:00 2004","%s"), 'endtime' => &UnixDate("Aug 30th 00:00:00 2006","%s"), + 'endtime' => &UnixDate("Aug 30th 00:00:00 2004","%s"), 'ip' => "1.2.3.4", + 'ip' => "*albertelli.com", + 'proctor' => 'testuser@annarbor', }); $db{'slot4'}= &freeze_escape({ + 'type' => 'preassigned', + 'starttime' => &UnixDate("Aug 30th 00:00:00 2004","%s"), + 'endtime' => &UnixDate("Aug 30th 00:00:00 2006","%s"), + 'endtime' => &UnixDate("Aug 30th 00:00:00 2004","%s"), + 'ip' => "*albertelli.com", + 'proctor' => 'testuser@annarbor', + }); +$db{'slot5'}= + &freeze_escape({ + 'type' => 'schedulable_student', + 'description' => 'Aug 30th 4 P.M., Room 123 Kedzie', + 'starttime' => &UnixDate("Aug 30th 00:00:00 2004","%s"), + 'endtime' => &UnixDate("Aug 30th 00:00:00 2006","%s"), + 'endtime' => &UnixDate("Aug 30th 00:00:00 2004","%s"), + 'ip' => "*albertelli.com", + 'proctor' => 'testuser@annarbor', + }); +$db{'slot6'}= + &freeze_escape({ + 'type' => 'schedulable_student', + 'description' => 'Aug 31th 4 P.M., Room 222 Computer Center', 'starttime' => &UnixDate("Aug 30th 00:00:00 2004","%s"), 'endtime' => &UnixDate("Aug 30th 00:00:00 2006","%s"), + 'endtime' => &UnixDate("Aug 30th 00:00:00 2004","%s"), 'ip' => "*albertelli.com", + 'proctor' => 'testuser@annarbor', }); sub freeze_escape {