home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / networking / amitcp / cp3.lha / ControlPanel / CP_MAINPROG / controlpanel.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-02-03  |  8.1 KB  |  280 lines
  1. /* $VER ControlPanel 3.00 (8/1/95)
  2. ** $Filename: ControlPanel $
  3. ** $Date: 8.1.95
  4. ** $Creation: 16.12.94
  5. **
  6. ** Arexx Version Of AmiTCP_ControlPanel
  7. **
  8. ** Users rexxreqtools.library
  9. **
  10. ** (C) Copyright 1994-1995 Martin Carl Hunt
  11. **
  12. */
  13.  
  14. call addlib("libs:rexxarplib.library", 0, -30, 0)
  15. call addlib("libs:rexxsupport.library", 0, -30, 0)
  16. call addlib("libs:rexxreqtools.library", 0, -30, 0)
  17. Address Command
  18. Call Initialisation()
  19.  
  20.  
  21. /* If env:user doesn't exist call requester */
  22. if ~exists("env:user") then call StartAmiTCP ()
  23.  
  24. /* Main Control Panel Loop */
  25.  
  26. call open(handle, "env:realname", r)
  27. Relnme = ReadLn(handle)
  28. call close(handle)
  29. call open(handle, "env:user", r)
  30. USR = ReadLn(handle)
  31. call close(handle)
  32.  
  33. do until quit_controlpanel
  34.  
  35. reqtitle = "AmiTCP Control Panel - Main Menu    Current
  36.  User:" || usr || "    Real Name:" || relnme
  37.  
  38.    MainMenu = rtezrequest("What do you want to do?", ,
  39.       "_Start|S_top|_Connect|_Disconnect|Change _User|_Applications|A_uto|_Quit", ,
  40.       reqtitle, "rtez_flags = ezreqf_centertext",
  41.       "rt_topoffset = 12" "rt_reqpos = reqpos_topleftscr" "rtez_defaultresponse = 6")
  42.  
  43.    if MainMenu == 0 then quit_controlpanel = 1
  44.    if MainMenu == 1 then call Startnet()
  45.    if MainMenu == 2 then call Stopnet()
  46.    if MainMenu == 3 then call LinkUp()
  47.    if MainMenu == 4 then call LinkDown()
  48.    if MainMenu == 5 then call ChangeUser()
  49.    if MainMenu == 6 then call Applications()
  50.    if mainmenu == 7 then run auto.exe
  51.  
  52. end
  53. delay(250)
  54. "delete t:cp-run#? quiet"
  55. exit
  56.  
  57. Initialisation:
  58. Amitcp = getenv(amitcpdir)
  59. runno = 0
  60. NL = '0a'x
  61. quit_controlpanel = 0
  62. if screenlace() == 0 then WBSCREENHEIGHT = 250
  63. if screenlace() == 1 then WBSCREENHEIGHT = 512
  64.  
  65. RETURN
  66.  
  67.  
  68.  
  69. StartAmiTCP:
  70. choice = rtezrequest( "What do you want to do?", " _Start Amitcp   | _Quit    ", "AmiTCP Control Panel - Startup", "rtez_flags = ezreqf_centertext" "rt_reqpos = reqpos_centerscr")
  71. if choice == 1 then
  72. do
  73.   call Startnet()
  74.   "copy amitcp:env/#? env:"
  75. end
  76. else exit
  77. RETURN
  78.  
  79. Startnet:
  80. Start = amitcp || "/bin/startnet"
  81. address command start
  82. RETURN
  83.  
  84. Stopnet:
  85. "stopnet"
  86. RETURN
  87.  
  88. LinkUp:
  89. LinkMenu=""
  90. if ~exists("Amitcp:bin/plink") then
  91. do
  92. LinkMenu = rtezrequest("Do You Want To Collect News" , "_Yes |_No |_Cancel", "AmiTCP Control Panel - Choose News Reader", "rtez_flags = ezreqf_centertext" "rt_reqpos = reqpos_centerscr")
  93.   if linkmenu == 1 then address command "run link up news"
  94.   if linkmenu == 2 then address command "run Link Up"
  95. end
  96. else
  97. do
  98.   LinkMenu = rtgetstring(" ", "Enter FTP Batch File Name If Appropriate" ,"AmiTCP Control Panel - Connect", ,
  99.         " _News | _Forget News | News and then _Disconnect | _Cancel ", "rtez_flags = ezreqf_centertext" "rt_reqpos = reqpos_centerscr" ,
  100.         , LM_result)
  101.  
  102.   plinkparams = ""
  103.   if LM_result ~= 0 then
  104.   do
  105.      if LM_Result == 1 then PlinkParams = "Up NEWS Savenew"
  106.      if LM_Result == 2 then PlinkParams = "Up"
  107.      if LM_Result == 3 then PlinkParams = "Up Autonews Savenew"
  108.      if LinkMenu ~= "" then
  109.      do
  110.         if exists(word(linkmenu,1)) then
  111.         do
  112.           PlinkParam = Plinkparams || " Batch " || LinkMenu
  113.         end
  114.         else
  115.         do
  116.            "ED " linkmenu
  117.            PlinkParam = Plinkparams || " Batch " || LinkMenu
  118.         end
  119.      end
  120.      if linkmenu = "" then plinkparam = plinkparams
  121.      "run >nil: PLINK" plinkparam
  122.   end
  123.   LM_result = "LM_result"
  124. end
  125. RETURN
  126.  
  127.  
  128. LinkDown:
  129. if exists("amitcp:bin/plink") then "run >nil: plink down"
  130. else "run >nil: link down"
  131. RETURN
  132.  
  133. ChangeUser:
  134. name_correct = 0
  135. do until Name_Correct
  136. call open(handle, "env:realname", a)
  137. call seek(handle, 0, "B")
  138. Env_Realname = ReadLn(handle)
  139. RealName = rtgetstring(Env_Realname, "Enter Your Real Name           " || NL || ,
  140.            "i.e. Fred Bloggs               ", "AmiTCP Control Panel - Change User", ,
  141.            "_Use |_Save |_Cancel", "rtez_flags = ezreqf_centertext" "rt_reqpos = reqpos_centerscr", CU_RESULT)
  142. if CU_Result == 0 then RealName = ENV_Realname
  143. if CU_result ~== 0 then
  144. do
  145.    call seek(handle, 0, "B")
  146.    call Writeln(handle, RealName)
  147. end
  148. if CU_result == 2 then
  149. do
  150.    call open(handle2, "Amitcp:env/RealName", w)
  151.    call Writeln(handle2, Realname)
  152.    call close (handle2)
  153. end
  154. call close (handle)
  155.  
  156. call open(handle, "env:User", a)
  157. call seek(handle, 0, "B")
  158. Env_User = ReadLn(handle)
  159. CU_Result = "CU_RESULT"
  160. User = rtgetstring(Env_User, "Enter Your User Name           " || NL || ,
  161.       "i.e. Fred                      ", "AmiTCP Control Panel - Change User", ,
  162.       "_Use |_Save |_Cancel", "rtez_flags = ezreqf_centertext" "rt_reqpos = reqpos_centerscr", Cu_result)
  163. if CU_result == 0 then User = Env_user
  164. if CU_result ~== 0 then
  165. do
  166.   call seek(handle, 0, "B")
  167.   call Writeln(handle, User)
  168. end
  169.  
  170. if CU_result == 2 then
  171. do
  172.    call open(handle2, "amitcp:env/User", w)
  173.    call Writeln(handle2, User)
  174.    call close (handle2)
  175. end
  176.  
  177. Call Close(handle)
  178.  
  179. Name_Correct = rtezrequest("Your REAL NAME is " || RealName || NL ||,
  180.                           "Your USER NAME is " || User || NL || NL ||,
  181.                           "IS This Correct? ", "_Yes |_No", "AmiTCP Control Panel - Change User", ,
  182.                           "rtez_flags = ezreqf_centertext" "rt_reqpos = reqpos_centerscr")
  183. CU_RESULT = "CU_RESULT"
  184. end
  185.  
  186. relnme = RealName
  187. USR = User
  188.  
  189. RETURN
  190.  
  191. Applications:
  192. do until Cancel = 0
  193. reqtitle = "AmiTCP Control Panel - Applications Menu    Current User:" || usr ||"    Real Name:" || relnme
  194.  
  195.   Cancel = rtezrequest("Choose Application To Run", ,
  196.         "_E-Mail|_News|_FTP|_WWW|_Gopher|_IRC|_Archie|_Telnet|_More|_Cancel", ,
  197.         reqtitle, "rtez_flags = ezreqf_centertext",
  198.         "rt_topoffset = 12" "rt_reqpos = reqpos_topleftscr" "rtez_defaultresponse = 9")
  199.  
  200.   Choice = Cancel
  201.   if choice == 1 then if exists("Amitcp:bin/mail") then "run >nil: Mail"
  202.     else "Run >nil: elm"
  203.   if choice == 2 then call whatnews()
  204.   if choice == 3 then "run >nil: gui-ftp"
  205.   if choice == 4 then "run >nil: amosaic"
  206.   if choice == 5 then "run >nil: gopher"
  207.   if choice == 6 then "run >nil: GV"
  208.   if choice == 7 then call runprog(archie_gui || " FILE")
  209.   if choice == 8 then "run >nil: telnet_gui.exe"
  210.   if choice == 9 then
  211.   do
  212.     cancel = 3
  213.     do until cancel <2
  214.       Cancel = rtezrequest("Choose Application To Run", ,
  215.           "_Back|_Finger|_Ping|_TraceRoute|_UUXT|_DeArc|_Ed News|_Cancel", ,
  216.           reqtitle, "rtez_flags = ezreqf_centertext",
  217.           "rt_topoffset = 12" "rt_reqpos = reqpos_topleftscr" "rtez_defaultresponse = 1")
  218.  
  219.       choice = cancel
  220.       if choice == 1 then cancel = 1
  221.       if choice == 2 then call runprog(finger_gui || " FILE")
  222.       if choice == 3 then call runprog(Ping_gui || " SCREEN")
  223.       if choice == 4 then call runprog(traceroute_gui || " FILE")
  224.       if choice == 5 then "run >nil: UUXT-GUI"
  225.       if choice == 6 then "run >nil: GUIARC"
  226.       if choice == 7 then "run Newsed_Gui.exe"
  227.       if choice == 8 then cancel = 0
  228.     end
  229.   end
  230. end
  231. RETURN
  232.  
  233. RunProg:
  234. arg params
  235. prog = word(params,1)
  236. say prog
  237. output = word(params,2)
  238. say output
  239. runno = runno + 1
  240. filename2 = ""
  241. filename = "t:cp-run-" || runno
  242. filename2 = filename || ".output"
  243. call open(file, filename, 'w')
  244.  if output == "FILE" then
  245.  do
  246.    line1 = "amitcp:bin/" || prog || ".exe > " filename2
  247.    call writeln(file, line1)
  248.    call writeln(file, "ed " || filename2)
  249.  end
  250.  if output ~== "FILE" then do
  251.    line1 = "amitcp:bin/" || prog || ".exe"
  252.    call writeln(file, line1)
  253.    call writeln(file, "Wait 5 secs")
  254.    call writeln(file, "endcli")
  255.  end
  256. call close(file)
  257. if output ~== "FILE" then address command "newshell con:0/150/640/100/" || prog || "-OUTPUT from " || filename
  258. if output == "FILE" then address command "run execute " || filename
  259. return
  260.  
  261.  
  262.  
  263.  
  264. WhatNews:
  265. News_Choice = "NEWS_CHOICE"
  266. newschoice = 0
  267. if exists("amitcp:bin/grn") then newschoice = newschoice +1
  268. if exists("amitcp:bin/othernews.run") then newschoice = newschoice + 1
  269. if newschoice ~== 0 then
  270. do
  271. News_Choice = rtezrequest("What News Reader Do You Wish To Use?" , "_Tin |_Grn |_Other", "AmiTCP Control Panel - Choose News Reader", "rtez_flags = ezreqf_centertext" "rt_reqpos = reqpos_centerscr")
  272.  
  273. if news_choice == 1 then "run tinnews"
  274. if news_choice == 2 then "run grn Left=30 Height="WBScreenHeight
  275. if news_choice == 0 then "run execute amitcp:bin/othernews.run"
  276. end
  277. if newschoice == 0 then "run tinnews"
  278. return
  279.  
  280.