Roxen.git/ server/ etc/ modules/ Roxen.pmod

2002-02-04

2002-02-04 12:09:16 by Stefan Wallström <stewa@roxen.com>

• c86cc228953a86da6daea3121c4be3c8ec89d518 (82 lines) (+54/-28) ^{[ Show | Annotate ]}
  Branch: 5.2

Added Shift_JIS to list of autodetectable character sets.

Rev: server/etc/modules/Roxen.pmod:1.131
Rev: server/modules/tags/rxmltags.pike:1.339

1:   // This is a roxen pike module. Copyright © 1999 - 2001, Roxen IS.   // - // $Id: Roxen.pmod,v 1.130 2002/01/29 21:51:41 mast Exp $ + // $Id: Roxen.pmod,v 1.131 2002/02/04 12:09:15 stewa Exp $      #include <roxen.h>   #include <config.h>
2073:      function get_client_charset_decoder( string åäö, RequestID|void id )    //! Returns a decoder for the clients charset, given the clients -  //! encoding of the string "åäö". See the roxen-automatic-charset-variable -  //! tag. +  //! encoding of the string "åäö&#x829f;". +  //! See the roxen-automatic-charset-variable tag.   { -  switch( (åäö/"\0")[0] ) -  { +  // Netscape seems to send "?" for characters that can't be represented +  // by the current character set while IE encodes those characters +  // as entities. +  string test = replace((åäö/"\0")[0], +  ({ "&aring;", "&#229;", "&#xe5;", +  "&auml;", "&#228;", "&#xe4;", +  "&ouml;", "&#246;", "&#xf6;", +  "&#33439;","&#x829f;" }), +  ({ "?", "?", "?", +  "?", "?", "?", +  "?", "?", "?", +  "?", "?" })); +  +  switch( test ) {    case "edv": -  +  case "edv?":    report_notice( "Warning: Non 8-bit safe client detected (%s)",    (id?id->client*" ":"unknown client"));    return 0;       case "åäö": -  +  case "åäö?":    return 0;       case "\33-Aåäö": -  +  case "\33-A\345\344\366\33$Bgl":    id && id->set_output_charset && id->set_output_charset( "iso-2022" );    return _charset_decoder(Locale.Charset.decoder("iso-2022-jp"))->decode;       case "+AOUA5AD2-": -  +  case "+AOUA5AD2gp8-":    id && id->set_output_charset && id->set_output_charset( "utf-7" );    return _charset_decoder(Locale.Charset.decoder("utf-7"))->decode;       case "åäö":    case "åä": -  +  case "åäö\350\212\237":    id && id->set_output_charset && id->set_output_charset( "utf-8" );    return utf8_to_string;       case "\214\212\232": -  +  case "\214\212\232?":    id && id->set_output_charset && id->set_output_charset( "mac" );    return _charset_decoder( Locale.Charset.decoder( "mac" ) )->decode;       case "\0å\0ä\0ö": -  +  case "\0å\0ä\0ö\202\237":    id&&id->set_output_charset&&id->set_output_charset(string_to_unicode);    return unicode_to_string; -  +  +  case "\344\214": +  case "???\344\214": +  case "\217\206H\217\206B\217\206r\344\214": // Netscape sends this (?!) +  id && id->set_output_charset && id->set_output_charset( "shift_jis" ); +  return _charset_decoder(Locale.Charset.decoder("shift_jis"))->decode;    }    report_warning( "Unable to find charset decoder for åäö == %O\n",åäö);   }