home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / plum / 2.x / plum2_15_2.lzh / module / server / kanji.plm
Text File  |  1997-12-13  |  2KB  |  82 lines
  1. # <!-- -*- perl -*-
  2. # $Id: kanji.plm,v 2.2 1997/12/13 13:45:25 hasegawa Exp $
  3. # copyright (c)1997 pupu_j <hasegawa@agusa.nuie.nagoya-u.ac.jp>
  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(/\,/, $kanji)) {
  13.       if ("\L$code\E" eq 'euc') {
  14.         $line = &'euc_jis($line);
  15.       } elsif ("\L$code\E" eq 'jis') {
  16.         $line = &'jis_jis($line);
  17.       } elsif ("\L$code\E" 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);
  28.   $kanji = &'property($'userno[$serverno], 'output');
  29.   if ($kanji) {
  30.     if ("\L$kanji\E" eq 'euc') {
  31.       $line = &'jis_euc($line);
  32.     } elsif ("\L$kanji\E" eq 'jis') {
  33.       $line = &'jis_jis($line);
  34.     } elsif ("\L$kanji\E" eq 'sjis') {
  35.       $line = &'jis_sjis($line);
  36.     }
  37.   }
  38.   return $line;
  39. }
  40.  
  41. __END__
  42. --><!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  43. <HTML><HEAD><TITLE> server/kanji.plm </TITLE></HEAD><BODY>
  44.  
  45. $B%*%s%i%$%s%I%-%e%a%s%H(B
  46.  
  47.  
  48. <HR><H3> $BL>A0(B </H3>
  49.  
  50. server/kanji.plm - $B%5!<%P$H$NF~=PNO$G4A;z%3!<%I$rJQ49$9$k(B
  51.  
  52.  
  53. <HR><H3> $B@bL@(B </H3>
  54.  
  55. $B%5!<%P$+$i(BJIS$B0J30$GF~NO$5$l$?4A;z%3!<%I$r(BJIS$B$KJQ49$7$^$9!#(B
  56. $B$^$?%5!<%P$KBP$7$F=PNO$9$k4A;z%3!<%I$r;XDj$7$?$b$N$K$7$^$9!#(B
  57.  
  58.  
  59. <HR><H3> $B%W%m%Q%F%#(B </H3>
  60.  
  61. <DL>
  62. <DT> server.kanji.input* ({euc|jis|sjis})
  63. <DD>    $B%5!<%P$+$i$NF~NO$,;XDj$7$?4A;z%3!<%I$N$b$N$G$"$l$P!"(B
  64.         $B$=$l$r(BJIS$B$KJQ49$7$^$9!#(BEUC$B$H(BSJIS$B$OF1;~$K;XDj$G$-$^$;$s!#(B
  65. <DT> server.kanji.output {euc|jis|sjis}
  66. <DD>    $B%5!<%P$K=PNO$9$k4A;z%3!<%I$r;XDj$7$?$b$N$K$7$^$9!#(B
  67. </DL>
  68.  
  69.  
  70. <HR><H3> $B@_DjNc(B </H3>
  71.  
  72. <PRE>
  73. + server/kanji.plm
  74. server.kanji.input: sjis,jis
  75. server.kanji.output: sjis
  76. </PRE>
  77.  
  78. $B%5!<%P$+$i$NF~NO$,(BSJIS$B$@$C$?$H$-$K!"$=$l$r(BJIS$B$KJQ49$7$^$9!#(B
  79. $B$^$?%5!<%P$KBP$9$k=PNO$r(BSJIS$B$K$7$^$9!#(B
  80.  
  81. </BODY></HTML>
  82.