App-Navegante
5 results

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN 

         }
      },
      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : 0
         }
      },
      "runtime" : {
         "requires" : {
            "CGI" : 0,
            "HTTP::Request" : 0,
            "LWP::UserAgent" : 0,
            "Test::More" : 0,
            "URI::URL" : 0,
            "XML::DT" : "0.51"
         }
      }
   },
   "release_status" : "stable",
   "version" : "0.02"
}

META.yml  view on Meta::CPAN 

meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: App-Navegante
no_index:
  directory:
    - t
    - inc
requires:
  CGI: 0
  HTTP::Request: 0
  LWP::UserAgent: 0
  Test::More: 0
  URI::URL: 0
  XML::DT: 0.51
version: 0.02

Makefile.PL  view on Meta::CPAN 

WriteMakefile(
    NAME                => 'App::Navegante',
    AUTHOR              => 'Nuno Carvalho <smash@cpan.org>',
    VERSION_FROM        => 'lib/App/Navegante.pm',
    ABSTRACT_FROM       => 'lib/App/Navegante.pm',
    EXE_FILES           => [ $bin ],
    PL_FILES            => {},
    PREREQ_PM => {
        'Test::More'     => 0,
        'LWP::UserAgent' => 0,
        'HTTP::Request'  => 0,
        'URI::URL'       => 0,
        'CGI'            => 0,
        'XML::DT'        => '0.51',
    },
    dist                => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
    clean               => { FILES => "App-Navegante-* $bin" },
);

README  view on Meta::CPAN 


You can also read examples/README for a list of examples distributed in
this module.

PREREQUISTES

You need the following modules installed in your system:

  Test::More
  LWP::UserAgent
  HTTP::Request
  URI::URL
  CGI
  XML::DT
  Parser::Yapp

INSTALLATION

To install this module, run the following commands:

	perl Makefile.PL

lib/App/Navegante/CGI.pm  view on Meta::CPAN 

TODO

=cut

sub skeleton {

my $skeleton=<<'END_SKEL';
#!/usr/bin/perl 

use LWP::UserAgent qw(!head);
require HTTP::Request;
use URI::URL qw(!url);
use CGI qw/:standard/;
use XML::DT 0.51;

my %estado = cookie('navcookie');

my $U;
####PERL####

my $Navegante={};

lib/App/Navegante/CGI.pm  view on Meta::CPAN 

        $iform = "<body onload=\"alert('[$U] successfully annotated!');\">$iform</body>";
    }
    print header(cook(),-charset => 'UTF-8'), $iform;
  }
  elsif( $Navegante->{monadic} && param(action) eq "monadicend"){ 
       $Navegante->{end}() 
  }
  else {
  $U=_fixurl(param('x'));
  my $ua      = LWP::UserAgent->new();
  my $request = HTTP::Request->new(GET => _fixurl(param('x')));
  my $resp    = $ua->request($request);
  $URL = "". $resp->base();         ## the real URL extracted
  $MES = $resp->message();          ## OK if no error
  $CON = $resp->content;            ## the page content
  $cty = $resp->content_type;       ## the content type
  $cen = $resp->content_encoding;   ## the content encoding

  $Navegante->{init}(); 
  if($MES eq "OK"){
    $pag=dtstring($CON,



( run in 1.017 second using v1.01-cache-2.11-cpan-de7293f3b23 )