summaryrefslogtreecommitdiff
Unidiff
Diffstat (more/less context) (ignore whitespace changes)
-rw-r--r--core/opiealarm/opiealarm.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/core/opiealarm/opiealarm.c b/core/opiealarm/opiealarm.c
index 70e5415..bb2e684 100644
--- a/core/opiealarm/opiealarm.c
+++ b/core/opiealarm/opiealarm.c
@@ -1,368 +1,369 @@
1/* 1/*
2 * opiealarm.c 2 * opiealarm.c
3 * 3 *
4 * This program is for extracting the event time/date out 4 * This program is for extracting the event time/date out
5 * of /etc/resumeat and setting the RTC alarm to that time/date. 5 * of /etc/resumeat and setting the RTC alarm to that time/date.
6 * It is designed to run via a script just before the iPAQ 6 * It is designed to run via a script just before the iPAQ
7 * is suspended and right after the iPAQ resumes operation. 7 * is suspended and right after the iPAQ resumes operation.
8 * 8 *
9 * written and copyrighted by Robert Griebl <sandman@handhelds.org> 9 * written and copyrighted by Robert Griebl <sandman@handhelds.org>
10 */ 10 */
11 11
12#include <stdio.h> 12#include <stdio.h>
13#include <linux/rtc.h> 13#include <linux/rtc.h>
14#include <sys/ioctl.h> 14#include <sys/ioctl.h>
15#include <sys/time.h> 15#include <sys/time.h>
16#include <sys/types.h> 16#include <sys/types.h>
17#include <fcntl.h> 17#include <fcntl.h>
18#include <unistd.h> 18#include <unistd.h>
19#include <errno.h> 19#include <errno.h>
20#include <time.h> 20#include <time.h>
21#include <stdlib.h> 21#include <stdlib.h>
22#include <syslog.h> 22#include <syslog.h>
23#include <signal.h> 23#include <signal.h>
24#include <errno.h> 24#include <errno.h>
25#include <string.h> 25#include <string.h>
26 26
27 27
28 #define PIDFILE "/var/run/opiealarm.pid" 28 #define PIDFILE "/var/run/opiealarm.pid"
29 #define APMFILE "/proc/apm" 29 #define APMFILE "/proc/apm"
30 30
31int resume ( int resuspend ); 31int resume ( int resuspend );
32int suspend ( int fix_rtc ); 32int suspend ( int fix_rtc );
33int main ( int argc, char **argv ); 33int main ( int argc, char **argv );
34int fork_with_pidfile ( void ); 34int fork_with_pidfile ( void );
35int kill_with_pidfile ( void ); 35int kill_with_pidfile ( void );
36void remove_pidfile ( void ); 36void remove_pidfile ( void );
37void usage ( void ); 37void usage ( void );
38void sig_handler_child ( int sig ); 38void sig_handler_child ( int sig );
39void sig_handler_parent ( int sig ); 39void sig_handler_parent ( int sig );
40int onac ( void ); 40int onac ( void );
41 41
42static int opiealarm_was_running; 42static int opiealarm_was_running;
43static pid_t parent_pid = 0; 43static pid_t parent_pid = 0;
44 44
45 45
46 46
47void sig_handler_child ( int sig ) 47void sig_handler_child ( int sig )
48{ 48{
49 // child got SIGUSR2 -> cleanup pidfile and exit 49 // child got SIGUSR2 -> cleanup pidfile and exit
50 50
51 remove_pidfile ( ); 51 remove_pidfile ( );
52 exit ( 0 ); 52 exit ( 0 );
53} 53}
54 54
55void sig_handler_parent ( int sig ) 55void sig_handler_parent ( int sig )
56{ 56{
57 // parent got SIGUSR1 -> safe to exit now 57 // parent got SIGUSR1 -> safe to exit now
58 58
59 parent_pid = 0; 59 parent_pid = 0;
60 exit ( 0 ); 60 exit ( 0 );
61} 61}
62 62
63void usage ( void ) 63void usage ( void )
64{ 64{
65 fprintf ( stderr, "Usage: opiealarm -s [-f] | -r [-a]\n\n" ); 65 fprintf ( stderr, "Usage: opiealarm -s [-f] | -r [-a]\n\n" );
66 fprintf ( stderr, "\t-s\tSuspend mode: set RTC alarm\n" ); 66 fprintf ( stderr, "\t-s\tSuspend mode: set RTC alarm\n" );
67 fprintf ( stderr, "\t-f \tFix RTC, if RTC and system have more than 5sec difference (suspend mode)\n" ); 67 fprintf ( stderr, "\t-f \tFix RTC, if RTC and system have more than 5sec difference (suspend mode)\n" );
68 fprintf ( stderr, "\t-r\tResume mode: kill running opiealarm\n" ); 68 fprintf ( stderr, "\t-r\tResume mode: kill running opiealarm\n" );
69 fprintf ( stderr, "\t-a <x>\tResuspend in <x> seconds (resume mode)\n\n" ); 69 fprintf ( stderr, "\t-a <x>\tResuspend in <x> seconds (resume mode)\n\n" );
70 exit ( 1 ); 70 exit ( 1 );
71} 71}
72 72
73int fork_with_pidfile ( void ) 73int fork_with_pidfile ( void )
74{ 74{
75 FILE *fp; 75 FILE *fp;
76 pid_t pid; 76 pid_t pid;
77 77
78 pid = fork ( ); 78 pid = fork ( );
79 79
80 if ( pid > 0 ) { 80 if ( pid > 0 ) {
81 // We can not just exit now, because the kernel could suspend 81 // We can not just exit now, because the kernel could suspend
82 // the iPAQ just before the child process sets the RTC. 82 // the iPAQ just before the child process sets the RTC.
83 // Solution: just wait for SIGUSR1 - the child process will 83 // Solution: just wait for SIGUSR1 - the child process will
84 // signal this when it thinks it is safe to exit. 84 // signal this when it thinks it is safe to exit.
85 85
86 signal ( SIGUSR1, sig_handler_parent ); 86 signal ( SIGUSR1, sig_handler_parent );
87 while ( 1 ) 87 while ( 1 )
88 sleep ( 1000 ); 88 sleep ( 1000 );
89 exit ( 0 ); 89 exit ( 0 );
90 } 90 }
91 else if ( pid < 0 ) { 91 else if ( pid < 0 ) {
92 perror ( "forking failed" ); 92 perror ( "forking failed" );
93 return 0; 93 return 0;
94 } 94 }
95 95
96 // child process needs to react to SIGUSR2. This is sent when 96 // child process needs to react to SIGUSR2. This is sent when
97 // a new opiealarm process is started. 97 // a new opiealarm process is started.
98 98
99 signal ( SIGUSR2, sig_handler_child ); 99 signal ( SIGUSR2, sig_handler_child );
100 100
101 // save pid 101 // save pid
102 if (( fp = fopen ( PIDFILE, "w" ))) { 102 if (( fp = fopen ( PIDFILE, "w" ))) {
103 fprintf ( fp, "%d", getpid ( )); 103 fprintf ( fp, "%d", getpid ( ));
104 fclose ( fp ); 104 fclose ( fp );
105 105
106 // detach 106 // detach
107 close ( 0 ); 107 close ( 0 );
108 close ( 1 ); 108 close ( 1 );
109 close ( 2 ); 109 close ( 2 );
110 110
111 setpgid ( 0, 0 ); 111 setpgid ( 0, 0 );
112 112
113 return 1; 113 return 1;
114 } 114 }
115 else { 115 else {
116 perror ( PIDFILE ); 116 perror ( PIDFILE );
117 return 0; 117 return 0;
118 } 118 }
119} 119}
120 120
121int kill_with_pidfile ( void ) 121int kill_with_pidfile ( void )
122{ 122{
123 FILE *fp; 123 FILE *fp;
124 pid_t pid; 124 pid_t pid;
125 int res = 0; 125 int res = 0;
126 126
127 // terminate a running opiealarm child process 127 // terminate a running opiealarm child process
128 // return 1 if we really killed one 128 // return 1 if we really killed one
129 129
130 if (( fp = fopen ( PIDFILE, "r" ))) { 130 if (( fp = fopen ( PIDFILE, "r" ))) {
131 if ( fscanf ( fp, "%d", &pid ) == 1 ) 131 if ( fscanf ( fp, "%d", &pid ) == 1 )
132 res = ( kill ( pid, SIGUSR2 ) == 0 ) ? 1 : 0; 132 res = ( kill ( pid, SIGUSR2 ) == 0 ) ? 1 : 0;
133 fclose ( fp ); 133 fclose ( fp );
134 } 134 }
135 return res; 135 return res;
136} 136}
137 137
138void remove_pidfile ( void ) 138void remove_pidfile ( void )
139{ 139{
140 // child is about to exit - cleanup 140 // child is about to exit - cleanup
141 141
142 unlink ( PIDFILE ); 142 unlink ( PIDFILE );
143 signal ( SIGUSR2, SIG_DFL ); 143 signal ( SIGUSR2, SIG_DFL );
144} 144}
145 145
146 146
147int main ( int argc, char **argv ) 147int main ( int argc, char **argv )
148{ 148{
149 int mode = 0; 149 int mode = 0;
150 int ac_resusp = 0; 150 int ac_resusp = 0;
151 int fix_rtc = 0; 151 int fix_rtc = 0;
152 int opt; 152 int opt;
153 153
154 while (( opt = getopt ( argc, argv, "a:frs" )) != EOF ) { 154 while (( opt = getopt ( argc, argv, "a:frs" )) != EOF ) {
155 switch ( opt ) { 155 switch ( opt ) {
156 case 's': 156 case 's':
157 mode = 's'; 157 mode = 's';
158 break; 158 break;
159 case 'r': 159 case 'r':
160 mode = 'r'; 160 mode = 'r';
161 break; 161 break;
162 case 'a': 162 case 'a':
163 ac_resusp = atoi ( optarg ); 163 ac_resusp = atoi ( optarg );
164 if ( ac_resusp < 30 ) { 164 if ( ac_resusp < 30 ) {
165 ac_resusp = 120; 165 ac_resusp = 120;
166 166
167 fprintf ( stderr, "Warning: resuspend timeout must be >= 30 sec. -- now set to 120 sec\n" ); 167 fprintf ( stderr, "Warning: resuspend timeout must be >= 30 sec. -- now set to 120 sec\n" );
168 } 168 }
169 break; 169 break;
170 case 'f': 170 case 'f':
171 fix_rtc = 1; 171 fix_rtc = 1;
172 break; 172 break;
173 default: 173 default:
174 usage ( ); 174 usage ( );
175 } 175 }
176 } 176 }
177 177
178 if ( geteuid ( ) != 0 ) { 178 if ( geteuid ( ) != 0 ) {
179 fprintf ( stderr, "You need root priviledges to run opiealarm." ); 179 fprintf ( stderr, "You need root priviledges to run opiealarm." );
180 return 2; 180 return 2;
181 } 181 }
182 182
183 if ( !mode ) 183 if ( !mode )
184 usage ( ); 184 usage ( );
185 185
186 186
187 parent_pid = getpid ( ); 187 parent_pid = getpid ( );
188 188
189 // kill running opiealarm 189 // kill running opiealarm
190 opiealarm_was_running = kill_with_pidfile ( ); 190 opiealarm_was_running = kill_with_pidfile ( );
191 remove_pidfile ( ); 191 remove_pidfile ( );
192 192
193 switch ( mode ) { 193 switch ( mode ) {
194 case 'r': opt = resume ( ac_resusp ); 194 case 'r': opt = resume ( ac_resusp );
195 break; 195 break;
196 case 's': 196 case 's':
197 default : opt = suspend ( fix_rtc ); 197 default : opt = suspend ( fix_rtc );
198 break; 198 break;
199 } 199 }
200 200
201 parent_pid = 0; 201 parent_pid = 0;
202 return opt; 202 return opt;
203 } 203 }
204 204
205 205
206int suspend ( int fix_rtc ) 206int suspend ( int fix_rtc )
207{ 207{
208 FILE *fp; 208 FILE *fp;
209 char buf [64]; 209 char buf [64];
210 time_t alrt, syst, rtct; 210 time_t alrt, syst, rtct;
211 struct tm alr, sys, rtc; 211 struct tm alr, sys, rtc;
212 int fd; 212 int fd;
213 int rtc_sys_diff; 213 int rtc_sys_diff;
214 214
215 215
216 if ( !fork_with_pidfile ( )) 216 if ( !fork_with_pidfile ( ))
217 return 3; 217 return 3;
218 218
219 // we are the child process from here on ... 219 // we are the child process from here on ...
220 220
221 tzset ( ); // not sure if it is really needed -- it probably doesn't hurt ... 221 tzset ( ); // not sure if it is really needed -- it probably doesn't hurt ...
222 222
223 do { // try/catch simulation 223 do { // try/catch simulation
224 224
225 // read the wakeup time from /etc/resumeat 225 // read the wakeup time from /etc/resumeat
226 if (!( fp = fopen ( "/etc/resumeat", "r" ))) 226 if (!( fp = fopen ( "/etc/resumeat", "r" )))
227 break; // ( 1, "/etc/resumeat" ); 227 break; // ( 1, "/etc/resumeat" );
228 228
229 if ( !fgets ( buf, sizeof( buf ) - 1, fp )) 229 if ( !fgets ( buf, sizeof( buf ) - 1, fp ))
230 break; // ( 1, "/etc/resumeat" ); 230 break; // ( 1, "/etc/resumeat" );
231 231
232 fclose ( fp ); 232 fclose ( fp );
233 233
234 alrt = atoi ( buf ); // get the alarm time 234 alrt = atoi ( buf ); // get the alarm time
235 if ( alrt == 0 ) 235 if ( alrt == 0 )
236 break; // ( 0, "/etc/resumeat contains an invalid time description" ); 236 break; // ( 0, "/etc/resumeat contains an invalid time description" );
237 alrt -= 5; // wake up 5 sec before the specified time 237 alrt -= 5; // wake up 5 sec before the specified time
238 alr = *gmtime ( &alrt ); 238 alr = *gmtime ( &alrt );
239 239
240 time ( &syst );// get the UNIX system time 240 time ( &syst );// get the UNIX system time
241 sys = *localtime ( &syst ); 241 sys = *localtime ( &syst );
242 242
243 if (( fd = open ( "/dev/misc/rtc", O_RDWR )) < 0 ) // open the RTC device 243 if (( fd = open ( "/dev/misc/rtc", O_RDWR )) < 0 )
244 break; // ( 1, "/dev/misc/rtc" ); 244 if (( fd = open ( "/dev/rtc", O_RDWR )) < 0 )
245 break; // ( 1, "rtc" );
245 246
246 memset ( &rtc, 0, sizeof ( struct tm )); // get the RTC time 247 memset ( &rtc, 0, sizeof ( struct tm )); // get the RTC time
247 if ( ioctl ( fd, RTC_RD_TIME, &rtc ) < 0 ) 248 if ( ioctl ( fd, RTC_RD_TIME, &rtc ) < 0 )
248 break; // ( 1, "ioctl RTC_RD_TIME" ); 249 break; // ( 1, "ioctl RTC_RD_TIME" );
249 rtct = mktime ( &rtc ); 250 rtct = mktime ( &rtc );
250 251
251 rtc_sys_diff = ( syst - rtct ) - sys. tm_gmtoff; // calculate the difference between system and hardware time 252 rtc_sys_diff = ( syst - rtct ) - sys. tm_gmtoff; // calculate the difference between system and hardware time
252 253
253 if ( fix_rtc && (( rtc_sys_diff < -3 ) || ( rtc_sys_diff > 3 ))) { 254 if ( fix_rtc && (( rtc_sys_diff < -3 ) || ( rtc_sys_diff > 3 ))) {
254 struct tm set; 255 struct tm set;
255 set = *gmtime ( &syst ); 256 set = *gmtime ( &syst );
256 257
257 // if the difference between system and hardware time is more than 3 seconds, 258 // if the difference between system and hardware time is more than 3 seconds,
258 // we have to set the RTC (hwclock --systohc), or alarms won't work reliably. 259 // we have to set the RTC (hwclock --systohc), or alarms won't work reliably.
259 260
260 if ( ioctl ( fd, RTC_SET_TIME, &set ) < 0 ) 261 if ( ioctl ( fd, RTC_SET_TIME, &set ) < 0 )
261 break; // ( 1, "ioctl RTC_SET_TIME" ); 262 break; // ( 1, "ioctl RTC_SET_TIME" );
262 } 263 }
263 264
264 if ( ioctl ( fd, RTC_ALM_SET, &alr ) < 0 ) // set RTC alarm time 265 if ( ioctl ( fd, RTC_ALM_SET, &alr ) < 0 ) // set RTC alarm time
265 break; // ( 1, "ioctl RTC_ALM_SET" ); 266 break; // ( 1, "ioctl RTC_ALM_SET" );
266 if ( ioctl ( fd, RTC_AIE_ON, 0 ) < 0 ) 267 if ( ioctl ( fd, RTC_AIE_ON, 0 ) < 0 )
267 break; // ( 1, "ioctl RTC_AIE_ON" ); // enable RTC alarm irq 268 break; // ( 1, "ioctl RTC_AIE_ON" ); // enable RTC alarm irq
268 269
269 // tell the parent it is safe to exit now .. we have set the RTC alarm 270 // tell the parent it is safe to exit now .. we have set the RTC alarm
270 kill ( parent_pid, SIGUSR1 ); 271 kill ( parent_pid, SIGUSR1 );
271 272
272 if ( read ( fd, buf, sizeof( unsigned long )) < 0 ) // wait for the RTC alarm irq 273 if ( read ( fd, buf, sizeof( unsigned long )) < 0 ) // wait for the RTC alarm irq
273 break; // ( 1, "read rtc alarm" ); 274 break; // ( 1, "read rtc alarm" );
274 275
275 // iPAQ woke up via RTC irq -- otherwise we would have received a SIGUSR2 276 // iPAQ woke up via RTC irq -- otherwise we would have received a SIGUSR2
276 // from the "resume instance" of opiealarm. 277 // from the "resume instance" of opiealarm.
277 278
278 if ( ioctl ( fd, RTC_AIE_OFF, 0 ) < 0 ) // disable RTC alarm irq 279 if ( ioctl ( fd, RTC_AIE_OFF, 0 ) < 0 ) // disable RTC alarm irq
279 break; // ( 1, "ioctl RTC_AIE_OFF" ); 280 break; // ( 1, "ioctl RTC_AIE_OFF" );
280 281
281 close ( fd ); 282 close ( fd );
282 283
283 remove_pidfile ( ); // normal exit 284 remove_pidfile ( ); // normal exit
284 return 0; 285 return 0;
285 286
286 } while ( 0 ); 287 } while ( 0 );
287 288
288 kill ( parent_pid, SIGUSR1 ); // parent is still running - it can exit now 289 kill ( parent_pid, SIGUSR1 ); // parent is still running - it can exit now
289 290
290 while ( 1 ) // pretend that we are waiting on RTC, so opiealarm -r can kill us 291 while ( 1 ) // pretend that we are waiting on RTC, so opiealarm -r can kill us
291 sleep ( 1000 ); // if we don't do this, the "resuspend on AC" would be triggerd 292 sleep ( 1000 ); // if we don't do this, the "resuspend on AC" would be triggerd
292 return 0; 293 return 0;
293} 294}
294 295
295 296
296int onac ( void ) 297int onac ( void )
297{ 298{
298 FILE *fp; 299 FILE *fp;
299 int on = 0; 300 int on = 0;
300 301
301 // check the apm proc interface for AC status 302 // check the apm proc interface for AC status
302 303
303 if (( fp = fopen ( APMFILE, "r" ))) { 304 if (( fp = fopen ( APMFILE, "r" ))) {
304 int ac = 0; 305 int ac = 0;
305 306
306 if ( fscanf ( fp, "%*[^ ] %*d.%*d 0x%*x 0x%x 0x%*x 0x%*x %*d%% %*i %*c", &ac ) == 1 ) 307 if ( fscanf ( fp, "%*[^ ] %*d.%*d 0x%*x 0x%x 0x%*x 0x%*x %*d%% %*i %*c", &ac ) == 1 )
307 on = ( ac == 0x01 ) ? 1 : 0; 308 on = ( ac == 0x01 ) ? 1 : 0;
308 309
309 fclose ( fp ); 310 fclose ( fp );
310 } 311 }
311 return on; 312 return on;
312} 313}
313 314
314int resume ( int resuspend ) 315int resume ( int resuspend )
315{ 316{
316 FILE *fp; 317 FILE *fp;
317 318
318 // re-suspend when on AC (optional) when woken up via RTC 319 // re-suspend when on AC (optional) when woken up via RTC
319 320
320 if ( !opiealarm_was_running ) { 321 if ( !opiealarm_was_running ) {
321 // if opiealarm -s didn't wake up via RTC, the old process gets killed 322 // if opiealarm -s didn't wake up via RTC, the old process gets killed
322 // by kill_by_pidfile(), which is recorded in opiealarm_was_running 323 // by kill_by_pidfile(), which is recorded in opiealarm_was_running
323 324
324 if ( resuspend && onac ( )) { 325 if ( resuspend && onac ( )) {
325 time_t start, now; 326 time_t start, now;
326 char *argv [4]; 327 char *argv [4];
327 328
328 if ( !fork_with_pidfile ( )) 329 if ( !fork_with_pidfile ( ))
329 return 4; 330 return 4;
330 331
331 // we can't wait for the resuspend timeout in the parent process. 332 // we can't wait for the resuspend timeout in the parent process.
332 // so we fork and tell the parent it can exit immediatly 333 // so we fork and tell the parent it can exit immediatly
333 334
334 kill ( parent_pid, SIGUSR1 ); 335 kill ( parent_pid, SIGUSR1 );
335 336
336 // sleep <resuspend> seconds - this method is much more precise than sleep() ! 337 // sleep <resuspend> seconds - this method is much more precise than sleep() !
337 time ( &start ); 338 time ( &start );
338 do { 339 do {
339 sleep ( 1 ); 340 sleep ( 1 );
340 time ( &now ); 341 time ( &now );
341 } while (( now - start ) < resuspend ); 342 } while (( now - start ) < resuspend );
342 343
343 if ( onac ( )) { // still on ac ? 344 if ( onac ( )) { // still on ac ?
344 argv[0] = "qcop"; 345 argv[0] = "qcop";
345 argv[1] = "QPE/Desktop"; 346 argv[1] = "QPE/Desktop";
346 argv[2] = "suspend()"; 347 argv[2] = "suspend()";
347 argv[3] = 0; 348 argv[3] = 0;
348 349
349 // hard coded for now ...but needed 350 // hard coded for now ...but needed
350 // another way would be to simulate a power-button press 351 // another way would be to simulate a power-button press
351 352
352 setenv ( "LOGNAME", "root", 1 ); 353 setenv ( "LOGNAME", "root", 1 );
353 setenv ( "HOME", "/root", 1 ); 354 setenv ( "HOME", "/root", 1 );
354 setenv ( "LD_LIBRARY_PATH", "/opt/QtPalmtop/lib", 1 ); 355 setenv ( "LD_LIBRARY_PATH", "/opt/QtPalmtop/lib", 1 );
355 setenv ( "QTDIR", "/opt/QtPalmtop", 1 ); 356 setenv ( "QTDIR", "/opt/QtPalmtop", 1 );
356 357
357 remove_pidfile ( ); 358 remove_pidfile ( );
358 359
359 // no need for system() since this process is no longer usefull anyway 360 // no need for system() since this process is no longer usefull anyway
360 execv ( "/opt/QtPalmtop/bin/qcop", argv ); 361 execv ( "/opt/QtPalmtop/bin/qcop", argv );
361 362
362 perror ( "exec for qcop failed" ); 363 perror ( "exec for qcop failed" );
363 return 5; 364 return 5;
364 } 365 }
365 } 366 }
366 } 367 }
367 return 0; 368 return 0;
368} 369}