apps/pndevmapperd.c

   1
   2 /* pndevmapperd exists to watch for a few interesting events and to launch scripts when they occur
   3  * ie: when the lid closes, should invoke power-mode toggle sh-script
   4  */
   5
   6 // woot for writing code while sick.
   7
   8 // this code begs a rewrite, but should work fine; its just arranged goofily
   9 // -> I mean, why the racial divide between keys and other events?
  10 // -> now that I've put together pnd_io_evdev, should leverage that; be much cleaner.
  11
  12 #include <stdio.h> /* for printf, NULL */
  13 #include <stdlib.h> /* for free */
  14 #include <string.h> /* for strdup */
  15 #include <unistd.h>    // for exit()
  16 #include <sys/types.h> // for umask
  17 #include <sys/stat.h>  // for umask
  18 #include <fcntl.h> // for open(2)
  19 #include <errno.h> // for errno
  20 #include <time.h> // for time(2)
  21 #include <ctype.h> // for isdigit
  22 #include <signal.h> // for sigaction
  23 #include <sys/wait.h> // for wait
  24 #include <sys/time.h> // setitimer
  25
  26 #include <linux/input.h> // for keys
  27 //#include "../../kernel-rip/input.h" // for keys
  28
  29 #include "pnd_conf.h"
  30 #include "pnd_container.h"
  31 #include "pnd_apps.h"
  32 #include "pnd_discovery.h"
  33 #include "pnd_locate.h"
  34 #include "pnd_pndfiles.h"
  35 #include "pnd_pxml.h"
  36 #include "pnd_logger.h"
  37 #include "pnd_utility.h"
  38 #include "pnd_notify.h"
  39 #include "pnd_device.h"
  40
  41 // daemon and logging
  42 //
  43 unsigned char g_daemon_mode = 0;
  44 unsigned int g_minimum_separation = 1;
  45
  46 typedef enum {
  47   pndn_debug = 0,
  48   pndn_rem,          // will set default log level to here, so 'debug' is omitted
  49   pndn_warning,
  50   pndn_error,
  51   pndn_none
  52 } pndnotify_loglevels_e;
  53
  54 // key/event definition
  55 //
  56 typedef struct {
  57   int keycode;
  58   char *keyname;
  59 } keycode_t;
  60
  61 keycode_t keycodes[] = {
  62   { KEY_A, "a" },
  63   { KEY_B, "b" },
  64   { KEY_MENU, "pandora" },
  65   { KEY_POWER, "power" },
  66   { KEY_DELETE, "del" },
  67   { KEY_COMMA, "comma" },
  68   { KEY_1, "1" },
  69   { KEY_2, "2" },
  70   { KEY_3, "3" },
  71   { KEY_4, "4" },
  72   { KEY_5, "5" },
  73   { KEY_6, "6" },
  74   { KEY_7, "7" },
  75   { KEY_8, "8" },
  76   { KEY_9, "9" },
  77   { KEY_0, "0" },
  78   { KEY_BRIGHTNESSDOWN, "lcdbrightdown" },
  79   { KEY_BRIGHTNESSUP, "lcdbrightup" },
  80   { KEY_COFFEE, "hold" }, /* coffee? lol */
  81   { KEY_F1, "f1" },
  82   { KEY_F2, "f2" },
  83   { KEY_F3, "f3" },
  84   { KEY_F4, "f4" },
  85   { KEY_F5, "f5" },
  86   { KEY_F6, "f6" },
  87   { KEY_F7, "f7" },
  88   { KEY_F8, "f8" },
  89   { KEY_F9, "f9" },
  90   { KEY_F10, "f10" },
  91   { KEY_F11, "f11" },
  92   { KEY_F12, "f12" },
  93   { KEY_F18, "f18" },
  94   { KEY_F23, "f23" },
  95   { KEY_YEN, "yen" },
  96   { -1, NULL }
  97 };
  98
  99 typedef struct {
 100   int type;
 101   int code;
 102   char *name;
 103 } generic_event_t;
 104
 105 generic_event_t generics[] = {
 106   { EV_SW, 0, "lid-toggle" }, // expecting value 1 (lid close) or 0 (lid open)
 107   { -1, -1, NULL }
 108 };
 109
 110 // FAKESCRIPT_ entries are to better handle a virtual script name; if we have to parse
 111 // "TOGGLE_HOLD" for every key down, it seems a little inefficient; at conf-time, if we
 112 // see this string for example, why not change it to a magic number .. and if we see that
 113 // down the road, we can act with just an integer compare, instead of a string compare..
 114 #define FAKESCRIPT_TOGGLE_HOLD 0001
 115
 116 // event-to-sh mapping
 117 //
 118 typedef struct {
 119
 120   unsigned char key_p; // 1 if its a key, otherwise an event
 121
 122   /* template information
 123    */
 124   void *reqs;          // scancode/etc for the event in question
 125
 126   char *script;        // script to invoke
 127   unsigned int maxhold;   // maximum hold-time before forcing script invocation
 128
 129   /* state
 130    */
 131   time_t last_trigger_time;
 132   time_t keydown_time;
 133
 134 } evmap_t;
 135
 136 #define MAXEVENTS 255
 137 evmap_t g_evmap [ MAXEVENTS ];
 138 unsigned int g_evmap_max = 0;
 139 unsigned int g_queued_keyups = 0;
 140
 141 // battery
 142 unsigned char b_threshold = 5;    // %battery
 143 unsigned int b_frequency = 300;   // frequency to check
 144 unsigned int b_blinkfreq = 2;     // blink every 2sec
 145 unsigned int b_blinkdur = 1000;   // blink duration (uSec), 0sec + uSec is assumed
 146 unsigned char b_active = 0;       // 0=inactive, 1=active and waiting to blink, 2=blink is on, waiting to turn off
 147 unsigned char b_shutdown = 1;     // %age battery to force a shutdown!
 148 unsigned int  b_shutdelay = 30;   // delay for shutdown script
 149 unsigned char b_warned = 0;       // Shutdown attempted
 150 char *b_shutdown_script = NULL;
 151 unsigned char bc_enable = 1;      // enable charger control
 152 unsigned char bc_stopcap = 99;    // battery capacity threshold as stop condition 1
 153 unsigned int bc_stopcur = 80000;  // charge current threshold as stop condition 2, in uA
 154 unsigned char bc_startcap = 95;   // battery capacity threshold to resume charging
 155 char *bc_charge_devices = NULL;   // charger /sys/class/power_supply/ devices, changes between kernel versions
 156
 157 // fd's; pulled from main() so I can be lazy
 158 int fds [ 8 ] = { -1, -1, -1, -1, -1, -1, -1, -1 }; // 0 = keypad, 1 = gpio keys
 159 int imaxfd = 0;
 160
 161 /* get to it
 162  */
 163 void dispatch_key ( int keycode, int val );
 164 void dispatch_event ( int code, int val );
 165 void sigchld_handler ( int n );
 166 unsigned char set_next_alarm ( unsigned int secs, unsigned int usecs );
 167 void sigalrm_handler ( int n );
 168 void fakescript_hold_on ( void );
 169 void fakescript_hold_off ( void );
 170
 171 static void usage ( char *argv[] ) {
 172   printf ( "%s [-d]\n", argv [ 0 ] );
 173   printf ( "-d\tDaemon mode; detach from terminal, chdir to /tmp, suppress output. Optional.\n" );
 174   printf ( "-l#\tLog-it; -l is 0-and-up (or all), and -l2 means 2-and-up (not all); l[0-3] for now. Log goes to /tmp/pndevmapperd.log\n" );
 175   return;
 176 }
 177
 178 int main ( int argc, char *argv[] ) {
 179   int i;
 180   int logall = -1; // -1 means normal logging rules; >=0 means log all!
 181
 182   for ( i = 1; i < argc; i++ ) {
 183
 184     if ( argv [ i ][ 0 ] == '-' && argv [ i ][ 1 ] == 'd' ) {
 185       //printf ( "Going daemon mode. Silent running.\n" );
 186       g_daemon_mode = 1;
 187     } else if ( argv [ i ][ 0 ] == '-' && argv [ i ][ 1 ] == 'l' ) {
 188
 189       if ( isdigit ( argv [ i ][ 2 ] ) ) {
 190         unsigned char x = atoi ( argv [ i ] + 2 );
 191         if ( x >= 0 &&
 192              x < pndn_none )
 193         {
 194           logall = x;
 195         }
 196       } else {
 197         logall = 0;
 198       }
 199     } else {
 200       usage ( argv );
 201       exit ( 0 );
 202     }
 203
 204   } // for
 205
 206   /* enable logging?
 207    */
 208   pnd_log_set_pretext ( "pndevmapperd" );
 209   pnd_log_set_flush ( 1 );
 210
 211   if ( logall == -1 ) {
 212     // standard logging; non-daemon versus daemon
 213
 214     if ( g_daemon_mode ) {
 215       // nada
 216     } else {
 217       pnd_log_set_filter ( pndn_rem );
 218       pnd_log_to_stdout();
 219     }
 220
 221   } else {
 222     FILE *f;
 223
 224     f = fopen ( "/tmp/pndevmapperd.log", "w" );
 225
 226     if ( f ) {
 227       pnd_log_set_filter ( logall );
 228       pnd_log_to_stream ( f );
 229       pnd_log ( pndn_rem, "logall mode - logging to /tmp/pndevmapperd.log\n" );
 230     }
 231
 232     if ( logall == pndn_debug ) {
 233       pnd_log_set_buried_logging ( 1 ); // log the shit out of it
 234       pnd_log ( pndn_rem, "logall mode 0 - turned on buried logging\n" );
 235     }
 236
 237   } // logall
 238
 239   pnd_log ( pndn_rem, "%s built %s %s", argv [ 0 ], __DATE__, __TIME__ );
 240
 241   pnd_log ( pndn_rem, "log level starting as %u", pnd_log_get_filter() );
 242
 243   // basic daemon set up
 244   if ( g_daemon_mode ) {
 245
 246     // set a CWD somewhere else
 247     chdir ( "/tmp" );
 248
 249     // detach from terminal
 250     if ( ( i = fork() ) < 0 ) {
 251       pnd_log ( pndn_error, "ERROR: Couldn't fork()\n" );
 252       exit ( i );
 253     }
 254     if ( i ) {
 255       exit ( 0 ); // exit parent
 256     }
 257     setsid();
 258
 259     // umask
 260     umask ( 022 ); // emitted files can be rwxr-xr-x
 261
 262   } // set up daemon
 263
 264   /* hmm, seems to not like working right after boot.. do we depend on another daemon or
 265    * on giving kernel time to init something, or ... wtf?
 266    * -- lets give the system some time to wake up
 267    */
 268   { // delay
 269
 270     // this one works for pndnotifyd, which actually needs INOTIFYH..
 271     //
 272
 273     // check if inotify is awake yet; if not, try waiting for awhile to see if it does
 274     pnd_log ( pndn_rem, "Starting INOTIFY test; should be instant, but may take awhile...\n" );
 275
 276     if ( ! pnd_notify_wait_until_ready ( 120 /* seconds */ ) ) {
 277       pnd_log ( pndn_error, "ERROR: INOTIFY refuses to be useful and quite awhile has passed. Bailing out.\n" );
 278       return ( -1 );
 279     }
 280
 281     pnd_log ( pndn_rem, "INOTIFY seems to be useful, whew.\n" );
 282
 283     // pndnotifyd also waits for user to log in .. pretty excessive, especially since
 284     // what if user wants to close the lid while at the log in screen? for now play the
 285     // odds as thats pretty unliekly usage scenariom but is clearly not acceptible :/
 286     //
 287
 288     // wait for a user to be logged in - we should probably get hupped when a user logs in, so we can handle
 289     // log-out and back in again, with SDs popping in and out between..
 290     pnd_log ( pndn_rem, "Checking to see if a user is logged in\n" );
 291     char tmp_username [ 128 ];
 292     while ( 1 ) {
 293       if ( pnd_check_login ( tmp_username, 127 ) ) {
 294         break;
 295       }
 296       pnd_log ( pndn_debug, "  No one logged in yet .. spinning.\n" );
 297       sleep ( 2 );
 298     } // spin
 299     pnd_log ( pndn_rem, "Looks like user '%s' is in, continue.\n", tmp_username );
 300
 301   } // delay
 302
 303   /* inhale config or die trying
 304    */
 305   char *configpath;
 306
 307   // attempt to fetch a sensible default searchpath for configs
 308   configpath = pnd_conf_query_searchpath();
 309
 310   // attempt to fetch the apps config. since it finds us the runscript
 311   pnd_conf_handle evmaph;
 312
 313   evmaph = pnd_conf_fetch_by_id ( pnd_conf_evmap, configpath );
 314
 315   if ( ! evmaph ) {
 316     // couldn't locate conf, just bail
 317     pnd_log ( pndn_error, "ERROR: Couldn't locate conf file\n" );
 318     exit ( -1 );
 319   }
 320
 321   /* iterate across conf, stocking the event map
 322    */
 323   void *n = pnd_box_get_head ( evmaph );
 324
 325   while ( n ) {
 326     char *k = pnd_box_get_key ( n );
 327     //printf ( "key %s\n", k );
 328
 329     if ( strncmp ( k, "keys.", 5 ) == 0 ) {
 330       k += 5;
 331
 332       // keys should really push push generic-events onto the table, since they;'re just a special case of them
 333       // to make things easier to read
 334
 335       // figure out which keycode we're talking about
 336       keycode_t *p = keycodes;
 337       while ( p -> keycode != -1 ) {
 338         if ( strcasecmp ( p -> keyname, k ) == 0 ) {
 339           break;
 340         }
 341         p++;
 342       }
 343
 344       if ( p -> keycode != -1 ) {
 345         g_evmap [ g_evmap_max ].key_p = 1;    // its a key, not an event
 346         g_evmap [ g_evmap_max ].reqs = p;     // note the keycode
 347
 348         // note the script to activate in response
 349         if ( strchr ( n, ' ' ) ) {
 350           char *foo = strdup ( n );
 351           char *t = strchr ( foo, ' ' );
 352           *t = '\0';
 353           g_evmap [ g_evmap_max ].script = foo;
 354           g_evmap [ g_evmap_max ].maxhold = atoi ( t + 1 );
 355         } else {
 356           g_evmap [ g_evmap_max ].script = n;
 357           g_evmap [ g_evmap_max ].maxhold = 0;
 358
 359           if ( strcmp ( n, "TOGGLE_HOLD" ) == 0 ) {
 360             g_evmap [ g_evmap_max ].script = (char*)FAKESCRIPT_TOGGLE_HOLD;
 361           }
 362
 363         }
 364
 365         pnd_log ( pndn_rem, "Registered key %s [%d] to script %s with maxhold %d\n",
 366                   p -> keyname, p -> keycode, (char*) n, g_evmap [ g_evmap_max ].maxhold );
 367
 368         g_evmap_max++;
 369       } else {
 370         pnd_log ( pndn_warning, "WARNING! Key '%s' is not handled by pndevmapperd yet! Skipping.", k );
 371       }
 372
 373     } else if ( strncmp ( k, "events.", 7 ) == 0 ) {
 374       k += 7;
 375
 376       // yes, key events could really be defined in this generic sense, and really we could just let people
 377       // put the code and so on right in the conf, but trying to keep it easy on people; maybe should
 378       // add a 'generic' section to conf file and just let folks redefine random events that way
 379       // Really, it'd be nice if the /dev/input/events could spit out useful text, and just use scripts
 380       // to respond without a daemon per se; for that matter, pnd-ls and pnd-map pnd-dotdesktopemitter
 381       // should just exist as scripts rather than daemons, but whose counting?
 382
 383       // figure out which keycode we're talking about
 384       generic_event_t *p = generics;
 385       while ( p -> code != -1 ) {
 386         if ( strcasecmp ( p -> name, k ) == 0 ) {
 387           break;
 388         }
 389         p++;
 390       }
 391
 392       if ( p -> code != -1 ) {
 393         g_evmap [ g_evmap_max ].key_p = 0;    // its an event, not a key
 394         g_evmap [ g_evmap_max ].reqs = p;     // note the keycode
 395         g_evmap [ g_evmap_max ].script = n;   // note the script to activate in response
 396         pnd_log ( pndn_rem, "Registered generic event %s [%d] to script %s\n", p -> name, p -> code, (char*) n );
 397         g_evmap_max++;
 398       } else {
 399         pnd_log ( pndn_warning, "WARNING! Generic event '%s' is not handled by pndevmapperd yet! Skipping.", k );
 400       }
 401
 402     } else if ( strncmp ( k, "pndevmapperd.", 7 ) == 0 ) {
 403       // not consumed here, skip silently
 404
 405     } else if ( strncmp ( k, "battery.", 8 ) == 0 ) {
 406       // not consumed here, skip silently
 407
 408     } else if ( strncmp ( k, "battery_charge.", 15 ) == 0 ) {
 409       // not consumed here, skip silently
 410
 411     } else {
 412       // uhhh
 413       pnd_log ( pndn_warning, "Unknown config key '%s'; skipping.\n", k );
 414     }
 415
 416     n = pnd_box_get_next ( n );
 417   } // while
 418
 419   if ( pnd_conf_get_as_int ( evmaph, "pndevmapperd.loglevel" ) != PND_CONF_BADNUM ) {
 420     pnd_log_set_filter ( pnd_conf_get_as_int ( evmaph, "pndevmapperd.loglevel" ) );
 421     pnd_log ( pndn_rem, "config file causes loglevel to change to %u", pnd_log_get_filter() );
 422   }
 423
 424   if ( pnd_conf_get_as_int ( evmaph, "pndevmapperd.minimum_separation" ) != PND_CONF_BADNUM ) {
 425     g_minimum_separation = pnd_conf_get_as_int ( evmaph, "pndevmapperd.minimum_separation" );
 426     pnd_log ( pndn_rem, "config file causes minimum_separation to change to %u", g_minimum_separation );
 427   }
 428
 429   // battery conf
 430   if ( pnd_conf_get_as_int ( evmaph, "battery.threshold" ) != PND_CONF_BADNUM ) {
 431     b_threshold = pnd_conf_get_as_int ( evmaph, "battery.threshold" );
 432     pnd_log ( pndn_rem, "Battery threshold set to %u", b_threshold );
 433   }
 434   if ( pnd_conf_get_as_int ( evmaph, "battery.check_interval" ) != PND_CONF_BADNUM ) {
 435     b_frequency = pnd_conf_get_as_int ( evmaph, "battery.check_interval" );
 436     pnd_log ( pndn_rem, "Battery check interval set to %u", b_frequency );
 437   }
 438   if ( pnd_conf_get_as_int ( evmaph, "battery.blink_interval" ) != PND_CONF_BADNUM ) {
 439     b_blinkfreq = pnd_conf_get_as_int ( evmaph, "battery.blink_interval" );
 440     pnd_log ( pndn_rem, "Battery blink interval set to %u", b_blinkfreq );
 441   }
 442   if ( pnd_conf_get_as_int ( evmaph, "battery.blink_duration" ) != PND_CONF_BADNUM ) {
 443     b_blinkdur = pnd_conf_get_as_int ( evmaph, "battery.blink_duration" );
 444     pnd_log ( pndn_rem, "Battery blink duration set to %u", b_blinkdur );
 445   }
 446   b_active = 0;
 447   if ( pnd_conf_get_as_int ( evmaph, "battery.shutdown_threshold" ) != PND_CONF_BADNUM ) {
 448     b_shutdown = pnd_conf_get_as_int ( evmaph, "battery.shutdown_threshold" );
 449     pnd_log ( pndn_rem, "Battery shutdown threshold set to %u", b_shutdown );
 450   }
 451   if ( pnd_conf_get_as_int ( evmaph, "battery.shutdown_delay" ) != PND_CONF_BADNUM ) {
 452     b_shutdelay = pnd_conf_get_as_int ( evmaph, "battery.shutdown_delay" );
 453     pnd_log ( pndn_rem, "Battery shutdown delay set to %u", b_shutdelay );
 454   }
 455   if ( pnd_conf_get_as_char ( evmaph, "battery.shutdown_script" ) != NULL ) {
 456     b_shutdown_script = strdup ( pnd_conf_get_as_char ( evmaph, "battery.shutdown_script" ) );
 457     pnd_log ( pndn_rem, "Battery shutdown script set to %s", b_shutdown_script );
 458   }
 459   if ( pnd_conf_get_as_int ( evmaph, "battery_charge.enable" ) != PND_CONF_BADNUM ) {
 460     bc_enable = pnd_conf_get_as_int ( evmaph, "battery_charge.enable" );
 461     pnd_log ( pndn_rem, "Battery charge enable set to %u", bc_enable );
 462   }
 463   if ( pnd_conf_get_as_int ( evmaph, "battery_charge.stop_capacity" ) != PND_CONF_BADNUM ) {
 464     bc_stopcap = pnd_conf_get_as_int ( evmaph, "battery_charge.stop_capacity" );
 465     pnd_log ( pndn_rem, "Battery charge stop capacity set to %u", bc_stopcap );
 466   }
 467   if ( pnd_conf_get_as_int ( evmaph, "battery_charge.stop_current" ) != PND_CONF_BADNUM ) {
 468     bc_stopcur = pnd_conf_get_as_int ( evmaph, "battery_charge.stop_current" );
 469     pnd_log ( pndn_rem, "Battery charge stop current set to %u", bc_stopcur );
 470   }
 471   if ( pnd_conf_get_as_int ( evmaph, "battery_charge.start_capacity" ) != PND_CONF_BADNUM ) {
 472     bc_startcap = pnd_conf_get_as_int ( evmaph, "battery_charge.start_capacity" );
 473     pnd_log ( pndn_rem, "Battery charge start capacity set to %u", bc_startcap );
 474   }
 475   if ( pnd_conf_get_as_char ( evmaph, "battery_charge.devices" ) != NULL ) {
 476     bc_charge_devices = strdup ( pnd_conf_get_as_char ( evmaph, "battery_charge.devices" ) );
 477     pnd_log ( pndn_rem, "Battery charge devices set to %s", bc_charge_devices );
 478   }
 479
 480   /* do we have anything to do?
 481    */
 482   if ( ! g_evmap_max ) {
 483     // uuuh, nothing to do?
 484     pnd_log ( pndn_warning, "WARNING! No events configured to watch, so just spinning wheels...\n" );
 485     exit ( -1 );
 486   } // spin
 487
 488   /* set up sigchld -- don't want zombies all over; well, we do, but not process zombies
 489    */
 490   sigset_t ss;
 491   sigemptyset ( &ss );
 492
 493   struct sigaction siggy;
 494   siggy.sa_handler = sigchld_handler;
 495   siggy.sa_mask = ss; /* implicitly blocks the origin signal */
 496   siggy.sa_flags = SA_RESTART; /* don't need anything */
 497   sigaction ( SIGCHLD, &siggy, NULL );
 498
 499   /* set up the battery level warning timers
 500    */
 501   siggy.sa_handler = sigalrm_handler;
 502   siggy.sa_mask = ss; /* implicitly blocks the origin signal */
 503   siggy.sa_flags = SA_RESTART; /* don't need anything */
 504   sigaction ( SIGALRM, &siggy, NULL );
 505
 506   if ( set_next_alarm ( b_frequency, 0 ) ) { // check every 'frequency' seconds
 507     pnd_log ( pndn_rem, "Checking for low battery every %u seconds\n", b_frequency );
 508   } else {
 509     pnd_log ( pndn_error, "ERROR: Couldn't set up timer for every %u seconds\n", b_frequency );
 510   }
 511
 512   /* actually try to do something useful
 513    */
 514
 515   // stolen in part from notaz :)
 516
 517   // try to locate the appropriate devices
 518   int id;
 519
 520   for ( id = 0; ; id++ ) {
 521     char fname[64];
 522     char name[256] = { 0, };
 523     int fd;
 524
 525     snprintf ( fname, sizeof ( fname ), "/dev/input/event%i", id );
 526     fd = open ( fname, O_RDONLY );
 527
 528     if ( fd == -1 ) {
 529       break;
 530     }
 531
 532     if ( ioctl (fd, EVIOCGNAME(sizeof(name)), name ) < 0 ) {
 533       name [ 0 ] = '\0';
 534     }
 535
 536     pnd_log ( pndn_rem, "%s maps to %s\n", fname, name );
 537
 538     if ( strcmp ( name, PND_EVDEV_KEYPAD/*"omap_twl4030keypad"*/ ) == 0 ) {
 539       fds [ 0 ] = fd;
 540     } else if ( strcmp ( name, "gpio-keys" ) == 0) {
 541       fds [ 1 ] = fd;
 542     } else if ( strcmp ( name, "AT Translated Set 2 keyboard" ) == 0) { // for vmware, my dev environment
 543       fds [ 0 ] = fd;
 544     } else if ( strcmp ( name, PND_EVDEV_POWER/*"triton2-pwrbutton"*/ ) == 0) {
 545       fds [ 2 ] = fd;
 546     } else if ( strcmp ( name, PND_EVDEV_TS/*"ADS784x Touchscreen"*/ ) == 0) {
 547       fds [ 3 ] = fd;
 548     } else if ( strcmp ( name, PND_EVDEV_NUB1/*"vsense66"*/ ) == 0) {
 549       fds [ 4 ] = fd;
 550     } else if ( strcmp ( name, PND_EVDEV_NUB1/*"vsense67"*/ ) == 0) {
 551       fds [ 5 ] = fd;
 552     } else {
 553       pnd_log ( pndn_rem, "Ignoring unknown device '%s'\n", name );
 554       //fds [ 6 ] = fd;
 555       close ( fd );
 556       fd = -1;
 557       continue;
 558     }
 559
 560     if (imaxfd < fd) imaxfd = fd;
 561
 562   } // for
 563
 564   if ( fds [ 0 ] == -1 ) {
 565     pnd_log ( pndn_warning, "WARNING! Couldn't find keypad device\n" );
 566   }
 567
 568   if ( fds [ 1 ] == -1 ) {
 569     pnd_log ( pndn_warning, "WARNING! couldn't find button device\n" );
 570   }
 571
 572   if ( fds [ 0 ] == -1 && fds [ 1 ] == -1 ) {
 573     pnd_log ( pndn_error, "ERROR! Couldn't find either device!\n" );
 574     //exit ( -2 );
 575   }
 576
 577   /* loop forever, watching for events
 578    */
 579
 580   while ( 1 ) {
 581     struct input_event ev[64];
 582
 583     unsigned int max_fd = 3; /* imaxfd */
 584     int fd = -1, rd, ret;
 585     fd_set fdset;
 586
 587     // set up fd list
 588     FD_ZERO ( &fdset );
 589
 590     imaxfd = 0;
 591     for (i = 0; i < max_fd /*imaxfd*/; i++) {
 592       if ( fds [ i ] != -1 ) {
 593         FD_SET( fds [ i ], &fdset );
 594
 595         if ( fds [ i ] > imaxfd ) {
 596           imaxfd = fds [ i ];
 597         }
 598
 599       }
 600     }
 601
 602     // figure out if we can block forever, or not
 603     unsigned char do_block = 1;
 604     struct timeval tv;
 605     tv.tv_usec = 0;
 606     tv.tv_sec = 1;
 607
 608     for ( i = i; i < g_evmap_max; i++ ) {
 609       if ( g_evmap [ i ].keydown_time && g_evmap [ i ].maxhold ) {
 610         do_block = 0;
 611         break;
 612       }
 613     }
 614
 615     // wait for fd's or timeout
 616     ret = select ( imaxfd + 1, &fdset, NULL, NULL, do_block ? NULL /* no timeout */ : &tv );
 617
 618     if ( ret == -1 ) {
 619       pnd_log ( pndn_error, "ERROR! select(2) failed with: %s\n", strerror ( errno ) );
 620       continue; // retry!
 621
 622     } else if ( ret == 0 ) { // select returned with timeout (no fd)
 623
 624       // timeout occurred; should only happen when 1 or more keys are being held down and
 625       // they're "maxhold" keys, so we have to see if their timer has passed
 626       unsigned int now = time ( NULL );
 627
 628       for ( i = i; i < g_evmap_max; i++ ) {
 629
 630         if ( g_evmap [ i ].keydown_time &&
 631              g_evmap [ i ].maxhold &&
 632              now - g_evmap [ i ].keydown_time >= g_evmap [ i ].maxhold )
 633         {
 634           keycode_t *k = (keycode_t*) g_evmap [ i ].reqs;
 635           dispatch_key ( k -> keycode, 0 /* key up */ );
 636         }
 637
 638       } // for
 639
 640     } else { // an fd was fiddled with
 641
 642       for ( i = 0; i < max_fd; i++ ) {
 643         if ( fds [ i ] != -1 && FD_ISSET ( fds [ i ], &fdset ) ) {
 644           fd = fds [ i ];
 645         } // fd is set?
 646       } // for
 647
 648       /* buttons or keypad */
 649       rd = read ( fd, ev, sizeof(struct input_event) * 64 );
 650       if ( rd < (int) sizeof(struct input_event) ) {
 651         pnd_log ( pndn_error, "ERROR! read(2) input_event failed with: %s\n", strerror ( errno ) );
 652         break;
 653       }
 654
 655       for (i = 0; i < rd / sizeof(struct input_event); i++ ) {
 656
 657         if ( ev[i].type == EV_SYN ) {
 658           continue;
 659         } else if ( ev[i].type == EV_KEY ) {
 660
 661           // do we even know about this key at all?
 662           keycode_t *p = keycodes;
 663           while ( p -> keycode != -1 ) {
 664             if ( p -> keycode == ev [ i ].code ) {
 665               break;
 666             }
 667             p++;
 668           }
 669
 670           // if we do, hand it off to dispatcher to look up if we actually do something with it
 671           if ( p -> keycode != -1 ) {
 672             if ( logall >= 0 ) {
 673               pnd_log ( pndn_debug, "Key Event: key %s [%d] value %d\n", p -> keyname, p -> keycode, ev [ i ].value );
 674             }
 675             dispatch_key ( p -> keycode, ev [ i ].value );
 676           } else {
 677             if ( logall >= 0 ) {
 678               pnd_log ( pndn_warning, "Unknown Key Event: keycode %d value %d\n",  ev [ i ].code, ev [ i ].value );
 679             }
 680           }
 681
 682         } else if ( ev[i].type == EV_SW ) {
 683
 684           // do we even know about this event at all?
 685           generic_event_t *p = generics;
 686           while ( p -> code != -1 ) {
 687             if ( p -> code == ev [ i ].code ) {
 688               break;
 689             }
 690             p++;
 691           }
 692
 693           // if we do, hand it off to dispatcher to look up if we actually do something with it
 694           if ( p -> code != -1 ) {
 695             if ( logall >= 0 ) {
 696               pnd_log ( pndn_debug, "Generic Event: event %s [%d] value %d\n", p -> name, p -> code, ev [ i ].value );
 697             }
 698             dispatch_event ( p -> code, ev [ i ].value );
 699           } else {
 700             if ( logall >= 0 ) {
 701               pnd_log ( pndn_warning, "Unknown Generic Event: code %d value %d\n",  ev [ i ].code, ev [ i ].value );
 702             }
 703           }
 704
 705         } else {
 706           pnd_log ( pndn_debug, "DEBUG: Unexpected event type %i received\n", ev[i].type );
 707           continue;
 708         } // type?
 709
 710       } // for
 711
 712     } // an fd was touched
 713
 714   } // while
 715
 716   for (i = 0; i < 2; i++) {
 717     if ( i != 2 && fds [ i ] != -1 ) {
 718       close (fds [ i ] );
 719     }
 720   }
 721
 722   return ( 0 );
 723 } // main
 724
 725 // this should really register the keystate and time, and then another func to monitor
 726 // time-passage and check the registered list and act on the event..
 727 void dispatch_key ( int keycode, int val ) {
 728   unsigned int i;
 729
 730   // val decodes as:
 731   // 1 - down (pressed)
 732   // 2 - down again (hold)
 733   // 0 - up (released)
 734
 735   for ( i = 0; i < g_evmap_max; i++ ) {
 736
 737     if ( ( g_evmap [ i ].key_p ) &&
 738          ( ((keycode_t*) (g_evmap [ i ].reqs)) -> keycode == keycode ) &&
 739          ( g_evmap [ i ].script ) )
 740     {
 741       unsigned char invoke_it = 0;
 742
 743       // is this a keydown or a keyup?
 744       if ( val == 1 ) {
 745         // keydown
 746
 747         if ( g_evmap [ i ].maxhold == 0 ) {
 748
 749           // is this a special internally handled key, or normal key?
 750           if ( g_evmap [ i ].script == (char*)FAKESCRIPT_TOGGLE_HOLD ) {
 751             // handle this specially
 752             fakescript_hold_on();
 753           } else {
 754             // normal key, with script to run
 755             g_evmap [ i ].keydown_time = 0;
 756             invoke_it = 1;
 757           }
 758
 759         } else {
 760           g_evmap [ i ].keydown_time = time ( NULL );
 761         }
 762
 763       } else if ( val == 2 && g_evmap [ i ].keydown_time ) {
 764         // key is being held; we should check if max-hold is set
 765
 766         if ( g_evmap [ i ].maxhold &&
 767              time ( NULL ) - g_evmap [ i ].keydown_time >= g_evmap [ i ].maxhold )
 768         {
 769           invoke_it = 1;
 770         }
 771
 772       } else if ( val == 0 ) {
 773
 774         if ( g_evmap [ i ].script == (char*)FAKESCRIPT_TOGGLE_HOLD ) {
 775           // handle this specially
 776           fakescript_hold_off();
 777
 778         } else if ( g_evmap [ i ].keydown_time ) {
 779           // keyup (while key is down)
 780
 781           if ( time ( NULL ) - g_evmap [ i ].last_trigger_time >= g_minimum_separation ) {
 782             invoke_it = 1;
 783           } else {
 784             pnd_log ( pndn_rem, "Skipping invokation.. falls within minimum_separation threshold\n" );
 785           }
 786
 787         }
 788
 789       } // key up or down?
 790
 791       if ( invoke_it ) {
 792
 793         char holdtime [ 128 ];
 794         sprintf ( holdtime, "%d", (int)( time(NULL) - g_evmap [ i ].keydown_time ) );
 795         pnd_log ( pndn_rem, "Will attempt to invoke: %s %s\n", g_evmap [ i ].script, holdtime );
 796
 797         // state
 798         g_evmap [ i ].keydown_time = 0; // clear the keydown-ness
 799         g_evmap [ i ].last_trigger_time = time ( NULL );
 800
 801         // invocation
 802         int x;
 803
 804         if ( ( x = fork() ) < 0 ) {
 805           pnd_log ( pndn_error, "ERROR: Couldn't fork()\n" );
 806           exit ( -3 );
 807         }
 808
 809         if ( x == 0 ) {
 810           execl ( g_evmap [ i ].script, g_evmap [ i ].script, holdtime, (char*)NULL );
 811           pnd_log ( pndn_error, "ERROR: Couldn't exec(%s)\n", g_evmap [ i ].script );
 812           exit ( -4 );
 813         }
 814
 815       } // invoke the script!
 816
 817       return;
 818     } // found matching event for keycode
 819
 820   } // while
 821
 822   return;
 823 }
 824
 825 void dispatch_event ( int code, int val ) {
 826   unsigned int i;
 827
 828   // LID val decodes as:
 829   // 1 - closing
 830   // 0 - opening
 831
 832   pnd_log ( pndn_rem, "Dispatching Event..\n" );
 833
 834   for ( i = 0; i < g_evmap_max; i++ ) {
 835
 836     if ( ( g_evmap [ i ].key_p == 0 ) &&
 837          ( ((generic_event_t*) (g_evmap [ i ].reqs)) -> code == code ) &&
 838          ( g_evmap [ i ].script ) )
 839     {
 840
 841       // just hand the code to the script (ie: 0 or 1 to script)
 842       if ( time ( NULL ) - g_evmap [ i ].last_trigger_time >= g_minimum_separation ) {
 843         int x;
 844         char value [ 100 ];
 845
 846         sprintf ( value, "%d", val );
 847
 848         g_evmap [ i ].last_trigger_time = time ( NULL );
 849
 850         pnd_log ( pndn_rem, "Will attempt to invoke: %s %s\n", g_evmap [ i ].script, value );
 851
 852         if ( ( x = fork() ) < 0 ) {
 853           pnd_log ( pndn_error, "ERROR: Couldn't fork()\n" );
 854           exit ( -3 );
 855         }
 856
 857         if ( x == 0 ) {
 858           execl ( g_evmap [ i ].script, g_evmap [ i ].script, value, (char*)NULL );
 859           pnd_log ( pndn_error, "ERROR: Couldn't exec(%s)\n", g_evmap [ i ].script );
 860           exit ( -4 );
 861         }
 862
 863       } else {
 864         pnd_log ( pndn_rem, "Skipping invokation.. falls within minimum_separation threshold\n" );
 865       }
 866
 867       return;
 868     } // found matching event for keycode
 869
 870   } // while
 871
 872   return;
 873 }
 874
 875 void sigchld_handler ( int n ) {
 876
 877   pnd_log ( pndn_rem, "---[ SIGCHLD received ]---\n" );
 878
 879   int status;
 880   wait ( &status );
 881
 882   pnd_log ( pndn_rem, "     SIGCHLD done ]---\n" );
 883
 884   return;
 885 }
 886
 887 unsigned char set_next_alarm ( unsigned int secs, unsigned int usecs ) {
 888
 889   // assume that SIGALRM is already being caught, we just set the itimer here
 890
 891   struct itimerval itv;
 892
 893   // if no timer at all, set the 'current' one so it does something; otherwise
 894   // let it continue..
 895   getitimer ( ITIMER_REAL, &itv );
 896
 897   if ( itv.it_value.tv_sec == 0 && itv.it_value.tv_sec == 0 ) {
 898     itv.it_value.tv_sec = secs;
 899     itv.it_value.tv_usec = usecs;
 900   }
 901
 902   // set the next timer
 903   //bzero ( &itv, sizeof(struct itimerval) );
 904
 905   itv.it_interval.tv_sec = secs;
 906   itv.it_interval.tv_usec = usecs;
 907
 908   // if next-timer is less than current, set current too
 909   if ( itv.it_value.tv_sec > itv.it_interval.tv_sec ) {
 910     itv.it_value.tv_sec = secs;
 911     itv.it_value.tv_usec = usecs;
 912   }
 913
 914   if ( setitimer ( ITIMER_REAL, &itv, NULL /* old value returned here */ ) < 0 ) {
 915     // sucks
 916     return ( 0 );
 917   }
 918
 919   return ( 1 );
 920 }
 921
 922 void sigalrm_handler ( int n ) {
 923
 924   pnd_log ( pndn_debug, "---[ SIGALRM ]---\n" );
 925
 926   static time_t last_charge_check, last_charge_worka;
 927   int batlevel = pnd_device_get_battery_gauge_perc();
 928   int uamps = 0;
 929   time_t now;
 930
 931   pnd_device_get_charge_current ( &uamps );
 932
 933   if ( batlevel < 0 ) {
 934 #if 0
 935     // couldn't read the battery level, so just assume low and make blinks?
 936     batlevel = 4; // low, but not cause a shutdown
 937 #else
 938     // couldn't read the battery level, so just assume ok!
 939     batlevel = 50;
 940 #endif
 941   }
 942
 943   // first -- are we critical yet? if so, shut down!
 944   if ( batlevel <= b_shutdown && b_shutdown_script) {
 945
 946     if ( uamps > 100 ) {
 947         // critical battery, but charging, so relax.
 948         b_warned = 0;
 949     } else {
 950       if (b_warned == 0) {
 951           // Avoid warning again till re-powered
 952           b_warned = 1;
 953           int x;
 954           pnd_log ( pndn_error, "Battery Current: %d\n", uamps );
 955           pnd_log ( pndn_error, "CRITICAL BATTERY LEVEL -- shutdown the system down! Invoke: %s\n",
 956                 b_shutdown_script );
 957
 958           if ( ( x = fork() ) < 0 ) {
 959                 pnd_log ( pndn_error, "ERROR: Couldn't fork()\n" );
 960             exit ( -3 );
 961           }
 962
 963          if ( x == 0 ) {
 964            char value [ 100 ];
 965            sprintf ( value, "%d", b_shutdelay );
 966            execl ( b_shutdown_script, b_shutdown_script, value, (char*)NULL );
 967            pnd_log ( pndn_error, "ERROR: Couldn't exec(%s)\n", b_shutdown_script );
 968            exit ( -4 );
 969          }
 970       }
 971     } // charging
 972
 973   }
 974
 975   // charge monitoring
 976   now = time(NULL);
 977   if ( bc_enable && bc_charge_devices != NULL && (unsigned int)(now - last_charge_check) > 60 ) {
 978
 979     int charge_enabled = pnd_device_get_charger_enable ( bc_charge_devices );
 980     if ( charge_enabled < 0 )
 981       pnd_log ( pndn_error, "ERROR: Couldn't read charger enable control\n" );
 982     else {
 983
 984       if ( charge_enabled && batlevel >= bc_stopcap && 0 < uamps && uamps < bc_stopcur ) {
 985         pnd_log ( pndn_debug, "Charge stop conditions reached, disabling charging\n" );
 986         pnd_device_set_charger_enable ( bc_charge_devices, 0 );
 987       }
 988       else if ( !charge_enabled && batlevel <= bc_startcap ) {
 989         pnd_log ( pndn_debug, "Charge start conditions reached, enabling charging\n" );
 990         pnd_device_set_charger_enable ( bc_charge_devices, 1 );
 991       }
 992
 993       // for some unknown reason it just stops charging randomly (happens once per week or so),
 994       // and does not restart, resulting in a flat battery if machine is unattended.
 995       // What seems to help here is writing to chip registers, we can do it here indirectly
 996       // by writing to enable. Doing it occasionally should do no harm even with missing charger.
 997       if ( batlevel <= bc_startcap && (unsigned int)(now - last_charge_worka) > 20*60 ) {
 998         pnd_log ( pndn_debug, "Charge workaround trigger\n" );
 999         pnd_device_set_charger_enable ( bc_charge_devices, 1 );
1000         last_charge_worka = now;
1001       }
1002     }
1003     last_charge_check = now;
1004   }
1005
1006   // is battery warning already active?
1007   if ( b_active ) {
1008     // warning is on!
1009
1010     // is user charging up? if so, stop blinking.
1011     // perhaps we shoudl check if charger is connected, and not blink at all in that case..
1012     if ( uamps > 0 ) {
1013       //Re-arm warning
1014       b_warned = 0;
1015       pnd_log ( pndn_debug, "Battery is high again, flipping to non-blinker mode\n" );
1016       b_active = 0;
1017       set_next_alarm ( b_frequency, 0 );
1018       pnd_device_set_led_charger_brightness ( 250 );
1019       return;
1020     }
1021
1022     if ( b_active == 1 ) {
1023       // turn LED on
1024       pnd_log ( pndn_debug, "Blink on\n" );
1025       pnd_device_set_led_charger_brightness ( 200 );
1026       // set timer to short duration
1027       b_active = 2;
1028       set_next_alarm ( 0, b_blinkdur );
1029     } else if ( b_active == 2 ) {
1030       // turn LED off
1031       pnd_log ( pndn_debug, "Blink off\n" );
1032       pnd_device_set_led_charger_brightness ( 10 );
1033       // back to longer duration
1034       b_active = 1;
1035       set_next_alarm ( b_blinkfreq, 0 );
1036     }
1037
1038     return;
1039   }
1040
1041   // warning is off..
1042   if ( batlevel <= b_threshold && uamps < 0 ) {
1043     // battery seems low, go to active mode
1044     pnd_log ( pndn_debug, "Battery is low, flipping to blinker mode\n" );
1045     b_active = 1;
1046     set_next_alarm ( b_blinkfreq, 0 );
1047   } // battery level
1048
1049   return;
1050 }
1051
1052 void fakescript_hold_on ( void ) {
1053   pnd_log ( pndn_rem, "HOLD is being enabled.\n" );
1054
1055   int i;
1056   for ( i = 0; i < imaxfd; i++ ) {
1057     ioctl ( fds [ i ], EVIOCGRAB, 1 /* enable */ );
1058   }
1059
1060   return;
1061 }
1062
1063 void fakescript_hold_off ( void ) {
1064   pnd_log ( pndn_rem, "HOLD is being disabled.\n" );
1065
1066   int i;
1067   for ( i = 0; i < imaxfd; i++ ) {
1068     ioctl ( fds [ i ], EVIOCGRAB, 0 /* disable */ );
1069   }
1070
1071   return;
1072 }