pndevmapperd: support multiple charge devices
[pandora-libraries.git] / apps / pndevmapperd.c
index 8dbe991..516b82c 100644 (file)
@@ -6,7 +6,8 @@
 // woot for writing code while sick.
 
 // this code begs a rewrite, but should work fine; its just arranged goofily
-// -> I mean, why the racial divide between keys and other events
+// -> I mean, why the racial divide between keys and other events?
+// -> now that I've put together pnd_io_evdev, should leverage that; be much cleaner.
 
 #include <stdio.h> /* for printf, NULL */
 #include <stdlib.h> /* for free */
@@ -20,6 +21,7 @@
 #include <ctype.h> // for isdigit
 #include <signal.h> // for sigaction
 #include <sys/wait.h> // for wait
+#include <sys/time.h> // setitimer
 
 #include <linux/input.h> // for keys
 //#include "../../kernel-rip/input.h" // for keys
@@ -34,6 +36,7 @@
 #include "pnd_logger.h"
 #include "pnd_utility.h"
 #include "pnd_notify.h"
+#include "pnd_device.h"
 
 // daemon and logging
 //
@@ -57,8 +60,23 @@ typedef struct {
 
 keycode_t keycodes[] = {
   { KEY_A, "a" },
+  { KEY_B, "b" },
   { KEY_MENU, "pandora" },
   { KEY_POWER, "power" },
+  { KEY_DELETE, "del" },
+  { KEY_COMMA, "comma" },
+  { KEY_1, "1" },
+  { KEY_2, "2" },
+  { KEY_3, "3" },
+  { KEY_4, "4" },
+  { KEY_5, "5" },
+  { KEY_6, "6" },
+  { KEY_7, "7" },
+  { KEY_8, "8" },
+  { KEY_9, "9" },
+  { KEY_0, "0" },
+  { KEY_BRIGHTNESSDOWN, "lcdbrightdown" },
+  { KEY_BRIGHTNESSUP, "lcdbrightup" },
   { -1, NULL }
 };
 
@@ -84,7 +102,7 @@ typedef struct {
   void *reqs;          // scancode/etc for the event in question
 
   char *script;        // script to invoke
-  //unsigned int hold_min; // minimum hold-time to trigger
+  unsigned int maxhold;   // maximum hold-time before forcing script invocation
 
   /* state
    */
@@ -96,12 +114,31 @@ typedef struct {
 #define MAXEVENTS 255
 evmap_t g_evmap [ MAXEVENTS ];
 unsigned int g_evmap_max = 0;
+unsigned int g_queued_keyups = 0;
+
+// battery
+unsigned char b_threshold = 5;    // %battery
+unsigned int b_frequency = 300;   // frequency to check
+unsigned int b_blinkfreq = 2;     // blink every 2sec
+unsigned int b_blinkdur = 1000;   // blink duration (uSec), 0sec + uSec is assumed
+unsigned char b_active = 0;       // 0=inactive, 1=active and waiting to blink, 2=blink is on, waiting to turn off
+unsigned char b_shutdown = 1;     // %age battery to force a shutdown!
+unsigned int  b_shutdelay = 30;   // delay for shutdown script
+unsigned char b_warned = 0;       // Shutdown attempted
+char *b_shutdown_script = NULL;
+unsigned char bc_enable = 1;      // enable charger control
+unsigned char bc_stopcap = 99;    // battery capacity threshold as stop condition 1
+unsigned int bc_stopcur = 80000;  // charge current threshold as stop condition 2, in uA
+unsigned char bc_startcap = 95;   // battery capacity threshold to resume charging
+char *bc_charge_devices = NULL;   // charger /sys/class/power_supply/ devices, changes between kernel versions
 
 /* get to it
  */
 void dispatch_key ( int keycode, int val );
 void dispatch_event ( int code, int val );
 void sigchld_handler ( int n );
+unsigned char set_next_alarm ( unsigned int secs, unsigned int usecs );
+void sigalrm_handler ( int n );
 
 static void usage ( char *argv[] ) {
   printf ( "%s [-d]\n", argv [ 0 ] );
@@ -193,7 +230,7 @@ int main ( int argc, char *argv[] ) {
 
     // umask
     umask ( 022 ); // emitted files can be rwxr-xr-x
-    
+
   } // set up daemon
 
   /* hmm, seems to not like working right after boot.. do we depend on another daemon or
@@ -279,8 +316,22 @@ int main ( int argc, char *argv[] ) {
       if ( p -> keycode != -1 ) {
        g_evmap [ g_evmap_max ].key_p = 1;    // its a key, not an event
        g_evmap [ g_evmap_max ].reqs = p;     // note the keycode
-       g_evmap [ g_evmap_max ].script = n;   // note the script to activate in response
-       pnd_log ( pndn_rem, "Registered key %s [%d] to script %s\n", p -> keyname, p -> keycode, (char*) n );
+
+       // note the script to activate in response
+       if ( strchr ( n, ' ' ) ) {
+         char *foo = strdup ( n );
+         char *t = strchr ( foo, ' ' );
+         *t = '\0';
+         g_evmap [ g_evmap_max ].script = foo;
+         g_evmap [ g_evmap_max ].maxhold = atoi ( t + 1 );
+       } else {
+         g_evmap [ g_evmap_max ].script = n;
+         g_evmap [ g_evmap_max ].maxhold = 0;
+       }
+
+       pnd_log ( pndn_rem, "Registered key %s [%d] to script %s with maxhold %d\n",
+                 p -> keyname, p -> keycode, (char*) n, g_evmap [ g_evmap_max ].maxhold );
+
        g_evmap_max++;
       } else {
        pnd_log ( pndn_warning, "WARNING! Key '%s' is not handled by pndevmapperd yet! Skipping.", k );
@@ -318,6 +369,12 @@ int main ( int argc, char *argv[] ) {
     } else if ( strncmp ( k, "pndevmapperd.", 7 ) == 0 ) {
       // not consumed here, skip silently
 
+    } else if ( strncmp ( k, "battery.", 8 ) == 0 ) {
+      // not consumed here, skip silently
+
+    } else if ( strncmp ( k, "battery_charge.", 15 ) == 0 ) {
+      // not consumed here, skip silently
+
     } else {
       // uhhh
       pnd_log ( pndn_warning, "Unknown config key '%s'; skipping.\n", k );
@@ -336,6 +393,57 @@ int main ( int argc, char *argv[] ) {
     pnd_log ( pndn_rem, "config file causes minimum_separation to change to %u", g_minimum_separation );
   }
 
+  // battery conf
+  if ( pnd_conf_get_as_int ( evmaph, "battery.threshold" ) != PND_CONF_BADNUM ) {
+    b_threshold = pnd_conf_get_as_int ( evmaph, "battery.threshold" );
+    pnd_log ( pndn_rem, "Battery threshold set to %u", b_threshold );
+  }
+  if ( pnd_conf_get_as_int ( evmaph, "battery.check_interval" ) != PND_CONF_BADNUM ) {
+    b_frequency = pnd_conf_get_as_int ( evmaph, "battery.check_interval" );
+    pnd_log ( pndn_rem, "Battery check interval set to %u", b_frequency );
+  }
+  if ( pnd_conf_get_as_int ( evmaph, "battery.blink_interval" ) != PND_CONF_BADNUM ) {
+    b_blinkfreq = pnd_conf_get_as_int ( evmaph, "battery.blink_interval" );
+    pnd_log ( pndn_rem, "Battery blink interval set to %u", b_blinkfreq );
+  }
+  if ( pnd_conf_get_as_int ( evmaph, "battery.blink_duration" ) != PND_CONF_BADNUM ) {
+    b_blinkdur = pnd_conf_get_as_int ( evmaph, "battery.blink_duration" );
+    pnd_log ( pndn_rem, "Battery blink duration set to %u", b_blinkdur );
+  }
+  b_active = 0;
+  if ( pnd_conf_get_as_int ( evmaph, "battery.shutdown_threshold" ) != PND_CONF_BADNUM ) {
+    b_shutdown = pnd_conf_get_as_int ( evmaph, "battery.shutdown_threshold" );
+    pnd_log ( pndn_rem, "Battery shutdown threshold set to %u", b_shutdown );
+  }
+  if ( pnd_conf_get_as_int ( evmaph, "battery.shutdown_delay" ) != PND_CONF_BADNUM ) {
+    b_shutdelay = pnd_conf_get_as_int ( evmaph, "battery.shutdown_delay" );
+    pnd_log ( pndn_rem, "Battery shutdown delay set to %u", b_shutdelay );
+  }
+  if ( pnd_conf_get_as_char ( evmaph, "battery.shutdown_script" ) != NULL ) {
+    b_shutdown_script = strdup ( pnd_conf_get_as_char ( evmaph, "battery.shutdown_script" ) );
+    pnd_log ( pndn_rem, "Battery shutdown script set to %s", b_shutdown_script );
+  }
+  if ( pnd_conf_get_as_int ( evmaph, "battery_charge.enable" ) != PND_CONF_BADNUM ) {
+    bc_enable = pnd_conf_get_as_int ( evmaph, "battery_charge.enable" );
+    pnd_log ( pndn_rem, "Battery charge enable set to %u", bc_enable );
+  }
+  if ( pnd_conf_get_as_int ( evmaph, "battery_charge.stop_capacity" ) != PND_CONF_BADNUM ) {
+    bc_stopcap = pnd_conf_get_as_int ( evmaph, "battery_charge.stop_capacity" );
+    pnd_log ( pndn_rem, "Battery charge stop capacity set to %u", bc_stopcap );
+  }
+  if ( pnd_conf_get_as_int ( evmaph, "battery_charge.stop_current" ) != PND_CONF_BADNUM ) {
+    bc_stopcur = pnd_conf_get_as_int ( evmaph, "battery_charge.stop_current" );
+    pnd_log ( pndn_rem, "Battery charge stop current set to %u", bc_stopcur );
+  }
+  if ( pnd_conf_get_as_int ( evmaph, "battery_charge.start_capacity" ) != PND_CONF_BADNUM ) {
+    bc_startcap = pnd_conf_get_as_int ( evmaph, "battery_charge.start_capacity" );
+    pnd_log ( pndn_rem, "Battery charge start capacity set to %u", bc_startcap );
+  }
+  if ( pnd_conf_get_as_char ( evmaph, "battery_charge.devices" ) != NULL ) {
+    bc_charge_devices = strdup ( pnd_conf_get_as_char ( evmaph, "battery_charge.devices" ) );
+    pnd_log ( pndn_rem, "Battery charge devices set to %s", bc_charge_devices );
+  }
+
   /* do we have anything to do?
    */
   if ( ! g_evmap_max ) {
@@ -353,9 +461,21 @@ int main ( int argc, char *argv[] ) {
   siggy.sa_handler = sigchld_handler;
   siggy.sa_mask = ss; /* implicitly blocks the origin signal */
   siggy.sa_flags = SA_RESTART; /* don't need anything */
-
   sigaction ( SIGCHLD, &siggy, NULL );
 
+  /* set up the battery level warning timers
+   */
+  siggy.sa_handler = sigalrm_handler;
+  siggy.sa_mask = ss; /* implicitly blocks the origin signal */
+  siggy.sa_flags = SA_RESTART; /* don't need anything */
+  sigaction ( SIGALRM, &siggy, NULL );
+
+  if ( set_next_alarm ( b_frequency, 0 ) ) { // check every 'frequency' seconds
+    pnd_log ( pndn_rem, "Checking for low battery every %u seconds\n", b_frequency );
+  } else {
+    pnd_log ( pndn_error, "ERROR: Couldn't set up timer for every %u seconds\n", b_frequency );
+  }
+
   /* actually try to do something useful
    */
 
@@ -363,7 +483,7 @@ int main ( int argc, char *argv[] ) {
 
   // try to locate the appropriate devices
   int id;
-  int fds [ 5 ] = { -1, -1, -1, -1, -1 }; // 0 = keypad, 1 = gpio keys
+  int fds [ 8 ] = { -1, -1, -1, -1, -1, -1, -1, -1 }; // 0 = keypad, 1 = gpio keys
   int imaxfd = 0;
 
   for ( id = 0; ; id++ ) {
@@ -378,21 +498,36 @@ int main ( int argc, char *argv[] ) {
       break;
     }
 
-    ioctl (fd, EVIOCGNAME(sizeof(name)), name );
+    if ( ioctl (fd, EVIOCGNAME(sizeof(name)), name ) < 0 ) {
+      name [ 0 ] = '\0';
+    }
+
+    pnd_log ( pndn_rem, "%s maps to %s\n", fname, name );
 
-    if ( strcmp ( name, "omap_twl4030keypad" ) == 0 ) {
+    if ( strcmp ( name, PND_EVDEV_KEYPAD/*"omap_twl4030keypad"*/ ) == 0 ) {
       fds [ 0 ] = fd;
     } else if ( strcmp ( name, "gpio-keys" ) == 0) {
       fds [ 1 ] = fd;
     } else if ( strcmp ( name, "AT Translated Set 2 keyboard" ) == 0) { // for vmware, my dev environment
       fds [ 0 ] = fd;
+    } else if ( strcmp ( name, PND_EVDEV_POWER/*"triton2-pwrbutton"*/ ) == 0) {
+      fds [ 2 ] = fd;
+    } else if ( strcmp ( name, PND_EVDEV_TS/*"ADS784x Touchscreen"*/ ) == 0) {
+      fds [ 3 ] = fd;
+    } else if ( strcmp ( name, PND_EVDEV_NUB1/*"vsense66"*/ ) == 0) {
+      fds [ 4 ] = fd;
+    } else if ( strcmp ( name, PND_EVDEV_NUB1/*"vsense67"*/ ) == 0) {
+      fds [ 5 ] = fd;
     } else {
       pnd_log ( pndn_rem, "Ignoring unknown device '%s'\n", name );
+      //fds [ 6 ] = fd;
       close ( fd );
+      fd = -1;
       continue;
     }
 
     if (imaxfd < fd) imaxfd = fd;
+
   } // for
 
   if ( fds [ 0 ] == -1 ) {
@@ -404,8 +539,8 @@ int main ( int argc, char *argv[] ) {
   }
 
   if ( fds [ 0 ] == -1 && fds [ 1 ] == -1 ) {
-    pnd_log ( pndn_error, "ERROR! Couldn't find either device; exiting!\n" );
-    exit ( -2 );
+    pnd_log ( pndn_error, "ERROR! Couldn't find either device!\n" );
+    //exit ( -2 );
   }
 
   /* loop forever, watching for events
@@ -414,85 +549,136 @@ int main ( int argc, char *argv[] ) {
   while ( 1 ) {
     struct input_event ev[64];
 
+    unsigned int max_fd = 3; /* imaxfd */
     int fd = -1, rd, ret;
     fd_set fdset;
 
+    // set up fd list
     FD_ZERO ( &fdset );
 
-    for (i = 0; i < 2; i++) {
+    imaxfd = 0;
+    for (i = 0; i < max_fd /*imaxfd*/; i++) {
       if ( fds [ i ] != -1 ) {
        FD_SET( fds [ i ], &fdset );
+
+       if ( fds [ i ] > imaxfd ) {
+         imaxfd = fds [ i ];
+       }
+
       }
     }
 
-    ret = select ( imaxfd + 1, &fdset, NULL, NULL, NULL );
+    // figure out if we can block forever, or not
+    unsigned char do_block = 1;
+    struct timeval tv;
+    tv.tv_usec = 0;
+    tv.tv_sec = 1;
+
+    for ( i = i; i < g_evmap_max; i++ ) {
+      if ( g_evmap [ i ].keydown_time && g_evmap [ i ].maxhold ) {
+       do_block = 0;
+       break;
+      }
+    }
+
+    // wait for fd's or timeout
+    ret = select ( imaxfd + 1, &fdset, NULL, NULL, do_block ? NULL /* no timeout */ : &tv );
 
     if ( ret == -1 ) {
       pnd_log ( pndn_error, "ERROR! select(2) failed with: %s\n", strerror ( errno ) );
       continue; // retry!
-    }
 
-    for ( i = 0; i < 2; i++ ) {
-      if ( fds [ i ] != -1 && FD_ISSET ( fds [ i ], &fdset ) ) {
-       fd = fds [ i ];
+    } else if ( ret == 0 ) { // select returned with timeout (no fd)
+
+      // timeout occurred; should only happen when 1 or more keys are being held down and
+      // they're "maxhold" keys, so we have to see if their timer has passed
+      unsigned int now = time ( NULL );
+
+      for ( i = i; i < g_evmap_max; i++ ) {
+
+       if ( g_evmap [ i ].keydown_time &&
+            g_evmap [ i ].maxhold &&
+            now - g_evmap [ i ].keydown_time >= g_evmap [ i ].maxhold )
+       {
+         keycode_t *k = (keycode_t*) g_evmap [ i ].reqs;
+         dispatch_key ( k -> keycode, 0 /* key up */ );
+       }
+
+      } // for
+
+    } else { // an fd was fiddled with
+
+      for ( i = 0; i < max_fd; i++ ) {
+       if ( fds [ i ] != -1 && FD_ISSET ( fds [ i ], &fdset ) ) {
+         fd = fds [ i ];
+       } // fd is set?
+      } // for
+
+      /* buttons or keypad */
+      rd = read ( fd, ev, sizeof(struct input_event) * 64 );
+      if ( rd < (int) sizeof(struct input_event) ) {
+       pnd_log ( pndn_error, "ERROR! read(2) input_event failed with: %s\n", strerror ( errno ) );
+       break;
       }
-    }
 
-    /* buttons or keypad */
-    rd = read ( fd, ev, sizeof(struct input_event) * 64 );
-    if ( rd < (int) sizeof(struct input_event) ) {
-      pnd_log ( pndn_error, "ERROR! read(2) input_event failed with: %s\n", strerror ( errno ) );
-      break;
-    }
+      for (i = 0; i < rd / sizeof(struct input_event); i++ ) {
 
-    for (i = 0; i < rd / sizeof(struct input_event); i++ ) {
+       if ( ev[i].type == EV_SYN ) {
+         continue;
+       } else if ( ev[i].type == EV_KEY ) {
 
-      if ( ev[i].type == EV_SYN ) {
-       continue;
-      } else if ( ev[i].type == EV_KEY ) {
+         // do we even know about this key at all?
+         keycode_t *p = keycodes;
+         while ( p -> keycode != -1 ) {
+           if ( p -> keycode == ev [ i ].code ) {
+             break;
+           }
+           p++;
+         }
 
-       // do we even know about this key at all?
-       keycode_t *p = keycodes;
-       while ( p -> keycode != -1 ) {
-         if ( p -> keycode == ev [ i ].code ) {
-           break;
+         // if we do, hand it off to dispatcher to look up if we actually do something with it
+         if ( p -> keycode != -1 ) {
+           if ( logall >= 0 ) {
+             pnd_log ( pndn_debug, "Key Event: key %s [%d] value %d\n", p -> keyname, p -> keycode, ev [ i ].value );
+           }
+           dispatch_key ( p -> keycode, ev [ i ].value );
+         } else {
+           if ( logall >= 0 ) {
+             pnd_log ( pndn_warning, "Unknown Key Event: keycode %d value %d\n",  ev [ i ].code, ev [ i ].value );
+           }
          }
-         p++;
-       }
 
-       // if we do, hand it off to dispatcher to look up if we actually do something with it
-       if ( p -> keycode != -1 ) {
-         pnd_log ( pndn_debug, "Key Event: key %s [%d] value %d\n", p -> keyname, p -> keycode, ev [ i ].value );
-         dispatch_key ( p -> keycode, ev [ i ].value );
-       } else {
-         pnd_log ( pndn_warning, "Unknown Key Event: keycode %d value %d\n",  ev [ i ].code, ev [ i ].value );
-       }
+       } else if ( ev[i].type == EV_SW ) {
 
-      } else if ( ev[i].type == EV_SW ) {
+         // do we even know about this event at all?
+         generic_event_t *p = generics;
+         while ( p -> code != -1 ) {
+           if ( p -> code == ev [ i ].code ) {
+             break;
+           }
+           p++;
+         }
 
-       // do we even know about this event at all?
-       generic_event_t *p = generics;
-       while ( p -> code != -1 ) {
-         if ( p -> code == ev [ i ].code ) {
-           break;
+         // if we do, hand it off to dispatcher to look up if we actually do something with it
+         if ( p -> code != -1 ) {
+           if ( logall >= 0 ) {
+             pnd_log ( pndn_debug, "Generic Event: event %s [%d] value %d\n", p -> name, p -> code, ev [ i ].value );
+           }
+           dispatch_event ( p -> code, ev [ i ].value );
+         } else {
+           if ( logall >= 0 ) {
+             pnd_log ( pndn_warning, "Unknown Generic Event: code %d value %d\n",  ev [ i ].code, ev [ i ].value );
+           }
          }
-         p++;
-       }
 
-       // if we do, hand it off to dispatcher to look up if we actually do something with it
-       if ( p -> code != -1 ) {
-         pnd_log ( pndn_debug, "Generic Event: event %s [%d] value %d\n", p -> name, p -> code, ev [ i ].value );
-         dispatch_event ( p -> code, ev [ i ].value );
        } else {
-         pnd_log ( pndn_warning, "Unknown Generic Event: code %d value %d\n",  ev [ i ].code, ev [ i ].value );
-       }
+         pnd_log ( pndn_debug, "DEBUG: Unexpected event type %i received\n", ev[i].type );
+         continue;
+       } // type?
 
-      } else {
-       pnd_log ( pndn_debug, "DEBUG: Unexpected event type %i received\n", ev[i].type );
-       continue;
-      } // type?
+      } // for
 
-    } // for
+    } // an fd was touched
 
   } // while
 
@@ -521,41 +707,58 @@ void dispatch_key ( int keycode, int val ) {
         ( ((keycode_t*) (g_evmap [ i ].reqs)) -> keycode == keycode ) &&
         ( g_evmap [ i ].script ) )
     {
+      unsigned char invoke_it = 0;
 
       // is this a keydown or a keyup?
       if ( val == 1 ) {
        // keydown
        g_evmap [ i ].keydown_time = time ( NULL );
 
-      } else if ( val == 0 ) {
-       // keyup
+      } else if ( val == 2 && g_evmap [ i ].keydown_time ) {
+       // key is being held; we should check if max-hold is set
 
-       char holdtime [ 128 ];
-       sprintf ( holdtime, "%d", (int)( time(NULL) - g_evmap [ i ].keydown_time ) );
+       if ( g_evmap [ i ].maxhold &&
+            time ( NULL ) - g_evmap [ i ].keydown_time >= g_evmap [ i ].maxhold )
+       {
+         invoke_it = 1;
+       }
+
+      } else if ( val == 0 && g_evmap [ i ].keydown_time ) {
+       // keyup (while key is down)
 
        if ( time ( NULL ) - g_evmap [ i ].last_trigger_time >= g_minimum_separation ) {
-         int x;
+         invoke_it = 1;
+       } else {
+         pnd_log ( pndn_rem, "Skipping invokation.. falls within minimum_separation threshold\n" );
+       }
 
-         g_evmap [ i ].last_trigger_time = time ( NULL );
+      } // key up or down?
 
-         pnd_log ( pndn_rem, "Will attempt to invoke: %s %s\n", g_evmap [ i ].script, holdtime );
+      if ( invoke_it ) {
 
-         if ( ( x = fork() ) < 0 ) {
-           pnd_log ( pndn_error, "ERROR: Couldn't fork()\n" );
-           exit ( -3 );
-         }
+       char holdtime [ 128 ];
+       sprintf ( holdtime, "%d", (int)( time(NULL) - g_evmap [ i ].keydown_time ) );
+       pnd_log ( pndn_rem, "Will attempt to invoke: %s %s\n", g_evmap [ i ].script, holdtime );
 
-         if ( x == 0 ) {
-           execl ( g_evmap [ i ].script, g_evmap [ i ].script, holdtime, (char*)NULL );
-           pnd_log ( pndn_error, "ERROR: Couldn't exec(%s)\n", g_evmap [ i ].script );
-           exit ( -4 );
-         }
+       // state
+       g_evmap [ i ].keydown_time = 0; // clear the keydown-ness
+       g_evmap [ i ].last_trigger_time = time ( NULL );
 
-       } else {
-         pnd_log ( pndn_rem, "Skipping invokation.. falls within minimum_separation threshold\n" );
+       // invocation
+       int x;
+
+       if ( ( x = fork() ) < 0 ) {
+         pnd_log ( pndn_error, "ERROR: Couldn't fork()\n" );
+         exit ( -3 );
        }
 
-      } // key up or down?
+       if ( x == 0 ) {
+         execl ( g_evmap [ i ].script, g_evmap [ i ].script, holdtime, (char*)NULL );
+         pnd_log ( pndn_error, "ERROR: Couldn't exec(%s)\n", g_evmap [ i ].script );
+         exit ( -4 );
+       }
+
+      } // invoke the script!
 
       return;
     } // found matching event for keycode
@@ -572,6 +775,8 @@ void dispatch_event ( int code, int val ) {
   // 1 - closing
   // 0 - opening
 
+  pnd_log ( pndn_rem, "Dispatching Event..\n" );
+
   for ( i = 0; i < g_evmap_max; i++ ) {
 
     if ( ( g_evmap [ i ].key_p == 0 ) &&
@@ -624,3 +829,168 @@ void sigchld_handler ( int n ) {
 
   return;
 }
+
+unsigned char set_next_alarm ( unsigned int secs, unsigned int usecs ) {
+
+  // assume that SIGALRM is already being caught, we just set the itimer here
+
+  struct itimerval itv;
+
+  // if no timer at all, set the 'current' one so it does something; otherwise
+  // let it continue..
+  getitimer ( ITIMER_REAL, &itv );
+
+  if ( itv.it_value.tv_sec == 0 && itv.it_value.tv_sec == 0 ) {
+    itv.it_value.tv_sec = secs;
+    itv.it_value.tv_usec = usecs;
+  }
+
+  // set the next timer
+  //bzero ( &itv, sizeof(struct itimerval) );
+
+  itv.it_interval.tv_sec = secs;
+  itv.it_interval.tv_usec = usecs;
+
+  // if next-timer is less than current, set current too
+  if ( itv.it_value.tv_sec > itv.it_interval.tv_sec ) {
+    itv.it_value.tv_sec = secs;
+    itv.it_value.tv_usec = usecs;
+  }
+
+  if ( setitimer ( ITIMER_REAL, &itv, NULL /* old value returned here */ ) < 0 ) {
+    // sucks
+    return ( 0 );
+  }
+
+  return ( 1 );
+}
+
+void sigalrm_handler ( int n ) {
+
+  pnd_log ( pndn_debug, "---[ SIGALRM ]---\n" );
+
+  static time_t last_charge_check, last_charge_worka;
+  int batlevel = pnd_device_get_battery_gauge_perc();
+  int uamps = 0;
+  time_t now;
+
+  pnd_device_get_charge_current ( &uamps );
+
+  if ( batlevel < 0 ) {
+#if 0
+    // couldn't read the battery level, so just assume low and make blinks?
+    batlevel = 4; // low, but not cause a shutdown
+#else
+    // couldn't read the battery level, so just assume ok!
+    batlevel = 50;
+#endif
+  }
+
+  // first -- are we critical yet? if so, shut down!
+  if ( batlevel <= b_shutdown && b_shutdown_script) {
+
+    if ( uamps > 100 ) {
+        // critical battery, but charging, so relax.
+        b_warned = 0;
+    } else {
+      if (b_warned == 0) {
+          // Avoid warning again till re-powered
+          b_warned = 1;
+          int x;
+          pnd_log ( pndn_error, "Battery Current: %d\n", uamps );
+          pnd_log ( pndn_error, "CRITICAL BATTERY LEVEL -- shutdown the system down! Invoke: %s\n",
+               b_shutdown_script );
+
+          if ( ( x = fork() ) < 0 ) {
+               pnd_log ( pndn_error, "ERROR: Couldn't fork()\n" );
+           exit ( -3 );
+          }
+
+         if ( x == 0 ) {
+           char value [ 100 ];
+           sprintf ( value, "%d", b_shutdelay );
+          execl ( b_shutdown_script, b_shutdown_script, value, (char*)NULL );
+          pnd_log ( pndn_error, "ERROR: Couldn't exec(%s)\n", b_shutdown_script );
+          exit ( -4 );
+         }
+      }
+    } // charging
+
+  }
+
+  // charge monitoring
+  now = time(NULL);
+  if ( bc_enable && bc_charge_devices != NULL && (unsigned int)(now - last_charge_check) > 60 ) {
+
+    int charge_enabled = pnd_device_get_charger_enable ( bc_charge_devices );
+    if ( charge_enabled < 0 )
+      pnd_log ( pndn_error, "ERROR: Couldn't read charger enable control\n" );
+    else {
+
+      if ( charge_enabled && batlevel >= bc_stopcap && 0 < uamps && uamps < bc_stopcur ) {
+        pnd_log ( pndn_debug, "Charge stop conditions reached, disabling charging\n" );
+        pnd_device_set_charger_enable ( bc_charge_devices, 0 );
+      }
+      else if ( !charge_enabled && batlevel <= bc_startcap ) {
+        pnd_log ( pndn_debug, "Charge start conditions reached, enabling charging\n" );
+        pnd_device_set_charger_enable ( bc_charge_devices, 1 );
+      }
+
+      // for some unknown reason it just stops charging randomly (happens once per week or so),
+      // and does not restart, resulting in a flat battery if machine is unattended.
+      // What seems to help here is writing to chip registers, we can do it here indirectly
+      // by writing to enable. Doing it occasionally should do no harm even with missing charger.
+      if ( batlevel <= bc_startcap && (unsigned int)(now - last_charge_worka) > 20*60 ) {
+        pnd_log ( pndn_debug, "Charge workaround trigger\n" );
+        pnd_device_set_charger_enable ( bc_charge_devices, 1 );
+        last_charge_worka = now;
+      }
+    }
+    last_charge_check = now;
+  }
+
+  // is battery warning already active?
+  if ( b_active ) {
+    // warning is on!
+
+    // is user charging up? if so, stop blinking.
+    // perhaps we shoudl check if charger is connected, and not blink at all in that case..
+    if ( uamps > 0 ) {
+      //Re-arm warning
+      b_warned = 0;
+      pnd_log ( pndn_debug, "Battery is high again, flipping to non-blinker mode\n" );
+      b_active = 0;
+      set_next_alarm ( b_frequency, 0 );
+      pnd_device_set_led_charger_brightness ( 250 );
+      return;
+    }
+
+    if ( b_active == 1 ) {
+      // turn LED on
+      pnd_log ( pndn_debug, "Blink on\n" );
+      pnd_device_set_led_charger_brightness ( 200 );
+      // set timer to short duration
+      b_active = 2;
+      set_next_alarm ( 0, b_blinkdur );
+    } else if ( b_active == 2 ) {
+      // turn LED off
+      pnd_log ( pndn_debug, "Blink off\n" );
+      pnd_device_set_led_charger_brightness ( 10 );
+      // back to longer duration
+      b_active = 1;
+      set_next_alarm ( b_blinkfreq, 0 );
+    }
+
+    return;
+  }
+
+  // warning is off..
+  if ( batlevel <= b_threshold && uamps < 0 ) {
+    // battery seems low, go to active mode
+    pnd_log ( pndn_debug, "Battery is low, flipping to blinker mode\n" );
+    b_active = 1;
+    set_next_alarm ( b_blinkfreq, 0 );
+  } // battery level
+
+  return;
+}