diff options
author | Damien Miller <djm@mindrot.org> | 2001-04-16 10:41:46 +1000 |
---|---|---|
committer | Damien Miller <djm@mindrot.org> | 2001-04-16 10:41:46 +1000 |
commit | 897741eeaa0ebb5e2ce10a6b0ada8f3e55d22777 (patch) | |
tree | 5cab7cc53a9910aee7e932c74ee56555a30621ba /fixpaths | |
parent | 206941fdd88031e76da1e2aa0b5dd3b8d1d5d38b (diff) |
- (djm) Convert mandoc manpages to man automatically. Patch from Mark D.
Roth <roth+openssh@feep.net>
Diffstat (limited to 'fixpaths')
-rwxr-xr-x | fixpaths | 12 |
1 files changed, 3 insertions, 9 deletions
@@ -3,21 +3,17 @@ # fixpaths - substitute makefile variables into text files -$usage = "Usage: $0 [-x<file dot-suffix>] [-Dstring=replacement] [[infile] ...]\n"; - -$ext="out"; +$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 (/^-[Dx]/) { + if (/^-D/) { # definition shift(@ARGV); if ( /-D(.*)=(.*)/ ) { $def{"$1"}=$2; - } elsif ( /-x\s*(\w+)/ ) { - $ext=$1; } else { die ("$usage$0: error in command line arguments.\n"); } @@ -34,15 +30,13 @@ if (!defined(%def)) { for $f (@ARGV) { $f =~ /(.*\/)*(.*)$/; - $of = $2.".$ext"; open(IN, "<$f") || die ("$0: input file $f missing!\n"); - open(OUT, ">$of") || die ("$0: cannot create output file $of: $!\n"); while (<IN>) { for $s (keys(%def)) { s#$s#$def{$s}#; } # for $s - print OUT; + print; } # while <IN> } # for $f |