RepoMirrors
/
openssh
mirror of git://anongit.mindrot.org/openssh.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

- (djm) PERL-free fixpaths from stuge-openssh-unix-dev@cdy.org

This commit is contained in:
Damien Miller 2002-12-05 20:59:33 +11:00
parent 1c9e688548
commit ab1c12a11c
2 changed files with 18 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@ -1,3 +1,6 @@
20021205
- (djm) PERL-free fixpaths from stuge-openssh-unix-dev@cdy.org
20021122 20021122
- (tim) [configure.ac] fix STDPATH test for IRIX. First reported by - (tim) [configure.ac] fix STDPATH test for IRIX. First reported by
advax@triumf.ca. This type of solution tested by <herb@sgi.com> advax@triumf.ca. This type of solution tested by <herb@sgi.com>
@ -829,4 +832,4 @@
save auth method before monitor_reset_key_state(); bugzilla bug #284; save auth method before monitor_reset_key_state(); bugzilla bug #284;
ok provos@ ok provos@
$Id: ChangeLog,v 1.2514 2002/11/22 21:29:01 tim Exp $ $Id: ChangeLog,v 1.2515 2002/12/05 09:59:33 djm Exp $

49
fixpaths
View File

@ -1,43 +1,22 @@
#!/usr/bin/perl -w #!/bin/sh
# #
# fixpaths - substitute makefile variables into text files # fixpaths - substitute makefile variables into text files
# Usage: fixpaths -Dsomething=somethingelse ...
die() {
$usage = "Usage: $0 [-Dstring=replacement] [[infile] ...]\n"; echo $*
exit -1
if (!defined(@ARGV)) { die ("$usage"); }
# read in the command line and get some definitions
while ($_=$ARGV[0], /^-/) {
if (/^-D/) {
# definition
shift(@ARGV);
if ( /-D(.*)=(.*)/ ) {
$def{"$1"}=$2;
} else {
die ("$usage$0: error in command line arguments.\n");
}
} else {
@cmd = split(//, $ARGV[0]); $opt = $cmd[1];
die ("$usage$0: unknown option '-$opt'\n");
}
} # while parsing arguments
if (!defined(%def)) {
die ("$0: nothing to do - no substitutions listed!\n");
} }
for $f (@ARGV) { test -n "`echo $1|grep -- -D`" || \
die $0: nothing to do - no substitutions listed!
$f =~ /(.*\/)*(.*)$/; test -n "`echo $1|grep -- '-D[^=]\+=[^ ]\+'`" || \
die $0: error in command line arguments.
open(IN, "<$f") || die ("$0: input file $f missing!\n"); test -n "`echo $*|grep -- ' [^-]'`" || \
while (<IN>) { die Usage: $0 '[-Dstring=replacement] [[infile] ...]'
for $s (keys(%def)) {
s#$s#$def{$s}#;
} # for $s
print;
} # while <IN>
} # for $f
exit 0; sed `echo $*|sed -e 's/-D\([^=]\+\)=\([^ ]*\)/-e s=\1=\2=g/g'`
exit 0