Alle Open source-Installer sind wieder online!

[Torsten]

Hab’s gerade gesehen: Kevin Miller hat einen Link gepostet, unter dem alle bisherigen Open Source Installer zu finden sind: https://community.livecode.com/

Happy Scripting
Torsten

[Torsten]

Wer alle Installer archivieren möchte, kann das mit dem folgenden Script tun (hab’s selbst gerade gemacht). Aber Vorsicht, es alle Versionen zusammen sind 60 GB!

Wer will, kann sich ja schnell eine Zeile einfügen, die einen Filter setzt (habe es schon vorbereitet.

Einfach das Skript in einen Button kopieren, draufdrücken und abwarten 🙂

Ich habe in meinem Stack noch eingebaut, dass der aktuelle Dateiname an ein Field angefügt wird, um zu sehen, was gerade passiert und einen Abbruch-Button, aber das kann ja jeder selbst anpassen.

Happy Skripting
Torsten

on mouseup
   
   answer folder "Select download directory:"
   if it is empty then exit to top
   put it into tDownloadFolder
   
   put "https://community.livecode.com/"  into tHomeUrl
   put url tHomeUrl into tHomeHtml
   repeat for each line tLine in tHomeHtml
      
      if "href=" is not in tLine then next repeat
      put extractHrefLink(tLine) into tFolder
      if tFolder contains "?" then next repeat -- ignoriert die Listenansicht-Links 
      replace "/" with empty in tFolder
      
      -- an dieser Stelle könnte man einen Filter einbauen, falls man nicht alle Versionen laden möchte
      -- z.B. if trueword 1 of tFolder < 8 then next repeat -- überspringt alle Versionen vor 8
      
      put tDownloadFolder & "/" & tFolder into tSubFolder
      if there is no folder tSubFolder then
         create folder tSubFolder
         set the defaultfolder to tSubFolder
      end if
      DownloadOSFiles tHomeUrl, tFolder
      
   end repeat
   
end mouseup

---------------------------------------------------------------------

command DownloadOSFiles tHomeUrl, tFolder
   
   put url (tHomeUrl & tFolder & "/") into tSubPage
   
   repeat for each line tLine in tSubPage
      
      if "href=" is not in tLine then next repeat
      put extractHrefLink(tLine) into tLink
      if tLink contains "?" then next repeat
      if tLink is "/" then next repeat
      put tHomeUrl & tFolder & "/" & tLink into tFileUrl
      put url tFileUrl into url ("binfile:" & tLink)
      
   end repeat
   
end DownloadOSFiles

---------------------------------------------------------------------

function extractHrefLink pText
   
   set itemdelimiter to "href=" & quote
   put item 2 of pText into tLink
   set itemdelimiter to quote
   return item 1 of tLink
   
end extractHrefLink

[Autor]

Beiträge