| Description: |
Just a tiny little script that takes a list of URLS, fetches them and compiles them.
Useful for checking all your pages will fit on the phone.
|
#! /usr/bin/perl -w
use strict;
use LWP::Simple;
use CGI::WML;
foreach my $url (@ARGV) {
my $wml = get($url);
if ($wml) {
my $wmlc = CGI::WML->wml_to_wmlc(-wml => $wml);
if ($wmlc) {
printf "$url => WML:%d WMLC:%d\n",length($wml),length($wmlc);
}
else {
print "Failed to compile $url\n";
}
}
else {
print "Failed to fetch $url\n";
}
}
|
Re: WAP Compiler Test
by Anonymous Monk on Aug 23, 2008 at 15:55 UTC
|
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
"http://www.wapforum.org/DTD/wml_1.1.xml"><wml>
<card id="no1" title="Go to URL">
<do type="options" label="Go">
<go href="check.wmls#go_url('W3Schools')"/>
</do>
</card>
</wml> | [reply] |
|
