perlos390.1

视频监控网络部分的协议ddns,的模块的实现代码,请大家大胆指正.

.\" Automatically generated by Pod::Man 2.16 (Pod::Simple 3.05)
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sh \" Subsection heading
.br
.if t .Sp
.ne 5
.PP
\fB\\$1\fR
.PP
..
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
.\" nothing in troff, for use with C<>.
.tr \(*W-
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el       .ds Aq '
.\"
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.ie \nF \{\
.    de IX
.    tm Index:\\$1\t\\n%\t"\\$2"
..
.    nr % 0
.    rr F
.\}
.el \{\
.    de IX
..
.\}
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
.    \" fudge factors for nroff and troff
.if n \{\
.    ds #H 0
.    ds #V .8m
.    ds #F .3m
.    ds #[ \f1
.    ds #] \fP
.\}
.if t \{\
.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
.    ds #V .6m
.    ds #F 0
.    ds #[ \&
.    ds #] \&
.\}
.    \" simple accents for nroff and troff
.if n \{\
.    ds ' \&
.    ds ` \&
.    ds ^ \&
.    ds , \&
.    ds ~ ~
.    ds /
.\}
.if t \{\
.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
.\}
.    \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
.    \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
.    \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
\{\
.    ds : e
.    ds 8 ss
.    ds o a
.    ds d- d\h'-1'\(ga
.    ds D- D\h'-1'\(hy
.    ds th \o'bp'
.    ds Th \o'LP'
.    ds ae ae
.    ds Ae AE
.\}
.rm #[ #] #H #V #F C
.\" ========================================================================
.\"
.IX Title "PERLOS390 1"
.TH PERLOS390 1 "2007-12-18" "perl v5.10.0" "Perl Programmers Reference Guide"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
.nh
.SH "NAME"
README.os390 \- building and installing Perl for OS/390 and z/OS
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
This document will help you Configure, build, test and install Perl
on \s-1OS/390\s0 (aka z/OS) Unix System Services.
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
This is a fully ported Perl for \s-1OS/390\s0 Version 2 Release 3, 5, 6, 7,
8, and 9.  It may work on other versions or releases, but those are
the ones we've tested it on.
.PP
You may need to carry out some system configuration tasks before
running the Configure script for Perl.
.Sh "Tools"
.IX Subsection "Tools"
The z/OS Unix Tools and Toys list may prove helpful and contains links
to ports of much of the software helpful for building Perl.
http://www\-1.ibm.com/servers/eserver/zseries/zos/unix/bpxa1toy.html
.Sh "Unpacking Perl distribution on \s-1OS/390\s0"
.IX Subsection "Unpacking Perl distribution on OS/390"
If using ftp remember to transfer the distribution in binary format.
.PP
Gunzip/gzip for \s-1OS/390\s0 is discussed at:
.PP
.Vb 1
\&  http://www\-1.ibm.com/servers/eserver/zseries/zos/unix/faq/bpxqp1.html
.Ve
.PP
to extract an \s-1ASCII\s0 tar archive on \s-1OS/390\s0, try this:
.PP
.Vb 1
\&   pax \-o to=IBM\-1047,from=ISO8859\-1 \-r < latest.tar
.Ve
.PP
or
.PP
.Vb 1
\&   zcat latest.tar.Z | pax \-o to=IBM\-1047,from=ISO8859\-1 \-r
.Ve
.PP
If you get lots of errors of the form
.PP
.Vb 1
\&  tar: FSUM7171 ...: cannot set uid/gid: EDC5139I Operation not permitted.
.Ve
.PP
you didn't read the above and tried to use tar instead of pax, you'll
first have to remove the (now corrupt) perl directory
.PP
.Vb 1
\&   rm \-rf perl\-...
.Ve
.PP
and then use pax.
.Sh "Setup and utilities for Perl on \s-1OS/390\s0"
.IX Subsection "Setup and utilities for Perl on OS/390"
Be sure that your yacc installation is in place including any necessary
parser template files. If you have not already done so then be sure to:
.PP
.Vb 1
\&  cp /samples/yyparse.c /etc
.Ve
.PP
This may also be a good time to ensure that your /etc/protocol file
and either your /etc/resolv.conf or /etc/hosts files are in place.
The \s-1IBM\s0 document that described such \s-1USS\s0 system setup issues was
\&\s-1SC28\-1890\-07\s0 \*(L"\s-1OS/390\s0 \s-1UNIX\s0 System Services Planning\*(R", in particular
Chapter 6 on customizing the \s-1OE\s0 shell.
.PP
\&\s-1GNU\s0 make for \s-1OS/390\s0, which is recommended for the build of perl (as
well as building \s-1CPAN\s0 modules and extensions), is available from the
\&\*(L"Tools\*(R".
.PP
Some people have reported encountering \*(L"Out of memory!\*(R" errors while
trying to build Perl using \s-1GNU\s0 make binaries.  If you encounter such
trouble then try to download the source code kit and build \s-1GNU\s0 make
from source to eliminate any such trouble.  You might also find \s-1GNU\s0 make
(as well as Perl and Apache) in the red\-piece/book \*(L"Open Source Software
for \s-1OS/390\s0 \s-1UNIX\s0\*(R", \s-1SG24\-5944\-00\s0 from \s-1IBM\s0.
.PP
If instead of the recommended \s-1GNU\s0 make you would like to use the system
supplied make program then be sure to install the default rules file
properly via the shell command:
.PP
.Vb 1
\&    cp /samples/startup.mk /etc
.Ve
.PP
and be sure to also set the environment variable _C89_CCMODE=1 (exporting
_C89_CCMODE=1 is also a good idea for users of \s-1GNU\s0 make).
.PP
You might also want to have \s-1GNU\s0 groff for \s-1OS/390\s0 installed before
running the \*(L"make install\*(R" step for Perl.
.PP
There is a syntax error in the /usr/include/sys/socket.h header file
that \s-1IBM\s0 supplies with \s-1USS\s0 V2R7, V2R8, and possibly V2R9.  The problem with
the header file is that near the definition of the \s-1SO_REUSEPORT\s0 constant
there is a spurious extra '/' character outside of a comment like so:
.PP
.Vb 2
\& #define SO_REUSEPORT    0x0200    /* allow local address & port
\&                                      reuse */                    /
.Ve
.PP
You could edit that header yourself to remove that last '/', or you might
note that Language Environment (\s-1LE\s0) \s-1APAR\s0 \s-1PQ39997\s0 describes the problem
and \s-1PTF\s0's \s-1UQ46272\s0 and \s-1UQ46271\s0 are the (R8 at least) fixes and apply them.
If left unattended that syntax error will turn up as an inability for Perl
to build its \*(L"Socket\*(R" extension.
.PP
For successful testing you may need to turn on the sticky bit for your
world readable /tmp directory if you have not already done so (see man chmod).
.Sh "Configure Perl on \s-1OS/390\s0"
.IX Subsection "Configure Perl on OS/390"
Once you've unpacked the distribution, run \*(L"sh Configure\*(R" (see \s-1INSTALL\s0
for a full discussion of the Configure options).  There is a \*(L"hints\*(R" file
for os390 that specifies the correct values for most things.  Some things
to watch out for include:
.IP "\(bu" 4
A message of the form:
.Sp
.Vb 2
\& (I see you are using the Korn shell.  Some ksh\*(Aqs blow up on Configure,
\& mainly on older exotic systems.  If yours does, try the Bourne shell instead.)
.Ve
.Sp
is nothing to worry about at all.
.IP "\(bu" 4
Some of the parser default template files in /samples are needed in /etc.
In particular be sure that you at least copy /samples/yyparse.c to /etc
before running Perl's Configure.  This step ensures successful extraction
of \s-1EBCDIC\s0 versions of parser files such as perly.c, perly.h, and x2p/a2p.c.
This has to be done before running Configure the first time.  If you failed
to do so then the easiest way to re-Configure Perl is to delete your
misconfigured build root and re-extract the source from the tar ball.
Then you must ensure that /etc/yyparse.c is properly in place before
attempting to re-run Configure.
.IP "\(bu" 4
This port will support dynamic loading, but it is not selected by
default.  If you would like to experiment with dynamic loading then
be sure to specify \-Dusedl in the arguments to the Configure script.
See the comments in hints/os390.sh for more information on dynamic loading.
If you build with dynamic loading then you will need to add the
\&\f(CW$archlibexp\fR/CORE directory to your \s-1LIBPATH\s0 environment variable in order
for perl to work.  See the config.sh file for the value of \f(CW$archlibexp\fR.
If in trying to use Perl you see an error message similar to:
.Sp
.Vb 2
\& CEE3501S The module libperl.dll was not found.
\&         From entry point _\|_dllstaticinit at compile unit offset +00000194 at
.Ve
.Sp
then your \s-1LIBPATH\s0 does not have the location of libperl.x and either
libperl.dll or libperl.so in it.  Add that directory to your \s-1LIBPATH\s0 and
proceed.
.IP "\(bu" 4
Do not turn on the compiler optimization flag \*(L"\-O\*(R".  There is
a bug in either the optimizer or perl that causes perl to
not work correctly when the optimizer is on.
.IP "\(bu" 4