[system] / trunk / webwork / system / cgi / cgi-scripts / tips.pl Repository:
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2 - (download) (as text) (annotate)
Thu Jun 14 17:08:51 2001 UTC (18 years, 8 months ago) by sam
File size: 742 byte(s)
initial import

    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 

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9