chiark
/
gitweb
/
~ijackson
/
rrd-graphs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
457ce43
)
add source download feature
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Mon, 20 Feb 2012 14:46:25 +0000
(14:46 +0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Mon, 20 Feb 2012 14:46:25 +0000
(14:46 +0000)
cgi
patch
|
blob
|
history
diff --git
a/cgi
b/cgi
index 96282376aabff29acc3ff6421d20df427acd574c..c80e5f921b5621673cd8fa73db9bc0f0e05e08b4 100755
(executable)
--- a/
cgi
+++ b/
cgi
@@
-379,6
+379,26
@@
if (param('debug')) {
print "Content-Type: text/plain\n\n";
}
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= ();
our @navsettings;
@navsettings= ();
@@
-564,3
+584,13
@@
foreach my $group (@{ $section_groups{$section} }) {
print "</a>\n";
}
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