net::netrc.3

视频监控网络部分的协议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 "Net::Netrc 3"
.TH Net::Netrc 3 "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"
Net::Netrc \- OO interface to users netrc file
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 1
\&    use Net::Netrc;
\&
\&    $mach = Net::Netrc\->lookup(\*(Aqsome.machine\*(Aq);
\&    $login = $mach\->login;
\&    ($login, $password, $account) = $mach\->lpa;
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
\&\f(CW\*(C`Net::Netrc\*(C'\fR is a class implementing a simple interface to the .netrc file
used as by the ftp program.
.PP
\&\f(CW\*(C`Net::Netrc\*(C'\fR also implements security checks just like the ftp program,
these checks are, first that the .netrc file must be owned by the user and 
second the ownership permissions should be such that only the owner has
read and write access. If these conditions are not met then a warning is
output and the .netrc file is not read.
.SH "THE .netrc FILE"
.IX Header "THE .netrc FILE"
The .netrc file contains login and initialization information used by the
auto-login process.  It resides in the user's home directory.  The following
tokens are recognized; they may be separated by spaces, tabs, or new-lines:
.IP "machine name" 4
.IX Item "machine name"
Identify a remote machine name. The auto-login process searches
the .netrc file for a machine token that matches the remote machine
specified.  Once a match is made, the subsequent .netrc tokens
are processed, stopping when the end of file is reached or an\-
other machine or a default token is encountered.
.IP "default" 4
.IX Item "default"
This is the same as machine name except that default matches
any name.  There can be only one default token, and it must be
after all machine tokens.  This is normally used as:
.Sp
.Vb 1
\&    default login anonymous password user@site
.Ve
.Sp
thereby giving the user automatic anonymous login to machines
not specified in .netrc.
.IP "login name" 4
.IX Item "login name"
Identify a user on the remote machine.  If this token is present,
the auto-login process will initiate a login using the
specified name.
.IP "password string" 4
.IX Item "password string"
Supply a password.  If this token is present, the auto-login
process will supply the specified string if the remote server
requires a password as part of the login process.
.IP "account string" 4
.IX Item "account string"
Supply an additional account password.  If this token is present,
the auto-login process will supply the specified string
if the remote server requires an additional account password.
.IP "macdef name" 4
.IX Item "macdef name"
Define a macro. \f(CW\*(C`Net::Netrc\*(C'\fR only parses this field to be compatible
with \fIftp\fR.
.SH "CONSTRUCTOR"
.IX Header "CONSTRUCTOR"
The constructor for a \f(CW\*(C`Net::Netrc\*(C'\fR object is not called new as it does not
really create a new object. But instead is called \f(CW\*(C`lookup\*(C'\fR as this is
essentially what it does.
.IP "lookup ( \s-1MACHINE\s0 [, \s-1LOGIN\s0 ])" 4
.IX Item "lookup ( MACHINE [, LOGIN ])"
Lookup and return a reference to the entry for \f(CW\*(C`MACHINE\*(C'\fR. If \f(CW\*(C`LOGIN\*(C'\fR is given
then the entry returned will have the given login. If \f(CW\*(C`LOGIN\*(C'\fR is not given then
the first entry in the .netrc file for \f(CW\*(C`MACHINE\*(C'\fR will be returned.
.Sp
If a matching entry cannot be found, and a default entry exists, then a
reference to the default entry is returned.
.Sp
If there is no matching entry found and there is no default defined, or
no .netrc file is found, then \f(CW\*(C`undef\*(C'\fR is returned.
.SH "METHODS"
.IX Header "METHODS"
.IP "login ()" 4
.IX Item "login ()"
Return the login id for the netrc entry
.IP "password ()" 4
.IX Item "password ()"
Return the password for the netrc entry
.IP "account ()" 4
.IX Item "account ()"
Return the account information for the netrc entry
.IP "lpa ()" 4
.IX Item "lpa ()"
Return a list of login, password and account information fir the netrc entry
.SH "AUTHOR"
.IX Header "AUTHOR"
Graham Barr <[e-mail]>
.SH "SEE ALSO"
.IX Header "SEE ALSO"
Net::Netrc
Net::Cmd
.SH "COPYRIGHT"
.IX Header "COPYRIGHT"
Copyright (c) 1995\-1998 Graham Barr. All rights reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.