Fixes in perl.
cha-ciphersuites.texi cha-copying.texi cha-functions.texi \
cha-gtls-app.texi cha-internals.texi cha-intro-tls.texi \
cha-library.texi cha-preface.texi cha-programs.texi \
- cha-tls-app.texi cha-errors.texi cha-support.texi
+ sec-tls-app.texi cha-errors.texi cha-support.texi
# Examples.
gnutls_TEXINFOS += examples/ex-client1.c examples/ex-client2.c \
* The TLS Handshake Protocol::
* TLS Extensions::
* Selecting cryptographic key sizes::
+* How to use TLS in application protocols::
* On SSL 2 and older protocols::
@end menu
of @code{gnutls_sec_param_t} type, to a number of bits suitable for a public
key algorithm.
+@include sec-tls-app.texi
+
@node On SSL 2 and older protocols
@section On SSL 2 and older protocols
@cindex SSL 2
* Authentication methods::
* More on certificate authentication::
* How to use GnuTLS in applications::
-* How to use TLS in application protocols::
* Included programs::
* Internal architecture of GnuTLS::
* Support::
@include cha-gtls-app.texi
-@include cha-tls-app.texi
-
@include cha-programs.texi
@include cha-internals.texi
cover-epub.tex
GEN_TEX_OBJECTS = cha-preface.tex cha-library.tex cha-intro-tls.tex cha-auth.tex \
- cha-cert-auth.tex cha-gtls-app.tex cha-tls-app.tex cha-programs.tex cha-support.tex \
+ cha-cert-auth.tex cha-gtls-app.tex sec-tls-app.tex cha-programs.tex cha-support.tex \
cha-functions.tex error_codes.tex cha-ciphersuites.tex algorithms.tex \
cha-errors.tex alerts.tex cha-internals.tex
cha-gtls-app.tex: ../cha-gtls-app.texi
../scripts/mytexi2latex $< > $@
-cha-tls-app.tex: ../cha-tls-app.texi
+sec-tls-app.tex: ../sec-tls-app.texi
../scripts/mytexi2latex $< > $@
cha-programs.tex: ../cha-programs.texi
\input{cha-gtls-app}
-\input{cha-tls-app}
-
\input{cha-programs}
\input{cha-internals}
-#!/usr/bin/perl
+eval '(exit $?0)' && eval 'exec perl "$0" ${1+"$@"}'
+ & eval 'exec perl "$0" $argv:q'
+ if 0;
## Copyright (c) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Simon Josefsson
## added -texinfo, -listfunc, -pkg-name
# print "pattern $pattern matched 1=$match1 2=$match2 3=$match3 4=$match4 replace $repl yielded $output interpolated $return\n";
- $return;
+ return;
}
sub just_highlight {
}
foreach $section (@{$args{'sectionlist'}}) {
print "\n\@strong{$section:} " if $section ne $section_default;
- $args{'sections'}{$section} =~ s:([{}]):\@\1:gs;
+ $args{'sections'}{$section} =~ s:([{}]):\@$1:gs;
output_highlight($args{'sections'}{$section});
}
print "\@end deftypefun\n\n";
foreach $section (@{$args{'sectionlist'}}) {
$sec = $section;
$sec =~ s/_/\\_/g;
- $sec =~ s/#([a-zA-Z\_]+)/{\\it \1}/g;
+ $sec =~ s/#([a-zA-Z\_]+)/{\\it $1}/g;
print "\n\\begin{function$sec}\n";
$out = $args{'sections'}{$section};
$out =~ s/\n\n/\n/g;
$out =~ s/\\:/:/g;
$out =~ s/\-\>/\$\\rightarrow\$/g;
- $out =~ s/([0-9]+)\^([0-9]+)/\$\{\1\}\^\{\2\}\$/g;
+ $out =~ s/([0-9]+)\^([0-9]+)/\$\{$1\}\^\{$2\}\$/g;
print $out;
print "\\end{function$sec}\n";
my $check;
my $type;
- $func =~ s/_/\\_/g;
-
print "\n\n\\begin{enum}\n";
$name =~ s/_/\\_/g;
print "\\enumTitle{". $name . "}\n";
-#!/usr/bin/perl
+eval '(exit $?0)' && eval 'exec perl -wST "$0" ${1+"$@"}'
+ & eval 'exec perl -wST "$0" $argv:q'
+ if 0;
use constant NORMAL => 0;
use constant SKIP => 1;
-#!/usr/bin/perl
+eval '(exit $?0)' && eval 'exec perl -wST "$0" ${1+"$@"}'
+ & eval 'exec perl -wST "$0" $argv:q'
+ if 0;
sub key_of_record {
local($record) = @_;
-#!/usr/bin/perl
+eval '(exit $?0)' && eval 'exec perl -wS "$0" ${1+"$@"}'
+ & eval 'exec perl -wS "$0" $argv:q'
+ if 0;
$dir = shift;
$param2 = shift;
my ($key) = $lines[$i];
if ($enum == 1) {
- while( !($key =~ m/^$\@float Table,(.*)$/) && ($i < 5)) { $i=$i+1; $key = $lines[$i]; }
+ while( !($key =~ m/^\@float Table,(.*)$/) && ($i < 5)) { $i=$i+1; $key = $lines[$i]; }
} else {
- while( !($key =~ m/^$\\functionTitle\{(.*)\}/) && ($i < 5)) { $i=$i+1; $key = $lines[$i]; }
+ while( !($key =~ m/^\\functionTitle\{(.*)\}/) && ($i < 5)) { $i=$i+1; $key = $lines[$i]; }
}
return $key;
-#!/usr/bin/perl
+eval '(exit $?0)' && eval 'exec perl -wS "$0" ${1+"$@"}'
+ & eval 'exec perl -wS "$0" $argv:q'
+ if 0;
$dir = shift;
$param2 = shift;
my ($key) = $lines[$i];
if ($enum == 1) {
- while( !($key =~ m/^$\\enumTitle\{(.*)\}/) && ($i < 5)) { $i=$i+1; $key = $lines[$i]; }
+ while( !($key =~ m/^\\enumTitle\{(.*)\}/) && ($i < 5)) { $i=$i+1; $key = $lines[$i]; }
} else {
- while( !($key =~ m/^$\\functionTitle\{(.*)\}/) && ($i < 5)) { $i=$i+1; $key = $lines[$i]; }
+ while( !($key =~ m/^\\functionTitle\{(.*)\}/) && ($i < 5)) { $i=$i+1; $key = $lines[$i]; }
}
return $key;
@node How to use TLS in application protocols
-@chapter How to use @acronym{TLS} in application protocols
+@section How to use @acronym{TLS} in application protocols
This chapter is intended to provide some hints on how to use the
@acronym{TLS} over simple custom made application protocols. The
@end menu
@node Separate ports
-@section Separate ports
+@subsection Separate ports
Traditionally @acronym{SSL} was used in application protocols by
assigning a new port number for the secure services. That way two
soon obsoleted.
@node Upward negotiation
-@section Upward negotiation
+@subsection Upward negotiation
Other application protocols@footnote{See LDAP, IMAP etc.} use a
different approach to enable the secure layer. They use something
-#!/usr/bin/perl
+eval '(exit $?0)' && eval 'exec perl -wST "$0" ${1+"$@"}'
+ & eval 'exec perl -wST "$0" $argv:q'
+ if 0;
use strict;
projects / thirdparty / gnutls.git / commitdiff
