EOF;
SetShowInfo(0);
if($cap["tables"]) $tb=1;
$xs="1";
if($argv[0]) { $eb=$argv[0]; } else { $eb=""; }
if(preg_match("/^GA/",$eb)) $eb="";
$titl="Download Menu"; $bgclr="#FFFFF8";
$key="Steiner Archive:Download:Menu";
$mdes="Rudolf Steiner Archive Download Menu Document: The index.php file for all of the Download directories on the Rudolf Steiner e.Lib site.";
$mkey="download page,download,pdf,mobi,epub,zip,tgz,tar,rtf,documents,files,archives,kindle,ios,android,ebooks,philosophy,metaphysics,occult science,art,architecture,biodynamics,biodynamic gardening,agriculture,gardening,curative,eurythmy,curative eurythmy,goetheanum,alternative medicine,medicine,science,waldorf education,education,anthroposophical movement,study of man,spirit";
if(filesize(".live")>0) {
$zatt=file_get_contents(".live");
}
$zacss=file_get_contents("/home/rsarchive/Steiner/css/rsa-ff.css");
$zbcss=file_get_contents("/home/rsarchive/Steiner/css/lect-style.css");
//if(!isset($css)) $css="RSA/css/lect-style.css"; // CSS file
$zniv="\n";
if($zmob) {
$zdiv="
\n";
} else {
$zdiv=<<
EOF;
}
list($zxx,$zgx)=preg_split("/GA/",getcwd());
list($zga,$zyy)=explode('/',$zgx);
echo <<
EOF;
include("metadata.inc");
echo <<
$zdiv
EOF;
include("HEADER.html");
echo <<
Name |
GA # | |
Size | |
Document Type |
|
EOF;
$i1=0;
//$vdir="./";
$vdir=getcwd();
$i=0; $dsc="";
foreach($files=scandir($vdir) as $file) {
list($fn,$ext)=explode(".",$file);
//echo "EB=|$eb| I1=|$i1| FN=|$fn| EXT=|$ext| DSC=|$dsc| \n";
if(($eb) && ($eb!=$fn)) continue;
switch(strtolower($ext)) {
case "sit": $dsc="SIT file"; break;
case "zip": $dsc="ZIP Archive"; break;
case "tar": $dsc="TAR Archive"; break;
case "tgz": $dsc="GZipped TAR Archive"; break;
case "gz": $dsc="GZipped Archive"; break;
case "pdf": $dsc="PDF Document"; break;
case "rtf": $dsc="RTF Document"; break;
case "doc": $dsc="Micro\$oft Word Document"; break;
case "docx": $dsc="Micro\$oft Word+ Document"; break;
case "epub": $dsc="ePub Document (iOS,Android)"; break;
case "mobi": $dsc="MOBI Document (Kindle)"; break;
case "jpg": $dsc="JPG Image File"; break;
case "txt": $dsc="Text File"; break;
case "mp4": $dsc="Video File"; break;
}
//echo "EB=|$eb| I1=|$i1| FN=|$fn| EXT=|$ext| DSC=|$dsc| \n";
$bgclr="#FFFFF8"; if(!($i1 % 2)) $bgclr="#FFFFF8";
if($dsc) {
$siz=filesize($file);
$k=sprintf("% 6.1fK",$siz/1024);
list($pprt,$zsfx,$gano)=explode("-",$file);
if(!$gano) {
list($zsfx,$ext)=explode(".",$zsfx);
$zsfx=preg_replace("/_/"," ",$zsfx);
} else {
list($gano,$ext)=explode(".",$gano);
}
if(is_numeric($gano)) $gano=$gano+0;
if(!$gano) {
list($zxx,$zgx)=preg_split("/GA/",$file);
list($zga,$zyy)=explode('_',$zgx);
$gano=$zga;
}
if(!$gano) $gano=$zga;
$pprt=preg_replace("/_/"," ",$pprt);
$auth=""; if($zsfx != "Rudolf_Steiner") {
$auth="(by ".$zsfx.")";
//echo "ZSFX=|$zsfx| \n";
}
if($pprt != $oprt) {
if($oprt) {
echo <<
EOF;
}
$i1++; $bgclr="#FFFFF8"; if(!($i1 % 2)) $bgclr="#FFFFF8";
$oprt=$pprt;
}
echo <<$pprt $auth
$gano | |
$k | |
$dsc |
EOF;
}
$dsc="";
$i1++;
}
echo <<
EOF;
include("README.html");
if($xs) {
echo <<
EOF;
} else {
echo <<
Archive Home
EOF;
}
echo << |
|
$zniv