~mdw / userv-utils / blame
| Commit | Line | Data |
|---|---|---|
| 18c4999f TF |
1 | #!/usr/bin/perl |
| 2 | # | |
| 3 | # userv-git-daemon service script | |
| 4 | # | |
| 5 | # This was written by Tony Finch <dot@dotat.at> | |
| 6 | # You may do anything with it, at your own risk. | |
| 7 | # http://creativecommons.org/publicdomain/zero/1.0/ | |
| 8 | ||
| 9 | use strict; | |
| 10 | use warnings; | |
| 11 | ||
| 12 | use Sys::Syslog; | |
| 13 | ||
| 14 | my $service = $ENV{"USERV_SERVICE"}; | |
| 15 | $service =~ s|^git-||; | |
| 16 | ||
| 17 | ${$cf::{$_}} = $ENV{"USERV_U_$_"} | |
| 18 | for grep s/^USERV_U_//, keys %ENV; | |
| 19 | ||
| 20 | openlog 'userv-git-daemon/$service', 'pid', 'daemon'; | |
| 21 | ||
| 22 | sub cf::fail { | |
| 23 | syslog 'err', "$cf::client @_"; | |
| 24 | exit; | |
| 25 | } | |
| 26 | ||
| 27 | package cf; | |
| 28 | ||
| 29 | our $check_repo = 1; | |
| 30 | our $check_export = 0; | |
| 31 | our ($dir,$repo,$client); | |
| 32 | $_ = our $uri; | |
| 33 | for my $cf (@ARGV) { | |
| 34 | do $cf; | |
| 35 | } | |
| 36 | ||
| 37 | fail "no repository configured for $uri" unless defined $repo; | |
| 38 | fail "no directory configured for $uri" unless defined $dir; | |
| 39 | ||
| 40 | my $home = (getpwuid $<)[7]; | |
| 41 | $dir = "$home/$dir" if $dir =~ m|^[^/]| | |
| 42 | or $dir =~ s|^~/||; | |
| 43 | $dir = "$dir/$repo"; | |
| 44 | ||
| 45 | fail "bad repository in $uri" | |
| 46 | if $check_repo and $repo !~ /^[0-9A-Za-z._-]+[.]git$/; | |
| 47 | fail "repository not exported for $uri" | |
| 48 | if $check_export and not -e "$dir/git-daemon-export-ok"; | |
| 49 | ||
| 50 | my @cmd = ('git', $service, '--strict', '--timeout=30', $dir); | |
| 51 | no warnings; # suppress errors to stderr | |
| 52 | exec @cmd or fail "exec @cmd: $!"; | |
| 53 | ||
| 54 | # end |