| … | |
… | |
| 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 | # |
| 527 | print "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"; |
| 528 | foreach 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 | # } |
| 544 | print "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 | |
| 549 | if($update_stuff_in_courses) { |
551 | if($update_stuff_in_courses) { |
Parent Directory
| 
Revision Log
| 
Patch