[Gringo]

POD does not show the DMOZ World categories correctly - even the demo on grohol.com doesn't work. Pick any category in Spanish for example and you'll get an error like this ..
POD encountered the following error while trying to run:
404 Not Found
Attempted retrieval URL: http://dmoz.org/World/Español/PaÃ*s...³nomas/Madrid/

Any solutions anybody?

Thanks, Gringo.

[BeRKA]

It works with netscape.
With explorer, replace the n-tilde with
a "%" an "f" and a "1".

A bugfix would be to rewrite all links with international characters so it works for explorer.

[Gringo]

Thanks -. yes, you're right. It does work with Netscape. However, IE is used by the majority of surfers. Surely this would be an easy change to make in POD?

Gringo.

[scriptnews]

Sorry I have the same problem, and I would like to apply the proposed fix - unfortunately I am not fit with perl programming.

Could someone please post a more detailled info ...

Many thanks for kind support and this fine tool.

ScriptNews

[BeRKA]

For some reason (Have dmoz changed the coding?) it seems to work with IE now.

If You still want a bugfix,
a quick and dirty one would look something like this:

# n-tilde
@tags = split(/\"/, $pod_line); # assign podline to test
@orglink = @tags;
$countntilde = 0;
$startlink = 0;
foreach $ntilde (@tags)
{
if ($startlink)
{
$ntilde =~ s/ñ/\%f1/g; # change link
$pod_line =~ s/$orglink[$countntilde]/$ntilde/; # replace original with changed
}
if ($ntilde =~ m/a href/i)
{
$startlink = 1;
}
else
{
$startlink = 0;
}
$countntilde++;
}

Place it in the part of the script where $pod_line is modified.
It should be simple to modify the above for any international characters

[scriptnews]

Hi and thanks a lot for the code.

Well, I just found another "bug" which shows even on the demo set up e.g. in the spanish language part:

--- snip ---

"Top: World:">
"Top: World:"> Top: World: Español: Artes (7.870)

--- snip end ---

The same weard behaviour shows up on my test install.

What could be the reason, and what could be done about it... ?

Again, many thanks in advance.

ScriptNews

[BeRKA]

Try turning off the internationalization.
(Set a # in front of $pod_international=1; in the podvars file.)
It isn't working the way it should.

[john_campbell]

This didn't work for me. My MSIE now seems to be using double byte code for international characters. My workaround for World categories is:

Find:
# $pod_url=&pod_escape($pod_url);

After that line, add (but see note below):
# uppercase
$pod_url =~ s/À/\% c0/g;
$pod_url =~ s/�/\% c1/g;
$pod_url =~ s/Â/\% c2/g;
$pod_url =~ s/Ã/\% c3/g;
$pod_url =~ s/Ä/\% c4/g;
$pod_url =~ s/Ã…/\% c5/g;
$pod_url =~ s/Æ/\% c6/g;
$pod_url =~ s/Ç/\% c7/g;
$pod_url =~ s/È/\% c8/g;
$pod_url =~ s/É/\% c9/g;
$pod_url =~ s/Ê/\% ca/g;
$pod_url =~ s/Ë/\% cb/g;
$pod_url =~ s/Ì/\% cc/g;
$pod_url =~ s/�/\% cd/g;
$pod_url =~ s/ÃŽ/\% ce/g;
$pod_url =~ s/�/\% cf/g;
$pod_url =~ s/�/\% d0/g;
$pod_url =~ s/Ñ/\% d1/g;
$pod_url =~ s/Ã’/\% d2/g;
$pod_url =~ s/Ó/\% d3/g;
$pod_url =~ s/Ô/\% d4/g;
$pod_url =~ s/Õ/\% d5/g;
$pod_url =~ s/Ö/\% d6/g;
$pod_url =~ s/×/\% d7/g;
$pod_url =~ s/Ø/\% d8/g;
$pod_url =~ s/Ù/\% d9/g;
$pod_url =~ s/Ú/\% da/g;
$pod_url =~ s/Û/\% db/g;
$pod_url =~ s/Ü/\% dc/g;
$pod_url =~ s/�/\% dd/g;
$pod_url =~ s/Þ/\% de/g;
$pod_url =~ s/ß/\% df/g;

# lowercase
$pod_url =~ s/Ã /\% e0/g; # that's not a space but character 160
$pod_url =~ s/á/\% e1/g;
$pod_url =~ s/â/\% e2/g;
$pod_url =~ s/ã/\% e3/g;
$pod_url =~ s/ä/\% e4/g;
$pod_url =~ s/Ã¥/\% e5/g;
$pod_url =~ s/æ/\% e6/g;
$pod_url =~ s/ç/\% e7/g;
$pod_url =~ s/è/\% e8/g;
$pod_url =~ s/é/\% e9/g;
$pod_url =~ s/ê/\% ea/g;
$pod_url =~ s/ë/\% eb/g;
$pod_url =~ s/ì/\% ec/g;
$pod_url =~ s/Ã*/\% ed/g; # hidden character 173 in this line
$pod_url =~ s/î/\% ee/g;
$pod_url =~ s/ï/\% ef/g;
$pod_url =~ s/ð/\% f0/g;
$pod_url =~ s/ñ/\% f1/g;
$pod_url =~ s/ò/\% f2/g;
$pod_url =~ s/ó/\% f3/g;
$pod_url =~ s/ô/\% f4/g;
$pod_url =~ s/õ/\% f5/g;
$pod_url =~ s/ö/\% f6/g;
$pod_url =~ s/÷/\% f7/g;
$pod_url =~ s/ø/\% f8/g;
$pod_url =~ s/ù/\% f9/g;
$pod_url =~ s/ú/\% fa/g;
$pod_url =~ s/û/\% fb/g;
$pod_url =~ s/ü/\% fc/g;
$pod_url =~ s/ý/\% fd/g;
$pod_url =~ s/þ/\% fe/g;
$pod_url =~ s/ÿ/\% ff/g;

# some oddities:
$pod_url =~ s/Å /\% 8a/g; # Š
$pod_url =~ s/Å’/\% 8c/g; # Œ
$pod_url =~ s/Å¡/\% 9a/g; # š
$pod_url =~ s/Å“/\% 9c/g; # œ
$pod_url =~ s/Ÿ/\% 9f/g; # Ÿ

Note that I couldn't get this to appear correctly in this forum. % c0 should have no space between the % and the c0, and similarly for all the character entities.

All the foreign characters in directory categories work now, but not searches with international characters.

The code is not very economical, I know!

[john_campbell]

And to get international characters working in searches AND to get searches within directories working, I did in addition:

1. Find:
$pod_dir =~ s/%([\dA-Fa-f]{2})/pack("C", hex($pod_1))/eisg;
Comment it out, and add
$pod_dir = pod_unescape($pod_dir);
(Was stripping out high order characters rather than replacing them. Also doing the same with forward slashes, needed for searches within directories)

2.
Find:
$pod_line = &pod_unescape($pod_line);

After it, add:
### might be double byte

# uppercase
$pod_line =~ s/À/À/g;
$pod_line =~ s/Ã�/Á/g;
$pod_line =~ s/Â/Â/g;
$pod_line =~ s/Ã/Ã/g;
$pod_line =~ s/Ä/Ä/g;
$pod_line =~ s/Ã…/Å/g;
$pod_line =~ s/Æ/Æ/g;
$pod_line =~ s/Ç/Ç/g;
$pod_line =~ s/È/È/g;
$pod_line =~ s/É/É/g;
$pod_line =~ s/Ê/Ê/g;
$pod_line =~ s/Ë/Ë/g;
$pod_line =~ s/ÃŒ/Ì/g;
$pod_line =~ s/Ã�/Í/g;
$pod_line =~ s/ÃŽ/Î/g;
$pod_line =~ s/Ã�/Ï/g;
$pod_line =~ s/Ã�/Ð/g;
$pod_line =~ s/Ã'/Ñ/g;
$pod_line =~ s/Ã'/Ò/g;
$pod_line =~ s/Ã"/Ó/g;
$pod_line =~ s/Ã"/Ô/g;
$pod_line =~ s/Õ/Õ/g;
$pod_line =~ s/Ã-/Ö/g;
$pod_line =~ s/Ã-/×/g;
$pod_line =~ s/Ø/Ø/g;
$pod_line =~ s/Ù/Ù/g;
$pod_line =~ s/Ú/Ú/g;
$pod_line =~ s/Û/Û/g;
$pod_line =~ s/Ãœ/Ü/g;
$pod_line =~ s/Ã�/Ý/g;
$pod_line =~ s/Þ/Þ/g;
$pod_line =~ s/ß/ß/g;

# lowercase
$pod_line =~ s/Ã /à/g;
$pod_line =~ s/á/á/g;
$pod_line =~ s/â/â/g;
$pod_line =~ s/ã/ã/g;
$pod_line =~ s/ä/ä/g;
$pod_line =~ s/Ã¥/å/g;
$pod_line =~ s/æ/æ/g;
$pod_line =~ s/ç/ç/g;
$pod_line =~ s/è/è/g;
$pod_line =~ s/é/é/g;
$pod_line =~ s/ê/ê/g;
$pod_line =~ s/ë/ë/g;
$pod_line =~ s/ì/ì/g;
$pod_line =~ s/Ã*/í/g; # hidden character in this line
$pod_line =~ s/î/î/g;
$pod_line =~ s/ï/ï/g;
$pod_line =~ s/ð/ð/g;
$pod_line =~ s/ñ/ñ/g;
$pod_line =~ s/ò/ò/g;
$pod_line =~ s/ó/ó/g;
$pod_line =~ s/ô/ô/g;
$pod_line =~ s/õ/õ/g;
$pod_line =~ s/ö/ö/g;
$pod_line =~ s/÷/÷/g;
$pod_line =~ s/ø/ø/g;
$pod_line =~ s/ù/ù/g;
$pod_line =~ s/ú/ú/g;
$pod_line =~ s/û/û/g;
$pod_line =~ s/ü/ü/g;
$pod_line =~ s/ý/ý/g;
$pod_line =~ s/þ/þ/g;
$pod_line =~ s/ÿ/ÿ/g;

# some oddities:
$pod_line =~ s/Å /Š/g;
$pod_line =~ s/Å'/Œ/g;
$pod_line =~ s/Å¡/š/g;
$pod_line =~ s/Å"/œ/g;
$pod_line =~ s/Ÿ/Ÿ/g;
###

This works on both MSIE, NS4 and NS6 on my PC, running Windows 98 (English)

The alterations in my previous post are also required.

I'm well aware it could be improved, but that is beyond my skills!

[DocJohn]

Hi John,

Thanks for these! If you email them to me I can put them into a new point release version of POD, along with some other minor updates I've made. (Email will preserve formatting unlike this forum! Sorry about that......)

Best,
John

[john_campbell]

Actually it is incredibly simple. Ignore my previous post.

1. Find:
$pod_dir =~ s/%([\dA-Fa-f]{2})/pack("C", hex($pod_1))/eisg;
Comment it out, and add
$pod_dir = pod_unescape($pod_dir);

2. Find:
print $pod_q->header(-type=>'text/html',

After it add:
-charset=>'UTF-8',

See attached file for more details

[DocJohn]

I've made the updates and released the current version as 1.95 that fixes the international issues, thank you!!

[(JD)]

I read these posts and I'm not sure if I'm more in awe of your knowledge , or frustrated that I can no longer learn!

<font color=blue> meditation is a true way to connect to the Source </font color=blue>