1 files changed, 0 insertions, 91 deletions
diff --git a/TAO/release.pl b/TAO/release.pl
deleted file mode 100755
index 28c741f69e1..00000000000
--- a/TAO/release.pl
+++ /dev/null
@@ -1,91 +0,0 @@
-# $Id$
-#
-# Takes over some of the release work rather than having it all
-# inline in the Makefile.
-
-$date = `/usr/bin/date +"%a %b %d %T %Y"`;
-chop $date;
-$VERSION = "VERSION";
-$CHANGELOG = "ChangeLog";
-$TAO_VERSION = '';
-$MODNAME = 'TAO';
-
-# Range of values on this is "alpha", "beta", or "major",
-# in which case the 3rd, 2nd, or 1st digit.
-$BUMP_WHICH = $ENV{'RELEASE_TYPE'};
-
-sub inplace {
-    my($ext, @files) = @_;
-    my(@nfiles) = ();
-    my($nfile);
-    $ext = '~' if ($ext eq '');
-    foreach $file (@files) {
-        $nfile = $file . $ext;
-        if (rename ($file, $nfile)) {
-            push(@nfiles, $nfile);
-        }
-        else {
-            warn "Unable to rename $files[$i] for in-place editing: $!\n";
-        }
-    }
-    @nfiles;
-}
-
-@inplace = inplace('.del', $VERSION, $CHANGELOG);
-
-open (VERSION, $inplace[0])
-    || die "Unable to open file $inplace[0] for inplace edit: $!\n";
-open (VERSIONOUT, ">$VERSION")
-    || die "Unable to open file $VERSION for writing: $!\n";
-
-undef $version_number;
-while (<VERSION>) {
-    if ($BUMP_WHICH =~ m/major/i) {
-        $bump_expr = 'sprintf("$1%d.0.0", $2+1)';
-    }
-    elsif ($BUMP_WHICH =~ m/beta/i) {
-        $bump_expr = 'sprintf("$1$2.%d.0", $3+1)';
-    }
-    else {
-        $bump_expr = 'sprintf("$1$2.$3.%d", $4+1)';
-    }
-    $subst = 's/(TAO version )(\d+)\.(\d+)\.(\d+)/' . $bump_expr . '/e';
-    eval $subst;
-    ($version_number = $_) =~ s/.*(\d+\.\d+\.\d+).*/$1/ if (!defined($version_number));
-    if (s/(, released ).*/$1$date./) {
-        ($TAO_VERSION = $_) =~ s/^This is //;
-    }
-    print VERSIONOUT $_;
-}
-
-close (VERSIONOUT);
-close (VERSION);
-chmod 0644, $VERSION;
-
-$message = $date."  ".$ENV{"SIGNATURE"}."  <".$ENV{"LOGNAME"}."\@cs.wustl.edu>\n\n\t* ".$TAO_VERSION."\n";
-$message_printed = 0;
-
-open (CHANGELOG, $inplace[1])
-    || die "Unable to open file $inplace[1] for inplace edit: $!\n";
-open (CHANGELOGOUT, ">$CHANGELOG")
-    || die "Unable to open file $CHANGELOG for writing: $!\n";
-
-while (<CHANGELOG>) {
-    print CHANGELOGOUT "$message" if ( ! $message_printed++ );
-    print CHANGELOGOUT $_;
-}
-
-close (CHANGELOG);
-close (CHANGELOGOUT);
-chmod 0644, $CHANGELOG;
-
-# Morph the version number
-chop $version_number;
-($version_tag = $MODNAME."-".$version_number) =~ s/\./_/g;
-
-$CVSCOM = 'cvs';
-$COM = qq/$CVSCOM commit -m'$TAO_VERSION' $VERSION $CHANGELOG && $CVSCOM rtag $version_tag $MODNAME && $CVSCOM rtag -F Current $MODNAME/;
-print $COM;
-system $COM;
-
-unlink @inplace;