diff options
| author | cvs2svn <cvs2svn@FreeBSD.org> | 2002-07-03 13:01:43 +0000 |
|---|---|---|
| committer | cvs2svn <cvs2svn@FreeBSD.org> | 2002-07-03 13:01:43 +0000 |
| commit | 148a348454a0bbec0dab6f790e7d47c9850c0128 (patch) | |
| tree | 2770dec874759bf70934f5db3c3c5aed108a1fb1 /crypto/openssh/fixpaths | |
| parent | db0a3b09965d55f9dee7a58fb04e31df42b6ae73 (diff) | |
Diffstat (limited to 'crypto/openssh/fixpaths')
| -rwxr-xr-x | crypto/openssh/fixpaths | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/crypto/openssh/fixpaths b/crypto/openssh/fixpaths deleted file mode 100755 index 7e4178e4a967..000000000000 --- a/crypto/openssh/fixpaths +++ /dev/null @@ -1,43 +0,0 @@ -#!/usr/bin/perl -w -# -# fixpaths - substitute makefile variables into text files - - -$usage = "Usage: $0 [-Dstring=replacement] [[infile] ...]\n"; - -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) { - - $f =~ /(.*\/)*(.*)$/; - - open(IN, "<$f") || die ("$0: input file $f missing!\n"); - while (<IN>) { - for $s (keys(%def)) { - s#$s#$def{$s}#; - } # for $s - print; - } # while <IN> -} # for $f - -exit 0; |
