[lcd4linux @ 2003-10-12 06:08:28 by nicowallmeier]

imond/telmond support

1 files changed, 442 insertions, 0 deletions

diff --git a/imon.c b/imon.c
new file mode 100755
index 0000000..4f70ac0
--- /dev/null
+++ b/imon.c
@@ -0,0 +1,442 @@
+/* $Id: imon.c,v 1.1 2003/10/12 06:08:28 nicowallmeier Exp $
+ *
+ * imond/telmond data processing
+ *
+ * This file is part of LCD4Linux.
+ *
+ * LCD4Linux is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2, or (at your option)
+ * any later version.
+ *
+ * LCD4Linux is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ *
+ *
+ * $Log: imon.c,v $
+ * Revision 1.1  2003/10/12 06:08:28  nicowallmeier
+ * imond/telmond support
+ *
+ */
+

+#include <stdio.h>

+#include <string.h>

+#include <unistd.h>

+#include <stdlib.h>

+#include <sys/types.h>

+#include <sys/fcntl.h>

+#include <sys/ioctl.h>

+#include <sys/time.h>

+#include <linux/errno.h>

+#include <sys/stat.h>

+#include <string.h>

+#include <time.h>

+

+#include <netdb.h>

+#include <netinet/in.h>

+#include <netinet/tcp.h>

+#include <arpa/inet.h>                          /* decl of inet_addr()      */

+#include <sys/socket.h>

+

+#include "cfg.h"

+#include "debug.h"

+#include "parser.h"

+#include "imon.h"

+

+#define TRUE                        1

+#define FALSE                       0

+

+static int      fd;

+

+ /*----------------------------------------------------------------------------

+ *  service_connect (host_name, port)       - connect to tcp-service

+ *----------------------------------------------------------------------------

+ */

+static int

+service_connect (char * host_name, int port)

+{

+    struct sockaddr_in  addr;

+    struct hostent *    host_p;

+    int                 fd;

+    int                 opt = 1;

+

+    (void) memset ((char *) &addr, 0, sizeof (addr));

+

+    if ((addr.sin_addr.s_addr = inet_addr ((char *) host_name)) == INADDR_NONE)

+    {

+        host_p = gethostbyname (host_name);

+

+        if (! host_p)

+        {

+            error ("%s: host not found\n", host_name);

+            return (-1);

+        }

+

+        (void) memcpy ((char *) (&addr.sin_addr), host_p->h_addr,

+                        host_p->h_length);

+    }

+

+    addr.sin_family  = AF_INET;

+    addr.sin_port    = htons ((unsigned short) port);

+

+    if ((fd = socket (AF_INET, SOCK_STREAM, 0)) < 0)

+    {                                           /* open socket              */

+        perror ("socket");

+        return (-1);

+    }

+    

+    (void) setsockopt (fd, IPPROTO_TCP, TCP_NODELAY,

+                       (char *) &opt, sizeof (opt));

+

+    if (connect (fd, (struct sockaddr *) &addr, sizeof (addr)) != 0)

+    {

+        (void) close (fd);

+        perror (host_name);

+        return (-1);

+    }

+

+    return (fd);

+} /* service_connect (char * host_name, int port) */

+

+

+/*----------------------------------------------------------------------------

+ *  send_command (int fd, char * str)       - send command to imond

+ *----------------------------------------------------------------------------

+ */

+static void

+send_command (int fd, char * str)

+{

+    char    buf[256];

+    int     len = strlen (str);

+

+    sprintf (buf, "%s\r\n", str);

+    write (fd, buf, len + 2);

+

+    return;

+} /* send_command (int fd, char * str) */

+

+

+/*----------------------------------------------------------------------------

+ *  get_answer (int fd)                     - get answer from imond

+ *----------------------------------------------------------------------------

+ */

+static char *

+get_answer (int fd)

+{

+    static char buf[8192];

+    int         len;

+

+    len = read (fd, buf, 8192);

+

+    if (len <= 0)

+    {

+        return ((char *) NULL);

+    }

+

+    while (len > 1 && (buf[len - 1] == '\n' || buf[len - 1] == '\r'))

+    {

+        buf[len - 1] = '\0';

+        len--;

+    }

+

+    if (! strncmp (buf, "OK ", 3))                      /* OK xxxx          */

+    {

+        return (buf + 3);

+    }

+    else if (len > 2 && ! strcmp (buf + len - 2, "OK"))

+    {

+        *(buf + len - 2) = '\0';

+        return (buf);

+    }

+    else if (len == 2 && ! strcmp (buf + len - 2, "OK"))

+    {

+        return (buf);

+    }

+

+    return ((char *) NULL);                             /* ERR xxxx         */

+} /* get_answer (int fd) */

+

+

+/*----------------------------------------------------------------------------

+ *  get_numerical_value (char * cmd)   - send cmd, get numval

+ *----------------------------------------------------------------------------

+ */

+static int

+get_numerical_value (char * cmd)

+{

+    char *  answer;

+    int     rtc;

+

+    send_command (fd, cmd);

+

+    answer = get_answer (fd);

+

+    if (answer)

+    {

+        rtc = atoi (answer);

+    }

+    else

+    {

+        rtc = -1;

+    }

+    return (rtc);

+} /* get_numerical_value (char * cmd, int arg) */

+

+

+/*----------------------------------------------------------------------------

+ *  get_value (char * cmd)         - send command, get value

+ *----------------------------------------------------------------------------

+ */

+static char *

+get_value (char * cmd)

+{

+    char *  answer;

+

+    send_command (fd, cmd);

+

+    answer = get_answer (fd);

+

+    if (answer)

+    {

+        return (answer);

+    }

+

+    return ("");

+} /* get_value (char * cmd, int arg) */

+

+

+int init(){

+ char *s, *host;

+ int port;

+ int connect;

+

+ host=cfg_get ("Imon_Host","127.0.0.1");

+ if (*host=='\0') {

+  error ("Imon: no 'Imon_Host' entry in %s", cfg_source());

+  return -1;

+ } 

+

+ if (cfg_number("Imon_Port",5000,1,65536,&port)<0){

+   return -1;	

+ }

+ 

+ connect=service_connect(host,port);

+

+ s=cfg_get ("Imon_Pass",NULL);

+ if ((s!=NULL) && (*s!='\0')) { // Passwort senden

+   char buf[40];

+   sprintf(buf,"pass %s",s);

+   send_command(connect,buf);

+   s=get_answer(connect); 

+ }

+ 

+ return connect; 	

+}

+ 

+int ImonCh(int index, struct imonchannel *ch, int token_usage[]) {

+ static int err[CHANNELS+1];

+ char *s;

+ char buf[40];

+ int result=0;

+ 

+ if (err[index]) return -1;

+ if ((fd==0) && ((fd=init())<0)) return -1;

+	 

+ if ((*ch).max_in == 0){ // not initializied

+  sprintf(buf, "Imon_%d_Dev", index);

+  s=cfg_get(buf,NULL);

+  if (s==NULL) {

+   error ("Imon: no 'Imon_%i_Dev' entry in %s", index, cfg_source());

+   err[index]=1;

+   return -1;

+  } 

+  strcpy((*ch).dev,s);

+  

+  sprintf(buf, "Imon_%d_MaxIn", index);

+  cfg_number(buf,768,1,65536,&(*ch).max_in);

+

+  sprintf(buf, "Imon_%d_MaxOut", index);

+  cfg_number(buf,128,1,65536,&(*ch).max_out);

+ }

+

+ sprintf(buf, "status %s", (*ch).dev);

+ s=get_value(buf);

+ strcpy((*ch).status,s);

+ 

+ if ((1<<index) & token_usage[T_IMON_CHARGE]) {

+   sprintf(buf, "charge %s", (*ch).dev);

+   s=get_value(buf);

+   strcpy((*ch).charge,s);

+ }

+    

+ 

+ if (strcmp("Online",(*ch).status)==0){

+   if ((1<<index) & token_usage[T_IMON_PHONE]) {

+     sprintf(buf, "phone %s", (*ch).dev);

+     s=get_value(buf);

+     strcpy((*ch).phone,s);

+   }

+

+   if (((1<<index) & token_usage[T_IMON_RIN]) ||

+       ((1<<index) & token_usage[T_IMON_ROUT])) {

+     sprintf(buf, "rate %s", (*ch).dev);

+     s=get_value(buf);

+     if (sscanf(s,"%d %d",&((*ch).rate_in), &((*ch).rate_out))!=2) result--;

+   }

+   

+   if ((1<<index) & token_usage[T_IMON_IP]) {

+     sprintf(buf, "ip %s", (*ch).dev);

+     s=get_value(buf);

+     strcpy((*ch).ip,s);

+   }

+   

+   if ((1<<index) & token_usage[T_IMON_OTIME]) {

+   	 sprintf(buf, "online-time %s", (*ch).dev);

+     s=get_value(buf);

+     strcpy((*ch).otime,s);

+   }

+ } else {

+   if (strcmp("Dialing",(*ch).status)==0){

+     if ((1<<index) & token_usage[T_IMON_PHONE]) {

+       sprintf(buf, "phone %s", (*ch).dev);

+       s=get_value(buf);

+       strcpy((*ch).phone,s);

+     }

+   } else {

+     if ((1<<index) & token_usage[T_IMON_PHONE]) (*ch).phone[0]='\0';

+   }

+   if ((1<<index) & token_usage[T_IMON_IP]) (*ch).ip[0]='\0';	

+   if ((1<<index) & token_usage[T_IMON_OTIME]) (*ch).otime[0]='\0';

+   if (((1<<index) & token_usage[T_IMON_RIN]) ||

+       ((1<<index) & token_usage[T_IMON_ROUT])) {

+   	 (*ch).rate_in=0;

+     (*ch).rate_out=0;	

+   }

+ }

+ return result;

+} 

+ 

+ 

+int Imon(struct imon *i, int cpu, int datetime){

+ static int hb;

+ static int tick;

+ char *s;

+ char day[4];

+ char d[13];

+ 

+ if (tick++ % 5 != 0) return 0;

+ 

+ if ((fd==0) && ((fd=init())<0)) return -1;

+ 

+ if (cpu) (*i).cpu = get_numerical_value("cpu");

+

+ if (datetime){ 

+   s = get_value ("date");

+   sscanf (s, "%s %s %s", day, d, (*i).time);

+   strncpy ((*i).date, d, 6);

+   strcpy ((*i).date + 6, d + 8);

+   (*i).date[2]='.';

+   (*i).date[5]='.';

+   if (hb) (*i).time[5] =' ';

+   hb=!hb;

+ }

+ return 0;

+}

+

+char* ImonVer(){

+  static char buffer[32]="";

+

+  if (*buffer=='\0') {

+   char *s;

+   if ((fd==0) && ((fd=init())<0)) return "";

+   s=get_value("version");

+   for (;;){ // interne Versionsnummer killen

+   	if (s[0]==' '){

+     s=s+1;

+     break;

+    }

+    s=s+1;		

+   }

+   strcpy(buffer,s);  

+  }

+  return buffer;

+}

+

+void phonebook(char *number){

+  FILE *  fp;

+  char line[256];

+  

+  fp = fopen (cfg_get ("Telmon_Phonebook","/etc/phonebook"), "r");

+  

+  if (! fp) return;

+  

+  while (fgets (line, 128, fp)){

+  	if (*line == '#') continue;

+  	if (!strncmp(line,number,strlen(number))){

+  	  char *komma=strchr(line,',');

+  	  char *beginn=strchr(line,'=');

+  	  if (!beginn) return;

+  	  while (strrchr(line,'\r')) strrchr(line,'\r')[0]='\0';

+  	  while (strrchr(line,'\n')) strrchr(line,'\n')[0]='\0';

+  	  if (komma) komma[0]='\0';

+  	  strcpy(number,beginn+1);

+  	  break;

+  	}  	

+  }

+  

+  fclose(fp);

+}

+

+int Telmon(struct telmon *t){

+ static int tick;

+ static int telmond_fd=-2;

+ static char oldanswer[128];

+ static char host[256];

+ static int port;

+ 

+ if (tick++ % 50 != 0) return 0;

+

+ if (telmond_fd == -2){ //not initializied

+  char *s=cfg_get ("Telmon_Host","127.0.0.1");

+  if (*s=='\0') {

+   error ("Telmon: no 'Telmon_Host' entry in %s", cfg_source());

+   telmond_fd=-1;

+   return -1;

+  } 

+  strcpy(host,s);

+  

+  if (cfg_number("Telmon_Port",5000,1,65536,&port)<0){

+   telmond_fd=-1;

+   return -1;	

+  }

+ }

+ 

+ if (telmond_fd != -1){

+  char    telbuf[128];

+

+  telmond_fd = service_connect (host, port);

+  if (telmond_fd >= 0){

+   int l = read (telmond_fd, telbuf, 127);

+   if ((l > 0) && (strcmp(telbuf,oldanswer))){

+	char date[11]; 

+	sscanf(telbuf,"%s %s %s %s",date,(*t).time,(*t).number,(*t).msn);

+	date[4]='\0';

+	date[7]='\0';

+	sprintf((*t).date,"%s.%s.%s",date+8,date+5,date);

+	phonebook((*t).number);

+	phonebook((*t).msn);

+   }

+   close (telmond_fd);

+   strcpy(oldanswer,telbuf);

+  }

+ }

+ return 0;

+}

+ 

+