home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1998 September / PCO_0998.ISO / filesbbs / dos / sbbs230b.exe / EXEC.LZH / WIPSHELL.SRC < prev    next >
Encoding:
Text File  |  1995-09-27  |  5.4 KB  |  376 lines
  1. # WIPSHELL.SRC
  2.  
  3. # WIP Windows Interface Protocol {tm} Durand Communications Networks, Inc.
  4. # Command Shell for Synchronet Multinode BBS Software
  5. # Copyright 1995 Digital Dynamics
  6.  
  7. !include sbbsdefs.inc
  8.  
  9. compare_user_misc UM_COLDKEYS
  10. if_true
  11.     toggle_user_misc UM_COLDKEYS
  12.     end_if
  13.  
  14. str tmp
  15.  
  16. cmd_home
  17. clear_abort
  18. cls
  19. printfile_remote "%zMENU\WIPMAIN.WIP"
  20. node_action NODE_MAIN
  21. inc_main_cmds
  22. sync
  23. print_local "[WIP] Main Menu: "
  24.  
  25. getkey
  26. logkey_comma
  27.  
  28. cmdkey C
  29.     print_local "Chat\r\n"
  30.         chat_section
  31.         end_cmd
  32.  
  33. cmdkey D
  34.     print_local "Default Settings\r\n"
  35.         user_defaults
  36.         end_cmd
  37.  
  38. cmdkey E
  39.     print_local "E-mail\r\n"
  40.     cmd_home
  41.     clear_abort
  42.     cls
  43.     printfile_remote "%zMENU\E-MAIL.WIP"
  44.     sync
  45.     print_local "\r\n[WIP] E-mail Menu: "
  46.     getkey
  47.     logkey
  48.     cmdkey S
  49.         print_local "Send\r\n"
  50.         call sendmail
  51.         end_cmd
  52.     cmdkey F
  53.         print_local "Feedback\r\n"
  54.         setstr "1"
  55.         mail_send
  56.         end_cmd
  57.     cmdkey R
  58.         print_local "Read\r\n"
  59.         mail_read
  60.         end_cmd
  61.     cmdkey K
  62.         print_local "Kill\r\n"
  63.         mail_read_sent
  64.         end_cmd
  65.     cmdkey N
  66.         print_local "NetMail\r\n"
  67.         call sendnetmail
  68.         end_cmd
  69.     cmdkey Q
  70.         print_local "Quit\r\n"
  71.         cmd_pop
  72.         end_cmd
  73.     end_cmd
  74.  
  75. cmdkey I
  76.     print_local "Info\r\n"
  77.     cmd_home
  78.     clear_abort
  79.     cls
  80.     printfile_remote "%zMENU\INFO.WIP"
  81.     sync
  82.     print_local "\r\n[WIP] Info Menu: "
  83.     getkey
  84.     logkey
  85.     cmdkey T
  86.         print_local "Text Files\r\n"
  87.         text_file_section
  88.         end_cmd
  89.     cmdkey I
  90.         print_local "System\r\n"
  91.         info_system
  92.         end_cmd
  93.     cmdkey Y
  94.         print_local "Your Stats\r\n"
  95.         info_user
  96.         end_cmd
  97.     cmdkey L
  98.         print_local "Callers\r\n"
  99.         userlist_logons
  100.         end_cmd
  101.     cmdkey U
  102.         print_local "User List\r\n"
  103.         userlist_all
  104.                 end_cmd
  105.     cmdkey Q
  106.         print_local "Quit\r\n"
  107.         cmd_pop
  108.         end_cmd
  109.     end_cmd
  110.  
  111. cmdkey M
  112.     print_local "Messages\r\n"
  113.     cmd_home
  114.     clear_abort
  115.     cls
  116.     printfile_remote "%zMENU\MSGS.WIP"
  117.     sync
  118.     print_local "\r\n[WIP] Messages Menu: "
  119.     getkey
  120.     logkey
  121.     cmdkey C
  122.         print_local "Configure\r\n"
  123.         call msg_cfg
  124.         end_cmd
  125.     cmdkey R
  126.         print_local "Read\r\n"
  127.         msg_select_area
  128.         if_true
  129.             msg_read
  130.             end_if
  131.                 end_cmd
  132.     cmdkey N
  133.         print_local "New Scan\r\n"
  134.         msg_new_scan_all
  135.                 end_cmd
  136.     cmdkey P
  137.         print_local "Post\r\n"
  138.         msg_select_area
  139.         if_true
  140.             msg_post
  141.             end_if
  142.         end_cmd
  143.     cmdkey Q
  144.         print_local "QWK\r\n"
  145.         msg_qwk
  146.         end_cmd
  147.     cmdkey X
  148.         print_local "Quit\r\n"
  149.         cmd_pop
  150.         end_cmd
  151.     end_cmd
  152.  
  153.  
  154. cmdkey O
  155.     print_local "Logoff\r\n"
  156.     call logoffbbs
  157.     end_cmd
  158.  
  159. cmdkey S
  160.     print_local "Match Maker\r\n"
  161.     exec_xtrn SMM
  162.     end_cmd
  163.  
  164. cmdkey X
  165.     print_local "Doors\r\n"
  166.         xtrn_section
  167.         end_cmd
  168.  
  169. cmdkey F
  170.     call file_transfers
  171.     end_cmd
  172.  
  173. end_cmd
  174.  
  175. # End of main menu loop
  176.  
  177. :sendmail
  178. print "\r\nbhSend E-mail to (User name or number): n"
  179. getname 25
  180. compare_str ""
  181. if_true
  182.     return
  183.     end_if
  184. compare_str "SYSOP"
  185. if_true
  186.     setstr "1"
  187.     end_if
  188. no_yes "\r\nAttach a file"
  189. if_false
  190.     mail_send_file
  191. else
  192.     mail_send
  193.     end_if
  194. return
  195.  
  196. :sendnetmail
  197. no_yes "\r\nAttach a file"
  198. if_false
  199.     mail_send_netfile
  200. else
  201.     mail_send_netmail
  202.     end_if
  203. return
  204.  
  205. :msg_cfg
  206. cmd_home
  207. clear_abort
  208. cls
  209. printfile "%zMENU\MSGCFG.WIP"
  210. sync
  211. print_local "\r\n[WIP] Message Scan Config: "
  212. getkey
  213. logkey
  214. cmdkey N
  215.     print_local "New Scan\r\n"
  216.     msg_new_scan_cfg
  217.     end_cmd
  218.  
  219. cmdkey P
  220.     print_local "Pointers\r\n"
  221.     msg_ptrs_cfg
  222.     end_cmd
  223.  
  224. cmdkey I
  225.     print_local "Re-init\r\n"
  226.     msg_ptrs_reinit
  227.     end_cmd
  228. cmd_pop
  229. return
  230.  
  231. :file_transfers
  232.  
  233. cmd_home
  234. clear_abort
  235. cls
  236. printfile_remote "%zMENU\WIPFILE.WIP"
  237. node_action NODE_XFER
  238. inc_file_cmds
  239. sync
  240. print_local "[WIP] File Menu: "
  241.  
  242. getkey
  243. logkey_comma
  244.  
  245. cmdkey B
  246.     print_local "Batch\r\n"
  247.     file_batch_section
  248.     end_cmd
  249.  
  250. cmdkey C
  251.     print_local "Config\r\n"
  252.     menu XFERCFG
  253.     async
  254.     print "\r\nyhConfig: n"
  255.     getcmd ?QBEP\r
  256.     logkey
  257.  
  258.     cmdkey P
  259.         file_ptrs_cfg
  260.         end_cmd
  261.  
  262.     cmdkey B
  263.         toggle_user_misc UM_BATCHFLAG
  264.         end_cmd
  265.  
  266.     cmdkey E
  267.         toggle_user_misc UM_EXTDESC
  268.                 end_cmd
  269.         end_cmd
  270.  
  271.  
  272. cmdkey D
  273.     print_local "Download\r\n"
  274.     file_download_batch
  275.     if_true
  276.         end_cmd
  277.         end_if
  278.     getfilespec
  279.     if_true
  280.         file_download
  281.         end_if
  282.         end_cmd
  283.  
  284. cmdkey E
  285.     print_local "File Info\r\n"
  286.     getfilespec
  287.     if_true
  288.         file_list_extended
  289.         end_if
  290.         end_cmd
  291.  
  292. cmdkey F
  293.     print_local "Find Text\r\n"
  294.     file_find_text_all
  295.     end_cmd
  296.  
  297. cmdkey L
  298.     print_local "List Files\r\n"
  299.     file_select_area
  300.     if_false
  301.         end_cmd
  302.         end_if
  303.     setstr "*.*"
  304.     file_list
  305.         end_cmd
  306.  
  307. cmdkey N
  308.     print_local "New Files\r\n"
  309.     date_str tmp _ns_time
  310.     sprintf str "bhUse c%sb for new file scan date/time" tmp
  311.     yes_no "%s"
  312.     if_false
  313.         file_ptrs_cfg
  314.         if_false
  315.             end_cmd
  316.             end_if
  317.         end_if
  318.     file_new_scan_all
  319.     end_cmd
  320.  
  321. cmdkey R
  322.     print_local "Remove Files\r\n"
  323.     getfilespec
  324.     if_true
  325.         file_remove
  326.         end_if
  327.         end_cmd
  328.  
  329. cmdkey S
  330.     print_local "Search for Filename\r\n"
  331.     file_find_name_all
  332.         end_cmd
  333.  
  334. cmdkey U
  335.     print_local "Upload\r\n"
  336.     no_yes "Upload file to Sysop only"
  337.     if_false
  338.         file_upload_user
  339.         end_cmd
  340.         end_if
  341.     file_select_area
  342.     if_false
  343.         end_cmd
  344.         end_if
  345.     chkfile "..\text\menu\upload.*"
  346.     if_true
  347.         menu upload
  348.                 end_if
  349.     file_upload
  350.         end_cmd
  351.  
  352. cmdkey V
  353.     print_local "View file\r\n"
  354.     getfilespec
  355.     if_true
  356.         file_view
  357.         end_if
  358.         end_cmd
  359. cmdpop
  360. return
  361.  
  362.  
  363.  
  364. :logoffbbs
  365. file_download_batch
  366. if_false
  367.     logoff
  368.     end_if
  369. return
  370.  
  371.  
  372.  
  373. # End of WIPSHELL.SRC
  374.  
  375.  
  376.