############################################################################### ### PistolGrip's BAJA Examples ############################################################################### ### Note: This file is an example only, it is by no means supposed to work or ### or do anything other than hopefully help some people get started
### with BAJA programming. This code is not tested or thought-out very ### well, it is only intended to show some basic concepts and common
### tasks useful when coding custom modules.
###
### Pistolgrip ############################################################################### ### Required Include Files for SBBS Definitions, and our File I/O Functions ############################################################################### !include sbbsdefs.inc
!include file_io.inc ############################################################################### ### Defines Global or Constant Variables ############################################################################### !define USER _USERON.ALIAS
!define MAXIMUM_VALUE 100 ############################################################################### ### Define our Integer variables ############################################################################### int cfg_file
int max_value
int access_lvl

############################################################################### ### Define our String variables ############################################################################### str reg_name

############################################################################### ###
### When executing a BAJA module the command line arguments
### (for example "MYMOD.BIN MAINTENANCE")
### are available from the default String variable named 'str' in BAJA.
### ############################################################################### ### Copies the command line arguments for use later. ############################################################################### truncsp str
copy cmd_line str
strupr cmd_line ############################################################################### ### Used for debugging ############################################################################### #printf "%sp" cmd_line

############################################################################### ### Two things to notice about this next section:
### 1.) The "%n" in the path is a Synchronet Command Line Specifier that is
### translated into your NODE directory as configured in SCFG. Refer to ### the Sysop Documentation appendix section on these, they are helpful
### to the BAJA programmer.
### 2.) The forward slashes "/" in the path. This ensures Linux compatibility ### ############################################################################### ### Open our modules config file for reading ############################################################################### fopen cfg_file O_RDONLY "%n../baja/mymod/mymod.cfg"
if_false
print "\r\n\r\nnError Loading Configuration File - MYMOD.CFG"
return
end_if ############################################################################### ### Now we'll read our config file one line at a time and set the appropriate ### variables to the correct values for our CONFIG. ############################################################################### fread_line cfg_file reg_name
truncsp reg_name ############################################################################### ###
### Note: On these next two lines read-in, we read in a string value and then ### convert it to an integer when we use the copy command.
###
fread_line cfg_file str
truncsp str
copy max_value str

fread_line cfg_file str
truncsp str
copy access_lvl str ############################################################################### ### Close our config file (IMPORTANT) ############################################################################### fclose cfg_file ############################################################################### ### Note: You can use this technique to fairly easily create complex
### configuration and customization options of your programs. ###############################################################################

############################################################################### ### Here's were we will see what argurments were passed to module upon exec. ############################################################################### compare cmd_line "maintenance"
if_true
goto maintenance
end_if

############################################################################### ############################################################################### ###
### Main Entry Point
### ############################################################################### ############################################################################### compare _USERON.LEVEL access_lvl
if_less
print "\r\nSorry, your access is insufficient for this program.\1p"
return
end_if

### More stuff here for your program

return ############################################################################### ##### End Main Program Section ###############################################################################

############################################################################### ############################################################################### ### This is where we go if called with the maintenance parameter ############################################################################### :maintenance

### More stuff here for your program

return ############################################################################### ############################################################################### ### End of Sample BAJA Source ###############################################################################

---
þ Synchronet þ WasteLand BBS þ telnet://wasteland.darktech.org