.úø( Finnigann said this to -oblivious- )øú.ã re:hangup problems in the command shell...ã Fi> Dunno if this being too snotty... but could we see the code?ããã Fi> James King, Coldwater, Mi And that's JIM to you guys!ãno, not snotty at all... well....hm....ãthe current version i have is ripped off of one of the includedãcmd shells, with a few additions.ããuh...this is pretty messy.. be carefull for what you wish for:ããsorry this is SO BIG!!ã here it goes, i'd appreciate any help!ã# DEFAULT.SRCã:topã!include sbbsdefs.incãã# Set return point for main menu commands (via end_cmd)ãcmd_homeãã# Display TEXT\MENU\MAIN.* if not in expert modeã:mainãcompare_user_misc UM_EXPERTãif_falseã clsã menu eob\MAINã end_ifãã# Update node statusãnode_action node_mainãasyncããinc_main_cmdsãã# Display main Promptãexec_bin "rumors" ãcrlfãprint "\r|15M|07ain |15M|07enu |14[|04@TLEFT@|14]:"ã#compare_ars exempt Tã#if_trueã# print "@TUSED@"ã#elseã# print "@TLEFT@"ã# end_ifã#print " [@GN@] @GRP@ [@SN@] @SUB@: "ãã# Get key (with / extended commands allowed)ãcompare_user_misc UM_COLDKEYSãif_falseã getkeyeãelseã getstrupr 60ã endifããcompare_ars RIPãif_trueã getlinesã end_ifãã# Do nothing for control keys and spaceãcmdkey ^@ã end_cmdãcmdkey ^Mã end_cmdãcmdkey ^Sã end_cmdã cmdkey "ã end_cmdãã# Write command to log fileãlogkey_commaãã# Hitting number changes current sub-boardãcmdkey digitã compare_user_misc UM_COLDKEYSã if_falseã ungetkeyã end_ifã msg_get_sub_numã end_cmdãã# Hitting /number changes current groupãcmdkey edigitã compare_user_misc UM_COLDKEYSã if_falseã ungetkeyã elseã shift_str 1ã end_ifã msg_get_grp_numã end_cmdãã# Show the key hitãcompare_user_misc UM_COLDKEYSãif_falseã printkeyã endifãã# Next sub-boardãcmdkey }ã msg_subboard_upã end_cmdãã# Previous sub-boardãcmdkey {ã msg_subboard_downã end_cmdããã# Next groupãcmdkey ]ã msg_group_upã end_cmdãã# Previous groupãcmdkey [ã msg_group_downã end_cmdãã# String commands start with a semicolonãcmdkey ;ã compare_user_misc UM_COLDKEYSã if_trueã shift_str 1ã elseã getstrupr 40ã end_ifã exec_bin str_cmdsã end_cmdããã# Sysop Menuã#cmdkey /!ã#compare_ars SYSOP or EXEMPT Q or I or Nã#if_trueã#exec_XTRN "DOSSHELL"ã#end_cmdã# end_ifããcmdkey /Qã msg_qwkã end_cmdããcmdkey Nã setstr "1"ã mail_send_feedbackã end_cmdããcmdkey _ãexec_bin "bullseye"ãend_cmdããcmdkey /Oãexec_xtrn "wall"ãend_cmdããcmdkey .ã printfile "c:\sbbs\text\morecmds.ans"ã end_cmdããcmdkey /?ã exec_bin "help"ãend_cmdããcmdkey /@ã SETSTR "rasta"ã PAGE_GURU "rasta"ãend_cmdããCMDKEY /XãEXEC_XTRN "SYNCREG"ãEND_CMDããcmdkey Fã chkfile "..\text\menu\tmessage.*"ã if_trueã menu tmessageã end_ifã call file_transfersã end_cmdããcompare_user_misc UM_COLDKEYSãif_falseã crlfã end_ifãpause_resetãã# Menuãcmdkey ?ã compare_user_misc UM_expertã if_trueã menu mainã end_ifã end_cmdãã# Sysop Menuãcompare_ars SYSOP or EXEMPT Q or I or Nãif_trueã cmdkey !ã menu sysmainã end_cmdã end_ifãã# Commandsããcmdkey Oã xtrn_sectionã end_cmdããcmdkey Aã clsã PRINTFILE "C:\SBBS\TEXT\AUTOMSG.ANS"ã auto_messageã end_cmdããcmdkey /Rã # print "\r\nBrowse/New Message Scan\r\n"ã # msg_browse_scanãexec_xtrn "rumors"ãã end_cmdããcmdkey Bã # print "\r\nBrowse/New Message Scan\r\n"ã # msg_browse_scanãexec_xtrn "sbl"ãã end_cmdããcmdkey /Wãprintfile "C:\SBBS\TEXT\WATCH.ANS"ãend_cmdããcmdkey Cã chat_sectionã end_cmdããcmdkey Pã user_defaultsã end_cmdããCMDKEY YãPRINTFILE "C:\SBBS\TEXT\USERINFO.ANS"ãEND_CMDãcmdkey Eã call E-mailã end_cmdãã#cmdkey Fã# print "\r\nFind Text in Messages\r\n"ã# msg_find_textã# end_cmdããcmdkey /Sãexec "*shit"ã end_cmdããcmdkey Fã msg_find_text_allã end_cmdããcmdkey Gã text_file_sectionã end_cmdããcmdkey Iã call main_infoã end_cmdããcmdkey Jã msg_select_areaã end_cmdãã#our dosshellãcmdkey /!ãexec_xtrn "dosshell"ãend_cmdããcmdkey /Lã nodelist_allã end_cmdããcmdkey $ã minute_bankã end_cmdãcmdkey Mã cmd_popã goto messageã end_cmdããcmdkey Nã print "\r\nNew Message Scan\r\n"ã msg_new_scanã end_cmdããcmdkey /Nã msg_new_scan_allã end_cmdããcmdkey Gã file_download_batchã if_trueã end_cmdã end_ifã logoffã end_cmdããcmdkey /Gã file_download_batchã if_trueã end_cmdã end_ifã logoff_fastã end_cmdãã#cmdkey Pã# msg_postã# end_cmdããcmdkey /Qã msg_qwkã end_cmdããcmdkey Rã msg_readã end_cmdããcmdkey Sã print "\r\nScan for Messages Posted to You\r\n"ã msg_your_scanã end_cmdããcmdkey /Sã msg_your_scan_allã end_cmdããcmdkey Uã #print "\r\nList Users\r\n"ã #mnemonics "\r\n~Logons Today, ~Sub-board, or ~All: "ã #getcmd LSA\rã #ã #cmdkey Lã # userlist_logonsã # end_cmdã #cmdkey Sã # userlist_subã # end_cmdã #cmdkey Aã userlist_allã end_cmdãã # fall-through for CR, Ctrl-C, etcã end_cmdããcmdkey /Uã userlist_allã end_cmdããããcmdkey Zã print "\r\nContinuous New Message Scan\r\n"ã msg_cont_scanã end_cmdããcmdkey /Zã msg_cont_scan_allã end_cmdããcmdkey *ã msg_show_subboardsã end_cmdããcmdkey /*ã msg_show_groupsã end_cmdããcmdkey /Pã goto main_cfgã end_cmdããcmdkey #ã print "\r\nType the actual number, not the symbol.\r\n"ã end_cmdããcmdkey /#ã print "\r\nType the actual number, not the symbol.\r\n"ã end_cmdãã# fall throughãprint "\r\nUnrecognized command."ãcompare_user_misc UM_expertãif_trueã print " Hit '?' for a menu."ã end_ifãcrlfãend_cmdãã# shouldn't hit next lineãprint "Problem in command shell you should probably log of and call back."ãpauseãgoto mainã###################################### message area #######################ã:messageãcmd_homeãcompare_ars expertãif_falseã clsã menu EOB\MESSAGEã end_ifãã# Update node statusãnode_action node_mainãasyncãã# Display main Promptãprint "|08[|14@GRP@|07]|08Ä|07(|11@SN@|07)|08-|08[|14@SUB@|07]\r\n"ã#compare_ars exempt Tã#if_trueã# print "Time Used: [@TUSED@] "ã#elseã print "Time Left: [@TLEFT@] "ã end_ifãã#print "(?=Help)\r\nMessage Menu : "ãã# Get key (with / extended commands allowed)ãcompare_user_misc UM_COLDKEYSãif_falseã getkeyeãelseã getstrupr 60ã endifãã# Do nothing for control keys and spaceãcmdkey ^@ã end_cmdãcmdkey ^Mã end_cmdãcmdkey ^Sã end_cmdã cmdkey "ã end_cmdãã# Write command to log fileãlogkey_commaãã# Hitting number changes current sub-boardãcmdkey digitã compare_user_misc UM_COLDKEYSã if_falseã ungetkeyã end_ifã msg_get_sub_numã end_cmdãã# Hitting /number changes current groupãcmdkey edigitã compare_user_misc UM_COLDKEYSã if_falseã ungetkeyã elseã shift_str 1ã end_ifã msg_get_grp_numã end_cmdãã# Show the key hitãcompare_user_misc UM_COLDKEYSãif_falseã printkeyã endifããcmdkey ?ã compare_ars expertã if_trueã clsã menu EOB\MESSAGEã end_ifã end_cmdããcmdkey Qã cmd_popã goto mainã end_cmdããcmdkey [ã msg_subboard_downã end_cmdããcmdkey ]ã msg_subboard_upã end_cmdããcompare_user_misc UM_COLDKEYSãif_falseã crlfã end_ifãpause_resetããcmdkey Aã msg_show_subboardsã end_cmdããcmdkey /Aã msg_show_groupsã end_cmdããcmdkey Cã chat_sectionã end_cmdããcmdkey /Lã nodelist_allã end_cmdããcmdkey Nã msg_new_scanã end_cmdããcmdkey Rã msg_readã end_cmdããcmdkey Pã msg_postã end_cmdããcmdkey Fã cmd_popã goto file_transfersã end_cmdããcmdkey Sã print "\r\nSearch for Text in Messages\r\n"ã msg_find_textã end_cmdããcmdkey Uã userlist_subã end_cmdããcmdkey Gã file_download_batchã if_trueã end_cmdã end_ifã logoffã end_cmdããcmdkey /Gã file_download_batchã if_trueã end_cmdã end_ifã logoff_fastã end_cmdããcmdkey Eã print "\r\nE-mail (User name or number): "ã getname 25ã compare_str ""ã if_trueã end_cmdã end_ifã compare_str "SYSOP"ã if_trueã setstr "1"ã end_ifã mail_sendã end_cmdããcmdkey Jã msg_select_areaã end_cmdããcmdkey Yã msg_your_scan_allã end_cmdããcmdkey Pã msg_postã end_cmdããcmdkey #ã print "\r\nEnter the number of the sub-board to change to.\r\n"ã end_cmdããcmdkey /#ã print "\r\nEnter the number of the message group to change to.\r\n"ã end_cmdãã# fall throughãprint "\r\nUnrecognized command."ãcompare_ars expertãif_trueã print " Hit '?' for a menu."ã end_ifãcrlfãend_cmdãã############################### E-mail Section ################################ãã:e-mailãcmd_homeãcompare_user_misc UM_expertãif_falseã menu E-MAILã end_ifãasyncãprint "\r\nE-mail: "ãgetcmd ?SRFNUKQ\rãlogkeyããcmdkey ?ã compare_user_misc UM_expertã if_trueã menu E-MAILã end_ifã end_cmdããcmdkey Sã print "\r\nE-mail (User name or number): "ã getname 25ã compare_str ""ã if_trueã end_cmdã end_ifã compare_str "SYSOP"ã if_trueã setstr "1"ã end_ifã mail_sendã end_cmdããcmdkey Uã print "\r\nE-mail (User name or number): "ã getname 25ã compare_str ""ã if_trueã end_cmdã end_ifã compare_str "SYSOP"ã if_trueã setstr "1"ã end_ifã mail_send_fileã end_cmdããcmdkey Rã mail_readã end_cmdããcmdkey Fã setstr "1"ã mail_send_feedbackã end_cmdããcmdkey Nã no_yes "\r\nAttach a file"ã if_trueã mail_send_netmailã else ã mail_send_netfileã end_ifã end_cmdããcmdkey Kã mail_read_sentã end_cmdããcmdkey Qã cmd_popã returnã end_cmdããcmd_popãreturnãã############################ Main Info Section ###############################ãã:main_infoãcmd_homeãcompare_user_misc UM_expertãif_falseã menu MAININFOã end_ifãasyncãprint "\r\nInfo: "ãgetcmd ?QISVY\rãlogkeyããcmdkey ?ã compare_user_misc UM_expertã if_trueã menu MAININFOã end_ifã end_cmdããcmdkey Iã info_systemã end_cmdããcmdkey Sã info_subboardã end_cmdããcmdkey Yã info_userã end_cmdããcmdkey Vã info_versionã end_cmdããcmdkey Qã cmd_popã returnã end_cmdããcmd_popãreturnãã########################### Main Config Section ##############################ãã:main_cfgããcompare_user_misc UM_expertãif_falseã menu MAINCFGã end_ifãasyncãprint "\r\nConfig: "ãgetcmd ?QNPIS\rãlogkeyããcmdkey ?ã compare_user_misc UM_expertã if_trueã menu MAINCFGã end_ifã goto main_cfgã end_cmdããcmdkey Nã msg_new_scan_cfgã returnã end_cmdããcmdkey Sã msg_your_scan_cfgã returnã end_cmdããcmdkey Pã# msg_ptrs_cfgã msg_postã returnã end_cmdããcmdkey Iã msg_ptrs_reinitã returnã end_cmdããreturnããã########################### File Transfer Section #############################ãã:file_transfersããcompare_ars file_cmds=0ãif_trueã compare_user_misc UM_ask_nscanã if_trueã yes_no "\r\n\r\nSearch all libraries for new files"ã if_trueã file_new_scan_allã end_ifã end_ifã end_ifããcmd_homeããcompare_user_misc UM_expertãif_falseã clsã menu eob\TRANSFERã end_ifãã# Update node statusãnode_action node_xferãasyncããinc_file_cmdsãã# Display main Promptãprint "\r\nþ File þ "ã#compare_ars exempt Tã#if_trueã# print "@TUSED@"ã#elseã# print "@TLEFT@"ã# end_ifãprint " (@LN@) @LIB@ (@DN@) @DIR@: "ãã# Get key (with / extended commands allowed)ãcompare_user_misc UM_COLDKEYSãif_falseã getkeyeãelseã getstrupr 60ã endifããcompare_ars RIPãif_trueã getlinesã end_ifãã# Do nothing for control keys and spaceãcmdkey ^@ã end_cmdãcmdkey ^Mã end_cmdãcmdkey ^Sã end_cmdã cmdkey "ã end_cmdãã# Write command to log fileãlogkey_commaãã# Hitting number changes current sub-boardãcmdkey digitã compare_user_misc UM_COLDKEYSã if_falseã ungetkeyã end_ifã file_get_dir_numã end_cmdãã# Hitting /number changes current groupãcmdkey edigitã compare_user_misc UM_COLDKEYSã if_falseã ungetkeyã elseã shift_str 1ã end_ifã file_get_lib_numã end_cmdãã# Show the key hitãcompare_user_misc UM_COLDKEYSãif_falseã printkeyã endifãã# Next directoryãcmdkey >ã file_directory_upã end_cmdãcmdkey ]ã file_directory_upã end_cmdãcmdkey +ã file_directory_upã end_cmdãcmdkey =ã file_directory_upã end_cmdãã# Previous directoryãcmdkey <ã file_directory_downã end_cmdãcmdkey [ã file_directory_downã end_cmdãcmdkey -ã file_directory_downã end_cmdãã# Next libraryãcmdkey }ã file_library_upã end_cmdãã# Previous libraryãcmdkey {ã file_library_downã end_cmdãã# String commands start with a semicolonãcmdkey ;ã compare_user_misc UM_COLDKEYSã if_trueã shift_str 1ã elseã getstrupr 40ã end_ifã exec_bin str_cmdsã end_cmdããcmdkey Qã cmd_popã returnã end_cmdããcmdkey /!ãprint "executing uploads.bat externally"ãexec "start /m c:\sbbs\exec\upload.bat"ãend_cmdããcompare_user_misc UM_COLDKEYSãif_falseã crlfã end_ifãpause_resetãã# Menuãcmdkey ?ã compare_user_misc UM_expertã if_trueã menu TRANSFERã end_ifã end_cmdãã# Sysop Menuãcompare_ars SYSOPãif_trueã cmdkey !ã menu sysxferã end_cmdã end_ifãã# Commandsããcmdkey Bã file_batch_sectionã end_cmdããcmdkey Cã chat_sectionã end_cmdããcmdkey Dã print "\r\nDownload File(s)\r\n"ã file_download_batchã if_trueã end_cmdã end_ifã getfilespecã if_trueã file_downloadã end_ifã end_cmdããcmdkey /Dã print "\r\nDownload File(s) from User(s)\r\n"ã file_download_userã end_cmdããcmdkey Eã print "\r\nList Extended File Information\r\n"ã getfilespecã if_trueã file_list_extendedã end_ifã end_cmdãã#cmdkey Fã# print "\r\nFind Text in File Descriptions (no wildcards)\r\n"ã# file_find_textã# end_cmdããcmdkey Fã file_find_text_allã end_cmdããcmdkey Iã call file_infoã end_cmdããcmdkey Jã file_select_areaã end_cmdããcmdkey Lã setstr *.*ã file_listã end_cmdããcmdkey /Lã nodelist_allã end_cmdããcmdkey Nã print "\r\nNew File Scan\r\n"ã file_new_scan_allã #file_new_scanã end_cmdããcmdkey /Nã file_new_scan_allã end_cmdããcmdkey Gã file_download_batchã if_trueã end_cmdã end_ifã logoffã end_cmdããcmdkey /Gã file_download_batchã if_trueã end_cmdã end_ifã logoff_fastã end_cmdããcmdkey Rã print "\r\nRemove/Edit File(s)\r\n"ã getfilespecã if_trueã file_removeã end_ifã end_cmdããcmdkey Sã print "\r\nSearch for Filename(s)\r\n"ã file_find_nameã end_cmdããcmdkey /Sã file_find_name_allã end_cmdããcmdkey Tã file_temp_sectionã
end_cmdããcmdkey Uã print "\r\nUpload File\r\n"ã chkfile "..\text\menu\upload.*"ã if_trueã menu uploadã end_ifã file_uploadã end_cmdããcmdkey /Uã print "\r\nUpload File to User\r\n"ã file_upload_userã end_cmdããcmdkey Vã print "\r\nView File(s)\r\n"ã getfilespecã if_trueã file_viewã end_ifã end_cmdããcmdkey Zã print "\r\nUpload File to Sysop\r\n"ã file_upload_sysopã end_cmdããcmdkey *ã file_show_directoriesã end_cmdããcmdkey /*ã file_show_librariesã end_cmdããcmdkey &ã :xfercfgã compare_user_misc UM_expertã if_falseã menu XFERCFGã end_ifã asyncã print "\r\nConfig: "ã getcmd ?QBEP\rã logkeyãã cmdkey ?ã compare_user_misc UM_expertã if_trueã menu XFERCFGã end_ifã goto xfercfgã end_cmdãã cmdkey Pã file_ptrs_cfgã end_cmdãã cmdkey Bã toggle_user_misc UM_BATCHFLAGã end_cmdãã cmdkey Eã toggle_user_misc UM_EXTDESCã end_cmdã end_cmdããcmdkey #ã print "\r\nType the actual number, not the symbol.\r\n"ã end_cmdããcmdkey /#ã print "\r\nType the actual number, not the symbol.\r\n"ã end_cmdãã# fall throughãprint "\r\nUnrecognized command."ãcompare_user_misc UM_expertãif_trueã print " Hit '?' for a menu."ã end_ifãcrlfãend_cmdãã# shouldn't hit next lineãprint "Problem in command shell you should probably hang up and call back."ãpauseãgoto mainãã############################ File Info Section ###############################ãã:file_infoãcmd_homeãcompare_user_misc UM_expertãif_falseã menu XFERINFOã end_ifãasyncãprint "\r\nInfo: "ãgetcmd ?TYDUQ\rãlogkeyããcmdkey ?ã compare_user_misc UM_expertã if_trueã menu XFERINFOã end_ifã end_cmdããcmdkey Tã info_xfer_policyã end_cmdããcmdkey Yã info_userã end_cmdããcmdkey Dã info_directoryã end_cmdããcmdkey Uã userlist_dirã end_cmdããcmdkey Qã cmd_popã returnã end_cmdããcmd_popãreturnãã#end of DEFAULT.SRCããã.Ä.¿Ä¿Â .Â. Â.Â..Ä.Ú ¿.-.ã³ :³Ä:: : : ³ : ³ :³ ³À-.ã`Ä'³_³ÁÙúÁú`\/'úÁú`Ä':_:`Ä'ã+o edge of oblivion bbsã
telnet://eob_bbs.thebbs.orgã... 42? 7 and a half million years and all you can come up with is 42?!ã--- MultiMail/MS-DOS v0.35ã þ Synchronet þ ...edge of oblivion eob_bbs.thebbs.orgã