gcc/libjava/classpath/scripts/patches.pl

#!/usr/bin/perl -w
# Purpose is to move patches from upload directory to 
# public patches directory.  Any file not matching the correct 
# pattern is deleted.  Any patch file without a README and the
# file was last modified more than 120 minutes ago is deleted.
# Any README file without a patch file which was last modified
# more than 120 minutes ago is deleted.
#
# notes to self: as long as this runs as root do not worry
# about quota problems or disk space

use strict;

my ($upload_dir) = "/home/ftp/classpath/incoming";
my ($public_dir) = "/home/ftp/classpath/pub/patches";
my ($user) = "classpath";
my ($group) = "classpath";
my ($mode_dir) = "775";
my ($mode_file) = "664";
my (@patches) = ();

use vars qw($upload_dir $public_dir @patches $user $group
	    $mode_dir $mode_file);

# main
{
    @patches = &getPatches();
    &movePatches(@patches);
}

#---------------------------------------------------------------
# Purpose: To remove files not matching the correct pattern.
#   To remove README files without patches (last modified greater
#   than 2 hours).  To remove patches without README files (last
#   modified greater than 2 hours).
#---------------------------------------------------------------
sub getPatches
{
    my (@patches) = ();
    my (@entries) = ();
    my (%maybe) = ();
    my ($entry, $debug, $prefix, $junk, $file, $patch, $readme) = "";
    my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime,
	$mtime, $ctime, $blksize, $blocks) = "";

    $debug = 1;

    opendir(INCOMING, "$upload_dir") || die "could not open $upload_dir\n";
    @entries = grep( !/^\.\S+/, readdir(INCOMING)); # no .*
    closedir(INCOMING);
    foreach $entry (sort @entries)
    {
        if (($entry eq ".") || ($entry eq "..")) { next; }
        if (-d "$upload_dir/$entry")
        {
	    print "Directory: $upload_dir/$entry/\n";
        }
        elsif (-e "$upload_dir/$entry")
        {
            if ($entry eq ".message") { next; }
            if ($entry eq "README") { next; }
	    if ($entry !~ /^\w+-\d\d\d\d\d\d-\d+\.patch\.(gz|README)$/)
	    {
		print "REGEX FAILED: $entry\n";
		unlink("$upload_dir/$entry");
	    }
	    else
            {
                ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,
                 $ctime,$blksize,$blocks) = stat("$upload_dir/$entry");
                if ($size > 512000)
                {
                    print "LARGE PATCH: $entry\n";
                    unlink("$upload_dir/$entry");
                }
                else 
                {
                    ($prefix,$junk) = split(/(\.gz|\.README)/, $entry, 2);
                    $maybe{$prefix} += 1;
                }
            }
	}
    }

    foreach $entry (keys(%maybe))
    {
        if ($maybe{$entry} == 2)
        { 
            $patch = "$entry.gz"; 
            $readme = "$entry.README"; 

            ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,
             $ctime,$blksize,$blocks) = stat($patch);
            if (time-$mtime > 900)
            {
                ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,
                 $ctime,$blksize,$blocks) = stat($readme);
                if (time-$mtime > 900)
                {
                    $patches[$#patches+1] = $entry;
                }
            }
        }
        else
        {
	    if (-e "$upload_dir/$entry.gz")
            { 
                unlink("$upload_dir/$entry.gz");
                print "STALE PATCH: $entry.gz\n";
            }
            elsif (-e "$upload_dir/$entry.README") 
            {
                unlink("$upload_dir/$entry.README");
                print "STALE README: $entry.README\n";
            }
        }
    }
    return (@patches);
}

#---------------------------------------------------------------
# Purpose: To move the patches to the proper directory and set
#   the permissions correctly.
#---------------------------------------------------------------
sub movePatches
{
    my (@patches) = @_;
    my ($patch) = "";
    my ($fail) = 0;

    if (!(-d "$public_dir"))
    {
	system("mkdir -p $public_dir");
	system("chown $user.$group $public_dir");
	system("chmod $mode_dir $public_dir");
    }
    foreach $patch (@patches)
    {
	if (-e "$public_dir/$patch.gz")
	{
	    print "Patch exists: $public_dir/$patch.gz\n";
	    $fail = 1;
	}
	if (-e "$public_dir/$patch.README")
	{
	    print "README exists: $public_dir/$patch.README\n";
	    $fail = 1;
	}
	if ($fail == 0)
	{
	    system("mv $upload_dir/$patch.gz $public_dir/$patch.gz");
	    system("mv $upload_dir/$patch.README $public_dir/$patch.README");
	    system("chown $user.$group $public_dir/*");
	    system("chmod $mode_file $public_dir/*");
            open(MAIL, "|mail -s \"Classpath: $patch uploaded\" core\@classpath.org") || die "could not open mail\n";
            print MAIL "GNU Classpath FTP Maintenance\n";
	    print MAIL "\n";
            print MAIL "Added Files:\n";
            print MAIL "ftp://ftp.classpath.org/pub/patches/$patch.gz\n";
            print MAIL "ftp://ftp.classpath.org/pub/patches/$patch.README\n\n";
            close(MAIL);
	}
    }
}