mirror of
git://anongit.mindrot.org/openssh.git
synced 2024-11-24 10:53:24 +08:00
34132e54cb
- [sshd.c sshd.8 sshconnect.c ssh.h ssh.c servconf.h servconf.c scp.1]
[scp.c packet.h packet.c login.c log.c canohost.c channels.c]
[hostfile.c sshd_config]
ipv6 support: mostly gethostbyname->getaddrinfo/getnameinfo, new
features: sshd allows multiple ListenAddress and Port options. note
that libwrap is not IPv6-ready. (based on patches from
fujiwara@rcac.tdi.co.jp)
- [ssh.c canohost.c]
more hints (hints.ai_socktype=SOCK_STREAM) for getaddrinfo,
from itojun@
- [channels.c]
listen on _all_ interfaces for X11-Fwd (hints.ai_flags = AI_PASSIVE)
- [packet.h]
allow auth-kerberos for IPv4 only
- [scp.1 sshd.8 servconf.h scp.c]
document -4, -6, and 'ssh -L 2022/::1/22'
- [ssh.c]
'ssh @host' is illegal (null user name), from
karsten@gedankenpolizei.de
- [sshconnect.c]
better error message
- [sshd.c]
allow auth-kerberos for IPv4 only
- Big IPv6 merge:
- Cleanup overrun in sockaddr copying on RHL 6.1
- Replacements for getaddrinfo, getnameinfo, etc based on versions
from patch from KIKUCHI Takahiro <kick@kyoto.wide.ad.jp>
- Replacement for missing structures on systems that lack IPv6
- record_login needed to know about AF_INET6 addresses
- Borrowed more code from OpenBSD: rresvport_af and requisites
46 lines
971 B
Perl
Executable File
46 lines
971 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
#
|
|
# fixpaths - substitute makefile variables into text files
|
|
|
|
|
|
$usage = "Usage: $0 [-D<variable>=<value>] [[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 {
|
|
&usage; die ("$usage$0: unknown option '-".$ARGV[0][1]."'\n");
|
|
}
|
|
} # while parsing arguments
|
|
|
|
if (!defined(%def)) {
|
|
die ("$0: nothing to do - no substitutions listed!\n");
|
|
}
|
|
|
|
for $f (@ARGV) {
|
|
|
|
$f =~ /(.*\/)*(.*)$/;
|
|
$of = $2; $of =~ s/.in$//;
|
|
|
|
open(IN, "<$f") || die ("$0: input file $f missing!\n");
|
|
if (open(OUT, ">$of")) {
|
|
while (<IN>) {
|
|
for $s (keys(%def)) {
|
|
s#\@$s\@#$def{$s}#;
|
|
} # for $s
|
|
print OUT;
|
|
} # while <IN>
|
|
} # if (outfile open)
|
|
} # for $f
|
|
|
|
exit 0;
|