The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
 / 
HTML-MobileConverter-0.011
River stage zero No dependents
/ HTML::MobileConverter

NAME

HTML::MobileConverter - HTML Converter for mobile agent

SYNOPSIS

use HTML::MobileConverter;

my $baseuri = 'http://example.com/';
my $c = HTML::MobileConverter->new(baseuri => $baseuri);
my $html =<<END;
<html><body>title<hr><a href="./my">my link</a></body></html>
END
print $c->convert($html); # get html with abs-uri.

use URI;
$html = <<END;
<html><body>
title<hr>
<a href="./my">my link</a>
<iframe src="./my"></iframe>
</body></html>
END
$c = HTML::MobileConverter->new(
  baseuri => $baseuri,
  hrefhandler => sub {
    my $href = shift;
    return URI->new_abs($href, 'http://example.com/');
  },
);
print $c->convert($html); # get html without iframe.

# create a proxy
my $q = CGI->new;
my $html = $c->convert(LWP::Simple:get($q->param('uri')));
print Jcode->new($html)->sjis;

DESCRIPTION

HTML::MobileConverter parses HTML and returns new HTML for mobile agent (mainly for DoCoMo i-mode). If the original HTML doesn't contain so many pc tags, it returns the original HTML strings with absolute uri (href,src...). If the original was guessed as a content for PC, it returns new HTML for mobile agent.

METHODS

Here are common methods of HTML::MobileConverter.

new
$c = HTML::MobileConverter->new;
$c = HTML::MobileConverter->new(baseuri => 'http://www.example.com/');
$c = HTML::MobileConverter->new(
  baseuri => 'http://www.example.com/',
  hrefhandler => sub {
    my $href = shift;
    $href = URI->new_abs($href, 'http://www.example.com/');
    return qq|/browse?uri=$href|;
  },
);

creates a instance of HTML::MobileConverter. If you specify baseuri, href/src/action attributes will be replaced with absolute uris.

If you specify hrefhandler with some function, href attribute will be handled with the handler.

convert
my $mhtml = $c->convert($html);

returns HTML strings for mobile.

ismobilecontent
print "is mobile" if $c->ismobilecontent;

returns which the original HTML was guessed as mobile content or not.

AUTHOR

Junya Kondo, <jkondo@hatena.ne.jp>

COPYRIGHT AND LICENSE

Copyright (C) 2005 by Junya Kondo

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

HTML::Parser http://www.nttdocomo.co.jp/p_s/imode/tag/lineup.html (Japanese)