Parent Directory
| 
Revision Log
Revision 94 - (view) (download) (as text)
| 1 : | sam | 2 | #!/usr/local/bin/perl |
| 2 : | |||
| 3 : | sam | 66 | ################################################################################ |
| 4 : | sam | 24 | # WeBWorK |
| 5 : | sam | 2 | # |
| 6 : | sam | 82 | # Copyright (c) 1995-2001 WeBWorK Team, University of Rochester |
| 7 : | sam | 24 | # All rights reserved |
| 8 : | sam | 2 | # |
| 9 : | # $Id$ | ||
| 10 : | sam | 66 | ################################################################################ |
| 11 : | sam | 2 | |
| 12 : | #################### initialization | ||
| 13 : | |||
| 14 : | require 5.000; | ||
| 15 : | use Cwd; | ||
| 16 : | use File::Copy; | ||
| 17 : | |||
| 18 : | # define built-in defaults | ||
| 19 : | my $DEFAULT_PERL_PATH = '/usr/bin/perl'; | ||
| 20 : | my $DEFAULT_CGI_URL = '/cgi-bin/webwork/system/'; | ||
| 21 : | my $DEFAULT_HTML_URL = '/webwork_system_html'; | ||
| 22 : | sam | 48 | my $DEFAULT_SERVER_GROUP = 'webwork'; |
| 23 : | sam | 2 | |
| 24 : | # define code strings | ||
| 25 : | my $CGI_DEBUG_TAG = 'WeBWorKCGIDebugURL'; | ||
| 26 : | my $CGI_NODEBUG_TAG = 'WeBWorKCGINoDebugURL'; | ||
| 27 : | gage | 8 | my $LIB_INIT_LINE_TAG = 'WeBWorKInitLine'; |
| 28 : | sam | 2 | |
| 29 : | # scope and undefine setup variables | ||
| 30 : | sam | 24 | $no_prompts = undef; |
| 31 : | $system_setup_mode = undef; | ||
| 32 : | $mainDir = undef; | ||
| 33 : | $perlPath = undef; | ||
| 34 : | $cgiURL = undef; | ||
| 35 : | $htmlURL = undef; | ||
| 36 : | $groupName = undef; | ||
| 37 : | sam | 48 | $serverGroupName = undef; |
| 38 : | sam | 24 | $update_stuff_in_courses = undef; |
| 39 : | $chgrp_files_and_dirs = undef; | ||
| 40 : | $chmod_files_and_dirs = undef; | ||
| 41 : | $local_preprocessor = undef; | ||
| 42 : | $local_postprocessor = undef; | ||
| 43 : | sam | 2 | |
| 44 : | # read defaults in from defaults file | ||
| 45 : | gage | 6 | my $DEFAULTS_FILE; |
| 46 : | if($ARGV[0]) { $DEFAULTS_FILE = $ARGV[0]; } | ||
| 47 : | else { $DEFAULTS_FILE = ((getpwuid $<)[7]) . '/system_webwork_setup.defaults'; } | ||
| 48 : | sam | 2 | if(-e $DEFAULTS_FILE) { |
| 49 : | print "Reading defaults file..."; | ||
| 50 : | require $DEFAULTS_FILE; | ||
| 51 : | print " done.\n"; | ||
| 52 : | } | ||
| 53 : | |||
| 54 : | #################### text strings | ||
| 55 : | |||
| 56 : | my $INTRO_TEXT = q{ | ||
| 57 : | +----------------------+ | ||
| 58 : | | System Webwork Setup | | ||
| 59 : | +----------------------+ | ||
| 60 : | |||
| 61 : | This script is used to setup the main WeBWorK system. It will create | ||
| 62 : | initialization files, set groups and permissions for files and directories, | ||
| 63 : | and modify files. A "demo" or "working" version of the system can be setup. | ||
| 64 : | |||
| 65 : | You will need the following information: | ||
| 66 : | |||
| 67 : | gage | 6 | 1) The path to perl on your system. Usually this is something like |
| 68 : | sam | 2 | /usr/bin/perl or /usr/local/bin/perl |
| 69 : | |||
| 70 : | gage | 6 | 2) The group (e.g. wwadmin) containing the user names of anyone who has the |
| 71 : | sam | 2 | authority to modify the webwork system files. Who ever runs this script must |
| 72 : | be a member of this group. This should be set up by your system | ||
| 73 : | administrator before running this script. (Note: This is not required for a | ||
| 74 : | demo version.) | ||
| 75 : | |||
| 76 : | gage | 6 | 3) The cgi WeBWorK URL. Usually this is something like |
| 77 : | sam | 2 | http://www.math.rochester.edu/cgi-bin/webwork/system or |
| 78 : | http://webwork.math.rochester.edu/cgi-bin/webwork/system. In the above | ||
| 79 : | cases, you can just enter /cgi-bin/webwork/system which is prefered but if | ||
| 80 : | you do, don't forget the initial / . | ||
| 81 : | |||
| 82 : | gage | 6 | 4) The html WeBWorK URL. Usually this is something like |
| 83 : | sam | 2 | http://www.math.rochester.edu/webwork_system_html. Again in this case |
| 84 : | /webwork_system_html is prefered. | ||
| 85 : | |||
| 86 : | See the html document | ||
| 87 : | webwork/system/system_html/docs/techdescription/settingupsystem.html for | ||
| 88 : | detailed explanations. The examples here are taken from those directions. | ||
| 89 : | |||
| 90 : | }; | ||
| 91 : | |||
| 92 : | my $MODE_TEXT = q{ | ||
| 93 : | |||
| 94 : | You can set up a "working" or a "demo" WeBWorK system. A "demo" system | ||
| 95 : | should only be used as a sample system, never for a system that will be used | ||
| 96 : | with actual courses with real students. The main difference between a | ||
| 97 : | "working" version and a "demo" version is that in a "working" version you | ||
| 98 : | will be promped to enter a group (e.g. wwadmin) where as in a "demo" | ||
| 99 : | version, the group will be set yo your own default group (e.g. fac). Anyone | ||
| 100 : | in the group will have permission to modify all webwork files. You can set | ||
| 101 : | up "working" and "demo" courses under either a "working" or a "demo" system, | ||
| 102 : | but normally you would not set up a "working" course under a "demo" system. | ||
| 103 : | |||
| 104 : | }; | ||
| 105 : | |||
| 106 : | gage | 6 | my $MAIN_DIR_TEXT = q{ |
| 107 : | sam | 2 | |
| 108 : | gage | 6 | The directory containing the WeBWorK system files (as well as this |
| 109 : | script) is known as the main directory. In order to modify system files, | ||
| 110 : | I need to know where the main directory for this installation is. If you | ||
| 111 : | invoked this script as ./system_webwork_setup.pl, then you are already | ||
| 112 : | in the main directory and can accept the default. | ||
| 113 : | sam | 2 | |
| 114 : | }; | ||
| 115 : | |||
| 116 : | my $PERL_TEXT = q{ | ||
| 117 : | |||
| 118 : | WeBWorK needs to know the path of your perl binary, so that this information | ||
| 119 : | can be used in the headers of cgi scripts. If you were able to run this | ||
| 120 : | script by typing "./system_webwork_setup.pl", the path to a perl binary is | ||
| 121 : | listed on the first line of this script. | ||
| 122 : | |||
| 123 : | }; | ||
| 124 : | |||
| 125 : | my $CGI_URL_TEXT = q{ | ||
| 126 : | |||
| 127 : | In order for generated HTML to be able to invoke CGI scripts, WeBWorK needs | ||
| 128 : | to know the URL which points to the main WeBWorK system cgi subdirectory. | ||
| 129 : | For example, http://www.math.rochester.edu.edu/cgi-bin/webwork/system might | ||
| 130 : | be a valid CGI URL. If both static HTML and CGIs reside on the same host | ||
| 131 : | (which is true in most cases), you can omit the | ||
| 132 : | http://www.math.rochester.edu section of the URL. Make sure to include a | ||
| 133 : | leading slash in this case. | ||
| 134 : | |||
| 135 : | }; | ||
| 136 : | |||
| 137 : | my $HTML_URL_TEXT = q{ | ||
| 138 : | |||
| 139 : | WeBWorK also needs to know the URL of the main HTML directory, the system | ||
| 140 : | html subdirectory. For example, | ||
| 141 : | http://www.math.rochester.edu/webwork_system_html or /webwork_system_html. | ||
| 142 : | |||
| 143 : | }; | ||
| 144 : | |||
| 145 : | my $GROUP_TEXT = q{ | ||
| 146 : | |||
| 147 : | WeBWorK needs to know what the admin group is. This group should have been | ||
| 148 : | set up by your system administrator and must contain at least your user ID. | ||
| 149 : | All files and directories created will have this as their group. | ||
| 150 : | |||
| 151 : | }; | ||
| 152 : | |||
| 153 : | sam | 48 | my $SERVER_GROUP_TEXT = q{ |
| 154 : | |||
| 155 : | In order to give the webserver access to the logs directory, WeBWorK | ||
| 156 : | must know the group under which the web server will run. If you are | ||
| 157 : | running this script as a user other than root, you will need to be a | ||
| 158 : | member of the server's group in order to set the group on the logs | ||
| 159 : | directory. If you are not running as root and you are not a member of | ||
| 160 : | the server's group, you can skip this step and change the group manually | ||
| 161 : | later. To skip this step, type SKIP below. | ||
| 162 : | |||
| 163 : | }; | ||
| 164 : | |||
| 165 : | sam | 2 | my $COURSE_PERMS_TEXT = q{ |
| 166 : | |||
| 167 : | You have the option to set permissions for the courses directory. If this is | ||
| 168 : | an inital setup, you should probably do so. If this is not an initial setup, | ||
| 169 : | the courses directory is already set up, or the courses directory is shared | ||
| 170 : | between WeBWorK installations, your probably shouldn't. | ||
| 171 : | |||
| 172 : | }; | ||
| 173 : | |||
| 174 : | my $CHGRP_TEXT = q{ | ||
| 175 : | |||
| 176 : | You have to option to set the group for all system files and directories. If | ||
| 177 : | this is an initial setup, you should probably do this. If this is not an | ||
| 178 : | initial setup, or you have customized the way system files should be | ||
| 179 : | grouped, you probably shoudn't. | ||
| 180 : | |||
| 181 : | }; | ||
| 182 : | |||
| 183 : | my $CHMOD_TEXT = q{ | ||
| 184 : | |||
| 185 : | You have to option to set the permissions for all system files and | ||
| 186 : | directories. If this is an initial setup, you should probably do this. If | ||
| 187 : | this is not an initial setup, or you have customized the permissions for the | ||
| 188 : | system files, you probably shoudn't. | ||
| 189 : | |||
| 190 : | }; | ||
| 191 : | |||
| 192 : | my $CONFIRM_TEXT = q{ | ||
| 193 : | |||
| 194 : | Now that I have the necessary information, I can begin modifying the WeBWorK | ||
| 195 : | system files. | ||
| 196 : | |||
| 197 : | }; | ||
| 198 : | |||
| 199 : | my $DONE_TEXT = q{ | ||
| 200 : | |||
| 201 : | The system setup script is done. Your WeBWorK system directory is now set up | ||
| 202 : | correctly. | ||
| 203 : | |||
| 204 : | }; | ||
| 205 : | |||
| 206 : | |||
| 207 : | |||
| 208 : | |||
| 209 : | |||
| 210 : | ################################################################################ | ||
| 211 : | ########## Ask some questions, perform some logic. ############################# | ||
| 212 : | ################################################################################ | ||
| 213 : | |||
| 214 : | |||
| 215 : | |||
| 216 : | |||
| 217 : | |||
| 218 : | #################### introduction | ||
| 219 : | |||
| 220 : | my $temp; | ||
| 221 : | |||
| 222 : | unless($no_prompts) { | ||
| 223 : | page($INTRO_TEXT); | ||
| 224 : | $temp = questionChar("Do you want to continue with setup?", 'y', 'y', 'n'); | ||
| 225 : | exit unless $temp eq 'y'; | ||
| 226 : | } | ||
| 227 : | print "Okay, here we go...\n"; | ||
| 228 : | |||
| 229 : | #################### working or demo? | ||
| 230 : | |||
| 231 : | unless(defined $system_setup_mode) { | ||
| 232 : | page($MODE_TEXT); | ||
| 233 : | $temp = questionChar("Shall we set up a working version or a demo version?", 'w', 'w', 'd'); | ||
| 234 : | $system_setup_mode = "working" if $temp eq 'w'; | ||
| 235 : | $system_setup_mode = "demo" if $temp eq 'd'; | ||
| 236 : | } | ||
| 237 : | print "System setup mode is: $system_setup_mode\n"; | ||
| 238 : | |||
| 239 : | #################### main directory | ||
| 240 : | |||
| 241 : | gage | 6 | unless(defined $mainDir) { |
| 242 : | page($MAIN_DIR_TEXT); | ||
| 243 : | $mainDir = questionString("Where is the main WeBWorK directory?", cwd()); | ||
| 244 : | sam | 2 | $mainDir .= '/' unless $mainDir =~ m|/$|; # ensure trailing slash |
| 245 : | } | ||
| 246 : | gage | 6 | print "We'll use $mainDir as WeBWorK's home.\n"; |
| 247 : | sam | 2 | |
| 248 : | #################### perl path | ||
| 249 : | |||
| 250 : | unless(defined $perlPath) { | ||
| 251 : | page($PERL_TEXT); | ||
| 252 : | $perlPath = questionString("What is the full path to PERL?", $DEFAULT_PERL_PATH); | ||
| 253 : | } | ||
| 254 : | print "Path to PERL binary is: $perlPath\n"; | ||
| 255 : | |||
| 256 : | #################### CGI URL | ||
| 257 : | |||
| 258 : | unless(defined $cgiURL) { | ||
| 259 : | page($CGI_URL_TEXT); | ||
| 260 : | while (1) { | ||
| 261 : | $cgiURL = questionString("What is the CGI URL?", $DEFAULT_CGI_URL); | ||
| 262 : | if( ($cgiURL =~ m|^/|) or ($cgiURL =~ m|^http://|) ) { | ||
| 263 : | last; | ||
| 264 : | } else { | ||
| 265 : | $temp = questionChar("That doesn't look like a valid URL. Would you like to use it anyway?", 'n', 'y', 'n'); | ||
| 266 : | last if $temp eq 'y'; | ||
| 267 : | } | ||
| 268 : | } | ||
| 269 : | $cgiURL .= "/" unless $cgiURL =~ m"/$"; # ensure trailing slash | ||
| 270 : | } | ||
| 271 : | print "CGI URL is: $cgiURL\n"; | ||
| 272 : | |||
| 273 : | #################### HTML URL | ||
| 274 : | |||
| 275 : | unless(defined $htmlURL) { | ||
| 276 : | page($HTML_URL_TEXT); | ||
| 277 : | while (1) { | ||
| 278 : | $htmlURL = questionString("What is the HTML URL?", $DEFAULT_HTML_URL); | ||
| 279 : | if( ($htmlURL =~ m|^/|) or ($htmlURL =~ m|^http://|) ) { | ||
| 280 : | last; | ||
| 281 : | } else { | ||
| 282 : | $temp = questionChar("That doesn't look like a valid URL. Would you like to use it anyway?", 'n', 'y', 'n'); | ||
| 283 : | last if $temp eq 'y'; | ||
| 284 : | } | ||
| 285 : | } | ||
| 286 : | $htmlURL .= "/" unless $htmlURL =~ m"/$" ; | ||
| 287 : | } | ||
| 288 : | print "HTML URL is: $htmlURL\n"; | ||
| 289 : | |||
| 290 : | #################### admin group | ||
| 291 : | |||
| 292 : | unless(defined $groupName) { | ||
| 293 : | my ($userName, $userGID) = (getpwuid $<)[0,3]; | ||
| 294 : | my $userGroupName = (getgrgid $userGID)[0]; | ||
| 295 : | |||
| 296 : | if ($system_setup_mode eq 'demo') { | ||
| 297 : | # in demo mode, the group is set to the user's primary group | ||
| 298 : | $groupName = $userGroupName; | ||
| 299 : | } else { | ||
| 300 : | # in working mode, we get to chose | ||
| 301 : | page($GROUP_TEXT); | ||
| 302 : | my $validGroup = 0; | ||
| 303 : | while(1) { | ||
| 304 : | $groupName = questionString("What is the admin group name?", $userGroupName); | ||
| 305 : | my @members = split / /, (getgrnam $groupName)[3]; | ||
| 306 : | if($groupName eq $userGroupName) { | ||
| 307 : | sam | 24 | print "$groupName is ${userName}'s primary group. Good.\n"; |
| 308 : | sam | 2 | } elsif(grep /$userName/, @members) { |
| 309 : | print "$userName is a member of $groupName. Good.\n"; | ||
| 310 : | last; | ||
| 311 : | } elsif($< == 0) { # we're root! | ||
| 312 : | print "$userName isn't a member of $groupName, but you're root, so who cares?\n"; | ||
| 313 : | last; | ||
| 314 : | } else { | ||
| 315 : | print "That group is not valid. Please make sure the group exists and you are a member.\n"; | ||
| 316 : | } | ||
| 317 : | } | ||
| 318 : | } | ||
| 319 : | } | ||
| 320 : | print "Admin group is: $groupName\n"; | ||
| 321 : | |||
| 322 : | sam | 48 | #################### server group |
| 323 : | |||
| 324 : | unless(defined $serverGroupName) { | ||
| 325 : | page($SERVER_GROUP_TEXT); | ||
| 326 : | my ($userName, $userGID) = (getpwuid $<)[0,3]; | ||
| 327 : | my $userGroupName = (getgrgid $userGID)[0]; | ||
| 328 : | $serverGroupName = $DEFAULT_SERVER_GROUP; | ||
| 329 : | my $validGroup = 0; | ||
| 330 : | while(1) { | ||
| 331 : | $serverGroupName = questionString("What is the webserver group name?", $serverGroupName); | ||
| 332 : | $serverGroupName eq "SKIP" and last; | ||
| 333 : | my @members = split / /, (getgrnam $serverGroupName)[3]; | ||
| 334 : | if($serverGroupName eq $userGroupName) { | ||
| 335 : | print "$serverGroupName is ${userName}'s primary group. Weird.\n"; | ||
| 336 : | } elsif(grep /$userName/, @members) { | ||
| 337 : | print "$userName is a member of $serverGroupName. Good.\n"; | ||
| 338 : | last; | ||
| 339 : | } elsif($< == 0) { # we're root! | ||
| 340 : | print "$userName isn't a member of $serverGroupName, but you're root, so who cares?\n"; | ||
| 341 : | last; | ||
| 342 : | } else { | ||
| 343 : | print "That group is not valid. Please make sure the group exists and you are a member.\n"; | ||
| 344 : | } | ||
| 345 : | } | ||
| 346 : | } | ||
| 347 : | print "Server group is: $serverGroupName\n"; | ||
| 348 : | |||
| 349 : | sam | 2 | #################### chmod courses directory |
| 350 : | |||
| 351 : | unless(defined $update_stuff_in_courses) { | ||
| 352 : | page($COURSE_PERMS_TEXT); | ||
| 353 : | $temp = questionChar("Do you want to set default $system_setup_mode permissions for the courses directory?", 'y', 'y', 'n'); | ||
| 354 : | $update_stuff_in_courses = ($temp eq 'y'); | ||
| 355 : | } | ||
| 356 : | print "Permissions ", ($update_stuff_in_courses ? "will" : "will not"), " be set for the courses directory.\n"; | ||
| 357 : | |||
| 358 : | |||
| 359 : | #################### chgrp files/directories | ||
| 360 : | |||
| 361 : | $system_setup_mode eq "demo" and $chgrp_files_and_dirs = 1; | ||
| 362 : | unless(defined $chgrp_files_and_dirs) { | ||
| 363 : | page($CHGRP_TEXT); | ||
| 364 : | $temp = questionChar("Do you want to set the group for system files and directories?", 'y', 'y', 'n'); | ||
| 365 : | $chgrp_files_and_dirs = ($temp eq 'y'); | ||
| 366 : | } | ||
| 367 : | print "Group ", ($chgrp_files_and_dirs ? "will" : "will not"), " be set for system files and directories.\n"; | ||
| 368 : | |||
| 369 : | #################### chmod files/directories | ||
| 370 : | |||
| 371 : | $system_setup_mode eq "demo" and $chmod_files_and_dirs = 1; | ||
| 372 : | unless(defined $chmod_files_and_dirs) { | ||
| 373 : | page($CHMOD_TEXT); | ||
| 374 : | $temp = questionChar("Do you want to set the permissions for system files and directories?", 'y', 'y', 'n'); | ||
| 375 : | $chmod_files_and_dirs = ($temp eq 'y'); | ||
| 376 : | } | ||
| 377 : | print "Permissions ", ($chmod_files_and_dirs ? "will" : "will not"), " be set for system files and directories.\n"; | ||
| 378 : | |||
| 379 : | #################### make sure we want to actually do this | ||
| 380 : | |||
| 381 : | unless($no_prompts) { | ||
| 382 : | print $CONFIRM_TEXT; | ||
| 383 : | $temp = questionChar("Do you want to continue with setup?", 'y', 'y', 'n'); | ||
| 384 : | exit unless $temp eq 'y'; | ||
| 385 : | } | ||
| 386 : | print "\Going to make changes now...\n\n"; | ||
| 387 : | |||
| 388 : | |||
| 389 : | |||
| 390 : | |||
| 391 : | |||
| 392 : | ################################################################################ | ||
| 393 : | ########## Now we start changing things... ##################################### | ||
| 394 : | ################################################################################ | ||
| 395 : | |||
| 396 : | |||
| 397 : | |||
| 398 : | |||
| 399 : | |||
| 400 : | sam | 11 | chdir $mainDir; |
| 401 : | |||
| 402 : | sam | 2 | #################### run local preprocessor |
| 403 : | |||
| 404 : | if(defined $local_preprocessor) { | ||
| 405 : | print "Executing local preprocessor...\n"; | ||
| 406 : | &$local_preprocessor; | ||
| 407 : | print "Done with local preprocessor.\n"; | ||
| 408 : | } | ||
| 409 : | |||
| 410 : | #################### update #! and use lines | ||
| 411 : | gage | 6 | # uses: $mainDir, $perlPath |
| 412 : | sam | 2 | |
| 413 : | sam | 11 | print "Fixing #! lines...\n"; |
| 414 : | sam | 2 | |
| 415 : | sam | 11 | # fix up the course setup script and the *.pl files |
| 416 : | fixFile('../courses/demoCourse/course_webwork_setup.pl') if $update_stuff_in_courses; | ||
| 417 : | sam | 2 | foreach my $dir ('cgi/cgi-scripts', 'scripts', 'courseScripts') { |
| 418 : | foreach my $file (<${dir}/*.pl>) { | ||
| 419 : | sam | 11 | fixFile($file); |
| 420 : | sam | 2 | } |
| 421 : | } | ||
| 422 : | |||
| 423 : | sub fixFile | ||
| 424 : | { | ||
| 425 : | sam | 11 | my ($file) = @_; |
| 426 : | sam | 2 | |
| 427 : | # read the file | ||
| 428 : | sam | 11 | open FILE, $file || die "Couldn't open $file for reading."; |
| 429 : | sam | 2 | my @lines = <FILE>; |
| 430 : | sam | 11 | close FILE || die "Couldn't close $file after reading."; |
| 431 : | sam | 2 | |
| 432 : | # fix perl path | ||
| 433 : | sam | 12 | $lines[0] =~ m/^#!(\S*)/; |
| 434 : | if($1 ne $perlPath) { | ||
| 435 : | $lines[0] =~ s/^#!\S*/#!$perlPath/; | ||
| 436 : | sam | 11 | open FILE, ">$file" || die "Couldn't open $file for writing."; |
| 437 : | sam | 9 | print FILE @lines; |
| 438 : | sam | 11 | close FILE || die "Couldn't close $file for writing."; |
| 439 : | sam | 9 | } |
| 440 : | sam | 2 | } |
| 441 : | |||
| 442 : | print "done fixing #! and \"use\" lines.\n\n"; | ||
| 443 : | |||
| 444 : | sam | 11 | #################### write webworkConfig.pm file |
| 445 : | # uses: $mainDir, $cgiURL, $htmlURL | ||
| 446 : | |||
| 447 : | print "Writing lib/webworkConfig.pm file...\n"; | ||
| 448 : | open CONFIG_FILE, ">${mainDir}lib/webworkConfig.pm"; | ||
| 449 : | sam | 82 | print CONFIG_FILE<<END_OF_CONFIG_FILE; |
| 450 : | package Global; | ||
| 451 : | |||
| 452 : | ################################################################################ | ||
| 453 : | # WeBWorK | ||
| 454 : | # | ||
| 455 : | # Copyright (c) 1995-2001 WeBWorK Team, University of Rochester | ||
| 456 : | # All rights reserved | ||
| 457 : | ################################################################################ | ||
| 458 : | |||
| 459 : | \$mainDirectory = "$mainDir"; | ||
| 460 : | \$htmlWebworkURL = "$htmlURL"; | ||
| 461 : | \$cgiWebworkURL = "${cgiURL}"; | ||
| 462 : | sam | 90 | \$cgiWebworkURL .= "cgi-scripts/" unless \$cgiDebugMode; |
| 463 : | sam | 82 | |
| 464 : | 1; | ||
| 465 : | END_OF_CONFIG_FILE | ||
| 466 : | sam | 11 | close CONFIG_FILE; |
| 467 : | print "Done writing lib/webworkConfig.pm file.\n\n"; | ||
| 468 : | |||
| 469 : | #################### write webworkInit.pm files | ||
| 470 : | gage | 8 | # uses: $mainDir |
| 471 : | |||
| 472 : | sam | 11 | print "Writing webworkInit.pm files...\n"; |
| 473 : | sam | 9 | foreach my $dir ('cgi/', 'cgi/cgi-scripts/', 'scripts/', 'courseScripts/') { |
| 474 : | gage | 8 | open INIT_FILE, ">$mainDir${dir}webworkInit.pm"; |
| 475 : | sam | 11 | print INIT_FILE |
| 476 : | "use lib '${mainDir}lib/';\n\n", | ||
| 477 : | "1;"; | ||
| 478 : | gage | 8 | close INIT_FILE; |
| 479 : | } | ||
| 480 : | sam | 11 | print "Done writing webworkInit.pm files.\n\n"; |
| 481 : | gage | 8 | |
| 482 : | sam | 2 | #################### chgrp system stuff |
| 483 : | sam | 48 | # uses: $chgrp_files_and_dirs, $groupName, $serverGroupName |
| 484 : | sam | 2 | |
| 485 : | if($chgrp_files_and_dirs) { | ||
| 486 : | print "Setting group on system files and directories...\n"; | ||
| 487 : | # R=recursive, P=don't follow symlinks | ||
| 488 : | system "chgrp -PR $groupName ."; | ||
| 489 : | sam | 48 | system "chgrp -PR $serverGroupName logs/" unless $serverGroupName eq "SKIP"; |
| 490 : | sam | 2 | print "Done setting group.\n\n"; |
| 491 : | } | ||
| 492 : | |||
| 493 : | #################### chmod system stuff | ||
| 494 : | # uses: $chmod_files_and_dirs | ||
| 495 : | |||
| 496 : | if($chmod_files_and_dirs) { | ||
| 497 : | print "Setting permissions on system files and directories for $system_setup_mode mode...\n"; | ||
| 498 : | if ($system_setup_mode eq "demo") { | ||
| 499 : | # get some general permissions for files and directories | ||
| 500 : | system "find . -type d -print0 | xargs -0 chmod 0711"; | ||
| 501 : | system "find . -type f -print0 | xargs -0 chmod 0644"; | ||
| 502 : | # add executable privs to scripts | ||
| 503 : | gage | 6 | system "find cgi scripts -type f -print0 | xargs -0 chmod 0755"; |
| 504 : | sam | 2 | # give everyone write access to logs |
| 505 : | # (we should probably just be chowning the log directory to the webserver) | ||
| 506 : | gage | 6 | system "chmod 0666 logs/*"; |
| 507 : | sam | 2 | # make this script executable and safe |
| 508 : | gage | 6 | system "chmod 0700 system_webwork_setup.pl" |
| 509 : | sam | 2 | } else { |
| 510 : | # get some general permissions for files and directories | ||
| 511 : | system "find . -type d -print0 | xargs -0 chmod 0771"; | ||
| 512 : | system "find . -type f -print0 | xargs -0 chmod 0664"; | ||
| 513 : | # add executable privs to scripts | ||
| 514 : | gage | 6 | system "find cgi scripts -type f -print0 | xargs -0 chmod 0775"; |
| 515 : | sam | 2 | # give everyone write access to logs |
| 516 : | # (we should probably just be chowning the log directory to the webserver) | ||
| 517 : | sam | 13 | system "find logs -type f -print0 | xargs -0 chmod 0666"; |
| 518 : | sam | 2 | # make this script executable and safe |
| 519 : | gage | 6 | system "chmod 0770 system_webwork_setup.pl" |
| 520 : | sam | 2 | } |
| 521 : | print "done setting permissions.\n\n"; | ||
| 522 : | } | ||
| 523 : | |||
| 524 : | #################### fix up the documemtation html files | ||
| 525 : | # uses: $htmlURL, $cgiURL | ||
| 526 : | |||
| 527 : | sam | 94 | # this is off for now -- none of the helpFiles have any absolute URLs in them! |
| 528 : | # | ||
| 529 : | # print "Fixing image, cgi-bin, and ref lines in documentation html files...\n"; | ||
| 530 : | # foreach my $dir ('system_html/helpFiles') { | ||
| 531 : | # foreach my $file (<${dir}/*.html>) { | ||
| 532 : | # open FILE, $file || die "CAN'T READ $file!\n Fix the problem and run the setup script again"; | ||
| 533 : | # my @lines = <FILE>; | ||
| 534 : | # close FILE || die "CAN'T CLOSE $file!\n Fix the problem and run the setup script again"; | ||
| 535 : | # | ||
| 536 : | # foreach my $line (@lines) { | ||
| 537 : | # $line =~ s|<IMG SRC=".*?images/|<IMG SRC="${htmlURL}images/|g; # fix "images" line | ||
| 538 : | # $line =~ s|<A HREF=".*?feedback.pl">|<A HREF="${cgiURL}feedback.pl">|g; # fix "cgi-bin" line | ||
| 539 : | # $line =~ s|<A HREF=".*?docs/">|<A HREF="${htmlURL}docs/">|g; # fix "Ref" line | ||
| 540 : | # } | ||
| 541 : | # open FILE, ">$file" || die "CAN'T WRITE $file!\n Fix the problem and run the setup script again"; | ||
| 542 : | # print FILE @lines; | ||
| 543 : | # close FILE || die "CAN'T CLOSE (writing) $file!\n Fix the problem and run the setup script again"; | ||
| 544 : | # } | ||
| 545 : | # } | ||
| 546 : | # print "done fixing documentation files.\n\n"; | ||
| 547 : | sam | 2 | |
| 548 : | sam | 11 | #################### update couses stuff |
| 549 : | # uses: $update_stuff_in_courses | ||
| 550 : | |||
| 551 : | if($update_stuff_in_courses) { | ||
| 552 : | print "Setting permissions for ../courses directory.\n\n"; | ||
| 553 : | chmod(0755, '../courses') or warn "Warning: I can't set permissions for ../courses directory. It's possible that the directory doesn't exist or you don't have permission to change it.\n"; | ||
| 554 : | } | ||
| 555 : | |||
| 556 : | sam | 2 | #################### run local postprocessor |
| 557 : | |||
| 558 : | if(defined $local_postprocessor) { | ||
| 559 : | sam | 24 | print "Executing local postprocessor...\n"; |
| 560 : | sam | 2 | &$local_postprocessor; |
| 561 : | sam | 24 | print "Done with local postprocessor.\n"; |
| 562 : | sam | 2 | } |
| 563 : | |||
| 564 : | #################### finish up | ||
| 565 : | |||
| 566 : | page($DONE_TEXT); | ||
| 567 : | |||
| 568 : | ################################################################################ | ||
| 569 : | |||
| 570 : | sub page | ||
| 571 : | { | ||
| 572 : | my @string_lines = split /^/, shift; #/ | ||
| 573 : | # not really optimal, but we're going to assume a constant screen height. | ||
| 574 : | my $SCREEN_HEIGHT = 20; | ||
| 575 : | while(@string_lines) { | ||
| 576 : | sam | 24 | print join "", @string_lines[0..($SCREEN_HEIGHT>scalar @string_lines ? (scalar @string_lines)-1 : $SCREEN_HEIGHT-1)]; |
| 577 : | sam | 2 | if(scalar @string_lines >= $SCREEN_HEIGHT) { |
| 578 : | print "\n[Press ENTER to continues...]"; | ||
| 579 : | <STDIN>; | ||
| 580 : | print "\n"; | ||
| 581 : | } | ||
| 582 : | @string_lines = @string_lines[$SCREEN_HEIGHT..$#string_lines]; | ||
| 583 : | } | ||
| 584 : | } | ||
| 585 : | |||
| 586 : | sub questionChar | ||
| 587 : | { | ||
| 588 : | my ($question, $default, @valid) = @_; | ||
| 589 : | my $answer; | ||
| 590 : | do { | ||
| 591 : | print $question, " "; | ||
| 592 : | foreach (@valid) { | ||
| 593 : | $_ eq $default and print "["; | ||
| 594 : | print $_; | ||
| 595 : | $_ eq $default and print "]"; | ||
| 596 : | } | ||
| 597 : | print " "; | ||
| 598 : | $answer = <STDIN>; | ||
| 599 : | $answer =~ s/^\s*//; | ||
| 600 : | $answer = substr $answer, 0, 1; | ||
| 601 : | $answer = lc $answer; | ||
| 602 : | $answer or $answer = $default; | ||
| 603 : | } while (not grep(/$answer/, @valid)); | ||
| 604 : | return $answer; | ||
| 605 : | } | ||
| 606 : | |||
| 607 : | sub questionString | ||
| 608 : | { | ||
| 609 : | my ($question, $default, $emptyOK) = @_; | ||
| 610 : | my $answer; | ||
| 611 : | print $question, " [", $default, "] "; | ||
| 612 : | $answer = <STDIN>; | ||
| 613 : | chomp $answer; | ||
| 614 : | $answer =~ s/^\s*//; | ||
| 615 : | $answer or $answer = $default; | ||
| 616 : | return $answer; | ||
| 617 : | } | ||
| 618 : | sam | 24 | |
| 619 : | __END__ | ||
| 620 : | |||
| 621 : | =head1 NAME | ||
| 622 : | |||
| 623 : | system_webwork_setup.pl - set up the WeBWorK system | ||
| 624 : | |||
| 625 : | =head1 SYNOPSIS | ||
| 626 : | |||
| 627 : | system_webwork_setup.pl [defaults-file] | ||
| 628 : | |||
| 629 : | =head1 DESCRIPTION | ||
| 630 : | |||
| 631 : | B<system_webwork_setup.pl> gathers the information necessary for configuration of the WeBWorK system. It then edits several WeBWorK system files, and creates F<webworkInit.pm> modules and the F<webworkConfig.pm> module based on the information gathered. It can optionally read defaults from a file specified on the command line or from the file F<$HOME/system_webwork_setup.defaults>. | ||
| 632 : | |||
| 633 : | =head1 DEFAULTS | ||
| 634 : | |||
| 635 : | The F<system_webwork_setup.defaults> file is intended to be used in a situation where B<system_webwork_setup.pl> must be executed frequently, such as in the case of use with CVS, in which the it must be executed after a checkout and some updates. The defaults file is a perl script that will be require'd by B<system_webwork_setup.pl>. It can set any of the following variables in the usual way: | ||
| 636 : | |||
| 637 : | =over 4 | ||
| 638 : | |||
| 639 : | =item $no_prompts | ||
| 640 : | |||
| 641 : | Refrain from prompting at the beginning of the script and before making changes. Also supresses the introductory text. | ||
| 642 : | |||
| 643 : | =item $system_setup_mode | ||
| 644 : | |||
| 645 : | Can be set to "working" or "demo". This affects how system file permissions and group ownership are set. In "working" mode, system files are group owned by a webwork admin group (see I<$groupName>) and group writeable while in "demo" mode files are group owned by the current user's default group and are not group writeable. | ||
| 646 : | |||
| 647 : | =item $mainDir | ||
| 648 : | |||
| 649 : | Specify WeBWorK's main directory, which should contain the directories cgi/ scripts/ courseScripts/ and lib/. | ||
| 650 : | |||
| 651 : | =item $perlPath | ||
| 652 : | |||
| 653 : | Specify the path to the perl interpreter which should be used. This is used to set the shebang line in cgi-scripts and scripts. | ||
| 654 : | |||
| 655 : | =item $cgiURL | ||
| 656 : | |||
| 657 : | Specify the externally visible URL to the CGI directory (typically cgi/cgi-scripts/). This will be used when scripts call other scripts. | ||
| 658 : | |||
| 659 : | =item $htmlURL | ||
| 660 : | |||
| 661 : | Specify the externally visible URL to the HTML directory (typically system_html/). This will be used when scripts refer to static graphics and text. | ||
| 662 : | |||
| 663 : | =item $groupName | ||
| 664 : | |||
| 665 : | When in "working" mode, I<$groupName> is the name of the WeBWorK admin group, members of which should have write access to the system files. (The web server should not be in this group!) | ||
| 666 : | |||
| 667 : | =item $update_stuff_in_courses | ||
| 668 : | |||
| 669 : | If true, B<system_webwork_setup.pl> will set permissions in the courses directory and prepare the B<course_webwork_setup.pl> script for execution. | ||
| 670 : | |||
| 671 : | =item $chgrp_files_and_dirs, $chmod_files_and_dirs | ||
| 672 : | |||
| 673 : | If true, the group and/or permissions on system files will be set according to I<$system_setup_mode>. | ||
| 674 : | |||
| 675 : | =item $local_preprocessor, $local_postprocessor | ||
| 676 : | |||
| 677 : | If set, these variables will be called as subroutine references. I<$local_preprocessor> is called before any changes take place, while I<$local_postprocessor> is called after all changes have taken place. | ||
| 678 : | |||
| 679 : | =back | ||
| 680 : | |||
| 681 : | =head FILES | ||
| 682 : | |||
| 683 : | $HOME/system_webwork_setup.defaults | ||
| 684 : | |||
| 685 : | =head1 AUTHOR | ||
| 686 : | |||
| 687 : | Samuel Hathaway <sh002i@math.rochester.edu> |
| aubreyja at gmail dot com | ViewVC Help |
| Powered by ViewVC 1.0.9 |