
=head1 NAME

Nes::Obj::lwp - LWP in an Nes Object

=head1 SYNOPSIS

    {: include ('{: * cfg_obj_top_dir :}/lwp.nhtml',
                 URL,
                 extrac,
                 method,
                 query,
                 charset,
                 useragent,
                 email
               ) 
    :}

=head1 DESCRIPTION

Part of LWP ( http://search.cpan.org/perldoc?LWP )
encapsulated in an Nes Object.

=head1 PARAMETERS

=over 2

=item URL

URL to get.

=item extrac

Piece of the page you want to extract, default is content:

=over 2

=item content

All content.

=item status

HTTP status.

=item Content-Type

Content Type.

=item title

Page title.

=item head

Page head tag.

=item body

Page body tag.

=item star:-:end

user-defined delimiter.

Return tag content without tags: <tag></tag>

    <tag>:-:</tag>

Return tag and include tags: <tag></tag>

    :-:<tag>:-:</tag>:-: 

=back

=item method

GET or POST, default is GET.

=item query

Query for GET or POST, sample:

    name=Jose&email=jose@sample.com

=item charset

ISO or UTF-8, default no change. 

=item useragent

User Agent, default: Nes/1.0

=item email

User agent email, default: $ENV{'SERVER_ADMIN'}

=back

=head1 Defined Tags:

    {: $ status :}        # Status response
    {: $ request :}       # request send
    {: $ Content-Type :}  # Content type
    {: $ content :}       # All HTML content
    {: $ title :}         # Title Tag content
    {: $ head :}          # Head Tag content
    {: $ body :}          # Body Tag content
    {: $ extrac :}        # extrac return value

=head1 AUTHOR

Skriptke: Enrique Castañón

=head1 VERSION

Version 1.03 April 2010

=head1 COPYRIGHT

Copyright (c) Enrique F. Castanon Barbero. All rights reserved.

=head1 LICENSE

This program is free software; you can redistribute it
and/or modify it under the same terms and conditions as
GNU Public License (GPL).

This means that you can, at your option, redistribute it and/or 
modify it under either the terms the GNU Public License (GPL), 
or under the Perl Artistic License.

See http://dev.perl.org/licenses/

=head1 DISCLAIMER

THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS
OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
PARTICULAR PURPOSE.

Use of this software in any way or in any form, source or binary,
is not allowed in any country which prohibits disclaimers of any
implied warranties of merchantability or fitness for a particular
purpose or any disclaimers of a similar nature.

IN NO EVENT SHALL I BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT,
SPECIAL, INCIDENTAL,  OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
USE OF THIS SOFTWARE AND ITS DOCUMENTATION (INCLUDING, BUT NOT
LIMITED TO, LOST PROFITS) EVEN IF I HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGE

=head1 SEE ALSO

L<Nes>, L<Nes::Tutorial>, L<Nes::Singleton>, L<Nes::nes.cfg>, 
Sample to use Nes; L<http://nes.sourceforge.net/>

=cut

