version 1.27, 2005/10/12 18:04:17
|
version 1.44, 2011/06/01 04:36:21
|
Line 21 The point of this is to look like the ma
|
Line 21 The point of this is to look like the ma
|
# add/subtract/etc. pages. Index is done seperately. |
# add/subtract/etc. pages. Index is done seperately. |
# Title, source |
# Title, source |
|
|
my @pages = ( |
my @pages = ( |
# ['Red Hat 7.3 Install', 'rh73'], |
['Fedora 15 Install', 'F15_install'], |
|
['Fedora 14 Install', 'F14_install'], |
|
['Fedora 13 Install', 'F13_install'], |
|
['Fedora 12 Install', 'F12_install'], |
|
['Fedora 11 Install', 'F11_install'], |
|
['Fedora 10 Install', 'F10_install'], |
|
['Fedora 9 Install', 'F9_install'], |
|
# ['Fedora 8 Install', 'F8_install'], |
|
# ['Fedora 7 Install', 'F7_install'], |
|
# ['Fedora Core 6 Install', 'FC6_install'], |
|
# ['Fedora Core 5 Install', 'FC5_install'], |
|
# ['Fedora Core 4 Install', 'FC4_install'], |
|
# ['Fedora Core 3 Install', 'FC3_install'], |
# ['Fedora Install', 'fedora_install'], |
# ['Fedora Install', 'fedora_install'], |
['Fedora Core 3 Install', 'FC3_install'], |
# ['Red Hat 7.3 Install', 'rh73'], |
['Fedora Core 4 Install', 'FC4_install'], |
['CentOS Linux 5 Install','centos5_install'], |
|
['Scientific Linux 6 Install','scientific6_install'], |
|
['Scientific Linux 5 Install','scientific5_install'], |
|
['Red Hat Enterprise Linux 6 Install','RHEL6_install'], |
|
['Red Hat Enterprise Linux 5 Install','RHEL5_install'], |
['Red Hat Enterprise Linux 4 Install','RHEL4_install'], |
['Red Hat Enterprise Linux 4 Install','RHEL4_install'], |
['SuSE Linux Professional 9.2 Install', 'suse9.2_install'], |
['SuSE Linux 11.4 Install', 'suse11.4_install'], |
['SuSE Linux Professional 9.3 Install', 'suse9.3_install'], |
['SuSE Linux 11.3 Install', 'suse11.3_install'], |
|
['SuSE Linux 11.2 Install', 'suse11.2_install'], |
|
['SuSE Linux 11.1 Install', 'suse11.1_install'], |
|
['SuSE Linux 10.3 Install', 'suse10.3_install'], |
|
# ['SuSE Linux 10.2 Install', 'suse10.2_install'], |
|
# ['SuSE Linux 10.1 Install', 'suse10.1_install'], |
|
# ['SuSE Linux Professional 9.3 Install', 'suse9.3_install'], |
|
# ['SuSE Linux Professional 9.2 Install', 'suse9.2_install'], |
|
['SuSE Linux Enterprise Server 11 Install', 'sles11_install'], |
|
['SuSE Linux Enterprise Server 10 Install', 'sles10_install'], |
['SuSE Linux Enterprise Server 9 Install', 'sles9_install'], |
['SuSE Linux Enterprise Server 9 Install', 'sles9_install'], |
# ['Manual Install from Tarballs', 'manual_install'], |
# ['Manual Install from Tarballs', 'manual_install'], |
['Upgrading from Previous LON-CAPA install', 'upgrade'], |
['Upgrading from Previous LON-CAPA install', 'upgrade'], |
['LON-CAPA License (Gnu Public License)', 'license'] |
['LON-CAPA License (Gnu Public License)', 'license'] |
); |
); |
|
|
my @other_pages = ( |
my @other_pages = ( |
['Developer Information', 'dev'], |
['Developer Information', 'dev'], |
['Configuration Information', 'config'], |
['Configuration Information', 'config'], |
Line 81 for (@pages) {
|
Line 107 for (@pages) {
|
|
|
$content .= "</ul>\n"; |
$content .= "</ul>\n"; |
|
|
$content .= <<'POSTLUDE'; |
my $testing_content = ''; |
|
if (@testing_pages) { |
|
$testing_content .= "<hr/><p>Installation on the following systems requires the use of a testing release of LON-CAPA.</p>\n"; |
|
$testing_content .= "<ul>\n"; |
|
for (@testing_pages) { |
|
$testing_content .= "<li><a href='$_->[1].html'>$_->[0]</a></li>\n"; |
|
} |
|
$testing_content .= "</ul>\n"; |
|
} |
|
|
|
|
|
$content .= <<"POSTLUDE"; |
<hr /> |
<hr /> |
<a name="download" /> |
<a name="download" /> |
<h3>Downloading LON-CAPA</h3> |
<h3>Downloading LON-CAPA</h3> |
Line 107 You can download the <b>testing version
|
Line 144 You can download the <b>testing version
|
http://install.lon-capa.org/versions/loncapa-testing.tar.gz</a> |
http://install.lon-capa.org/versions/loncapa-testing.tar.gz</a> |
(version LATESTTESTINGVERSION). |
(version LATESTTESTINGVERSION). |
</p> |
</p> |
|
$testing_content |
TESTINGRELEASE_END |
TESTINGRELEASE_END |
|
|
<hr /> |
<hr /> |
POSTLUDE |
POSTLUDE |
|
|
|
open(RELEASE, '<', "release.frag"); |
|
$content .= join('',<RELEASE>); |
|
close(RELEASE); |
|
|
$content .= "<ul>\n"; |
$content .= "<ul>\n"; |
|
my @testing_pages = ( |
|
); |
for (@other_pages) { |
for (@other_pages) { |
$content .= "<li><a href='$_->[1].html'>$_->[0]</a></li>\n"; |
$content .= "<li><a href='$_->[1].html'>$_->[0]</a></li>\n"; |
} |
} |
Line 128 print INDEX $index;
|
Line 172 print INDEX $index;
|
close INDEX; |
close INDEX; |
|
|
# Build the pages |
# Build the pages |
for (@pages,@other_pages) { |
for (@pages,@other_pages,@testing_pages) { |
my ($title, $source) = @$_; |
my ($title, $source) = @$_; |
|
|
# read in content |
# read in content |