snaphots: import into git

The snapshot web page generation was previously done outside of the normal procedures. Now, only the actual snapshot generation is left outside. This is an import and edit of the exsting content. Fixes #331 Closes #369
curl · Aug 6, 2024 · 8e318fb · 8e318fb
1 parent e0825ce
commit 8e318fb
Show file tree

Hide file tree

Showing 5 changed files with 167 additions and 0 deletions.
diff --git a/Makefile b/Makefile
@@ -54,6 +54,7 @@ all: $(PAGES)
 	cd dev && make
 	cd windows && make
 	cd qnx && make
+	cd snapshots && make
 	cd tiny && make
 	cd logo && make
 	cd trurl && make

diff --git a/snapshots/Makefile b/snapshots/Makefile
@@ -0,0 +1,20 @@
+ROOT=..
+
+SRCROOT=$(ROOT)/cvssource
+DOCROOT=$(SRCROOT)/docs
+
+include $(ROOT)/mainparts.mk
+include $(ROOT)/setup.mk
+
+PAGES=index.html
+
+all: $(PAGES)
+
+index.html: _index.html $(MAINPARTS) files.gen
+	$(ACTION)
+
+files.gen: mkindex.pl curl-*
+	./mkindex.pl >$@
+
+clean:
+	rm -f $(PAGES) *.gen
diff --git a/snapshots/_index.html b/snapshots/_index.html
@@ -0,0 +1,67 @@
+#include "_doctype.html"
+<html>
+<head> <title>daily curl snapshots</title>
+#include "css.t"
+</head>
+
+#define CURL_URL /snapshots
+
+#include "_menu.html"
+#include "setup.t"
+
+WHERE2(Download, "/download.html", Daily Snapshots)
+
+TITLE(Daily curl snapshots)
+<div class="relatedbox">
+<b>Related:</b>
+<br><a href="/auto/">Autobuilds</a>
+<br><a href="https://github.com/curl/curl">Browse git</a>
+<br><a href="/ch/">Changelog</a>
+<br><a href="/dev/release-notes.html">Dev Release Notes</a>
+<br><a href="/support.html">Support</a>
+</div>
+<p>
+ <b>WARNING</b>, these packages are built daily and automatically straight
+ from git. They may be broken, crashing, working or whatever. Don\'t assume
+ anything else!
+
+SUBTITLE(Binary snapshots)
+<ul>
+<li><a href="https://github.com/pheiduck/curl-daily/releases">Arch Linux</a>
+<li><a href="https://github.com/curl/curl-container/pkgs/container/curl-container%2Fcurl">Docker</a>
+<li><a href="https://github.com/curl/curl-for-win/actions/workflows/daily.yml">Windows</a>
+</ul>
+
+<div style="float: right; width: 50%; margin-left: 2em;">
+SUBTITLE(Source tarballs)
+<p>
+#include "files.gen"
+</div>
+
+SUBTITLE(Contents)
+<p>
+ These snapshots are generated straight from git every euro morning. Snapshots
+ are kept a few weeks before deleted.
+
+<p>
+ The <b>docs/RELEASE-TOOLS.md</b> document is bundled in every snapshot,
+ showing the tooling needed to reproduce the snapshot tarball. This is not
+ necessarily the same set of tools+versions as official curl releases use,
+ because these snapshots are generated automatically on a different host.
+
+<p> Since August 2024, every snapshot contains a file named
+ <b>docs/tarball-commit.txt</b> that contains the commit hash that was the
+ HEAD at the time the tarball is made.
+
+SUBTITLE(Extensions)
+<p>
+<ul>
+<li> <b>tar.bz2</b> is the source tar archive bzip2 compressed
+<li> <b>zip</b> is the source archive zip compressed
+<li> <b>tar.xz</b> is the source tar archive xz compressed
+
+</ul>
+
+#include "_footer.html"
+</body>
+</html>
diff --git a/snapshots/curl-temp.txt b/snapshots/curl-temp.txt
@@ -0,0 +1 @@
+# dummy
diff --git a/snapshots/mkindex.pl b/snapshots/mkindex.pl
@@ -0,0 +1,78 @@
+#!/usr/bin/perl
+
+my $dir=".";
+opendir(DIR, $dir) || die "can't opendir $dir: $!";
+my @files = readdir(DIR);
+closedir DIR;
+
+sub filesize {
+    my ($filename)=@_;
+
+    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+        $atime,$mtime,$ctime,$blksize,$blocks)
+        = stat($filename);
+
+    return $size;
+}
+
+for(@files) {
+    my $file = $_;
+    if($file =~ /^curl-([0-9.]*)-([0-9]*)\.(.*)/) {
+        my ($version, $date, $ext)=($1, $2, $3);
+        $dates{$date}=$date;
+        $exts{$date}.="$ext,";
+        $allext{$ext}++;
+        $file{$date.$ext}=$file;
+        $version{$date}=$version;
+    }
+}
+
+my $ae;
+for(keys %allext) {
+    $ae .= "$_ ";
+}
+
+print <<MOO
+<table class="daily" cellspacing="0" cellpadding="3">
+<tr class="tabletop"><th>date</th>
+MOO
+    ;
+for(sort split(" ", $ae)) {
+    print "<th>$_</th>\n";
+}
+print "</tr>\n";
+
+my $i;
+for(reverse sort keys %dates) {
+    my $date=$_;
+    $finedate = $date;
+    if($date =~ /(\d\d\d\d)(\d\d)(\d\d)/) {
+        $finedate = sprintf("%04d-%02d-%02d", $1, $2, $3);
+    }
+
+    printf "<tr class=\"%s\"><td>$finedate</td> ",
+    $i++&1?"odd":"even";
+    for(sort split(" ", $ae)) {
+        my $ext=$_;
+        my $file = $file{$date.$ext};
+
+        if(-f "$dir/$file" ) {
+            if(!$bestfile{$ext}) {
+                print "<!--\n",
+                "NEWEST ${ext} $file\n",
+                "-->\n";
+                $bestfile{$ext}=1;
+            }
+
+
+            printf "<td><a href=\"${url}%s\">%.2fMB</a></td>",
+            $file, filesize("$dir/$file")/(1024*1024);
+        }
+        else {
+            print "<td>&nbsp;</td>\n";
+        }
+    }
+
+    print "</tr>\n";
+}
+print "</table>\n";