Parent Directory
| 
Revision Log
The directory courseScripts is no longer created inside the course directory by the course_webwork_setup.pl script. This directory has not ever been used to my knowledge.
1 #!/usr/bin/perl 2 use strict; 3 4 5 ################################################################################ 6 ## 7 ## File: course_webwork_setup.pl (for WeBWorK course installation) 8 ## 9 ## this file changes the permissions to the correct ones in each of the 10 ## subdirectories and the main course directory. It also creates the 11 ## webworkCourse.ph file. 12 ## It prompts the user to enter the correct cgiURL and htmlURL 13 ## The default values for these variables and for the variables pointing 14 ## to the main directory can be set in the file defaults.cws. 15 ## 16 ############################################################################### 17 18 sub getAns { 19 my $ans = <STDIN>; 20 $ans =~ s/^\s*//; 21 $ans = substr($ans, 0, 1); 22 return lc($ans); 23 } 24 25 ################# Prompt to run this script ######################### 26 print qq{ 27 This script is used to setup a WeBWorK course. 28 29 A "demo" or "working" version of the course can be setup. 30 31 This script will create initialization files, directories, 32 and set groups and default permissions. It will make backups 33 of files that are changed. For a "working" version it will 34 not make any changes without prompting. \n 35 36 This script must be run from the base course directory, for 37 example from /www/webwork-root/webwork/courses/mth140a 38 39 You will need the following information:\n 40 1) The course URL (e.g. http://webwork.math.rochester.edu/mth140a/) 41 2) The cgi WeBWorK URL. It is listed in the Global.pm file as \$cgiWebworkURL. 42 Global.pm is a file in the main WeBWorK system directory. 43 3) The symbolic link (e.g. mth140a) pointing to the course (we call this the CLASS_ID). 44 It appears in the courses subdirectory of the main WeBWorK system directory. 45 4) The group (e.g. MTH140A) containing the webserver, your loginID, and the loginID's 46 of anyone else who will creating and editing WeBWorK problems for your course. 47 YOU DO NOT NEED THIS WHEN SETTING UP A "DEMO" VERSION. 48 49 Hit [Enter] to continue... 50 }; 51 my $garbage; 52 $garbage = <STDIN>; 53 54 print qq{ 55 Items 3) and 4) should be set up by your system administrator before running this script. 56 57 In our example the classID and the group name are different, but they can be the same. 58 59 See the html document .../docs/techdescription/usingwebwork.html for detailed 60 explainations. The examples here are taken from those directions. docs is a 61 subdirectory of the main WeBWorK system directory. 62 63 Do you wish to continue\? (y or n) 64 }; 65 66 exit(0) if &getAns ne 'y'; 67 68 69 ################## Find out if setting up a demo or working course ########################## 70 my $course_setup_mode = 'working'; 71 my $file_creation_mode = 'working'; 72 73 print qq{ 74 75 76 You can set up a "working" or a "demo" version of a course. A "demo" version 77 should only be used as a sample course, never for an actual course. In a "demo" 78 version all the system type files specific to the course (e.g. webworkCourse.ph) 79 are world readable and many files are world writable. 80 Other than that, "working" or "demo" versions function the same. 81 82 Do you wish to setup a "working" or a "demo" version? (w or d) 83 }; 84 85 if (&getAns eq 'd') { 86 $course_setup_mode = 'demo'; 87 $file_creation_mode = 'demo'; 88 } 89 90 print qq{ 91 92 Setting up a $course_setup_mode version. 93 94 }; 95 96 ################## read + process defaults file ###################### 97 98 my ($htmlurldefault,$cgiurldefault,$courselinkdefault); 99 open(DEFAULTS, "defaults.cws"); 100 while(<DEFAULTS>) 101 { 102 chomp($_); 103 $_ =~ s/^ //g; 104 if($_ =~ /^#/ || $_ eq "") ## comment line or blank line 105 {} 106 else 107 { 108 $_ =~ /^\s*(\w+)\s*=\s*([-,\s\/\w\.:]*)/; ## does this include everything that can be in a filename or a URL??? 109 if ($1 eq "htmlURL") 110 {$htmlurldefault = $2;} 111 if ($1 eq "cgiURL") 112 {$cgiurldefault = $2;} 113 if ($1 eq "courseLink") 114 {$courselinkdefault = $2;} 115 } 116 } 117 118 close(DEFAULTS); 119 # done with defaults 120 121 122 123 ################### Create directories if they don't exist. ################### 124 my $ans; 125 if ($course_setup_mode eq 'demo') {$ans = 'y';} 126 else { 127 print "\nDefault directory and file permissions are set assuming\n"; 128 print "the webserver is in the group.\n\n"; 129 print "Do you want to create missing directories (if any)\? (y or n)\n"; 130 $ans = &getAns; 131 } 132 if ($ans eq 'y') 133 { 134 print "\n"; 135 unless(-e 'scoring') 136 { 137 mkdir('scoring', 0770); 138 chmod(0770, 'scoring') || die "Can't do chmod on scoring directory"; 139 print 'directory scoring'.", 0770 created.\n"; 140 } 141 unless(-e 'scoring/scoring.log') 142 { 143 open(TEMPCREATEFILE, ">scoring/scoring.log") || die "Can't open scoring/scoring.log"; 144 close(TEMPCREATEFILE); 145 chmod(0660,"scoring/scoring.log") || die "Can't do chmod(0660, scoring/scoring.log)"; 146 print 'file scoring/scoring.log'.", 0660 created.\n"; 147 } 148 unless(-e 'DATA') 149 { 150 mkdir('DATA', 0770); 151 chmod(0770, 'DATA') || die "Can't do chmod on DATA directory"; 152 print 'directory DATA'.", 0770 created.\n"; 153 } 154 unless(-e 'DATA/.auth') 155 { 156 mkdir('DATA/.auth', 0770); 157 chmod(0770, 'DATA/.auth') || die "Can't do chmod on DATA/.auth directory"; 158 print 'directory DATA/.auth'.", 0770 created.\n"; 159 } 160 unless(-e 'html') 161 { 162 mkdir('html', 0770); 163 chmod(0770, 'html') || die "Can't do chmod on html directory"; 164 print 'directory html'.", 0770 created.\n"; 165 } 166 unless(-e 'html/images') 167 { 168 mkdir('html/images', 0770); 169 chmod(0770, 'html/images') || die "Can't do chmod on html/images/ directory"; 170 print 'directory html/images'.", 0770 created.\n"; 171 } 172 unless(-e 'html/tmp') 173 { 174 mkdir('html/tmp', 0770); 175 chmod(0770, 'html/tmp') || die "Can't do chmod on html/tmp/ directory"; 176 print 'directory html/tmp'.", 0770 created.\n"; 177 } 178 unless(-e 'html/tmp/l2h') 179 { 180 mkdir('html/tmp/l2h', 0770); 181 chmod(0770, 'html/tmp/l2h') || die "Can't do chmod on html/tmp/l2h directory"; 182 print 'directory html/tmp/l2h'.", 0770 created.\n"; 183 } 184 unless(-e 'html/tmp/eps') 185 { 186 mkdir('html/tmp/eps', 0770); 187 chmod(0770, 'html/tmp/eps') || die "Can't do chmod on html/tmp/eps directory"; 188 print 'directory html/tmp/eps'.", 0770 created.\n"; 189 } 190 unless(-e 'html/tmp/images') 191 { 192 mkdir('html/tmp/images', 0770); 193 chmod(0770, 'html/tmp/images') || die "Can't do chmod on html/tmp/images directory"; 194 print 'directory html/tmp/images'.", 0770 created.\n"; 195 } 196 unless(-e 'html/tmp/gif') 197 { 198 mkdir('html/tmp/gif', 0770); 199 chmod(0770, 'html/tmp/gif') || die "Can't do chmod on html/tmp/gif directory"; 200 print 'directory html/tmp/gif'.", 0770 created.\n"; 201 } 202 unless(-e 'html/tmp/html') 203 { 204 mkdir('html/tmp/html', 0770); 205 chmod(0770, 'html/tmp/html') || die "Can't do chmod on html/tmp/html directory"; 206 print 'directory html/tmp/html'.", 0770 created.\n"; 207 } 208 # unless(-e 'courseScripts') 209 # { 210 # mkdir('courseScripts', 0750); 211 # chmod(0750, 'courseScripts') || die "Can't do chmod on courseScripts directory"; 212 # print 'directory courseScripts'.", 0750 created.\n"; 213 # } 214 unless(-e 'templates') 215 { 216 mkdir('templates', 0770); 217 chmod(0770, 'templates') || die "Can't do chmod on templates directory"; 218 print 'directory templates'.", 0770 created.\n"; 219 } 220 unless(-e 'templates/email') 221 { 222 mkdir('templates/email', 0770); 223 chmod(0770, 'templates/email') || die "Can't do chmod on templates/email directory"; 224 print 'directory templates/email'.", 0770 created.\n"; 225 } 226 unless(-e 'templates/macros') 227 { 228 mkdir('templates/macros', 0750); 229 chmod(0750, 'templates/macros') || die "Can't do chmod on templates/macros directory"; 230 print 'directory templates/macros'.", 0750 created.\n"; 231 } 232 unless(-e 'logs') 233 { 234 mkdir('logs', 0770); 235 chmod(0770, 'logs') || die "Can't do chmod on logs directory"; 236 print 'logs'.", 0770 created.\n"; 237 } 238 unless(-e 'logs/login.log') 239 { 240 open(TEMPCREATEFILE, ">logs/login.log") || die "Can't open logs/login.log"; 241 close(TEMPCREATEFILE); 242 chmod(0660,"logs/login.log") || die "Can't do chmod(0660, logs/login.log)"; 243 print 'file logs/login.log'.", 0660 created.\n"; 244 } 245 } 246 247 248 249 ##################### get base directory ############################### 250 251 use Cwd; ## module for getting current wording directory 252 253 my $current_dir = cwd(); 254 $current_dir .= '/' unless $current_dir =~ m|/$|; 255 $current_dir =~ m|([^/]+/)$|; 256 my $courseDirectory = $1; 257 258 ####################### Prompt for htmlURL ############################### 259 print "\n\n"; 260 261 print <<MSG1,"--------->"; 262 263 ------------> ENTER course URL <------------- 264 265 This html-URL should be a link in the webserver's htdocs tree which points 266 to the html subdirectory of the course you are creating. See documentation 267 for help. 268 269 (e.g. $htmlurldefault) 270 271 default = $htmlurldefault 272 MSG1 273 274 my $HTML_URL=<STDIN>; 275 chomp($HTML_URL); 276 if ($HTML_URL eq '') 277 { 278 $HTML_URL = $htmlurldefault; 279 } 280 281 $HTML_URL = check_URL('html-URL',$HTML_URL); 282 283 $HTML_URL .= "/" unless $HTML_URL =~ m"/$" ; 284 print qq(\nhtmlURL set to: "$HTML_URL"\n); 285 286 #################### Prompt for cgiURL ################################### 287 print "\n\n\n\n"; 288 289 print <<MSG2,"--------->"; 290 291 ------------> ENTER cgi WeBWorK URL <------------- 292 293 This cgi-URL should be point to the url of the main WeBWorK 294 cgi subdirectory. It is listed in the Global.pm file of the 295 main WeBWorK system as \$cgiWebworkURL . If you use a relative 296 path name (e.g. "/cgi-bin/system/"), don't forget the first "/". 297 298 (e.g. $cgiurldefault) 299 300 default = $cgiurldefault 301 MSG2 302 303 my $CGI_URL=<STDIN>; 304 chomp($CGI_URL); 305 if ($CGI_URL eq '') 306 { 307 $CGI_URL = $cgiurldefault; 308 } 309 310 $CGI_URL = check_URL('cgi-URL',$CGI_URL); 311 312 $CGI_URL .= "/" unless $CGI_URL =~ m"/$" ; 313 print qq(\ncgiURL set to: "$CGI_URL"\n); 314 315 ################## Prompt for courseLink ############################### 316 print "\n\n\n\n"; 317 318 print <<MSG3,"--------->"; 319 320 ------------> ENTER course link (i.e. classID) name <------------- 321 322 This symbolic link (i.e. the classID) points to the course directory. It 323 appears in the courses subdirectory of the main WeBWorK system. (If 324 instead of a link, you have put the actual course directory under 325 .../system/courses/, enter the course directory name.) 326 327 (e.g. mth140a) 328 329 default = $courselinkdefault 330 MSG3 331 my $CLASS_ID=<STDIN>; 332 chomp($CLASS_ID); 333 if ($CLASS_ID eq "") 334 { 335 $CLASS_ID = $courselinkdefault; 336 } 337 print qq(\ncourse link (i.e. the classID) set to: "$CLASS_ID"\n); 338 339 340 ################## Prompt for group ############################### 341 342 my ($name, $passwd, $gid, $members, @info,$groupName); 343 344 if ($course_setup_mode eq 'demo') { 345 @info = getpwuid($<); 346 $gid =$info[3]; 347 $groupName = (getgrgid($gid))[0]; 348 } 349 350 else { 351 print "\n\n\n\n"; 352 353 print <<MSG4,"--------->"; 354 355 ------------> ENTER group name <------------- 356 357 358 This group should have been set up by your systen administrator 359 and must contain at least your userID and (for a "working" version) 360 the userID of the webserver. All files and directories created will 361 have this as their group. 362 363 Enter the group name: 364 MSG4 365 $groupName = <STDIN>; 366 chomp($groupName); 367 368 unless ((defined($groupName)) and ($groupName =~ /\w+/)){ 369 my @info = getpwuid($<); 370 $gid =$info[3]; 371 $groupName = (getgrgid($gid))[0]; 372 } 373 374 print qq(\ngroup will be set to: "$groupName"\n); 375 ($name, $passwd, $gid, $members) = getgrnam ($groupName); 376 377 # check that the group name is valid 378 # should probably check that the webserver is also a member of this group XXXXXXX 379 380 $members = " ".$members." "; ## put a spaces arround string 381 my $username = getpwuid($<); 382 if($members =~ /\s+$username\s+/) 383 { 384 print "\n\nGood. $username is a member of the group $groupName.\n\n"; 385 } 386 else 387 { 388 print "\n\nSorry. $username is NOT a member of the group $groupName.\n"; 389 print "The group for all directories and files will not be changed.\n"; 390 print "Ask your system administrator to set up the group. Then you can\n"; 391 print "change the group by hand (see instructions) or run this script again.\n\n"; 392 die; 393 } 394 } 395 396 ################## BEGIN new webworkCourse.ph ######################### 397 398 open(COURSETMP, ">webworkCourse.ph.tmp"); 399 print COURSETMP <<"ENDCOURSETMP"; 400 401 # file webworkCourse.ph 402 # contains variables specific to a course 403 404 # The variables defined in Global.pm set defaults and 405 # parameters for the whole WeBWorK system. These defaults can 406 # be over ridden for this individual course by redefining 407 # the variables in this webworkCourse.ph file. 408 # For example the default feedback address set in Global.pm as: 409 # \$feedbackAddress = 'webwork\@math.rochester.edu'; 410 # can (and should) be over ridden by entering 411 # \$Global::feedbackAddress = 'apizer\@math.rochester.edu,gage\@math.rochester.edu'; 412 # below where of course you should substitute your own email address 413 # for that of Pizer and Gage (and uncomment the line). 414 415 # \$Global::feedbackAddress = 'apizer\@math.rochester.edu,gage\@math.rochester.edu'; 416 417 418 419 ## In addition, you should customize the following three items for your course 420 421 # If you want to write essay type problems or questionnaires where the results are 422 # emailed back, you have to authorize the email addresses here by uncommenting and 423 # editing the next line. 424 425 # \$PG_environment{'ALLOW_MAIL_TO'} = ['apizer\@math.rochester.edu','gage\@math.rochester.edu']; 426 427 428 # On the Professor page, one can view statistical data on problem sets for 429 # the whole course and section by section or by recitation. You may want to 430 # exclude certain sections or recitations (e.g. those containing practice users, 431 # TA's, or professors) from the overall statistics. Statistics for excluded 432 # sections are reported separately. List the names of all sections and 433 # recitations to be excluded in a coma separated list, e.g. 434 # \@excluse_these_sections_from_overall_statistics = ('', 'T.A.', 'Prof section'); 435 # \@excluse_these_recitations_from_overall_statistics = (''); 436 # If this list is empty or commented out, no sections will be excluded. 437 438 \@excluse_these_sections_from_overall_statistics = (''); 439 \@excluse_these_recitations_from_overall_statistics = (''); 440 441 442 443 # If the following line is uncommented, when the user(s) listed view 444 # a problem or download a set, the file names of the source files will be 445 # listed. Replace 'leeza', etc. by appropiate login names 446 447 #\$PG_environment{'PRINT_FILE_NAMES_FOR'} = ['leeza','apizer','gage']; 448 449 ###################################################################################### 450 ###################################################################################### 451 452 # NORMALLY, THERE SHOULD BE NO NEED FOR CHANGES BELOW THIS LINE. RUN THE SCRIPT 453 # course_webwork_setup.pl AND EVERYTHING SHOULD BE SETUP CORRECTLY. IF YOU DO 454 # EDIT THIS FILE BY HAND, WORK CAREFULLY. REMEMBER THAT ALL DIRECTORY NAMES MUST 455 # END IN A TRALING DIRECTORY DELIMITER. 456 457 458 459 # To make it easier to edit and change these directories we define 460 # the classDirectory. This variable is not used outside this file 461 # and while it is common for all of these directories to reside inside 462 # one directory, it is not necessary. 463 464 \$classDirectory = "\${mainDirectory}courses/$courseDirectory"; 465 466 # The database directory contains data describing the students in the course 467 # and their scores on homework. The cgi scripts run by the webserver must 468 # be able to access the contents of this directory. 469 470 \$databaseDirectory = "\${classDirectory}DATA/"; 471 472 # The templates directory contains the class list, the problem set definition 473 # files and the problem templates. 474 475 \$templateDirectory = "\${classDirectory}templates/"; 476 477 # The email directory contains (templates of) emails which can be sent to everyone 478 # on the classlist. 479 480 \$emailDirectory = "\${templateDirectory}email/"; 481 482 # The macros directory contains macros for the problems 483 # files and the problem templates. If it is commented out, the macro files in 484 # "\${mainDirectory}courseScripts/" are used by default. 485 486 # \$macroDirectory = "\${templateDirectory}macros/"; 487 488 # The scoring directory contains files used by the scoring programs. These 489 # files contain scoring information for the whole class and are used for 490 # calculating semester grades, etc. 491 492 \$scoringDirectory = "\${classDirectory}scoring/"; 493 494 # The html directory contains the first page for the course (index.html), 495 # course documentation, and also subdirectories (e.g. tmp/) 496 # (e.g. tmp/) containing latex2html problems, gifs, etc. The webserver has 497 # direct access to the html directory and the courseURL points to this 498 # directory. 499 500 \$htmlDirectory = "\${classDirectory}html/"; 501 502 # The logs directory contains log fies, e.g. login.log, backup psvn 503 # logs and logs of datamunger activity. 504 505 \$logsDirectory = "\${classDirectory}logs/"; 506 507 508 # This is the temp directory used by downloadPS, etc 509 510 \$courseTempDirectory = "\${classDirectory}html/tmp/"; 511 512 # The courseScripts directory contains perl scripts local to the course, 513 # e.g. displauMacros.pl . If it is commented out, the macro files in 514 # "\${mainDirectory}courseScripts/" are used by default. 515 516 # \$courseScriptsDirectory = "\${classDirectory}courseScripts/"; 517 518 # This is the URL of the course html directory. It points to the \$htmlDirectory 519 # above and it should have been set up correctly by the course_webwork_setup.pl 520 # script. See the documentatiom (run the script or read 521 # .../docs/techdescription/settingupcourse.html). Note that the URL depends on 522 # links in you webserver's htdocs directory and must end in a trailing directory 523 # delimiter (/ for unix). 524 525 \$htmlURL = "$HTML_URL"; 526 527 # This is the URL of the course tmp directory. This is for temporary storage of 528 # html files, images, etc that have to accessible to the webserver. This directory 529 # contains the subdirectories l2h, gif, eps, and html (not the \${classDirectory}html 530 # directory). All these subdirectories and their files will be recreated if deleted 531 # (althought recreating l2h files is time consuminmg). The location of this directory 532 # may be changed fast disk which is not backed up. 533 534 \$courseTempURL = "\${htmlURL}tmp/"; 535 536 # This is the classID, i.e the symbolic link (or directory) that points to the base 537 # course directory. It appears in the courses subdirectory of the main WeBWorK system. 538 539 \$classID = "$CLASS_ID"; 540 541 # This is the name of the default classlist file which resides in the 542 # templateDirectory. This default name is used when students change their 543 # own email addresses and also to edit the classlist file over the web. 544 545 \$classlistFilename = "\${classID}.lst"; 546 547 # This is the name of the group and the numerical gid. (some) Files created by 548 # the WeBWorK system will have their group set to "\$groupID". Normally this 549 # group will contain the webserver, your loginID, and the loginID's of anyone 550 # else who will creating and editing WeBWorK problems for your course. If you 551 # are editing this file by hand and know the \$groupID but not the \$numericalGroupID, 552 # ask your systems administrator or run course_webwork_setup.pl and look at the 553 # webworkCourse.ph it produces. You may also be able to get this information by 554 # looking at the group file usually: /etc/group 555 # Finally, if you have set up a "demo" version, the "\$numericalGroupID" will be 556 # set to -1 which means maintain the current (default) group. 557 ENDCOURSETMP 558 559 if ($file_creation_mode eq 'demo') 560 { 561 print COURSETMP <<"ENDCOURSETMP"; 562 563 \$groupID = "$groupName"; 564 \$numericalGroupID = -1; 565 566 ## this sets the header file over riding the Global setting 567 568 \$Global::SET_HEADER = "paperSetHeader.pg"; 569 570 ENDCOURSETMP 571 } 572 573 else 574 { 575 print COURSETMP <<"ENDCOURSETMP"; 576 577 \$groupID = "$groupName"; 578 \$numericalGroupID = $gid; 579 580 ## this sets the header file over riding the Global setting 581 \$Global::SET_HEADER = "paperSetHeader.pg"; 582 583 ## If uncommented, this sets the default mode for displayed problems 584 ## over riding the Global setting. 585 #\$htmlModeDefault = 'HTML_tth'; # The default mode for displayed problems 586 # (either 'HTML','Latex2HTML', or 'HTML_tth') 587 588 # This sets the default for grading multipart problems. The choices at present are 589 # std_problem_grader or avg_problem_grader. The std_problem_grader gives credit for 590 # a mutipart problem only if all parts are answers correctly. The avg_problem_grader 591 # gives partial credit for a mutipart problems. 592 593 \$PG_environment{PROBLEM_GRADER_TO_USE} = 'avg_problem_grader'; 594 #\$PG_environment{PROBLEM_GRADER_TO_USE} = 'std_problem_grader'; 595 596 597 # This allows or dissallows Destroy and Rebuild. Set to 0 or 1. If set to 1 a 598 # professor can destroy and rebuild problems sets in one operation. This is very 599 # convenient and powerful, but also very dangerous. Usually this is not allowed 600 # in courses students are using. It is often set to 1 in a private course being 601 # used only for developing problem sets. 602 603 \$allowDestroyRebuildProbSets = 0; 604 605 ENDCOURSETMP 606 } 607 608 609 if ($file_creation_mode eq 'demo') 610 { 611 print COURSETMP <<"ENDCOURSETMP"; 612 613 ## File and Directory permissions 614 615 ## These permissions over ride the permissions set in 616 ## Global.pm 617 618 ## e.g. S1-1521.sco in (base course directory)/DATA 619 \$sco_files_permission = 0666; 620 621 ## tie permissions (used in tie commands) 622 ## The database, password, and permissions files 623 ## always take their permissions from the Global 624 ## vaiables below. The important keys file 625 ## takes its permission from \$restricted_tie_permission. 626 \$restricted_tie_permission = 0666; 627 \$standard_tie_permission = 0666; 628 629 ## webwork-database in (base course directory)/DATA 630 \$webwork_database_permission = 0666; 631 632 ## password in (base course directory)/DATA/.auth 633 \$password_permission = 0666; 634 635 ## permissions in (base course directory)/DATA/.auth 636 \$permissions_permission = 0666; 637 638 ## e.g. s1ful.csv in (base course directory)/scoring 639 \$scoring_files_permission = 0666; 640 641 ## e.g. s1bak1.csv in (base course directory)/scoring 642 \$scoring_bak_files_permission = 0666; 643 644 ## e.g. 8587l2h.log in (base course directory)/html/tmp/l2h 645 \$l2h_logs_permission = 0666; 646 647 ## e.g set1/ in (base course directory)/html/tmp/l2h 648 \$l2h_set_directory_permission = 0777; 649 650 ## e.g. 1-1082/ in (base course directory)/html/tmp/l2h/set1 651 \$l2h_prob_directory_permission = 0777; 652 653 ## e.g. 1082output.html in (base course directory)/html/tmp/l2h/set1/1-1082 654 \$l2h_data_permission = 0777; 655 656 ENDCOURSETMP 657 } 658 659 print COURSETMP <<"ENDCOURSETMP"; 660 661 662 ## This (if uncommented) overrides the setting in Global.pm. Use 'db_tie.pl' for the 663 ## DB database and 'gdbm_tie.pl' for the GDBM database. For a "new" database type, 664 ## you will have to write a 'newdb_tie.pl' file. These reside in the scripts directory. 665 666 #\$Global::DBtie_file = 'db_tie.pl'; 667 668 669 ## This tells WeBWorK where to find the file that connects it to a physical database. 670 671 require "\${Global::scriptDirectory}\$Global::DBtie_file"; 672 673 ## These are the file names for the various databases associated with this course. 674 ## These names override the generic names given in Global.pm 675 676 \$CL_Database = "\${classID}_classlist_DB"; 677 \$passwordFilename = "\${classID}_password_DB"; 678 \$permissionsFilename = "\${classID}_permissions_DB"; 679 \$database = "\${classID}_webwork_DB"; 680 681 # The following line is required by perl 682 1; 683 684 ENDCOURSETMP 685 close(COURSETMP); 686 687 ############# END new webworkCourse.ph ######################### 688 689 ###################### BEGIN new index.html ######################### 690 691 open(INDEXTMP, ">index.html.tmp"); 692 print INDEXTMP <<"ENDINDEXTMP"; 693 <HTML> 694 <HEAD> 695 <TITLE>Welcome to WeBWorK</TITLE> 696 </HEAD> 697 698 <BODY BGCOLOR="#FFFFFF"> 699 700 <P ALIGN=CENTER> 701 <IMG SRC="/webwork_system_html/images/webwork.gif" ALIGN=CENTER BORDER=1 ALT="WeBWorK Logo"> 702 </P> 703 704 <BLOCKQUOTE> 705 <H1>WeBWorK Generic Course Login Page for $CLASS_ID</H1> 706 <HR> 707 708 <H2>Log in as "practice" user</H2> 709 710 You may test out WeBWorK by logging in as a 711 "practice" user. To begin, choose the <B>login</B> button below; 712 Use <B><KBD>practice1</KBD></B> as your login name and password. 713 714 <FORM ACTION= "${CGI_URL}login.pl" METHOD="POST"> 715 <INPUT TYPE="HIDDEN" NAME="course" VALUE="$CLASS_ID"> 716 <B><INPUT TYPE=SUBMIT VALUE="Login"></B> 717 </FORM> 718 719 <P> 720 <STRONG>For more information on WeBWorK: </STRONG> 721 <A HREF="http://webwork.math.rochester.edu/docs/docs">Webwork docs</A>. 722 723 <HR> 724 725 726 <FORM ACTION="${CGI_URL}feedback.pl" METHOD="POST"> 727 <INPUT TYPE="image" SRC="/webwork_system_html/images/ww_feedback.gif" BORDER=1 ALT="[Feedback]" VALUE="Feedback"> 728 729 Last updated: <STRONG>22 August 2000</STRONG><BR> 730 <TT>${HTML_URL}index.html</TT> 731 732 </BLOCKQUOTE> 733 734 </BODY></HTML> 735 736 ENDINDEXTMP 737 close(INDEXTMP); 738 ############# END new index.html ######################### 739 740 #################### prompt for creating webworkCourse.ph ################# 741 print "\n\n"; 742 if (-e 'webworkCourse.ph') 743 { 744 if ($course_setup_mode eq 'demo') {$ans = 'y';} 745 else { 746 print "An old webworkCourse.ph exists. Do you want to create a new\n"; 747 print "webworkCourse.ph and save the old file as webworkCourse.ph.bak1?\n"; 748 print "If you answer y, and webworkCourse.ph.bak1 already exits, it\n"; 749 print "will be saved as webworkCourse.ph.bak2. Only two backups are kept. (y or n)\n"; 750 $ans=&getAns; 751 } 752 753 if ($ans eq 'y') 754 { 755 rename('webworkCourse.ph.bak1', 'webworkCourse.ph.bak2'); 756 rename('webworkCourse.ph', 'webworkCourse.ph.bak1'); 757 rename('webworkCourse.ph.tmp', 'webworkCourse.ph') || die "Can't rename webworkCourse.ph.tmp"; 758 chmod 0644, 'webworkCourse.ph'; 759 } 760 else 761 { 762 print "\nThe old webworkCourse.ph has not been changed. You can look\n"; 763 print "at webworkCourse.ph.tmp to see what the new version would have been.\n"; 764 } 765 } 766 else 767 { 768 if ($course_setup_mode eq 'demo') {$ans = 'y';} 769 else { 770 print "Do you want to create a webworkCourse.ph file (we recommmend that\n"; 771 print "you do as it is required for WeBWorK to function)? (y or n)\n"; 772 $ans=&getAns; 773 } 774 if ($ans eq 'y') 775 { 776 rename('webworkCourse.ph.tmp', 'webworkCourse.ph') || die "Can't rename webworkCourse.ph.tmp. 777 Fix the problem and run the setup script again. Stopped "; 778 chmod 0644, 'webworkCourse.ph'; 779 } 780 else 781 { 782 print "\nA webworkCourse.ph file has not been created. You will need to\n"; 783 print "create such a file. You can look at webworkCourse.ph.tmp to see\n"; 784 print "what the file would have looked like.\n"; 785 } 786 } 787 788 #################### prompt for creating index.html ################# 789 790 print "\n\n"; 791 if (-e 'html/index.html') 792 { 793 if ($course_setup_mode eq 'demo') {$ans = 'y';} 794 else { 795 print "An old index.html exists. Do you want to create a new\n"; 796 print "index.html and save the old file as index.html.bak1\?\n"; 797 print "If you answer y, and index.html.bak1 already exits, it\n"; 798 print "will be saved as index.html.bak2. Only two backups are kept. (y or n)\n"; 799 $ans= &getAns; 800 } 801 802 if ($ans eq 'y') 803 { 804 rename('html/index.html.bak1', 'html/index.html.bak2'); 805 rename('html/index.html', 'html/index.html.bak1'); 806 rename('index.html.tmp', 'html/index.html') || die "Can't rename index.html.tmp. Fix the problem and run the setup script again. Stopped "; 807 chmod 0644, 'html/index.html'; 808 } 809 else 810 { 811 print "\nThe old index.html has not been changed. You can look\n"; 812 print "at index.html.tmp to see what the new version would have been.\n"; 813 } 814 } 815 else 816 { 817 if ($course_setup_mode eq 'demo') {$ans = 'y';} 818 else { 819 print "Do you want to create an index.html file (we recommmend that\n"; 820 print "you do as it is required for WeBWorK to function)? (y or n)\n"; 821 822 $ans= &getAns; 823 } 824 if ($ans eq 'y') 825 { 826 rename('index.html.tmp', 'html/index.html') || die "Can't rename index.html.tmp. Fix the problem and run the setup script again. Stopped "; 827 chmod 0644, 'html/index.html'; 828 } 829 else 830 { 831 print "\nA index.html file has not been created. You will need to\n"; 832 print "create such a file. You can look at index.html.tmp to see\n"; 833 print "what the file would have looked like.\n"; 834 } 835 } 836 837 838 ################### Prompt to change the group ########################## 839 if ($course_setup_mode eq 'demo') {$ans = 'y';} 840 else { 841 print qq{ 842 Do you want to set the group for all directories and files\? 843 It is highly recommended that you do so. Note that the default 844 permissions for "working" version assumes the webserver is in 845 the group. (y or n) 846 }; 847 848 849 $ans= &getAns; 850 } 851 { ## bare block to make breaking out easy 852 if ($ans eq 'y') 853 { 854 855 856 chown(-1, $gid, '.'); 857 chown(-1, $gid, <*>); 858 chown(-1, $gid, <logs/*>); 859 chown(-1, $gid, <DATA/*>); 860 chown(-1, $gid, <DATA/.auth>); 861 chown(-1, $gid, <DATA/.auth/*>); 862 chown(-1, $gid, <html/*>); 863 chown(-1, $gid, <html/tmp/*>); 864 chown(-1, $gid, <html/tmp/l2h/*>); 865 chown(-1, $gid, <html/tmp/l2h/*/*>); 866 chown(-1, $gid, <html/tmp/l2h/*/*/*>); 867 chown(-1, $gid, <courseScripts/*>); 868 chown(-1, $gid, <scoring/*>); 869 chown(-1, $gid, <templates/*>); 870 chown(-1, $gid, <templates/*/*>); 871 chown(-1, $gid, <templates/*/*/*>); 872 print qq(\n The group has been set to "$groupName"\n\n); 873 } 874 } ##end of bare block 875 876 877 ######################### Prompt file permission changes ###################### 878 if ($course_setup_mode eq 'demo') {$ans = 'y';} 879 else { 880 print "\n\n\n\n"; 881 print qq( 882 Do you want to set default "$course_setup_mode" permissions for 883 all directories and files\? It is highly recommended that you do so. 884 The default permissions for a "working" version assume the webserver 885 is in the group. 886 Set permissions\? (y or n) 887 ); 888 $ans= &getAns; 889 890 } 891 if ($ans eq 'y') 892 {if ($course_setup_mode eq "demo") 893 { ####demo mode 894 chmod(0755, '.') || die "Can't set permissions correctly for base directory. Fix the problem and run the setup script again. Stopped "; 895 chmod(0755, <*.pl>); ## perl files 896 chmod(0644, <*.ph>); ## ph files 897 chmod(0777, 'scoring') || die "Can't set permissions correctly for scoring directory. Fix the problem and run the setup script again. Stopped "; 898 chmod(0666, <scoring/*>) ; # files in scoring - 600, there may be no files 899 chmod(0777, 'logs') || die "Can't set permissions correctly for logs directory. Fix the problem and run the setup script again. Stopped "; 900 chmod(0666, <logs/*>) ; # files in logs - 660, there may be no files 901 chmod(0777, 'DATA') || die "Can't set permissions correctly for DATA directory. Fix the problem and run the setup script again. Stopped "; 902 chmod(0666, <DATA/*>) ; # files in DATA - 660, there may be no files 903 chmod(0777, 'DATA/.auth') || die "Can't set permissions correctly for DATA/.auth directory. Fix the problem and run the setup script again. Stopped "; 904 chmod(0666, <DATA/.auth/*>) ; # files in DATA/.auth - 660, there may be no files 905 chmod(0755, 'html') || die "Can't set permissions correctly for html directory. Fix the problem and run the setup script again. Stopped "; # html subdir - 750 906 chmod(0644, <html/*>) ; 907 chmod(0777, 'html/images') || die "Can't set permissions correctly for html/images/ directory. Fix the problem and run the setup script again. Stopped "; # html/tmp/ subdir - 775 908 chmod(0777, 'html/tmp') || die "Can't set permissions correctly for html/tmp/ directory. Fix the problem and run the setup script again. Stopped "; # html/tmp/ subdir - 775 909 chmod(0777, 'html/tmp/l2h') || die "Can't set permissions correctly for html/tmp/l2h directory. Fix the problem and run the setup script again. Stopped "; # html/tmp/l2h/ subdir - 775 910 chmod(0777, <html/tmp/l2h/*>); # html/tmp/l2h/ subdir - 775 911 chmod(0777, <html/tmp/l2h/*/*>) ; # html/tmp/l2h/ subdir - 775 912 chmod(0777, <html/tmp/l2h/*/*/*>) ; # html/tmp/l2h/ subdir - 775 913 chmod(0777, 'html/tmp/eps') || die "Can't set permissions correctly for html/tmp/eps directory. Fix the problem and run the setup script again. Stopped "; # html/tmp/l2h/ subdir - 775 914 chmod(0777, 'html/tmp/images') || die "Can't set permissions correctly for html/tmp/images directory. Fix the problem and run the setup script again. Stopped "; # html/tmp/l2h/ subdir - 775 915 chmod(0777, 'html/tmp/gif') || die "Can't set permissions correctly for html/tmp/gif directory. Fix the problem and run the setup script again. Stopped "; # html/tmp/l2h/ subdir - 775 916 chmod(0777, 'html/tmp/html') || die "Can't set permissions correctly for html/tmp/html directory. Fix the problem and run the setup script again. Stopped "; # html/tmp/l2h/ subdir - 775 917 chmod(0755, 'courseScripts') || die "Can't set permissions correctly for courseScripts directory. Fix the problem and run the setup script again. Stopped "; # courseScripts subdir - 750 918 chmod(0755, <courseScripts/*>) ; 919 chmod(0777, 'templates') || die "Can't set permissions correctly for templates directory. Fix the problem and run the setup script again. Stopped "; # templates subdir - 750 920 chmod(0777, <templates/*>) ; # files and directories in templates - 777, there may be no files 921 chmod(0777, <templates/*/*>) ; # files and directories in templates - 777, there may be no files 922 chmod(0777, <templates/*/*/*>) ; # files and directories in templates - 777, there may be no files 923 chmod(0755, 'templates/macros') || die "Can't set permissions correctly for templates/macros directory. Fix the problem and run the setup script again. Stopped "; # templates/macros subdir - 750 924 chmod(0755, <templates/macros/*>) ; # files in templates/macros - 640, there may be no files 925 print "\n Permissions set to default values.\n"; 926 } 927 else #####working mode 928 { 929 chmod(0750, '.') || die "Can't set permissions correctly for base directory. Fix the problem and run the setup script again. Stopped "; 930 chmod(0750, <*.pl>); ## perl files 931 chmod(0640, <*.ph>); ## ph files 932 chmod(0770, 'scoring') || die "Can't set permissions correctly for scoring directory. Fix the problem and run the setup script again. Stopped "; 933 chmod(0660, <scoring/*>) ; # files in scoring - 600, there may be no files 934 chmod(0770, 'logs') || die "Can't set permissions correctly for logs directory. Fix the problem and run the setup script again. Stopped "; 935 chmod(0660, <logs/*>) ; # files in logs - 660, there may be no files 936 chmod(0770, 'DATA') || die "Can't set permissions correctly for DATA directory. Fix the problem and run the setup script again. Stopped "; 937 chmod(0660, <DATA/*>) ; # files in DATA - 660, there may be no files 938 chmod(0770, 'DATA/.auth') || die "Can't set permissions correctly for DATA/.auth directory. Fix the problem and run the setup script again. Stopped "; 939 chmod(0660, <DATA/.auth/*>) ; # files in DATA/.auth - 660, there may be no files 940 chmod(0750, 'html') || die "Can't set permissions correctly for html directory. Fix the problem and run the setup script again. Stopped "; # html subdir - 750 941 chmod(0640, <html/*>) ; 942 chmod(0770, 'html/images') || die "Can't set permissions correctly for html/images/ directory. Fix the problem and run the setup script again. Stopped "; # html/tmp/ subdir - 775 943 chmod(0770, 'html/tmp') || die "Can't set permissions correctly for html/tmp/ directory. Fix the problem and run the setup script again. Stopped "; # html/tmp/ subdir - 775 944 chmod(0770, 'html/tmp/l2h') || die "Can't set permissions correctly for html/tmp/l2h directory. Fix the problem and run the setup script again. Stopped "; # html/tmp/l2h/ subdir - 775 945 chmod(0770, <html/tmp/l2h/*>); # html/tmp/l2h/ subdir - 775 946 chmod(0770, <html/tmp/l2h/*/*>) ; # html/tmp/l2h/ subdir - 775 947 chmod(0770, <html/tmp/l2h/*/*/*>) ; # html/tmp/l2h/ subdir - 775 948 chmod(0770, 'html/tmp/eps') || die "Can't set permissions correctly for html/tmp/eps directory. Fix the problem and run the setup script again. Stopped "; # html/tmp/l2h/ subdir - 775 949 chmod(0770, 'html/tmp/images') || die "Can't set permissions correctly for html/tmp/images directory. Fix the problem and run the setup script again. Stopped "; # html/tmp/l2h/ subdir - 775 950 chmod(0770, 'html/tmp/gif') || die "Can't set permissions correctly for html/tmp/gif directory. Fix the problem and run the setup script again. Stopped "; # html/tmp/l2h/ subdir - 775 951 chmod(0770, 'html/tmp/html') || die "Can't set permissions correctly for html/tmp/html directory. Fix the problem and run the setup script again. Stopped "; # html/tmp/l2h/ subdir - 775 952 chmod(0750, 'courseScripts') || die "Can't set permissions correctly for courseScripts directory. Fix the problem and run the setup script again. Stopped "; # courseScripts subdir - 750 953 chmod(0750, <courseScripts/*>) ; 954 chmod(0770, 'templates') || die "Can't set permissions correctly for templates directory. Fix the problem and run the setup script again. Stopped "; # templates subdir - 750 955 chmod(0770, <templates/*>) ; # files and directories in templates - 770, there may be no files 956 chmod(0770, <templates/*/*>) ; # files and directories in templates - 770, there may be no files 957 chmod(0770, <templates/*/*/*>) ; # files and directories in templates - 770, there may be no files 958 chmod(0750, 'templates/macros') || die "Can't set permissions correctly for templates/macros directory. Fix the problem and run the setup script again. Stopped "; # templates/macros subdir - 750 959 chmod(0750, <templates/macros/*>) ; # files in templates/macros - 640, there may be no files 960 print "\n Permissions set to default values.\n"; 961 } 962 } 963 964 if (-e 'DATA/.auth/keys') { 965 unlink 'DATA/.auth/keys' || warn "Can't remove the DATA/.auth/keys file. You do not have to run the setup script again, but you should remove this file by hand/n"; 966 } 967 968 print qq{ 969 The WeBWorK Course setup script has finished. 970 971 972 In order to complete the setup, please continue reading the instructions about: 973 974 1) using chmod g+xs to set the group setid properly. 975 2) running import_classlist-database.pl in order to set up the classlist, password and permissions databases. 976 3) running setProfPermissions.pl in order to give someone (probably yourself) professor privileges. 977 4) building problem sets (initially just go to the professor's page and click on 'Enter Build 978 Problem set Page). 979 }; 980 981 982 983 984 sub check_URL { 985 my ($name_URL,$var_URL) = @_; 986 my $response = 'y'; 987 while ($response eq 'y') { 988 if (($var_URL =~ m|^/|) or ($var_URL =~ m|^http://|)) { 989 $response = 'n'; 990 } 991 else { 992 print qq{\nThe $name_URL you entered, $var_URL , does not begin with either \n 993 a slash (/) or with http:// . This is almost certainly an error. \n 994 Do you want to enter the $name_URL again? (y or n)}; 995 $response =&getAns; 996 if ($response ne 'n') { 997 print "\n Enter the $name_URL:\n"; 998 $var_URL=<STDIN>; 999 chomp($var_URL); 1000 $response = 'y'; 1001 } 1002 else { 1003 $response = 'n'; 1004 } 1005 } 1006 } 1007 $var_URL; 1008 }
| aubreyja at gmail dot com | ViewVC Help |
| Powered by ViewVC 1.0.9 |