[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.2 and 1.3

version 1.2, 2005/03/28 21:51:21 version 1.3, 2005/05/31 21:35:51
Line 8  if (! tie(%db,'GDBM_File',$fname,&GDBM_W Line 8  if (! tie(%db,'GDBM_File',$fname,&GDBM_W
     warn "Unable to tie to $fname";      warn "Unable to tie to $fname";
     exit;      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'}=  $db{'slot1'}=
     &freeze_escape({      &freeze_escape({
    'type'      => 'preassigned',
  'starttime' => &UnixDate("Aug 30th 00:00:00 2004","%s"),   'starttime' => &UnixDate("Aug 30th 00:00:00 2004","%s"),
  'endtime'   => &UnixDate("Aug 30th 01:00:00 2004","%s"),   'endtime'   => &UnixDate("Aug 30th 01:00:00 2004","%s"),
  'ip'        => "*albertelli.com",   'ip'        => "*albertelli.com",
Line 17  $db{'slot1'}= Line 49  $db{'slot1'}=
     });      });
 $db{'slot2'}=  $db{'slot2'}=
     &freeze_escape({      &freeze_escape({
    'type'      => 'preassigned',
  '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"),
  'ip'        => "*albertelli.com",   'ip'        => "*albertelli.com",
Line 24  $db{'slot2'}= Line 57  $db{'slot2'}=
     });      });
 $db{'slot3'}=  $db{'slot3'}=
     &freeze_escape({      &freeze_escape({
    'type'      => 'preassigned',
    'description' => 'slot3',
  'starttime' => &UnixDate("Aug 30th 00:00:00 2004","%s"),   '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 2006","%s"),
           'endtime'   => &UnixDate("Aug 30th 00:00:00 2004","%s"),
  'ip'        => "1.2.3.4",   'ip'        => "1.2.3.4",
    'ip'        => "*albertelli.com",
  'proctor'   => 'testuser@annarbor',   'proctor'   => 'testuser@annarbor',
     });      });
 $db{'slot4'}=  $db{'slot4'}=
     &freeze_escape({      &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"),   '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 2006","%s"),
    'endtime'   => &UnixDate("Aug 30th 00:00:00 2004","%s"),
  'ip'        => "*albertelli.com",   'ip'        => "*albertelli.com",
  'proctor'   => 'testuser@annarbor',   'proctor'   => 'testuser@annarbor',
     });      });
Removed from v.1.2  
changed lines
  Added in v.1.3

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