summaryrefslogtreecommitdiff
path: root/bin/generate_rel_manpages
diff options
context:
space:
mode:
Diffstat (limited to 'bin/generate_rel_manpages')
-rwxr-xr-xbin/generate_rel_manpages123
1 files changed, 0 insertions, 123 deletions
diff --git a/bin/generate_rel_manpages b/bin/generate_rel_manpages
deleted file mode 100755
index 7535012f2cc..00000000000
--- a/bin/generate_rel_manpages
+++ /dev/null
@@ -1,123 +0,0 @@
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
- & eval 'exec perl -S $0 $argv:q'
- if 0;
-
-# $Id$
-
-use strict;
-require Cwd;
-
-
-###########
-###### Sanity Checks
-##########
-my $hostname;
-chomp ($hostname = $ENV{'HOSTNAME'} || `uname -n`);
-unless ("$hostname" eq 'naboo') {
- #### For efficiency sake . . .
- die "$0: must run on host naboo.dre.vanderbilt.edu\n";
-}
-my $perl_path = '/usr/bin/perl';
-
-my $status= 0;
-
-&can_run($perl_path.' -V') ||
- die "$0: perl path is incorrect, please fix the script\n";
-
-my $dot_path = '/usr/bin';
-&can_run($dot_path.'/dot -V') ||
- die "$0: dot path is incorrect, please fix the script\n";
-
-my $doxy_path = '/usr/bin';
-
-my $doxy_version = '1.3.9.1';
-
-&can_run($doxy_path.'/doxygen --version | grep '.$doxy_version.' >/dev/null') ||
- die "$0: doxygen path or version incorrect, please fix the script\n";
-
-$ENV{'PATH'} = $ENV{'PATH'}.':'.$doxy_path;
-
-
-
-print "Starting doxygen document generation \n";
-
-my $chgrp = 'chgrp';
-my $cpio = 'cpio';
-my $cvs = 'cvs';
-my $date = 'date';
-my $egrep = 'egrep';
-my $find = 'find';
-my $gzip = 'gzip';
-my $bzip = 'bzip2';
-my $make = 'make -f Release -s';
-my $mv = 'mv -f';
-my $scp = 'scp ';
-my $rm = 'rm -f';
-my $cp = 'cp -f';
-my $md5sum = 'md5sum';
-my $shell_cd = 'cd';
-my $cksum_ext = 'md5';
-my $redirect = '>';
-my $checksum = '$md5sum';
-
-$SIG{'HUP'} = $SIG{'INT'} = $SIG{'QUIT'} = $SIG{'TERM'} = 'cleanup';
-
-my $release_filter = '\\( -name CVS -o -name build \\) -prune -o ' .
- '! -name \'.\#*\' ! -name \'\#*\' ! -name \'*~\' ' .
- '! -name \'*.MAK\' -print';
-
-my $bin_files =
- "\"\\.dsp|\\.dsw|\\.mak|\\.mdp|\\.ide|\\.exe\|\\.ico\|\\.gz\|\\.zip\|" .
- "\\.gif|\\.vcp|\\.vcproj|\\.vcw|\\.sln\"";
-
-my $dest = 'bugzilla@deuce.doc.wustl.edu:/project/deuce/ftp/pub/ACE+TAO-distribution';
-my $release_files = '';
-
-chomp ($release_files = `$make show_release_files`);
-
-########
-######## Main execution thread.
-########
-&ex ("bin/generate_doxygen.pl -is_release -perl_path $perl_path -dot_path $dot_path")
- && die "$0: failed to generate ACE man pages\n";
-
-my $build_command =
- "$find html $release_filter | $cpio -o -H tar | " .
- "$gzip -9 > ACE-html.tar.gz && ".
- "$find html $release_filter | $cpio -o -H tar | " .
- "$bzip -9 > ACE-html.tar.bz2 && ".
- "$find html $release_filter | $egrep -v $bin_files | " .
- "zip ACE-html.zip -q9@ &&" .
- "$scp ACE-html.tar.gz ACE-html.tar.bz2 ACE-html.zip $dest;";
-
-&ex ($build_command)
- && die "$0: failed to move ACE man pages to $dest\n";
-
-exit $status;
-
-
-########
-######## Verify that a command can be executed, return 1 on sucess
-########
-sub can_run {
- my $command = shift;
-
- open (RUN, "$command 2>&1 |")
- || return 0;
- while (<RUN>) {}
- close(RUN)
- || return 0;
- return 1;
-}
-
-########
-######## Execute a command, unless -n had been specified. Return value
-######## of 0 indicates success.
-########
-sub ex ()
-{
- my ($command) = @_;
-
- print "Command is $command \n";
- system ("$command");
-}