#include "EXTERN.h" #include "perl.h" #include "XSUB.h" #include #include #include #include #include #include int GetIdleTime () { time_t idle_time; static XScreenSaverInfo *mit_info; Display *display; int screen; mit_info = XScreenSaverAllocInfo(); if((display=XOpenDisplay(NULL)) == NULL) { return(-1); } screen = DefaultScreen(display); XScreenSaverQueryInfo(display, RootWindow(display,screen), mit_info); XFree(mit_info); XCloseDisplay(display); idle_time = (mit_info->idle) / 1000; return idle_time; } MODULE = X11::IdleTime PACKAGE = X11::IdleTime PROTOTYPES: DISABLE int GetIdleTime ()