View of /trunk/webwork/system/cgi/cgi-scripts/tips.pl

    1 #!/usr/bin/perl
    2 
    3 use lib '/ww/webwork/development/'; # mainWeBWorKDirectory;
    4 require 5.001;
    5 use strict;
    6 
    7 use Global;
    8 use Auth;
    9 use CGI qw(:standard);
   10 
   11 # get information from CGI inputs  (see also below for additional information)
   12 my $Course  = param('course');
   13 my $User  = param('user');
   14 my $Session_key = param('key');
   15 
   16 &Global::getCourseEnvironment(param('course'));
   17 
   18 my $keyFile = &Global::getCourseKeyFile($Course);
   19 &verify_key($User, $Session_key, "$keyFile", $Course);
   20 
   21 my $scriptDirectory = $Global::scriptDirectory;
   22 require "${scriptDirectory}$Global::HTMLglue_pl";
   23 
   24 
   25 print &htmlTOP('tips'),
   26     h1('Tips'),
   27     '<UL>', '<LI>', join('<LI>', &Global::all_tips), '</UL>',
   28     end_html;
   29