[system] / trunk / webwork / system / system_webwork_setup.pl Repository:
ViewVC logotype

Diff of /trunk/webwork/system/system_webwork_setup.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 93 Revision 94
522} 522}
523 523
524#################### fix up the documemtation html files 524#################### fix up the documemtation html files
525# uses: $htmlURL, $cgiURL 525# uses: $htmlURL, $cgiURL
526 526
527# this is off for now -- none of the helpFiles have any absolute URLs in them!
528#
527print "Fixing image, cgi-bin, and ref lines in documentation html files...\n"; 529# print "Fixing image, cgi-bin, and ref lines in documentation html files...\n";
528foreach my $dir ('system_html/helpFiles') { 530# foreach my $dir ('system_html/helpFiles') {
529 foreach my $file (<${dir}/*.html>) { 531# foreach my $file (<${dir}/*.html>) {
530 open FILE, $file || die "CAN'T READ $file!\n Fix the problem and run the setup script again"; 532# open FILE, $file || die "CAN'T READ $file!\n Fix the problem and run the setup script again";
531 my @lines = <FILE>; 533# my @lines = <FILE>;
532 close FILE || die "CAN'T CLOSE $file!\n Fix the problem and run the setup script again"; 534# close FILE || die "CAN'T CLOSE $file!\n Fix the problem and run the setup script again";
533 535#
534 foreach my $line (@lines) { 536# foreach my $line (@lines) {
535 $line =~ s|<IMG SRC=".*?images/|<IMG SRC="${htmlURL}images/|g; # fix "images" line 537# $line =~ s|<IMG SRC=".*?images/|<IMG SRC="${htmlURL}images/|g; # fix "images" line
536 $line =~ s|<A HREF=".*?feedback.pl">|<A HREF="${cgiURL}feedback.pl">|g; # fix "cgi-bin" line 538# $line =~ s|<A HREF=".*?feedback.pl">|<A HREF="${cgiURL}feedback.pl">|g; # fix "cgi-bin" line
537 $line =~ s|<A HREF=".*?docs/">|<A HREF="${htmlURL}docs/">|g; # fix "Ref" line 539# $line =~ s|<A HREF=".*?docs/">|<A HREF="${htmlURL}docs/">|g; # fix "Ref" line
538 } 540# }
539 open FILE, ">$file" || die "CAN'T WRITE $file!\n Fix the problem and run the setup script again"; 541# open FILE, ">$file" || die "CAN'T WRITE $file!\n Fix the problem and run the setup script again";
540 print FILE @lines; 542# print FILE @lines;
541 close FILE || die "CAN'T CLOSE (writing) $file!\n Fix the problem and run the setup script again"; 543# close FILE || die "CAN'T CLOSE (writing) $file!\n Fix the problem and run the setup script again";
542 } 544# }
543} 545# }
544print "done fixing documentation files.\n\n"; 546# print "done fixing documentation files.\n\n";
545 547
546#################### update couses stuff 548#################### update couses stuff
547# uses: $update_stuff_in_courses 549# uses: $update_stuff_in_courses
548 550
549if($update_stuff_in_courses) { 551if($update_stuff_in_courses) {

Legend:
Removed from v.93  
changed lines
  Added in v.94

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9