From: Jon Trulson Date: Tue, 10 Apr 2018 18:50:06 +0000 (-0600) Subject: Remove admin/bin; none of this is pertinent anymore X-Git-Tag: 2.2.4a~119 X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=ad01bb2067ef58831f5465bd571eaefd4f4a2665;p=oweals%2Fcde.git Remove admin/bin; none of this is pertinent anymore --- diff --git a/cde/admin/bin/ListTheTree b/cde/admin/bin/ListTheTree deleted file mode 100755 index 04aaed35..00000000 --- a/cde/admin/bin/ListTheTree +++ /dev/null @@ -1,144 +0,0 @@ -#! /usr/local/bin/perl - -eval "exec /usr/local/bin/perl -S $0 $*" - if $running_under_some_shell; - -################################################################################ -# -# File: ListTheTree -# RCS: $XConsortium: ListTheTree /main/3 1995/10/30 13:43:24 rswiston $ -# Author: Jim Andreas Hewlett-Packard, OSSD-CV -# Created: 1/15/92 -# Modified by: Marc Ayotte Hewlett-Packard, OSSD-CV (perlizer) -# Language: N/A -# Package: N/A -# Status: CDE distributed -# -# (c) Copyright 1993, Hewlett-Packard Company, all rights reserved. -# -# Description: This file does 2 things: -# 1) List the source tree's structure. -# This structure is placed into the source tree's -# directory as :TreeListing. -# 2) Creates a listing of all of the files locked in the -# source tree and places it in :TreeListing.locks. -################################################################################ - -if ($ARGV[0]) { - $TREE = $ARGV[0]; - # - # if not / relative get pwd path - # - if ($TREE !~ m%^\/%) { - print STDERR " Must be a / related path e.g -> /foo. Sorry!\n"; - exit 1; - } -} -else { - die " USAGE ListTheTree \n"; -} - -# put /usr/local/bin in the path for Rcslocks -$ENV{'PATH'} = "/x/cdesrc/admin/bin:/usr/local/bin:$ENV{'PATH'}"; - -if (! chdir("$TREE")) { - die " ERROR -> Couldn't change directory to $TREE.\n"; -} - -###################### -# get the tree listing -###################### -system ("find . -print > :TreeListing.new"); -unlink(":TreeListing"); -if (! rename(":TreeListing.new",":TreeListing")) { - print " WARNING -> couldn't mv :TreeListing.new to :TreeListing.\n"; -} - - -################################### -# find the locked files in the tree -################################### -unlink(":TreeListing.locks.new"); -open(NLOCK,">>$TREE/:TreeListing.locks.new"); -print NLOCK "List of locked files in $TREE\n\n"; -@dirs=(`find . -type d -print`); - -foreach $dir (@dirs) { - undef(@rcsLocks); - chop($dir); - if (chdir("$dir")) { - @rcsLocks = (`Rcslocks -v`); - # only list directory if there are locks - if (@rcsLocks) { - print NLOCK "$dir\n"; - while (@rcsLocks) { - $lock = shift(@rcsLocks); - print NLOCK " $lock"; - } - print NLOCK "\n"; - } - } - else { - print " WARNING -> could not cd to ${TREE}/${dir}\n"; - print " $!\n"; - } - chdir("$TREE"); -} - -unlink("$TREE/:TreeListing.locks"); -rename("$TREE/:TreeListing.locks.new","$TREE/:TreeListing.locks"); - - -# -# get changes from last listing -# check file $TREE/changestamp -# -$cstamp = "${TREE}/changestamp"; -if ( -f "${TREE}/changestamp" ) { - $laststamp = `cat $cstamp`; - chop $laststamp; -} -else { - $date = `date +%y%m%d`; - chop $date; - $laststamp = "${date}0001"; - $dip = `echo "$laststamp" >$cstamp`; - $date = `date +%m%d0001`; - chop $date; - system "touch $date $cstamp"; -} -$curstamp = `date +%y%m%d%H%M`; -chop $curstamp; - -unlink("$TREE/:TreeListing.changes.new"); -open(NCHANGE,">>$TREE/:TreeListing.changes.new"); -print NCHANGE "List of changed files in $TREE\n\n"; -@allfiles=(`find . -follow -name "*,v" -newer $cstamp -print`); -foreach $file (@allfiles) { - chop $file; - if (open($RCSFILE,"$file")) { - NEXTLINE: - while ($line = <$RCSFILE>) { - chop $line; - if ($line !~ m%^date%) { - next NEXTLINE; - } - else { - $lastdate = $line; - $author = $line; - $lastdate =~ s%^.* (\d+\.\d+\.\d+\.\d+\.\d+).*$%\1%; - $lastdate =~ s%\.%%g; - if ($lastdate > $laststamp) { - $author =~ s%^.*author (.*); .*;$%\1%; - print NCHANGE "$file <-> $author\n"; - } - } - } - close($RCSFILE); - } -} - -$dip = `echo "$curstamp" >$cstamp`; - -unlink("$TREE/:TreeListing.changes"); -rename("$TREE/:TreeListing.changes.new","$TREE/:TreeListing.changes"); diff --git a/cde/admin/bin/cleanLinks b/cde/admin/bin/cleanLinks deleted file mode 100755 index 416981e4..00000000 --- a/cde/admin/bin/cleanLinks +++ /dev/null @@ -1,121 +0,0 @@ -#! /usr/local/bin/perl - -eval "exec /usr/local/bin/perl -S $0 $*" - if $running_under_some_shell; - -################################################################################ -# -# File: cleanLinks -# RCS: $XConsortium: cleanLinks /main/3 1995/10/30 13:43:35 rswiston $ -# Author: Marc Ayotte Hewlett-Packard, OSSD-CV -# Created: Sun Jul 4 17:57:13 PDT 1993 -# Language: perl -# Package: N/A -# Status: CDE distributed -# -# (c) Copyright 1993, Hewlett-Packard Company, all rights reserved. -# -# Usage: cleanLinks -# -# Description: This script removes symbolic links to nowhere in -# . It does not remove anything with RCS -# in its path. -# -################################################################################ -if ($ARGV[0]) { - $TREE = $ARGV[0]; -} -else { - die " USAGE CleanLinks \n"; -} - -if (! chdir("$TREE")) { - die " ERROR -> Couldn't change directory to $TREE.\n"; -} - -####################################################### -# define local subroutines -####################################################### -sub dokill { - die "\n left on INTR \n"; - exit 1; -} -######################################################## -# Catch signals -######################################################## -$SIG{'INT'} = 'dokill'; - - -############################## -# get the symlinks in the tree -############################## -if (! open(FIND,"find . -type d ! -type l -print|")) { - print STDERR " ERROR failure in open used for find.\n"; - die "You may have to contact your build administrator\n"; -} -# -# don't buffer find output -# -$| = 1; - -print "************ List of symlinks to nowhere removed **********\n"; - - -################################################################## -# go through the directories and examine each symlink. -# resolve the symlink and, if the file at the end doesn't exist, -# remove the original symlink. Don't do anything that ends in RCS. -################################################################## -FILE: -while ($new = ) { - chop $new; - if (! opendir(THISDIR,"$new")) { - print STDERR " WARNING -> could not process directory $new\n"; - next FILE; - } - else { - if (! chdir("$new")) { - print STDERR " WARNING -> could not change directory to $new\n"; - next FILE; - } - } - # remove . from $new path for cuteness of output - $new =~ s%^\.%%; - - @allfiles = grep(!/^\.\.?$/, readdir(THISDIR)); - foreach $file (@allfiles) { - if (( -l $file) && ($file !~ m%RCS$%) && (! -d $file)) { - # - # resolve the link - # - $tmp1file = $file; - $counter = 0; - while (defined($tmp2file = readlink($tmp1file))) { - $tmp1file = $tmp2file; - # - # watch for cyclic symlinks - # - if ($counter++ == 10) { - last; - } - } - # - # if last piece in resolved chain is not a file - # it is a symlink to nowhere -> remove - # - if ( ! -e $tmp1file) { # remove link to nowhere - if (unlink("$file")) { - print "removing ${TREE}${new}/${file}\n"; - } - else { - print STDERR " WARNING -> ${TREE}${new}/${file} -> could not remove\n"; - print "$!\n"; - } - } - } - } - closedir(THISDIR); - if (! chdir("$TREE")) { - die " ERROR -> Couldn't change directory to $TREE.\n"; - } -} diff --git a/cde/admin/bin/fnrclone b/cde/admin/bin/fnrclone deleted file mode 100755 index 980b0496..00000000 --- a/cde/admin/bin/fnrclone +++ /dev/null @@ -1,140 +0,0 @@ -#! /bin/sh - -# This shell script runs findnewrcs on a clone tree. - -# Usage -DoUsage() -{ - cat << dernier -Usage: fnrclone [-OPTIONS] - where OPTIONS are: - [-c (checkout any new versions of files from RCS)] - [-s (create a script & log file in $HOME/fnrclone and - execute the script)] - [-n (leave actual files, not symbolic links)] - [-f (create a log file of changes)] - [-d (descend symbolically linked directories)] - [-S (do not follow symbolic links for files) - [-O (do not check out files, Only create symbolic links for existing files) - [-C (process SCCS directories[usually they are ignored]) - [-u Usage message] -NOTE: the default is make symbolic links and don't check out newer - revisions of files, just shadow the source. If the RCS directory is - accessible, check out any brand new files as real files. If the - RCS directory is not accessible (remote exchange), do NOT check out - any brand new files. -dernier -} - - -if [ $# -lt 2 ] ; then - DoUsage - exit 1 -fi - -DEF_s="L" -DEF_X="X" -LINKOPT="l" -ACTUAL= -#Parse the options -set -- `getopt csSCOdnuf: $*` -while [ $# -gt 0 ] -do - case $1 in - -n) LINKOPT= ;shift;; - -s) DEF_X=;shift;; - -S) DEF_S=s;shift;; - -c) DEF_s=;shift;; - -C) DEF_C=C;shift;; - -O) DEF_O=O;shift;; - -u) DoUsage;shift;; - -f) LOG=$2;shift 2;; - -d) ACTUAL="${ACTUAL}f";shift;; - --) shift;; - -*) DoUsage;shift;; - *) SRC=$1;DEST=$2;shift 2;; - esac -done - -OPTS="${DEF_X}${DEF_s}${DEF_S}${DEF_C}${DEF_O}${ACTUAL}${LINKOPT}miA" - -# -# get the system from uname -s -# -SYSTEM=`uname -s` -RELEASE=`uname -r` -MACHINE=`uname -m` - -Findnewrcs="findnewrcs.${SYSTEM}" -if [ "$SYSTEM" = "HP-UX" ];then - # 700's - M700=`echo $MACHINE | fgrep '/7' 2>/dev/null` - M800=`echo $MACHINE | fgrep '/8' 2>/dev/null` - R100=`echo $RELEASE | fgrep '10.' 2>/dev/null` - R90=`echo $RELEASE | fgrep '9.' 2>/dev/null` - R80=`echo $RELEASE | fgrep '8.' 2>/dev/null` - R70=`echo $RELEASE | fgrep '7.' 2>/dev/null` - if [ "$M700" ]; then - if [ "$R100" ];then - Findnewrcs="findnewrcs.700.100" - elif [ "$R80" ];then - Findnewrcs="findnewrcs.700.807" - fi - elif [ "$M800" ]; then - if [ "$R100" ];then - Findnewrcs="findnewrcs.800.100" - elif [ "$R90" ];then - Findnewrcs="findnewrcs.800.90" - elif [ "$R80" ];then - Findnewrcs="findnewrcs.800.80" - else - Findnewrcs="findnewrcs.800.70" - fi - else - if [ "$R90" ];then - Findnewrcs="findnewrcs.300.90" - elif [ "$R80" ];then - Findnewrcs="findnewrcs.300.80" - fi - fi -fi - -if [ "$SYSTEM" = "SunOS" ];then - - if [ "$MACHINE" = "i86pc" ];then - Findnewrcs="findnewrcs.UNIX_SV" - elif [ "$MACHINE" = "prep" ];then - Findnewrcs="findnewrcs.SunOS_PPC" - else - Findnewrcs="findnewrcs.SunOS" - fi - -fi - -# -# make an old style script -# -FNR_BINDIR=`dirname $0` -if [ ! "$DEF_X" ];then - DATE=`date +%H%M%S` - FNR_DIR=/$HOME/fnrclone - [ ! -d $FNR_DIR ] && mkdir $FNR_DIR - FNR_SCRIPT=$FNR_DIR/script$DATE - FNR_LOG=$FNR_DIR/log$DATE - $FNR_BINDIR/$Findnewrcs -S${SRC} -W${DEST} -${OPTS} > $FNR_SCRIPT 2> $FNR_LOG - chmod 777 $FNR_SCRIPT - chmod 777 $FNR_LOG - $FNR_SCRIPT - echo "`basename $0`: script is in $FNR_SCRIPT, logfile is $FNR_LOG" - if [ "$LOG" ];then - cat $FNR_LOG > $LOG - echo "logfile is also in $LOG" - fi -else # execute without a script - if [ "$LOG" ];then - $FNR_BINDIR/$Findnewrcs -S${SRC} -W${DEST} -${OPTS} 2> $LOG - else - $FNR_BINDIR/$Findnewrcs -S${SRC} -W${DEST} -${OPTS} - fi -fi -