home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / plum / 2.x / plum2_32_1.lzh / module / server / kanji.plm < prev    next >
Text File  |  1999-02-20  |  2KB  |  89 lines
  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><!-- $_ if 0; # -*- perl -*-
  2. # $Id: kanji.plm,v 2.5 1998/12/20 02:27:44 hasegawa Exp $
  3. # copyright (c)1997-1998 Yoshinori Hasegawa <hasegawa@madoka.org>
  4.  
  5. package server_kanji;
  6.  
  7. $_ = 'server_kanji';
  8.  
  9. sub server_read {
  10.   local($serverno, $line) = @_;
  11.   foreach $kanji (&'property($'userno[$serverno], 'input')) {
  12.     foreach $code (split(/\,/, "\L$kanji\E")) {
  13.       if ($code eq 'euc') {
  14.         $line = &'euc_jis($line);
  15.       } elsif ($code eq 'jis') {
  16.         $line = &'jis_jis($line);
  17.       } elsif ($code eq 'sjis') {
  18.         $line = &'sjis_jis($line);
  19.       }
  20.     }
  21.   }
  22.   return $line;
  23. }
  24.  
  25. sub server_write {
  26.   local($serverno, $line) = @_;
  27.   local($kanji, $code);
  28.   $kanji = &'property($'userno[$serverno], 'output');
  29.   if ($kanji) {
  30.     $code = (split(/\,/, "\L$kanji\E"))[0];
  31.     if ($kanji eq 'euc') {
  32.       $line = &'jis_euc($line);
  33.     } elsif ($kanji eq 'jis') {
  34.       $line = &'jis_jis($line);
  35.     } elsif ($kanji eq 'sjis') {
  36.       $line = &'jis_sjis($line);
  37.     }
  38.   }
  39.   return $line;
  40. }
  41.  
  42. __END__
  43. --><HTML><HEAD>
  44. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-2022-JP">
  45. <LINK REV="made" HREF="mailto:hasegawa@madoka.org">
  46. <TITLE>server/kanji.plm</TITLE></HEAD><BODY>
  47.  
  48. $B%*%s%i%$%s%I%-%e%a%s%H(B
  49.  
  50.  
  51. <HR><H3>$BL>A0(B</H3>
  52.  
  53. server/kanji.plm - $B%5!<%P$H$NF~=PNO$G4A;z%3!<%I$rJQ49$9$k(B
  54.  
  55.  
  56. <HR><H3>$B@bL@(B</H3>
  57.  
  58. $B%5!<%P$+$i(BJIS$B0J30$GF~NO$5$l$?4A;z%3!<%I$r(BJIS$B$KJQ49$7$^$9!#(B
  59. $B$^$?%5!<%P$KBP$7$F=PNO$9$k4A;z%3!<%I$r;XDj$7$?$b$N$K$7$^$9!#(B
  60.  
  61.  
  62. <HR><H3>$B%W%m%Q%F%#(B</H3>
  63.  
  64. <DL>
  65. <DT>  server.kanji.input* ({jis|euc|sjis})
  66. </DT>
  67. <DD>    $B%5!<%P$+$i$NF~NO$,;XDj$7$?4A;z%3!<%I$N$b$N$G$"$l$P!"(B
  68.         $B$=$l$r(Bjis$B$KJQ49$7$^$9!#(Beuc$B$H(Bsjis$B$OF1;~$K;XDj$G$-$^$;$s!#(B
  69. </DD>
  70. <DT>  server.kanji.output {jis|euc|sjis}
  71. </DT>
  72. <DD>    $B%5!<%P$K=PNO$9$k4A;z%3!<%I$r;XDj$7$?$b$N$K$7$^$9!#(B
  73. </DD>
  74. </DL>
  75.  
  76.  
  77. <HR><H3>$B@_DjNc(B</H3>
  78.  
  79. <PRE>
  80. + server/kanji.plm
  81. server.kanji.input: sjis,jis
  82. server.kanji.output: sjis
  83. </PRE>
  84.  
  85. $B%5!<%P$+$i$NF~NO$,(Bsjis$B$@$C$?$H$-$K!"$=$l$r(Bjis$B$KJQ49$7$^$9!#(B
  86. $B$^$?%5!<%P$KBP$9$k=PNO$r(Bsjis$B$K$7$^$9!#(B
  87.  
  88. </BODY></HTML>
  89.