Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Re^2: how to use Encode qw(all)

by swilting (Beadle)
on Apr 05, 2010 at 15:44 UTC ( #832843=note: print w/replies, xml ) Need Help??

in reply to Re: how to use Encode qw(all)
in thread how to use Encode qw(all)

I work webmail on @jaos software . incoming (input) are emails

I thought this little preview of code

package CGI::as_utf8; BEGIN { use strict; use warnings; use CGI 3.47; # earlier versions have a UTF-8 double-decoding bug { no warnings 'redefine'; my $param_org = \&CGI::param; my $might_decode = sub { my $p = shift; # make sure upload() filehandles are not modified return $p if !$p || ( ref $p && fileno($p) ); utf8::decode($p); # may fail, but only logs an error $p }; *CGI::param = sub { # setting a param goes through the original interface goto &$param_org if scalar @_ != 2; my $q = $_[0]; # assume object calls always my $p = $_[1]; return wantarray ? map { $might_decode->($_) } $q->$param_org($p) : $might_decode->( $q->$param_org($p) ); } } } 1

but I must be careful in the webmail there is of course the posibility to upload. consider how the thing

or else , : either. I can afford to encode the file handle as quoted above

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://832843]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (8)
As of 2018-04-22 20:38 GMT
Find Nodes?
    Voting Booth?