9 use Data::Validate::URI qw(is_uri);
13 print "$0: url_to_pukiwikiplus_page\n";
18 die "$0: '$url' is not URI" unless is_uri($url);
20 if ($url !~ /cmd=source/ ) {
21 $url =~ s#\?(.+)#\?cmd=source&page=$1#;
24 print STDERR "getting: '$url'\n";
26 my $source = scraper {
27 process "pre#source", "source" => "TEXT";
31 my $text = $source->scrape( URI->new($url) );
33 print encode('utf8', $text);