All new accounts created on Gitlab now require administrator approval. If you invite any collaborators, please let Flux staff know so they can approve the accounts.

Commit 28e0f9ea authored by Leigh B Stoller's avatar Leigh B Stoller

Instead of relying on a cron job pn bas to push a copy of the repo

over, we can now just pull it with anon git.
parent 66b783cc
#!/usr/bin/perl -w #!/usr/bin/perl -w
# #
# Copyright (c) 2004-2010 University of Utah and the Flux Group. # Copyright (c) 2004-2013 University of Utah and the Flux Group.
# #
# {{{EMULAB-LICENSE # {{{EMULAB-LICENSE
# #
...@@ -26,10 +26,9 @@ use Getopt::Std; ...@@ -26,10 +26,9 @@ use Getopt::Std;
use POSIX; use POSIX;
# #
# Yuck. Take the cvs log for the testbed which is rsync'ed over from # Yuck. Take the cvs log for the testbed, and pull out the last N
# the flux cvs server each night, and pull out the last N months of # months of entries, reversing them in the process. Then write the
# entries, reversing them in the process. Then write the file into the # file into the www directory!
# www directory!
# #
# This script should be run from crontab on the main emulab site only. # This script should be run from crontab on the main emulab site only.
# #
...@@ -60,7 +59,7 @@ if ($UID) { ...@@ -60,7 +59,7 @@ if ($UID) {
my $TB = "@prefix@"; my $TB = "@prefix@";
my $TBOPS = "@TBOPSEMAIL@"; my $TBOPS = "@TBOPSEMAIL@";
my $GIT = "/usr/local/bin/git"; my $GIT = "/usr/local/bin/git";
my $GITDIR = "/z/GIT/emulab-devel.git"; my $GITDIR = "/z/GIT/emulab-devel";
my $OUTPUTLOG = "$TB/www/doc/ChangeLog.txt"; my $OUTPUTLOG = "$TB/www/doc/ChangeLog.txt";
my $MONTHROOT = "$TB/www/doc/ChangeLog"; my $MONTHROOT = "$TB/www/doc/ChangeLog";
my $HTMLFILE = "$TB/www/doc/changelog-months.html"; my $HTMLFILE = "$TB/www/doc/changelog-months.html";
...@@ -96,8 +95,16 @@ if (! getopts($optlist, \%options)) { ...@@ -96,8 +95,16 @@ if (! getopts($optlist, \%options)) {
if (defined($options{d})) { if (defined($options{d})) {
$debug = 1; $debug = 1;
} }
chdir($GITDIR) or
fatal("Could not chdir to $GITDIR");
if (!open(INPUT, "$GIT --git-dir=$GITDIR log ". #
# Pull down latest.
#
system("$GIT pull -q") == 0
or fatal("Could not pull down latest repo");
if (!open(INPUT, "$GIT log ".
"--pretty=medium --numstat --date=iso --reverse |")) { "--pretty=medium --numstat --date=iso --reverse |")) {
fatal("Could not start $GIT log process!"); fatal("Could not start $GIT log process!");
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment