mirror of https://github.com/CGAL/cgal
Remove some antique scripts (pre-CVS area).
This commit is contained in:
Sylvain Pion
parent
216c62b83e
commit
e2b46846b1
|
|
@ -1,205 +0,0 @@
|
|||
#! /sw/bin/perl -T
|
||||
|
||||
use strict;
|
||||
|
||||
|
||||
#--------------------------------------------------------------#
|
||||
# This script scans through the mail box $MAIL_IN, using formail.
|
||||
# It handles requests automatically.
|
||||
# This script deals with reading the mail box and dispatching the separate
|
||||
# mails to the program that treats one mail.
|
||||
# It takes care that there is only one program doing so, by means of locking.
|
||||
#--------------------------------------------------------------#
|
||||
|
||||
# the mail boxes
|
||||
my $Scripts_directory='/projects/CGAL/admin_scripts';
|
||||
my $Data_directory='/projects/CGAL/submissions/autohandle/data';
|
||||
my $LOCKFILE="$Data_directory/collect_submission.lock";
|
||||
my $Mail_directory='/users/geert/PUBLIC/CGAL-submit';
|
||||
my $MAIL_IN="$Mail_directory/incoming-mail";
|
||||
#my $MAIL_OUT="$Mail_directory/handled-mail";
|
||||
my $MAIL_TMP="$Mail_directory/temp-mail";
|
||||
my $SCRIPT="$Scripts_directory/collect_submissions";
|
||||
my $MAIL_PROG="$Scripts_directory/send_cgal_mail";
|
||||
my $treat_one_mail_program="$Scripts_directory/treat_submit_mail";
|
||||
|
||||
# program locations
|
||||
my $FORMAIL="/sw/bin/formail";
|
||||
my $LOCKCMD="/sw/bin/lockfile";
|
||||
|
||||
# the log file
|
||||
my $LOGFILE="$Data_directory/collect_submissions.log";
|
||||
|
||||
#
|
||||
my $seconds_between_invocations=300;
|
||||
my $max_tries_between_warning= int 21600/$seconds_between_invocations;
|
||||
|
||||
$ENV{PATH}='/sbin:/usr/sbin:/usr/bsd:/bin:/usr/bin';
|
||||
|
||||
# variable that is set when there is an attempt to kill this process.
|
||||
my $please_die=0;
|
||||
|
||||
my $invoker = $ENV{USER};
|
||||
if ($invoker =~ /^\s*([-\@\w]+)\s*$/) {
|
||||
$invoker = "$1\@cs.uu.nl";
|
||||
} else {
|
||||
print STDERR <<"TOTHIER";
|
||||
The script $SCRIPT did not start because
|
||||
the USER environment value has a strange value.
|
||||
TOTHIER
|
||||
exit 1;
|
||||
}
|
||||
|
||||
my $hostname = $ENV{HOST};
|
||||
if ($hostname =~ /^\s*([-\@\w.]+)\s*$/) {
|
||||
$hostname = $1;
|
||||
} else {
|
||||
print STDERR <<"TOTHIER";
|
||||
The script $SCRIPT did not start because
|
||||
the HOST environment value has a strange value ($hostname).
|
||||
TOTHIER
|
||||
exit 1;
|
||||
}
|
||||
|
||||
|
||||
sub termination_signal_handler {
|
||||
$please_die=1;
|
||||
}
|
||||
|
||||
|
||||
sub initialisation()
|
||||
{
|
||||
#
|
||||
# Disable signals that kill this process.
|
||||
#
|
||||
|
||||
$SIG{INT} = \&termination_signal_handler;
|
||||
$SIG{TERM} = \&termination_signal_handler;
|
||||
|
||||
#
|
||||
# Try to acquire the lock.
|
||||
# Quit with a message if it fails.
|
||||
#
|
||||
|
||||
if ( system("$LOCKCMD", "-r", '10', "$LOCKFILE") != 0) {
|
||||
open NOTICE, "|$MAIL_PROG \"collect_submissions notice\" $invoker";
|
||||
print NOTICE <<"TOTHIER";
|
||||
The script $SCRIPT could not proceed because
|
||||
it could not acquire the needed lock on file $LOCKFILE.
|
||||
TOTHIER
|
||||
close NOTICE;
|
||||
exit 1;
|
||||
}
|
||||
#
|
||||
# Now that you have the lock, check to see if there is another process
|
||||
# executing this program. If so, quit.
|
||||
#
|
||||
my $logline = `tail -1 $LOGFILE`;
|
||||
if ($logline !~ /stopped/) {
|
||||
unlink $LOCKFILE;
|
||||
open NOTICE, "|$MAIL_PROG \"collect_submissions notice\" $invoker";
|
||||
print NOTICE <<"TOTHIER";
|
||||
The script $SCRIPT did not proceed because
|
||||
there seems to be another process collecting the mail messages.
|
||||
The file $LOGFILE says:
|
||||
|
||||
$logline
|
||||
TOTHIER
|
||||
close NOTICE;
|
||||
exit 1;
|
||||
}
|
||||
#
|
||||
# We can proceed. Record a message to the log file that this process
|
||||
# takes control of dealing with the mail box.
|
||||
#
|
||||
open LOGFILE, ">>$LOGFILE";
|
||||
print LOGFILE "$hostname $$: started executing on ", `date`;
|
||||
close LOGFILE;
|
||||
|
||||
unlink $LOCKFILE;
|
||||
}
|
||||
|
||||
sub new_untreated_mail_file()
|
||||
{
|
||||
my $filename;
|
||||
my $n=1;
|
||||
for ($n=1; $n<1000; ++$n) {
|
||||
$filename="$Mail_directory/untreated_mail_$n";
|
||||
last if (! -f $filename);
|
||||
}
|
||||
return $filename;
|
||||
}
|
||||
|
||||
sub treat_current_mail()
|
||||
{
|
||||
if ( -f $MAIL_IN ) {
|
||||
if ( system("$LOCKCMD", "-r", '10', "$MAIL_IN.lock") == 0) {
|
||||
rename($MAIL_IN, $MAIL_TMP);
|
||||
unlink "$MAIL_IN.lock";
|
||||
if (system("$FORMAIL -ns $treat_one_mail_program < $MAIL_TMP")== 0 )
|
||||
{
|
||||
unlink $MAIL_TMP;
|
||||
} else {
|
||||
my $Save_file = new_untreated_mail_file();
|
||||
rename($MAIL_TMP, $Save_file) or die;
|
||||
open NOTICE,
|
||||
"|$MAIL_PROG \"collect_submissions notice\" $invoker";
|
||||
print NOTICE <<"TOTHIER";
|
||||
The script $SCRIPT could not treat incoming mail.
|
||||
This mail was saved in $Save_file.
|
||||
TOTHIER
|
||||
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
sub main_loop()
|
||||
{
|
||||
my $tries_to_go = $max_tries_between_warning;
|
||||
while (! $please_die) {
|
||||
if ( system("$LOCKCMD", "-r", '10', "$LOCKFILE") != 0) {
|
||||
--$tries_to_go;
|
||||
if ($tries_to_go < 0) {
|
||||
open NOTICE,
|
||||
"|$MAIL_PROG \"collect_submissions notice\" $invoker";
|
||||
print NOTICE <<"TOTHIER";
|
||||
The script $SCRIPT could not proceed because
|
||||
it could not acquire the needed lock on file $LOCKFILE.
|
||||
TOTHIER
|
||||
close NOTICE;
|
||||
$tries_to_go = $max_tries_between_warning;
|
||||
}
|
||||
} else {
|
||||
$tries_to_go = $max_tries_between_warning;
|
||||
if ( -f $MAIL_TMP ) {
|
||||
open NOTICE,
|
||||
"|$MAIL_PROG \"collect_submissions notice\" $invoker";
|
||||
print NOTICE <<"TOTHIER";
|
||||
The script $SCRIPT has been stopped,
|
||||
because the temporary mail box $MAIL_TMP was not emptied.
|
||||
TOTHIER
|
||||
close NOTICE;
|
||||
unlink $LOCKFILE;
|
||||
$please_die = 1;
|
||||
} else {
|
||||
treat_current_mail;
|
||||
}
|
||||
unlink $LOCKFILE;
|
||||
}
|
||||
sleep $seconds_between_invocations unless $please_die;
|
||||
}
|
||||
}
|
||||
|
||||
sub finalisation()
|
||||
{
|
||||
open LOGFILE, ">>$LOGFILE";
|
||||
print LOGFILE "$hostname $$: stopped executing at ", `date`;
|
||||
close LOGFILE;
|
||||
}
|
||||
|
||||
initialisation();
|
||||
main_loop();
|
||||
finalisation();
|
||||
exit 0;
|
||||
|
||||
|
|
@ -1,581 +0,0 @@
|
|||
#!/sw/bin/perl -w
|
||||
|
||||
use strict;
|
||||
use File::Find;
|
||||
use Cwd;
|
||||
# install_submission <url1> <url2> ...
|
||||
|
||||
|
||||
my $testing=0;
|
||||
my $MAIL_PROG='/projects/CGAL/admin_scripts/send_cgal_mail';
|
||||
|
||||
my ($submission, $packagedir, $oldpackagedir, $download_dir,
|
||||
$console_output,
|
||||
$tempdir, $check_source_file_prog, @reply_list);
|
||||
my $WGET;
|
||||
|
||||
my $LOCKCMD="/sw/bin/lockfile";
|
||||
|
||||
umask 002;
|
||||
|
||||
sub init_variables()
|
||||
{
|
||||
if ($testing) {
|
||||
$packagedir='/users/geert/tmp/inst_www/packages';
|
||||
$oldpackagedir='/users/geert/tmp/inst_www/old_packages';
|
||||
$download_dir='/users/geert/tmp/inst_www/download';
|
||||
$console_output=1;
|
||||
$check_source_file_prog=
|
||||
'/users/geert/CGAL/Geert/maintenance/package_handling/check_headers';
|
||||
} else {
|
||||
$packagedir='/users/www/CGAL/Members/Develop/updates/packages';
|
||||
$oldpackagedir='/projects/CGAL/old_packages';
|
||||
$download_dir='/projects/CGAL/submissions/download';
|
||||
$console_output=0;
|
||||
$check_source_file_prog= '/projects/CGAL/admin_scripts/check_headers';
|
||||
}
|
||||
@reply_list = ('geert@cs.uu.nl');
|
||||
$WGET="/projects/CGAL/admin_scripts/get_cgal_html";
|
||||
}
|
||||
|
||||
$ENV{PATH}=
|
||||
'/sw/bin:/sbin:/usr/sbin:/usr/bsd:/bin:/usr/bin:/usr/bin/X11';
|
||||
|
||||
|
||||
|
||||
my $ACTUAL_LOGFILE="/tmp/install_www_submission.log.$$";
|
||||
|
||||
|
||||
|
||||
# write to logfile
|
||||
#
|
||||
|
||||
sub log_header($)
|
||||
{
|
||||
if ( $console_output ) {
|
||||
print "$_[0]\n";
|
||||
}
|
||||
print LOGFILE "-------------------------------------------------------\n";
|
||||
print LOGFILE " $_[0]\n";
|
||||
print LOGFILE "-------------------------------------------------------\n";
|
||||
}
|
||||
|
||||
sub log_msg($)
|
||||
{
|
||||
if ( $console_output ) {
|
||||
print "$0: $_[0]\n";
|
||||
}
|
||||
print LOGFILE " $_[0]\n";
|
||||
}
|
||||
|
||||
sub log_done()
|
||||
{
|
||||
if ( $console_output ) {
|
||||
print " done\n-------------------------------------------------------\n"
|
||||
}
|
||||
print LOGFILE "-------------------------------------------------------\n";
|
||||
print LOGFILE " DONE\n";
|
||||
print LOGFILE "-------------------------------------------------------\n";
|
||||
}
|
||||
|
||||
sub print_usage()
|
||||
{
|
||||
print STDERR "usage: $0 <url1> \n";
|
||||
}
|
||||
|
||||
|
||||
sub make_package_name($)
|
||||
{
|
||||
$_ = $_[0];
|
||||
# remove the directory path
|
||||
s|.*/||;
|
||||
# remove trailing blanks
|
||||
s|\s*$||;
|
||||
# remove suffixes
|
||||
s|\.gz$||;
|
||||
s|\.tar$||;
|
||||
s|\.zip$||;
|
||||
s|\.tgz$||;
|
||||
# remove version
|
||||
# s|([-\.\d]+)+[a-zA-Z]?$||;
|
||||
# or should that be
|
||||
s|([-\.]\d+)+[a-zA-Z]?$||;
|
||||
return $_;
|
||||
}
|
||||
|
||||
|
||||
sub belongs_to_release($)
|
||||
# parameter 1 is the name of the package
|
||||
{
|
||||
open PACKAGES_TO_INCLUDE, "$packagedir/include_in_release" or die;
|
||||
while (<PACKAGES_TO_INCLUDE>) {
|
||||
chomp;
|
||||
if (/^\s*$_[0]\s*$/) {
|
||||
close PACKAGES_TO_INCLUDE;
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
close PACKAGES_TO_INCLUDE;
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub create_package_dir()
|
||||
{
|
||||
$tempdir="$packagedir/TMP$$";
|
||||
mkdir($tempdir, 0775) ;
|
||||
}
|
||||
|
||||
sub unpack_package($)
|
||||
{
|
||||
my ($full_file_name);
|
||||
$full_file_name = shift;
|
||||
chdir $tempdir;
|
||||
if ( $full_file_name =~ /\.tar\s*$/) {
|
||||
system 'gtar', 'xf', "$full_file_name";
|
||||
} elsif ($full_file_name =~ /\.zip\s*$/) {
|
||||
system('unzip', '-oqq', "$full_file_name");
|
||||
} elsif ($full_file_name =~ /\.tgz\s*$/ or $full_file_name =~ /\.tar.gz\s*$/) {
|
||||
system("gunzip -c $full_file_name | gtar xf -");
|
||||
} else {
|
||||
return 0;
|
||||
}
|
||||
return !$?;
|
||||
}
|
||||
|
||||
sub gzip_if_psfile
|
||||
{
|
||||
if ($_ =~ /\.ps\s*$/ and -f $_) {
|
||||
system('gzip',"$_");
|
||||
}
|
||||
}
|
||||
|
||||
sub compress_psfiles()
|
||||
{
|
||||
if (-d 'doc_ps') {
|
||||
find(\&gzip_if_psfile, "doc_ps");
|
||||
}
|
||||
}
|
||||
|
||||
sub get_version($)
|
||||
{
|
||||
my ($version_string, $date);
|
||||
open VERSION, $_[0] or return ();
|
||||
while (<VERSION>) {
|
||||
next if (/^\s*$/);
|
||||
if ( /^\s*(\d+(?:[\.]\d+)*)\s*\((.*)\)\s*$/ ) {
|
||||
$version_string = $1;
|
||||
$date = $2;
|
||||
$_ = <VERSION>;
|
||||
close VERSION;
|
||||
if (/^\s*[Mm]aintainer\s*:\s*(.*)$/ ) {
|
||||
return ($version_string,$date, $1);
|
||||
} else {
|
||||
return ($version_string,$date);
|
||||
}
|
||||
}
|
||||
close VERSION;
|
||||
return ();
|
||||
}
|
||||
close VERSION;
|
||||
return ();
|
||||
}
|
||||
|
||||
sub check_version($)
|
||||
{
|
||||
my $package_name = shift;
|
||||
my ($new_version_string, $new_date, $package_maintainer,
|
||||
$old_version_string, $old_date, $old_package_maintainer,
|
||||
@nversion, @oversion);
|
||||
($new_version_string, $new_date,$package_maintainer) = get_version('version');
|
||||
if (!defined($new_version_string)) {
|
||||
log_msg "Failed to parse version file";
|
||||
return ();
|
||||
}
|
||||
if (!defined($package_maintainer)) {
|
||||
log_msg "Version file does not contain a maintainer line!";
|
||||
return ();
|
||||
}
|
||||
($old_version_string, $old_date, $old_package_maintainer) =
|
||||
get_version("$packagedir/$package_name/version");
|
||||
if (!defined($old_version_string)) {
|
||||
return ($new_version_string, $old_version_string, $package_maintainer);
|
||||
}
|
||||
my ($new_nr,$old_nr);
|
||||
@nversion = split /\./, $new_version_string;
|
||||
@oversion = split /\./, $old_version_string;
|
||||
my $version_ok = 0;
|
||||
while (@nversion) {
|
||||
$new_nr = shift @nversion;
|
||||
$old_nr = shift @oversion;
|
||||
$old_nr = 0 if !defined($old_nr);
|
||||
if ($new_nr < $old_nr) {
|
||||
last;
|
||||
}
|
||||
if ($new_nr > $old_nr) {
|
||||
$version_ok = 1;
|
||||
last;
|
||||
}
|
||||
}
|
||||
if (defined($old_package_maintainer)) {
|
||||
if ($old_package_maintainer =~ /\<(.*)\>/) {
|
||||
push(@reply_list, $1);
|
||||
}
|
||||
}
|
||||
if ( $package_maintainer ne $old_package_maintainer) {
|
||||
log_msg "Alert: Maintainer changed from '$old_package_maintainer'" .
|
||||
" to '$package_maintainer'";
|
||||
}
|
||||
if ($version_ok ) {
|
||||
return ($new_version_string,$old_version_string, $package_maintainer);
|
||||
} else {
|
||||
log_msg
|
||||
"Version $new_version_string is not bigger than $old_version_string";
|
||||
return ();
|
||||
}
|
||||
}
|
||||
|
||||
my @source_files_to_check;
|
||||
|
||||
sub add_codefiles
|
||||
{
|
||||
if ( $_ =~ /\.(C|h)\s*$/ and -f $_) {
|
||||
push @source_files_to_check, $File::Find::name;
|
||||
}
|
||||
}
|
||||
|
||||
sub check_codefiles($$)
|
||||
{
|
||||
my $package_name = $_[0];
|
||||
my $package_maintainer = $_[1];
|
||||
@source_files_to_check = ();
|
||||
if (-d 'include') {
|
||||
find(\&add_codefiles, "include");
|
||||
}
|
||||
if (-d 'src') {
|
||||
find(\&add_codefiles, "src");
|
||||
}
|
||||
if (-d 'config') {
|
||||
find(\&add_codefiles, "config");
|
||||
}
|
||||
my $source_file;
|
||||
foreach $source_file (@source_files_to_check) {
|
||||
system("$check_source_file_prog -u -d \"\" -p \"$package_name\" -m \"$package_maintainer\" $source_file >tmpmsg.$$");
|
||||
open CHECK_MSGS, "<tmpmsg.$$";
|
||||
while (<CHECK_MSGS>) {
|
||||
chomp;
|
||||
log_msg($_);
|
||||
}
|
||||
close CHECK_MSGS;
|
||||
unlink "tmpmsg.$$";
|
||||
}
|
||||
}
|
||||
|
||||
sub append_maintainer_file_to_version_file()
|
||||
{
|
||||
open(MAINTAINER,'maintainer') or return;
|
||||
$_ = <MAINTAINER>;
|
||||
if (/^\s*$/) {
|
||||
close(MAINTAINER);
|
||||
return;
|
||||
}
|
||||
open(VERSION,'>>version');
|
||||
if ($_ !~ /^maintainer\s*:/) {
|
||||
print VERSION "maintainer: ";
|
||||
}
|
||||
print VERSION $_;
|
||||
close(VERSION);
|
||||
while (<MAINTAINER>) {
|
||||
if ($_ =~ /\<(.*@.*)\>/) {
|
||||
push(@reply_list, $1);
|
||||
}
|
||||
}
|
||||
close(MAINTAINER);
|
||||
}
|
||||
|
||||
sub filenames_of_package_ok($)
|
||||
{
|
||||
my $rc;
|
||||
$rc = system("/projects/CGAL/admin_scripts/check_filenames_of_package \"$_[0]\" . >tmpmsg.$$");
|
||||
open CHECK_MSGS, "<tmpmsg.$$";
|
||||
while (<CHECK_MSGS>) {
|
||||
chomp;
|
||||
log_msg($_);
|
||||
}
|
||||
close CHECK_MSGS;
|
||||
unlink "tmpmsg.$$";
|
||||
|
||||
$rc >>= 8;
|
||||
if ($rc == 1) {
|
||||
log_msg("ERROR: sorry, there was an internal error at Utrecht.")
|
||||
}
|
||||
if ($rc == 2) {
|
||||
log_msg("ERROR: Your submissions contains files that are in use in another package")
|
||||
}
|
||||
return ($rc == 0);
|
||||
}
|
||||
|
||||
sub check_for_ignored_files()
|
||||
{
|
||||
my %expected_names;
|
||||
my @expected_names = ("include", "test", "examples", "demo", "src",
|
||||
"version","doc_tex","stlport","winutils","auxiliary",
|
||||
"developer_scripts","scripts","cgal_config.bat",
|
||||
"install.txt","INSTALL.win32",
|
||||
"submission_info","maintainer","description.txt",
|
||||
"changes.txt","long_description.txt","doc_ps");
|
||||
my @files_in_directory;
|
||||
opendir THISDIR, "." or die "Cannot open current directory: $!";
|
||||
@files_in_directory = grep !/^\.\.?$/, readdir THISDIR;
|
||||
closedir THISDIR;
|
||||
for (@expected_names) {
|
||||
$expected_names{$_}++;
|
||||
}
|
||||
for (@files_in_directory) {
|
||||
if (!$expected_names{$_}) {
|
||||
log_msg "WARNING: toplevel file $_ will not go into releases!";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
sub check_package($)
|
||||
{
|
||||
my ($version, $prev_version, $package_maintainer);
|
||||
if ( ! -f 'version' ) {
|
||||
log_msg "ERROR: File version is missing!";
|
||||
return 0;
|
||||
}
|
||||
if (-f 'maintainer') {
|
||||
append_maintainer_file_to_version_file();
|
||||
}
|
||||
if ( ! (($version, $prev_version, $package_maintainer) =
|
||||
check_version($_[0])) ) {
|
||||
log_msg "ERROR: version file does not pass the checks!";
|
||||
return 0;
|
||||
}
|
||||
if ( ! -f 'description.txt' ) {
|
||||
log_msg "WARNING: File description.txt is missing!";
|
||||
} else {
|
||||
my $word_count;
|
||||
$word_count = `cat description.txt| wc -w`;
|
||||
if ($word_count > 50) {
|
||||
log_msg "WARNING: File description.txt contains more than 50 words!";
|
||||
}
|
||||
my $rc;
|
||||
$rc = system("sed -e 's/</\\</g' -e 's/>/\\>/g' < description.txt > descr");
|
||||
if ($rc == 0) {
|
||||
rename 'descr', 'description.txt';
|
||||
} else {
|
||||
unlink 'descr';
|
||||
}
|
||||
}
|
||||
# if ( ! -f 'changes.txt' ) {
|
||||
# log_msg "WARNING: File changes.txt is missing!";
|
||||
# }
|
||||
check_for_ignored_files();
|
||||
if ( ! filenames_of_package_ok($_[0])) {
|
||||
return 0;
|
||||
}
|
||||
check_codefiles("$_[0] ($version)", "$package_maintainer");
|
||||
if (defined($prev_version)) {
|
||||
log_msg "Version $version will replace $prev_version";
|
||||
} else {
|
||||
log_msg "Version $version will be installed";
|
||||
}
|
||||
return 1;
|
||||
}
|
||||
|
||||
sub compress_package($)
|
||||
{
|
||||
my $package_name = shift;
|
||||
compress_psfiles;
|
||||
system 'zip', '-q', '-r', $package_name, glob("*");
|
||||
return !$?;
|
||||
}
|
||||
|
||||
sub remove_files()
|
||||
{
|
||||
my ($file);
|
||||
opendir THISDIR, "." or die;
|
||||
foreach $file (readdir THISDIR) {
|
||||
if (-d $file) {
|
||||
next if $file eq '.';
|
||||
next if $file eq '..';
|
||||
next if $file eq 'doc_ps';
|
||||
system 'rm', '-rf', "$file";
|
||||
} elsif (-f $file) {
|
||||
next if $file =~ /\.zip$/;
|
||||
next if $file eq 'version';
|
||||
next if $file eq 'description.txt';
|
||||
next if $file eq 'long_description.txt';
|
||||
next if $file eq 'changes.txt';
|
||||
next if $file eq 'submission_info';
|
||||
unlink $file;
|
||||
}
|
||||
}
|
||||
closedir THISDIR;
|
||||
}
|
||||
|
||||
sub move_packagedir($)
|
||||
{
|
||||
my $package_name = shift;
|
||||
# first remove the earlier version (if it exists)
|
||||
if ( -d "$oldpackagedir/$package_name" ) {
|
||||
# log_msg "removing directory $oldpackagedir/$package_name"
|
||||
system('rm', '-rf', "$oldpackagedir/$package_name");
|
||||
}
|
||||
|
||||
# move existing version to old packages
|
||||
if ( -d "$packagedir/$package_name" ) {
|
||||
# log_msg "moving directory $packagedir/$package_name to $oldpackagedir/$package_name"
|
||||
print STDERR 'cp',' -r'," $packagedir/$package_name ", $oldpackagedir ,"\n";
|
||||
(system('cp','-r',"$packagedir/$package_name", $oldpackagedir)==0) or die;
|
||||
(system('rm','-r',"$packagedir/$package_name")==0) or die;
|
||||
}
|
||||
|
||||
# log_msg "moving directory $tempdir to $packagedir/$package_name"
|
||||
rename($tempdir, "$packagedir/$package_name") or die;
|
||||
|
||||
system 'chgrp', '-R', 'cgal', "$packagedir/$package_name";
|
||||
system 'chmod', '-R', 'ug+w,a+r', "$packagedir/$package_name" ;
|
||||
}
|
||||
|
||||
sub install_submission($$)
|
||||
{
|
||||
my ($file_name, $file_pathname, $package_name);
|
||||
$file_name = shift;
|
||||
$package_name = shift;
|
||||
$file_pathname = "$download_dir/$file_name";
|
||||
|
||||
if (! unpack_package( $file_pathname) ) {
|
||||
log_msg("Failed to unpack $file_pathname");
|
||||
return 0;
|
||||
}
|
||||
|
||||
if (!check_package($package_name)) {
|
||||
return 0;
|
||||
}
|
||||
|
||||
if (!compress_package($package_name)) {
|
||||
log_msg "ERROR: Failed to compress $file_name";
|
||||
return 0;
|
||||
}
|
||||
|
||||
remove_files;
|
||||
move_packagedir($package_name);
|
||||
return 1;
|
||||
}
|
||||
|
||||
sub do_submission($)
|
||||
{
|
||||
my ($url, $cur_dir,$file_name,$package_name);
|
||||
$url = shift;
|
||||
($file_name) = ($url =~ m|^.*/(.*?)\s*$|);
|
||||
$package_name = make_package_name($file_name);
|
||||
if ($package_name !~ /^[a-zA-Z_]\w*$/) {
|
||||
log_header
|
||||
"ERROR: Filename $file_name was turned into the illegal package name $package_name";
|
||||
return 0;
|
||||
}
|
||||
|
||||
if (!belongs_to_release($package_name) ) {
|
||||
log_msg "WARNING: package $package_name will not go into releases";
|
||||
log_msg "Send a separate mail to cgal_submit if you want that";
|
||||
}
|
||||
unlink glob("$download_dir/*") if (! $testing);
|
||||
log_header "downloading $url";
|
||||
# my $logfileno = fileno(LOGFILE);
|
||||
# die "Log file not open" if ! defined($logfileno);
|
||||
$cur_dir =cwd();
|
||||
my $lockfile = "$download_dir/$package_name.lock";
|
||||
if ( system("$LOCKCMD", "-r", '10', $lockfile) != 0) {
|
||||
log_msg "ERROR: could not acquire lock on file $lockfile!";
|
||||
return 0;
|
||||
}
|
||||
if (chdir "$download_dir") {
|
||||
system("$WGET $url");
|
||||
chdir $cur_dir;
|
||||
}
|
||||
if ( ! -f "$download_dir/$file_name" ) {
|
||||
log_msg "ERROR: download failed!";
|
||||
return 0;
|
||||
}
|
||||
|
||||
chdir($tempdir);
|
||||
open SUBMISSION_INFO, ">submission_info";
|
||||
print SUBMISSION_INFO "URL: $url.\n";
|
||||
close SUBMISSION_INFO;
|
||||
|
||||
if (install_submission("$file_name",$package_name) ) {
|
||||
log_header "Package was successfully installed!";
|
||||
} else {
|
||||
log_header "ERROR: Installation of the package failed!";
|
||||
unlink $lockfile;
|
||||
return 0;
|
||||
}
|
||||
unlink $lockfile;
|
||||
return 1;
|
||||
}
|
||||
|
||||
|
||||
#-----------------------------------
|
||||
#
|
||||
# main loop
|
||||
#
|
||||
#-----------------------------------
|
||||
|
||||
if ($#ARGV < 0) {
|
||||
print "Too few arguments:",$#ARGV,"\n";
|
||||
print_usage;
|
||||
exit 1;
|
||||
}
|
||||
|
||||
my $starting_directory = cwd();
|
||||
|
||||
if ($starting_directory =~ m'CGAL/Geert/maintenance') {
|
||||
$testing=1;
|
||||
}
|
||||
|
||||
init_variables();
|
||||
|
||||
$SIG{INT}='IGNORE';
|
||||
$SIG{QUIT} = 'IGNORE';
|
||||
$SIG{TERM} = 'IGNORE';
|
||||
|
||||
unlink $ACTUAL_LOGFILE;
|
||||
system("echo >$ACTUAL_LOGFILE");
|
||||
open LOGFILE, ">$ACTUAL_LOGFILE";
|
||||
|
||||
|
||||
foreach $submission ( @ARGV) {
|
||||
if (!create_package_dir) {
|
||||
log_msg "Failed to create temporary directory $tempdir";
|
||||
exit 1;
|
||||
}
|
||||
do_submission($submission);
|
||||
chdir($starting_directory);
|
||||
if (-d "$tempdir") {
|
||||
system('rm', '-rf', "$tempdir");
|
||||
}
|
||||
}
|
||||
|
||||
close LOGFILE;
|
||||
|
||||
@reply_list = sort(@reply_list);
|
||||
my $prev = "";
|
||||
my @rlist;
|
||||
foreach (@reply_list) {
|
||||
if ($_ ne $prev) {
|
||||
$prev = $_;
|
||||
push(@rlist, $prev);
|
||||
}
|
||||
}
|
||||
|
||||
$ARGV[0] =~ s|.*/||;
|
||||
system "cat $ACTUAL_LOGFILE | $MAIL_PROG \"CGAL submission $ARGV[0]\" @rlist";
|
||||
|
||||
|
||||
unlink $ACTUAL_LOGFILE;
|
||||
|
||||
exit 0;
|
||||
|
||||
|
||||
|
|
@ -1,273 +0,0 @@
|
|||
#!/sw/bin/perl -w
|
||||
|
||||
use strict;
|
||||
|
||||
my $treated_messages_log =
|
||||
'/projects/CGAL/submissions/autohandle/data/treated_submit_messages';
|
||||
my $install_submission_program =
|
||||
'/projects/CGAL/admin_scripts/install_www_submission';
|
||||
|
||||
my $scripts_dir= '/projects/CGAL/admin_scripts';
|
||||
my $receive_testresult_program =
|
||||
'/users/geert/tmp/echo_to_log';
|
||||
my $update_submissions_www_page_program = "$scripts_dir/create_packages_page";
|
||||
my $receive_result_collection_program = "$scripts_dir/treat_result_collection";
|
||||
my $MAIL_PROG="$scripts_dir/send_cgal_mail";
|
||||
#my $MAIL_PROG='/usr/sbin/Mail';
|
||||
|
||||
my $Sender;
|
||||
my $maintainer= 'geert@cs.uu.nl';
|
||||
my $no_of_succesful_submissions = 0;
|
||||
|
||||
my @trusted_hosts = (
|
||||
'cgal.org',
|
||||
'cs.uu.nl',
|
||||
'inria.fr',
|
||||
'informatik.uni-halle.de',
|
||||
'inf.ethz.ch',
|
||||
'math.ethz.ch',
|
||||
'mpi-sb.mpg.de',
|
||||
'inf.fu-berlin.de',
|
||||
'uni-trier.de',
|
||||
'clipper.ens.fr',
|
||||
'schtroumpf.ens.fr',
|
||||
'eleves.ens.fr',
|
||||
'cs.unc.edu',
|
||||
'twi.tudelft.nl',
|
||||
'tau.ac.il');
|
||||
|
||||
sub get_url()
|
||||
{
|
||||
my $html_address="";
|
||||
while (<>) {
|
||||
chomp;
|
||||
if (/^\s*$/) {
|
||||
return $html_address;
|
||||
}
|
||||
s/\s//g;
|
||||
$html_address .= $_;
|
||||
if ($html_address =~ /\.tar\.gz$/) {
|
||||
return $html_address;
|
||||
}
|
||||
if ($html_address =~ /\.tgz$/) {
|
||||
return $html_address;
|
||||
}
|
||||
if ($html_address =~ /\.zip$/) {
|
||||
return $html_address;
|
||||
}
|
||||
}
|
||||
return "";
|
||||
}
|
||||
|
||||
sub is_trusted_url($)
|
||||
{
|
||||
my $URL = shift;
|
||||
foreach (@trusted_hosts) {
|
||||
if ($URL =~ m|^\s*http://[\.\w-]+\.$_[/:]|) {
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub is_trusted_sender($)
|
||||
{
|
||||
my $sender = shift;
|
||||
foreach (@trusted_hosts) {
|
||||
if ($sender =~ m|$_\s*$|) {
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub treat_submission($)
|
||||
{
|
||||
my ($URL,$option);
|
||||
$option = shift;
|
||||
$URL = get_url;
|
||||
if ($URL eq "") {
|
||||
# mail $Sender that something went wrong.
|
||||
# do the same to maintainer.
|
||||
open NOTICE, "|$MAIL_PROG \"CGAL autohandle failure!\" $Sender
|
||||
$maintainer";
|
||||
print NOTICE <<"TOTHIER";
|
||||
Your submission (or one of your submissions) had an unrecognized URL.
|
||||
The URL should be on a separate line, directly following the line
|
||||
with the submission keyword, e.g as in:
|
||||
|
||||
submission::
|
||||
http://www.mysite.mycountry/mypackage.zip
|
||||
|
||||
Please resend your request or send a message to cgal-submit asking for more
|
||||
information.
|
||||
|
||||
TOTHIER
|
||||
close NOTICE;
|
||||
return;
|
||||
}
|
||||
if (! is_trusted_url($URL)) {
|
||||
open NOTICE, "|$MAIL_PROG \"Untrusted URL!\" $maintainer";
|
||||
print NOTICE <<"TOTHIER";
|
||||
The submission by $Sender with URL
|
||||
$URL
|
||||
is not trusted and did not proceed.
|
||||
Please take manual action.
|
||||
|
||||
TOTHIER
|
||||
close NOTICE;
|
||||
return;
|
||||
}
|
||||
if (system("$install_submission_program", "$URL") == 0)
|
||||
{ ++$no_of_succesful_submissions; }
|
||||
}
|
||||
|
||||
sub treat_result_collection()
|
||||
{
|
||||
my ($URL);
|
||||
$URL = get_url;
|
||||
if (!$URL) {
|
||||
# mail $Sender that something went wrong.
|
||||
# do the same to maintainer.
|
||||
return;
|
||||
}
|
||||
if (! is_trusted_url($URL)) {
|
||||
open NOTICE, "|$MAIL_PROG \"Untrusted URL!\" $maintainer";
|
||||
print NOTICE <<"TOTHIER";
|
||||
The Testresult with URL
|
||||
$URL
|
||||
is not trusted and did not proceed.
|
||||
Please take manual action.
|
||||
|
||||
TOTHIER
|
||||
close NOTICE;
|
||||
return;
|
||||
}
|
||||
system("$receive_result_collection_program", $URL);
|
||||
}
|
||||
|
||||
sub treat_testresult($)
|
||||
{
|
||||
my ($URL,$release);
|
||||
$release = shift;
|
||||
$URL = get_url;
|
||||
if (!$URL) {
|
||||
# mail $Sender that something went wrong.
|
||||
# do the same to maintainer.
|
||||
return;
|
||||
}
|
||||
if (! is_trusted_url($URL)) {
|
||||
open NOTICE, "|$MAIL_PROG \"Untrusted URL!\" $maintainer";
|
||||
print NOTICE <<"TOTHIER";
|
||||
The Testresult with URL
|
||||
$URL
|
||||
is not trusted and did not proceed.
|
||||
Please take manual action.
|
||||
|
||||
TOTHIER
|
||||
close NOTICE;
|
||||
return;
|
||||
}
|
||||
system("$receive_testresult_program", "$release", "$Sender", "$URL");
|
||||
}
|
||||
|
||||
sub message_processed($)
|
||||
{
|
||||
my $message_id = shift;
|
||||
open(TREATED_MESSAGES, "<$treated_messages_log");
|
||||
while (<TREATED_MESSAGES>) {
|
||||
chomp;
|
||||
if ($message_id eq $_) {
|
||||
close TREATED_MESSAGES;
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
close TREATED_MESSAGES;
|
||||
open(TREATED_MESSAGES, ">>$treated_messages_log");
|
||||
print TREATED_MESSAGES "$message_id\n";
|
||||
close TREATED_MESSAGES;
|
||||
return 0;
|
||||
}
|
||||
|
||||
sub main()
|
||||
{
|
||||
my ($from);
|
||||
my $command_found = 0;
|
||||
$_ = <>;
|
||||
chomp;
|
||||
($from, $Sender) = split;
|
||||
if ($from ne "From") {
|
||||
exit 1;
|
||||
}
|
||||
|
||||
$Sender =~ s/\s*//g;
|
||||
|
||||
if ( $Sender eq 'daemon@cs.uu.nl') {
|
||||
while(<>) {
|
||||
if (/^\s*Sender\s*:\s*(.+)$/) {
|
||||
$Sender = $1;
|
||||
last;
|
||||
}
|
||||
}
|
||||
}
|
||||
if (!is_trusted_sender($Sender)) {
|
||||
open NOTICE, "|$MAIL_PROG \"Untrusted sender!\" $maintainer";
|
||||
print NOTICE <<"TOTHIER";
|
||||
The submission with sender
|
||||
$Sender
|
||||
is not trusted and did not proceed.
|
||||
-------------- start of message --------------
|
||||
TOTHIER
|
||||
while(<>) {
|
||||
print NOTICE $_;
|
||||
}
|
||||
print NOTICE "-------------- end of message --------------\n";
|
||||
close NOTICE;
|
||||
exit 0;
|
||||
}
|
||||
|
||||
while(<>) {
|
||||
if (/^\s*message-id\s*:\s*(.*?)\s*$/i) {
|
||||
last if message_processed($1);
|
||||
}
|
||||
elsif (/^\s*submission\s*:\s*([^:]*?)\s*:\s*$/) {
|
||||
$command_found = 1;
|
||||
treat_submission($1);
|
||||
}
|
||||
elsif (/^\s*result[\s_-]?collection\s*:\s*:\s*$/){
|
||||
$command_found = 1;
|
||||
treat_result_collection();
|
||||
}
|
||||
elsif (/^\s*testresult\s*:\s*([^:]*?)\s*:\s*$/){
|
||||
$command_found = 1;
|
||||
treat_testresult($1);
|
||||
} else {
|
||||
}
|
||||
}
|
||||
if ($no_of_succesful_submissions > 0) {
|
||||
system($update_submissions_www_page_program);
|
||||
}
|
||||
if (!$command_found) {
|
||||
open NOTICE, "|$MAIL_PROG \"CGAL autohandle warning\" $Sender";
|
||||
print NOTICE <<"TOTHIER";
|
||||
Your submission did not contain any command.
|
||||
A command is e.g.
|
||||
|
||||
submission::
|
||||
|
||||
Note the two colons (and note that it is on a separate line).
|
||||
|
||||
TOTHIER
|
||||
close NOTICE;
|
||||
}
|
||||
}
|
||||
|
||||
# don't break off processing of a message
|
||||
|
||||
$SIG{INT}='IGNORE';
|
||||
$SIG{QUIT} = 'IGNORE';
|
||||
$SIG{TERM} = 'IGNORE';
|
||||
|
||||
main;
|
||||
exit 0;
|
||||
|
||||
|
|
@ -1,185 +0,0 @@
|
|||
#!/sw/bin/perl -w
|
||||
|
||||
#use strict
|
||||
|
||||
#Checking for correct usage
|
||||
|
||||
sub usage()
|
||||
{
|
||||
print STDERR "usage: $0 versionfile1 versionfile2\n";
|
||||
print STDERR "where versionfile1 and versionfile2 are filenames like\n";
|
||||
print STDERR "directory/versions_CGAL-3.4-I-28.\n";
|
||||
print STDERR "The order of the two version files is not important.\n\n";
|
||||
}
|
||||
|
||||
if ($#ARGV != 1) {
|
||||
usage();
|
||||
die "\n";
|
||||
}
|
||||
|
||||
my @testers = (
|
||||
'geert',
|
||||
# 'd.pasechnik@twi.tudelft.nl',
|
||||
'hert@mpi-sb.mpg.de',
|
||||
# 'stschirr@mpi-sb.mpg.de',
|
||||
'hoffmann@inf.ethz.ch',
|
||||
'rineau@clipper.ens.fr',
|
||||
# 'Francois.Rebufat@sophia.inria.fr',
|
||||
'Mariette.Yvinec@sophia.inria.fr',
|
||||
'Sylvain.Pion@sophia.inria.fr',
|
||||
'Andreas.Fabri@sophia.inria.fr',
|
||||
'Radu.Ursu@sophia.inria.fr',
|
||||
);
|
||||
my $scripts_dir= "/projects/CGAL/admin_scripts/";
|
||||
my $data_dir= "${scripts_dir}DATA/";
|
||||
my $testsuite_dir = '/users/www/CGAL/Members/Develop/testsuite';
|
||||
my $diff_dir = "/tmp/CGAL/diffs";
|
||||
my $release_dir = "/users/www/CGAL/Members/Develop/updates";
|
||||
my $new_version;
|
||||
my $old_version;
|
||||
|
||||
my ($v1,$v2,$v3,$u1,$u2,$u3);
|
||||
my $versionv=shift or die;
|
||||
if ( !(($v1,$v2,$v3)= ($versionv =~ /versions_CGAL-(\d+)\.(\d+)-I-(\d+)$/)) ) {
|
||||
usage();
|
||||
die "Invalid first version file with name $versionv\n";
|
||||
}
|
||||
my $versionu=shift or die;
|
||||
if ( !(($u1,$u2,$u3)= ($versionu =~ /versions_CGAL-(\d+)\.(\d+)-I-(\d+)$/) ) ) {
|
||||
usage();
|
||||
die "Invalid second version file with name $versionu\n";
|
||||
}
|
||||
|
||||
my $swap_versions = 0;
|
||||
if ($v1 == $u1 && $v2 == $u2 && $v3 == $u3) {
|
||||
die "Versions are the same ($v1-$v2-$v3\n)";
|
||||
}
|
||||
|
||||
if ($u1 > $v1 || ($u1 == $v1 && ($u2 > $v2 || ($u2 == $v2 && $u3 > $v3))) ) {
|
||||
$swap_versions = 1;
|
||||
}
|
||||
|
||||
die "File $versionv does not exist or is not readable" if (! -r $versionv );
|
||||
die "File $versionu does not exist or is not readable" if (! -r $versionu );
|
||||
die "No write permission in $data_dir" if (! -w $data_dir);
|
||||
umask(02);
|
||||
|
||||
# end of checking of input
|
||||
|
||||
my %new_versions;
|
||||
my %old_versions;
|
||||
|
||||
unlink "${data_dir}version_info",
|
||||
"${data_dir}new_versions",
|
||||
"${data_dir}new_packages",
|
||||
"${data_dir}removed_packages",
|
||||
"${data_dir}latest_versions",
|
||||
"${data_dir}version_info";
|
||||
|
||||
open(VERSION_INFO, ">${data_dir}version_info");
|
||||
if ($swap_versions) {
|
||||
$new_version = "CGAL-${u1}.${u2}-I-${u3}";
|
||||
$old_version = "CGAL-${v1}.${v2}-I-${v3}";
|
||||
print VERSION_INFO "CGAL-${u1}.${u2}-I-${u3} ";
|
||||
print VERSION_INFO "CGAL-${v1}.${v2}-I-${v3}\n";
|
||||
open(NEW_VERSIONS,"<${versionu}") or die;
|
||||
open(OLD_VERSIONS,"<$versionv") or die;
|
||||
} else {
|
||||
$old_version = "CGAL-${u1}.${u2}-I-${u3}";
|
||||
$new_version = "CGAL-${v1}.${v2}-I-${v3}";
|
||||
print VERSION_INFO "CGAL-${v1}.${v2}-I-${v3} ";
|
||||
print VERSION_INFO "CGAL-${u1}.${u2}-I-${u3}\n";
|
||||
open(NEW_VERSIONS,"<$versionv") or die;
|
||||
open(OLD_VERSIONS,"<$versionu") or die;
|
||||
}
|
||||
|
||||
close VERSION_INFO or die;
|
||||
|
||||
open(UPDATED,">${data_dir}new_versions") or die;
|
||||
system('chgrp','cgal',"${data_dir}new_versions");
|
||||
open(NEW_PACKAGES,">${data_dir}new_packages") or die;
|
||||
system('chgrp','cgal',"${data_dir}new_packages");
|
||||
open(DELETED,">${data_dir}removed_packages") or die;
|
||||
system('chgrp','cgal',"${data_dir}removed_packages");
|
||||
open(FORMATTED_VERSIONS,">${data_dir}latest_versions") or die;
|
||||
system('chgrp','cgal',"${data_dir}latest_versions");
|
||||
|
||||
|
||||
while(<OLD_VERSIONS>) {
|
||||
if (m/^\s*(.*?)\s*:\s*(.*?)\s*$/) {
|
||||
$old_versions{$1}=$2;
|
||||
}
|
||||
}
|
||||
|
||||
close OLD_VERSIONS or die;
|
||||
|
||||
my $pckge='aapje';
|
||||
my $vrsion;
|
||||
|
||||
format FORMATTED_VERSIONS=
|
||||
@<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<
|
||||
$pckge, $vrsion
|
||||
.
|
||||
|
||||
|
||||
while(<NEW_VERSIONS>) {
|
||||
if (m/^\s*(.*?)\s*:\s*(.*?)\s*$/) {
|
||||
($pckge,$vrsion) = ($1,$2);
|
||||
write FORMATTED_VERSIONS;
|
||||
$new_versions{$1}=$2;
|
||||
}
|
||||
}
|
||||
|
||||
close NEW_VERSIONS or die;
|
||||
|
||||
my ($key, $value);
|
||||
|
||||
while (($key,$value) = each %new_versions) {
|
||||
if (exists $old_versions{$key} ) {
|
||||
if ( $value ne $old_versions{$key} ) {
|
||||
print UPDATED "$key\n";
|
||||
}
|
||||
} else {
|
||||
print NEW_PACKAGES "$key\n";
|
||||
}
|
||||
}
|
||||
|
||||
while (($key,$value) = each %old_versions) {
|
||||
if (!exists $new_versions{$key} ) {
|
||||
print DELETED "$key\n";
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
close(UPDATED) or die;
|
||||
close(NEW_PACKAGES) or die;
|
||||
close(DELETED) or die;
|
||||
close(FORMATTED_VERSIONS) or die;
|
||||
|
||||
#make_diffs();
|
||||
|
||||
system("${scripts_dir}print_release_page");
|
||||
|
||||
chdir($testsuite_dir);
|
||||
system("echo","./create_testresult_page", '-p', $old_version, $new_version);
|
||||
system("./create_testresult_page", '-p', $old_version, $new_version);
|
||||
|
||||
sub make_diffs()
|
||||
{
|
||||
system('mkdir','-p',"$diff_dir");
|
||||
chdir $diff_dir;
|
||||
system("gunzip -c $release_dir/$old_version.tar.gz | gtar xf - ");
|
||||
system("gunzip -c $release_dir/$new_version.tar.gz | gtar xf -" );
|
||||
system("diff -urPN $old_version $new_version > diffs_$new_version");
|
||||
system('rm','-r',$old_version,$new_version);
|
||||
system('gzip', "diffs_$new_version");
|
||||
system('cp',"diffs_$new_version.gz","$testsuite_dir/$new_version");
|
||||
system('cp',"diffs_$new_version.gz","$release_dir");
|
||||
system('rm',"diffs_$new_version.gz");
|
||||
}
|
||||
|
||||
open (TEST_REQUEST, "| ${scripts_dir}send_cgal_mail -s 'CGAL autotest request' @testers") or die;
|
||||
print TEST_REQUEST <<"EOM"
|
||||
release: $new_version
|
||||
EOM
|
||||
|
|
@ -1,22 +0,0 @@
|
|||
#!/sw/bin/perl
|
||||
|
||||
#use strict
|
||||
|
||||
my $pckge='aapje';
|
||||
my $vrsion;
|
||||
|
||||
format STDOUT =
|
||||
@<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<
|
||||
$pckge, $vrsion
|
||||
.
|
||||
|
||||
#$~ = "Nice_Output";
|
||||
|
||||
while(<STDIN>) {
|
||||
if (m/^\s*(.*?)\s*:\s*(.*?)\s*$/) {
|
||||
($pckge,$vrsion) = ($1,$2);
|
||||
#print STDERR $pckge, $vrsion,"\n";
|
||||
write;
|
||||
}
|
||||
}
|
||||
|
||||
|
|
@ -1,111 +0,0 @@
|
|||
#!/sw/bin/perl -w
|
||||
|
||||
use strict;
|
||||
my (
|
||||
$last_version_file,
|
||||
$Version_A,
|
||||
$Version_B,
|
||||
$Version_C,
|
||||
$New_C,
|
||||
$Version,
|
||||
$VersionsDir,
|
||||
$ReleasesDir,
|
||||
$TestresultDir,
|
||||
@versions,
|
||||
$creation_succ,
|
||||
);
|
||||
|
||||
sub make_version($$$)
|
||||
{
|
||||
return "CGAL-$_[0].$_[1]-I-$_[2]";
|
||||
}
|
||||
|
||||
sub start_local_testsuite($)
|
||||
{
|
||||
my $host = shift;
|
||||
open (START_LOCAL_TEST,">/users/geert/tmp/start_cgal_testsuite_${host}");
|
||||
print START_LOCAL_TEST "${Version}\n";
|
||||
close(START_LOCAL_TEST);
|
||||
}
|
||||
|
||||
sub remove_old_releases(@)
|
||||
{
|
||||
my $c = $#_ + 1;
|
||||
chdir $ReleasesDir;
|
||||
my $old_versions;
|
||||
while ($c > 6) {
|
||||
$c -= 3;
|
||||
$old_versions = make_version($_[$c],$_[$c+1],$_[$c+2]);
|
||||
unlink("${old_versions}.tar.gz");
|
||||
}
|
||||
}
|
||||
|
||||
sub remove_old_testresults(@)
|
||||
{
|
||||
chdir $TestresultDir;
|
||||
my @old_versions;
|
||||
while ((${Version_A},${Version_B},${Version_C}) = splice(@_,0,3)) {
|
||||
push(@old_versions, make_version(${Version_A},${Version_B},${Version_C}));
|
||||
}
|
||||
if (@old_versions) {
|
||||
system("./empty_dir",@old_versions);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
$ENV{PATH} = '/projects/CGAL/admin_scripts:/projects/CGAL/bin:/users/geert/bin:/sw/bin:/usr/bin:/usr/ucb:/usr/ccs/bin:/usr/openwin/bin:/ust/dt/bin:/users/geert/PUBLIC/bin';
|
||||
|
||||
$last_version_file = '/projects/CGAL/lib/last_internal_release';
|
||||
$VersionsDir = '/projects/CGAL/Releases/Versions';
|
||||
$ReleasesDir = '/users/www/CGAL/Members/Develop/updates';
|
||||
$TestresultDir = '/users/www/CGAL/Members/Develop/testsuite';
|
||||
|
||||
|
||||
# get current version
|
||||
|
||||
open (VERSIONS, "$last_version_file") || die;
|
||||
while($_ = <VERSIONS>) {
|
||||
if ( ($Version_A,$Version_B,$Version_C)=
|
||||
($_ =~ /^\s*(\d+)\s+(\d+)\s+(\d+)\s*$/) ) {
|
||||
push(@versions,$Version_A,$Version_B,$Version_C);
|
||||
}
|
||||
}
|
||||
close VERSIONS;
|
||||
($Version_A,$Version_B,$Version_C)= @versions;
|
||||
|
||||
|
||||
if (! -d '/tmp/CGAL') {
|
||||
mkdir('/tmp/CGAL',0775);
|
||||
}
|
||||
|
||||
chdir '/tmp/CGAL';
|
||||
|
||||
$New_C = $Version_C +1;
|
||||
$Version = make_version(${Version_A},${Version_B},${New_C});
|
||||
|
||||
if (system('create_release',"${Version_A}-${Version_B}-${New_C}")==0) {
|
||||
unshift(@versions,${Version_A},${Version_B},${New_C});
|
||||
|
||||
chdir $VersionsDir;
|
||||
system('finish_release',
|
||||
"versions_CGAL-${Version_A}.${Version_B}-I-${Version_C}",
|
||||
"versions_${Version}");
|
||||
|
||||
start_local_testsuite("denebola");
|
||||
start_local_testsuite("liguria");
|
||||
|
||||
remove_old_releases(@versions);
|
||||
remove_old_testresults(splice(@versions, 4*3));
|
||||
} else {
|
||||
# rollback_release(${Version_A},${Version_B},${New_C});
|
||||
}
|
||||
|
||||
# recreate last_release_file
|
||||
|
||||
|
||||
open(OUTVERSIONS, ">$last_version_file") or die "Could not write versions ";
|
||||
while ((${Version_A},${Version_B},${Version_C}) = splice(@versions,0,3)) {
|
||||
print OUTVERSIONS "${Version_A} ${Version_B} ${Version_C}\n";
|
||||
}
|
||||
close OUTVERSIONS;
|
||||
|
||||
|
|
@ -1,7 +0,0 @@
|
|||
#!/bin/sh
|
||||
|
||||
WGETRC=/projects/CGAL/admin_scripts/DATA/wgetrc
|
||||
export WGETRC
|
||||
|
||||
/sw/bin/wget $1
|
||||
|
||||
|
|
@ -1,25 +0,0 @@
|
|||
#! /sw/bin/perl5
|
||||
|
||||
use strict;
|
||||
|
||||
$ENV{PATH}="$ENV{PATH}:/sw/bin";
|
||||
my $subject = shift;
|
||||
if ($subject eq "-s") {
|
||||
$subject = shift;
|
||||
}
|
||||
my $recipients = join(' ',@ARGV);
|
||||
open NOTI, "| '/sw/sbin/sendmail' '-t'";
|
||||
#open NOTI, "| '/usr/bin/cat'";
|
||||
print NOTI <<"TOTHIER";
|
||||
From: geert+cgal-submit\@cs.uu.nl
|
||||
Subject: $subject
|
||||
To: $recipients
|
||||
|
||||
TOTHIER
|
||||
|
||||
while ( <STDIN> ) {
|
||||
print NOTI $_;
|
||||
}
|
||||
close NOTI;
|
||||
exit 0;
|
||||
|
||||
|
|
@ -1,42 +0,0 @@
|
|||
#!/bin/sh
|
||||
|
||||
old_results_dir=/projects/CGAL/old_results
|
||||
tempdir=/tmp
|
||||
|
||||
|
||||
while [ $# -ge 1 ]
|
||||
do
|
||||
if [ -d "$1" ] ; then
|
||||
if [ -d "$1/Polygon" -o -d "$1/src" ] ; then
|
||||
echo "emptying $1" >&2
|
||||
if [ -x "$1" ] ;
|
||||
then
|
||||
cp -r "$1" $tempdir
|
||||
find "$tempdir/$1" -name '*.gz' | xargs gunzip
|
||||
(cd $tempdir; tar cf $1.tar $1; gzip --best $1.tar; rm -r $1)
|
||||
if mv $tempdir/$1.tar.gz $old_results_dir
|
||||
then
|
||||
chgrp cgal $old_results_dir/$1.tar.gz
|
||||
chmod g+w $old_results_dir/$1.tar.gz
|
||||
cd $1
|
||||
rm */* ;
|
||||
rm -f diffs*.gz
|
||||
rmdir * 2>/dev/null
|
||||
cd ..
|
||||
echo "Moved $1 to $old_results_dir" >&2
|
||||
else
|
||||
echo "Could not mv $tempdir/$1.tar.gz $old_results_dir"
|
||||
fi
|
||||
else
|
||||
echo "Could not cd to $1" >&2
|
||||
fi
|
||||
else
|
||||
echo "$1 seems to be emptied already" >&2
|
||||
fi
|
||||
else
|
||||
echo "$1 is not a directory" >&2
|
||||
fi
|
||||
shift
|
||||
done
|
||||
|
||||
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
#!/sw/bin/perl5
|
||||
|
||||
use strict;
|
||||
|
||||
my $new_platform = "";
|
||||
while (<>) {
|
||||
if ( m/Build on\s+(\S+):\s/ ) {
|
||||
$new_platform = $1;
|
||||
print "Found ($new_platform)\n";
|
||||
last;
|
||||
}
|
||||
}
|
||||
|
||||
if (! $new_platform ) {
|
||||
print "No platform\n";
|
||||
}
|
||||
|
||||
while ($new_platform) {
|
||||
open PLATFORM_OUTPUT, ">$new_platform" or die;
|
||||
$new_platform = "";
|
||||
print PLATFORM_OUTPUT $_;
|
||||
|
||||
while (<>) {
|
||||
if ( m/Build on\s+(\S+):\s/ ) {
|
||||
$new_platform = $1;
|
||||
print "Found ($new_platform)\n";
|
||||
last;
|
||||
} else {
|
||||
print PLATFORM_OUTPUT $_;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
@ -1,22 +0,0 @@
|
|||
#!/bin/sh
|
||||
|
||||
lockfile=/private/cgal_testannounce.lock
|
||||
annoucements=/private/cgal_testannouncements
|
||||
notify=/projects/CGAL/admin_scripts/send_cgal_mail
|
||||
|
||||
|
||||
if /sw/bin/lockfile -60 -r 100 -l 600 $lockfile
|
||||
then
|
||||
if files=`ls /private/CGAL/testannouncements/* 2>/dev/null`
|
||||
then
|
||||
for file in $files
|
||||
do
|
||||
base=`basename $file`
|
||||
if $notify -s "New test results (${base})" 'cgal-develop-l@postino.mpi-sb.mpg.de' < $file
|
||||
then
|
||||
rm -f $file
|
||||
fi
|
||||
done
|
||||
fi
|
||||
rm -f $lockfile
|
||||
fi
|
||||
|
|
@ -1,94 +0,0 @@
|
|||
#!/sw/bin/perl5 -w
|
||||
|
||||
use strict;
|
||||
|
||||
my $tmpdir;
|
||||
|
||||
sub usage {
|
||||
print STDERR "$0: usage\n";
|
||||
print STDERR "$0 result1.tar[.gz] ...\n";
|
||||
}
|
||||
|
||||
sub make_tempdir()
|
||||
{
|
||||
my $dirno = 1;
|
||||
$tmpdir = "TMP$dirno";
|
||||
while ( -f $tmpdir or -d $tmpdir ) {
|
||||
++$dirno;
|
||||
$tmpdir = "TMP$dirno";
|
||||
}
|
||||
mkdir($tmpdir,0770) or die "Cannot create temporary directory $tmpdir\n";
|
||||
}
|
||||
|
||||
sub one_archive($)
|
||||
{
|
||||
my $archive = shift;
|
||||
make_tempdir();
|
||||
if (! -f $archive) {
|
||||
print STDERR "$archive is not a valid filename\n";
|
||||
return 0;
|
||||
}
|
||||
if ( $archive =~ m/\.gz$/ ) {
|
||||
system("/sw/bin/gunzip", "$archive") == 0 or return 0;
|
||||
$archive =~ s/\.gz$//;
|
||||
}
|
||||
if ( $archive =~ m/.*\.tgz$/ ) {
|
||||
system("gunzip", "$archive") == 0 or return 0;
|
||||
$archive =~ s/\.tgz$/.tar/;
|
||||
}
|
||||
if ( $archive !~ /\.tar$/) {
|
||||
print STDERR "$0: $archive not a tar file\n";
|
||||
return 0;
|
||||
}
|
||||
rename("$archive","$tmpdir/$archive") or die;
|
||||
chdir("$tmpdir") or die;
|
||||
system("tar", "xf", "$archive") == 0 or die;
|
||||
unlink($archive);
|
||||
system('gzip',glob("*/*"));
|
||||
system('chmod','-R','a+r,og+w','.');
|
||||
system('tar', 'cf', "../$archive", glob("*")) == 0 or die;
|
||||
chdir('..') or die;
|
||||
system('rm', '-rf', "$tmpdir")== 0 or die;
|
||||
return 1;
|
||||
}
|
||||
|
||||
sub all_archives() {
|
||||
my $archive;
|
||||
foreach $archive (@ARGV) {
|
||||
if (one_archive($archive)) {
|
||||
print STDERR "$archive succesfully reformatted.\n";
|
||||
} else {
|
||||
print STDERR "Could not reformat $archive\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if ($#ARGV < 0) {
|
||||
usage;
|
||||
exit 1;
|
||||
}
|
||||
|
||||
all_archives();
|
||||
|
||||
|
||||
|
||||
#--------------------------
|
||||
# parse_mail such that you get
|
||||
# $test_url ==
|
||||
# (http://)($host_and_directory)/($release_version)(-test)($number)(.tar.gz)
|
||||
# make tmpdir under /private/CGAL and go there
|
||||
# wget $test_url
|
||||
# gunzip $name == ${release_version}-test${number}.tar.gz
|
||||
# rm *.txt
|
||||
# $unpack_dir = cwd
|
||||
# $testresult_dir = $CGWW/testsuite/$release_version
|
||||
# test if $testresult_dir exists.
|
||||
# foreach $name.gz in result*gz {
|
||||
# to_zipped_format $name.gz
|
||||
# cd $testresult_dir
|
||||
# tar xf $unpack_dir/$name
|
||||
# cd $unpack_dir
|
||||
# }
|
||||
# cd $testresult_dir/..
|
||||
# make_www_page ${release_version}
|
||||
|
||||
Loading…
Reference in New Issue