/Source/modConstDef.bas

# · Basic · 285 lines · 197 code · 56 blank · 32 comment · 0 complexity · 19d1d85c2e27d3e670b93f901da1063a MD5 · raw file 

    

  1. Attribute VB_Name = "modConstDef"

    2. 

  2. ' _____________________________________________________________________________

    3. 

  3. '|________________________________ CONSTANT DEFS ______________________________|

    4. 

  4. '|  Name:          modConstDef.bas                                             |

    5. 

  5. '|  Type:          VB6 Module                                                  |

    6. 

  6. '|  Project:       Cybera Server & Workstation (http://cybera.sf.net)          |

    7. 

  7. '|  Description:   Contains Constants declarations.                            |

    8. 

  8. '|  Copyright:     (C) 2004-2006 Samuel Monsarrat (smonsarr@users.sf.net)      |

    9. 

  9. '|                                                                             |

    10. 

  10. '| This file is part of Cybera.                                                |

    11. 

  11. '|                                                                             |

    12. 

  12. '| Cybera is free software; you can redistribute it and/or modify it under the |

    13. 

  13. '| terms of the GNU General Public License as published by the Free Software   |

    14. 

  14. '| Foundation; either version 2 of the License, or (at your option) any later  |

    15. 

  15. '| version.                                                                    |

    16. 

  16. '|                                                                             |

    17. 

  17. '| Cybera is distributed in the hope that it will be useful, but WITHOUT ANY   |

    18. 

  18. '| WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS   |

    19. 

  19. '| FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more      |

    20. 

  20. '| details.                                                                    |

    21. 

  21. '|                                                                             |

    22. 

  22. '| You should have received a copy of the GNU General Public License along     |

    23. 

  23. '| with Cybera; if not, write to the Free Software Foundation, Inc.,           |

    24. 

  24. '| 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                     |

    25. 

  25. '|                                                                             |

    26. 

  26. '|_____________________________________________________________________________|

    27. 

  27. 

    28. 

  28. ' $Id$

    29. 

  29. 

    30. 

  30. Option Explicit

    31. 

  31. 

    32. 

  32. '=== Constant deffinitions =====================================================

    33. 

  33. 

    34. 

  34. '--- General App constants -----------------------------------------------------

    35. 

  35. Public Const BETA_VERSION = False            'Display beta in the "About" window

    36. 

  36. Public Const RC_VERSION = ""                'Release candidate or beta

    37. 

  37. Public Const BUILD_MONTH_YEAR = "02/2010"   'Month and year of present build

    38. 

  38. Public Const BUILD_YEAR = "2004-2010"

    39. 

  39. 

    40. 

  40. Public Const DB_MIN_VERSION = 40

    41. 

  41. Public Const SERVER_MIN_VERSION = 1009600

    42. 

  42. Public Const WORKSTATION_MIN_VERSION = 1009300

    43. 

  43. Public Const NO_PARAM_VERSION = 0

    44. 

  44. Public Const SERVER_MIN_PARAM_VERSION = 5

    45. 

  45. Public Const WKSN_MIN_PARAM_VERSION = 4

    46. 

  46. 

    47. 

  47. Public Const DEFAULT_TCP_PORT = 4646

    48. 

  48. Public Const DEFAULT_UDP_PORT_SERVER = 4647

    49. 

  49. Public Const DEFAULT_UDP_PORT_WORKSTATION = 4648

    50. 

  50. Public Const BROADCAST_ADDRESS = "255.255.255.255"

    51. 

  51. Public Const EMPTY_ADDRESS = "0.0.0.0"

    52. 

  52. 

    53. 

  53. Public Const CYBERA_ERROR = 4646

    54. 

  54. 

    55. 

  55. '--- Personal contact information constants ------------------------------------

    56. 

  56. Public Const MY_URL = "http://cybera.sourceforge.net/"

    57. 

  57. Public Const MY_DONATE_URL = "https://sourceforge.net/donate/index.php?group_id=121074"

    58. 

  58. Public Const MY_NAME = "Samuel Monsarrat" 'Modified by Gary ZOZO

    59. 

  59. Public Const MY_EMAIL = "smonsarr@users.sourceforge.net" 'gary.zozo@gmail.com

    60. 

  60. Public Const MY_COPYRIGHT = "Copyright (c)" 'send emails with "Cybera" in object

    61. 

  61. 

    62. 

  62. Public Const DO_NOT_SHUTDOWN = -1         '-Form_Unload management constant.

    63. 

  63. 

    64. 

  64. Public Const NULL_DATE = #12:00:00 AM#

    65. 

  65. Public Const SESSION_EXPIRY_TIME = 5 ' Used in wksn: delay before a blocked (no credit) session will be terminated

    66. 

  66. Public Const ACTIVATION_DELAY_TIME = 2 ' Used in wksn: delay wksn becomes available after an incorrect auth.

    67. 

  67. Public Const NUM_DAYS_IN_YEAR = 365

    68. 

  68. Public Const LANG_EN = 2057

    69. 

  69. Public Const LANG_FR = 1036

    70. 

  70. Public Const LANG_DE = 1031

    71. 

  71. Public Const LANG_IT = 1040

    72. 

  72. Public Const LANG_ES = 3082

    73. 

  73. Public Const LANG_EL = 1032

    74. 

  74. Public Const LANG_BR = 1046

    75. 

  75. Public Const LANG_HU = 1038

    76. 

  76. Public Const LANG_TR = 1055

    77. 

  77. Public Const LANG_NL = 1043

    78. 

  78. 

    79. 

  79. Public Const LANG_RES_EN = "_en"

    80. 

  80. Public Const LANG_RES_FR = "_fr"

    81. 

  81. Public Const LANG_RES_DE = "_de"

    82. 

  82. Public Const LANG_RES_IT = "_it"

    83. 

  83. Public Const LANG_RES_ES = "_es"

    84. 

  84. Public Const LANG_RES_EL = "_el"

    85. 

  85. Public Const LANG_RES_BR = "_br"

    86. 

  86. Public Const LANG_RES_HU = "_hu"

    87. 

  87. Public Const LANG_RES_TR = "_tr"

    88. 

  88. Public Const LANG_RES_NL = "_nl"

    89. 

  89. 

    90. 

  90. Public Const MAX_NUM_WORKSTATIONS = 150

    91. 

  91. Public Const DELAULT_MAX_NUM_DB_BACKUPS = 4

    92. 

  92. Public Const MAX_NUM_DB_BACKUPS = 20

    93. 

  93. 

    94. 

  94. Public Const TIME_TOKEN = "#"

    95. 

  95. Public Const CARD_TYPE_TOKEN = "#"

    96. 

  96. Public Const FILENAME_TOKEN = "*"

    97. 

  97. Public Const SERIALIZED_SESSION_TOKEN = "#"

    98. 

  98. 

    99. 

  99. Public Const PASSWORD_CHAR = "*"

    100. 

  100. 

    101. 

  101. Public Const HIDDEN_ID = "******"

    102. 

  102. 

    103. 

  103. Public Const CSV_SEPARATOR = ","

    104. 

  104. 

    105. 

  105. Public Const APP_NAME_IE = "iexplore.exe"

    106. 

  106. Public Const APP_NAME_NETSCAPE = "netscp.exe"

    107. 

  107. Public Const APP_NAME_MOZILLA = "mozilla.exe"

    108. 

  108. Public Const APP_NAME_FIREFOX = "firefox.exe"

    109. 

  109. Public Const APP_NAME_THUNDERBIRD = "thunderbird.exe"

    110. 

  110. Public Const APP_NAME_OE = "msimn.exe"

    111. 

  111. 

    112. 

  112. Public Const APP_DIR_GAIM = ".gaim"

    113. 

  113. Public Const APP_DIR_YAHOO = "Yahoo! Messenger"

    114. 

  114. 

    115. 

  115. Public Const FILENAME_PREFIX = "\"

    116. 

  116. Public Const FILENAME_PREFIX_EN = "\en_"

    117. 

  117. Public Const FILENAME_PREFIX_FR = "\fr_"

    118. 

  118. Public Const FILENAME_PREFIX_DE = "\de_"

    119. 

  119. Public Const FILENAME_PREFIX_IT = "\it_"

    120. 

  120. Public Const FILENAME_PREFIX_ES = "\es_"

    121. 

  121. Public Const FILENAME_PREFIX_EL = "\el_"

    122. 

  122. Public Const FILENAME_PREFIX_BR = "\br_"

    123. 

  123. Public Const FILENAME_PREFIX_HU = "\hu_"

    124. 

  124. Public Const FILENAME_PREFIX_TR = "\tr_"

    125. 

  125. Public Const FILENAME_PREFIX_NL = "\nl_"

    126. 

  126. 

    127. 

  127. Public Const FILENAME_SUFFIX_BD_NET_BACKUP = "_network_backup_location.txt"

    128. 

  128. 

    129. 

  129. Public Const FILENAME_SCREENCAP_BMP = "\screen_cap.bmp"

    130. 

  130. Public Const FILENAME_SCREENCAP_JPG = "\screen_cap.jpg"

    131. 

  131. Public Const FILENAME_RECEIVED = "\received_file.tmp"

    132. 

  132. Public Const FILENAME_SERIALIZED = "\serialized_session.txt"

    133. 

  133. Public Const FILENAME_LOGO = "logo.png"

    134. 

  134. Public Const FILENAME_LOGO_OLD = "logo.gif"

    135. 

  135. Public Const FILENAME_INTRO = "intro.rtf"

    136. 

  136. Public Const FILENAME_BLOCKED = "blocked.rtf"

    137. 

  137. Public Const FILENAME_NOCREDIT = "nocredit.rtf"

    138. 

  138. Public Const FILENAME_SESSIONEND = "sessionend.rtf"

    139. 

  139. Public Const FILENAME_SESSIONPAUSED = "sessionpaused.rtf"

    140. 

  140. Public Const FILENAME_BACKGROUND = "\background_image"

    141. 

  141. Public Const FILENAME_DB_BACKUP = "\server_db_backup.mdb"

    142. 

  142. Public Const FILENAME_FOLLOW_IMAGE = "\follow_image.jpg"

    143. 

  143. 

    144. 

  144. Public Const FILENAME_SESSION_BATCH_START = "\session_batch_start.bat"

    145. 

  145. Public Const FILENAME_SESSION_BATCH_END = "\session_batch_end.bat"

    146. 

  146. 

    147. 

  147. Public Const FILENAME_CARD_TEMPLATE = "card_template.html"

    148. 

  148. Public Const FILENAME_CARD_TEMPLATE_FOLDER = "\Generated cards\"

    149. 

  149. 

    150. 

  150. Public Const MAX_NUM_CNX_ATTEMPTS = 3

    151. 

  151. 

    152. 

  152. Public Const SCREENCAP_COMPRESSION_RATIO = 90

    153. 

  153. 

    154. 

  154. Public Const MIN_SIZE_TEMP_FILE_STORAGE = 50000

    155. 

  155. 

    156. 

  156. Public Const MAX_SIZE_DB_INFO = 30

    157. 

  157. Public Const MAX_SIZE_DB_WARN = 60

    158. 

  158. Public Const MAX_SIZE_DB_CRIT = 120

    159. 

  159. 

    160. 

  160. Public Const URL_EMPTY_IE = "about:blank"

    161. 

  161. 

    162. 

  162. Public Const CONFIG_WIZARD_CLI_SYSTEM = 1

    163. 

  163. Public Const CONFIG_WIZARD_CLI_USER = 1

    164. 

  164. Public Const CONFIG_WIZARD_SERV_SYSTEM = 1

    165. 

  165. Public Const CONFIG_WIZARD_SERV_USER = 1

    166. 

  166. 

    167. 

  167. Public Const ADMIN_LOGON = "admin"

    168. 

  168. 

    169. 

  169. Public Const CLIENT_LOGIN_FORBIDDEN_CHARS = "\?/:*<>|"" '#~¨^`%$"

    170. 

  170. 

    171. 

  171. 

    172. 

  172. Public Const RES_NEW_LINE = "</resNewLine>"

    173. 

  173. Public Const RES_TAB = "</resTab>"

    174. 

  174. Public Const RES_INSERT_1 = "</resInsert1>"

    175. 

  175. Public Const RES_INSERT_2 = "</resInsert2>"

    176. 

  176. Public Const RES_INSERT_3 = "</resInsert3>"

    177. 

  177. Public Const RES_INSERT_4 = "</resInsert4>"

    178. 

  178. 

    179. 

  179. Public Const CURRENCY_SYMBOL_INSERT = "</currSymbol>"

    180. 

  180. 

    181. 

  181. 

    182. 

  182. Public Const WKSN_GUI_SIZE_NORMAL = 2415

    183. 

  183. Public Const WKSN_GUI_SIZE_SMALL = 1185

    184. 

  184. 

    185. 

  185. Public Const WKSN_BOOT_CNX_DELAY = 90000

    186. 

  186. Public Const WKSN_MIN_CNX_DELAY = 2000

    187. 

  187. Public Const WKSN_DEFAULT_START_DELAY = 30

    188. 

  188. Public Const WKSN_DEFAULT_SHUTDOWN_DELAY = 5

    189. 

  189. 

    190. 

  190. Public Const WKSN_LOCK_DRIVES_ALL = 67108863

    191. 

  191. Public Const WKSN_LOCK_DRIVES_NONE = 0

    192. 

  192. Public Const WKSN_LOCK_DRIVES_C_ONLY = 4

    193. 

  193. 

    194. 

  194. Public Const HIDDEN_LOGOFF_TIMEOUT = 5

    195. 

  195. 

    196. 

  196. Public Const CARD_GEN_ID = "</crdNumber>"

    197. 

  197. Public Const CARD_GEN_CREDIT = "</crdCredit>"

    198. 

  198. Public Const CARD_GEN_PRICE = "</crdPrice>"

    199. 

  199. Public Const CARD_GEN_LABEL = "</crdLabel>"

    200. 

  200. 

    201. 

  201. Public Const CARD_GEN_TITLE = "</crdPageTitle>"

    202. 

  202. Public Const CARD_GEN_HEADER = "</crdPageHeader>"

    203. 

  203. Public Const CARD_GEN_FOOTER = "</crdPageFooter>"

    204. 

  204. 

    205. 

  205. Public Const NUM_ROWS_STATS_PRINT = 50

    206. 

  206. 

    207. 

  207. Public Const PAPER_LONG_SIDE_A4 = 29.7

    208. 

  208. Public Const PAPER_SHORT_SIDE_A4 = 21

    209. 

  209. Public Const PAPER_LONG_SIDE_LR = 27.94

    210. 

  210. Public Const PAPER_SHORT_SIDE_LR = 21.59

    211. 

  211. Public Const TWIPS_PER_CM = 567

    212. 

  212. Public Const PRINT_MARGIN = 1.5

    213. 

  213. Public Const PRINT_MAX_PAGES_BEFORE_WARNING = 10

    214. 

  214. 

    215. 

  215. Public Const DEFAULT_PPSS_TIME_INCR = #12:05:00 AM#

    216. 

  216. Public Const MIN_PPSS_TIME_INCR = #12:00:01 AM#

    217. 

  217. 

    218. 

  218. Public Const DB_UPGRADE_SUFFIX = ".tmp_upgd.mdb"

    219. 

  219. 

    220. 

  220. Public Const SRV_HEARTBEAT_CHECK = 30

    221. 

  221. Public Const SRV_GUI_DISP_WKSN_NAME_COMPACT = vbUnchecked

    222. 

  222. 

    223. 

  223. Public Const SRV_MAX_NUM_WKSNS = 50

    224. 

  224. 

    225. 

  225. Public Const SRV_CLI_KEEP_CREDIT = vbChecked

    226. 

  226. Public Const SRV_CRD_KEEP_CREDIT = vbChecked

    227. 

  227. Public Const SRV_CONFIRM_POSTPAID_SESSIONS = vbUnchecked

    228. 

  228. Public Const SRV_HIDE_CUSTOMER_URL = vbUnchecked

    229. 

  229. 

    230. 

  230. Public Const WKSN_HEARTBEAT_CHECK = 30

    231. 

  231. Public Const WKSN_MUTE_VOL_WHEN_BLOCKED = vbChecked

    232. 

  232. Public Const WKSN_DISABLE_SESS_CLOSE_BUTTON = vbUnchecked

    233. 

  233. Public Const WKSN_HIDE_ALL_STATUS_WIN = vbUnchecked

    234. 

  234. Public Const WKSN_CHECK_SAME_PC_AS_SERVER = vbChecked

    235. 

  235. Public Const WKSN_REBOOT_ON_SESSION_END = vbUnchecked

    236. 

  236. Public Const WKSN_REGISTRY_FLUSH_INTERVAL = 30

    237. 

  237. Public gstrHelpers() As String

    238. 

  238. 

    239. 

  239. 

    240. 

  240. '*******************************************************************************

    241. 

  241. Public Sub subDefineConstants()

    242. 

  242. On Error Resume Next

    243. 

  243. 

    244. 

  244. End Sub

    245. 

  245. 

    246. 

  246. 

    247. 

  247. '*******************************************************************************

    248. 

  248. Public Sub subDefineHelpers()

    249. 

  249. Dim strLangPacks() As String

    250. 

  250. Dim i As Integer

    251. 

  251. On Error Resume Next

    252. 

  252. 

    253. 

  253.     strLangPacks = funFindLangPacks

    254. 

  254.     ReDim gstrHelpers(0)

    255. 

  255.     gstrHelpers(0) = funLoadResString(10039)

    256. 

  256.     Call subAddHelper("Anne Berthet")

    257. 

  257.     Call subAddHelper("Vasilis Charamidis")

    258. 

  258.     Call subAddHelper("Karen De Cokere")

    259. 

  259.     Call subAddHelper("Detlef Gerdes")

    260. 

  260.     Call subAddHelper("Fabian Goreth")

    261. 

  261.     Call subAddHelper("Daniel Lankoande")

    262. 

  262.     Call subAddHelper("Biba Nadjoari")

    263. 

  263.     Call subAddHelper("Bipin Patel")

    264. 

  264.     Call subAddHelper("Teninyala Tankoano")

    265. 

  265.     Call subAddHelper("Natama Thiombiano")

    266. 

  266.     Call subAddHelper("")

    267. 

  267.     Call subAddHelper(funLoadResString(10046))

    268. 

  268.     Call subAddHelper("Mark James (www.famfamfam.com)")

    269. 

  269.     Call subAddHelper("")

    270. 

  270.     Call subAddHelper(funLoadResString(10044))

    271. 

  271.     For i = 0 To UBound(strLangPacks, 2)

    272. 

  272.         If strLangPacks(2, i) <> MY_NAME Then Call subAddHelper(strLangPacks(4, i) & " - " & strLangPacks(2, i))

    273. 

  273.     Next i

    274. 

  274. End Sub

    275. 

  275. 

    276. 

  276. 

    277. 

  277. '*******************************************************************************

    278. 

  278. Private Sub subAddHelper(strHelperLine As String)

    279. 

  279. On Error Resume Next

    280. 

  280. 

    281. 

  281.     ReDim Preserve gstrHelpers(UBound(gstrHelpers) + 1)

    282. 

  282.     gstrHelpers(UBound(gstrHelpers)) = strHelperLine

    283. 

  283. End Sub
    284.