#!/usr/bin/perl
use strict;
use CGI;
my $r=CGI::new();
my $from=$r->referer;
my $frame=$r->param('frame');
$from.="?frame=$frame" if $frame && !$from=~m:[?&]frame=:o;
print $r->header,qq~Apache::OpenIndex Help Page\n~;
print qq~\n~ unless $frame;
print $r->h1({-align=>'CENTER'},"The Official Apache::OpenIndex Help Page"),
$r->p("Your Version=",$r->param('version')),
$from?$r->a({-href=>$from},"Back to OpenIndex"):'',
$r->hr;
if($r->param('version') lt '1.04b') {
print <
NEWVERSION
}
print <p;
if($r->param('mark')) {
print <p;
print <h2("Browse");
print <h2("Upload");
print <param('postmax'), " bytes by the web master.";
print $r->h2("Delete");
print <h2("MkDir");
print <h2("MkFile");
print <h2("Unzip");
print <h2("Copy");
print <h2("Move");
print <h2("Edit");
print <h2("Rename");
print <param('perms')) {
print $r->hr, $r->h2("Permissions");
print <param('admin')) {
print $r->hr, $r->h2("SetGID");
print <hr, $r->h2("Revoke");
print <hr, $r->a({-href=>$from},"Back to OpenIndex") if $from;
print qq~\n~ unless $frame;
print qq~\n~;