if (!defined @avail) {
	foreach (split /\n/, &get("https://$ENV{'HTTP_HOST'}/cgi-bin/booking.pl?command=check&st=$data{'st'}&ed=$data{'ed'}&force=$data{'force'}", $availability);) {
		chomp;
		my ($k, $v) = split/,/;
		$avail[$k] = $v;
	}
}