X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=blobdiff_plain;f=cgi;h=c80e5f921b5621673cd8fa73db9bc0f0e05e08b4;hb=d442a8503cb012b0abbc86c9a19e5c0e2bfdd116;hp=96282376aabff29acc3ff6421d20df427acd574c;hpb=457ce43b1bb5357a39b5e99f937c36896f1e9597;p=rrd-graphs.git

diff --git a/cgi b/cgi
index 9628237..c80e5f9 100755
--- a/cgi
+++ b/cgi
@@ -379,6 +379,26 @@ if (param('debug')) {
     print "Content-Type: text/plain\n\n";
 }
 
+sub source_tarball ($$) {
+    my ($spitoutfn) = @_;
+}
+
+if (path_info() =~ m/\.tar\.gz$/) {
+    print "Content-Type: application/octet-stream\n\n";
+
+    exec '/bin/sh','-c','
+		(
+		 git-ls-files -z;
+		 git-ls-files -z --others --exclude-from=.gitignore;
+		 if test -d .git; then find .git -print0; fi
+		) | (
+		 cpio -Hustar -o --quiet -0 -R 1000:1000 || \
+		 cpio -Hustar -o --quiet -0
+		) | gzip
+	';
+    die $!;
+}
+
 our @navsettings;
 
 @navsettings= ();
@@ -564,3 +584,13 @@ foreach my $group (@{ $section_groups{$section} }) {
     print "</a>\n";
 }
 
+my $homeurl =
+    'http://www.chiark.greenend.org.uk/ucgi/~ijackson/git/rrd-graphs/';
+print <<END
+<hr>Generated by "<a href="$homeurl">rrd-graphs</a>".
+Copyright 2010,2012 Ian Jackson.  There is <strong>NO WARRANTY</strong>.
+Available under the Affero Public General Licence, version 3 or any
+later version.  You may download the
+<a href="$self/rrd-graphs.tar.gz">source code</a>
+for the version currently running here.
+END