1 2 3 4 5 6 7 8 9 10 11 12
#!/usr/bin/env perl use strict; use warnings; use Plack::Request; sub { my $req = Plack::Request->new($_[0]); system("git fetch --prune --tags"); system("git push --mirror github"); return [200, ['Content-Type' => 'text/plain'], ['']]; };