mirror of
git://git.code.sf.net/p/cdesktopenv/code
synced 2025-02-15 04:32:24 +00:00
Remove admin/bin; none of this is pertinent anymore
This commit is contained in:
Jon Trulson
parent
0ec76e2912
commit
ad01bb2067
3 changed files with 0 additions and 405 deletions
|
|
@ -1,144 +0,0 @@
|
||||||
#! /usr/local/bin/perl
|
|
||||||
|
|
||||||
eval "exec /usr/local/bin/perl -S $0 $*"
|
|
||||||
if $running_under_some_shell;
|
|
||||||
|
|
||||||
################################################################################
|
|
||||||
#
|
|
||||||
# File: ListTheTree <source tree>
|
|
||||||
# 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 <source directory>\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");
|
|
||||||
|
|
@ -1,121 +0,0 @@
|
||||||
#! /usr/local/bin/perl
|
|
||||||
|
|
||||||
eval "exec /usr/local/bin/perl -S $0 $*"
|
|
||||||
if $running_under_some_shell;
|
|
||||||
|
|
||||||
################################################################################
|
|
||||||
#
|
|
||||||
# File: cleanLinks <source tree>
|
|
||||||
# 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 <directory>
|
|
||||||
#
|
|
||||||
# Description: This script removes symbolic links to nowhere in
|
|
||||||
# <directory>. It does not remove anything with RCS
|
|
||||||
# in its path.
|
|
||||||
#
|
|
||||||
################################################################################
|
|
||||||
if ($ARGV[0]) {
|
|
||||||
$TREE = $ARGV[0];
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
die " USAGE CleanLinks <source directory>\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 = <FIND>) {
|
|
||||||
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";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
@ -1,140 +0,0 @@
|
||||||
#! /bin/sh
|
|
||||||
|
|
||||||
# This shell script runs findnewrcs on a clone tree.
|
|
||||||
|
|
||||||
# Usage
|
|
||||||
DoUsage()
|
|
||||||
{
|
|
||||||
cat << dernier
|
|
||||||
Usage: fnrclone [-OPTIONS] <source> <destination>
|
|
||||||
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 <logfile name> (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
|
|
||||||
|
|
||||||
Loading…
Reference in a new issue