<perl>
get "perl_list", "pl_hash";             # ---- perl_list in den pl_hash
eval $pl_hash{pl_code}[0];              # ---- und 'basics' mit 'pl_eval()' laden

#&pl_eval('logInPers');
#&pl_eval('fillSelect');
#&pl_eval('getRelVal');
#&pl_eval('setColGroup');
&pl_eval('array_to_js');
@filesLong=get "/","down,base,htx";     # ---- nur Seiten
$len=@filesLong;
for($i=0;$i<$len;$i++){
  $tx=pop(@filesLong);
  $tx=substr($tx,18,length($tx)-22);    # ---- Pfad und .htx weg
  push(@filesShort,$tx);                # ---- umgekehrt in neue Liste
}

out "<br><div id='divOut'>...</div><br>";

# --------------- file_name ------------------------------------------------------
out <<EOF;
<script>

  if(files.length >0){
    file=files.pop();                                                // nächster file
    document.getElementById('downloadlink').download=file + '.txt';  // file_name
    cnt++;
    document.getElementById('divOut').innerHTML=cnt + '.: ' + file;
    file = btoa(file);
    neueSeite('retStr='+encodeURIComponent(file));                   // ajax_aufruf 
  } else {
    document.getElementById('divOut').innerHTML=cnt + ' Downloads sind fertig.';
  }
}

</script>
EOF
</perl>

  $file=convert_utf8($retStr);
  $file=decode_base64($file);
  $text=get "$file.htx";            # ---- nächster file vom server
  $text=encode_base64($text);
  out $text;
</perl>

  function _neueSeite(text){
  text=atob(text);
  if(myBlob !== null){
    window.URL.revokeObjectURL(myBlob);}               // altes löschen 
  myBlob = new Blob([text], {type: 'text/htx'});       // text in den 'blob'
  blobUrl = URL.createObjectURL(myBlob);
  link = document.getElementById('downloadlink');
  link.href = blobUrl;                                 // blob nach href(a) 
  link.click();                                        // click auf download
  neuerFile();                                         // nächste Seite ...
  }

</script>