Alle Open source-Installer sind wieder online!

Startseite Foren Deutsches LiveCode-Forum Alle Open source-Installer sind wieder online!

Ansicht von 1 Antwort-Thema
  • Autor
    Beiträge
    • #35677
      Torsten
      Teilnehmer

      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

    • #35719
      Torsten
      Teilnehmer

      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
      
Ansicht von 1 Antwort-Thema
  • Du musst angemeldet sein, um auf dieses Thema antworten zu können.