Thanks

I'll give that a go. What OS are you on out of interest. As I just
decided to try in on one of my Linux servers and I'm not having that
problem there at all. So I'm now wondering if its a bug in a specific
version or maybe even OS X.

Thanks

Angie


On Fri, 11 Feb 2005 13:56:55 +0100, Roman VaÅÃÄek <[EMAIL PROTECTED]> wrote:
> It is strange. CGI works ok, but i was unable to get correct output even
> from module even first time. It seems to be ok for me after switching
> from perl-script to modperl handler.
> 
> apache          2.0.48
> mod_perl        1.99_14
> perl            5.0.8
> 
> <Location /unitest>
>         SetHandler modperl
> # perl-script does not work - don't know why
> #        SetHandler perl-script
>         PerlResponseHandler Unitest
> </Location>
> 
> Here is changed handler and startpage code
> 
> sub handler {
>   my $r = shift;
>   $r->print( header(-type => "text/html",  -charset => "utf-8"));
>   $r->print( start_html(
>                         # This seems to be no important?
>                         -encoding => 'utf-8',
>                         -title => "Simple UTF 8 test"));
>   $r->print( "\n\n");
>   # page calls
>   unless (param('VertDo')) {
>     $r->print(&startpage());
>   }
>   $r->print( "\n\n", end_html);
>   return Apache::OK;
>   #1;
> }
> 
> sub startpage {
>   my %uni = &unihash;
>   my $p = '';
>   $p = "\n";
>   $p .= start_form(-method=>"get", -action=>"/test.html");
>   $p .= h1("Unicode test: Page 1");
>   $p .= '<table border="1" cellpadding="5">';
>   my $tablinedef = "<tr>" . "<td>%s</td>" x 3 . "</tr>\n";
>   # Headerline
>   $p .= sprintf $tablinedef,
>     "description", "language", "char in unicode";
>   foreach (sort keys %uni) {
>     $p .= sprintf $tablinedef,
>       $_ ,
>         $uni{$_}->{language},
>           textfield(-name=>$_,
>                     -default=>$uni{$_}->{character}, -size=>50, 
> -maxlength=>80);
>   }
>   $p .= '</table>';
>   $p .= hidden(-name=>'VertDo',
>                -default=>['test unicode']);
>   $p .= submit(-name=>'Do',
>                -value=>'test unicode');
>   $p .= endform;
>   return $p;
> }
> 
> Hope it helps
>   Roman
> 
> On Fri, Feb 11, 2005 at 11:47:49AM +0000, angie ahl wrote:
> > I've looked into it further and stripped it right back to the start.
> >
> > Now I just have the unicode chars hard coded in the script and
> > printing them to a table.
> >
> > I'm not even passing them through a form now, just printing them.
> >
> > In CGI mode it works perfectly and in MP2 mode it loads fine the first
> > time after apache or the browser is restarted. Then goes kaboom, ie
> > gibberish
> >
> > Here's both scripts.
> [...]
> 
> --
>  best regards
>   Ing. Roman Vasicek
> 
>  software developer
> +----------------------------------------------------------------------------+
>  PetaMem s.r.o., Ocelarska 1, 190 00 Praha 9 - Liben, Czech Republic
>  http://www.petamem.com/
>

Reply via email to