acme: sed off more pedantically
[girocco/readme.git] / cgi / mirrorproj.cgi
blob4b1062ddbca58095c0f11d4a3abb49256f22bb64
1 #!/usr/bin/perl
2 # (c) Petr Baudis <pasky@suse.cz>
3 # GPLv2
5 use strict;
6 use warnings;
8 use lib "__BASEDIR__";
9 use Girocco::CGI;
10 use Girocco::Config;
11 use Girocco::Project;
12 use Girocco::Util;
14 my $gcgi = Girocco::CGI->new('Project Mirroring');
15 my $cgi = $gcgi->cgi;
17 my $name = $cgi->param('name');
18 $name =~ s#\.git$## if $name; #
20 unless (defined $name) {
21 print "<p>I need the project name as an argument now.</p>\n";
22 exit;
25 if (!Girocco::Project::does_exist($name,1) && !Girocco::Project::valid_name($name)) {
26 print "<p>Invalid project name. Go away, sorcerer.</p>\n";
27 exit;
30 if (!Girocco::Project::does_exist($name,1)) {
31 print "<p>Sorry but the project $name does not exist. Now, how did you <em>get</em> here?!</p>\n";
32 exit;
35 my $proj = Girocco::Project->load($name);
36 if (!$proj) {
37 print "<p>not found project $name, that's really weird!</p>\n";
38 exit;
40 my $escname = $name;
41 $escname =~ s/[+]/%2B/g;
43 if (!$proj->{mirror}) {
44 print "<p>This project is not a mirror to be cloned.</p>\n";
45 exit;
49 $| = 1;
51 if (!$proj->{clone_logged} or $proj->{clone_failed}) {
52 # Kick off the clone since it is not running yet
53 print "<p>Initiated mirroring of ".$proj->{url}." to $Girocco::Config::name project ".
54 "<a href=\"@{[url_path($Girocco::Config::gitweburl)]}/$name.git\">$name</a>.git:</p>\n";
56 } elsif ($proj->{clone_in_progress}) {
57 print "<p>Mirroring of ".$proj->{url}." to $Girocco::Config::name project ".
58 "<a href=\"@{[url_path($Girocco::Config::gitweburl)]}/$name.git\">$name</a>.git in progress:</p>\n";
59 } else {
60 print "<p>Mirroring of ".$proj->{url}." to $Girocco::Config::name project ".
61 "<a href=\"@{[url_path($Girocco::Config::gitweburl)]}/$name.git\">$name</a>.git completed:</p>\n";
64 my $retries = 7;
65 for (;;) {
66 open LOG, '<', $proj->_clonelog_path() and last;
67 if ($retries--) {
68 sleep 1;
69 } else {
70 print "<p>Mirroring has not yet started, there may be a clone backlog.</p>\n";
71 print "<p>Please <a href=\"@{[url_path($Girocco::Config::webadmurl)]}/mirrorproj.cgi?name=$escname\">reload this page</a> again later.</p>\n";
72 exit 0;
76 print "<pre>\n";
77 tailf: for (;;) {
78 my $curpos;
79 for ($curpos = tell(LOG); <LOG>; $curpos = tell(LOG)) {
80 chomp;
81 $_ eq '@OVER@' and last tailf;
82 print "$_\n";
84 sleep 1;
85 seek(LOG, $curpos, 0); # seek to where we had been
87 print "</pre>\n";
88 close LOG;
90 $proj = Girocco::Project->load($name);
91 $proj or die "not found project $name on second load, that's _REALLY_ weird!";
93 if ($proj->{clone_failed}) {
94 print <<EOT;
95 <p><strong>Mirroring failed!</strong> Please <a
96 href="@{[url_path($Girocco::Config::webadmurl)]}/editproj.cgi?name=$escname"
97 >revisit the project settings</a>.</p>
98 EOT