home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 5 / FREESOFT.BIN / mopterm / fapx405b / fapxuset.plp < prev    next >
Text File  |  1992-08-19  |  13KB  |  491 lines
  1. /************************************************************************
  2. *    オートアップロード制御ファイル作成処理                *
  3. *************************************************************************/
  4.  
  5. %SETUP1    {
  6.     dispoff({Yes});
  7.     command({del }|TEMP2|{_mopupld.ctl});
  8.     dispoff({No});
  9.     loop    ({
  10.         footnote({アップロード先は？});
  11.         SNDMSG({erande_f.snd});
  12.         select    ({アップロード先は？},
  13.             Wtime4,{im({No})},
  14.             { テキストメール },{AUTOmail;im({Yes})},
  15.             { バイナリメール },{AUTObmail;im({Yes})},
  16.             {   フォーラム   },{AUTOforum;im({Yes})},
  17.             {データライブラリ},{AUTOdlib;im({Yes})},
  18.             {シスオペ宛メール},{AUTOsmail;im({Yes})},
  19.             { ホームパーティ },{AUTOhp;im({Yes})},
  20.             {  プロフィール  },{AUTOprof;im({Yes})},
  21.             {    終    了    },{im({No})}
  22.             )
  23.         });
  24.     display({\n\n});
  25.     command({type }|TEMP2|{_mopupld.ctl});
  26.     footnote({制御ファイルを確認してください});
  27.     SNDMSG({kaknin_f.snd});
  28.     select    ({制御ファイルを確認してください},
  29.         Wtime4,    {},
  30.         { Ｏ  Ｋ },{},
  31.         { Ｎ  Ｇ },{SETUP1},
  32.         { 中  止 },{upldcntl:={}}
  33.         );
  34.     };
  35.  
  36. /*    テキストメールアップ制御文作成    */
  37. %AUTOmail{
  38.     footnote({テキストメール送信制御文作成});
  39.     var    mail    [127];
  40.     var    title    [40];
  41.     var    date    [6];
  42.     var    file    [64];
  43.     var    ok    [2];
  44.     loop    ({
  45.         SNDMSG({nyuryo_f.snd});
  46.         %a    @plane(    {cテキストメール送信\n}|
  47.                 {t  送信先ＩＤ  /\n}|
  48.                 {t   タイトル   /xxxxxxxxxxxxxxxxxxxx}|
  49.                         {xxxxxxxxxxxxxxxxxxxx\n}|
  50.                 {t 送信日付指定 /xxxxxx\n}|
  51.                 {t 送信ファイル /\n}|
  52.                 {s              ファイル一覧/ 選択 \n}|
  53.                 {s              / 登録 / 取消 \n},
  54.                 mail,title,date,file);
  55.         
  56.         mail:=    @head(@getline(a,1,1),{\n});
  57.         title:=    @head(@getline(a,2,1),{\n});
  58.         date:=    @head(@getline(a,3,1),{\n});
  59.         file:=    @head(@getline(a,4,1),{\n});
  60.         %sel    @head(@getline(a,5,1),{\n});
  61.         ok:=    @head(@getline(a,6,1),{\n});
  62.         case    (sel==1,{Yes},{file:=@FILEsel2;im({Yes})});
  63.         });
  64.     case    (ok==1,{Yes},
  65.         {
  66.         %cntl    {mail=}|mail|{;}|    {title=}|title|{;}|
  67.             {date=}|date|{;}|    {file=}|file|{;};
  68.         write(TEMP2|{_mopupld.ctl},cntl|{\n});
  69.         });
  70.     };
  71.  
  72. /*    バイナリメールアップ制御文作成    */
  73. %AUTObmail{
  74.     footnote({バイナリメール送信制御文作成});
  75.     var    bmail    [127];
  76.     var    title    [40];
  77.     var    date    [6];
  78.     var    file    [64];
  79.     var    ok    [2];
  80.     loop    ({
  81.         SNDMSG({nyuryo_f.snd});
  82.         %a    @plane(    {cバイナリメール送信\n}|
  83.                 {t  送信先ＩＤ  /\n}|
  84.                 {t   タイトル   /xxxxxxxxxxxxxxxxxxxx}|
  85.                         {xxxxxxxxxxxxxxxxxxxx\n}|
  86.                 {t 送信日付指定 /xxxxxx\n}|
  87.                 {t 送信ファイル /\n}|
  88.                 {s              ファイル一覧/ 選択 \n}|
  89.                 {s              / 登録 / 取消 \n},
  90.                 bmail,title,date,file);
  91.         
  92.         bmail:=    @head(@getline(a,1,1),{\n});
  93.         title:=    @head(@getline(a,2,1),{\n});
  94.         date:=    @head(@getline(a,3,1),{\n});
  95.         file:=    @head(@getline(a,4,1),{\n});
  96.         %sel    @head(@getline(a,5,1),{\n});
  97.         ok:=    @head(@getline(a,6,1),{\n});
  98.         case    (sel==1,{Yes},{file:=@FILEsel1;im({Yes})});
  99.         });
  100.     case    (ok==1,{Yes},
  101.         {
  102.         %cntl    {bmail=}|bmail|{;}|    {title=}|title|{;}|
  103.             {date=}|date|{;}|    {file=}|file|{;};
  104.         write(TEMP2|{_mopupld.ctl},cntl|{\n});
  105.         });
  106.     };
  107.  
  108. /*    フォーラム書き込み制御文作成    */
  109. %AUTOforum{
  110.     footnote({フォーラムの会議室への発言制御文作成});
  111.     var    forum    [8];
  112.     var    mes    [2];
  113.     var    reply    [3];
  114.     var    title    [40];
  115.     var    file    [64];
  116.     var    ok    [2];
  117.     loop    ({
  118.         SNDMSG({nyuryo_f.snd});
  119.         %a    @plane(    {cフォーラムの会議室への発言\n}|
  120.                 {t フォーラム名 /xxxxxxxx\n}|
  121.                 {t  会議室番号  /xx\n}|
  122.                 {tコメント元番号/xxx\n}|
  123.                 {t   タイトル   /xxxxxxxxxxxxxxxxxxxx}|
  124.                         {xxxxxxxxxxxxxxxxxxxx\n}|
  125.                 {t 発言ファイル /\n}|
  126.                 {s              ファイル一覧/ 選択 \n}|
  127.                 {s              / 登録 / 取消 \n},
  128.                 forum,mes,reply,title,file);
  129.     
  130.         forum:=    @head(@getline(a,1,1),{\n});
  131.         mes:=    @head(@getline(a,2,1),{\n});
  132.         reply:=    @head(@getline(a,3,1),{\n});
  133.         title:=    @head(@getline(a,4,1),{\n});
  134.         file:=    @head(@getline(a,5,1),{\n});
  135.         %sel    @head(@getline(a,6,1),{\n});
  136.         ok:=    @head(@getline(a,7,1),{\n});
  137.         case    (sel==1,{Yes},{file:=@FILEsel2;im({Yes})});
  138.         });
  139.     case    (ok==1,{Yes},
  140.         {
  141.         %cntl    {forum=}|forum|{;}|    {mes=}|mes|{;}|
  142.             {reply=}|reply|{;}|    {title=}|title|{;}|
  143.             {file=}|file|{;};
  144.         write(TEMP2|{_mopupld.ctl},cntl|{\n});
  145.         });
  146.     };
  147.  
  148. /*    データライブラリ書き込み制御文作成    */
  149. %AUTOdlib{
  150.     footnote({データライブラリへの登録制御文作成});
  151.     var    forum    [8];
  152.     var    libno    [2];
  153.     var    dataname[40];
  154.     var    keyword    [80];
  155.     var    datafile[64];
  156.     var    docfile    [64];
  157.     var    ok    [2];
  158.     loop    ({
  159.         SNDMSG({nyuryo_f.snd});
  160.         %a    @plane(    {cデータライブラリへの登録\n}|
  161.                 {t フォーラム名 /xxxxxxxx\n}|
  162.                 {tライブラリ番号/xx\n}|
  163.                 {t   データ名   /xxxxxxxxxxxxxxxxxxxx}|
  164.                         {xxxxxxxxxxxxxxxxxxxx\n}|
  165.                 {t  キーワード  /\n}|
  166.                 {tデータファイル/\n}|
  167.                 {s              ファイル一覧/ 選択 \n}|
  168.                 {t 概要ファイル /\n}|
  169.                 {s              ファイル一覧/ 選択 \n}|
  170.                 {s              / 登録 / 取消 \n},
  171.                 forum,libno,dataname,keyword,datafile,docfile);
  172.         
  173.         forum:=        @head(@getline(a,1,1),{\n});
  174.         libno:=        @head(@getline(a,2,1),{\n});
  175.         dataname:=    @head(@getline(a,3,1),{\n});
  176.         keyword:=    @head(@getline(a,4,1),{\n});
  177.         datafile:=    @head(@getline(a,5,1),{\n});
  178.         %sel1        @head(@getline(a,6,1),{\n});
  179.         docfile:=    @head(@getline(a,7,1),{\n});
  180.         %sel2        @head(@getline(a,8,1),{\n});
  181.         ok:=        @head(@getline(a,9,1),{\n});
  182.         case    (sel1==1,{Yes},
  183.             {datafile:=@FILEsel1;
  184.             docfile:=@body(datafile,,{.})|{.ggg};im({Yes})});
  185.         case    (sel2==1,{Yes},{docfile:=@FILEsel2;im({Yes})});
  186.         });
  187.     case    (ok==1,{Yes},
  188.         {
  189.         %cntl    {forum=}|forum|{;}|        {libno=}|libno|{;}|
  190.             {dataname=}|dataname|{;}|    {keyword=}|keyword|{;}|
  191.             {datafile=}|datafile|{;}|    {docfile=}|docfile|{;};
  192.         write(TEMP2|{_mopupld.ctl},cntl|{\n});
  193.         });
  194.     };
  195.  
  196. /*    シスオペ宛メールアップ制御文作成    */
  197. %AUTOsmail{
  198.     footnote({シスオペ宛メール送信制御文作成});
  199.     var    forum    [8];
  200.     var    title    [40];
  201.     var    file    [64];
  202.     var    ok    [2];
  203.     loop    ({
  204.         SNDMSG({nyuryo_f.snd});
  205.         %a    @plane(    {cシスオペ宛メール送信\n}|
  206.                 {t フォーラム名 /xxxxxxxx\n}|
  207.                 {t   タイトル   /xxxxxxxxxxxxxxxxxxxx}|
  208.                         {xxxxxxxxxxxxxxxxxxxx\n}|
  209.                 {t 送信ファイル /\n}|
  210.                 {s              ファイル一覧/ 選択 \n}|
  211.                 {s              / 登録 / 取消 \n},
  212.                 forum,title,file);
  213.         
  214.         forum:=    @head(@getline(a,1,1),{\n});
  215.         title:=    @head(@getline(a,2,1),{\n});
  216.         file:=    @head(@getline(a,3,1),{\n});
  217.         %sel    @head(@getline(a,4,1),{\n});
  218.         %ok    @head(@getline(a,5,1),{\n});
  219.         case    (sel==1,{Yes},{file:=@FILEsel2;im({Yes})});
  220.         });
  221.     case    (ok==1,{Yes},
  222.         {
  223.         %cntl    {sysmail=}|forum|{;}|    {title=}|title|{;}|
  224.             {file=}|file|{;};
  225.         write(TEMP2|{_mopupld.ctl},cntl|{\n});
  226.         });
  227.     };
  228.  
  229. /*    ホームパーティ書き込み制御文作成    */
  230. %AUTOhp    {
  231.     footnote({ホームパーティへの発言制御文作成});
  232.     var    hp    [8];
  233.     var    pass    [8];
  234.     var    title    [40];
  235.     var    file    [64];
  236.     var    ok    [2];
  237.     loop    ({
  238.         SNDMSG({nyuryo_f.snd});
  239.         %a    @plane(    {cホームパーティへの発言\n}|
  240.                 {t  ＨＰのＩＤ  /xxxxxxxx\n}|
  241.                 {t  パスワード  /xxxxxxxx\n}|
  242.                 {t   タイトル   /xxxxxxxxxxxxxxxxxxxx}|
  243.                         {xxxxxxxxxxxxxxxxxxxx\n}|
  244.                 {t 発言ファイル /\n}|
  245.                 {s              ファイル一覧/ 選択 \n}|
  246.                 {s              / 登録 / 取消 \n},
  247.                 hp,pass,title,file);
  248.         
  249.         hp:=    @head(@getline(a,1,1),{\n});
  250.         pass:=    @head(@getline(a,2,1),{\n});
  251.         title:=    @head(@getline(a,3,1),{\n});
  252.         file:=    @head(@getline(a,4,1),{\n});
  253.         %sel    @head(@getline(a,5,1),{\n});
  254.         ok:=    @head(@getline(a,6,1),{\n});
  255.         case    (sel==1,{Yes},{file:=@FILEsel2;im({Yes})});
  256.         });
  257.     case    (ok==1,{Yes},
  258.         {
  259.         %cntl    {hp=}|hp|{;}|        {pass=}|pass|{;}|
  260.             {title=}|title|{;}|    {file=}|file|{;};
  261.         write(TEMP2|{_mopupld.ctl},cntl|{\n});
  262.         });
  263.     };
  264.  
  265. /*    プロフィール情報書き込み制御文作成    */
  266. %AUTOprof{
  267.     footnote({プロフィール情報登録制御文作成});
  268.     var    file    [64];
  269.     var    ok    [2];
  270.     loop    ({
  271.         %a    @plane(    {cプロフィール情報登録\n}|
  272.                 {t 登録ファイル /\n}|
  273.                 {s              ファイル一覧/ 選択 \n}|
  274.                 {s              / 登録 / 取消 \n},
  275.                 file);
  276.         
  277.         file:=    @head(@getline(a,1,1),{\n});
  278.         %sel    @head(@getline(a,2,1),{\n});
  279.         ok:=    @head(@getline(a,3,1),{\n});
  280.         case    (sel==1,{Yes},{file:=@FILEsel2;im({Yes})});
  281.         });
  282.     case    (ok==1,{Yes},
  283.         {
  284.         %cntl    {profile=}|{;}|        {file=}|file|{;};
  285.         write(TEMP2|{_mopupld.ctl},cntl|{\n});
  286.         });
  287.     };
  288.  
  289. /*    アップロードファイル指定処理    */
  290. %FILEsel1{
  291.     var    upfile    [64];
  292.     SNDMSG({erande_f.snd});
  293.     upfile:=@filesel;
  294.     case    (upfile,
  295.         {},    {im({})},
  296.         ,    {case    (@nochar(@getcdir)=3,
  297.                 {Yes},    {upfile:=@getcdir|upfile},
  298.                 {No},    {upfile:=@getcdir|{\}|upfile}
  299.                 )
  300.             }
  301.         );
  302.     im(upfile);
  303.     };
  304.  
  305. /*    アップロードファイル指定処理(メモ指定可能)    */
  306. %FILEsel2{
  307.     var    upfile    [64];
  308.     SNDMSG({erande_f.snd});
  309.     upfile:=@filesel;
  310.     case    (upfile,
  311.         {},    {im({})},
  312.         {memo1},{im(upfile)},
  313.         {memo2},{im(upfile)},
  314.         {memo3},{im(upfile)},
  315.         {memo4},{im(upfile)},
  316.         {memo5},{im(upfile)},
  317.         {memo6},{im(upfile)},
  318.         {memo7},{im(upfile)},
  319.         {memo8},{im(upfile)},
  320.         {memo9},{im(upfile)},
  321.         ,    {case    (@nochar(@getcdir)=3,
  322.                 {Yes},    {upfile:=@getcdir|upfile},
  323.                 {No},    {upfile:=@getcdir|{\}|upfile}
  324.                 )
  325.             }
  326.         );
  327.     im(upfile);
  328.     };
  329.  
  330. /************************************************************************
  331. *    アップロード制御ファイルを指定する                *
  332. *************************************************************************/
  333. %SETCNTL1{
  334.     var    cntl    [256];
  335.     upldcntl:={};
  336.     footnote({制御ファイルの種類は？});
  337.     SNDMSG({erande_f.snd});
  338.     select    ({制御ファイルの種類は？},
  339.         Wtime4,,
  340.         {  メ  モ  },
  341.         {case    (@mlast,
  342.             0,
  343.             {
  344.             footnote({メモがありません　次の処理は？});
  345.             SNDMSG({erande_f.snd});
  346.             select    ({メモがありません},
  347.                 Wtime4,,
  348.                 {再指定},SETCNTL,
  349.                 {中  止},
  350.                 )
  351.             },
  352.             1,
  353.             {upldcntl:={memo1}},
  354.             2,
  355.             {
  356.             footnote({メモ番号は？});
  357.             SNDMSG({erande_f.snd});
  358.             select    ({メモ番号は？},
  359.                 Wtime4,,
  360.                 {メモ１},{upldcntl:={memo1}},
  361.                 {メモ２},{upldcntl:={memo2}}
  362.                 )
  363.             },
  364.             3,
  365.             {
  366.             footnote({メモ番号は？});
  367.             SNDMSG({erande_f.snd});
  368.             select    ({メモ番号は？},
  369.                 Wtime4,,
  370.                 {メモ１},{upldcntl:={memo1}},
  371.                 {メモ２},{upldcntl:={memo2}},
  372.                 {メモ３},{upldcntl:={memo3}}
  373.                 )
  374.             },
  375.             4,
  376.             {
  377.             footnote({メモ番号は？});
  378.             SNDMSG({erande_f.snd});
  379.             select    ({メモ番号は？},
  380.                 Wtime4,,
  381.                 {メモ１},{upldcntl:={memo1}},
  382.                 {メモ２},{upldcntl:={memo2}},
  383.                 {メモ３},{upldcntl:={memo3}},
  384.                 {メモ４},{upldcntl:={memo4}}
  385.                 )
  386.             },
  387.             5,
  388.             {
  389.             footnote({メモ番号は？});
  390.             SNDMSG({erande_f.snd});
  391.             select    ({メモ番号は？},
  392.                 Wtime4,,
  393.                 {メモ１},{upldcntl:={memo1}},
  394.                 {メモ２},{upldcntl:={memo2}},
  395.                 {メモ３},{upldcntl:={memo3}},
  396.                 {メモ４},{upldcntl:={memo4}},
  397.                 {メモ５},{upldcntl:={memo5}}
  398.                 )
  399.             },
  400.             6,
  401.             {
  402.             footnote({メモ番号は？});
  403.             SNDMSG({erande_f.snd});
  404.             select    ({メモ番号は？},
  405.                 Wtime4,,
  406.                 {メモ１},{upldcntl:={memo1}},
  407.                 {メモ２},{upldcntl:={memo2}},
  408.                 {メモ３},{upldcntl:={memo3}},
  409.                 {メモ４},{upldcntl:={memo4}},
  410.                 {メモ５},{upldcntl:={memo5}},
  411.                 {メモ６},{upldcntl:={memo6}}
  412.                 )
  413.             },
  414.             7,
  415.             {
  416.             footnote({メモ番号は？});
  417.             SNDMSG({erande_f.snd});
  418.             select    ({メモ番号は？},
  419.                 Wtime4,,
  420.                 {メモ１},{upldcntl:={memo1}},
  421.                 {メモ２},{upldcntl:={memo2}},
  422.                 {メモ３},{upldcntl:={memo3}},
  423.                 {メモ４},{upldcntl:={memo4}},
  424.                 {メモ５},{upldcntl:={memo5}},
  425.                 {メモ６},{upldcntl:={memo6}},
  426.                 {メモ７},{upldcntl:={memo7}}
  427.                 )
  428.             },
  429.             8,
  430.             {
  431.             footnote({メモ番号は？});
  432.             SNDMSG({erande_f.snd});
  433.             select    ({メモ番号は？},
  434.                 Wtime4,,
  435.                 {メモ１},{upldcntl:={memo1}},
  436.                 {メモ２},{upldcntl:={memo2}},
  437.                 {メモ３},{upldcntl:={memo3}},
  438.                 {メモ４},{upldcntl:={memo4}},
  439.                 {メモ５},{upldcntl:={memo5}},
  440.                 {メモ６},{upldcntl:={memo6}},
  441.                 {メモ７},{upldcntl:={memo7}},
  442.                 {メモ８},{upldcntl:={memo8}}
  443.                 )
  444.             },
  445.             9,
  446.             {
  447.             footnote({メモ番号は？});
  448.             SNDMSG({erande_f.snd});
  449.             select    ({メモ番号は？},
  450.                 Wtime4,,
  451.                 {メモ１},{upldcntl:={memo1}},
  452.                 {メモ２},{upldcntl:={memo2}},
  453.                 {メモ３},{upldcntl:={memo3}},
  454.                 {メモ４},{upldcntl:={memo4}},
  455.                 {メモ５},{upldcntl:={memo5}},
  456.                 {メモ６},{upldcntl:={memo6}},
  457.                 {メモ７},{upldcntl:={memo7}},
  458.                 {メモ８},{upldcntl:={memo8}},
  459.                 {メモ９},{upldcntl:={memo9}}
  460.                 )
  461.             }
  462.             );
  463.         },
  464.         { ファイル },
  465.         {
  466.         footnote({アップロード制御ファイルは？});
  467.         SNDMSG({erande_f.snd});
  468.         upldcntl:=@filesel;
  469.         case    (upldcntl={},
  470.             {No},
  471.             {
  472.             case    (@nochar(@getcdir)==3,
  473.                 {Yes},        /* root dir */
  474.                 {upldcntl:=@getcdir|upldcntl},
  475.                 {No},
  476.                 {upldcntl:=@getcdir|{\}|upldcntl}
  477.                 )
  478.             },
  479.             {Yes},
  480.             );
  481.         },
  482.         { 新規作成 },
  483.         {
  484.         SETUP1;
  485.         upldcntl:=TEMP2|{_mopupld.ctl};
  486.         }
  487.         );
  488.     };
  489.  
  490. SETCNTL1;
  491.