diff options
Diffstat (limited to 'pod/perlfaq9.pod')
| -rw-r--r-- | pod/perlfaq9.pod | 59 |
1 files changed, 48 insertions, 11 deletions
diff --git a/pod/perlfaq9.pod b/pod/perlfaq9.pod index 9e6355f816..f4f4759ba5 100644 --- a/pod/perlfaq9.pod +++ b/pod/perlfaq9.pod @@ -1,6 +1,6 @@ =head1 NAME -perlfaq9 - Networking ($Revision: 1.15 $, $Date: 1997/03/25 18:17:20 $) +perlfaq9 - Networking ($Revision: 1.16 $, $Date: 1997/04/23 18:12:06 $) =head1 DESCRIPTION @@ -62,9 +62,10 @@ A quick but imperfect approach is }gsix; This version does not adjust relative URLs, understand alternate -bases, deal with HTML comments, or accept URLs themselves as -arguments. It also runs about 100x faster than a more "complete" -solution using the LWP suite of modules, such as the +bases, deal with HTML comments, deal with HREF and NAME attributes in +the same tag, or accept URLs themselves as arguments. It also runs +about 100x faster than a more "complete" solution using the LWP suite +of modules, such as the http://www.perl.com/CPAN/authors/Tom_Christiansen/scripts/xurl.gz program. @@ -83,14 +84,30 @@ others, including some that it cleverly synthesizes on its own. =head2 How do I fetch an HTML file? -Use the LWP::Simple module available from CPAN, part of the excellent -libwww-perl (LWP) package. On the other hand, and if you have the -lynx text-based HTML browser installed on your system, this isn't too -bad: +One approach, if you have the lynx text-based HTML browser installed +on your system, is this: $html_code = `lynx -source $url`; $text_data = `lynx -dump $url`; +The libwww-perl (LWP) modules from CPAN provide a more powerful way to +do this. They work through proxies, and don't require lynx: + + # print HTML from a URL + use LWP::Simple; + getprint "http://www.sn.no/libwww-perl/"; + + # print ASCII from HTML from a URL + use LWP::Simple; + use HTML::Parse; + use HTML::FormatText; + my ($html, $ascii); + $html = get("http://www.perl.com/"); + defined $html + or die "Can't fetch HTML from http://www.perl.com/"; + $ascii = HTML::FormatText->new->format(parse_html($html)); + print $ascii; + =head2 how do I decode or create those %-encodings on the web? Here's an example of decoding: @@ -127,7 +144,7 @@ server, or perhaps check some of the other FAQs referenced above. The HTTPD::UserAdmin and HTTPD::GroupAdmin modules provide a consistent OO interface to these files, regardless of how they're -stored. Databases may be text, dbm, Berkeley DB or any database with a +stored. Databases may be text, dbm, Berkley DB or any database with a DBI compatible driver. HTTPD::UserAdmin supports files used by the `Basic' and `Digest' authentication schemes. Here's an example: @@ -136,6 +153,19 @@ DBI compatible driver. HTTPD::UserAdmin supports files used by the ->new(DB => "/foo/.htpasswd") ->add($username => $password); +=head2 How do I make sure users can't enter values into a form that cause my CGI script to do bad things? + +Read the CGI security FAQ, at +http://www-genome.wi.mit.edu/WWW/faqs/www-security-faq.html, and the +Perl/CGI FAQ at +http://www.perl.com/CPAN/doc/FAQs/cgi/perl-cgi-faq.html. + +In brief: use tainting (see L<perlsec>), which makes sure that data +from outside your script (eg, CGI parameters) are never used in +C<eval> or C<system> calls. In addition to tainting, never use the +single-argument form of system() or exec(). Instead, supply the +command and arguments as a list, which prevents shell globbing. + =head2 How do I parse an email header? For a quick-and-dirty solution, try this solution derived @@ -185,6 +215,12 @@ comments), looks for addresses you may not wish to accept email to (say, Bill Clinton or your postmaster), and then makes sure that the hostname given can be looked up in DNS. It's not fast, but it works. +Here's an alternative strategy used by many CGI script authors: Check +the email address with a simple regexp (such as the one above). If +the regexp matched the address, accept the address. If the regexp +didn't match the address, request confirmation from the user that the +email address they entered was correct. + =head2 How do I decode a MIME/BASE64 string? The MIME-tools package (available from CPAN) handles this and a lot @@ -224,8 +260,8 @@ Again, the best way is often just to ask the user. =head2 How do I send/read mail? Sending mail: the Mail::Mailer module from CPAN (part of the MailTools -package) is Unix-centric, while Mail::Internet uses Net::SMTP which is -not Unix-centric. Reading mail: use the Mail::Folder module from CPAN +package) is UNIX-centric, while Mail::Internet uses Net::SMTP which is +not UNIX-centric. Reading mail: use the Mail::Folder module from CPAN (part of the MailFolder package) or the Mail::Internet module from CPAN (also part of the MailTools package). @@ -292,3 +328,4 @@ CPAN). No ONC::RPC module is known. Copyright (c) 1997 Tom Christiansen and Nathan Torkington. All rights reserved. See L<perlfaq> for distribution information. + |