开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > 手机短信编程 > 查看源码
server.y
资源名称：smslink-0.44b.tar.gz　[点击查看]
上传用户：eo_sii
上传日期：2007-01-05
资源大小：91k
文件大小：39k
源码类别：

手机短信编程

开发平台：

Unix_Linux

server.y：源码内容
  1. %{
  2. /*==========================================================
  3.  * Program : server.y                      Project : smslink
  4.  * Author  : Philippe Andersson.
  5.  * Date    : 02/12/99
  6.  * Version : 0.35b
  7.  * Notice  : (c) Les Ateliers du Heron, 1998 for Scitex Europe, S.A.
  8.  * Comment : Parser module for SMS server
  9.  *
  10.  * Modification History :
  11.  * - 0.01a (19/08/98) : Initial release.
  12.  * - 0.02a (21/08/98) : Implemented "variable" assignment and
  13.  *   individual clearing.
  14.  * - 0.03a (21/08/98) : Added support for prompt.
  15.  * - 0.04a (21/08/98) : Added dequoting for strings.
  16.  * - 0.05a (22/08/98) : Added detailed help handling and individ.
  17.  *   show for items. Also implemented a separate exit function.
  18.  * - 0.06a (24/08/98) : Completed help system. Also stuffed the
  19.  *   conclude() function a bit.
  20.  * - 0.10a (27/08/98) : Merged the parser module into the main
  21.  *   sms_serv program. Moved yyerror () to server.l.
  22.  * - 0.11a (01/09/98) : Completed output migration to socket
  23.  *   (printf's to sprintf's).
  24.  * - 0.12a (01/09/98) : Start implementing restricted access
  25.  *   to non-sharable resources (modems) through semaphores.
  26.  * - 0.13a (03/09/98) : Completed implementation of crit.
  27.  *   sections through semaphores and shared memory.
  28.  * - 0.14a (06/09/98) : Inserted #ifdef's to have it compile
  29.  *   under RedHat (GNU Libc 6). Also implemented minimal validation
  30.  *   on message parameters (presence checking).
  31.  * - 0.15a (24/09/98) : Changed [LF] to [CR][LF] in messages
  32.  *   sent through the socket.
  33.  * - 0.16a (27/09/98) : Added positive acknowledgement for
  34.  *   variable setting ("Ok") for error checking on client side.
  35.  *   Improved some help messages in give_help().
  36.  * - 0.17a (01/10/98) : Added logging detail (variable setting).
  37.  * - 0.18a (19/10/98) : Changed 'struct modem_def' to 'struct
  38.  *   gsms_def' and 'modemsdef' to 'gsmdevices'. Cosmetics.
  39.  * - 0.20a (20/10/98) : Merge the 'spit.c' source into this.
  40.  *   Implement the actual SMS sending code.
  41.  * - 0.21a (20/10/98) : Implemented 'devicelist' command.
  42.  * - 0.22a (21/10/98) : Added a signal trap for SIGPIPE, in
  43.  *   order to avoid getting locked GSM modules when a client
  44.  *   dies or quits unexpectedly (in the critical section).
  45.  * ++++ Switched to Beta ++++
  46.  * - 0.23b (21/10/98) : Added deslashdot() function to clean
  47.  *   phone numbers before sending them to the GSM.
  48.  * - 0.24b (22/10/98) : Improved SIGPIPE handling by adding
  49.  *   'instance_is_set' variable telling whether the value of
  50.  *   'instance' should be considered relevant.
  51.  * - 0.25b (23/10/98) : Added handling for 'user' parameter,
  52.  *   and improved checking on phone number validity. 'user'
  53.  *   parameter also be made required. Corrected timeout values
  54.  *   in PIN / PUK transmission, and a bug in CSCA-related sprintf
  55.  *   format.
  56.  * - 0.26b (05/11/98) : Corrected an inconsistency in the error
  57.  *   message related to catching SIGPIPE signal.
  58.  * - 0.27b (13/12/98) : Moved to sigaction() signal handling.
  59.  *   Added handler for SIGTERM in crit. section. Included
  60.  *   handling of new member "owner" in struct gsms_def.
  61.  * - 0.28b (14/12/98) : Corrected a boundary-checking bug in the
  62.  *   search for a free GSM instance loop.
  63.  * - 0.29b (16/05/99) : Added "uptime" command.
  64.  * - 0.30b (18/05/99) : Refined the uptime display. Solved a
  65.  *   bug related to the buffer length in "help" command.
  66.  * - 0.31b (06/06/99) : Added "days" counter to uptime display.
  67.  *   Adapted on-line help accordingly. Also added a command to 
  68.  *   turn off notification for incoming SMS messages in send_sms().
  69.  * - 0.32b (28/06/99) : In send_sms(), moved the AT+CNMI command
  70.  *   after the PIN check routine. PIN-Activated SIM is required
  71.  *   for AT+CNMI.
  72.  * - 0.33b (29/06/99) : Moved 3 functions over to stuff.c and
  73.  *   made them public (misc. string handling functions).
  74.  * - 0.34b (20/09/99) : Improved the "show" command to also
  75.  *   display the current length of the message string.
  76.  * - 0.35b (02/12/99) : Improved default SMSC handling in
  77.  *   send_sms(). Now takes its default value from the configuration
  78.  *   file only (/etc/gsmdevices). Adapted on-line help accordingly.
  79.  *   Added "aclist" command and related help. Cosmetics.
  80.  *========================================================*/
  82. /* must be defined before the usual includes (stdlib.h) */
  83. #define RAND_MAX 9999   /* max val. for random PIN */
  85. #include <stdio.h>
  86. #include <stdlib.h>                  /* for errno & div() */
  87. #ifdef LINUX_LC6
  88. #  include <errno.h>
  89. #endif                                /* #ifdef LINUX_LC6 */
  90. #include <strings.h>
  91. #include <signal.h>
  92. #include <time.h>                       /* for difftime() */
  93. #include <math.h>                            /* for log() */
  94. #include <netinet/in.h>                    /* for ntohl() */
  95. #include <termios.h>         /* for baudrates definitions */
  96. #include <dial/modems.h>           /* requires 'libmodem' */
  98. #include "sms_serv.h"
  100. #define min(a, b)  ( a < b ? a : b )
  102. /*-------------------------------------External variables */
  103. /* for lex & yacc/bison */
  104. extern int errno;
  105. extern int yyleng;
  106. extern char *yytext;
  107. extern char myinput[];
  108. extern char *myinputptr;          /* cur. pos. in myinput */
  109. extern char *myinputlim;                   /* end of data */
  111. /* program specific */
  112. extern int csfd;                      /* client socket FD */
  113. extern char *buffer;    /* scratch space for C/S dialogue */
  114. extern struct symbols symbols;
  115. extern int ngsmdevs;       /* num. configured GSM devices */
  117. /*---------------------------------------Global variables */
  118. char *paramname = NULL;
  119. char *idname = NULL;
  120. /* char *buffer = NULL; */
  121. int i;
  122. int instance;
  123. int instance_is_set = FALSE;
  124. int vtype;
  126. /*------------------------------------For the help system */
  127. /* Be carefull to match the defines here with the array below */
  128. #define H_HELP 0
  129. #define H_CLEAR 1
  130. #define H_SET 2
  131. #define H_SEND 3
  132. #define H_QUIT 4
  133. #define H_EXIT 5
  134. #define H_BYE 6
  135. #define H_SHOW 7
  136. #define H_STATS 8
  137. #define H_DEVLIST 9
  138. #define H_UPTIME        10
  139. #define H_ACLIST        11
  140. #define H_MAX 12            /* keeps (last + 1) */
  142. char *help_topics[(H_MAX + 1)] = {"help",
  143.                                   "clear",
  144.                   "set",
  145.                   "send",
  146.           "quit",
  147.           "exit",
  148.           "bye",
  149.           "show",
  150.           "stats",
  151.           "devicelist",
  152.           "uptime",
  153.   "aclist",
  154.           NULL};
  156. /*----------------------------Local Function declarations */
  157. int shiftleft (char *, int);
  158. int dequote (char *);
  159. int deslashdot (char *);
  160. int give_help (char *);
  161. int help_lookup (char *);
  162. int load_help ();
  163. void free_help ();
  164. void print_device_list ();
  165. void print_access_list ();
  166. void compute_uptime ();
  167. int validate_msg_param (struct symbols *);
  168. int send_sms (struct gsms_def *);
  169. void sms_send_wrapper ();
  170. void unlock_gsm ();
  171. void conclude ();
  173. /*========================================================*/
  174. %}
  176. %union {
  177.   char *string;          /* string buffer for token value */
  178. }
  180. /* commands */
  181. %token T_HELP
  182. %token T_CLEAR
  183. %token T_SEND
  184. %token T_DEVLIST
  185. %token T_ACLIST
  186. %token T_UPTIME
  187. %token T_SET
  188. %token T_QUIT
  189. %token T_STATS
  190. %token T_SHOW
  192. /* others */
  193. %token T_PARAM
  194. %token <string> T_TEXT
  195. %token <string> T_PHNUM
  196. %token T_NAME
  198. %type <string> value
  200. %%
  202. statement: single_command
  203. | param_command
  204. | assignment
  205. | /* allow empty input */
  206. ;
  208. single_command: T_HELP {
  209. sprintf (buffer, "rnSMS Server Helprn"
  210.         "===============rn"
  211.         "he | help [command] : displays helprn"
  212.         "set item = value    : sets message parametersrn"
  213.         "clear [item]        : clears item (all items)rn"
  214.         "send                : sends SMSrn");
  215. tellsock (csfd, buffer);
  216. sprintf (buffer, "dl | devicelist     : lists configured GSM devicesrn"
  217. "acl | aclist        : dumps the registered ACL's to screenrn"
  218. "ut | uptime         : displays server uptimern"
  219.         "quit | exit | bye   : closes connection and exitsrn"
  220.         "stats               : displays server statsrn"
  221.         "sh | show [item]    : displays item (all items)rnrn");
  222. tellsock (csfd, buffer);
  223. }
  224. | T_CLEAR {
  225. strcpy (symbols.smsc, DEFAULTSMSC);
  226. symbols.destgsm[0] = '';
  227. symbols.user[0] = '';
  228. symbols.message[0] = '';
  229. sprintf (buffer, "All items cleared...rn");
  230. tellsock (csfd, buffer);
  231. }
  232. | T_SEND {
  233. if (validate_msg_param (&symbols))
  234.   sms_send_wrapper ();
  235. else {
  236.   sprintf (buffer, "ERROR: Not all required items are filled in.rn");
  237.   tellsock (csfd, buffer);
  238. }
  239. }
  240. | T_DEVLIST {
  241. print_device_list ();
  242. }
  243. | T_ACLIST {
  244. print_access_list ();
  245. }
  246. | T_UPTIME {
  247. compute_uptime ();
  248. }
  249. | T_STATS {
  250. sprintf (buffer, "Statistics are not implemented yet.rn");
  251. tellsock (csfd, buffer);
  252. }
  253. | T_SHOW {
  254. sprintf (buffer, "rnCurrent settings:rn"); 
  255. tellsock (csfd, buffer);
  256. sprintf (buffer, "smsc = [%s]rn", symbols.smsc);
  257. tellsock (csfd, buffer);
  258. sprintf (buffer, "user = [%s]rn", symbols.user);
  259. tellsock (csfd, buffer);
  260. sprintf (buffer, "dest = [%s]rn", symbols.destgsm);
  261. tellsock (csfd, buffer);
  262. sprintf (buffer, "msg  = [%s] - Length: %drnrn", 
  263.          symbols.message, strlen (symbols.message));
  264. tellsock (csfd, buffer);
  265. }
  266. | T_QUIT { conclude (); }
  267. ;
  269. param_command:  T_HELP parameter
  270. {
  271. give_help (paramname);
  272. free (paramname);
  273. paramname = NULL;
  274. }
  275. | T_SHOW parameter
  276. {
  277. if (strcmp (paramname, "msg") == 0) {
  278.   free (paramname);
  279.   paramname = (char *) malloc (8 * sizeof (char));
  280.   strcpy (paramname, "message");
  281. }
  282.   
  283. if (strcmp (paramname, "smsc") == 0) {
  284.   sprintf (buffer, "smsc = [%s]rn", symbols.smsc);
  285.   tellsock (csfd, buffer);
  286. }
  287. else if (strcmp (paramname, "user") == 0) {
  288.   sprintf (buffer, "user = [%s]rn", symbols.user);
  289.   tellsock (csfd, buffer);
  290. }
  291. else if (strcmp (paramname, "dest") == 0) {
  292.   sprintf (buffer, "dest = [%s]rn", symbols.destgsm);
  293.   tellsock (csfd, buffer);
  294. }
  295. else if (strcmp (paramname, "message") == 0) {
  296.   sprintf (buffer, "msg  = [%s] - Length: %drn", 
  297.            symbols.message, strlen (symbols.message));
  298.   tellsock (csfd, buffer);
  299. }
  300. else {
  301.   sprintf (buffer, "ERROR: unknown item <%s>rn", paramname);
  302.   tellsock (csfd, buffer);
  303. }
  305. free (paramname);
  306. paramname = NULL;
  307. }
  308. | T_CLEAR parameter
  309. {
  310. if (strcmp (paramname, "msg") == 0) {
  311.   free (paramname);
  312.   paramname = (char *) malloc (8 * sizeof (char));
  313.   strcpy (paramname, "message");
  314. }
  315.   
  316. if (strcmp (paramname, "smsc") == 0) {
  317.   strcpy (symbols.smsc, DEFAULTSMSC);
  318. }
  319. else if (strcmp (paramname, "user") == 0) {
  320.   symbols.user[0] = '';
  321. }
  322. else if (strcmp (paramname, "dest") == 0) {
  323.   symbols.destgsm[0] = '';
  324. }
  325. else if (strcmp (paramname, "message") == 0) {
  326.   symbols.message[0] = '';
  327. }
  328. else {
  329.   sprintf (buffer, "ERROR: unknown item <%s>rn", paramname);
  330.   tellsock (csfd, buffer);
  331. }
  332. free (paramname);
  333. paramname = NULL;
  334. }
  335. ;
  337. assignment: T_SET variable '=' value
  338. {
  339. if (strcmp (idname, "msg") == 0) {
  340.   free (idname);
  341.   idname = (char *) malloc (8 * sizeof (char));
  342.   strcpy (idname, "message");
  343. }
  344.   
  345. if (strcmp (idname, "smsc") == 0) {
  346.   /* Assign smsc */
  347.   if (strlen ($4) > MAXPHNUMLEN) {
  348.     strncpy (symbols.smsc, $4, MAXPHNUMLEN);
  349.     symbols.smsc[MAXPHNUMLEN] = '';
  350.     sprintf (buffer, "WARNING: max. smsc length is %d, value now truncatedrn",
  351.            MAXPHNUMLEN);
  352.             tellsock (csfd, buffer);
  353.   }
  354.   else
  355.     strcpy (symbols.smsc, $4);
  356.   sprintf (buffer, "Okrn");
  357.   tellsock (csfd, buffer);
  358.                                   syslog ((FACILITY | LOG_NOTICE),
  359.          "got new smsc <%s>.", symbols.smsc);
  360. }
  362. else if (strcmp (idname, "user") == 0) {
  363.   /* Assign user */
  364.   if (strlen ($4) > MAXUIDLEN) {
  365.     strncpy (symbols.user, $4, MAXUIDLEN);
  366.     symbols.user[MAXUIDLEN] = '';
  367.     sprintf (buffer, "WARNING: max. sender ID length is %d, value now truncatedrn",
  368.            MAXUIDLEN);
  369.             tellsock (csfd, buffer);
  370.   }
  371.   else
  372.     strcpy (symbols.user, $4);
  373.   sprintf (buffer, "Okrn");
  374.   tellsock (csfd, buffer);
  375.                                   syslog ((FACILITY | LOG_NOTICE),
  376.          "sender ID is [%s].", symbols.user);
  377. }
  379. else if (strcmp (idname, "dest") == 0) {
  380.   /* Check whether we have a T_PHNUM */
  381.   if (vtype != T_PHNUM) {
  382.     sprintf (buffer, "Expected a phone numberrn");
  383.     tellsock (csfd, buffer);
  384.   }
  385.   else {
  386.     /* Assign dest */
  387.     if (strlen ($4) > MAXPHNUMLEN) {
  388.       strncpy (symbols.destgsm, $4, MAXPHNUMLEN);
  389.       symbols.destgsm[MAXPHNUMLEN] = '';
  390.       sprintf (buffer, "WARNING: max. dest length is %d, value now truncatedrn",
  391.              MAXPHNUMLEN);
  392.               tellsock (csfd, buffer);
  393.     }
  394.     else {
  395.       strcpy (symbols.destgsm, $4);
  396.     }
  397.     sprintf (buffer, "Okrn");
  398.     tellsock (csfd, buffer);
  399.                                     syslog ((FACILITY | LOG_NOTICE),
  400.            "got destgsm <%s>.", symbols.destgsm);
  401.           }
  402. }
  404. else if (strcmp (idname, "message") == 0) {
  405.   /* Assign message */
  406.   if (strlen ($4) > MAXMSGLEN) {
  407.     strncpy (symbols.message, $4, MAXMSGLEN);
  408.     symbols.message[MAXMSGLEN] = '';
  409.     sprintf (buffer, "WARNING: max. message length is %d, value now truncatedrn",
  410.            MAXMSGLEN);
  411.             tellsock (csfd, buffer);
  412.   }
  413.   else
  414.     strcpy (symbols.message, $4);
  415.   sprintf (buffer, "Okrn");
  416.   tellsock (csfd, buffer);
  417.                                   syslog ((FACILITY | LOG_NOTICE),
  418.          "message to transmit is set.");
  419. }
  421. else {
  422.   sprintf (buffer, "ERROR: unknown item <%s>rn", idname);
  423.   tellsock (csfd, buffer);
  424. }
  426. free (idname);
  427. idname = NULL;
  428. free ($4);
  429. }
  430. ;
  432. parameter: T_PARAM { if (paramname)
  433.     free (paramname);
  434. paramname = (char *) malloc ((yyleng + 1) * sizeof (char));
  435. paramname[0] = '';
  436. strcpy (paramname, yytext);
  437. }
  438. ;
  440. variable: T_NAME { if (idname)
  441.     free (idname);
  442.  idname = (char *) malloc ((yyleng + 1) * sizeof (char));
  443.  idname[0] = '';
  444.  strcpy (idname, yytext);
  445.  }
  446. ;
  448. value: T_TEXT {
  449. /* let's dequote here */
  450. dequote ($1);
  451. vtype = T_TEXT;
  452. }
  453. | T_PHNUM {
  454. /* let's dequote and remove [/.] here */
  455. dequote ($1);
  456. deslashdot ($1);
  457. vtype = T_PHNUM;
  458. }
  459. ;
  461. %%
  462. /*########################################################*/
  463. /* Main entry point for the parser module                 */
  464. int parser ()
  465. {
  466.   /*======================================Initialisations */
  468.   /*==============================Main Call to the Parser */
  469.   yyparse ();
  470. }                                            /* parser () */
  471. /*########################################################*/
  473. /*========================================================*/
  474. /*                     Local Functions                    */
  475. /*========================================================*/
  476. int my_yyinput (buf, max_size)
  477. char *buf;
  478. int max_size;
  479. {
  480.   int n = min (max_size, (myinputlim - myinputptr));
  481.   
  482.   if (n > 0) {
  483.     memcpy (buf, myinputptr, n);
  484.     myinputptr += n;
  485.   }
  486.   
  487.   return (n);
  488. }                                        /* my_yyinput () */
  489. /*========================================================*/
  490. int give_help (p)
  491. char *p;
  492. {
  493.   int topic_id;
  495.   topic_id = help_lookup (p);
  497.   switch (topic_id) {
  498.     case H_HELP: {
  499.       sprintf (buffer, "rnSyntax: he | help [command]rn"
  500.               "Used with no option, gives a list of all available commands.rn"
  501.               "When a command is provided, gives detailed help on this command.rnrn");
  502.       tellsock (csfd, buffer);
  503.       break;
  504.     }
  505.     case H_CLEAR: {
  506.       sprintf (buffer, "rnSyntax: clear [item]rn"
  507.               "Where [item] is one of:rn"
  508.               "- smsc: SMS Message Center (reverts it to "%s")rn"
  509.               "- user: sender identification (user name) for logging purposesrn"
  510.               "- dest: destination GSM numberrn"
  511.               "- message | msg: message text to be sent to destinationrn"
  512.               "Used with no option, clears all items.rn"
  513.               "When an item is specified, clears only this one.rnrn",
  514.       DEFAULTSMSC);
  515.       tellsock (csfd, buffer);
  516.       break;
  517.     }
  518.     case H_SET: {
  519.       sprintf (buffer, "rnSyntax: set item = valuern"
  520.               "Where [item] is one of:rn"
  521.               "- smsc: SMS Message Center (see your provider or use default)rn"
  522.               "- user: sender identification (user name) for logging purposesrn"
  523.               "- dest: destination GSM numberrn"
  524.               "- message | msg: message text to be sent to destinationrnrn");
  525.       tellsock (csfd, buffer);
  526.       sprintf (buffer, "Note 1: text must be quoted, GSM numbers can be quoted, GSM numbers canrn"
  527.               "contain any of [/.-+].rnrn"
  528.       "Note 2: for SMSC, a value of "%s" means the default SMSCrn"
  529.       "as defined per device in %s. Set it to a valid phonern"
  530.       "number to use a different one. Use the "clear" command to reset itrn"
  531.       "to "%s".rnrn", DEFAULTSMSC, GSMDEVFILE, DEFAULTSMSC);
  532.       tellsock (csfd, buffer);
  533.       break;
  534.     }
  535.     case H_SEND: {
  536.       sprintf (buffer, "rnSyntax: sendrn"
  537.               "When all parameters are filled in as required, use this command torn"
  538.               "send the SMS message. You'll wait during the time it takes to send.rn"
  539.               "An acknowlegment will be returned when done.rnrn");
  540.       tellsock (csfd, buffer);
  541.       break;
  542.     }
  543.     case H_QUIT: {
  544.       /* just jump to next */
  545.     }
  546.     case H_EXIT: {
  547.       /* just jump to next */
  548.     }
  549.     case H_BYE: {
  550.       sprintf (buffer, "rnSyntax: quit | exit | byern"
  551.               "Closes the connection and leaves the program.rnrn");
  552.       tellsock (csfd, buffer);
  553.       break;
  554.     }
  555.     case H_SHOW: {
  556.       sprintf (buffer, "rnSyntax: sh | show [item]rn"
  557.               "Where [item] is one of:rn"
  558.               "- smsc: SMS Message Center (see your provider or use default)rn"
  559.               "- user: sender identification (user name) for logging purposesrn"
  560.               "- dest: destination GSM numberrn"
  561.               "- message | msg: message text to be sent to destinationrn"
  562.               "Used without parameter, the command displays the current settingrn"
  563.               "for all items. When an item is specified, only this one isrn"
  564.               "displayed.rnrn");
  565.       tellsock (csfd, buffer);
  566.       break;
  567.     }
  568.     case H_STATS: {
  569.       sprintf (buffer, "rnStatistics are not implemented yet.rnrn");
  570.       tellsock (csfd, buffer);
  571.       break;
  572.     }
  573.     case H_DEVLIST: {
  574.       sprintf (buffer, "rnSyntax: devicelist | dlrn"
  575.               "Lists registered GSM devices.rn"
  576.       "Those are usually configured through <%s>.rn"
  577.       "The fields provided in the output are:rn", GSMDEVFILE);
  578.       tellsock (csfd, buffer);
  579.       sprintf (buffer, "- owner:    pid owning a lock on it (0 = not locked)rn"
  580.       "- device:   Unix device namern"
  581.       "- CallerID: the GSM's network addr. (its phone number)rn"
  582.       "- Def SCA:  the default Service Center Addr. (or SMSC)rn"
  583.       "- Provider: Network Provider Namernrn");
  584.       tellsock (csfd, buffer);
  585.       break;
  586.     }
  587.     case H_ACLIST: {
  588.       sprintf (buffer, "rnSyntax: aclist | aclrn"
  589.               "Dumps the registered ACL entries to screen.rn"
  590.       "ACL's are Access Control Lists that define which machinern"
  591.       "is allowed to use the server and which isn't. ACL's arern"
  592.       "usually configured through <%s>.rn"
  593.       "man 5 gsmaccess for more details.rnrn", ACCESSFILE);
  594.       tellsock (csfd, buffer);
  595.       break;
  596.     }
  597.     case H_UPTIME: {
  598.       sprintf (buffer, "rnSyntax: uptime | utrn"
  599.               "Displays the SMS server process uptime in days, hours, rn"
  600.       "minutes and seconds.rnrn");
  601.       tellsock (csfd, buffer);
  602.       break;
  603.     }
  604.     default: {
  605.       sprintf (buffer, "ERROR: don't know about <%s>. Can't help.rn", p);
  606.       tellsock (csfd, buffer);
  607.       break;
  608.     }
  609.   }                                  /* switch (topic_id) */
  610.   return (topic_id);
  611. }                                         /* give_help () */
  612. /*========================================================*/
  613. int help_lookup (p)
  614. char *p;
  615. {
  616.   int i;
  618.   for (i = 0; (help_topics[i] != NULL) && (strcmp (p, help_topics[i]) != 0); i++);
  619.   return (i);
  620. }                                       /* help_lookup () */
  621. /*========================================================*/
  622. void print_device_list ()
  623. {
  624.   extern int shmem_sem;
  625.   extern struct gsms_def *gsmdevices;
  627.   sprintf (buffer, "rn"
  628.                    "L | Owner | Device        | CallerID       | Def. SCA       | Provider   rn"
  629.                    "--+-------+---------------+----------------+----------------+------------rn");
  630.   tellsock (csfd, buffer);
  631.   
  632.   /* get exclusive access to shared mem. for safety's sake */
  633.   if (sem_wait (shmem_sem) == -1)
  634.     syserr ("sms_serv: failed to wait on shared mem. semaphore");
  636.   /* ---- Begin Crit. Sect. #4 ---- */
  637.   for (i = 0; i < ngsmdevs; i++) {
  638.     sprintf (buffer, "%s | %5d | /dev/%-8s | %-14s | %-14s | %srn",
  639.              (gsmdevices[i].free ? "." : "*"),
  640.      gsmdevices[i].owner,
  641.      gsmdevices[i].device,
  642.              gsmdevices[i].addr,
  643.              gsmdevices[i].defsca,
  644.              gsmdevices[i].provider);
  645.     tellsock (csfd, buffer);
  646.   }                                          /* for (i... */
  648.   /* leave crit. sect. */
  649.   if (sem_signal (shmem_sem) == -1)
  650.     syserr ("sms_serv: can't signal shared mem. semaphore");
  651.   /* ---- End Crit. Sect. #4 ---- */
  652.   
  653.   sprintf (buffer, "rn");
  654.   tellsock (csfd, buffer);
  655. }                                 /* print_device_list () */
  656. /*========================================================*/
  657. void print_access_list ()
  658. {
  659.   extern acl_list gsm_acl;
  660.   struct acl_item *cursor;
  661.   unsigned long nomask;
  662.   int netmask;
  663.   double power;
  665.   sprintf (buffer, "rnCurrent Access Control List:rn"
  666.           "============================rn");
  667.   tellsock (csfd, buffer);
  669.   if (!empty_acl_list (gsm_acl)) {
  670.     cursor = gsm_acl.head;
  671.     /* convert mask value */
  672.     nomask = ntohl (cursor->nomask);
  673.     if (nomask < (unsigned long) 4294967295) {
  674.       nomask++;
  675.       power = (log (nomask) / log (2));
  676.       netmask = (32 - power);
  677.     }
  678.     else {
  679.       netmask = 0;
  680.     }
  681.     sprintf (buffer, "%-5s : [%s] / %drn", 
  682.             (cursor->action == ACL_ALLOW) ? "ALLOW" : "DENY", 
  683.     inet_ntoa (cursor->network),
  684.             netmask);
  685.     tellsock (csfd, buffer);
  686.     while (cursor->next != NULL) {
  687.       cursor = cursor->next;
  688.       /* convert mask value */
  689.       nomask = ntohl (cursor->nomask);
  690.       if (nomask < (unsigned long) 4294967295) {
  691. nomask++;
  692. power = (log (nomask) / log (2));
  693. netmask = (32 - power);
  694.       }
  695.       else {
  696. netmask = 0;
  697.       }
  698.       sprintf (buffer, "%-5s : [%s] / %drn", 
  699.               (cursor->action == ACL_ALLOW) ? "ALLOW" : "DENY", 
  700.       inet_ntoa (cursor->network),
  701.               netmask);
  702.     tellsock (csfd, buffer);
  703.     }
  704.   }
  705.   else {
  706.     sprintf (buffer, "Nothing to print: empty 'ACL' list.rn");
  707.     tellsock (csfd, buffer);
  708.   }
  710.   sprintf (buffer, "rn");
  711.   tellsock (csfd, buffer);
  712. }                                 /* print_access_list () */
  713. /*========================================================*/
  714. void compute_uptime ()
  715. {
  716.   extern time_t starttime;
  717.   double upsecs;
  718.   int days;
  719.   int hours;
  720.   int rem;
  721.   div_t dt;
  723.   /* compute the uptime in seconds */
  724.   upsecs = difftime (time (NULL), starttime);
  725.   
  726.   /* first extract the number of days */
  727.   dt = div ((int) upsecs, 86400);
  728.   days = dt.quot;
  729.   rem = dt.rem;
  731.   /* now extract the number of hours */
  732.   dt = div (rem, 3600);
  733.   hours = dt.quot;
  734.   rem = dt.rem;
  735.   
  736.   /* then extract the number of minutes and seconds */
  737.   dt = div (rem, 60);
  738.   
  739.   sprintf (buffer, "rnServer uptime: %d days %d hours %d min %d secs.rnrn", 
  740.           days, hours, dt.quot, dt.rem);
  741.   tellsock (csfd, buffer);
  742. }                                    /* compute_uptime () */
  743. /*========================================================*/
  744. int validate_msg_param (struct symbols *msg)
  745. {
  746.   int retval;
  748.   retval = ((msg->smsc[0] != '') && (msg->destgsm[0] != '') && 
  749.            (msg->message[0] != '') && (msg->user[0] != ''));
  750.   return (retval);
  751. }                                /* validate_msg_param () */
  752. /*========================================================*/
  753. int send_sms (struct gsms_def *gsm)
  754. {
  755.   int fd, retval = 0;
  756.   char *scratch;
  757.   char *ptr;
  758.   char *cmsgid;
  759.   int nread;
  760.   int newpin;
  761.   int retries;
  762.   int msgid;
  763.   char reqsca[MAXPHNUMLEN + 1];
  764.   
  765.   scratch = (char *) malloc ((BIGBUFF + 1) * sizeof (char));
  766.   if (!scratch)
  767.     syserr ("sms_serv: can't allocate scratch space");
  768.   memset (scratch, 0, (BIGBUFF + 1));
  769.   
  770.   /* open modem line */
  771.   fd = blopen_mdm_line (gsm->device, B9600);
  772.   if (fd < 0) {
  773.     syslog ((FACILITY | LOG_ERR), "call to blopen_mdm_line() failed.");
  774.     mdmperror ("sms_serv: blopen_mdm_line() failed");
  775.     free (scratch);
  776.     return (-1);
  777.   }
  778.   
  779.   /*------------set GSM to "verbose" error reporting mode */
  780.   sprintf (scratch, "at+cmee=1r");
  781.   tell_gsm (fd, scratch);
  782.   memset (scratch, 0, (BIGBUFF + 1));
  783.   if (get_gsm_answer (fd, scratch, BIGBUFF, 1)) {
  784.     tellsock (csfd, scratch);
  785.     /* check for "OK" */
  786.     if (strstr (scratch, "OK") == NULL) {
  787.       mdm_unlock (mdmopendevice);
  788.       hangup (fd);
  789.       free (scratch);
  790.       syslog ((FACILITY | LOG_ERR), "error after sending AT+CMEE command.");
  791.       mdmperror ("sms_serv: error after sending AT+CMEE command");
  792.       return (-1);
  793.     }
  794.   }
  795.   else {
  796.     mdm_unlock (mdmopendevice);
  797.     hangup (fd);
  798.     free (scratch);
  799.     syslog ((FACILITY | LOG_ERR), "GSM module not responding.");
  800.     mdmperror ("sms_serv: GSM not responding");
  801.     return (-1);
  802.   }
  803.   
  804.   /*---------------------------then, check for SIM status */
  805.   sprintf (scratch, "at+cpin?r");
  806.   tell_gsm (fd, scratch);
  807.   memset (scratch, 0, (BIGBUFF + 1));
  808.   if (get_gsm_answer (fd, scratch, BIGBUFF, 1)) {
  809.     tellsock (csfd, scratch);
  810.     /* check for "READY" -- if not, make it so */
  811.     retries = MAXATTEMPTS;
  812.     while ((strstr (scratch, "READY") == NULL) && retries--) {
  813.       /* not ready yet -> asking for PIN or PUK ? */
  814.       if (strstr (scratch, "SIM PIN")) {
  815.         /* send PIN */
  816. sprintf (scratch, "at+cpin=%sr", gsm->PIN);
  817. tell_gsm (fd, scratch);
  818. memset (scratch, 0, (BIGBUFF + 1));
  819. if (get_gsm_answer (fd, scratch, BIGBUFF, 15)) {
  820.           tellsock (csfd, scratch);
  821.   /* check for "OK" */
  822.   if (strstr (scratch, "OK") == NULL) {
  823.     mdm_unlock (mdmopendevice);
  824.     hangup (fd);
  825.     free (scratch);
  826.             syslog ((FACILITY | LOG_ERR), "can't send PIN to GSM or wrong PIN.");
  827.     mdmperror ("sms_serv: can't send PIN to GSM or wrong PIN");
  828.     return (-1);
  829.   }
  830. }
  831. else {
  832.   mdm_unlock (mdmopendevice);
  833.   hangup (fd);
  834.   free (scratch);
  835.           syslog ((FACILITY | LOG_ERR), "GSM module not responding.");
  836.   mdmperror ("sms_serv: GSM not responding");
  837.   return (-1);
  838. }
  839.       }
  840.       else if (strstr (scratch, "SIM PUK")) {
  841.         /* send PUK - set new random PIN */
  842. srand (getpid ());
  843. newpin = rand ();
  844. syslog ((FACILITY | LOG_WARNING), "I'll try to set new PIN for </dev/%s>.", gsm->device);
  845. sprintf (scratch, "at+cpin="%s","%04d"r", gsm->PUK, newpin);
  846. tell_gsm (fd, scratch);
  847. memset (scratch, 0, (BIGBUFF + 1));
  848. if (get_gsm_answer (fd, scratch, BIGBUFF, 20)) {
  849.           tellsock (csfd, scratch);
  850.   /* check for "OK" */
  851.   if (strstr (scratch, "OK") == NULL) {
  852.     mdm_unlock (mdmopendevice);
  853.     hangup (fd);
  854.     free (scratch);
  855.             syslog ((FACILITY | LOG_ERR), "can't send PUK to GSM or wrong PUK.");
  856.     mdmperror ("sms_serv: can't send PUK to GSM or wrong PUK");
  857.     return (-1);
  858.   }
  859. }
  860. else {
  861.   mdm_unlock (mdmopendevice);
  862.   hangup (fd);
  863.   free (scratch);
  864.           syslog ((FACILITY | LOG_ERR), "GSM module not responding.");
  865.   mdmperror ("sms_serv: GSM not responding");
  866.   return (-1);
  867. }
  868. /* store new PIN in conf. file (GSMDEVFILE) */
  869. /* log it */
  870. syslog ((FACILITY | LOG_WARNING), "new PIN for </dev/%s> set to [%04d].", gsm->device, newpin);
  871.       }
  872.       else {                                     /* ERROR */
  873. mdm_unlock (mdmopendevice);
  874. hangup (fd);
  875. free (scratch);
  876.         syslog ((FACILITY | LOG_ERR), "unable to get SIM status info.");
  877. mdmperror ("sms_serv: unable to get SIM status info");
  878. return (-1);
  879.       }                 /* if "PIN" elseif "PUK" else ... */
  880.       /* query the status again */
  881.       sprintf (scratch, "at+cpin?r");
  882.       tell_gsm (fd, scratch);
  883.       memset (scratch, 0, (BIGBUFF + 1));
  884.       if (!get_gsm_answer (fd, scratch, BIGBUFF, 1)) {
  885. mdm_unlock (mdmopendevice);
  886. hangup (fd);
  887. free (scratch);
  888.         syslog ((FACILITY | LOG_ERR), "GSM module not responding.");
  889. mdmperror ("sms_serv: GSM not responding");
  890. return (-1);
  891.       }
  892.       tellsock (csfd, scratch);
  893.     }                                 /* while (!"READY") */
  894.   }
  895.   else {
  896.     mdm_unlock (mdmopendevice);
  897.     hangup (fd);
  898.     free (scratch);
  899.     syslog ((FACILITY | LOG_ERR), "GSM module not responding.");
  900.     mdmperror ("sms_serv: GSM not responding");
  901.     return (-1);
  902.   }
  903.   
  904.   /*------------set "no notify for incoming SMS messages" */
  905.   sprintf (scratch, "at+cnmi=0,0,0,0,0r");
  906.   tell_gsm (fd, scratch);
  907.   memset (scratch, 0, (BIGBUFF + 1));
  908.   if (get_gsm_answer (fd, scratch, BIGBUFF, 1)) {
  909.     tellsock (csfd, scratch);
  910.     /* check for "OK" */
  911.     if (strstr (scratch, "OK") == NULL) {
  912.       mdm_unlock (mdmopendevice);
  913.       hangup (fd);
  914.       free (scratch);
  915.       syslog ((FACILITY | LOG_ERR), "error after sending AT+CNMI command.");
  916.       mdmperror ("sms_serv: error after sending AT+CNMI command");
  917.       return (-1);
  918.     }
  919.   }
  920.   else {
  921.     mdm_unlock (mdmopendevice);
  922.     hangup (fd);
  923.     free (scratch);
  924.     syslog ((FACILITY | LOG_ERR), "GSM module not responding.");
  925.     mdmperror ("sms_serv: GSM not responding");
  926.     return (-1);
  927.   }
  928.   
  929.   /*--------------Check stored SCA against requested SMSC */
  930.   /* Which SMSC do we require ? */
  931.   if (strcmp (symbols.smsc, DEFAULTSMSC) == 0) {
  932.     /* user kept default value - let's use device-level default */
  933.     strcpy (reqsca, gsm->defsca);
  934.   }
  935.   else {
  936.     /* user requested specific SMSC - let's use it */
  937.     strcpy (reqsca, symbols.smsc);
  938.   }
  939.   sprintf (scratch, "at+csca?r");
  940.   tell_gsm (fd, scratch);
  941.   memset (scratch, 0, (BIGBUFF + 1));
  942.   if (get_gsm_answer (fd, scratch, BIGBUFF, 1)) {
  943.     tellsock (csfd, scratch);
  944.     /* compare with requested SMSC */
  945.     if (strstr (scratch, reqsca) == NULL) {
  946.       /* let's set it then */
  947.       sprintf (scratch, "at+csca="%s"r", reqsca);
  948.       tell_gsm (fd, scratch);
  949.       memset (scratch, 0, (BIGBUFF + 1));
  950.       if (get_gsm_answer (fd, scratch, BIGBUFF, 2)) {
  951.         tellsock (csfd, scratch);
  952. /* check for "OK" */
  953. if (strstr (scratch, "OK") == NULL) {
  954.   mdm_unlock (mdmopendevice);
  955.   hangup (fd);
  956.   free (scratch);
  957.           syslog ((FACILITY | LOG_ERR), "error after sending AT+CSCA= command.");
  958.   mdmperror ("sms_serv: error after sending AT+CSCA= command");
  959.   return (-1);
  960. }
  961.       }
  962.       else {
  963. mdm_unlock (mdmopendevice);
  964. hangup (fd);
  965. free (scratch);
  966.         syslog ((FACILITY | LOG_ERR), "GSM module not responding.");
  967. mdmperror ("sms_serv: GSM not responding");
  968. return (-1);
  969.       }
  970.     }
  971.   }
  972.   else {
  973.     mdm_unlock (mdmopendevice);
  974.     hangup (fd);
  975.     free (scratch);
  976.     syslog ((FACILITY | LOG_ERR), "GSM module not responding.");
  977.     mdmperror ("sms_serv: GSM not responding");
  978.     return (-1);
  979.   }
  980.   
  981.   /*---------------------Am I registered on the network ? */
  982.   sprintf (scratch, "at+creg?r");
  983.   tell_gsm (fd, scratch);
  984.   memset (scratch, 0, (BIGBUFF + 1));
  985.   if (get_gsm_answer (fd, scratch, BIGBUFF, 1)) {
  986.     tellsock (csfd, scratch);
  987.     /* check for "0,1" status */
  988.     if (strstr (scratch, "+CREG: 0,1") == NULL) {
  989.       mdm_unlock (mdmopendevice);
  990.       hangup (fd);
  991.       free (scratch);
  992.       syslog ((FACILITY | LOG_ERR), "not registered on the network - can't send.");
  993.       mdmperror ("sms_serv: not registered on the network - can't send");
  994.       return (-1);
  995.     }
  996.   }
  997.   else {
  998.     mdm_unlock (mdmopendevice);
  999.     hangup (fd);
  1000.     free (scratch);
  1001.     syslog ((FACILITY | LOG_ERR), "GSM module not responding.");
  1002.     mdmperror ("sms_serv: GSM not responding");
  1003.     return (-1);
  1004.   }
  1005.   
  1006.   /*------------------------Now actually send SMS message */
  1007.   sprintf (scratch, "at+cmgs="%s"r%s%s", symbols.destgsm, symbols.message, CTRL_Z);
  1008.   tell_gsm (fd, scratch);
  1009.   memset (scratch, 0, (BIGBUFF + 1));
  1010.   if (get_gsm_answer (fd, scratch, BIGBUFF, 4)) {
  1011.     tellsock (csfd, scratch);
  1012.     /* check for "OK" */
  1013.     if (strstr (scratch, "OK") == NULL) {
  1014.       mdm_unlock (mdmopendevice);
  1015.       hangup (fd);
  1016.       free (scratch);
  1017.       syslog ((FACILITY | LOG_ERR), "error when sending SMS message.");
  1018.       mdmperror ("sms_serv: error when sending SMS message");
  1019.       return (-1);
  1020.     }
  1021.   }
  1022.   else {
  1023.     mdm_unlock (mdmopendevice);
  1024.     hangup (fd);
  1025.     free (scratch);
  1026.     syslog ((FACILITY | LOG_ERR), "GSM module not responding.");
  1027.     mdmperror ("sms_serv: GSM not responding");
  1028.     return (-1);
  1029.   }
  1030.   /* we have the answer - now extract the message ID from it */
  1031.   if ((ptr = strstr (scratch, "+CMGS:")) == NULL) {
  1032.   }
  1033.   ptr += 6;                        /* jumps to next space */
  1034.   cmsgid = strtok (ptr, " tnr");
  1035.   msgid = atoi (cmsgid);
  1036.     
  1037.   /*----------------------------------Close communication */
  1038.   mdm_unlock (mdmopendevice);
  1039.   hangup (fd);
  1040.   free (scratch);
  1041.   return (msgid);
  1042. }                                          /* send_sms () */
  1043. /*========================================================*/
  1044. void sms_send_wrapper ()
  1045. {
  1046.   extern int global_sem;
  1047.   extern int shmem_sem;
  1048.   extern struct gsms_def *gsmdevices;
  1049.   int nwaitsecs = 0;
  1050.   int last_errno;
  1051.   int retval;
  1052.   /* int instance; */
  1053.   char device[MAXDEVLEN];
  1054.   struct gsms_def gsm;
  1055.   int msgid;
  1056.   struct sigaction sa_c;
  1057.   
  1058.   sprintf (buffer, "Waiting for a free GSM instance...rn");
  1059.   tellsock (csfd, buffer);
  1060.   sprintf (buffer, ".");
  1061.   
  1062.   while (((retval = sem_decreq (global_sem)) == -1) &&
  1063.         (errno == EAGAIN) &&
  1064. (nwaitsecs < M_TIMEOUT)) {
  1065.     sleep (W_STEP);
  1066.     nwaitsecs += W_STEP;
  1067.     tellsock (csfd, buffer);               /* display dot */
  1068.   }                                        /* while (...) */
  1069.   last_errno = errno;
  1070.   sprintf (buffer, "rn");
  1071.   tellsock (csfd, buffer);
  1072.   
  1073.   if (retval == -1) {            /* failed to get a modem */
  1074.     switch (last_errno) {
  1075.       case EAGAIN: {
  1076.         syslog ((FACILITY | LOG_WARNING), "timeout expired (all GSMs busy).");
  1077.         sprintf (buffer, "timeout expired (all GSMs busy) - try again laterrn");
  1078.         tellsock (csfd, buffer);
  1079.         break;
  1080.       }
  1081.       default: {
  1082.         syserr ("sms_serv: can't decrease global semaphore");
  1083. break;
  1084.       }
  1085.     }                              /* switch (last_errno) */
  1086.   }
  1087.   else {                 /* ---- Begin Crit. Sect. #1 --- */
  1088.     /* at least 1 GSM module is free - find it */
  1089.     if (sem_wait (shmem_sem) == -1)
  1090.       syserr ("sms_serv: failed to wait on shared mem. semaphore");
  1092.     /* ---- Begin Crit. Sect. #2 ---- */
  1093.     /* Signal Handling */
  1094.     sa_c.sa_handler = unlock_gsm;
  1095.     if (sigfillset (&sa_c.sa_mask) == -1)
  1096.       syserr ("sms_serv: can't fill signal set");
  1097.     sa_c.sa_flags = 0;
  1098.     /* catch SIGTERM to handle child's death while GSM's locked */
  1099.     if (sigaction (SIGTERM, &sa_c, NULL) == -1)
  1100.       syserr ("sms_serv: can't catch SIGTERM");
  1101.     /* catch SIGPIPE to handle client disconnect while GSM's locked */
  1102.     if (sigaction (SIGPIPE, &sa_c, NULL) == -1)
  1103.       syserr ("sms_serv: can't catch SIGPIPE");
  1105.     /* search free instance */
  1106.     instance = 0;
  1107.     while (instance < ngsmdevs) {
  1108.       if (gsmdevices[instance].free) {
  1109.         /* let's process this one */
  1110. break;
  1111.       }
  1112.       instance++;
  1113.     }                               /* while (instance...) */
  1114.     if (instance >= ngsmdevs)
  1115.       fatal ("sms_serv: can't get a free GSM - internal error");
  1116.     
  1117.     /* got it - now lock it (device lockfile handled by libmodem) */
  1118.     instance_is_set = TRUE;
  1119.     gsmdevices[instance].free = FALSE;
  1120.     gsmdevices[instance].owner = getpid ();
  1121.     
  1122.     /* copy to "local" space, to avoid the shmem balagan */
  1123.     if (gsmdevcpy (&gsm, &gsmdevices[instance]) == -1)
  1124.       syserr ("sms_serv: error copying GSM instance");
  1125.     
  1126.     /* leave crit. sect. */
  1127.     if (sem_signal (shmem_sem) == -1)
  1128.       syserr ("sms_serv: can't signal shared mem. semaphore");
  1129.     /* ---- End Crit. Sect. #2 ---- */
  1131.     /* log it */
  1132.     syslog ((FACILITY | LOG_NOTICE), "using device </dev/%s>.", gsm.device);
  1133.     sprintf (buffer, "got </dev/%s>, now sending...rn", gsm.device);
  1134.     tellsock (csfd, buffer);
  1135.     
  1136.     /* ---->>> Actual SEND <<<---- */
  1137.     if ((msgid = send_sms (&gsm)) != -1) {
  1138.       syslog ((FACILITY | LOG_NOTICE), "message sent OK, message ID is <%d>.", msgid);
  1139.       sprintf (buffer, "message sent OK, message ID is <%d>rn", msgid);
  1140.       tellsock (csfd, buffer);
  1141.     }
  1142.     else { /* some error occured */
  1143.       syslog ((FACILITY | LOG_WARNING), "ERROR: failed to send message.");
  1144.       sprintf (buffer, "ERROR: failed to send message - try again laterrn");
  1145.       tellsock (csfd, buffer);
  1146.     }
  1147.     
  1148.     /* now free the modem again */
  1149.     if (sem_wait (shmem_sem) == -1)
  1150.       syserr ("sms_serv: failed to wait on shared mem. semaphore");
  1152.     /* ---- Begin Crit. Sect. #3 ---- */
  1153.     gsmdevices[instance].free = TRUE;
  1154.     gsmdevices[instance].owner = 0;
  1155.     instance_is_set = FALSE;
  1156.     /* leave crit. sect. */
  1157.     if (sem_signal (shmem_sem) == -1)
  1158.       syserr ("sms_serv: can't signal shared mem. semaphore");
  1159.     /* ---- End Crit. Sect. #3 ---- */
  1161.     /* leave main crit. sect. */
  1162.     if (sem_signal (global_sem) == -1)
  1163.       syserr ("sms_serv: can't signal global semaphore");
  1164.   }                        /* ---- End Crit. Sect. #1 --- */
  1165. }                                  /* sms_send_wrapper () */
  1166. /*========================================================*/
  1167. void unlock_gsm ()
  1168. {
  1169.   extern int shmem_sem;
  1170.   extern struct gsms_def *gsmdevices;
  1172.   syslog ((FACILITY | LOG_WARNING), "Socket connection unexpectedly lost.");
  1173.   /* set the allocated GSM module back to 'free' status */
  1174.   if (instance_is_set) {
  1175.     if (sem_wait (shmem_sem) == -1)
  1176.       syserr ("sms_serv: failed to wait on shared mem. semaphore");
  1178.     /* ---- Begin Crit. Sect. #5 ---- */
  1179.     if (!gsmdevices[instance].free) {
  1180.       gsmdevices[instance].free = TRUE;
  1181.       gsmdevices[instance].owner = 0;
  1182.       syslog ((FACILITY | LOG_WARNING), "GSM instance </dev/%s> has been unlocked.",
  1183.              gsmdevices[instance].device);
  1184.     }
  1185.     /* leave crit. sect. */
  1186.     if (sem_signal (shmem_sem) == -1)
  1187.       syserr ("sms_serv: can't signal shared mem. semaphore");
  1188.     /* ---- End Crit. Sect. #5 ---- */
  1189.   }
  1190.   /* free what's need to be freed and exit */
  1191.   free (symbols.smsc);
  1192.   free (symbols.destgsm);
  1193.   free (symbols.message);
  1194.   free (buffer);
  1195.   /*------------------------------------------------------*/
  1196.   exit (0);
  1197. }                                        /* unlock_gsm () */
  1198. /*========================================================*/
  1199. void conclude ()
  1200. {
  1201.   syslog ((FACILITY | LOG_NOTICE), "Connection closed by client.");
  1202.   /* free what's need to be freed and exit */
  1203.   free (symbols.smsc);
  1204.   free (symbols.destgsm);
  1205.   free (symbols.message);
  1206.   free (buffer);
  1207.   /*------------------------------------------------------*/
  1208.   exit (0);
  1209. }                                          /* conclude () */
  1210. /*========================================================*/
  1212. /*==========================================================
  1213.  * EOF : server.y
  1214.  *===================*/