blob: cec2d9f3ad669b186964327e00d8252e13e4d8fa (
plain) (
tree)
|
|
#!/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'], ['']];
};
|