wincit/globals.bas

   1 Attribute VB_Name = "GLOBALS"
   2 ' KeepAlive is the frequency with which to send NOOP
   3 ' commands to the server to keep it from timing out
   4 ' (and also to check for express messages).
   5
   6 Global Const KeepAlive = 30000
   7 Global Const MaxRooms = 200
   8 Global Const DefaultPort = 2112
   9
  10 ' Used during startup for user or system cancel of call
  11 Global Cancelled
  12
  13 Global CurrRoomName$
  14 Global CurrRoomFlags%
  15 Global IsRoomAide%
  16 Global DoubleClickAction$
  17
  18 Global SaveNewRooms$(MaxRooms)
  19 Global SaveOldRooms$(MaxRooms)
  20 Global SaveNewCount
  21 Global SaveOldCount
  22
  23 Global serv_pid%
  24 Global serv_nodename$
  25 Global serv_humannode$
  26 Global serv_fqdn$
  27 Global serv_software$
  28 Global serv_rev_level!
  29 Global serv_bbs_city$
  30 Global serv_sysadm$
  31
  32 Global msg_array&(256)
  33 Global max_msgs%
  34
  35 Global recp$
  36
  37 Global axlevel%
  38 Global need_regis%
  39
  40 Global axdefs$(7)
  41 Global HoldMessage$
  42
  43 Global DownLoadFileName$
  44
  45 Global LastMessageRead&
  46
  47 Function Cit_Format(ib As String) As String
  48
  49 ob$ = ""
  50 fl% = 0
  51 Do Until Len(ib) = 0
  52
  53     nl% = InStr(ib, Chr$(13) + Chr$(10))
  54     If nl% = 0 Then
  55         a$ = ib
  56         ib = ""
  57     Else
  58         a$ = Left$(ib, nl% - 1)
  59         ib = Right$(ib, Len(ib) - nl% - 1)
  60         End If
  61
  62     If fl% = 1 And Left$(a$, 1) = " " Then
  63         ob$ = ob$ + Chr$(13) + Chr$(10)
  64         End If
  65
  66     ob$ = ob$ + a$ + " "
  67
  68     fl% = 1
  69     Loop
  70
  71     Do While Left$(ob$, 2) = Chr$(13) + Chr$(10)
  72         ob$ = Right$(ob$, Len(ob$) - 2)
  73         Loop
  74     Do While Right$(ob$, 2) = Chr$(13) + Chr$(10)
  75         ob$ = Left$(ob$, Len(ob$) - 2)
  76         Loop
  77
  78 Cit_Format = ob$
  79 End Function
  80
  81 Function extract$(source$, parmnum%)
  82
  83     buf$ = source$
  84     If parmnum% > 0 Then
  85         For a% = 1 To parmnum%
  86             b% = InStr(1, buf$, "|")
  87             If (b% > 0) Then buf$ = Right$(buf$, Len(buf$) - b%)
  88             Next a%
  89         End If
  90
  91     b% = InStr(1, buf$, "|")
  92     If b% > 0 Then buf$ = Left$(buf$, b% - 1)
  93
  94     extract$ = buf$
  95 End Function
  96
  97 Sub main()
  98     Call setvars        ' set unixtime stuff in Ford module
  99     editedBBSnum = (-1)
 100
 101     axdefs$(0) = "Marked for deletion"
 102     axdefs$(1) = "New unvalidated user"
 103     axdefs$(2) = "Problem user"
 104     axdefs$(3) = "Local user"
 105     axdefs$(4) = "Network user"
 106     axdefs$(5) = "Preferred user"
 107     axdefs$(6) = "Aide"
 108
 109     Load SelectBBS
 110 End Sub
 111
 112 Function StripTrailingWhiteSpace(padstr As String) As String
 113     If Len(padstr) > 0 Then
 114         Do While Asc(Right$(padstr, 1)) = 0 Or Right$(padstr, 1) = " "
 115             padstr = Left$(padstr, Len(padstr) - 1)
 116             If Len(padstr) < 1 Then Exit Do
 117             Loop
 118         End If
 119
 120     If Len(padstr) > 0 Then
 121         Do While Asc(Left$(padstr, 1)) = 0 Or Left$(padstr, 1) = " "
 122             padstr = Right$(padstr, Len(padstr) - 1)
 123             If Len(padstr) < 1 Then Exit Do
 124             Loop
 125         End If
 126
 127     StripTrailingWhiteSpace = padstr
 128 End Function
 129