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 Archive & 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
Rudolf Steiner Archive Dodecahedron Version 2.5.4
Download Files
Rudolf Steiner Archive Home

EOF; include("HEADER.html"); echo << 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 "epub": $dsc="ePub Document (iOS,Android)"; break; case "mobi": $dsc="MOBI Document (Kindle)"; 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 EOF; } $dsc=""; $i1++; } echo <<
Name GA #  Size  Document Type

$gano  $k  $dsc

EOF; include("README.html"); if($xs) { echo <<
  
EOF; } else { echo <<
Archive Home Archive Home

EOF; } echo <<
$zniv
EOF; ?>