--- loncom/startup.pl 2001/01/03 14:25:57 1.2 +++ loncom/startup.pl 2001/10/02 18:50:07 1.3 @@ -1,5 +1,35 @@ #!/usr/bin/perl -use Apache(); -use lib '/home/httpd/lib/perl'; +BEGIN { + use Apache(); + use lib '/home/httpd/lib/perl'; +} + +use Apache::Constants qw(:common :http :methods); +use CGI::Cookie(); +use CGI qw(:standard); +use HTTP::Headers(); + +#use Apache::File(); +#use Crypt::DES(); +#use DBI(); +#use Fcntl qw(:flock); +#use File::Copy(); +#use GDBM_File(); +#use HTML::TokeParser(); +#use HTML::TreeBuilder(); +#use IO::Socket(); +#use LWP::UserAgent(); +#use Math::Cephes qw(:trigs :hypers :bessels erf erfc); +#use Math::Random qw(:all); +#use Opcode(); +#use POSIX qw(strftime); +#use Safe(); +#use Safe::Hole(); +#use Apache::lonnet(); +#use Apache::lonxml(); +#use Apache::lonrep(); +#use Apache::lonuserstate(); +#use Apache::lonacc(); + 1;