home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 5 / FREESOFT.BIN / mopterm / fapx405b / fapxmail.plp < prev    next >
Text File  |  1992-08-19  |  6KB  |  270 lines
  1. /************************************************************************
  2. *    未読メールの処理                        *
  3. *************************************************************************/
  4. /*    Down all text of one mail    */
  5. %AllText{
  6.     loop    ({
  7.         wait    (Wtime2*5,{AbortOff({\nホストの反応が鈍いよぉ～\n})},
  8.             {はバイナリーのため、表示出来ません◆\n},
  9.             {
  10.             BMcnt:=BMcnt+1;
  11.             im({Yes});
  12.             },
  13.             {返信＋削除  5:転送  6:転送＋削除  E:終了)\n：},
  14.             {
  15.             stoprec;
  16.             nowfile2(TEMP2|{_mopterm.eml},TEMP);
  17.             dispoff({Yes});
  18.             command({del }|TEMP2|{_mopterm.eml});
  19.             dispoff({No});
  20.             receive(TEMP2|{_mopterm.eml});
  21.             type({2\n});
  22.             im({Yes});
  23.             },
  24.             {続き (改行で表示　E:終了)\n＞},
  25.             {type({\n});im({Yes});},
  26.             {NAPLPSのデコーダーが必要です。準備 (1:OK  2:NG) \n：},
  27.             {
  28.             stoprec;
  29.             BMcnt:=BMcnt+1;
  30.             dispoff({Yes});
  31.             command({del }|TEMP2|{_mopterm.eml});
  32.             dispoff({No});
  33.             display({ＮＡＰＬＰＳデータのため受信できません\n});
  34.             receive(TEMP2|{_mopterm.eml});
  35.             type({2\n});
  36.             im({Yes});
  37.             },
  38.             {◆次頁はありません◆\n＞},
  39.             {im({No})},
  40.             {（1:受信　2:送信　3:送信簿　0:その他　E:終了）\n＞},
  41.             {im({No})}
  42.             );
  43.         });
  44.     stoprec;
  45.     dispoff({Yes});
  46.     command({del }|TEMP2|{_mopterm.eml});
  47.     dispoff({No});
  48.     };
  49.  
  50. %AllText2{
  51.     loop    ({
  52.         wait    (Wtime2*5,{AbortOff({\nホストの反応が鈍いよぉ～\n})},
  53.             {はバイナリーのため、表示出来ません◆\n},
  54.             {
  55.             BMcnt:=BMcnt+1;
  56.             im({Yes});
  57.             },
  58.             {返信＋削除  5:転送  6:転送＋削除  E:終了)\n：},
  59.             {
  60.             stoprec;
  61.             File:=@crefile(LOG2|{Nifmail},{eml});
  62.             receive(LOG2|{Nifmail\}|File);
  63.             type({2\n});
  64.             im({Yes});
  65.             },
  66.             {続き (改行で表示　E:終了)\n＞},
  67.             {type({\n});im({Yes});},
  68.             {NAPLPSのデコーダーが必要です。準備 (1:OK  2:NG) \n：},
  69.             {
  70.              stoprec;
  71.             BMcnt:=BMcnt+1;
  72.             dispoff({Yes});
  73.             command({del }|LOG2|{Nifmail\}|File);
  74.             dispoff({No});
  75.             display({ＮＡＰＬＰＳデータのため受信できません\n});
  76.             File:=@crefile(LOG2|{Nifmail},{eml});
  77.             receive(LOG2|{Nifmail\}|File);
  78.             type({2\n});
  79.             im({Yes});
  80.             },
  81.             {◆次頁はありません◆\n＞},
  82.             {im({No})},
  83.             {（1:受信　2:送信　3:送信簿　0:その他　E:終了）\n＞},
  84.             {im({No})}
  85.             );
  86.         });
  87.     stoprec;
  88.     dispoff({Yes});
  89.     command({del }|LOG2|{Nifmail\}|File);
  90.     dispoff({No});
  91.     };
  92.  
  93. %MailDown{
  94.     display({\nメールのダウンロードを開始します\n});
  95.     case    (COMPRESS={Yes}&&ARCHIVER<>{},
  96.         {Yes},
  97.         {
  98.         dispoff({Yes});
  99.         command({del }|TEMP2|{_MOPTERM.EML});
  100.         dispoff({No});
  101.         WAITCHAR(Wtime2,
  102.             {1:受信　2:送信　3:送信簿　0:その他　E:終了）\n＞},{});
  103.         type({READ NEW\n});
  104.         receive(TEMP2|{_MOPTERM.EML});
  105.         AllText;
  106.         dispoff({Yes});
  107.         command(ARCHIVER|{ a }|LOG2|{Nifmail.lzh }|TEMP2|{*.eml});
  108.         command({del }|TEMP2|{*.eml});
  109.         dispoff({No});
  110.         },
  111.         {No},
  112.         {
  113.         mkdir2(LOG2|{Nifmail});
  114.         WAITCHAR(Wtime2,
  115.             {1:受信　2:送信　3:送信簿　0:その他　E:終了）\n＞},{});
  116.         File:=@crefile(LOG2|{Nifmail},{eml});
  117.         receive(LOG2|{Nifmail\}|File);
  118.         type({READ NEW\n});
  119.         AllText2;
  120.         }
  121.         );
  122.     setcdir(CDIR);
  123.     };
  124.  
  125. %BMail2    {
  126.     [bmailno]
  127.     footnote({バイナリメールをダウンロードしています});
  128.     type(bmailno|{\n});
  129.     wait    (Wtime2,{AbortOff({ホストがおもいよ～\n})},
  130.         { (改行のみで終了)\n：},
  131.         {
  132.         case    (COMPRESS={Yes}&&ARCHIVER<>{},
  133.             {Yes},
  134.             {
  135.             dispoff({Yes});
  136.             command({del }|TEMP2|{_mopterm.bml});
  137.             dispoff({No});
  138.             type(TEMP2|{_MOPTERM.BML\n});
  139.             wait    (,,
  140.                 {2:しない)\n：},
  141.                 {
  142.                 dispoff({Yes});
  143.                 setcdir(TEMP);
  144.                 %file    @nowfile2(TEMP2|{_mopterm.bml},TEMP);
  145.                 dispoff({Yes});
  146.                 command(ARCHIVER|{ a }|LOG2|{Nifbmail.lzh }|
  147.                             TEMP2|file);
  148.                 command({del }|TEMP2|file);
  149.                 dispoff({No});
  150.                 }
  151.                 );
  152.             },
  153.             {No},
  154.             {
  155.             mkdir2(LOG2|{Nifbmail});
  156.             %file    @crefile(LOG2|{Nifbmail},{bml});
  157.             type(LOG2|{NIFBMAIL\}|file|{\n});
  158.             wait(,,{2:しない)\n：},);
  159.             }
  160.             );
  161.         setcdir(CDIR);
  162.         type({2\n});
  163.         WAITABORT(Wtime2);
  164.         MAIL;
  165.         }
  166.         );
  167.     };
  168.  
  169. %NMail2    {
  170.     [nmailno]
  171.     footnote({ＮＡＰＬＰＳメールをダウンロードしています});
  172.     type(nmailno|{\n});
  173.     wait    (Wtime2,{AbortOff({ホストがおもいよ～\n})},
  174.         { (改行のみで終了)\n：},
  175.         {
  176.         case    (COMPRESS={Yes}&&ARCHIVER<>{},
  177.             {Yes},
  178.             {
  179.             dispoff({Yes});
  180.             command({del }|TEMP2|{_mopterm.nap});
  181.             dispoff({No});
  182.             type(TEMP2|{_mopterm.nap\n});
  183.             wait    (,,
  184.                 {2:しない)\n：},
  185.                 {
  186.                 dispoff({Yes});
  187.                 setcdir(TEMP);
  188.                 %file    @nowfile2(TEMP2|{_mopterm.nap},TEMP);
  189.                 dispoff({Yes});
  190.                 command(ARCHIVER|{ a }|LOG2|{NAPMAIL.lzh }|
  191.                             TEMP2|file);
  192.                 command({del }|TEMP2|file);
  193.                 dispoff({No});
  194.                 }
  195.                 );
  196.             },
  197.             {No},
  198.             {
  199.             mkdir2(LOG2|{NAPMAIL});
  200.             %file    @crefile(LOG2|{NAPMAIL},{nap});
  201.             type(LOG2|{NAPMAIL\}|file|{\n});
  202.             wait(,,{2:しない)\n：},);
  203.             }
  204.             );
  205.         setcdir(CDIR);
  206.         type({2\n});
  207.         WAITABORT(Wtime2);
  208.         MAIL;
  209.         }
  210.         );
  211.     };
  212.  
  213. %BMail    {
  214.     type({DOWN PROT:BPL\n});
  215.     wait    (Wtime2,{AbortOff({\nホストの反応が鈍いよぉ～\n})},
  216.         {\n },
  217.         {
  218.         wait    (Wtime2,{AbortOff({\nホストの反応が鈍いよぉ～\n})},
  219.             {\n },
  220.             {
  221.             BMAILNO:=@getchar(@tail(@body(@laststr(80),,{\n}),
  222.                         {\n }),1,2);
  223.             Type:=@getchar(@tail(@body(@laststr(80),,{\n}),
  224.                         {\n }),29,1);
  225.             WAITABORT(Wtime2);
  226.             case(Type,{B},{BMail2(BMAILNO)},{N},{NMail2(BMAILNO)});
  227.             },
  228.             {\n*},
  229.             {
  230.             BMAILNO:=@getchar(@tail(@body(@laststr(80),,{\n}),
  231.                         {\n }),1,2);
  232.             Type:=@getchar(@tail(@body(@laststr(80),,{\n}),
  233.                         {\n }),29,1);
  234.             WAITABORT(Wtime2);
  235.             case(Type,{B},{BMail2(BMAILNO)},{N},{NMail2(BMAILNO)});
  236.             },
  237.             {\n＞},
  238.             {
  239.             BMAILNO:=@getchar(@tail(@body(@laststr(80),,{\n}),
  240.                         {\n }),1,2);
  241.             Type:=@getchar(@tail(@body(@laststr(80),,{\n}),
  242.                         {\n }),29,1);
  243.             case(Type,{B},{BMail2(BMAILNO)},{N},{NMail2(BMAILNO)});
  244.             }
  245.             );
  246.         },
  247.         {\n＞},
  248.         );
  249.     };
  250.  
  251. %MAIL    {
  252.     footnote({メールをダウンロードしています});
  253.     BMcnt:=0;
  254.     type({MCHK\n});
  255.     wait    (Wtime2,{AbortOff({\nホストの反応が鈍いよぉ～\n})},
  256.         {通届いています（未読分},
  257.         {WAITABORT(Wtime2);type({GO MAIL\n});MailDown;},
  258.         {\n＞},,
  259.         {\nHP>},
  260.         );
  261.     case    (BMcnt!=0,{Yes},{BMail});
  262.     };
  263.  
  264. var    BMcnt    [2];    /* 未読バイナリメール数        */
  265. var    BMAILNO    [2];    /* 未読バイナリメール番号    */
  266. var    File    [12];    /* ダウンロードファイル名    */
  267. var    Type    [1];    /* メールタイプ(Binary/Naplps)    */
  268.  
  269. MAIL;
  270.