16 lines
668 B
Plaintext
16 lines
668 B
Plaintext
$OpenBSD: patch-sdr_src_sap_crypt_tcl,v 1.1 2001/03/17 17:33:19 wilfried Exp $
|
|
--- sdr/src/sap_crypt.tcl.orig Thu Jun 24 15:20:52 1999
|
|
+++ sdr/src/sap_crypt.tcl Fri Mar 16 20:55:41 2001
|
|
@@ -874,6 +874,11 @@ proc create {} {
|
|
return 0
|
|
}
|
|
set sess "$sess\nc=IN IP4 [get_new_session_addr $media]/$ttl"
|
|
+ # Use a lower on-the-wire TTL if it would exceed our zone's:
|
|
+ if {[info exists zone(ttl,$zone(cur_zone))]
|
|
+ && $zone(ttl,$zone(cur_zone)) < $ttl} {
|
|
+ set ttl $zone(ttl,$zone(cur_zone))
|
|
+ }
|
|
if {$media_layers($media)>1} {
|
|
set sess "$sess/$media_layers($media)"
|
|
}
|